Commit 2d1f46f3 authored by pfdietz's avatar pfdietz
Browse files

Test that macros are not expanded into tags.

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