    :count      "number of fires on the given day."})
 
 ;; Record to hold a FireValue.
-(defrecord FireValue [temp-330 conf-50 both-preds count]
-  Comparable
-  (compareTo [m1 m2]
-    (forma.kryo.RecordComparator/recordCompare
-     m1 m2 [:temp-330 :conf-50 :both-preds :count])))
+(defrecord FireValue [temp-330 conf-50 both-preds count])
 
 (defn fire-value
   "Creates a `fire-value` object with counts of fires meeting certain criteria:

(defrecord NeighborValue
    [fire-value neighbor-count avg-short-drop min-short-drop
     avg-param-break min-param-break avg-long-drop min-long-drop
     avg-t-stat min-t-stat]
  Comparable
  (compareTo [m1 m2]
    (forma.kryo.RecordComparator/recordCompare
     m1 m2 [:neighbor-count :fire-value :avg-short-drop :min-short-drop
            :avg-param-break :min-param-break :avg-long-drop :min-long-drop
            :avg-t-stat :min-t-stat])))

(defn neighbor-value
  "Accepts either a forma value or a sequence of sub-values."

   :t-stat      "t-statistic for the relevant month."})

(defrecord FormaValue
    [fire-value short-drop param-break long-drop t-stat])

(defn forma-value
  "Returns a vector containing a FireValue, short-term drop,
