[cron] setf random state

macros.lisp

@@ -119,6 +119,7 @@
         (scheduler (symbol-append name '-scheduler)))
     `(progn
        (defun ,name ()
+         (setf *random-state* (make-random-state t))
          (unwind-protect
               (handler-case (progn ,@body)
                 (error (e) (log:error "~A" e)))