Changeset 13019


Ignore:
Timestamp:
11/11/10 10:46:42 (11 years ago)
Author:
ehuelsmann
Message:

Don't manually iterate through subforms, use
available function for it.

File:
1 edited

Legend:

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

    r12997 r13019  
    27532753    (emit-getfield +lisp-thread+ "_values" +lisp-object-array+)
    27542754    (astore values-register)
    2755     (dolist (subform subforms)
    2756       (compile-form subform nil nil))
     2755    (compile-progn-body subforms nil nil)
    27572756    ;; Restore multiple values returned by first subform.
    27582757    (emit-push-current-thread)
Note: See TracChangeset for help on using the changeset viewer.