Changeset 13092


Ignore:
Timestamp:
Oct 22, 2009, 10:04:24 PM (10 years ago)
Author:
gz
Message:

r13079 from trunk (fix symbol-macrolet vs special)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-readloop.lisp

    r13070 r13092  
    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.