From b75b4f3f7b3f9a2cb53ef5720402502a82f431aa Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 13 Apr 2020 05:53:14 -0500 Subject: start wraps sync in minimal error handling --- granolin.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/granolin.lisp b/granolin.lisp index 1ae6433..0fff9b4 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -503,7 +503,8 @@ (setf (running-p client) t) (unwind-protect (loop :while (running-p client) - :do (sync client)) + :do (handler-case (sync client) + (error (c) (format *error-output* "error: ~a" c)))) (clean-up client))) (defun stop (client) -- cgit v1.2.3