From 504dd83798f522d0dd0a1c9a6045c3f1e7448616 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 22 Apr 2020 08:23:06 -0500 Subject: printing a date with sync errors --- granolin.asd | 2 +- 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) -- cgit v1.2.3