anchor.diff:                              :specified-p t)))
   
   (defclass html5-sink (sax:default-handler)
  -  ((stream :initarg :stream :accessor stream)
  +  ((stream :initarg :stream :accessor stream-of)
      (comments :initarg :keep-comments :accessor keep-comments?)
      (meta-blocked :initform nil :accessor meta-blocked?)
      (keep-whitespace :initarg :keep-whitespace :accessor keep-whitespace?)
  
positive.code:     (setf (meta-blocked? self) nil)
      (return-from sax:end-element))
    (let (*print-pretty*)
      (format (stream self) "</~a>" lname)))
  
negative.code:       (return-from sax:start-element)))
    (let ((*print-pretty*))
      (cond ((no attrs)
             (format (stream-of self) "<~a>" lname))
            (t (format (stream-of self) "<~a" lname)
               (dolist (attr attrs)
                 (let ((name (sax:attribute-qname attr))
                       (value (sax:attribute-value attr)))
                   (unless (string^= "xmlns" name)
                     (format (stream-of self) " ~a=\"" name)
                     (escape value attribute-escapes :stream (stream-of self))
                     (write-char #\" (stream-of self)))))
               (write-char #\> (stream-of self)))))
    ;; Force a UTF-8 charset declaration where it belongs, at the top of
    ;; HEAD.
    (when (string= lname "head")
  