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 +
 mulkcms.lisp             | 23 ++++++++++++-----------
 2 files changed, 13 insertions(+), 11 deletions(-)

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*)))
diff --git a/mulkcms.lisp b/mulkcms.lisp
index e1a24dc..3a13215 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -25,17 +25,18 @@
 (defun make-uuid ()
   ;; Taken from Mulkblog.
   "Generate a version 4 UUID according to RFC 4122, section 4.4."
-  (format nil "~(~8,'0x-~4,'0x-~4,'0x-~2,'0x~2,'0x-~12,'0x~)"
-          (random #x100000000)                ;time_low
-          (random #x10000)                    ;time_mid
-          (logior #b0100000000000000
-                  (logand #b0000111111111111
-                          (random #x10000)))  ;time_hi_and_version
-          (logior #b10000000
-                  (logand #b00111111
-                          (random #x100)))    ;clock_seq_hi_and_reserved
-          (random #x100)                      ;clock_seq_low
-          (random #x1000000000000)))
+  (let ((*random-state* (make-random-state t)))
+    (format nil "~(~8,'0x-~4,'0x-~4,'0x-~2,'0x~2,'0x-~12,'0x~)"
+            (random #x100000000)                ;time_low
+            (random #x10000)                    ;time_mid
+            (logior #b0100000000000000
+                    (logand #b0000111111111111
+                            (random #x10000)))  ;time_hi_and_version
+            (logior #b10000000
+                    (logand #b00111111
+                            (random #x100)))    ;clock_seq_hi_and_reserved
+            (random #x100)                      ;clock_seq_low
+            (random #x1000000000000))))
 
 
 (defmacro dynamic-lambda ((&rest dynvars) lambda-list &body body)
-- 
cgit v1.2.3