Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 13090)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 13091)
@@ -1572,2 +1572,10 @@
       t)
   t)
+
+(deftest ccl.symbol-macrolet-special
+    (let ((x :special))
+      (declare (special x))
+      (symbol-macrolet ((x :symbol-macro))
+        (values x (locally (declare (special x)) x))))
+  :symbol-macro
+  :special)