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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jan 18 22:14:51 2009
New Revision: 11568

Log:
Restore *read-base* and *read-default-float-format* after compiling a file.

They could have been changed (and in our case the latter *is*) during file compilation.


Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Sun Jan 18 22:14:51 2009
@@ -418,6 +418,8 @@
         (with-compilation-unit ()
           (with-open-file (out temp-file :direction :output :if-exists :supersede)
             (let ((*readtable* *readtable*)
+                  (*read-default-float-format* *read-default-float-format*)
+                  (*read-base* *read-base*)
                   (*package* *package*)
                   (*speed* *speed*)
                   (*space* *space*)