anchor.diff:      (ssl-ctx-set-options ctx options)
       ctx))
   
  -(defun attach-ssl-to-socket (ctx socket/stream connect-cb after-create-cb &key store-ctx)
  +(defun attach-ssl-to-socket (ctx socket/stream connect-cb after-create-cb &key store-ctx ciphers)
     "Given a normal cl-async socket (incoming or outgoing), set it up to be
      wrapped in SSL by attaching some SSL objects to it and replacing the
      connect-cb and read-cb with our own. Note that the given socket MUST be of
  
positive.code:                                                     :bio-write bio-write))
          socket/stream))))
  
  (defun tcp-ssl-connect (host port read-cb event-cb &key data stream connect-cb write-cb (read-timeout -1) (write-timeout -1) (dont-drain-read-buffer nil dont-drain-read-buffer-supplied-p) ssl-ctx ssl-options)
    "Create and return an SSL-activated socket."
    (check-event-loop-running)
    (let* ((socket/stream (apply #'as:tcp-connect
  
negative.code:                               ;; causes it to be freed when the socket closes,
                                ;; and we can't have our sockets closing our
                                ;; server's CTX willy nilly.
                                :store-ctx nil
                                :ciphers ciphers)
                              (setf (socket-ssl-function sock) 'ssl-accept)
                              (let ((ssl (as-ssl-ssl (socket-as-ssl sock))))
                                (ssl-accept ssl)
  