454 |
;;; Error cases |
;;; Error cases |
455 |
|
|
456 |
(deftest map-into.error.1 |
(deftest map-into.error.1 |
457 |
(signals-error (map-into 'a #'(lambda () nil)) type-error) |
(check-type-error #'(lambda (x) (map-into x (constantly nil))) #'sequencep) |
458 |
t) |
nil) |
459 |
|
|
460 |
;;; The next test was changed because if the first argument |
;;; The next test was changed because if the first argument |
461 |
;;; is NIL, map-into is said to 'return nil immediately', so |
;;; is NIL, map-into is said to 'return nil immediately', so |
469 |
nil) |
nil) |
470 |
|
|
471 |
(deftest map-into.error.3 |
(deftest map-into.error.3 |
472 |
(signals-error (map-into (copy-seq '(a b c)) #'cons '(d e f) 100) |
(check-type-error #'(lambda (x) (map-into (copy-seq '(a b c)) #'cons '(d e f) x)) |
473 |
type-error) |
#'sequencep) |
474 |
t) |
nil) |
475 |
|
|
476 |
(deftest map-into.error.4 |
(deftest map-into.error.4 |
477 |
(signals-error (map-into) program-error) |
(signals-error (map-into) program-error) |