anchor.diff:  	(values (make-instance 'ntlm-context
   			       :user (cdr (assoc :username amsg))
   			       :domain (cdr (assoc :domain amsg)))
  +		nil
   		nil)
   	(error 'glass:gss-error :major :defective-credential))))
   
  
positive.code:           (pack-negotiate-message *default-flags* 
                                    :workstation (machine-instance)
                                    :domain (ntlm-domain *default-ntlm-values*)
                                    :version (make-ntlm-version 6 1 1))))
  
  (defmethod glass:initialize-security-context ((context ntlm-context) &key buffer)
    ;; we have received a CHALLENGE message, generate an AUTHENTICATE response
  
negative.code:                                     :target-info 
                                      (make-target-info :nb-domain-name (ntlm-domain *default-ntlm-values*)
                                                        :nb-computer-name (machine-instance)
                                                        :timestamp (filetime)))
  	    t)))
  
  
  
  