anchor.diff:      (set-cookie "token" :value ""
                   :http-only t
                   :expires 0
  +                :path "/"
                   :secure nil)))
   
   (defun reset-token-cookie ()
     (awhen (cookie-in "token")
       (awhen (gethash it *tokens*)
         (remhash it *tokens*))
  -    (start-token))) 
  +    (start-token)))
   
   (defun markdown-file (path)
     (nth-value 1 (markdown (pathname path) :stream nil)))
  
positive.code:                     (for rule-function in (cdadr rule) by #'cddr)
                      (when (eq method rule-method)
                        (leave (with-user
                                 (when *userid*
                                   (send-metric (acceptor-metric-system acceptor) :active *userid*))
                                 (schedule-timer
  
negative.code: (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
  