From e2b92d341da89f35b96f8ea5437bab0ec1d590f7 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 20 Oct 2003 18:36:47 +0000
Subject: [PATCH] r8013: add fixnum-width

---
 math.lisp    | 3 +++
 package.lisp | 1 +
 2 files changed, 4 insertions(+)

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
-- 
2.34.1