anchor.diff:  (defpackage :cl-async-ssl
     (:use :cl :cl-async)
  -  (:export #:tcp-send-ssl))
  +  (:nicknames :as-ssl)
  +  (:export #:wrap-socket-in-ssl))
   (in-package :cl-async-ssl)
   
   (use-package :cl-async)
  
positive.code:   (let* ((data-pointer (as::create-data-pointer))
           (passed-in-stream (subtypep (type-of socket/stream) 'as:async-stream))
           (socket (if passed-in-stream
                       (stream-socket stream/socket)
                       stream/socket))
           (bufferevent-orig (as::socket-c socket))
           ;; create an SSL client oontext
           (ssl-ctx (cl+ssl::ssl-ctx-new (cl+ssl::ssl-v23-client-method))))
  
negative.code:     ;; created.
      (let* ((ssl-bev (le-ssl:bufferevent-openssl-filter-new
                        as::*event-base*
                        bufferevent-orig  ; pass in the original bev
                        ssl-ctx
                        (cffi:foreign-enum-value 'le-ssl:bufferevent-ssl-state ':bufferevent-ssl-connecting)
                        (cffi:foreign-enum-value 'le:bufferevent-options ':+bev-opt-close-on-free+)))
  