Don't assume 32-bits integers fit in a fixnum

Follow up to the last commit; I should really know better.

diff --git a/utilities.lisp b/utilities.lisp
index 91757e5995f83466af966548fdc07f8e3db0e103..0cc04959d4a9fffc13cfd95a8bb9a83d536c7e59 100644 (file)
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -634,7 +634,7 @@
                                          (ldb (byte 16 0) high)
                                          (ldb (byte 16 16) low)
                                          (ldb (byte 16 0) low))
-  #+ccl  (ccl::double-float-from-bits (ilogand high #xffffffff) low)
+  #+ccl  (ccl::double-float-from-bits (logand high #xffffffff) low)
   #+cmu  (kernel:make-double-float high low)
   #+sbcl (sb-kernel:make-double-float high low)
   #+lispworks (lispworks-float:make-double-float high low))