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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 147  Line 147 
147  (deftest ecase.32  (deftest ecase.32
148    (ecase 'a (a) (b 'b))    (ecase 'a (a) (b 'b))
149    nil)    nil)
150    
151    ;;; No implicit tagbody
152    (deftest ecase.33
153      (block done
154        (tagbody
155         (ecase 'a (a (go 10)
156                      10
157                      (return-from done 'bad)))
158         10
159         (return-from done 'good)))
160      good)

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

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