Fix error message

This commit is contained in:
Marcus Kammer 2023-09-26 14:41:28 +02:00
parent 5930d8a31f
commit 15d3d0e0b6

View file

@ -160,7 +160,7 @@ elements. See `choicep'
Example: Example:
(choice \"hobbies\" (:radio \"Reading\" \"Swimming\" \"Coding\"))" (choice \"hobbies\" (:radio \"Reading\" \"Swimming\" \"Coding\"))"
(unless (choicep choice) (unless (choicep choice)
(error "Invalid question format: ~a" 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")