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

Check choice before process

Browse source
This commit is contained in:
Marcus Kammer 2023-09-20 10:37:58 +02:00
parent 4ece9dd455
commit 922f6a8f3f
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/pattern/questionnaire.lisp
View file

@ -124,6 +124,8 @@ Returns:
(funcall (choose-input-form type) type group item)) (funcall (choose-input-form type) type group item))
(defmacro process-choice (group choice) (defmacro process-choice (group choice)
(unless (choicep choice)
(error "Invalid question format: ~a" choice))
(multiple-value-bind (type values) (multiple-value-bind (type values)
(resolve-input-and-choice choice) (resolve-input-and-choice choice)
(if (string= type "combo") (if (string= type "combo")