Changeset 12766

Timestamp:

06/25/10 20:44:23 (13 years ago)

Author:

ehuelsmann

Message:

Fix #101: Regression in 0.20 where dispatch macros return NIL.

File:

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

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

@@ -524 +524 @@
         if (value == NIL) {
             LispObject[] values = thread._values;
-            if (values != null && values.length == 0)
+            if (values != null && values.length == 0) {
                 value = null;
+                thread._values = null; // reset 'no values' indicator
+            }
         }
         return value;