;;; -*- Syntax: Common-lisp; Package: User -*-

;;; Set up logical device PROTOS with logical directory for code.

(fs:set-logical-pathname-host
  "PROTOS"					; "PROTOS" is the logical host name.
  :physical-host "X27"				; "X27" is the physical host name.
;;;  :no-search-for-shadowed-physical t		; no host actually named "PROTOS".  (Symbolics specific)
  :translations
  '(;; logical-to-physical directory translations.
    ("protos;"         "protos.sources;")	;where the Lisp files live
    ("protos; patch;"  "protos.patch;")))