cl-olefs

OLE File System tools for Common Lisp
git clone https://logand.com/git/cl-olefs.git/
Log | Files | Refs

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:
Mcl-olefs.asd | 2+-
Molefs.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