@@ -326,3 +326,13 @@

   `(eval-when (:load-toplevel :compile-toplevel :execute)

      (defun ,name ,args

        ,@body)))

+

+(defmacro retry-once (&body body)

+  (alexandria:with-gensyms (flag)

+    `(let ((,flag t))

+       (tagbody

+        start

+          ,@body

+          (when ,flag

+            (setf ,flag nil)

+            (go start))))))

@@ -33,7 +33,8 @@

            #:define-cluser-entrypoint #:new #:make-constructor #:dive

            #:empty-hash-table-like #:v-assoc #:defclass+

            #:closing

-           #:inits))

+           #:inits

+           #:retry-once))

 (defpackage :fwoar.lisputils.shortcuts