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:                               ;; 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)
                              (setf (socket-ssl-function sock) 'ssl-accept)
                              (let ((ssl (as-ssl-ssl (socket-as-ssl sock))))
                                (ssl-accept ssl)
  
negative.code:                             (when connect-cb
                                (funcall connect-cb sock)))
                            (lambda (ssl)
                              (ssl-set-connect-state ssl))
                            :ciphers ciphers)
      ;; now that the 'socket class was replaced with 'ssl-socket, we can safely
      ;; write out our data and it till be buffered properly.
      (when data
  