anchor.diff:  
   (defmethod object-list-handler-show-object-xml ((handler xml-object-list-handler) object)
     #+(or) (set-string-rod-fn #'cxml::utf8-string-to-rod)
  -  (write-to-xml object))
  +  (write-to-xml object :output *standard-output*))
   
   (defmethod handle-object ((handler xml-object-list-handler) object)
     (let ((element-name (xml-object-list-handler-toplevel-element-name handler)))
  
positive.code: (defgeneric xml-object-handler-show-object (handler object))
  
  (defmethod xml-object-handler-show-object ((handler xml-object-handler) object)
    (write-to-xml object))
  
  (defmethod handle-object ((handler xml-object-handler) object)
    (xml-object-handler-show-object handler object))
  
  (defclass xml-object-list-handler (object-handler xml-handler)
    ((toplevel-element-name :initarg :toplevel-element-name :reader xml-object-list-handler-toplevel-element-name))
  
negative.code:     (with-http-body ()
        (website-show-page *website* fn title))))
  
  #+(or)
  (defmacro with-bknr-site-template ((&key title) &rest body)
    `((with-http-response (:content-type "text/html")
  