diff --git a/ansi-tests/map-into.lsp b/ansi-tests/map-into.lsp index 53e034b8be3612b395add02bccce92777d3700d9..cc0c1f42e288f0b7ff7e101dbe4cc342c8ae1b15 100644 --- a/ansi-tests/map-into.lsp +++ b/ansi-tests/map-into.lsp @@ -351,9 +351,15 @@ (classify-error (map-into 'a #'(lambda () nil))) type-error) +;;; The next test was changed because if the first argument +;;; is NIL, map-into is said to 'return nil immediately', so +;;; the 'should be prepared' notation for the error checking +;;; means that error checking may be skipped. (deftest map-into.error.2 - (classify-error (map-into nil #'identity 'a)) - type-error) + (case (classify-error (map-into nil #'identity 'a)) + ((nil type-error) 'good) + (t 'bad)) + good) (deftest map-into.error.3 (classify-error (map-into (copy-seq '(a b c)) #'cons '(d e f) 100))