diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 7fbc7fbbdc0c4eec90f6c432a358a553f0145a4c..f218a59b67c5641c4f8fba9ffe4d4520816d6196 100644 --- a/ansi-tests/rt.lsp +++ b/ansi-tests/rt.lsp @@ -146,10 +146,11 @@ them.") |# ((typep x 'array) - (let ((size (array-total-size x))) - (loop for i from 0 below size - always (equalp-with-case (row-major-aref x i) - (row-major-aref y i))))) + (and (typep y 'array) + (let ((size (array-total-size x))) + (loop for i from 0 below size + always (equalp-with-case (row-major-aref x i) + (row-major-aref y i)))))) (t (eql x y))))