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

Fix naming

Browse source
This commit is contained in:
Marcus Kammer 2023-09-19 13:03:23 +02:00
parent 45ac57ecc1
commit 5712ae7960
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/pattern/questionnaire.lisp
View file

@ -120,13 +120,13 @@ Returns:
(funcall (choose-input-form type) type group item))
(defmacro process-choice (group choice)
(multiple-value-bind (type inputs)
(multiple-value-bind (type values)
(resolve-input-and-choices choice)
(if (string= type "combo")
`(spinneret:with-html
(:li (combo () ,@inputs)))
(:li (combo () ,@values)))
`(spinneret:with-html
,@(loop for input in inputs
,@(loop for input in values
collect
`(:li (apply-input-form ,type ,group ,input)))))))