anchor.diff:  (defclass response ()
     ((headers :accessor response-headers :initarg :headers :initform nil)
      (request :accessor response-request :initarg :request :initform nil)
  -   (finishedp :accessor response-finished-p :initarg :finishedp :initform nil))
  +   (finishedp :accessor response-finished-p :initarg :finishedp :initform nil)
  +   (chunki-stream :accessor response-chunk-stream :initarg :chunk-stream :initform nil))
     (:documentation "A class holding information about a response to the client."))
   
   (defmacro with-chunking (request (chunk-data last-chunk-p) &body body)
  
positive.code:       ;; send body if specified
        (when body
          (as:write-socket-data socket body-enc)))
      ;; if we speficied we want to close, do it now
      (if close
          ;; close the socket once it's done writing
  
negative.code:         (progn
            (wlog +log-debug+ "(response) Reset parser: ~a~%" response)
            (setup-parser socket)))
  
      ;; mark the response as having been sent
      (setf (response-finished-p response) t)))
  
  (defun start-response (response &key (status 200) headers)
  