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