marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

First element is always a keyword

Browse source
This commit is contained in:
Marcus Kammer 2023-09-20 16:50:01 +02:00
parent aef04a1042
commit 444f55d990
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/pattern/questionnaire.lisp
View file

@ -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." Returns T if all elements are either keywords or strings, otherwise NIL."
(loop for elem in lst (loop for elem in lst
always (or (keywordp elem) always (and (keywordp (first lst))
(stringp elem)))) (or (keywordp elem)
(stringp elem)))))
(deftype choices () (deftype choices ()
"Represents a valid choices list. "Represents a valid choices list.