anchor.diff:     (socket :reader reply-socket :initarg :socket)
      (headers-written-p :accessor reply-headers-written-p :initform nil)
      (http-server :reader reply-http-server :initarg :http-server)
  -   (keep-alive-p :accessor reply-keep-alive-p :initform nil)))
  +   (keep-alive-p :accessor reply-keep-alive-p :initform t)))
   
   (defmethod close ((reply reply) &key abort)
     (unless (or (reply-headers-written-p reply) abort)
  
positive.code:       (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)))
      (when rest
        (if donep
            (progn
  
negative.code:   (if (reply-keep-alive-p reply)
        ;; TODO - reuse request/reply objects by reinitializing?
        ;;        (use shared-initialize with t for slots)
        (new-request (reply-http-server reply)
                     (reply-socket reply))
        (close (reply-socket reply) :abort abort)))
  
  (defun reply-headers* ()
  