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

(fs:set-logical-pathname-host
	"DOCTOOL"
	:physical-host "WALL"
	:translations '(("GRUNCH;" "DOC.TOOLS;")
			("*;"  "DOC.TOOLS;")
			("*;*;" "DOC.TOOLS.*;")
			("*;*;*;" "DOC.TOOLS.*.*;")))