diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-22 19:31:31 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-22 19:31:31 +0100 |
| commit | 916e3feddbdb95d5e664520d57cfbb4b7865a1eb (patch) | |
| tree | 9c4d0ef8fbf57a8d8be4b425bf73de50aaf631ec /mulkcms-hunchentoot.lisp | |
| parent | 92a69aa1d05458473f89e9d072a9d97c108adad9 (diff) | |
Generate a new random state for each invocation of MAKE-UUID.
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
| -rw-r--r-- | mulkcms-hunchentoot.lisp | 1 |
1 files changed, 1 insertions, 0 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*))) |