56 |
collect (+ x y)) |
collect (+ x y)) |
57 |
(3 7 11)) |
(3 7 11)) |
58 |
|
|
59 |
(deftest loop.2.10 |
(deftest loop.2.11 |
60 |
(loop for (x y) of-type fixnum in '((1 2) (3 4) (5 6)) |
(loop for (x y) of-type fixnum in '((1 2) (3 4) (5 6)) |
61 |
collect (+ x y)) |
collect (+ x y)) |
62 |
(3 7 11)) |
(3 7 11)) |
63 |
|
|
64 |
(deftest loop.2.11 |
(deftest loop.2.12 |
65 |
(loop for (x y) of-type (fixnum fixnum) in '((1 2) (3 4) (5 6)) |
(loop for (x y) of-type (fixnum fixnum) in '((1 2) (3 4) (5 6)) |
66 |
collect (+ x y)) |
collect (+ x y)) |
67 |
(3 7 11)) |
(3 7 11)) |
68 |
|
|
69 |
|
|
70 |
(deftest loop.2.11 |
(deftest loop.2.13 |
71 |
(loop for (x . y) of-type (fixnum . fixnum) in '((1 . 2) (3 . 4) (5 . 6)) |
(loop for (x . y) of-type (fixnum . fixnum) in '((1 . 2) (3 . 4) (5 . 6)) |
72 |
collect (+ x y)) |
collect (+ x y)) |
73 |
(3 7 11)) |
(3 7 11)) |
74 |
|
|
75 |
(deftest loop.2.12 |
(deftest loop.2.14 |
76 |
(classify-error |
(classify-error |
77 |
(loop for x in '(a b c) |
(loop for x in '(a b c) |
78 |
for x in '(d e f) collect x)) |
for x in '(d e f) collect x)) |
79 |
programm-error) |
programm-error) |
80 |
|
|
81 |
(deftest loop.2.13 |
(deftest loop.2.15 |
82 |
(classify-error |
(classify-error |
83 |
(loop for (x . x) in '((a b) (c d)) collect x)) |
(loop for (x . x) in '((a b) (c d)) collect x)) |
84 |
programm-error) |
programm-error) |
85 |
|
|
86 |
(deftest loop.2.14 |
(deftest loop.2.16 |
87 |
(loop for nil in nil do (return t)) |
(loop for nil in nil do (return t)) |
88 |
nil) |
nil) |
89 |
|
|