370 |
(deftest map-into.error.6 |
(deftest map-into.error.6 |
371 |
(classify-error (locally (map-into 'a #'(lambda () nil)) t)) |
(classify-error (locally (map-into 'a #'(lambda () nil)) t)) |
372 |
type-error) |
type-error) |
373 |
|
|
374 |
|
;;; Order of evaluation tests |
375 |
|
|
376 |
|
(deftest map-into.order.1 |
377 |
|
(let ((i 0) a b c) |
378 |
|
(values |
379 |
|
(map-into (progn (setf a (incf i)) (list 1 2 3 4)) |
380 |
|
(progn (setf b (incf i)) #'identity) |
381 |
|
(progn (setf c (incf i)) '(a b c d))) |
382 |
|
i a b c)) |
383 |
|
(a b c d) 3 1 2 3) |
384 |
|
|
385 |
|
(deftest map-into.order.2 |
386 |
|
(let ((i 0) a b c d) |
387 |
|
(values |
388 |
|
(map-into (progn (setf a (incf i)) (list 1 2 3 4)) |
389 |
|
(progn (setf b (incf i)) #'list) |
390 |
|
(progn (setf c (incf i)) '(a b c d)) |
391 |
|
(progn (setf d (incf i)) '(e f g h))) |
392 |
|
i a b c d)) |
393 |
|
((a e) (b f) (c g) (d h)) 4 1 2 3 4) |