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

Diff of /gcl/ansi-tests/ccase.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 181  Line 181 
181        (2 nil))))        (2 nil))))
182    :good)    :good)
183    
184    ;;; No implicit tagbody
185    (deftest ccase.32
186      (block done
187        (tagbody
188         (let ((x 'a))
189           (ccase x (a (go 10)
190                       10
191                       (return-from done 'bad))))
192         10
193         (return-from done 'good)))
194      good)
195    
196    
197  ;;; (deftest ccase.error.1  ;;; (deftest ccase.error.1
198  ;;;  (classify-error (ccase))  ;;;  (classify-error (ccase))
199  ;;;  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