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

(fs:set-logical-pathname-host
  "STC"
  :physical-host "KSL-EXP-34"
  :translations '(("STC"       "HYPERCLASS.HC-SOURCE;")
		  ("BUILD"     "HYPERCLASS.BUILD;")
		  ("DEFSYSTEM" "HYPERCLASS.HC-SOURCE.DEFSYSTEM;")
		  ("VTOOLS"    "HYPERCLASS.VTOOLS;")))