Quellcode durchsuchen

[macros] defcron use single thread for all runs

Innocenty Enikeev vor 8 Jahren
Ursprung
Commit
35dd7f0694
1 geänderte Dateien mit 3 neuen und 1 gelöschten Zeilen
  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))))