anchor.diff:               (loop 
                   (when (shutdown-p acceptor) (return))
                   
  -                (multiple-value-bind (headers-in method url-string protocol)
  +                (multiple-value-bind (headers-in request-method url-string protocol)
                       (read-request content-stream)
                     ;; check if there was a request at all
  -                  (unless method (return))
  +                  (unless request-method (return))
                     (let ((request nil)
                           (transfer-encodings (cdr (assoc* :transfer-encoding headers-in))))
   
  
positive.code:                  (when *header-stream*
                     (format *header-stream* "~A~%" continue-line)))))
             (values headers
                     (as-keyword method)
                     url-string
                     (as-keyword (trim-whitespace protocol)))))))))
  
  
negative.code:                                            :remote-port remote-port
                                             :headers-in headers-in
                                             :content-stream content-stream
                                             :request-method request-method
                                             :uri url-string
                                             :server-protocol protocol))
                          (process-request request)
  