Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 19 01:45:01 2002 UTC | revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC | |
---|---|---|
# | Line 143 | Line 143 |
143 | (deftest ecase.31 | (deftest ecase.31 |
144 | (ecase (values 'b 'c) (c 0) ((a b) 10) (d 20)) | (ecase (values 'b 'c) (c 0) ((a b) 10) (d 20)) |
145 | 10) | 10) |
146 | ||
147 | (deftest ecase.32 | |
148 | (ecase 'a (a) (b 'b)) | |
149 | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |