;;; -*- Mode:LISP; Package:SI; Base:8; Readtable:T -*-

;;; Interim Site declarations for a CUSTOMER

;;; Prototype Lisp Machine locations file for LMI customers.

;;; This file is SYS: SITE; LMLOCS.LISP

;;; This file defines SI:MACHINE-LOCATION-ALIST, which describes the physical
;;; location and specific characteristics of all Lisp Machines defined in the
;;; host table SYS:CHAOS;HOSTS.TEXT.

;;; MACHINE-LOCATION-ALIST is a list of entries, one for each Lisp Machine.
;;; Each entry looks like:
;;;    (host-name pretty-name location (building floor) associated-machine site-options)
;;; where host-name is the official name of the machine (same as in the host table),
;;; pretty-name is a human-readable version of the host-name, location is typically
;;; an office and/or phone number, building and floor are self-explanatory, and
;;; associated-machine is the default login host for this Lisp Machine.

;;; Site options are primarily declared in SYS:SITE;SITE.LISP, for all Lisp Machines
;;; at a particular site.  However, an individual Lisp Machine may have customized
;;; site options by including a list of (option value) pairs as the last argument
;;; of its LMLOCS entry.  This is sometimes used to make a machine use a sys-host or
;;; default printer other than the default specified in the site file.

;;; Example:
;;; ("GODOT" "Waiting for Godot" "Room 341, x2674" ("1000 Mass Ave." 3) "LAMBDA-A"
;;;          '((:sys-host "POZZO") (:default-printer "LUCKY")))

;;; As in the host table, AMNESIA is a special machine used to denote unknown hosts.

(DEFCONST MACHINE-LOCATION-ALIST
	  '(("LAMBDA-A" 	"Lambda A"	 "Machine Room"
	     (CUSTOMER 1) "LAMA")

	    ("LMI-AMNESIA"      "[Unknown Chaos Address]"   "Nonexistent"
	     (Elsewhere 0) "LMI-AMNESIA")

	    ("LAMBDA-B"	"Lambda B"		"Machine Room"
	     (CUSTOMER 1) "LAMA")
	    
	    ("LAMBDA-C"   	"Lambda C" 	"Machine Room"
	     (CUSTOMER 1) "LAMA")
	    
	    ("LAMBDA-D"   	"Lambda D"        "Machine Room"
	     (CUSTOMER 1) "LAMA")
	    
	    ("LAMBDA-E"   	"Lambda E"        "Machine Room"
	     (CUSTOMER 1) "LAMA")
	    
	    ("LAMBDA-F"   	"Lambda F"        "Machine Room"
	     (CUSTOMER 1) "LAMA")
	    
	    ("LAMBDA-G"   	"Lambda G"        "Machine Room"
	     (CUSTOMER 1) "LAMA")
	    
	    ("LAMBDA-H"   	"Lambda H"        "Machine Room"
	     (CUSTOMER 1) "LAMA")
	    
	    ))