anchor.diff:  			(if (null-pointer-p new-channel)
   					(session-last-errno session)
   					new-channel))))
  -					
   
   (defcfun ("libssh2_channel_close" channel-close) +ERROR-CODE+
   	(channel +channel+))
  
positive.code: 					 :accessor  hash
  					 :initarg   :hash)))
  
  (defmethod create-ssh-connection (host port (hosts-db string))
  	(let ((new-session nil)
  				(new-socket  nil)
  				(retval      :ERROR-NONE))
  
negative.code: 				 (progn
  					 (setq new-session (session-init))
  					 (setq new-socket (usocket:socket-connect host port))
  					 (set-timeouts new-socket read-timeout write-timeout)
  					 (session-set-blocking new-session :BLOCKING)
  					 
  					 (setq retval 
  