Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | revision 1.5 by pfdietz, Sun Apr 20 22:59:25 2003 UTC | |
---|---|---|
# | Line 70 | Line 70 |
70 | (return 'good))) | (return 'good))) |
71 | good) | good) |
72 | ||
73 | (deftest etypecase.error.1 | |
74 | (classify-error (funcall (macro-function 'etypecase))) | |
75 | program-error) | |
76 | ||
77 | (deftest etypecase.error.2 | |
78 | (classify-error (funcall (macro-function 'etypecase) | |
79 | '(etypecase t))) | |
80 | program-error) | |
81 | ||
82 | (deftest etypecase.error.3 | |
83 | (classify-error (funcall (macro-function 'etypecase) | |
84 | '(etypecase t) | |
85 | nil nil)) | |
86 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |