anchor.diff:  (defmethod create-ssh-connection (host (hosts-db string) 
   																	&key 
   																	(port 22) 
  -																	(read-timeout 500) 
  -																	(write-timeout 500))
  +																	(read-timeout 5) 
  +																	(write-timeout 5))
   	(let ((new-session nil)
   				(new-socket  nil)
   				(retval      :ERROR-NONE))
  
positive.code: (in-package libssh2)
  
  ;; CLOS FACADE: FOR BLOCKING STREAMS!! ;;
  (defclass auth-data ()
  	((login    :type      string
  					   :initarg   :login
  
negative.code: 								:accessor private-key)
  	 (password    :type     string
  								:initarg  :password
  								:initform ""
  								:accessor password)))
  
  (defmethod authentication ((ssh ssh-connection) (auth auth-publickey))
  