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:     :initform nil
      :initarg :deadline
      :accessor ssl-stream-deadline)
     (output-buffer
      :initform (make-buffer +initial-buffer-size+)
      :accessor ssl-stream-output-buffer)
  
negative.code:       (install-key-and-cert handle key certificate))
      (ensure-ssl-funcall stream handle #'ssl-accept handle)
      (handle-external-format stream external-format)))
      
  #+openmcl
  (defmethod stream-deadline ((stream ccl::basic-stream))
    (ccl::ioblock-deadline (ccl::stream-ioblock stream t)))
  