|
@@ -472,24 +472,28 @@
|
|
|
(clon:make-scheduler
|
|
(clon:make-scheduler
|
|
|
(clon:make-typed-cron-schedule :minute '* :hour '*)
|
|
(clon:make-typed-cron-schedule :minute '* :hour '*)
|
|
|
:allow-now-p t)
|
|
:allow-now-p t)
|
|
|
|
|
+ :name 'process-latest-akb
|
|
|
:thread t)
|
|
:thread t)
|
|
|
(clon:schedule-function
|
|
(clon:schedule-function
|
|
|
(lambda () (process-latest-checkins))
|
|
(lambda () (process-latest-checkins))
|
|
|
(clon:make-scheduler
|
|
(clon:make-scheduler
|
|
|
(clon:make-typed-cron-schedule :minute '* :hour '*)
|
|
(clon:make-typed-cron-schedule :minute '* :hour '*)
|
|
|
:allow-now-p t)
|
|
:allow-now-p t)
|
|
|
|
|
+ :name 'process-latest-checkins
|
|
|
:thread t)
|
|
:thread t)
|
|
|
(clon:schedule-function
|
|
(clon:schedule-function
|
|
|
(lambda () (process-rates))
|
|
(lambda () (process-rates))
|
|
|
(clon:make-scheduler
|
|
(clon:make-scheduler
|
|
|
(clon:make-typed-cron-schedule :minute '* :hour '*)
|
|
(clon:make-typed-cron-schedule :minute '* :hour '*)
|
|
|
:allow-now-p t)
|
|
:allow-now-p t)
|
|
|
|
|
+ :name 'process-rates
|
|
|
:thread t)
|
|
:thread t)
|
|
|
(clon:schedule-function
|
|
(clon:schedule-function
|
|
|
(lambda () (process-feeds))
|
|
(lambda () (process-feeds))
|
|
|
(clon:make-scheduler
|
|
(clon:make-scheduler
|
|
|
(clon:make-typed-cron-schedule :minute '* :hour '*)
|
|
(clon:make-typed-cron-schedule :minute '* :hour '*)
|
|
|
:allow-now-p t)
|
|
:allow-now-p t)
|
|
|
|
|
+ :name 'process-feeds
|
|
|
:thread t)
|
|
:thread t)
|
|
|
;; Start getUpdates thread
|
|
;; Start getUpdates thread
|
|
|
(bordeaux-threads:make-thread
|
|
(bordeaux-threads:make-thread
|