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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Feb  5 08:46:06 2009
New Revision: 11625

Log:
Fix COERCE.20 (a regression since 0.12).

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	Thu Feb  5 08:46:06 2009
@@ -255,6 +255,7 @@
 
 (eval-when (:compile-toplevel :execute)
     ;; the code below needs to its floats to be read as long-floats
+    (defvar *saved-default-float-format* *read-default-float-format*)
     (setf *read-default-float-format* 'double-float))
 
 (defun scale-exponent (original-x)
@@ -2872,4 +2873,9 @@
 
 (setf sys::*simple-format-function* #'format)
 
+(eval-when (:compile-toplevel :execute)
+    ;; the code below needs to its floats to be read as long-floats
+    (setf *read-default-float-format* *saved-default-float-format*))
+
+
 (provide 'format)