First element is always a keyword

2023-09-20 16:50:01 +02:00 · 2023-09-20 16:50:01 +02:00 · 444f55d990
commit 444f55d990
parent aef04a1042
1 changed files with 3 additions and 2 deletions
--- a/src/pattern/questionnaire.lisp
+++ b/src/pattern/questionnaire.lisp
@ -49,8 +49,9 @@ A choice list is expected to satisfy the `choicep` predicate."

 Returns T if all elements are either keywords or strings, otherwise NIL."
  (loop for elem in lst
-        always (or (keywordp elem)
-                   (stringp elem))))
+        always (and (keywordp (first lst))
+                    (or (keywordp elem)
+                        (stringp elem)))))

 (deftype choices ()
  "Represents a valid choices list.