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

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

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

revision 1.3 by pfdietz, Sun Mar 2 14:25:07 2003 UTC revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 59  Line 59 
59      (#.(find-class 'symbol nil) 'good))      (#.(find-class 'symbol nil) 'good))
60    good)    good)
61    
62    (deftest etypecase.13
63      (block nil
64        (tagbody
65         (let ((x 'a))
66           (etypecase x (symbol (go 10)
67                                10
68                                (return 'bad))))
69         10
70         (return 'good)))
71      good)
72    
73    

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