Commit 6929a33f authored by Stas Boukarev's avatar Stas Boukarev

Fix a typo in coerce.

VECTOR => VECTORP.

Reported by Chris Schafmeister.
parent d9e3be46
......@@ -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)
(concatenate type object))
(t
(if (or (listp object) (vector object))
(if (or (listp object) (vectorp object))
(concatenate type object)
(error-coerce object type)))))
((eq (setq aux (first type)) 'COMPLEX)
......@@ -721,7 +721,7 @@ if not possible."
(unless (typep aux type)
(error-coerce object type))
aux)
((or (listp object) (vector object))
((or (listp object) (vectorp object))
(concatenate type object))
(t
(error-coerce object type))))
......
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