176 |
for v = (make-array '(10) :initial-contents fvals :element-type type) |
for v = (make-array '(10) :initial-contents fvals :element-type type) |
177 |
for r = (loop for x across v collect x) |
for r = (loop for x across v collect x) |
178 |
unless (equal r fvals) |
unless (equal r fvals) |
179 |
collect (list i r))) |
collect (list fvals r))) |
180 |
nil) |
nil) |
181 |
|
|
182 |
(deftest loop.5.43 |
(deftest loop.5.43 |
187 |
for v = (make-array '(10) :initial-contents fvals :element-type type) |
for v = (make-array '(10) :initial-contents fvals :element-type type) |
188 |
for r = (loop for x across v collect x) |
for r = (loop for x across v collect x) |
189 |
unless (equal r fvals) |
unless (equal r fvals) |
190 |
collect (list i r))) |
collect (list fvals r))) |
191 |
nil) |
nil) |
192 |
|
|
193 |
;;; Error cases |
;;; Error cases |