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

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


(fs:set-logical-pathname-host "XWM"
    :physical-host (send (fs:get-pathname-host "SYS") :host)
    :translations  '(("XWM" 		"Public.XWM;")))