cl-olefs

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

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