anchor.diff:                         (make-neg-token-resp :state :incomplete
                                               :mech (spnego-creds-oid (spnego-context-creds cxt))
                                               :token resp-buff
  -                                            :mic nil))))))))
  +                                            :mic nil))
  +		 nil))))))
   
   
   (defclass spnego-server-context (spnego-context)
  
positive.code:                  (pack #'encode-nego-token 
                         (make-neg-token-resp :state :completed
                                              :mech (spnego-creds-oid (spnego-context-creds cxt))
                                              :token resp-buff)))))
        (t 
         ;; Kerberos, just get the ticket and try again
         (multiple-value-bind (krb-context resp-buff) 
  
negative.code:                                     :creds creds
                                      :context context
                                      :state :completed)
                       nil
  		     nil)))
            ((and (cerberus::oid-eql first *ntlm-oid*)
                  (cerberus::oid-eql (spnego-creds-oid creds) *ntlm-oid*))
             ;; is an ntlm token and we are using ntlm 
  