[armedbear-cvs] r13529 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Aug 21 13:12:11 2011
New Revision: 13529

Log:
Aesthetics.

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sun Aug 21 13:03:44 2011	(r13528)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sun Aug 21 13:12:11 2011	(r13529)
@@ -3124,23 +3124,23 @@
            (emit-push-nil)
            (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)
 
 (defun restore-dynamic-environment (register)