From 2aca97b1d99ea8162a5e03be4879e91bb06f71cb Mon Sep 17 00:00:00 2001
From: Luis Oliveira <loliveira@common-lisp.net>
Date: Sun, 27 Jul 2008 06:01:30 +0300
Subject: [PATCH] amend COPY-SEQUENCE.1

- can't assume that (upgraded-array-element-type 'fixnum)
---
 tests.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests.lisp b/tests.lisp
index 7983aa6..89bbf81 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -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))))
-- 
GitLab