anchor.diff:  ;; fixme: free the context when errors happen in this function
   (defun make-ssl-server-stream
       (socket &key certificate key password (method 'ssl-v23-method) external-format
  -                 close-callback (unwrap-stream-p t))
  +                 close-callback (unwrap-stream-p t) read-timeout write-timeout)
     "Returns an SSL stream for the server socket descriptor SOCKET.
   CERTIFICATE is the path to a file containing the PEM-encoded certificate for
    your server. KEY is the path to the PEM-encoded key for the server, which
  
positive.code: 		 :socket socket
  		 :close-callback close-callback
  		 :certificate certificate
  		 :key key))
          (handle (ssl-new *ssl-global-context*)))
      (setf socket (install-handle-and-bio stream handle socket unwrap-stream-p))
      (ssl-set-accept-state handle)
  
negative.code:     :initform nil
      :initarg :deadline
      :accessor ssl-stream-deadline)
     (read-timeout
      :initform nil
      :initarg :read-timeout
      :accessor ssl-stream-read-timeout)
     (write-timeout
      :initform nil
      :initarg :write-timeout
      :accessor ssl-stream-write-timeout)
     (output-buffer
      :initform (make-buffer +initial-buffer-size+)
      :accessor ssl-stream-output-buffer)
  