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

(fs:set-logical-pathname-host
  "DME" :Physical-Host "X34"
  :Translations '(("DME"		"DME;")
		  ("EXAMPLES"		"DME.EXAMPLES;")
		  ("SOURCE"		"DME.SOURCE;")
		  ("DOC"		"DME.DOC;")
		  ("DEMO"		"DME.DEMO;")
		  ("PATCHES"		"DME.PATCHES;")
		  ("USER-INTERFACE"	"DME.USER-INTERFACE;")
		 )
)