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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Apr  8 02:04:29 2009
New Revision: 11748

Log:
Revert r11746. It turns out to break the ANSI test suite and I don't know why.
  To be reinstated when I gain that insight.

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	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Stream.java	Wed Apr  8 02:04:29 2009
@@ -518,14 +518,8 @@
       }
     else
       {
-        SpecialBinding lastSpecialBinding = thread.lastSpecialBinding;
-        try {
-            thread.bindSpecial(_SHARP_EQUAL_ALIST_, NIL);
-            return faslReadPreservingWhitespace(eofError, eofValue, true, thread);
-        }
-        finally {
-            thread.lastSpecialBinding = lastSpecialBinding;
-        }
+        thread.bindSpecial(_SHARP_EQUAL_ALIST_, NIL);
+        return faslReadPreservingWhitespace(eofError, eofValue, true, thread);
       }
   }