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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Aug 24 01:49:56 2011
New Revision: 13537

Log:
Follow up to r13527 fixes TAGBODY.3 and TAGBODY.4 regressions.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Tue Aug 23 14:34:33 2011	(r13536)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Wed Aug 24 01:49:56 2011	(r13537)
@@ -3647,7 +3647,7 @@
              (compile-form subform nil nil)
              (unless must-clear-values
                (setf must-clear-values
-                     (single-valued-p subform))))))
+                     (not (single-valued-p subform)))))))
     (label END-BLOCK)
     (emit 'goto EXIT)
     (when (tagbody-non-local-go-p block)