Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Feb 17 11:54:02 2003 UTC | revision 1.3 by pfdietz, Mon Feb 17 12:25:11 2003 UTC | |
---|---|---|
# | Line 33 | Line 33 |
33 | (let ((i 0)) | (let ((i 0)) |
34 | (values (if (= (incf i) 1) 't nil) i)) | (values (if (= (incf i) 1) 't nil) i)) |
35 | t 1) | t 1) |
(deftest if.error.1 | ||
(classify-error (if)) | ||
program-error) | ||
(deftest if.error.2 | ||
(classify-error (if t 1 2 3)) | ||
program-error) | ||
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |