Fix double creation for ccl when high bits are negative

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