diff options
author | Colin Okay <cbeok@protonmail.com> | 2020-04-13 05:53:14 -0500 |
---|---|---|
committer | Colin Okay <cbeok@protonmail.com> | 2020-04-13 05:53:14 -0500 |
commit | b75b4f3f7b3f9a2cb53ef5720402502a82f431aa (patch) | |
tree | 10f990084a9763c386542f9acb9aac909da7f3d1 | |
parent | c201386ab04c2629f608630974aa6c3d6b0a9bf6 (diff) |
start wraps sync in minimal error handling
-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) |