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:                         :description "XEP 0004, Data Forms")
  
    ;;
    ;; Current XEP contains no 'stanzas', it contains regular xml-elements
    ;; with the meaning that `stream-element` has (that's why it has '-element' suffix,
    ;; but it uses the 'defstanza' functionality.
    ;; 
    ;; All elements on this XEP should be created by `make-instance` function,
    ;; e.g. `(make-instance 'data-forms-x-element :xml-node (x-data-node stanza))`
    ;;
    
    ((x-element (meta-element)
  
negative.code:            stanza))
  
         (stanza-to-xml ((stanza))
           (with-slots (desc required values options label var element-type) stanza
             (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 "option" (cxml:text o))) options)))))))
  
     (field-option-element (meta-element)
       (option-values label)
  