;;; -*- Mode:Common-Lisp; Package:USER; Base:10 -*-

;; logical-pathname-host calls should be in a X11.TRANSLATIONS file.

(fs:set-logical-pathname-host "X11M"
    :physical-host (send (fs:get-pathname-host "SYS") :host)
    :translations  '(("SERVER" 		"X11M.SERVER;")
		     ("PATCH-SERVER" 	"X11M.PATCH-SERVER;")
		     ("UTILITIES" 	"X11M.UTILITIES;")
		     ("FONTS" 		"X11M.FONTS;")))