|
@@ -148,6 +148,8 @@
|
|
|
(clon:make-typed-cron-schedule
|
|
(clon:make-typed-cron-schedule
|
|
|
,@schedule)
|
|
,@schedule)
|
|
|
:allow-now-p t)
|
|
:allow-now-p t)
|
|
|
- :name ',name :thread t)
|
|
|
|
|
|
|
+ :name ',name
|
|
|
|
|
+ :thread (bt:make-thread (lambda () (loop (sleep 1)))
|
|
|
|
|
+ :name (format nil "Sleeper '~A'" (symbol-name ',name))))
|
|
|
(values))
|
|
(values))
|
|
|
(add-hook :starting ',scheduler))))
|
|
(add-hook :starting ',scheduler))))
|