ccl: reverse values from CCL::DOUBLE-FLOAT-BITS

diff --git a/utilities.lisp b/utilities.lisp
index 447789957be1f65eb247b0cc54cd902fef1387d3..d8fedc6a393308afd5265e5ba32d4d86c3b40ecc 100644 (file)
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -525,7 +525,9 @@
                 (excl:double-float-to-shorts x)
               (logior (ash us1 16) us0)
               (logior (ash us3 16) us2))
-  #+ccl  (ccl::double-float-bits x)
+  #+ccl  (multiple-value-bind (high low)
+             (ccl::double-float-bits x)
+           (values low high))
   #+cmu  (values (kernel:double-float-low-bits x)
                  (kernel:double-float-high-bits x))
   #+sbcl (values (sb-kernel:double-float-low-bits x)