Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -146,10 +146,11 @@ them.") ...@@ -146,10 +146,11 @@ them.")
|# |#
((typep x 'array) ((typep x 'array)
(let ((size (array-total-size x))) (and (typep y 'array)
(loop for i from 0 below size (let ((size (array-total-size x)))
always (equalp-with-case (row-major-aref x i) (loop for i from 0 below size
(row-major-aref y i))))) always (equalp-with-case (row-major-aref x i)
(row-major-aref y i))))))
(t (eql x y)))) (t (eql x y))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment