anchor.diff:  			  :cname (kdc-req-body-cname body)
   			  :ticket ticket 
   			  :enc-part (encrypt-data (encryption-key-type ckey)
  -						  (pack #'encode-enc-kdc-rep-part 
  +						  (pack #'encode-enc-as-rep-part 
   							(make-enc-kdc-rep-part :key (generate-session-key (encryption-key-type ckey))
   									       :nonce (kdc-req-body-nonce body)
   									       :flags flags
  
positive.code: 		   (kdc-log :error "Failed to process: ~A" e)
  		   (generate-error :generic *default-realm*)))))
  	  (etypecase res
  	    (kdc-rep (encode-kdc-rep out res))
  	    (krb-error (encode-krb-error out res))))))))
  
  
  
negative.code: 		     (error 'krb-error-t :err (generate-error :c-principal-unknown realm)))))
        ;; preauthenticate 
        (let ((patimestamp (find-if (lambda (pa)
  				    (eq (pa-data-type pa) :enc-timestamp))
  				  preauth)))
  	(unless patimestamp 
  	  (error 'krb-error-t :err (generate-error :padata-type-nosupp realm)))
  