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

Remove wrong type definitions

Browse source
This commit is contained in:
Marcus Kammer 2024-07-02 18:26:53 +02:00
parent 0b97171f6a
commit e75cc5d9b4
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/form.lisp
View file

@ -345,7 +345,6 @@ Returns T if it's a valid question, otherwise NIL."
A question list is expected to satisfy the `questionp` predicate." A question list is expected to satisfy the `questionp` predicate."
'(and list (satisfies questionp))) '(and list (satisfies questionp)))
(declaim (ftype (function (question) (values string string list)) extract-question-components))
(defun extract-question-components (question) (defun extract-question-components (question)
"Extracts components of a question stored as a plist. "Extracts components of a question stored as a plist.
@ -354,6 +353,7 @@ QUESTION: A plist representing a question.
Returns multiple values: Returns multiple values:
- The question text (ASK) - The question text (ASK)
- The group name (GROUP) - The group name (GROUP)
- The style (STYLE)
- The choices (CHOICES)" - The choices (CHOICES)"
(let ((splitted-list (split-list-by-keyword question))) (let ((splitted-list (split-list-by-keyword question)))
(apply #'values (mapcar (lambda (x) (nth 1 x)) splitted-list)))) (apply #'values (mapcar (lambda (x) (nth 1 x)) splitted-list))))
@ -417,7 +417,6 @@ Returns two values:
(values (resolve-input-type (string-downcase input-type-keyword)) (rest choice)) (values (resolve-input-type (string-downcase input-type-keyword)) (rest choice))
(error "A choice always starts with a input-type keyword")))) (error "A choice always starts with a input-type keyword"))))
(declaim (ftype (function (string string string) function) apply-input-form))
(defun apply-input-form (type group item) (defun apply-input-form (type group item)
"Apply the chosen input form function to generate HTML for a single form element. "Apply the chosen input form function to generate HTML for a single form element.