mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix a typo in coerce.

Browse source 
VECTOR => VECTORP.

Reported by Chris Schafmeister.
This commit is contained in:
Stas Boukarev 2014-07-13 01:38:24 +04:00
parent d9e3be4605
commit 6929a33f38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/predlib.lsp
View file

@ -702,7 +702,7 @@ if not possible."
((VECTOR SIMPLE-VECTOR #+unicode SIMPLE-BASE-STRING SIMPLE-STRING #+unicode BASE-STRING STRING BIT-VECTOR SIMPLE-BIT-VECTOR) ((VECTOR SIMPLE-VECTOR #+unicode SIMPLE-BASE-STRING SIMPLE-STRING #+unicode BASE-STRING STRING BIT-VECTOR SIMPLE-BIT-VECTOR)
(concatenate type object)) (concatenate type object))
(t (t
(if (or (listp object) (vector object)) (if (or (listp object) (vectorp object))
(concatenate type object) (concatenate type object)
(error-coerce object type))))) (error-coerce object type)))))
((eq (setq aux (first type)) 'COMPLEX) ((eq (setq aux (first type)) 'COMPLEX)
@ -721,7 +721,7 @@ if not possible."
(unless (typep aux type) (unless (typep aux type)
(error-coerce object type)) (error-coerce object type))
aux) aux)
((or (listp object) (vector object)) ((or (listp object) (vectorp object))
(concatenate type object)) (concatenate type object))
(t (t
(error-coerce object type)))) (error-coerce object type))))