[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