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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Jun 25 16:44:23 2010
New Revision: 12766

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

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	Fri Jun 25 16:44:23 2010
@@ -523,8 +523,10 @@
         // If we're looking at zero return values, set 'value' to null
         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;
     }