anchor.diff:  (defclass reply (trivial-gray-stream-mixin
                    fundamental-binary-output-stream
                    fundamental-character-output-stream)
  -  ((headers :accessor reply-headers :initform nil)
  +  ((headers :accessor reply-headers :initform '((:server . "conserv-http/dev")
  +                                                (:transfer-encoding . "chunked")))
      (status :accessor reply-status :initform 200)
      (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 t)))
  +   (keep-alive-p :accessor reply-keep-alive-p :initform t)
  +   (chunkedp :accessor reply-chunked-p :initform t)))
   
   (defmethod close ((reply reply) &key abort)
     (unless (or (reply-headers-written-p reply) abort)
       (write-headers reply))
  +  (when (reply-chunked-p reply)
  +    (format (reply-socket reply) "0~a~a" +crlf+ +crlf+ ))
     (if (reply-keep-alive-p reply)
         ;; TODO - reuse request/reply objects by reinitializing?
         ;;        (use shared-initialize with t for slots)
  
positive.code: 
  (defmethod stream-write-sequence ((reply reply) sequence start end &key)
    (ensure-headers-written reply)
    (stream-write-sequence (reply-socket reply) sequence start end))
  (defmethod stream-line-column ((reply reply))
    (ensure-headers-written reply)
    (stream-line-column (reply-socket reply)))
  (defmethod stream-write-char ((reply reply) char)
    (ensure-headers-written reply)
    (stream-write-char (reply-socket reply) char))
  (defmethod stream-write-byte ((reply reply) byte)
    (ensure-headers-written reply)
    (stream-write-byte (reply-socket reply) byte))
  (defmethod stream-write-string ((reply reply) string &optional start end)
    (ensure-headers-written reply)
    (stream-write-string (reply-socket reply) string start end))
  
  (defmethod write-headers ((reply reply))
    (cond ((reply-headers-written-p reply)
  
negative.code:    (write-headers ((reply a)))
     (headers-written-p ((reply a)) :accessorp t)
     (keep-alive-p ((reply a)) :accessorp t)
     (chunked-p ((reply a)) :accessorp t)
     (http-server ((reply a)))
     (socket ((reply a))))
    (:prefix reply-))
  