anchor.diff:  		 (krb-error-err e))
   	       (error (e) 
   		 (kdc-log :error "Failed to process: ~A" e)
  -		 (make-krb-error)))))
  +		 (generate-error :generic *default-realm*)))))
   	(etypecase res
   	  (kdc-rep (encode-kdc-rep out res))
   	  (krb-error (encode-krb-error out res)))))))
  
positive.code: 
  
  (in-package #:cerberus)
  
  ;; this is to request a ticket for the TGS, i.e. krbtgt principal
  (defun generate-as-rep (req)
  
negative.code: 	(make-kdc-rep :type :as 
  		      :crealm (kdc-req-body-realm body)
  		      :cname (kdc-req-body-cname body)
  		      :ticket (make-ticket :realm realm
  					   :sname (krbtgt-principal realm)
  					   :enc-part (encrypt-data (make-enc-ticket-part)))
  		      :enc-part (encrypt-data (make-enc-kdc-rep-part)))))))
  
  ;; this is to request a ticket for any principal
  