anchor.diff:        (write-ln "Set-Cookie: " it))
       (when (keep-alive? res) 
         (write-ln "Connection: keep-alive")
  +      (write-ln "Date: " (http-date))
         (write-ln "Expires: Thu, 01 Jan 1970 00:00:01 GMT"))
       (awhen (body res)
         (write-ln "Content-Length: " (write-to-string (length it))) (crlf stream)
  
positive.code:   (write-char #\linefeed stream)
    (values))
  
  (defmethod write! ((res response) (stream stream))
    (flet ((write-ln (&rest strings)
  	   (mapc (lambda (str) (write-string str stream)) strings)
  
negative.code:     (crlf stream)
      (values)))
  
  (defmethod write! ((res sse) (stream stream))
    (format stream "~@[id: ~a~%~]~@[event: ~a~%~]~@[retry: ~a~%~]data: ~a~%~%"
  	  (id res) (event res) (retry res) (data res)))
  
  (defmethod write! (msg (sock usocket))
    (write! msg (socket-stream sock)))
  
  ;;;;; Defining Handlers
  (defmacro make-closing-handler ((&key (content-type "text/html")) &body body)
    `(lambda (sock cookie? session parameters)
       (declare (ignorable session parameters))
       (let ((res (make-instance 
  		 'response 
  		 :content-type ,content-type 
  		 :cookie (unless cookie? (token session))
  		 :body (progn ,@body))))
         (write! res sock)
         (socket-close sock))))
  
  (defmacro make-stream-handler (&body body)
    `(lambda (sock cookie? session parameters)
       (declare (ignorable session parameters))
       (let ((res (progn ,@body)))
         (write! (make-instance 'response
  		:keep-alive? t :content-type "text/event-stream" 
  		:cookie (unless cookie? (token session))) sock)
         (awhen res (write! (make-instance 'sse :data it) sock))
         (force-output (socket-stream sock)))))
  
  (defmacro bind-handler (name handler)
    (let ((uri (format nil "/~(~a~)" name)))
  