anchor.diff:             (write-sequence +crlf+ socket)
              (loop for (name . value) in (reply-headers reply)
                 do (format socket "~:(~A~): ~A" name value)
  -                (write-sequence +crlf+ socket))
  +                (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)))))
   
  
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: 
  (defmethod stream-write-sequence ((reply reply) sequence start end &key)
    (ensure-headers-written reply)
    (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)
    (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)
    (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)
    (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)
  