Changeset 11848

Timestamp:

05/09/09 18:01:56 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (1 diff)

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

@@ -240 +240 @@
                  (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