(fs:set-logical-pathname-host
  "HTech"
  :Physical-Host "LAM3"
  :Translations
    '(("HyperTech;"   "Hyper;")
      ("HyperCalc;"   "Hyper.Calc;")
      ("HyperWindow;" "Hyper.Window;")
      ("HyperTmpl;"   "Hyper.Tmpl;")))