anchor.diff:  (cffi:defcfun ("SSL_new" ssl-new) :pointer
     (ctx :pointer))
   (cffi:defcfun ("BIO_new" ssl-bio-new) :pointer
  -  (type :int))
  +  (type :pointer))
   (cffi:defcfun ("SSL_set_cipher_list" ssl-set-cipher-list) :int
     (ssl :pointer)
     (ciphers :string))
  
positive.code:   (err :int))
  (cffi:defcfun ("SSL_state_string_long" ssl-state-string-long) :string
    (ssl :pointer))
  (cffi:defcfun ("TLSv1_method" ssl-tlsv1-method) :int)
  (cffi:defcfun ("TLSv1_client_method" ssl-tlsv1-client-method) :int)
  (cffi:defcfun ("TLSv1_server_method" ssl-tlsv1-server-method) :int)
  (cffi:defcfun ("SSLv23_method" ssl-sslv23-method) :int)
  (cffi:defcfun ("SSLv23_client_method" ssl-sslv23-client-method) :int)
  (cffi:defcfun ("SSLv23_server_method" ssl-sslv23-server-method) :int)
  (cffi:defcfun ("SSL_CTX_new" ssl-ctx-new) :pointer
    (method :int))
  (cffi:defcfun ("SSL_CTX_ctrl" ssl-ctx-ctrl) :long
    (ctx :pointer)
    (cmd :int)
  
negative.code: (defun ssl-ctx-set-options (ctx options)
    "Function version of the openssl macro."
    (ssl-ctx-ctrl ctx +ssl-ctrl-options+ options (cffi:null-pointer)))
  