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

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Apr  6 16:43:51 2009
New Revision: 11746

Log:
Fix reader memory leak.

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	Mon Apr  6 16:43:51 2009
@@ -518,8 +518,14 @@
       }
     else
       {
-        thread.bindSpecial(_SHARP_EQUAL_ALIST_, NIL);
-        return faslReadPreservingWhitespace(eofError, eofValue, true, thread);
+        SpecialBinding lastSpecialBinding = thread.lastSpecialBinding;
+        try {
+            thread.bindSpecial(_SHARP_EQUAL_ALIST_, NIL);
+            return faslReadPreservingWhitespace(eofError, eofValue, true, thread);
+        }
+        finally {
+            thread.lastSpecialBinding = lastSpecialBinding;
+        }
       }
   }