anchor.diff:                                                      :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)
  +(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 ciphers)
     "Create and return an SSL-activated socket."
     (check-event-loop-running)
     (let* ((socket/stream (apply #'as:tcp-connect
  
positive.code:            (socket (change-class socket 'ssl-socket))
             (stream (when (typep socket/stream 'as:async-stream) socket/stream))
             (socket-c (as:socket-c socket))
             (callbacks (get-callbacks socket-c)))
        ;; replace our socket's callbacks
        (setf (getf callbacks :connect-cb) connect-cb)
        (setf (getf callbacks :ssl-read-cb) (getf callbacks :read-cb))
  
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)))
  