anchor.diff:          (*current-element* nil)
           (*unparse-namespace-bindings* *initial-namespace-bindings*)
           (*current-namespace-bindings* nil))
  -    (sax:start-document *sink*)
  +    (sax:start-document sink)
       (funcall fn)
  -    (sax:end-document *sink*)))
  +    (sax:end-document sink)))
   
   (defun invoke-with-output-sink (fn)
     (maybe-emit-start-tag)
  
positive.code:    and @fun{attribute*}."
    `(invoke-with-namespace (lambda () ,@body) ,prefix ,uri))
  
  (defun doctype (name public-id system-id &optional internal-subset)
    "@arg[name]{Element name, a string.}
     @arg[public-id]{String}
     @arg[system-id]{A system ID as a @class{puri:uri}.}
  
negative.code:    Note: It is currently the caller's responsibily to ensure that the CDATA
     section will not contain forbidden character sequences."
    (maybe-emit-start-tag)
    (sax:start-cdata sink)
    (sax:characters sink (rod data))
    (sax:end-cdata sink)
    data)
  
  (defun text (data)
  