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

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

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

revision 1.5 by pfdietz, Sun Mar 2 14:25:07 2003 UTC revision 1.6 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 86  Line 86 
86               (#.(find-class 'symbol nil) 'good))               (#.(find-class 'symbol nil) 'good))
87    good)    good)
88    
89    (deftest ctypecase.14
90      (block done
91        (tagbody
92         (let ((x 'a))
93           (ctypecase x (symbol (go 10)
94                                10
95                                (return-from done 'bad))))
96         10
97         (return-from done 'good)))
98      good)
99    

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