anchor.diff:  ;;;;; TRE environment
  -;;;;; Copyright (C) 2006-2007 Sven Klose <pixel@copei.de>
  +;;;;; Copyright (C) 2006-2008 Sven Klose <pixel@copei.de>
   ;;;;;
   ;;;;; LML function library
   
  
positive.code: (defmacro with-lml-expr ((name attrs childs) expr &body body)
    (with-gensym g
      `(with (,g ,expr
  	    ,name (first ,g))
        (multiple-value-bind (,attrs ,childs) (lml-attrs-and-childs ,g)
  	,@body))))
  
  ;;;; LML to XML conversion
  
negative.code: (defun collect-attrs (expr attrs)
    (when expr
      (if (not (lml-child? expr))
  	    (concat-attrs expr attrs)
  	    expr)))
  
  (defun lml-attrs-and-childs (expr)
    (with-queue attrs
  