anchor.diff:      (unwind-protect
   	 (loop (loop for ready in (wait-for-input (cons server (alexandria:hash-table-keys conns)) :ready-only t)
   		  do (if (typep ready 'stream-server-usocket)
  -			 (progn
  -			   (format t "New connection ...~%")
  -			   (setf (gethash (socket-accept ready) conns) :on))
  +			 (setf (gethash (socket-accept ready) conns) :on)
   			 (let ((buf (gethash ready buffers (make-instance 'buffer))))
   			   (format t "Reading from buffer ...~%")
   			   (when (eq :eof (buffer! (socket-stream ready) buf))
  
positive.code:   (with-gensyms (cookie?)
      `(lambda (sock ,cookie? session parameters)
         (declare (ignorable session))
         (let ,(loop for arg in args collect `(,arg (cdr (assoc ,(->keyword arg) parameters))))
  	 (let ((res (make-instance 
  		     'response 
  		     :content-type ,content-type 
  
negative.code:     `(lambda (sock ,cookie? session parameters)
         (declare (ignorable session))
         (let ,(loop for arg in args 
  		collect `(,arg (uri-decode (cdr (assoc ,(->keyword arg) parameters)))))
  	 (let ((res (progn ,@body)))
  	   (write! (make-instance 'response
  				  :keep-alive? t :content-type "text/event-stream" 
  