(in-package :mfa-tool)
 
 (defmacro with-retry (form &body restart-cases)
   `(loop (restart-case (return ,form)
            (continue ())
            ,@restart-cases)))
 
 (defmacro with-retry* (bindings &body body)
   `(loop
      (restart-bind (,@bindings)
        ,@(butlast body)
        ,(cons 'return (last body)))))
 
 (defmacro safely-invoke-restart (name condition &rest args)
   (alexandria:with-gensyms (restart)
     `(alexandria:when-let ((,restart (find-restart ,name ,condition)))
        (invoke-restart ,restart ,@args))))