anchor.diff:  (defconstant +ssl-filetype-asn1+ 2)
   (defconstant +ssl-filetype-default+ 3)
   
  +(defconstant +SSL-CTRL-OPTIONS+ 32)
   (defconstant +SSL_CTRL_SET_SESS_CACHE_MODE+ 44)
   (defconstant +SSL_CTRL_MODE+ 33)
   
  
positive.code: (defconstant +SSL-VERIFY-FAIL-IF-NO-PEER-CERT+ #x02)
  (defconstant +SSL-VERIFY-CLIENT-ONCE+ #x04)
  
  (defvar *tmp-rsa-key-512* nil)
  (defvar *tmp-rsa-key-1024* nil)
  (defvar *tmp-rsa-key-2048* nil)
  
negative.code:   (ssl ssl-pointer)
    (str :string)
    (type :int))
  #+new-openssl
  (cffi:defcfun ("SSL_CTX_set_options" ssl-ctx-set-options)
                   :long
                 (ctx :pointer)
                 (options :long))
  #-new-openssl
  (defun ssl-ctx-set-options (ctx options)
    (ssl-ctx-ctrl ctx +SSL-CTRL-OPTIONS+ options (cffi:null-pointer)))
  (cffi:defcfun ("SSL_CTX_set_cipher_list" ssl-ctx-set-cipher-list%)
      :int
    (ctx :pointer)
  