Handle timeout

utils.lisp

@@ -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)