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:   (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:     (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)
  			 (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))
  