anchor.diff:  (defun lml-attr? (x)
     (and (consp x) (consp .x)
          (atom x.) (atom (second x))))
  +
  +(defun lml-body (x)
  +  (when x
  +	(if (lml-attr? x)
  +		(lml-body (cddr x))
  +		x)))
   
   (defun lml2xml-end (s)
     (format s ">"))
  
positive.code:   (unless (atom x.)
      (lml2xml-error-tagname x))
    (lml2xml-open s x)
    (if (cdr x)
        (lml2xml-block s x)
        (lml2xml-end-inline s)))
  
  (defun lml2xml (str x)
    (with-default-stream s str
  
negative.code:   (lml2xml-attr-or-body s .x)
    (lml2xml-close s x))
  
  (defun lml2xml-inline (s x)
    (lml2xml-attr-or-body s .x)
    (lml2xml-end-inline s))
  
  (defun lml2xml-error-tagname (x)
    (error "First element is not a tag name: ~A" x))
  
  