Commit 0790738d authored by pfdietz's avatar pfdietz
Browse files

Fixed problem in equalp-with-case when one element is an array and the other is not.

parent 319ad8a3
......@@ -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))))
......
Supports Markdown
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