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 100 | Line 100 |
100 | (a b c) 3 1 2 3) | (a b c) 3 1 2 3) |
101 | ||
102 | (deftest mapl.error.1 | (deftest mapl.error.1 |
103 | (signals-error (mapl #'identity 1) type-error) | (check-type-error #'(lambda (x) (mapl #'identity x)) #'sequencep) |
104 | t) | nil) |
105 | ||
106 | (deftest mapl.error.2 | (deftest mapl.error.2 |
107 | (signals-error (mapl) program-error) | (signals-error (mapl) program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |