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

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

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

revision 1.5 by pfdietz, Mon Feb 17 13:25:22 2003 UTC revision 1.6 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 166  Line 166 
166    (case 'a (b 'b) (otherwise))    (case 'a (b 'b) (otherwise))
167    nil)    nil)
168    
169    ;;; No implicit tagbody
170    (deftest case.35
171      (block done
172        (tagbody
173         (case 'a (a (go 10)
174                     10
175                     (return-from done 'bad)))
176         10
177         (return-from done 'good)))
178      good)
179    
180    (deftest case.36
181      (block done
182        (tagbody
183         (case 'b
184           (a 'bad)
185           (otherwise (go 10)
186                      10
187                      (return-from done 'bad)))
188         10
189         (return-from done 'good)))
190      good)
191    
192    
193    
194  ;;; (deftest case.error.1  ;;; (deftest case.error.1
195  ;;;  (classify-error (case))  ;;;  (classify-error (case))
196  ;;;  program-error)  ;;;  program-error)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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