summaryrefslogtreecommitdiff
path: root/test-macroexpand-dammit.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'test-macroexpand-dammit.lisp')
-rw-r--r--test-macroexpand-dammit.lisp10
1 files changed, 10 insertions, 0 deletions
diff --git a/test-macroexpand-dammit.lisp b/test-macroexpand-dammit.lisp
new file mode 100644
index 0000000..5de8bd1
--- /dev/null
+++ b/test-macroexpand-dammit.lisp
@@ -0,0 +1,10 @@
+(require :macroexpand-dammit)
+
+(defmacro f () 1)
+
+(defmacro macroexpand-dammit-here (form &environment env)
+ `',(macroexpand-dammit:macroexpand-dammit form env))
+
+(macrolet ((f () 2)) (macroexpand-dammit-here (macrolet () (f))))
+
+(macrolet ((f () 2)) (macrolet () (f)))