           {:genome (produce-child-genome-by-autoconstruction g g argmap)} 
           argmap)))
 
+(defn not-a-clone-diversifying?
+  "Returns true iff genome g passes the diversification test."
+  [g {:keys [parent1-genome parent2-genome]}]
+  (and (not= g parent1-genome)
+       (not= g parent2-genome)))
+
 (defn three-gens-diff-diffs-diversifying?
   "Returns true iff genome g passes the diversification test."
   [g argmap]

                                             {:genome child-genome} 
                                             argmap)))
                         nil)
          variant (diversifying? child-genome argmap)
          use-child (or variant
                        (and autoconstructive-improve-or-diversify
                             (some (fn [[child-error parent1-error parent2-error]]

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