anchor.diff:                              (when connect-cb
                                 (funcall connect-cb sock)))
                             (lambda (ssl)
  -                            (ssl-set-connect-state 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
  
positive.code:     (ssl-ctx-set-options ctx options)
      ctx))
  
  (defun attach-ssl-to-socket (ctx socket/stream connect-cb after-create-cb &key store-ctx)
    "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
  
negative.code: (defun tcp-ssl-server (bind-address port read-cb event-cb
                         &key connect-cb (backlog -1) stream
                              ssl-ctx
                              certificate key (keytype :pem) ssl-options ciphers)
    "Wraps a tcp server in SSL."
    (let* ((ctx (or ssl-ctx
                    (let ((ctx (create-ssl-ctx :method :sslv23-server :options ssl-options)))
  