Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC | revision 1.3 by pfdietz, Tue Feb 11 23:29:19 2003 UTC | |
---|---|---|
# | Line 65 | Line 65 |
65 | (typecase 1 (symbol 'a) (otherwise)) | (typecase 1 (symbol 'a) (otherwise)) |
66 | nil) | nil) |
67 | ||
68 | (deftest typecase.15 | |
69 | (typecase 'foo (t :wrong) (symbol :right) (t :also-wrong)) | |
70 | :right) | |
71 | ||
72 | (deftest typecase.16 | |
73 | (typecase 'foo (t :wrong) (symbol :right)) | |
74 | :right) | |
75 | ||
76 | ||
77 | ||
78 | ||
79 | ||
80 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |