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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Aug 21 11:58:07 2011
New Revision: 13527

Log:
Improved readability.

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	Sun Aug 21 11:46:22 2011	(r13526)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sun Aug 21 11:58:07 2011	(r13527)
@@ -3654,8 +3654,8 @@
             (t
              (compile-form subform nil nil)
              (unless must-clear-values
-               (unless (single-valued-p subform)
-                 (setf must-clear-values t))))))
+               (setf must-clear-values
+                     (single-valued-p subform))))))
     (label END-BLOCK)
     (emit 'goto EXIT)
     (when (tagbody-non-local-go-p block)