Changeset 13527

Timestamp:

08/21/11 18:58:07 (10 years ago)

Author:

ehuelsmann

Message:

Improved readability.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

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

@@ -3655 +3655 @@
              (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)