Commit 2aca97b1 authored by Luís Oliveira's avatar Luís Oliveira
Browse files

amend COPY-SEQUENCE.1

- can't assume that (upgraded-array-element-type 'fixnum)
parent 70b027d9
......@@ -1143,7 +1143,8 @@
(member v (list v.vector v.list v.string))
(equal l.list l)
(equalp l.vector #(1 2 3))
(eq 'fixnum (array-element-type l.spec-v))
(eql (upgraded-array-element-type 'fixnum)
(array-element-type l.spec-v))
(equalp v.vector v)
(equal v.list '(#\a #\b #\c))
(equal "abc" v.string))))
......
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