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

(fs:set-logical-pathname-host
	"TEX"
	:physical-host "CHOP"
	:translations '(("*;"  "DOC.TOOLS.TEX.*;")
			("*;*;" "DOC.TOOLS.TEX.*.*;")
			("*;*;*;" "DOC.TOOLS.TEX.*.*.*;")))