Changeset 13079 for trunk/source/level-1


Ignore:
Timestamp:
Oct 22, 2009, 2:35:56 AM (10 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop.lisp

    r13067 r13079  
    267267            (return)))
    268268        (let* ((vars (lexenv.variables env)))
     269          (dolist (vdecl (lexenv.vdecls env))
     270            (if (and (eq (car vdecl) sym)
     271                     (eq (cadr vdecl) 'special))
     272              (return-from %symbol-macroexpand-1 (values sym nil))))
    269273          (when (consp vars)
    270274            (let* ((info (dolist (var vars)
Note: See TracChangeset for help on using the changeset viewer.