Commit afc28140 authored by pfdietz's avatar pfdietz

Relax make-sequence.error.15 since it's only specified to produce an error,...

Relax make-sequence.error.15 since it's only specified to produce an error, not necessarily a type-error
parent 691d6164
......@@ -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)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment