Changeset 11567


Ignore:
Timestamp:
01/18/09 21:06:27 (12 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/format.lisp

    r11391 r11567  
    252252             (incf index))
    253253           (concatenate 'string (subseq s 0 index) "." (subseq s index))))))
     254
     255
     256(eval-when (:compile-toplevel :execute)
     257    ;; the code below needs to its floats to be read as long-floats
     258    (setf *read-default-float-format* 'double-float))
    254259
    255260(defun scale-exponent (original-x)
Note: See TracChangeset for help on using the changeset viewer.