Plaster

common-lisp
(defmacro with-retry (form) `(loop (restart-case (return ,form) (continue ()))