zl:1 - FTP

fmakunbound 232
var becomes greater than expr2. Each of the expressions is evaluated only
once, and the to and by phrases can be written in either order.
Note that the to variant appropriate for the direction of stepping must be used for
the endtest to be formed correctly; that is, the code does not work if expr3
is negative or O.
data-type defaults to f'lXIlUtn. The keyword as is equivalent to the keyword for.
Examples:
(defun loop1 0
(loop for i from 1 to 18
collect i» => LOOP1
(loop1) => (1 2 3 4 5 6 7 8 9 18)
(defun loop2 0
(loop for i from 8 to 5 by 1
do
(princ i») => LOOP2
(loop2) => 812345NIL
(defun loop3(inc)
(loop as x from 8 by inc to (+ inc 4)
do
(princ x)
(setq x (+ x 1»» => LOOP3
(loop3 1) => 924NIL
for var {data-type} from exprl downto expr2 {by expr3}
To iterate downward. Performs numeric iteration. var is initialized to
exprl, and on each succeeding iteration is decremented by expr3, and the
endtest is adjusted accordingly.
Examples:
(defun loop3 0
(loop for my-number from 7 by 2 downto -2
do
(princ my-number) (princ " H»~) => LOOP3
(loop3) => 7 5 3 1 -1 NIL
for var {data-type} from exprl {below expr2} {byexpr3}
Loop will terminate when the variable of iteration, exprl, is greater than or
equal to some terminal value, expr2.
Examples: