@@ -11,13 +11,7 @@
(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)
+ (condition (e)
(log:error e)
(log:info "Backing off for" backoff)
(sleep backoff)
