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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat May  9 14:07:35 2009
New Revision: 11849

Log:
Change compiler warning to include action taken
(undefined variable, taken to be a special variable).

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	Sat May  9 14:07:35 2009
@@ -947,7 +947,8 @@
                     (when (null variable)
 		      (unless (or (special-variable-p form)
                                   (memq form *undefined-variables*))
-			(compiler-style-warn "Undefined variable: ~S" form)
+			(compiler-style-warn
+                         "Undefined variable ~S assumed special" form)
 			(push form *undefined-variables*))
                       (setf variable (make-variable :name form :special-p t))
                       (push variable *visible-variables*))