From bae891b6736fd4d3ed26878aadeaaf4b30b0b22a Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 31 May 2024 21:18:52 +0200 Subject: [PATCH] Generate pseudo uuid --- src/handlers.lisp | 6 ++++++ 1 file changed, 6 insertions(+) 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)