Fix extra space
This commit is contained in:
@@ -152,7 +152,7 @@
|
|||||||
(program-start-now (local-time:now))
|
(program-start-now (local-time:now))
|
||||||
(alarms (build-alarm-list calendar-dirs program-start-now))
|
(alarms (build-alarm-list calendar-dirs program-start-now))
|
||||||
(last-update (local-time:now)))
|
(last-update (local-time:now)))
|
||||||
(loop
|
(loop
|
||||||
(let ((now (local-time:now)))
|
(let ((now (local-time:now)))
|
||||||
(when (local-time:timestamp<= (local-time:timestamp+ last-update 1 :minute)
|
(when (local-time:timestamp<= (local-time:timestamp+ last-update 1 :minute)
|
||||||
now)
|
now)
|
||||||
|
|||||||
Reference in New Issue
Block a user