Update documentation

[cl-protobufs.git] / utilities.lisp

diff --git a/utilities.lisp b/utilities.lisp
index 06603bab22cfa0629bd88a96fd4a7b5743cf2dd3..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 high 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))