Skip to content
Snippets Groups Projects
Commit d732c762 authored by pfdietz's avatar pfdietz
Browse files

Added a test showing a bug in GCL's handling of symbol-macrolet.

parent c8a1700a
No related branches found
No related tags found
No related merge requests found
......@@ -120,6 +120,12 @@
((a2) (%m a1 a2))
((a2) (%m a1 a2)))
;;; Interaction with symbol-macrolet
(deftest macrolet.13
(symbol-macrolet ((a b))
(macrolet ((foo (x &environment env)
(let ((y (macroexpand x env)))
(if (eq y 'a) 1 2))))
(foo a)))
2)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment