anchor.diff:             (setf (x-type      stanza) (dom:get-attribute xml-node "type")
                    (title       stanza) (get-element-data (get-element-by-name xml-node "title"))
                    (intructions stanza) (mapcar #'get-element-data
  -                                              (get-elements-by-name xml-node "instruction"))
  +                                              (get-elements-by-name xml-node "instructions"))
                    (fields      stanza) (mapcar #'(lambda (el)
                                                     (xml-to-stanza (make-instance 'data-forms-field-element
                                                                                   :xml-node el)))
  
positive.code:            stanza))
  
         (stanza-to-xml ((stanza))
           (with-slots (desc required values options label var element-type)
               (cxml:with-element "field"
                 (unless (null label)
                   (cxml:attribute "label" label))
                 (unless (null var)
                   (cxml:attribute "var" var))
                 (unless (null element-type)
                   (cxml:attribute "type" element-type))
                 (unless (null desc)
                   (cxml:with-element "desc"
                     (cxml:text desc)))
                 (unless (null required)
                   (cxml:with-element "required"))
                 (mapcar #'(lambda (v) (cxml:with-element "value" (cxml:text v))) field-values)
                 (mapcar #'(lambda (o) (cxml:with-element "options" (cxml:text o))) options)))))))
  
     (field-option-element (meta-element)
       (option-values label)
  
negative.code:            (cxml:with-element "x"
               (cxml:attribute "xmlns" xmlns)
               (cxml:attribute "type"  x-type)
               (mapcar #'(lambda (i) (cxml:with-element "instructions"
                                       (cxml:text i)))
                       instructions)
               (mapcar #'stanza-to-xml fields)
  