zl:1 - FTP

for
234
(defun loop-downfrom (num)
(loop for x downfrom 8 by num
do
(print x») => LOOP-OOWNFROH
(loop-downfrom 1)
8
7
6
5 ... ;infinite
for var {data-type} upfrom exprl {byexpr2}
Used to iterate upward with no limit.
Examples:
(defun loop-upfrom ()
(loop for x upfrom -2 by 2
do
(print x») => LOOP-UPFROH
(loop-upfrom)
-2
B
2
4 ... ;infinite
for var {data-type} in exprl {by expr2}
Iterates over each of the elements in the list exprl. If the by subclause is
present, expr2 is evaluated once on entry to the loop to supply the function
to be used to fetch successive sublists, instead of cdr.
Examples:
(defun loop1 (input-list)
(loop for x in input-list
for i from B
do
(prine (list i x»» => LOOP1
(loop1 '(a b (e d) e» => (B A)(1 8)(2 (C 0»(3 E)NIL
for var {data-type} on exprl {byexpr2}
Like the previous for format, except that var is set to successive sublists of
the list instead of successive elements. Note that since var is always a list,
it is not meaningful to specify a data-type unless var is a destructuring pattern,
as described in the section on destructuring. Note also that loop uses
a null rather than an atom test to implement both this and the preceding
clause.