Changeset 13527 for trunk/abcl/src/org


Ignore:
Timestamp:
08/21/11 18:58:07 (10 years ago)
Author:
ehuelsmann
Message:

Improved readability.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r13523 r13527  
    36553655             (compile-form subform nil nil)
    36563656             (unless must-clear-values
    3657                (unless (single-valued-p subform)
    3658                  (setf must-clear-values t))))))
     3657               (setf must-clear-values
     3658                     (single-valued-p subform))))))
    36593659    (label END-BLOCK)
    36603660    (emit 'goto EXIT)
Note: See TracChangeset for help on using the changeset viewer.