Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sat Nov 2 16:57:29 2002 UTC | revision 1.4 by pfdietz, Tue Sep 30 11:40:12 2003 UTC | |
---|---|---|
# | Line 159 | Line 159 |
159 | (eval form)) | (eval form)) |
160 | good) | good) |
161 | ||
162 | ;;; Check that macros are not expanded before finding tags | |
163 | ;;; Test for issue TAGBODY-TAG-EXPANSION | |
164 | (deftest tagbody.17 | |
165 | (block done | |
166 | (tagbody | |
167 | (macrolet ((foo () 'tag)) | |
168 | (let (tag) | |
169 | (tagbody | |
170 | (go tag) | |
171 | (foo) | |
172 | (return-from done :bad)))) | |
173 | tag | |
174 | (return-from done :good))) | |
175 | :good) | |
176 | ||
177 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |