Changeset 13020


Ignore:
Timestamp:
11/11/10 11:55:54 (11 years ago)
Author:
ehuelsmann
Message:

Another 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

    r13019 r13020  
    65626562      (astore values-register)
    65636563      (let ((*register* *register*))
    6564         (dolist (subform cleanup-forms)
    6565           (compile-form subform nil nil)))
    6566       (maybe-emit-clear-values cleanup-forms)
     6564        (compile-progn-body cleanup-forms nil nil))
    65676565      (emit-push-current-thread)
    65686566      (aload values-register)
Note: See TracChangeset for help on using the changeset viewer.