Macro: WHILE

Source

(defmacro while (test &body body)
  `(do ()
       ((not ,test))
    ,@body))