repeat

(repeat entero expresión...)

Evalúa las expresiones el número de veces indicado. Devuelve el valor de la última.

(setq n 1)
(repeat 4 (setq n (* n 2)))   ; 16