Changeset 13092

Timestamp:

Oct 22, 2009, 3:04:24 PM (15 years ago)

Author:

gz

Message:

r13079 from trunk (fix symbol-macrolet vs special)

File:

• branches/working-0711/ccl/level-1/l1-readloop.lisp (modified) (1 diff)

branches/working-0711/ccl/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)