diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp index 5086099ee97f4010017bc67beba8daf47a9d64ad..6ef56a47bd4442c43b34e75e171a3b6d172796e3 100644 --- a/ansi-tests/make-sequence.lsp +++ b/ansi-tests/make-sequence.lsp @@ -472,7 +472,7 @@ (deftest make-sequence.error.15 :notes (:result-type-element-type-by-subtype) (if (subtypep '(or (vector bit) (vector t)) 'vector) - (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) type-error) + (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) error) t) t)