anchor.diff:  												(if (not (null output))
   														;; Return last cached data
   														(prog1
  -																(apply #'concatenate
  -																			 (cons 'string
  -																						 (reverse output)))
  +																(babel:octets-to-string
  +																 (apply #'concatenate
  +																				(cons '(VECTOR
  +																								(UNSIGNED-BYTE
  +																								 8))
  +																							(reverse output))))
   															(setf (input-size stream) 0
   																		(input-pos  stream) 0)
   															(setf output '()))
  
positive.code: 
  ;; CLOS FACADE: FOR BLOCKING STREAMS!! ;;
  (defclass auth-data ()
  	())
  	 
  (defclass ssh-connection ()
  	((session     :type     +session+
  
negative.code: 													 (foreign-bitfield-value '+known-hosts-flags+ flags)
  													 store))))
  													 
  (defcfun ("libssh2_agent_userauth" --agent-userauth) +ERROR-CODE+
  	(agent +ssh-agent+) (username :string) (identity :pointer))
  
  (defun user-auth-agent (agent username identity)
  	(with-foreign-string (fs-username username)
  		(--agent-userauth agent fs-username identity)))
  
  (defcfun ("libssh2_userauth_password_ex" --user-auth-password) +ERROR-CODE+
  	(session +session+) 
  	(username :string) (username-length :unsigned-int)
  	(password :string) (password-length :unsigned-int)
  	(password-change :pointer))
  			
  (defun user-auth-password (session username password &optional (callback (null-pointer)))
  	(let ((username-length (length username))
  				(password-length (length password)))
  