Move function

src/handlers/main.lisp

@@ -10,11 +10,6 @@
   (remove-if #'string-empty-p
              (uiop:split-string uri :separator "/")))
 
-(defun valid-survey-id-p (id)
-  (check-type id integer)
-  (let ((ids (mapcar #'car (load-response (make-surveys-db-path)))))
-    (if (member id ids) t nil)))
-
 (defun today ()
   "Return today's date formatted as ISO-8601."
   (local-time:format-timestring nil

src/handlers/survey.lisp

@@ -1,5 +1,10 @@
 (in-package :ml-survey/handlers)
 
+(defun survey-id-p (id)
+  (check-type id integer)
+  (let ((ids (mapcar #'car (load-response (make-surveys-db-path)))))
+    (if (member id ids) t nil)))
+
 (defun survey-uri-p (uri)
   "Check if the request URI matches the pattern '/survey/<numeric>'"
   (check-type uri string)