(defun MakePrediction (ruleset row &optional (prune nil))
  (values (if (funcall (RDRule-fn ruleset) row)
	      (if (RDRule-true ruleset)
		  (MakePrediction (RDRule-true ruleset) row prune)
		  (GetFirstTrue ruleset row prune))
	      (if (RDRule-false ruleset)
		  (MakePrediction (RDRule-false ruleset) row prune)
		  (GetFirstTrue ruleset row prune)))
	  ruleset))

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