(defmacro when (condition &rest body) `(if ,condition (progn ,@body))) (defmacro unless (condition &rest body) `(if (not ,condition) (progn ,@body))) (loop for i from 1 to 10 collecting i) ==> (1 2 3 4 5 6 7 8 9 10) (loop for x from 1 to 10 summing (expt x 2)) ==> 385 (loop for x across "the quick brown fox jumps over the lazy dog" counting (find x "aeiou")) ==> 11 |