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

;;; Prototype site declaration for LMI Customers

(DEFSITE :CUSTOMER ;change :CUSTOMER to :YOUR-SITE-NAME
  ;; The host on which the system sources are located.
  (:SYS-HOST "LM")

  ;; These two describe how to log in to the SYS host to get microcode error tables
  ;; and patch files.
  (:SYS-LOGIN-NAME "LISPM")
  (:SYS-LOGIN-PASSWORD "LISPM")

  ;; A list of machines that have a server to provide the time and date to machines
  ;;   on the network.
  (:CHAOS-TIME-SERVER-HOSTS '("Lambda-A" "Lambda-B" "Lambda-C"))

  ;; Hosts that can provide information about non-Chaosnet hosts.
  (:CHAOS-HOST-TABLE-SERVER-HOSTS '())

  ;; Hosts that have mail servers capable of forwarding mail anywhere.
  (:CHAOS-MAIL-SERVER-HOSTS '())

  ;; The argument is the number of hours east of GMT.  EST=5, CST=6, MST=7, and PST=8.
  (:TIMEZONE 5)

  ;; Destination for mail to BUG-???.
  (:HOST-FOR-BUG-REPORTS "Lambda-A")

  ;; "Local sites", used by ZMail summary display
  (:LOCAL-MAIL-HOSTS '("Lambda-A"))

  ;; A list of lists of names and printer specs
  ;; Initial printer types known include :ti855, :toshiba, and :vanilla.
  (:PRINTER-NAMES '((("OUR-PRINTER") (:ti855 "Lambda-A"))))

  ;; This is the default printer.
  (:DEFAULT-PRINTER "OUR-PRINTER")

  ;; Normal printing device for screen dumps and arrays.
  (:DEFAULT-BIT-ARRAY-PRINTER '(:ti855 "Lambda-A"))

  ;; If :standalone is T, the real time is gotten directly from the SDU clock instead
  ;;   of probing the network.  If you do not have a network, you can save booting time
  ;;   by setting this option to T, although the system works equivalently either way.
  (:STANDALONE NIL)

  ;; Interpretation of arguments to ESC F is always Lisp Machines.
  (:ESC-F-ARG-ALIST '((t . :LISP-MACHINES)
		      (0 . :READ)))

  (:SHORT-SITE-NAME "Customer Site")
  (:LONG-SITE-NAME "Generic LMI Customer Site")
  )