From 2d1f46f3164e939e68215e53bd1362001b2422e3 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 30 Sep 2003 11:40:12 +0000 Subject: [PATCH] Test that macros are not expanded into tags. --- ansi-tests/tagbody.lsp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/ansi-tests/tagbody.lsp b/ansi-tests/tagbody.lsp index fd373e17..5f43df3e 100644 --- a/ansi-tests/tagbody.lsp +++ b/ansi-tests/tagbody.lsp @@ -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) + + -- GitLab