anchor.diff:  ;;; 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 method, the URI, and the
  -protocol of the request."
  +  "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 method url-string protocol)
  +       (destructuring-bind (&optional request-method url-string protocol)
              (split "\\s+" first-line :limit 3)
            (unless url-string
              (send-bad-request-response stream)
  
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:   (:documentation "Used by acceptor to generate an error page for a
    request based on the http status code."))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Classes
  
  (defclass acceptor ()
    (
     ;; Configuration
  