;; Define an until macro
(defmacro until (test &rest body)
  `(do ()
       (,test)
     ,@body))

;; While macro
(defmacro while (test &rest body)
  `(do ()
       ((not ,test))
     ,@body))