anchor.diff:    (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))))
  
positive.code: ;; (defun make-scoped-dom-builder (node)
  ;;   (let ((builder (rune-dom:make-dom-builder)))
  ;;     (setf (rune-dom::document builder) (dom:owner-document node)
  ;; 	  (rune-dom::element-stack builder) node)
  ;;     builder))
  
  (defun inner-html (string &optional (tag "div"))
  
negative.code: (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
  