anchor.diff:  		 ,namespace
   		 ,tagname
   		 attributes
  -		 children))))
  +		 (flatten children)))))
   
   (defmacro def-xul-element (name doc &rest attributes)
     (declare (ignore attributes))
  
positive.code: ;				"sortResource" "sortResource2" "statustext" "style" "template" 
  ;				"tooltip" "tooltiptext" "top" "uri" "wait-cursor" "width"))) 
  
  (defmacro def-tag-node (package name prefix namespace doc  )
    (let* ((evaled-name (eval name))
  			(name (intern (string-upcase evaled-name) (eval package)))
  
negative.code: 
  
  
  (defmacro with-document (&body chillins)
    `(let ((*document*  (cxml-dom:create-document)))
  	 (declare (special *document*))
  	 (let ((children (flatten (list ,@chillins))))
  		(iterate (for child in children)
  					(dom:append-child *document* child))
  		*document*)))
  
  
  (defmacro with-document-to-file (filename &body chillins)
  