anchor.diff:  ;				"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)))
  
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: 		 ,namespace
  		 ,tagname
  		 attributes
  		 (flatten children)))))
  
  (defmacro def-xul-element (name doc &rest attributes)
    (declare (ignore attributes))
  