Changeset 11746

Timestamp:

04/06/09 20:43:51 (14 years ago)

Author:

ehuelsmann

Message:

Fix reader memory leak.

File:

• trunk/abcl/src/org/armedbear/lisp/Stream.java (modified) (1 diff)

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

@@ -519 +519 @@
     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;
+        }
       }
   }