anchor.diff:          (prototype (spawn-form formset)))
       (multiple-value-bind (form-params n-forms)
           (loop for (kw field) on (form-fields prototype) by #'cddr
  -           for name = (field-name field)
  +           for name = (string-right-trim "[]" (field-name field))
              for param = (and name (assoc name params :test #'equalp))
              when param
              collect (cons kw (cdr param)) into pparams
              and maximize (length (cdr param)) into mlen
              finally (return (values pparams mlen)))
         (loop with forms = (loop repeat n-forms collect (spawn-form formset))
  -           for (kw param) in form-params
  +           for (kw . param) in form-params
              when param
              do (loop for form in forms
                    for par in param
  
positive.code: 
  (defmethod form-data ((formset formset))
    (loop for form in (formset-forms formset)
         when (boundp form)
         collect (form-data form)))
  
  (defun bind-formset (formset param-getter)
  
negative.code: 
  (defmethod full-validate ((formset formset))
    (loop for form in (formset-forms formset)
         for errors = (and (form-boundp form) (full-validate form))
         when errors
         collect errors into form-errors
         finally (when form-errors
  