Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Fri May 6 13:34:41 2005 UTC | revision 1.5 by pfdietz, Tue Jun 14 03:05:19 2005 UTC | |
---|---|---|
# | Line 94 | Line 94 |
94 | i x y z)) | i x y z)) |
95 | (1 2 3) 3 1 2 3) | (1 2 3) 3 1 2 3) |
96 | ||
97 | (def-fold-test maplist.fold.1 (maplist 'car '(a b c d e))) | |
98 | (def-fold-test maplist.fold.2 (maplist #'cadr '(a b c d e))) | |
99 | ||
100 | ;;; Error tests | |
101 | ||
102 | (deftest maplist.error.1 | (deftest maplist.error.1 |
103 | (check-type-error #'(lambda (x) (maplist #'identity x)) #'listp) | (check-type-error #'(lambda (x) (maplist #'identity x)) #'listp) |
104 | nil) | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |