cl-olefs

commit 8bf6f9b3694aaa8c6ff85d9104c354c0c7756d6c
parent e5f0bdb5f38125c43b9af287d0a60608ba8d2cb7
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 21 Nov 2013 00:52:07 +0100

no dependency on IEEE-FLOATS when #+ccl

Diffstat:
M
cl-olefs.asd
 | 
2
+-
M
olefs.lisp
 | 
3
+++

2 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/cl-olefs.asd b/cl-olefs.asd
@@ -32,7 +32,7 @@
   :author "Tomas Hlavaty <tom@logand.com>"
   :maintainer "Tomas Hlavaty <tom@logand.com>"
   :licence "MIT"
-  :depends-on (:ieee-floats)
+  :depends-on (#-ccl :ieee-floats)
   :serial t
   :components ((:file "package")
                (:file "cdef")
diff --git a/olefs.lisp b/olefs.lisp
@@ -25,6 +25,9 @@
 (defun double-float-from-bits (high low)
   (declare (optimize (speed 3) (debug 0))
            (type (unsigned-byte 32) high low))
+  #+ccl
+  (ccl::double-float-from-bits high low)
+  #-ccl
   (let ((bignum 0))
     (declare (type (unsigned-byte 64) bignum))
     (setf (ldb (byte 32  0) bignum) low