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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Sep 19 13:44:03 2011
New Revision: 13599

Log:
Make sure every form has its own reader circularity context
- at least until we have a FASL global context.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Load.java

Modified: trunk/abcl/src/org/armedbear/lisp/Load.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Load.java	Mon Sep 19 13:32:50 2011	(r13598)
+++ trunk/abcl/src/org/armedbear/lisp/Load.java	Mon Sep 19 13:44:03 2011	(r13599)
@@ -608,7 +608,9 @@
 
             in.setExternalFormat(_FASL_EXTERNAL_FORMAT_.symbolValue(thread));
             while (true) {
-                LispObject obj = in.read(false, EOF, true, thread, Stream.faslReadtable);
+                LispObject obj = in.read(false, EOF, false,  // should be 'true' once we
+                                                             // have a FASL wide object table
+                                         thread, Stream.faslReadtable);
                 if (obj == EOF)
                     break;
                 result = eval(obj, env, thread);