diff --git a/src/handlers.lisp b/src/handlers.lisp
index b0b3bd9..365e367 100644
--- a/src/handlers.lisp
+++ b/src/handlers.lisp
@@ -26,6 +26,12 @@
 ;;     (and (starts-with-subseq "/survey/" uri)
 ;;          (every #'digit-char-p id))))
 
+(defun generate-uuid ()
+  (parse-integer (format nil "~A~A~A"
+                         (sb-posix:getpid)
+                         (get-universal-time)
+                         (random 1000000))))
+
 (defun string-empty-p (string) (= (length string) 0))
 
 (defun split-uri (uri)