94 |
counting x into foo |
counting x into foo |
95 |
collect foo) |
collect foo) |
96 |
(1 2 2 3 3 4)) |
(1 2 2 3 3 4)) |
97 |
|
|
98 |
|
(deftest loop.10.14 |
99 |
|
(loop for x in '(a b c) count (return 10)) |
100 |
|
10) |
101 |
|
|
102 |
|
|
103 |
;;; Tests of MAXIMIZE, MAXIMIZING |
;;; Tests of MAXIMIZE, MAXIMIZING |
198 |
program-error) |
program-error) |
199 |
|
|
200 |
|
|
201 |
|
(deftest loop.10.39 |
202 |
|
(loop for x in '(1 2 3) maximize (return 10)) |
203 |
|
10) |
204 |
|
|
205 |
;;; Tests of MINIMIZE, MINIMIZING |
;;; Tests of MINIMIZE, MINIMIZING |
206 |
|
|
207 |
(deftest loop.10.40 |
(deftest loop.10.40 |
299 |
finally (return foo))) |
finally (return foo))) |
300 |
program-error) |
program-error) |
301 |
|
|
302 |
|
(deftest loop.10.58a |
303 |
|
(loop for x in '(1 2 3) minimize (return 10)) |
304 |
|
10) |
305 |
|
|
306 |
;;; Tests combining MINIMIZE, MAXIMIZE |
;;; Tests combining MINIMIZE, MAXIMIZE |
307 |
|
|
308 |
(deftest loop.10.59 |
(deftest loop.10.59 |
440 |
sum (float (1+ i)) into bar float |
sum (float (1+ i)) into bar float |
441 |
finally (return (values foo bar))) |
finally (return (values foo bar))) |
442 |
10 14.0) |
10 14.0) |
443 |
|
|
444 |
|
(deftest loop.10.92 |
445 |
|
(loop for i from 1 to 4 sum (return 100)) |
446 |
|
100) |
447 |
|
|
448 |
|
(deftest loop.10.93 |
449 |
|
(loop for i from 1 to 4 summing (return 100)) |
450 |
|
100) |