Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 19 04:11:29 2002 UTC | revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC | |
---|---|---|
# | Line 57 | Line 57 |
57 | (typecase 1 (integer) (t 'a)) | (typecase 1 (integer) (t 'a)) |
58 | nil) | nil) |
59 | ||
60 | (deftest typecase.13 | |
61 | (typecase 1 (symbol 'a) (t)) | |
62 | nil) | |
63 | ||
64 | (deftest typecase.14 | |
65 | (typecase 1 (symbol 'a) (otherwise)) | |
66 | nil) | |
67 | ||
68 | ||
69 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |