From 8ec67cd985f25b39536e3e6212cf46819882aa0d Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 2 Jun 2024 21:10:08 +0200
Subject: [PATCH] Fix survey function call

---
 src/handlers/survey.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/handlers/survey.lisp b/src/handlers/survey.lisp
index b59a019..6692e44 100644
--- a/src/handlers/survey.lisp
+++ b/src/handlers/survey.lisp
@@ -3,11 +3,12 @@
 (defun survey-uri-p (uri)
   "Check if the request URI matches the pattern '/survey/<numeric>'"
   (check-type uri string)
-  (let ((parts (split-uri uri)))
+  (let ((parts (split-uri uri))
+        (survey (make-survey uri)))
     (and (= (length parts) 2)
          (string= (first parts) "survey")
          (every #'digit-char-p (second parts))
-         (survey-id-p (parse-integer (second parts))))))
+         (funcall survey 'id-p))))
 
 (defun survey-uri (request)
   (let ((uri (request-uri request)))