From ee60c00d7834da9de217869774bf6a83433af524 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 11 Feb 2024 19:52:07 +0100
Subject: [PATCH] Choose the first element in list using nth instead of cadr

---
 src/pattern/questionnaire.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp
index 9c011e5..7dc80e9 100644
--- a/src/pattern/questionnaire.lisp
+++ b/src/pattern/questionnaire.lisp
@@ -253,7 +253,7 @@ Returns multiple values:
   - The group name (GROUP)
   - The choices (CHOICES)"
   (let ((splitted-list (split-list-by-keyword question)))
-    (apply #'values (mapcar (lambda (x) (cadr x)) splitted-list))))
+    (apply #'values (mapcar (lambda (x) (nth 1 x)) splitted-list))))
 
 (defmacro questionnaire (action &body body)
   "This macro generates an HTML form composed of multiple questions, each rendered using the `question' macro.