Commit 74ab65ac authored by ram's avatar ram
Browse files

In COERCE-TO-SMALLEST-ELTYPE, coerce to a SIMPLE-ARRAY, not just a VECTOR.

parent 3db589e0
...@@ -263,7 +263,7 @@ ...@@ -263,7 +263,7 @@
(frob))))) (frob)))))
(if max (if max
(coerce seq `(vector (integer 0 ,max))) (coerce seq `(simple-array (integer 0 ,max)))
(coerce seq 'simple-vector)))) (coerce seq 'simple-vector))))
......
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