Commit d732c762 authored by pfdietz's avatar pfdietz

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

parent c8a1700a
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment