(defmacro MakePredicate (col value)
  ;(incf *TREESIZE*)
  `(lambda (datarow) (equal (nth ,col (eg-features datarow)) ,value)))

;(defmacro MakePredicate2 (row endruleset)
  ;(incf *TREESIZE*)
  ;`(lambda (datarow) (equal (nth ,col (eg-features datarow)) ,value)))

;(deftest test-MakePredicate ()
;  (check
;    (funcall (MakePredicate 1 'MILD) (first (table-rows (weather))))))