anchor.diff:  	(session-auth-methods-list (session ssh) login))
   
   (defmethod authentication :around ((ssh ssh-connection) (auth auth-data))
  -	(if (eq (auth-passed ssh) :ERROR-NONE)
  +	(if (auth-passed ssh)
   			t
   			(if (ssh-verify-session ssh)
   					(setf (auth-passed ssh)
  -								(call-next-method)))))
  +								(eq
  +								 (result-or-error (session ssh)
  +									 (call-next-method)) :ERROR-NONE)))))
   
   (defmethod authentication ((ssh ssh-connection) (auth auth-password))
   	(user-auth-password (session  ssh)
  
positive.code: 								:accessor private-key)
  	 (password    :type     string
  								:initarg  :password
  								:initform (null-pointer)
  								:accessor password)))
  
  (defmethod authentication ((ssh ssh-connection) (auth auth-publickey))
  
negative.code: 								:initform nil
  								:accessor auth-passed)))
  
  (define-condition ssh-handshake-error (ssh-generic-error) ())
  
  (define-condition ssh-bad-hostkey (error)
  