anchor.diff:  					 :accessor  hash
   					 :initarg   :hash)))
   
  -(defmethod create-ssh-connection (host port (hosts-db string))
  +(defmethod create-ssh-connection (host (hosts-db string) 
  +																	&key 
  +																	(port 22) 
  +																	(read-timeout 500) 
  +																	(write-timeout 500))
   	(let ((new-session nil)
   				(new-socket  nil)
   				(retval      :ERROR-NONE))
  
positive.code: 
  
  ;; CLOS FACADE: FOR BLOCKING STREAMS!! ;;
  (defclass auth-data ()
  	((login    :type      string
  					   :initarg   :login
  
negative.code: 			(if (null-pointer-p new-channel)
  					(session-last-errno session)
  					new-channel))))
  
  (defcfun ("libssh2_channel_close" channel-close) +ERROR-CODE+
  	(channel +channel+))
  