while

(while prueba expresión...)

Repite las expresiones mientras la prueba no sea nil. Devuelve el valor de la última expresión evaluada.

(setq i 0)
(while (< i 3) (setq i (1+ i)))   ; 3