[armedbear-cvs] r11567 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jan 18 21:06:27 2009
New Revision: 11567

Log:
Use the same lines as in SBCL to make sure SCALE-EXPONENT works for all float types.

Modified:
   trunk/abcl/src/org/armedbear/lisp/format.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/format.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/format.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/format.lisp	Sun Jan 18 21:06:27 2009
@@ -252,6 +252,11 @@
              (incf index))
            (concatenate 'string (subseq s 0 index) "." (subseq s index))))))
 
+
+(eval-when (:compile-toplevel :execute)
+    ;; the code below needs to its floats to be read as long-floats
+    (setf *read-default-float-format* 'double-float))
+
 (defun scale-exponent (original-x)
   (let* ((x (coerce original-x 'long-float)))
     (multiple-value-bind (sig exponent) (decode-float x)