64 |
*mapc-6-var*))) |
*mapc-6-var*))) |
65 |
(h g f e d c b a)) |
(h g f e d c b a)) |
66 |
|
|
67 |
(deftest mapc-7 |
(deftest mapc.error.1 |
68 |
(classify-error (mapc #'identity 1)) |
(classify-error (mapc #'identity 1)) |
69 |
type-error) |
type-error) |
70 |
|
|
71 |
|
(deftest mapc.error.2 |
72 |
|
(classify-error (mapc)) |
73 |
|
program-error) |
74 |
|
|
75 |
|
(deftest mapc.error.3 |
76 |
|
(classify-error (mapc #'append)) |
77 |
|
program-error) |
78 |
|
|
79 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
80 |
;;; mapcar |
;;; mapcar |
81 |
|
|
139 |
(list *mapc-6-var* result)))) |
(list *mapc-6-var* result)))) |
140 |
((h g f e d c b a) (a b c d e f g h))) |
((h g f e d c b a) (a b c d e f g h))) |
141 |
|
|
142 |
(deftest mapcar-7 |
(deftest mapcar.error.1 |
143 |
(classify-error (mapcar #'identity 1)) |
(classify-error (mapcar #'identity 1)) |
144 |
type-error) |
type-error) |
145 |
|
|
146 |
|
(deftest mapcar.error.2 |
147 |
|
(classify-error (mapcar)) |
148 |
|
program-error) |
149 |
|
|
150 |
|
(deftest mapcar.error.3 |
151 |
|
(classify-error (mapcar #'append)) |
152 |
|
program-error) |
153 |
|
|
154 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
155 |
;;; mapcan |
;;; mapcan |
156 |
|
|
217 |
nil) |
nil) |
218 |
nil) |
nil) |
219 |
|
|
220 |
(deftest mapcan-10 |
(deftest mapcan.error.1 |
221 |
(classify-error (mapcan #'identity 1)) |
(classify-error (mapcan #'identity 1)) |
222 |
type-error) |
type-error) |
223 |
|
|
224 |
|
(deftest mapcan.error.2 |
225 |
|
(classify-error (mapcan)) |
226 |
|
program-error) |
227 |
|
|
228 |
|
(deftest mapcan.error.3 |
229 |
|
(classify-error (mapcan #'append)) |
230 |
|
program-error) |
231 |
|
|
232 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
233 |
;;; mapl |
;;; mapl |
234 |
|
|
309 |
((d 4) (c 3) (d 4) (b 2) (c 3) (d 4) |
((d 4) (c 3) (d 4) (b 2) (c 3) (d 4) |
310 |
(a 1) (b 2) (c 3) (d 4))) |
(a 1) (b 2) (c 3) (d 4))) |
311 |
|
|
312 |
(deftest mapl-6 |
(deftest mapl.error.1 |
313 |
(classify-error (mapl #'identity 1)) |
(classify-error (mapl #'identity 1)) |
314 |
type-error) |
type-error) |
315 |
|
|
316 |
|
(deftest mapl.error.2 |
317 |
|
(classify-error (mapl)) |
318 |
|
program-error) |
319 |
|
|
320 |
|
(deftest mapl.error.3 |
321 |
|
(classify-error (mapl #'append)) |
322 |
|
program-error) |
323 |
|
|
324 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
325 |
;;; maplist |
;;; maplist |
326 |
|
|
395 |
) |
) |
396 |
(a c c e e g g)) |
(a c c e e g g)) |
397 |
|
|
398 |
(deftest maplist-8 |
(deftest maplist.error.1 |
399 |
(classify-error (maplist #'identity 'a)) |
(classify-error (maplist #'identity 'a)) |
400 |
type-error) |
type-error) |
401 |
|
|
402 |
(deftest maplist-9 |
(deftest maplist.error.2 |
403 |
(classify-error (maplist #'identity 1)) |
(classify-error (maplist #'identity 1)) |
404 |
type-error) |
type-error) |
405 |
|
|
406 |
(deftest maplist-10 |
(deftest maplist.error.3 |
407 |
(classify-error (maplist #'identity 1.1323)) |
(classify-error (maplist #'identity 1.1323)) |
408 |
type-error) |
type-error) |
409 |
|
|
410 |
(deftest maplist-11 |
(deftest maplist.error.4 |
411 |
(classify-error (maplist #'identity "abcde")) |
(classify-error (maplist #'identity "abcde")) |
412 |
type-error) |
type-error) |
413 |
|
|
414 |
|
(deftest maplist.error.5 |
415 |
|
(classify-error (maplist)) |
416 |
|
program-error) |
417 |
|
|
418 |
|
(deftest maplist.error.6 |
419 |
|
(classify-error (maplist #'append)) |
420 |
|
program-error) |
421 |
|
|
422 |
|
|
423 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
424 |
;;; mapcan |
;;; mapcan |
425 |
|
|
452 |
result)) |
result)) |
453 |
(a b c d b c c d e d e e f)) |
(a b c d b c c d e d e e f)) |
454 |
|
|
455 |
(deftest mapcon-4 |
(deftest mapcon.error.1 |
456 |
(classify-error (mapcon #'identity 1)) |
(classify-error (mapcon #'identity 1)) |
457 |
type-error) |
type-error) |
458 |
|
|
459 |
|
(deftest mapcon.error.2 |
460 |
|
(classify-error (mapcon)) |
461 |
|
program-error) |
462 |
|
|
463 |
|
(deftest mapcon.error.3 |
464 |
|
(classify-error (mapcon #'append)) |
465 |
|
program-error) |
466 |
|
|
467 |
|
|