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

Erik Huelsmann ehuelsmann at common-lisp.net
Thu May 21 21:39:36 UTC 2009


Author: ehuelsmann
Date: Thu May 21 17:39:34 2009
New Revision: 11922

Log:
Simplify COMPILE-1.

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	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Thu May 21 17:39:34 2009
@@ -8220,17 +8220,16 @@
       ;; Pass 1.
       (p1-compiland compiland)
       (setf *closure-variables*
-            (remove-if-not #'variable-used-non-locally-p *all-variables*))
-      (when *closure-variables*
-        (setf *closure-variables*
-              (remove-if #'variable-special-p *closure-variables*))
-        (when *closure-variables*
-          (let ((i 0))
-            (dolist (var (reverse *closure-variables*))
-              (setf (variable-closure-index var) i)
-              (dformat t "var = ~S closure index = ~S~%" (variable-name var)
-                       (variable-closure-index var))
-              (incf i)))))
+            (remove-if #'variable-special-p
+                       (remove-if-not #'variable-used-non-locally-p
+                                      *all-variables*)))
+      (let ((i 0))
+        (dolist (var (reverse *closure-variables*))
+          (setf (variable-closure-index var) i)
+          (dformat t "var = ~S closure index = ~S~%" (variable-name var)
+                   (variable-closure-index var))
+          (incf i)))
+
       ;; Pass 2.
       (with-class-file (compiland-class-file compiland)
         (p2-compiland compiland)




More information about the armedbear-cvs mailing list