r10861: increase pause for reconnection

diff --git a/logger.lisp b/logger.lisp
index cb1a2430633082e774b653f3d57065bbdd8b87fa..a6aea52c6495a8fe80c97a334686fff044793d8c 100644 (file)
--- a/logger.lisp
+++ b/logger.lisp
@@ -821,13 +821,14 @@
                           :formats *recon-formats*)))
       (cond
        (new-logger
-       (sleep 20)
+       (sleep 240)
        (cond
          ((is-connected new-logger)
           (log-reconnection new-logger))
          (t
           (log-daemon-message new-logger "Newly added logger is not connected. Removing connection and will re-attempt.")
           (ignore-errors (remove-logger new-logger))
+          (sleep 60)
           (setq new-logger nil))))
        (t
         (log-daemon-message nil "Got NIL for new logger. Waiting and retrying.")