[cron] revert per-cron-thread and random-state storage

macros.lisp

@@ -137,11 +137,12 @@
         (scheduler (symbol-append name '-scheduler)))
     `(progn
        (defun ,name ()
-         (with-random-state
-           (unwind-protect
-                (handler-case (progn ,@body)
-                  (error (e) (log:error "~A" e)))
-             (dex:clear-connection-pool))))
+	 (unwind-protect
+	      (handler-case
+		  (let ((*random-state* (make-random-state t)))
+		    ,@body)
+		(error (e) (log:error "~A" e)))
+	   (dex:clear-connection-pool)))
        (defun ,scheduler ()
          (clon:schedule-function
           ',name (clon:make-scheduler
@@ -149,7 +150,6 @@
                    ,@schedule)
                   :allow-now-p t)
           :name ',name
-          :thread (bt:make-thread (lambda () (loop (sleep 1)))
-                                  :name (format nil "Sleeper '~A'" (symbol-name ',name))))
+          :thread t)
          (values))
        (add-hook :starting ',scheduler))))