Skip to content
Snippets Groups Projects
Commit afc28140 authored by pfdietz's avatar pfdietz
Browse files

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
No related branches found
No related tags found
No related merge requests found
...@@ -472,7 +472,7 @@ ...@@ -472,7 +472,7 @@
(deftest make-sequence.error.15 (deftest make-sequence.error.15
:notes (:result-type-element-type-by-subtype) :notes (:result-type-element-type-by-subtype)
(if (subtypep '(or (vector bit) (vector t)) 'vector) (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)
t) t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment