@@ -11,6 +11,12 @@
(progn
(funcall func)
(setf backoff *backoff-start*))
+ (timeout (e)
+ (log:error e)
+ (log:info "Backing off for" backoff)
+ (sleep backoff)
+ (setf backoff (min *backoff-max*
+ (* 2 backoff))))))))
(error (e)
(log:error e)
(log:info "Backing off for" backoff)
