;;; -*- Mode:Common-Lisp; Mode:COMMON-LISP; Package:FS; Base:10 -*-

(set-logical-pathname-host "ip"
			   :physical-host (send (get-pathname-host "sys") :host)
			   :translations '(("ip" "ip;")     ;note Explorer syntax
					   ("patch" "ip-patch;")))