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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat May  9 14:01:56 2009
New Revision: 11848

Log:
Eliminate style warnings for variables LOCALLY DECLAREd SPECIAL,
by letting the compiler know about the declaration.

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 May  9 14:01:56 2009
@@ -239,7 +239,12 @@
              (multiple-value-bind (forms decls)
                  (parse-body (cdr form) nil)
                (process-optimization-declarations decls)
-               (process-toplevel-progn forms stream compile-time-too)
+               (let* ((jvm::*visible-variables* jvm::*visible-variables*)
+                      (specials (process-special-declarations decls)))
+                 (dolist (special specials)
+                   (push (jvm::make-variable :name special :special-p t)
+                         jvm::*visible-variables*))
+                 (process-toplevel-progn forms stream compile-time-too))
                (return-from process-toplevel-form))))
           (PROGN
            (process-toplevel-progn (cdr form) stream compile-time-too)