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

(When (Null (fs:Get-Pathname-Host "HTech" t))
  #+ti   (load "sys:site;HTech.translations")
  #+lmi  (load "sys:site;HTech.translations")
  #+3600 (fs:make-logical-pathname-host "HTech"))

(SI:SET-SYSTEM-SOURCE-FILE "HyperCalc" "HTech:HyperCalc;DefSystem.Lisp")