Parent Directory | Revision Log | Patch
revision 1.9 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | revision 1.10 by pfdietz, Sun Apr 20 22:59:26 2003 UTC | |
---|---|---|
# | Line 93 | Line 93 |
93 | (return-from done 'good))) | (return-from done 'good))) |
94 | good) | good) |
95 | ||
96 | (deftest typecase.error.1 | |
97 | (classify-error (funcall (macro-function 'typecase))) | |
98 | program-error) | |
99 | ||
100 | (deftest typecase.error.2 | |
101 | (classify-error (funcall (macro-function 'typecase) | |
102 | '(typecase t))) | |
103 | program-error) | |
104 | ||
105 | (deftest typecase.error.3 | |
106 | (classify-error (funcall (macro-function 'typecase) | |
107 | '(typecase t) | |
108 | nil nil)) | |
109 | program-error) | |
110 | ||
111 | ||
112 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |