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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Sep 19 13:32:50 2011
New Revision: 13598

Log:
Bind *SHARP-SHARP-ALIST* to NIL when starting a non-recursive
READ action; just like *SHARP-EQUAL-ALIST*.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Stream.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Stream.java	Sat Sep 17 13:46:45 2011	(r13597)
+++ trunk/abcl/src/org/armedbear/lisp/Stream.java	Mon Sep 19 13:32:50 2011	(r13598)
@@ -454,6 +454,8 @@
     // internal symbol
     private static final Symbol _SHARP_EQUAL_ALIST_ =
         internSpecial("*SHARP-EQUAL-ALIST*", PACKAGE_SYS, NIL);
+    private static final Symbol _SHARP_SHARP_ALIST_ =
+        internSpecial("*SHARP-SHARP-ALIST*", PACKAGE_SYS, NIL);
 
     public LispObject readPreservingWhitespace(boolean eofError,
                                                LispObject eofValue,
@@ -488,6 +490,7 @@
         } else {
             final SpecialBindingsMark mark = thread.markSpecialBindings();
             thread.bindSpecial(_SHARP_EQUAL_ALIST_, NIL);
+            thread.bindSpecial(_SHARP_SHARP_ALIST_, NIL);
             try {
                 return readPreservingWhitespace(eofError, eofValue, true,
                                                 thread, rta);