anchor.diff:        (lml2xml-block s x)
         (lml2xml-inline s x)))
   
  -(defun lml2xml (str x)
  +(defun lml2xml-0 (s x)
  +  (when x
  +    (if (consp x)
  +		(lml2xml-expr s x)
  +		(lml2xml-atom s x))))
  +
  +(defun lml2xml (x &optional (str nil))
     (with-default-stream s str
  -    (when x
  -      (if (consp x)
  -		  (lml2xml-expr s x)
  -		  (lml2xml-atom s x)))))
  +	(lml2xml-0 s x)))
  
positive.code:   (and (consp x) (consp .x)
         (atom x.)
  	   (keywordp x.)
  	   (or (atom (second x))
  		   (%exec? (second x)))))
  
  (defun lml-body (x)
    (when x
  	(if (lml-attr? x)
  		(lml-body (cddr x))
  		x)))
  
  (defun lml2xml-end (s)
    (format s ">"))
  
  (defun lml2xml-end-inline (s)
    (format s "/>"))
  
  (defun lml2xml-open (s x)
    (format s "<~A" (lml-attr-string x.)))
  
  (defun lml2xml-close (s x)
    (format s "</~A>" (lml-attr-string x.)))
  
  (defun lml2xml-atom (s x)
    (format s "~A" x))
  
  (defun lml2xml-attr (s x)
    (format s " ~A=\"~A\""
  			(lml-attr-string x.)
  			(if (stringp (second x))
  				(second x)
  				(lml-attr-string (second x))))
    (lml2xml-attr-or-body s (cddr x)))
  
  (defun lml2xml-body (s x)
    (lml2xml-end s)
    (mapcar (fn lml2xml s _) x))
  
  (defun lml2xml-attr-or-body (s x)
    (when x
  
negative.code: ;;;;; TRE environment
  ;;;;; Copyright (c) 2007-2009,2011 Sven Klose <pixel@copei.de>
  ;;;;;
  ;;;;; LML-to-XML conversion
  
  