From 00df834718a295a5f9eb998a0c91869f0cff06d2 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 2 Jun 2024 22:52:47 +0200 Subject: [PATCH] Add whitespace --- src/handlers/survey.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/handlers/survey.lisp b/src/handlers/survey.lisp index ea3a6ce..1151494 100644 --- a/src/handlers/survey.lisp +++ b/src/handlers/survey.lisp @@ -4,13 +4,16 @@ (labels ((survey-fn (action) (case action (id (second (split-uri uri))) + (id-p (let ((ids (mapcar #'car (load-response (make-surveys-db-path))))) (if (member (parse-integer (survey-fn 'id)) ids) t nil))) + (uri-p (let ((parts (split-uri uri))) (and (= (length parts) 2) (string= (first parts) "survey") (every #'digit-char-p (second parts)) (survey-fn 'id-p)))) + (properties (first (rest (assoc (parse-integer (survey-fn 'id)) (load-response (make-surveys-db-path))))))))) #'survey-fn))