;;; -*- Mode:Lisp; Package:USER; Base:10 -*-
;;; Copyright (c) 1985, HyperTech Associates.  All rights reserved.

#+ti   ;; Version for Texas Instruments machine.
(fs:add-logical-pathname-host
  "HTech"
  "lm"  ;; change this to be the physical host
  '(("HyperTech"        "Hyper;")
    ("HyperWindow"      "Hyper.Window;")
    ("HyperCalc"        "Hyper.Calc;")
    ("HyperDemo"        "Hyper.Demo;")
    ("HyperTmpl"        "Hyper.Tmpl;"))
  )

#+lmi  ;; Version for LMI machine.
(fs:add-logical-pathname-host
  "HTech"
  "lm"
  '(("HyperTech;"       "Hyper;")
    ("Hyper*;"          "Hyper.*;"))
  )

#+3600 ;; Version for Symbolics machine.
(fs:set-logical-pathname-host
  "HTech"
  :Physical-Host "local" ;; change this to be the physical host
  :Translations
  '(("HyperTech;"        ">Hyper>")
    ("Hyper*;"           ">Hyper>*>*.*.*"))
  )