Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 19 04:11:29 2002 UTC | revision 1.2 by pfdietz, Sat Nov 2 03:55:07 2002 UTC | |
---|---|---|
# | Line 11 | Line 11 |
11 | a) | a) |
12 | ||
13 | (deftest ctypecase.2 | (deftest ctypecase.2 |
14 | (let ((x 1)) | (classify-error |
15 | (classify-error (ctypecase x (symbol 'a)))) | (let ((x 1)) |
16 | (ctypecase x (symbol 'a)))) | |
17 | type-error) | type-error) |
18 | ||
19 | (deftest ctypecase.3 | (deftest ctypecase.3 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |