Changeset 13091

Timestamp:

Oct 22, 2009, 3:02:39 PM (15 years ago)

Author:

gz

Message:

Add test for symbol-macrolet/special interaction

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1572 +1572 @@
       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)