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


(fs:set-logical-pathname-host
  "CLUE"
  :physical-host "SYS"
  :translations '(("CLUE"     "CLUE;")
		  ("PATCH"    "PATCH.CLUE;")
		  ("EXAMPLES" "CLUE.EXAMPLES;")))