anchor.diff:        (setf (request-method *request*) (request-parser-method parser)
               (request-http-version *request*) (request-parser-http-version parser)
               (request-url *request*) (request-parser-url parser)
  -            (request-headers *request*) (request-parser-headers parser)))
  +            (request-headers *request*) (request-parser-headers parser))
  +      (when (string-equal "1.0" (request-http-version *request*))
  +        (setf (reply-keep-alive-p *reply*) nil)))
       (when rest
         (if donep
             (progn
  
positive.code:   (if (reply-keep-alive-p reply)
        ;; TODO - reuse request/reply objects by reinitializing?
        ;;        (use shared-initialize with t for slots)
        (progn
          (write-sequence +crlf+ (reply-socket reply))
          (new-request (reply-http-server reply)
                       (reply-socket reply)))
        (close (reply-socket reply) :abort abort)))
  
  (defun reply-headers* ()
  
negative.code:             (when (member '("Connection" . "keep-alive") (request-headers *request*)
                            :test #'equalp)
                (setf (reply-keep-alive-p *reply*) t))
              (when (member '("Connection" . "close") (request-headers *request*)
                            :test #'equalp)
                (setf (reply-keep-alive-p *reply*) nil))
              (when (member "Upgrade" (request-headers *request*)
                            :test #'string-equal
                            :key #'car)
  