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 80 | Line 80 |
80 | ((a 1) (b 2) (c 3)) | ((a 1) (b 2) (c 3)) |
81 | 3 1 2 3) | 3 1 2 3) |
82 | ||
83 | (def-fold-test mapcar.fold.1 (mapcar 'identity '(a b c d))) | |
84 | (def-fold-test mapcar.fold.2 (mapcar 'not '(t nil nil t t))) | |
85 | ||
86 | ;;; Error tests | |
87 | ||
88 | (deftest mapcar.error.1 | (deftest mapcar.error.1 |
89 | (check-type-error #'(lambda (x) (mapcar #'identity x)) #'listp) | (check-type-error #'(lambda (x) (mapcar #'identity x)) #'listp) |
90 | nil) | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |