anchor.diff:  
   ;;;;; Handling requests
   (defmethod handle-request ((sock usocket) (req request))
  -  (format t "Handling request for '~a'...~%" (resource req))
     (aif (lookup (resource req) *handlers*)
          (handler-case
  -	   (let* ((check? (aand (session-token req) (get-session! it)))
  -		  (sess (aif check? it (new-session!))))
  -	     (format t "Got session ~s (check? :: ~s)...~%" sess check?)
  -	     (funcall it sock check? sess (parameters req)))
  +	 (let* ((check? (aand (session-token req) (get-session! it)))
  +		(sess (aif check? it (new-session!))))
  +	   (funcall it sock check? sess (parameters req)))
   	 ((not simple-error) () (error! +400+ sock)))
          (error! +404+ sock)))
   
  
positive.code:     `(lambda (sock ,cookie? session parameters)
         (declare (ignorable session))
         (let ,(loop for arg in args 
  		collect `(,arg (cdr (assoc ,(->keyword arg) parameters))))
  	 (let ((res (progn ,@body)))
  	   (write! (make-instance 'response
  				  :keep-alive? t :content-type "text/event-stream" 
  
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 
  