anchor.diff:        (sink-write-rod (rod (string-upcase (symbol-name type))) sink))
       (t
         (when (eq :NOTATION (car type))
  -	(sink-write-rod #"NOTATION " sink))
  +        (sink-write-rod #"NOTATION " sink))
         (sink-write-rune #/\( sink)
         (loop for (n . rest) on (cdr type) do
  -	    (sink-write-rod n sink)
  -	    (when rest
  -	      (sink-write-rune #\| sink)))
  +            (sink-write-rod n sink)
  +            (when rest
  +              (sink-write-rune #\| sink)))
         (sink-write-rune #/\) sink)))
     (sink-write-rune #/U+0020 sink)
     (cond
  
positive.code:     ((zerop (length system-id))
        (sink-write-rod #" PUBLIC " sink)
        (write-quoted-rod public-id sink))
      (t 
        (sink-write-rod #" PUBLIC " sink)
        (write-quoted-rod public-id sink)
        (sink-write-rod #" " sink)
  
negative.code: 
  (defmethod sax:start-document ((sink sink))
    (unless (or (canonical sink)
                (sink-omit-xml-declaration-p sink))
      (sink-write-rod #"<?xml version=\"1.0\" encoding=\"" sink)
      (sink-write-rod (rod (sink-encoding sink)) sink)
      (sink-write-rod #"\"?>" sink)
  