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

;;; 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.

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

(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")
	    
	    ))


@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------

@c xlmlocs