;;; -*- Mode:LISP; Base:10; Readtable:CL; Package: User -*-

(fs:set-logical-pathname-host
	"DOC"
	:physical-host "LAD"
	:translations '(("*:SOURCE;" "MT.ZINFO;")
			("*:*;"  "MT.INFO;")
			("*:*;*;" "MT.INFO;")
			("*:*;*;*;" "MT.INFO;")))