Changeset 13529

Timestamp:

08/21/11 20:12:11 (10 years ago)

Author:

ehuelsmann

Message:

Aesthetics.

File:

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

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

@@ -3125 +3125 @@
            (emit-move-from-stack target)))
         (t
-         (let ((clear-values nil)
-               (tail body))
-           (loop
-             (let ((form (car tail)))
-               (cond ((null (cdr tail))
-                      ;; Last form.
-                      (when clear-values
-                        (emit-clear-values))
-                      (compile-form form target representation)
-                      (return))
-                     (t
-                      ;; Not the last form.
-                      (compile-form form nil nil)
-                      (unless clear-values
-                        (unless (single-valued-p form)
-                          (setq clear-values t)))))
-               (setq tail (cdr tail)))))))
+         (loop
+            with clear-values = nil
+            for tail on body
+            for form = (car tail)
+            do (cond
+                 ((null (cdr tail))
+                  ;; Last form.
+                  (when clear-values
+                    (emit-clear-values))
+                  (compile-form form target representation)
+                  (return))
+                 (t
+                  ;; Not the last form.
+                  (compile-form form nil nil)
+                  (unless clear-values
+                    (unless (single-valued-p form)
+                      (setq clear-values t))))))))
   t)