From a83eda1e78a468a57f9ad2926cd3d12639601d4a Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 31 May 2024 21:26:48 +0200
Subject: [PATCH] Move functions

---
 src/handlers.lisp | 8 --------
 src/main.lisp     | 8 ++++++++
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/handlers.lisp b/src/handlers.lisp
index 365e367..b2ea42a 100644
--- a/src/handlers.lisp
+++ b/src/handlers.lisp
@@ -26,14 +26,6 @@
 ;;     (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)
   (remove-if #'string-empty-p (uiop:split-string uri :separator "/")))
 
diff --git a/src/main.lisp b/src/main.lisp
index 9d753cd..2749834 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -49,3 +49,11 @@
                           :direction :output
                           :if-exists :supersede)
     (prin1 responses stream)))
+
+(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))