anchor.diff:  (in-package :cl-user)
   
   (defpackage :cl-dropbox.ssl
  -  (:use :cl)
  +  (:use :cl :cl-dropbox.conditions)
     (:export #:ssl-context))
   
   (in-package :cl-dropbox.ssl)
  
positive.code: (defun ssl-signal-error (&optional message)
    (error 'ssl-error-call :queue (cl+ssl::read-ssl-error-queue) :message message))
  
  (defun add-verify-files% (ssl-ctx files)
    (dolist (file files)
      (let ((namestring (if (pathnamep file) (namestring (truename file)) file)))
        (cffi:with-foreign-strings ((cafile namestring))
          (when (eql 0 (cl+ssl::ssl-ctx-load-verify-locations
                        ssl-ctx
  
negative.code:                                                   AES256-SHA:~
                                                    AES128-GCM-SHA256:~
                                                    AES128-SHA256:~
                                                    AES128-SHA"))
          ;; TODO more session handling
          ))
      ssl-ctx))
  