anchor.diff:      `(lambda (sock ,cookie? session parameters)
          (declare (ignorable session))
          (let ,(loop for arg in args 
  -		collect `(,arg (cdr (assoc ,(->keyword arg) parameters))))
  +		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" 
  
positive.code:     (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))
  			 (let ((buf (gethash ready buffers (make-instance 'buffer))))
  			   (format t "Reading from buffer ...~%")
  			   (when (eq :eof (buffer! (socket-stream ready) buf))
  
negative.code:   (with-gensyms (cookie?)
      `(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 (make-instance 
  		     'response 
  		     :content-type ,content-type 
  