anchor.diff:  (in-package :net.acceleration.buildnode)
   
   (cl-interpol:enable-interpol-syntax)
  - 
  +
   (defun xmls-to-dom-snippet ( sxml &key (namespace "http://www.w3.org/1999/xhtml"))
     (declare (special *document*))
     (etypecase sxml
  
positive.code: 
  (defun write-document (document &optional (out-stream *standard-output*))
    "Write the document to the designated out-stream, or *standard-ouput* by default."
    (case (stream-element-type out-stream) 
      ('character (write-document-to-character-stream document out-stream))
      (otherwise (write-document-to-octet-stream document out-stream))))
  
  
negative.code:   (handler-bind ((warning #'(lambda (condition)
  			      (declare (ignore condition))
  			      (muffle-warning))))
  
      (let ((doc (cxml:parse #?|<${tag}>${string}</${tag}>| (cxml-dom:make-dom-builder)
  			   :dtd *xhtml1-transitional-extid*)))
        (dom:import-node *document* (dom:first-child doc) T))))
  