anchor.diff:                                             :request-headers request-headers
                                              :content-stream content-stream
                                              :request-method request-method
  -                                           :uri url-string
  +                                           :request-uri url-string
                                              :server-protocol protocol))
                           (process-request request)
                           (log-access (access-logger acceptor) request)))
  
positive.code:    (request-method :initarg :request-method :reader request-method) ; cgi REQUEST_METHOD
     (query-string :initform nil :reader query-string) ; cgi QUERY_STRING
     (server-protocol :initarg :server-protocol :reader server-protocol) ; cgi SERVER_PROTOCOL
     (uri :initarg :uri :reader request-uri)
     (get-parameters :initform nil :reader get-parameters) 
     (post-parameters :initform nil :reader post-parameters)
     (body-stream :initform nil :reader body-stream)
  
negative.code:   (with-slots (request-headers cookies-in get-parameters script-name query-string) request
      (handler-case*
          (progn
            (let* ((request-uri (request-uri request))
                   (match-start (position #\? request-uri)))
              (cond
                (match-start
                 (setf script-name (subseq request-uri 0 match-start))
                 (setf query-string (subseq request-uri (1+ match-start))))
                (t (setf script-name request-uri))))
  
            ;; some clients (e.g. ASDF-INSTALL) send requests like
            ;; "GET http://server/foo.html HTTP/1.0"...
  