138 |
0) |
0) |
139 |
|
|
140 |
(deftest nth-2 |
(deftest nth-2 |
141 |
(handler-case |
(let ((x (loop for i from 1 to 2000 collect i))) |
142 |
(let ((x (loop for i from 1 to 2000 collect i))) |
(loop |
143 |
(loop |
for i from 0 to 1999 do |
144 |
for i from 0 to 1999 do |
(setf (nth i x) (- 1999 i))) |
145 |
(setf (nth i x) (- 1999 i))) |
(equalt x (loop for i from 1999 downto 0 collect i))) |
|
(equal x (loop for i from 1999 downto 0 collect i))) |
|
|
(error (c) c)) |
|
146 |
t) |
t) |
147 |
|
|
148 |
;;; Test side effects, evaluation order in assignment to NTH |
;;; Test side effects, evaluation order in assignment to NTH |