cl-olefs

commit bb847014b732fd62007acc6bf5c7d168ba4c77d3
parent ed73308824c198b50805cbc81247ce6367c491e5
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed, 10 Sep 2014 08:35:15 +0200

sb-kernel:make-double-float expects (unsigned-byte 32)

Diffstat:
M
olefs.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/olefs.lisp b/olefs.lisp
@@ -28,7 +28,7 @@
   #+ccl
   (ccl::double-float-from-bits high low)
   #+sbcl
-  (sb-kernel:make-double-float high low)
+  (sb-kernel:make-double-float (sb-c::mask-signed-field 32 high) low)
   #-(or ccl sbcl)
   (let ((bignum 0))
     (declare (type (unsigned-byte 64) bignum))