;;;	-*- Mode:Common-Lisp; Package:FILE-SYSTEM; Base:10 -*-

(set-logical-pathname-host
  "CLIO"
  :physical-host "X1"
  :translations
  '(("SOURCE"       	"CLIO;")
    ("PATCH"		"CLIO.PATCH;")))