(in-package :mt)

(setf *transfer-interlingua-predicates* '(lkb::focus_d_rel lkb::parg_d_rel))

(setf *transfer-tm* nil)

(defun preprocess (mrs)
  (loop
      for ep in (mrs:psoa-liszt mrs)
      do (setf (mrs:rel-pred ep) (format nil "~(en:~a~)" (mrs:rel-pred ep))))
  mrs)

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


(setf *transfer-tm*
  (namestring (make-pathname 
               :directory (namestring
                           (format nil "~a/dfki/gg" (getenv "LOGONROOT")))
               :name "mrs.blm")))