anchor.diff:         (read-sequence contents stream)
          (unpack (xtype-reader 'enc-kdc-rep-part) contents))))
     ((stream value)
  -   (encode-identifier stream 26 :class :applicaiton :primitive nil)
  +   (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))))
  
positive.code:     (:postdated #x40)
      (:renewable #x100)
      (:opt-hardware-auth #x800)
      (:constrained #x4000) ;; wireshark
      (:canonicalize #x8000) ;; wireshark
      (:disable-transited-check #x4000000)
      (:renewable-ok #x8000000)
      (:enc-tkt-in-skey #x10000000)
  
negative.code:        (read-sequence contents stream)
         (unpack (xtype-reader 'kdc-rep) contents))))
    ((stream value)
     (encode-identifier stream 11 :class :application :primitive nil)
     (let ((contents (pack (xtype-writer 'kdc-rep) value)))
       (encode-length stream (length contents))
       (write-sequence contents stream))))
  