Changeset 13079

Timestamp:

Oct 21, 2009, 7:35:56 PM (15 years ago)

Author:

Gary Byers

Message:

In %SYMBOL-MACROEXPAND-1: stop searching through env if symbol
is declared SPECIAL (e.g., SPECIAL declarations shadow symbol-macro
bindings.)

File:

• trunk/source/level-1/l1-readloop.lisp (modified) (1 diff)

trunk/source/level-1/l1-readloop.lisp

@@ -267 +267 @@
             (return)))
         (let* ((vars (lexenv.variables env)))
+          (dolist (vdecl (lexenv.vdecls env))
+            (if (and (eq (car vdecl) sym)
+                     (eq (cadr vdecl) 'special))
+              (return-from %symbol-macroexpand-1 (values sym nil))))
           (when (consp vars)
             (let* ((info (dolist (var vars)