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