anchor.diff:              (translate* `(select ((min release-date) (max release-date))
                                    (where (join version result
                                                 :on (and (= result.v-name version.i-name) (= v-version version)))
  -                                        (and (= m-name ,host)
  +                                        (and (in m-name ',host)
                                                ,(if only-release
                                                     `(like version (++ ,only-release ".%"))
                                                     t))))))
  
positive.code:                                                                         (where
                                                                           (join result benchmark
                                                                                 :on (= result.b_name benchmark.name))
                                                                           (= result.m-name ,host)))))) :tuples))
           (date-boundaries (apply #'date-boundaries args))
           (earliest (first date-boundaries))
           (latest (second date-boundaries)))
  
negative.code:   (let ((filename (merge-pathnames (apply #'file-name-for conditions) *prefab-base*)))
      (unless (and (probe-file filename)
                   (probe-file (make-pathname :type "png" :defaults filename))
                   (>= (file-write-date filename) *latest-result*))
        (apply #'generate-image-for conditions))))
  
  (defun url-for-image (&rest conditions)
  