From f6a08eb8bdd560898b24a4c4dec60bcc1761f83e Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Mon, 22 Apr 2024 15:56:43 +0200
Subject: [PATCH] Fix macro name

---
 src/questionnaire.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/questionnaire.lisp b/src/questionnaire.lisp
index 3100b27..56c0f13 100644
--- a/src/questionnaire.lisp
+++ b/src/questionnaire.lisp
@@ -24,7 +24,7 @@
    :spacing)
   (:import-from
    :dev.metalisp.sbt/form
-   :form
+   :root
    :checkable
    :checkable-element
    :ctrl
@@ -352,7 +352,7 @@ Example German:
                   :auswahl (:multiple \"Facebook\" \"Twitter\" \"Instagram\" :text \"Andere\")))"
   (let ((class-string (spacing :property "p" :side "y" :size 5)))
     `(spinneret:with-html
-       (form (:class ,class-string :action ,action :method "post")
+       (root (:class ,class-string :action ,action :method "post")
 
          ,@(loop for q in body
                  for (ask group choices) = (multiple-value-list (extract-question-components q))