Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Wed Feb 12 02:19:29 2003 UTC | revision 1.5 by pfdietz, Wed Feb 12 02:25:41 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 | ;;; (deftype otherwise () nil) | |
69 | ||
70 | (deftest typecase.15 | |
71 | (typecase 'foo (otherwise :wrong) (t :right)) | |
72 | :right) | |
73 | ||
74 | (deftest typecase.16 | |
75 | (typecase 'foo (otherwise :wrong) (symbol :right) (t :wrong2)) | |
76 | :right) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |