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:                        ((|link| |rel| "alternate" |type| "text/html"
                                  |href| ,(html-escape (format nil "http://sbcl.boinkor.net/bench/?HOST=~A&IMPLEMENTATIONS=~A&ONLY-RELEASE=~A"
                                                  host implementation (release-on-day implementation day)))))
                         (|modified| ,(format-atom-decoded-time day *bugfix-revision*))
                         (|issued| ,(format-atom-decoded-time day))
                         (|id| ,(format nil "tag:sbcl.boinkor.net,~A:/bench/~A" (format-readable-decoded-time day) implementation))
                         (|created| ,(format-atom-decoded-time day))
  