anchor.diff:    "Start sending the reply."
     (let* ((return-code (return-code request))
            (acceptor (acceptor request))
  -         (chunkedp (and (output-chunking-p acceptor)
  -                        (eql (server-protocol request) :http/1.1)
  +         (chunkedp (and (eql (server-protocol request) :http/1.1)
                           ;; only turn chunking on if the content
                           ;; length is unknown at this point...
                           (null (or (content-length request) content-provided-p))))
  
positive.code:     :port 80
      :listen-backlog 50
      :taskmaster (make-instance *default-taskmaster-class*)
      :output-chunking-p t
      :input-chunking-p t
      :persistent-connections-p t
      :read-timeout *default-connection-timeout*
      :write-timeout *default-connection-timeout*
  
negative.code:                       (setf transfer-encodings (split "\\s*,\\s*" transfer-encodings))
  
                        (when (member "chunked" transfer-encodings :test #'equalp)
                          ;; turn chunking on before we read the request body
                          (setf content-stream (make-chunked-stream content-stream))
                          (setf (chunked-stream-input-chunking-p content-stream) t)))
  
                      (multiple-value-bind (remote-addr remote-port)
                          (get-peer-address-and-port socket)
  