anchor.diff:  	(request :string) (request-length :unsigned-int)
   	(message :string) (message-length :unsigned-int))
   
  +(defcfun ("libssh2_channel_setenv_ex" --channel-setenv-ex) +ERROR-CODE+
  +	(channel +channel+) 
  +	(varname :string) (varname-len :int)
  +	(value :string) (value-len :int))
  +
  +(defun channel-setenv (channel name value)
  +	(with-foreign-strings ((fs-name  name)
  +												 (fs-value value))
  +		(--channel-setenv-ex channel 
  +												 fs-name  (length name)
  +												 fs-value (length value))))
  +
   (defun channel-process-start (channel request message)
   	(with-foreign-strings ((fs-request request)
   												 (fs-message message))
  
positive.code: 					t
  					(restart-case 
  							(error 'ssh-bad-hostkey 
  										 :reason host-key-status)
  						(accept () t)
  						(drop () nil)
  						(accept-once  (&optional (comment "")) 
  
negative.code: (define-condition ssh-bad-hostkey (error)
  	((reason :type      +CHECK-VERDICT+
  					 :accessor  reason
  					 :initarg   :reason)
  	 (hash   :type      string
  					 :accessor  hash
  					 :initarg   :hash)))
  
  (defmethod create-ssh-connection (host port (hosts-db string))
  	(let ((new-session nil)
  