;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:CL; Fonts:(CPTFONTB) -*-

;;; Defines the translations for the SYS logical host.  Other logical hosts
;;; can be defined the same way.

(fs:set-logical-pathname-host "SYS"
  :physical-host "LAMA" ; the actual computer where the sources are stored.
  ;; A list of pairs, which match components of logical pathname and
  ;; translate them to physical pathnames.
  :translations '(("CHAOS;" "<L.CUSTOMER-SITE>")
		  ("SITE;" "<L.CUSTOMER-SITE>")
		  ("*;*;*;" "<L.*.*.*>")
		  ("*;*;" "<L.*.*>")
		  ("*;" "<L.*>")))