;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Base:8; Readtable:ZL -*-


;;; Has code so that DTP-INDEX-FORWARD can be used to implement an environment
;;; feature so that global cells such as FUNCTION, VALUE, and PLIST (for example)
;;; can be indirected into a ARRAY that can be switched easily on a per-process
;;; basis. This allows running more than one instead of a program such as DOE-MACSYMA
;;;

(DEFSYSTEM TIMESHARE
  (:PATHNAME-DEFAULT "SYS:TIMESHARE;")
  (:MODULE DEFS "DEFS")
  (:Module main "main")
  (:module setup "setup")
  (:COMPILE-LOAD DEFS)
  (:compile-load main (:fasload defs) (:fasload defs))
  (:compile-load setup (:fasload defs) (:fasload main)))