(in-package :mt)


(setf *transfer-edge-limit* 12000)

(setf *transfer-interlingua-predicates*
  (list
   "guess_rel"))

(setf *transfer-maximum-rank* 2)

(setf *transfer-tm*
  (namestring (make-pathname 
               :directory (namestring
                           (dir-append 
                            (get-sources-dir "mt") '(:relative "mt")))
               :name "mrs.blm")))

(setf *semi-test* '(:predicates :properties))