anchor.diff:    (%write-rod name sink)
     (cond
       ((zerop (length public-id))
  -      (%write-rod #" SYSTEM '" sink)
  -      (%write-rod system-id sink)
  -      (%write-rune #/' sink))
  +      (%write-rod #" SYSTEM " sink)
  +      (write-quoted-rod system-id sink))
       ((zerop (length system-id))
  -      (%write-rod #" PUBLIC '" sink)
  -      (%write-rod public-id sink)
  -      (%write-rune #/' sink))
  +      (%write-rod #" PUBLIC " sink)
  +      (write-quoted-rod public-id sink))
       (t 
  -      (%write-rod #" PUBLIC '" sink)
  -      (%write-rod public-id sink)
  -      (%write-rod #"' '" sink)
  -      (%write-rod system-id sink)
  -      (%write-rune #/' sink)))
  +      (%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))
   
  
positive.code:      (name-for-dtd :accessor name-for-dtd)
       (previous-notation :initform nil :accessor previous-notation)
       (have-doctype :initform nil :accessor have-doctype)
       (stack :initform nil :accessor stack)))
  
  (defmethod initialize-instance :after ((instance sink) &key)
  
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))
  
  