Index: /trunk/ccl/compiler/nx-basic.lisp
===================================================================
--- /trunk/ccl/compiler/nx-basic.lisp	(revision 515)
+++ /trunk/ccl/compiler/nx-basic.lisp	(revision 516)
@@ -208,5 +208,10 @@
                               (eq :symbol-macro (car (var-ea v))))
                        (setq vartype :symbol-macro)
-                       (unless vartype (setq vartype :lexical)))
+                       (unless vartype (setq vartype
+					     (let* ((bits (var-bits v)))
+					       (if (and (typep bits 'integer)
+							(logbitp $vbitspecial bits))
+						 :special
+						 :lexical)))))
                      (return)))
 		 (when vartype (return))))))