From 916e3feddbdb95d5e664520d57cfbb4b7865a1eb Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 22 Mar 2011 19:31:31 +0100
Subject: Generate a new random state for each invocation of MAKE-UUID.

---
 mulkcms-hunchentoot.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'mulkcms-hunchentoot.lisp')

diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp
index 90d8d31..9cd4b9c 100644
--- a/mulkcms-hunchentoot.lisp
+++ b/mulkcms-hunchentoot.lisp
@@ -34,6 +34,7 @@
   (setq hunchentoot:*default-content-type*
         "text/html; charset=utf-8")
   (setup-handlers)
+  (setq *random-state* (make-random-state t))
   (hunchentoot:start (make-instance 'hunchentoot:acceptor
                         :port *server-port*
                         :address *server-address*)))
-- 
cgit v1.2.3