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