anchor.diff:                                     30
                                      5))
                                  (unwind-protect
  -                                 (apply (fdefinition rule-function) (coerce results 'list))
  +                                 (apply (fdefinition rule-function) (coerce results 'list)) 
                                    (unschedule-timer timer)))))
                       (finally
                         (setf (return-code*) +http-method-not-allowed+)
  
positive.code: (defclass k-acceptor (acceptor)
    ((metric-system :initform (make-instance 'metric-system)
                    :reader acceptor-metric-system)))
  
  (defmethod acceptor-dispatch-request ((acceptor k-acceptor) request)
    (with-token
  
negative.code:     (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)))
  
  (defun markdown-file (path)
    (nth-value 1 (markdown (pathname path) :stream nil)))
  