mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 11:40:45 -07:00
Code Issues Projects Releases Packages Wiki Activity

cmp: check types on coerce-to-vector

Browse source
This commit is contained in:
Fabrizio Fabbri 2017-07-08 09:26:09 +02:00
parent 604c87126d
commit 088972cace
No known key found for this signature in database
GPG key ID: 8276EDF3D10E6C35
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/seq.lsp
View file

@ -230,6 +230,8 @@ default value of INITIAL-ELEMENT depends on TYPE."
(eq (array-element-type object) elt-type))
(let* ((final-length (if (eq length '*) (length object) length)))
(setf output (make-vector elt-type final-length nil nil nil 0))
(unless (eq length '*)
(check-type output `(vector ,elt-type (,length)) "coerced object"))
(do ((i (make-seq-iterator object) (seq-iterator-next output i))
(j 0 (truly-the index (1+ j))))
((= j final-length)