diff options
| -rw-r--r-- | granolin.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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) |