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

Fix indentation

Browse source
This commit is contained in:
Marcus Kammer 2024-01-24 20:55:56 +01:00
parent 4624115250
commit 920be9b113
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/pattern/questionnaire.lisp
View file

@ -294,8 +294,7 @@ Example 4:
:method "post" :method "post"
:class ,class-string :class ,class-string
,@(loop for q in body ,@(loop for q in body
for (ask group choices) = (multiple-value-list for (ask group choices) = (multiple-value-list (extract-question-components q))
(extract-question-components q))
do (unless (questionp q) do (unless (questionp q)
(error "Invalid question format: ~a" q)) (error "Invalid question format: ~a" q))
collect `(question ,ask ,group ,@(split-list-by-keyword choices))) collect `(question ,ask ,group ,@(split-list-by-keyword choices)))