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:                          "form-inline")
                      (and (getf args :horizontal)
                           "form-horizontal")))
             :data-parsley-validate (when (forms::client-validation form)
                                      "true")
             (when (forms::form-csrf-protection-p form)
  
negative.code:           :name (forms::render-field-request-name field form)
            :multiple "multiple"
            (loop for (key . choice) in (forms::field-choices-alist field)
                  do
                     (htm
                      (:option :value (princ-to-string key)
                               :selected (when (member key selected-keys)
                                           "selected")
                               (str (forms:format-field-value-to-string field
                                                                        choice)))))))))
      ((and (not (forms::field-expanded field))
            (not (forms::field-multiple field)))
       ;; A single select box
  