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

Remove unnecessary type checking

Browse source
This commit is contained in:
Marcus Kammer 2024-03-31 13:46:07 +02:00
parent eb55bcf054
commit cd5ecacf80
1 changed files with 0 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/pattern/questionnaire.lisp
View file

@ -159,8 +159,6 @@ elements. See `choicep'
Example: Example:
(choice \"hobbies\" (:radio \"Reading\" \"Swimming\" \"Coding\"))" (choice \"hobbies\" (:radio \"Reading\" \"Swimming\" \"Coding\"))"
(unless (choicep choice)
(error "Invalid choice 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")
@ -302,8 +300,6 @@ Example German:
:class ,class-string :class ,class-string
,@(loop for q in body ,@(loop for q in body
for (ask group choices) = (multiple-value-list (extract-question-components q)) for (ask group choices) = (multiple-value-list (extract-question-components q))
do (unless (questionp 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)))
(btn-primary (:type "submit") (btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* *l10n*)))))) (find-l10n "submit" spinneret:*html-lang* *l10n*))))))