Commit 8cd2577a authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix call-with-retries so it rethrows the error if too many retries

parent e22cd964

src/clpm/utils.lisp

+2 −1
Changes for src/clpm/utils.lisp: 2 added lines, 1 removed line.
Original line number Diff line number Diff line
@@ -65,7 +65,8 @@ process." 
               (incf num-tries)

               (format *error-output* "Sleeping and retrying~%")

               (sleep sleep)

               (go top))))))))

               (go top))

             (error e)))))))



(defmacro with-retries ((&key (max 3) (sleep 1)) &body body)

  `(call-with-retries (lambda () ,@body) :max ,max :sleep ,sleep))