Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | revision 1.4 by pfdietz, Sun Apr 20 22:59:26 2003 UTC | |
---|---|---|
# | Line 50 | Line 50 |
50 | ;;; (deftest when.error.1 | ;;; (deftest when.error.1 |
51 | ;;; (classify-error (when)) | ;;; (classify-error (when)) |
52 | ;;; program-error) | ;;; program-error) |
53 | ||
54 | (deftest when.error.1 | |
55 | (classify-error (funcall (macro-function 'when))) | |
56 | program-error) | |
57 | ||
58 | (deftest when.error.2 | |
59 | (classify-error (funcall (macro-function 'when) | |
60 | '(when t))) | |
61 | program-error) | |
62 | ||
63 | (deftest when.error.3 | |
64 | (classify-error (funcall (macro-function 'when) | |
65 | '(when t) nil nil)) | |
66 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |