anchor.diff:          (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))
  -
  -
  -;; arch-tag: 05bed3a0-4ebb-4dc6-8308-3033a1c00f65
  
positive.code:                  (h2 "Release")
                   (p
                    ,(make-select :only-release only-release
                                  (releases-for-implementations host implementations)))
                   (p
                    ((|input| :type "submit" :value "Graph")))
                   (h2 "Syndicate (atom 1.0)")
  
negative.code:                           (terpri s)))))))
    t)
  
  (defun tested-releases-for-implementations (host implementations)
    `((nil "All releases")
      ,@(iterate (for (version date steps) in-relation
                      (translate*
  