Reset random state in webhook handler.

server.lisp

@@ -22,6 +22,7 @@
 (hunchentoot:define-easy-handler (webhook-handler :uri #'webhookp :default-request-type :post) ()
   (handler-case
       (let ((stream (hunchentoot:raw-post-data :want-stream t)))
+        (setf *random-state* (make-random-state t))
         (setf (flex:flexi-stream-external-format stream) :utf-8)
         (handle-update (yason:parse stream :object-as :alist)))
     (error (e) (log:error e))))