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