anchor.diff:  
   (defmethod form-data ((formset formset))
     (loop for form in (formset-forms formset)
  -       when (boundp form)
  +       when (form-boundp form)
          collect (form-data form)))
   
   (defun bind-formset (formset param-getter)
  
positive.code: 
  (defmethod full-validate ((formset formset))
    (loop for form in (formset-forms formset)
         for errors = (and (boundp form) (full-validate form))
         when errors
         collect errors into form-errors
         finally (when form-errors
  
negative.code: (defmethod to-lisp ((field select-field))
    (unless (emptyp (field-str field)) (field-str field)))
  
  (defmethod validate-field ((field select-field) val)
    (when val
      (if (assoc val (select-choices field) :test #'equal)
          val
          (error 'field-error :message "Invalid choice"))))
  
  (defun make-choices (list val-maker txt-maker &key (optional t))
    (let ((choices (loop for el in list
                        collect (list (princ-to-string (funcall val-maker el))
                                      (princ-to-string (funcall txt-maker el))))))
      (if optional
          (cons (list "" "--") choices)
          choices)))
  