anchor.diff:                               :creds creds
                                :state :negotiate
                                :context context)
  -              buffer))))
  +              buffer
  +	      continue-needed))))
   
   
   (defmethod glass:initialize-security-context ((cxt spnego-client-context) &key buffer)
  
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
                                      :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 
  