Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC | revision 1.3 by pfdietz, Sun Mar 2 14:25:07 2003 UTC | |
---|---|---|
# | Line 52 | Line 52 |
52 | (deftest etypecase.11 | (deftest etypecase.11 |
53 | (etypecase 1 (integer) (t 'a)) | (etypecase 1 (integer) (t 'a)) |
54 | nil) | nil) |
55 | ||
56 | (deftest etypecase.12 | |
57 | (etypecase 'a | |
58 | (number 'bad) | |
59 | (#.(find-class 'symbol nil) 'good)) | |
60 | good) | |
61 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |