      :si-and-mate-use si-and-mate-use-diversifying?
      :no-clones no-clones-diversifying?
      :not-a-clone not-a-clone-diversifying?
+     :minimum-genetic-difference minimum-genetic-difference-diversifying?
      :none (fn [genome argmap] true))
     g
     argmap))

        :is-random-replacement
        (if use-child false true)))))


  (and (not= g parent1-genome)
       (not= g parent2-genome)))

(defn minimum-genetic-difference-diversifying?
  "Returns true iff genome g passes the diversification test."
  [g {:keys [parent1-genome parent2-genome]}]
  (and (<= (sequence-similarity g parent1-genome) 0.9)
       (<= (sequence-similarity g parent2-genome) 0.9)))

(defn three-gens-diff-diffs-diversifying?
  "Returns true iff genome g passes the diversification test."
  [g argmap]
