Index: /branches/working-0711/ccl/level-1/l1-readloop.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-readloop.lisp	(revision 13091)
+++ /branches/working-0711/ccl/level-1/l1-readloop.lisp	(revision 13092)
@@ -267,4 +267,8 @@
 	    (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)