cl-olefs

commit 2e045cc550d531fd17007589ff050d0e8053b05a
parent e1654e6d137ff8d5c482db5fcdc1a52c3f48a349
Author: Tomas Hlavaty <tom@logand.com>
Date:   Mon, 14 Apr 2014 22:06:49 +0200

use sb-kernel:make-double-float on #+sbcl instead of ieee-floats dependency

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

2 files changed, 4 insertions(+), 2 deletions(-)
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 (#-ccl :ieee-floats)
+  :depends-on (#-(or ccl sbcl) :ieee-floats)
   :serial t
   :components ((:file "package")
                (:file "cdef")
diff --git a/olefs.lisp b/olefs.lisp
@@ -27,7 +27,9 @@
            (type (unsigned-byte 32) high low))
   #+ccl
   (ccl::double-float-from-bits high low)
-  #-ccl
+  #+sbcl
+  (sb-kernel:make-double-float high low)
+  #-(or ccl sbcl)
   (let ((bignum 0))
     (declare (type (unsigned-byte 64) bignum))
     (setf (ldb (byte 32  0) bignum) low