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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jan 18 21:04:07 2009
New Revision: 11566

Log:
Make sure to dump all floats with exponent marker, because when loaded, the default may differ.

Modified:
   trunk/abcl/src/org/armedbear/lisp/dump-form.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/dump-form.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/dump-form.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/dump-form.lisp	Sun Jan 18 21:04:07 2009
@@ -112,7 +112,10 @@
         (*print-level* nil)
         (*print-length* nil)
         (*print-circle* nil)
-        (*print-structure* t))
+        (*print-structure* t)
+        ;; make sure to write all floats with their exponent marker:
+        ;; the dump-time default may not be the same at load-time
+        (*read-default-float-format* nil))
     (dump-object form stream)))
 
 (provide 'dump-form)