Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Oct 19 01:45:01 2002 UTC | revision 1.3 by pfdietz, Sat Feb 8 06:23:02 2003 UTC | |
---|---|---|
# | Line 153 | Line 153 |
153 | (deftest case.31 | (deftest case.31 |
154 | (case (values 'b 'c) (c 0) ((a b) 10) (t 20)) | (case (values 'b 'c) (c 0) ((a b) 10) (t 20)) |
155 | 10) | 10) |
156 | ||
157 | (deftest case.32 | |
158 | (case 'a (a) (t 'b)) | |
159 | nil) | |
160 | ||
161 | (deftest case.33 | |
162 | (case 'a (b 'b) (t)) | |
163 | nil) | |
164 | ||
165 | (deftest case.34 | |
166 | (case 'a (b 'b) (otherwise)) | |
167 | nil) | |
168 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |