Changeset 13529


Ignore:
Timestamp:
08/21/11 20:12:11 (10 years ago)
Author:
ehuelsmann
Message:

Aesthetics.

File:
1 edited

Legend:

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

    r13528 r13529  
    31253125           (emit-move-from-stack target)))
    31263126        (t
    3127          (let ((clear-values nil)
    3128                (tail body))
    3129            (loop
    3130              (let ((form (car tail)))
    3131                (cond ((null (cdr tail))
    3132                       ;; Last form.
    3133                       (when clear-values
    3134                         (emit-clear-values))
    3135                       (compile-form form target representation)
    3136                       (return))
    3137                      (t
    3138                       ;; Not the last form.
    3139                       (compile-form form nil nil)
    3140                       (unless clear-values
    3141                         (unless (single-valued-p form)
    3142                           (setq clear-values t)))))
    3143                (setq tail (cdr tail)))))))
     3127         (loop
     3128            with clear-values = nil
     3129            for tail on body
     3130            for form = (car tail)
     3131            do (cond
     3132                 ((null (cdr tail))
     3133                  ;; Last form.
     3134                  (when clear-values
     3135                    (emit-clear-values))
     3136                  (compile-form form target representation)
     3137                  (return))
     3138                 (t
     3139                  ;; Not the last form.
     3140                  (compile-form form nil nil)
     3141                  (unless clear-values
     3142                    (unless (single-valued-p form)
     3143                      (setq clear-values t))))))))
    31443144  t)
    31453145
Note: See TracChangeset for help on using the changeset viewer.