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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Aug  8 16:48:49 2009
New Revision: 12090

Log:
Use PROCESS-DECLARATIONS-FOR-VARS in compile-file.lisp.

Rationale: Use package internals which return the required information,
so that we don't need to create it ourselves.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Sat Aug  8 16:48:49 2009
@@ -245,10 +245,10 @@
                  (parse-body (cdr form) nil)
                (process-optimization-declarations decls)
                (let* ((jvm::*visible-variables* jvm::*visible-variables*)
-                      (specials (process-special-declarations decls)))
+                      (specials (jvm::process-declarations-for-vars (cdr form)
+                                                                    nil nil)))
                  (dolist (special specials)
-                   (push (jvm::make-variable :name special :special-p t)
-                         jvm::*visible-variables*))
+                   (push special jvm::*visible-variables*))
                  (process-toplevel-progn forms stream compile-time-too))
                (return-from process-toplevel-form))))
           (PROGN