128 |
(not (equal (array-dimensions x) |
(not (equal (array-dimensions x) |
129 |
(array-dimensions y)))) |
(array-dimensions y)))) |
130 |
nil) |
nil) |
131 |
;; I should use ROW-MAJOR-AREF to do this, but that's broken |
#| |
|
;; in GCL right now. |
|
132 |
((and (typep x 'array) |
((and (typep x 'array) |
133 |
(= (array-rank x) 2)) |
(= (array-rank x) 2)) |
134 |
(let ((dim (array-dimensions x))) |
(let ((dim (array-dimensions x))) |
136 |
always (loop for j from 0 below (second dim) |
always (loop for j from 0 below (second dim) |
137 |
always (equalp-with-case (aref x i j) |
always (equalp-with-case (aref x i j) |
138 |
(aref y i j)))))) |
(aref y i j)))))) |
139 |
|
|# |
140 |
|
|
141 |
|
((typep x 'array) |
142 |
|
(let ((size (array-total-size x))) |
143 |
|
(loop for i from 0 below size |
144 |
|
always (equalp-with-case (row-major-aref x i) |
145 |
|
(row-major-aref y i))))) |
146 |
|
|
147 |
(t (eql x y)))) |
(t (eql x y)))) |
148 |
|
|
149 |
(defun do-entry (entry &optional |
(defun do-entry (entry &optional |