(defun MakePrediction (ruleset row)
  (if (funcall (RDRule-fn ruleset) row)
      (if (RDRule-true ruleset)
	  (MakePrediction (RDRule-true ruleset) row)
	  (GetFirstTrue ruleset row))
      (if (RDRule-false ruleset)
	  (MakePrediction (RDRule-false ruleset) row)
	  (GetFirstTrue ruleset row))))

(deftest test-MakePrediction ()
  (check
   (= 1
      (MakePrediction (make-RDRule :class 1 :fn (MakePredicate 1 'ADULT)) (first (table-rows (titanic)))))))