marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Generate pseudo uuid

Browse source
This commit is contained in:
Marcus Kammer 2024-05-31 21:18:52 +02:00
parent d4b78a3ac4
commit bae891b673
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/handlers.lisp
View file

@ -26,6 +26,12 @@
;; (and (starts-with-subseq "/survey/" uri) ;; (and (starts-with-subseq "/survey/" uri)
;; (every #'digit-char-p id)))) ;; (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 string-empty-p (string) (= (length string) 0))
(defun split-uri (uri) (defun split-uri (uri)