;;; -*- Package: FILE-SYSTEM; Mode: LISP; Base: 10; Syntax: Zetalisp -*-

(set-logical-pathname-host
  "Zcare"
  :physical-host "x26"
  :translations
  #+Symbolics
  '(("components;"      "zcare.components;")
    ("Instruments;" 	"Zcare.Instruments;")
    ("Designs;"   	"Zcare.Designs;")
    ("Libraries;"  	"Zcare.Libraries;")
    ("Examples;"   	"Zcare.Examples;")
    ("Zcare;"      	"Zcare.Definition;")
    )
  #+Ti
  '(("components"       "zcare.components;")
    ("Instruments"      "Zcare.Instruments;")
    ("Designs"          "Zcare.Designs;")
    ("Libraries"        "Zcare.Libraries;")
    ("Examples"         "Zcare.Examples;")
    ("Zcare"             "Zcare.Definition;")
    )
  )