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:         (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))))))))
  
  (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
  
negative.code:                           (terpri s)))))))
    t)
  
  (defun tested-releases-for-implementations (host implementations)
    `((nil "All releases")
      ,@(iterate (for (version date steps) in-relation
                      (translate*
  