anchor.diff:  	(let ((hash (session-hostkey-hash session type)))
   		(format nil "~{~2,'0X~^:~}"
   						(loop for i below (if (eq type :SHA1) 20 16)
  -							 collect (mem-aref hash :char i)))))
  +							 collect (mem-aref hash :unsigned-char i)))))
   
   (defbitfield +known-hosts-flags+ 
   	(.type-plain. 1)
  
positive.code: (defcfun ("libssh2_session_handshake" session-handshake) +ERROR-CODE+
  	(session +session+) (socket :int))
  
  (defctype +known-hosts+ :pointer)
  (defcfun ("libssh2_knownhost_init" known-hosts-init) +known-hosts+
  	(session +session+))
  
negative.code: (ql:quickload :usocket)
  (ql:quickload :trivial-gray-streams)
  (ql:quickload :babel)
  (ql:quickload :split-sequence)
  
  (defpackage libssh2
  	(:use :cffi 
  