diff --git a/cl/khal-notify.lisp b/cl/khal-notify.lisp index 5225511..4ef7f62 100644 --- a/cl/khal-notify.lisp +++ b/cl/khal-notify.lisp @@ -152,7 +152,7 @@ (program-start-now (local-time:now)) (alarms (build-alarm-list calendar-dirs program-start-now)) (last-update (local-time:now))) - (loop + (loop (let ((now (local-time:now))) (when (local-time:timestamp<= (local-time:timestamp+ last-update 1 :minute) now)