anchor.diff:                                  :state :completed
                                   :creds (spnego-context-creds context)
                                   :context cxt)
  -                 nil))))
  +                 nil
  +		 nil))))
       (:completed (error 'glass:gss-error :major :defective-token))))
   
   (defmethod glass:context-principal-name ((context spnego-server-context) &key)
  
positive.code:                      (pack #'encode-nego-token
  			   (make-neg-token-resp :state :incomplete
  						:mech *ntlm-oid*
  						:token ntlm-buffer)))))
            (t 
              (error 'glass:gss-error :major :bad-mech)))))))
  
  
negative.code:                              :creds creds
                               :state :negotiate
                               :context context)
                buffer
  	      continue-needed))))
  
  
  (defmethod glass:initialize-security-context ((cxt spnego-client-context) &key buffer)
  