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

(fs:set-logical-pathname-host "CLX"
  :physical-host (send (fs:get-pathname-host "SYS") :host)
  :translations  '(("CLX"   "CLX;")
		   ("PATCH" "PATCH.CLX;")
		   ("DEBUG" "CLX.DEBUG;")
		   ))