anchor.diff:       (name-for-dtd :accessor name-for-dtd)
        (previous-notation :initform nil :accessor previous-notation)
        (have-doctype :initform nil :accessor have-doctype)
  +     (have-internal-subset :initform nil :accessor have-internal-subset)
        (stack :initform nil :accessor stack)))
   
   (defmethod initialize-instance :after ((instance sink) &key)
  
positive.code:         (t
            (write-rune c ystream))))
  
  (defun %write-rune (c sink)
    (write-rune c (sink-ystream sink)))
  
  
negative.code:   (%write-rod name sink)
    (cond
      ((zerop (length public-id))
        (%write-rod #" SYSTEM " sink)
        (write-quoted-rod system-id sink))
      ((zerop (length system-id))
        (%write-rod #" PUBLIC " sink)
        (write-quoted-rod public-id sink))
      (t 
        (%write-rod #" PUBLIC " sink)
        (write-quoted-rod public-id sink)
        (%write-rod #" " sink)
        (write-quoted-rod system-id sink)))
    (%write-rune #/> sink)
    (%write-rune #/U+000A sink))
  
  