Просмотр исходного кода

[macros] defcron use single thread for all runs

Innocenty Enikeev 8 лет назад
Родитель
Сommit
35dd7f0694
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      macros.lisp

+ 3 - 1
macros.lisp

@@ -148,6 +148,8 @@
                   (clon:make-typed-cron-schedule
                    ,@schedule)
                   :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))
        (add-hook :starting ',scheduler))))