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:                           (terpri s)))))))
    t)
  
  (defun releases-for-implementations (host implementations)
    `((nil "All releases")
      ,@(iterate (for (version date steps) in-relation
                      (translate*
  
negative.code:                  (h2 "Release")
                   (p
                    ,(make-select :only-release only-release
                                  (tested-releases-for-implementations host implementations)))
                   (p
                    ((|input| :type "submit" :value "Graph")))
                   (h2 "Syndicate (atom 1.0)")
  