diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-04-22 08:23:06 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-04-22 08:23:06 -0500 |
| commit | 504dd83798f522d0dd0a1c9a6045c3f1e7448616 (patch) | |
| tree | 3478b967eb1171574a7e524f4a790a5b86b259a1 | |
| parent | 4ce3ba965ec8011acdeaa079250d5050aa26f22b (diff) | |
printing a date with sync errors
| -rw-r--r-- | granolin.asd | 2 | ||||
| -rw-r--r-- | granolin.lisp | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/granolin.asd b/granolin.asd index 35fb34e..4ca567a 100644 --- a/granolin.asd +++ b/granolin.asd @@ -6,7 +6,7 @@ :license "AGPLv3.0" :version "0.0.1" :serial t - :depends-on (#:drakma #:jonathan) + :depends-on (#:drakma #:jonathan #:local-time) :components ((:file "package") (:file "macros") (:file "utils") diff --git a/granolin.lisp b/granolin.lisp index 62718d1..c0bd998 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -592,7 +592,9 @@ (unwind-protect (loop :while (running-p client) :do (handler-case (sync client) - (error (c) (format *error-output* "Error during Event Sync: ~a~%~%" c)))) + (error (c) (format *error-output* "~a Error during Event Sync: ~a~%~%" + (local-time:now) + c)))) (clean-up client))) (defun stop (client) |