anchor.diff:         ;; Render checkboxes
          (with-html-output (*html*)
            (loop for (key . choice) in (forms::field-choices-alist field)
  -            do
  -              (htm
  -               (:input :type "checkbox" :name (forms::render-field-request-name field form)
  -                       :value key
  -                       :checked (when (member key selected-keys)
  -                                  "checked")
  -                       (str (forms:format-field-value-to-string field
  -                                     choice))))))))
  +               do
  +                  (htm
  +                   (:input :type "checkbox" :name (forms::render-field-request-name field form)
  +                           :value key
  +                           :checked (when (member key selected-keys)
  +                                      "checked")
  +                           (str (forms:format-field-value-to-string field
  +                                                                    choice))))))))
       ((and (forms::field-expanded field)
             (not (forms::field-multiple field)))
        ;; Render radio buttons
        (let ((selected-value (forms::field-key-and-value field)))
          (with-html-output (*html*)
            (loop for (key . choice) in (forms::field-choices-alist field)
  -            do
  -              (htm
  -               (:input :type "radio" :name (forms::render-field-request-name field form)
  -                       :value (princ-to-string key)
  -                       :checked (when (equalp (first selected-value)
  -                                              key)
  -                                  "checked")
  -                       (str (forms:format-field-value-to-string field
  -                                     choice))))))))
  +               do
  +                  (htm
  +                   (:input :type "radio" :name (forms::render-field-request-name field form)
  +                           :value (princ-to-string key)
  +                           :checked (when (equalp (first selected-value)
  +                                                  key)
  +                                      "checked")
  +                           (str (forms:format-field-value-to-string field
  +                                                                    choice))))))))
       ((and (not (forms::field-expanded field))
             (forms::field-multiple field))
        ;; A multiple select box
  
positive.code:   (format *html* " name=\"~A\"" (forms::render-field-request-name field form))
    (when (getf args :class)
      (format *html* " class=\"~A\"" (format-css-classes (list (getf args :class)
                                                             "form-control"))))
    (apply #'renderer-render-field-attributes renderer theme field form args)
    (format *html* ">")
    (when (forms::field-value field)
  
negative.code:                 (:input :name (forms::form-csrf-field-name form)
                          :type "hidden" :value token))))
             (loop for field in (forms::form-fields form)
                   do
                      (forms::renderer-render-field renderer theme (cdr field) form)))))
  
  (defmethod forms::renderer-render-form-start ((renderer (eql :who))
                                                (theme bootstrap-form-theme)
                                                form &rest args)
    "Start form rendering"
    (fmt:fmt *html* "<form id=\"" (forms::form-id form) "\""
             " action=\"" (forms::form-action form) "\""
             " method=\"" (forms::form-method form) "\""
             " class=\"" (format-css-classes
                         (list
                          (getf args :class)
                          (and (getf args :inline)
                               "form-inline")
                          (and (getf args :horizontal)
                               "form-horizontal"))) "\""
             (:when (forms::form-enctype form)
               " enctype=\"" (forms::form-enctype form) "\"")
             (:when (forms::client-validation form)
               " data-parsley-validate")
             ">")
    (when (forms::form-csrf-protection-p form)
      (let ((token (forms::set-form-session-csrf-token form)))
        (who:with-html-output (html *html*)
  