anchor.diff:              |xmlns:dc| "http://purl.org/dc/elements/1.1/"
               |xml:lang| "en")
       (|title| ,(format nil "Significant changes in SBCL benchmark results on ~A" host))
  -    (|modified| ,(format-atom-decoded-time last-modified 1))
  +    (|modified| ,(format-atom-decoded-time last-modified *bugfix-revision*))
       (|id| ,(format nil "tag:sbcl.boinkor.net,~A:/bench/~A" (nth-value 5 (get-decoded-time)) implementation))
       ((|link| |rel| "alternate"
                |type| "text/html"
  
positive.code:   (let ((*latest-result* (first (pg-result (pg-exec *dbconn* "select max(date) from result") :tuple 0))))
      (request-send-headers request
                            :expires  (+ 1200 (get-universal-time)) ; TODO: set this to now+20 minutes (-:
                            :last-modified *latest-result*
                            :conditional t
                            :content-type "text/xml; charset=utf-8"))
    (let ((s (request-stream request)))
  
negative.code: (in-package :autobench-web)
  
  (defparameter *bugfix-revision* 2)
  
  (defparameter *go-back-days* 50)
  (defparameter *ignore-benchmarks* '(quote ("MAKE-LIST-SEQUENTIAL/RPLACD" "MAKE-LIST-SEQUENTIAL/PUSH-NREVERSE" "CRC40")))
  
  (defclass atom-handler (handler) ())
  