diff --git a/tests.lisp b/tests.lisp index 7983aa6962ed0e58d715461bd631f599e7221f3e..89bbf8122bf680926c114b70070b10ac1dc58e78 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))))