anchor.diff:      (setf (meta-blocked? self) nil)
       (return-from sax:end-element))
     (let (*print-pretty*)
  -    (format (stream self) "</~a>" lname)))
  +    (format (stream-of self) "</~a>" lname)))
  
positive.code:                             :specified-p t)))
  
  (defclass html5-sink (sax:default-handler)
    ((stream :initarg :stream :accessor stream)
     (comments :initarg :keep-comments :accessor keep-comments?)
     (meta-blocked :initform nil :accessor meta-blocked?)
     (keep-whitespace :initarg :keep-whitespace :accessor keep-whitespace?)
  
negative.code: 
  (defmethod sax:start-dtd ((self html5-sink) name public-id system-id)
    (declare (ignore name public-id system-id))
    (write-string "<!doctype html>" (stream-of self)))
  
  (defmethod sax:characters ((self html5-sink) text)
    (when (and (omit-whitespace? self) (blankp text))
      (return-from sax:characters))
    (escape text text-escapes :stream (stream-of self)))
  
  (defmethod sax:comment ((self html5-sink) text)
    (when (keep-comments? self)
      (format (stream-of self) "<!-- ~a -->" text)))
  
  (defun charset-declaration? (attr)
    "Is ATTR a charset declaration from the original document?"
  