Parent Directory | Revision Log | Patch
revision 1.8 by pfdietz, Sun Mar 2 14:25:07 2003 UTC | revision 1.9 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 70 | Line 70 |
70 | (number 'bad) | (number 'bad) |
71 | (#.(find-class 'symbol nil) 'good)) | (#.(find-class 'symbol nil) 'good)) |
72 | good) | good) |
73 | ||
74 | (deftest typecase.16 | |
75 | (block done | |
76 | (tagbody | |
77 | (typecase 'a (symbol (go 10) | |
78 | 10 | |
79 | (return-from done 'bad))) | |
80 | 10 | |
81 | (return-from done 'good))) | |
82 | good) | |
83 | ||
84 | (deftest typecase.17 | |
85 | (block done | |
86 | (tagbody | |
87 | (typecase 'a | |
88 | (integer 'bad) | |
89 | (t (go 10) | |
90 | 10 | |
91 | (return-from done 'bad))) | |
92 | 10 | |
93 | (return-from done 'good))) | |
94 | good) | |
95 | ||
96 | ||
97 | ||
98 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |