cl-olefs

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

commit bb847014b732fd62007acc6bf5c7d168ba4c77d3
parent ed73308824c198b50805cbc81247ce6367c491e5
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed, 10 Sep 2014 08:35:15 +0200

sb-kernel:make-double-float expects (unsigned-byte 32)

Diffstat:
Molefs.lisp | 2+-
1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/olefs.lisp b/olefs.lisp @@ -28,7 +28,7 @@ #+ccl (ccl::double-float-from-bits high low) #+sbcl - (sb-kernel:make-double-float high low) + (sb-kernel:make-double-float (sb-c::mask-signed-field 32 high) low) #-(or ccl sbcl) (let ((bignum 0)) (declare (type (unsigned-byte 64) bignum))