Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.4 by pfdietz, Fri May 6 13:34:41 2005 UTC | |
---|---|---|
# | Line 74 | Line 74 |
74 | (a b c) 3 1 2 3) | (a b c) 3 1 2 3) |
75 | ||
76 | (deftest mapc.error.1 | (deftest mapc.error.1 |
77 | (signals-error (mapc #'identity 1) type-error) | (check-type-error #'(lambda (x) (mapc #'identity x)) #'listp) |
78 | t) | nil) |
79 | ||
80 | (deftest mapc.error.2 | (deftest mapc.error.2 |
81 | (signals-error (mapc) program-error) | (signals-error (mapc) program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |