(defmacro retrying (n &body body)
  (alexandria:with-gensyms (out loop)
    (alexandria:once-only (n)
      `(block ,out
         (loop :named ,(gensym)
               :repeat ,n)
         (block ,loop
           (handler-bind
               ((error (lambda (c)
                         (declare (ignore c))
                         (return-from ,loop))))
             ,@body
             (return-from ,out)))
         (format t "Exceeded!~%")))))

(retrying (+ 1 2)
  (when (zerop (random 2))
    (format t "Signaling an error!~%")
    (error "Error"))
  (format t "Hi!~%"))