anchor.diff:            :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)))))))))
  +                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
  
positive.code: 
  
  (defmethod forms::renderer-render-field
    ((renderer (eql :who))
     (theme bootstrap-form-theme)
     (field forms::boolean-form-field) form &rest args)
    (with-html-output (*html*)
      (:div :class "checkbox"
            (:label
  
negative.code:   (with-html-output (*html*)
      (:input :type "checkbox"
              :class (format-css-classes (list (getf args :class)
                                               "form-control"))
              :name (forms::render-field-request-name field form)
              :checked (when (forms::field-value field)
                         "checked"))))
  