From 9c6acd3a1c2d9d1d1ffaafbaa54024e31df1d1f8 Mon Sep 17 00:00:00 2001 From: Florian MARGAINE Date: Sun, 18 Oct 2015 19:06:00 +0200 Subject: [PATCH] Retries more often in smaller delays --- daemon/can-login.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/daemon/can-login.lisp b/daemon/can-login.lisp index afb18e6..5cb9721 100644 --- a/daemon/can-login.lisp +++ b/daemon/can-login.lisp @@ -84,7 +84,9 @@ (defun find-hermes-device () ;; Retry multiple times over 5 seconds, a device can take some time to be ;; available in the OS. - (with-retries (6 1) + ;; To retry every 100ms over 5 seconds, you need to retry 60 times every + ;; 100ms. + (with-retries (60 1/100) (find-if #'is-hermes-device (remove-if-not #'is-storage-device (cl-fad:list-directory *devices-folder*)))))