(in-package :mt)

;;;
;;; disable all post-transfer post-processing of MRSs; needed in Norwegian --
;;; English MT (due to mismatches in internal variable structure), but surely
;;; not when working with only one grammar.
;;;
(setf *transfer-filter-p* nil)

(setf %transfer-properties-accumulator% nil)

(setf %transfer-properties-defaults% nil)

;(setf %transfer-properties-filter%
;  (list
;   (cons (mrs::vsym "PNG.GEND") nil)))

(setf %transfer-properties-filter% nil)

(setf %transfer-values-filter% nil)