Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Sat Feb 22 01:37:02 2003 UTC | revision 1.8 by pfdietz, Sun Mar 2 14:25:07 2003 UTC | |
---|---|---|
# | Line 64 | Line 64 |
64 | (deftest typecase.14 | (deftest typecase.14 |
65 | (typecase 1 (symbol 'a) (otherwise)) | (typecase 1 (symbol 'a) (otherwise)) |
66 | nil) | nil) |
67 | ||
68 | (deftest typecase.15 | |
69 | (typecase 'a | |
70 | (number 'bad) | |
71 | (#.(find-class 'symbol nil) 'good)) | |
72 | good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |