|
|
@@ -214,7 +214,7 @@
|
|
|
(/ (getf period-info :total-period) 100))))
|
|
|
|
|
|
(defcron process-saver (:hour '*)
|
|
|
- (let* ((moment (encode-universal-time 0 0 12 21 4 2017))
|
|
|
+ (let* ((moment (get-universal-time))
|
|
|
(hour (nth 2 (multiple-value-list (decode-universal-time moment)))))
|
|
|
(when (>= hour *saver-notify-hour*)
|
|
|
(dolist (cp (saver/find-today-payments moment))
|
