Commit 2d1f46f3 authored by pfdietz's avatar pfdietz

Test that macros are not expanded into tags.

parent eb4c6d87
......@@ -159,3 +159,19 @@
(eval form))
good)
;;; Check that macros are not expanded before finding tags
;;; Test for issue TAGBODY-TAG-EXPANSION
(deftest tagbody.17
(block done
(tagbody
(macrolet ((foo () 'tag))
(let (tag)
(tagbody
(go tag)
(foo)
(return-from done :bad))))
tag
(return-from done :good)))
:good)
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