167 |
until (>= i 6) |
until (>= i 6) |
168 |
finally (return i)) |
finally (return i)) |
169 |
6) |
6) |
170 |
|
|
171 |
|
;;; More tests of a bug that showed up in c.l.l |
172 |
|
|
173 |
|
(deftest loop.11.29 |
174 |
|
(loop for i in '(4 8 9 A 13) |
175 |
|
when (eq i 'a) return :good |
176 |
|
while (< i 12) collect i) |
177 |
|
:good) |
178 |
|
|
179 |
|
(deftest loop.11.30 |
180 |
|
(loop for i in '(4 8 9 A 13) |
181 |
|
unless (numberp i) return :good |
182 |
|
while (< i 12) collect i) |
183 |
|
:good) |
184 |
|
|
185 |
|
(deftest loop.11.31 |
186 |
|
(loop for i in '(4 8 9 A 13) |
187 |
|
when (eq i 'a) return :good |
188 |
|
until (> i 12) collect i) |
189 |
|
:good) |
190 |
|
|
191 |
|
(deftest loop.11.32 |
192 |
|
(loop for i in '(4 8 9 A 13) |
193 |
|
unless (numberp i) return :good |
194 |
|
until (> i 12) collect i) |
195 |
|
:good) |
196 |
|
|
197 |
|
|
198 |
|
|