anchor.diff:        (when (and host implementations)
           (mapcar (lambda (elt) (html-stream (request-stream request) elt))
                   (make-select-options nil
  -                                     (releases-for-implementations host implementations)))))))
  +                                     (tested-releases-for-implementations
  +                                      host implementations)))))))
   
   (defmethod handle-request-response ((handler implementation-handler) method request)
     (with-db-connection *dbconn*
  
positive.code:           (request-send-headers request
                                  :expires  (+ 1200 (get-universal-time))
                                  :content-type "application/xhtml+xml; charset=utf-8"
                                  :last-modified *latest-result*
                                  :conditional t) 
            (let ((s (request-stream request)))
              ;; (format s "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">")
  
negative.code:         (mapcar (lambda (elt) (html-stream (request-stream request) elt))
                  (make-select-options nil
                                       (mapcar (lambda (impl) (list impl (pprint-impl-and-mode impl))) (all-implementations-of-host host))))))))
   
  ;;;; The sitemap.
  (araneida:attach-hierarchy (http-listener-handler *bench-listener*) *internal-base-url* *base-url*
    ("/" index-handler)
    ("/ajax/releases/" release-handler)
    ("/ajax/implementations/" implementation-handler)
    ("/atom/"  atom-handler))
  