254 |
(deftest loop.1.49 |
(deftest loop.1.49 |
255 |
(loop for i from 1 to 5 for c upfrom #c(0 1) by 2 collect c) |
(loop for i from 1 to 5 for c upfrom #c(0 1) by 2 collect c) |
256 |
(#c(0 1) #c(2 1) #c(4 1) #c(6 1) #c(8 1))) |
(#c(0 1) #c(2 1) #c(4 1) #c(6 1) #c(8 1))) |
257 |
|
|
258 |
|
;;; The variable in the loop for-as-arithmetic clause |
259 |
|
;;; can be a d-var-spec, so 'NIL' should mean don't bind anything |
260 |
|
|
261 |
|
(deftest loop.1.50 |
262 |
|
(let ((i 0)) |
263 |
|
(loop for nil from 10 to 15 collect (incf i))) |
264 |
|
(1 2 3 4 5 6)) |
265 |
|
|
266 |
|
(deftest loop.1.51 |
267 |
|
(let ((i 0)) |
268 |
|
(loop for nil from 10 below 15 collect (incf i))) |
269 |
|
(1 2 3 4 5)) |
270 |
|
|
271 |
|
(deftest loop.1.52 |
272 |
|
(loop for nil from 10 to 0 collect 'a) |
273 |
|
nil) |
274 |
|
|
275 |
|
(deftest loop.1.53 |
276 |
|
(let ((i 0)) |
277 |
|
(loop for nil from 0 to 10 by 2 collect (incf i))) |
278 |
|
(1 2 3 4 5 6)) |
279 |
|
|
280 |
|
(deftest loop.1.54 |
281 |
|
(let ((i 0)) |
282 |
|
(loop for nil from 1 to 4 |
283 |
|
for nil from 1 to 10 collect (incf i))) |
284 |
|
(1 2 3 4)) |
285 |
|
|
286 |
|
(deftest loop.1.55 |
287 |
|
(let ((i 0)) |
288 |
|
(loop for nil from 5 downto 0 collect (incf i))) |
289 |
|
(1 2 3 4 5 6)) |
290 |
|
|
291 |
|
(deftest loop.1.56 |
292 |
|
(let ((i 0)) |
293 |
|
(loop for nil from 5 above 0 collect (incf i))) |
294 |
|
(1 2 3 4 5)) |
295 |
|
|
296 |
|
|