From 922f6a8f3fe8df6d3d25b34e0df0e756bdde29a2 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Wed, 20 Sep 2023 10:37:58 +0200
Subject: [PATCH] Check choice before process

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

diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp
index 1e57931..093790c 100644
--- a/src/pattern/questionnaire.lisp
+++ b/src/pattern/questionnaire.lisp
@@ -124,6 +124,8 @@ Returns:
   (funcall (choose-input-form type) type group item))
 
 (defmacro process-choice (group choice)
+  (unless (choicep choice)
+    (error "Invalid question format: ~a" choice))
   (multiple-value-bind (type values)
       (resolve-input-and-choice choice)
     (if (string= type "combo")