Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |