114 |
(typep a2 'array) |
(typep a2 'array) |
115 |
(= (array-rank a1) (array-rank a2)) |
(= (array-rank a1) (array-rank a2)) |
116 |
(if (= (array-rank a1) 0) |
(if (= (array-rank a1) 0) |
117 |
(equal (rt::my-aref a1) (rt::my-aref a2)) |
(equal (regression-test::my-aref a1) (regression-test::my-aref a2)) |
118 |
(let ((ad (array-dimensions a1))) |
(let ((ad (array-dimensions a1))) |
119 |
(and (equal ad (array-dimensions a2)) |
(and (equal ad (array-dimensions a2)) |
120 |
(locally |
(locally |
123 |
(let ((as (first ad))) |
(let ((as (first ad))) |
124 |
(loop |
(loop |
125 |
for i from 0 below as |
for i from 0 below as |
126 |
always (equal (rt::my-aref a1 i) (rt::my-aref a2 i)))) |
always (equal (regression-test::my-aref a1 i) |
127 |
|
(regression-test::my-aref a2 i)))) |
128 |
(let ((as (array-total-size a1))) |
(let ((as (array-total-size a1))) |
129 |
(and (= as (array-total-size a2)) |
(and (= as (array-total-size a2)) |
130 |
(loop |
(loop |
131 |
for i from 0 below as |
for i from 0 below as |
132 |
always (equal (rt::my-row-major-aref a1 i) |
always |
133 |
(rt::my-row-major-aref a2 i)))))))))))) |
(equal |
134 |
|
(regression-test::my-row-major-aref a1 i) |
135 |
|
(regression-test::my-row-major-aref a2 i)) |
136 |
|
)))))))))) |
137 |
|
|
138 |
;;; *universe* is defined elsewhere -- it is a list of various |
;;; *universe* is defined elsewhere -- it is a list of various |
139 |
;;; lisp objects used when stimulating things in various tests. |
;;; lisp objects used when stimulating things in various tests. |