[armedbear-cvs] r11568 - trunk/abcl/src/org/armedbear/lisp
Erik Huelsmann
ehuelsmann at common-lisp.net
Sun Jan 18 22:14:51 UTC 2009
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*)
More information about the armedbear-cvs
mailing list