From 86bacf8f4d8cd13dfe8dd4c5f67682ee32f92a64 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 14 Sep 2023 15:02:44 +0200 Subject: [PATCH] Make clear to use a syntactic construct in macro --- src/pattern/questionnaire.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp index c6c505d..10d667f 100644 --- a/src/pattern/questionnaire.lisp +++ b/src/pattern/questionnaire.lisp @@ -160,7 +160,7 @@ Returns multiple values: (let ((splitted-list (split-plist-by-keyword question))) (apply #'values (mapcar (lambda (x) (first (last x))) splitted-list)))) -(defmacro questionnaire (action &rest questions) +(defmacro questionnaire (action &body body) "This macro generates an HTML form composed of multiple questions, each rendered using the `question` macro. ACTION: Specifies the URL where the form will be submitted. This should be a @@ -195,7 +195,7 @@ Example 4: (:form :action ,action :method "post" :class (spacing :property "p" :side "y" :size 5) - ,@(loop for q in questions + ,@(loop for q in body collect (multiple-value-bind (ask group choices) (extract-question-components q) (let ((splitted-choices (split-plist-by-keyword choices)))