/[gcl]/gcl/ansi-tests/tagbody.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/tagbody.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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        

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26