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

Use cadr instead of first and last

Browse source
This commit is contained in:
Marcus Kammer 2024-02-04 15:43:37 +01:00
parent 1046ddf1dc
commit 04efec756c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/pattern/questionnaire.lisp
View file

@ -253,7 +253,7 @@ Returns multiple values:
- The group name (GROUP) - The group name (GROUP)
- 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) (first (last x))) splitted-list)))) (apply #'values (mapcar (lambda (x) (cadr x)) splitted-list))))
(defmacro questionnaire (action &body body) (defmacro questionnaire (action &body body)
"This macro generates an HTML form composed of multiple questions, each rendered using the `question' macro. "This macro generates an HTML form composed of multiple questions, each rendered using the `question' macro.