18 |
for j = (1+ i) collect j) |
for j = (1+ i) collect j) |
19 |
(2 3 4 5 6 7 8 9 10 11)) |
(2 3 4 5 6 7 8 9 10 11)) |
20 |
|
|
21 |
|
(deftest loop.4.3 |
22 |
|
(loop |
23 |
|
for i from 1 to 10 |
24 |
|
for j of-type integer = (1+ i) collect j) |
25 |
|
(2 3 4 5 6 7 8 9 10 11)) |
26 |
|
|
27 |
|
(deftest loop.4.4 |
28 |
|
(loop for e on '(a b c d e) |
29 |
|
for (x . y) = e |
30 |
|
collect x) |
31 |
|
(a b c d e)) |
32 |
|
|
33 |
|
(deftest loop.4.5 |
34 |
|
(loop for (x . y) = '(a b c d e) then y |
35 |
|
while x |
36 |
|
collect x) |
37 |
|
(a b c d e)) |
38 |
|
|
39 |
|
;;; Error cases |
40 |
|
|
41 |
|
(deftest loop.4.6 |
42 |
|
(classify-error |
43 |
|
(loop for (x . x) = '(nil nil nil) |
44 |
|
until x count t)) |
45 |
|
program-error) |
46 |
|
|
47 |
|
(deftest loop.4.7 |
48 |
|
(classify-error* |
49 |
|
(macroexpand '(loop for (x . x) = '(nil nil nil) |
50 |
|
until x count t))) |
51 |
|
program-error) |
52 |
|
|
53 |
|
(deftest loop.4.8 |
54 |
|
(classify-error* |
55 |
|
(macroexpand '(loop for x = '(nil nil nil) |
56 |
|
for x = 1 count x until t))) |
57 |
|
program-error) |