Changeset 516

Timestamp:

Feb 10, 2004, 11:06:59 AM (21 years ago)

Author:

Gary Byers

Message:

VARIABLE-INFORMATION returns :SPECIAL if visible binding is proclaimed (but not declared) SPECIAL.

File:

• trunk/ccl/compiler/nx-basic.lisp (modified) (1 diff)

trunk/ccl/compiler/nx-basic.lisp

@@ -208 +208 @@
                               (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))))))