anchor.diff:      :pointer                            ; *X509_NAME
     (x509 :pointer))
   
  +(cffi:defcfun ("X509_STORE_CTX_get_error" x509-store-ctx-get-error)
  +    :int
  +  (ctx :pointer))
  +
   (cffi:defcfun ("SSL_CTX_set_default_verify_paths" ssl-ctx-set-default-verify-paths)
  +    :int
  +  (ctx :pointer))
  +
  +(cffi:defcfun ("SSL_CTX_set_default_verify_dir" ssl-ctx-set-default-verify-dir)
  +    :int
  +  (ctx :pointer))
  +
  +(cffi:defcfun ("SSL_CTX_set_default_verify_file" ssl-ctx-set-default-verify-file)
       :int
     (ctx :pointer))
   
  
positive.code: (defconstant +SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER+ 2)
  
  (defconstant +RSA_F4+ #x10001)
  
  (defvar *tmp-rsa-key-512* nil)
  (defvar *tmp-rsa-key-1024* nil)
  
negative.code:   (ctx :pointer)
    (depth :int))
  
  (cffi:defcfun ("SSL_CTX_set_verify" ssl-ctx-set-verify)
      :void
    (ctx :pointer)
    (mode :int)
    (verify-callback :pointer))
  
  (cffi:defcfun ("SSL_get_verify_result" ssl-get-verify-result)
      :long
    (ssl ssl-pointer))
  