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