 ;;-
 
 
-(defmulti best-expected-match
+(defmulti #^{:private true} best-expected-match
   "Describe the best list of expected values found in the comparison."
   (fn [midje-classification comparison expected] midje-classification))
 

   (str "[" (apply str (interpose " " elements)) "]"))
;;-

(defmulti best-actual-match
  "Describe the best actuals found in the comparison."
  (fn [midje-classification comparison] midje-classification))


          keys))


(defn- compare-one-seq-permutation
  "Compare actual elements to expected, which is one of perhaps many
   permutations of the original expected list. looseness is a subset of
   #{:gaps-ok :in-any-order}."
