anchor.diff:                                             :remote-port remote-port
                                              :headers-in headers-in
                                              :content-stream content-stream
  -                                           :method method
  +                                           :request-method request-method
                                              :uri url-string
                                              :server-protocol protocol))
                           (process-request request)
  
positive.code:              (loop 
                  (when (shutdown-p acceptor) (return))
                  
                  (multiple-value-bind (headers-in method url-string protocol)
                      (read-request content-stream)
                    ;; check if there was a request at all
                    (unless method (return))
                    (let ((request nil)
                          (transfer-encodings (cdr (assoc* :transfer-encoding headers-in))))
  
  
negative.code: ;;; Request -- reading the HTTP request from the client
  
  (defun read-request (stream)
    "Reads incoming headers from the client via STREAM. Returns as
  multiple values the headers as an alist, the request-method, the URI,
  and the protocol of the request."
    (with-character-stream-semantics
     (let ((first-line (read-initial-request-line stream)))
       (when first-line
         (unless (every #'printable-ascii-char-p first-line)
           (send-bad-request-response stream "Non-ASCII character in request line")
           (return-from read-request nil))
         (destructuring-bind (&optional request-method url-string protocol)
             (split "\\s+" first-line :limit 3)
           (unless url-string
             (send-bad-request-response stream)
  