anchor.diff:  (defclass k-acceptor (acceptor)
     ((metric-system :initform (make-instance 'metric-system)
                     :reader acceptor-metric-system)))
  +
  +(defun too-many-cookies-p ()
  +  (let ((cookies (cookies-in*)))
  +    (> (length (remove "token" cookies :key #'car :test #'string-not-equal)) 1)))
   
   (defmethod acceptor-dispatch-request ((acceptor k-acceptor) request)
     (with-token
  
positive.code:     (set-cookie "token" :value ""
                  :http-only t
                  :expires 0
                  :secure nil)))
  
  (defun reset-token-cookie ()
    (awhen (cookie-in "token")
      (awhen (gethash it *tokens*)
        (remhash it *tokens*))
      (start-token))) 
  
  (defun markdown-file (path)
    (nth-value 1 (markdown (pathname path) :stream nil)))
  
negative.code:                     (for rule-function in (cdadr rule) by #'cddr)
                      (when (eq method rule-method)
                        (leave (with-user
                                 (when (and (eq method :get) (too-many-cookies-p))
                                   ;; earlier code erroneously set multiple tokens that might need to be cleared
                                   (set-cookie "token" :value "" :expires 0 :path (script-name*)) )
                                 (when *userid*
                                   (send-metric (acceptor-metric-system acceptor) :active *userid*))
                                 (schedule-timer
  