anchor.diff:         (read-sequence contents stream)
          (unpack (xtype-reader 'enc-kdc-rep-part) contents))))
     ((stream value)
  -   (encode-identifier stream 25 :class :applicaiton :primitive nil)
  +   (encode-identifier stream 25 :class :application :primitive nil)
      (let ((contents (pack (xtype-writer 'enc-kdc-rep-part) value)))
        (encode-length stream (length contents))
        (write-sequence contents stream))))
  
positive.code: (defsequence kdc-rep ()
    (pvno asn1-integer :tag 0 :initial-value 5)
    (type asn1-integer :tag 1) ;; 11 == AS, 13 == TGS
    (data pa-data-list :tag 2) ;; optional, sequence-of
    (crealm realm :tag 3)
    (cname principal-name :tag 4)
    (ticket ticket :tag 5)
  
negative.code:        (read-sequence contents stream)
         (unpack (xtype-reader 'enc-kdc-rep-part) contents))))
    ((stream value)
     (encode-identifier stream 26 :class :application :primitive nil)
     (let ((contents (pack (xtype-writer 'enc-kdc-rep-part) value)))
       (encode-length stream (length contents))
       (write-sequence contents stream))))
  