(defmacro MakePredicate (col value)
  `(lambda (datarow) (equal (nth ,col (eg-features datarow)) ,value)))

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