Changeset 11625


Ignore:
Timestamp:
02/05/09 08:46:06 (13 years ago)
Author:
ehuelsmann
Message:

Fix COERCE.20 (a regression since 0.12).

File:
1 edited

Legend:

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

    r11567 r11625  
    256256(eval-when (:compile-toplevel :execute)
    257257    ;; the code below needs to its floats to be read as long-floats
     258    (defvar *saved-default-float-format* *read-default-float-format*)
    258259    (setf *read-default-float-format* 'double-float))
    259260
     
    28732874(setf sys::*simple-format-function* #'format)
    28742875
     2876(eval-when (:compile-toplevel :execute)
     2877    ;; the code below needs to its floats to be read as long-floats
     2878    (setf *read-default-float-format* *saved-default-float-format*))
     2879
     2880
    28752881(provide 'format)
Note: See TracChangeset for help on using the changeset viewer.