anchor.diff:  
   (defmethod stream-write-sequence ((reply reply) sequence start end &key)
     (ensure-headers-written reply)
  -  (stream-write-sequence (reply-socket reply) sequence start end))
  +  (when (reply-chunked-p reply)
  +    (format (reply-socket reply) "~x~a" (- (or end (length sequence)) (or start 0)) +crlf+))
  +  (stream-write-sequence (reply-socket reply) sequence start end)
  +  (when (reply-chunked-p reply)
  +    (write-sequence +crlf+ (reply-socket reply))) )
   (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))
  +  (when (reply-chunked-p reply)
  +    (format (reply-socket reply) "1~a" +crlf+))
  +  (stream-write-char (reply-socket reply) char)
  +  (when (reply-chunked-p reply)
  +    (write-sequence +crlf+ (reply-socket reply))))
   (defmethod stream-write-byte ((reply reply) byte)
     (ensure-headers-written reply)
  -  (stream-write-byte (reply-socket reply) byte))
  +  (when (reply-chunked-p reply)
  +    (format (reply-socket reply) "1~a" +crlf+))
  +  (stream-write-byte (reply-socket reply) byte)
  +  (when (reply-chunked-p reply)
  +    (write-sequence +crlf+ (reply-socket reply))))
   (defmethod stream-write-string ((reply reply) string &optional start end)
     (ensure-headers-written reply)
  -  (stream-write-string (reply-socket reply) string start end))
  +  (when (reply-chunked-p reply)
  +    (format (reply-socket reply) "~x~a" (- (or end (length string)) (or start 0)) +crlf+))
  +  (stream-write-string (reply-socket reply) string start end)
  +  (when (reply-chunked-p reply)
  +    (write-sequence +crlf+ (reply-socket reply))))
   
   (defmethod write-headers ((reply reply))
     (cond ((reply-headers-written-p reply)
  
positive.code:    (write-headers ((reply a)))
     (headers-written-p ((reply a)) :accessorp t)
     (keep-alive-p ((reply a)) :accessorp t)
     (http-server ((reply a)))
     (socket ((reply a))))
    (:prefix reply-))
  
negative.code:            (write-sequence +crlf+ socket)
             (loop for (name . value) in (reply-headers reply)
                do (format socket "~:(~A~): ~A" name value)
                  (write-sequence +crlf+ socket)
                  (when (eq :content-length name)
                    (setf (reply-chunked-p reply) nil)))
             (write-sequence +crlf+ socket)
             (setf (reply-headers-written-p reply) t)))))
  
  