46 |
x)) |
x)) |
47 |
((a a a a a) 3)) |
((a a a a a) 3)) |
48 |
|
|
|
(defvar *mapc.6-var* nil) |
|
|
(defun mapc.6-fun (x) |
|
|
(push x *mapc.6-var*) |
|
|
x) |
|
|
|
|
49 |
(deftest mapc.6 |
(deftest mapc.6 |
50 |
(let* ((x (copy-list '(a b c d e f g h))) |
(let* ((x (copy-list '(a b c d e f g h))) |
51 |
(xcopy (make-scaffold-copy x))) |
(xcopy (make-scaffold-copy x))) |
68 |
i x y z)) |
i x y z)) |
69 |
(a b c) 3 1 2 3) |
(a b c) 3 1 2 3) |
70 |
|
|
71 |
|
;;; Error tests |
72 |
|
|
73 |
(deftest mapc.error.1 |
(deftest mapc.error.1 |
74 |
(check-type-error #'(lambda (x) (mapc #'identity x)) #'listp) |
(check-type-error #'(lambda (x) (mapc #'identity x)) #'listp) |
75 |
nil) |
nil) |