From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 20 Oct 2003 18:36:47 +0000 (+0000)
Subject: r8013: add fixnum-width
X-Git-Tag: v1.96~116
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=e2b92d341da89f35b96f8ea5437bab0ec1d590f7

r8013: add fixnum-width
---

diff --git a/math.lisp b/math.lisp
index 0197d52..e911844 100644
--- a/math.lisp
+++ b/math.lisp
@@ -70,3 +70,6 @@
 	    (incf (aref bins bin))))))
     (values bins min max)))
 	      
+
+(defun fixnum-width ()
+  (nth-value 0 (truncate (+ (/ (log (1+ most-positive-fixnum)) (log 2)) .5))))
diff --git a/package.lisp b/package.lisp
index 803dc12..f6cb217 100644
--- a/package.lisp
+++ b/package.lisp
@@ -112,6 +112,7 @@
    ;; math.lisp
    #:ensure-integer
    #:histogram
+   #:fixnum-width
    
    ;; macros.lisp
    #:time-iterations