;;; -*- Mode:LISP; Package:SI; Base:8; Readtable:T -*-
;;; Locations for Andover machines.
;;; The associated machine for most of these machines doesn't really exist yet...

(DEFCONST MACHINE-LOCATION-ALIST
 '(
   ;; ** CADR **

   ("LMI-LISP-MACHINE-1"      "Lisp Machine One" 	"Production"
    (ANDOVER 1) "CADR1")

   ("LMI-LISP-MACHINE-2"      "Lisp Machine Two" 	"Production"
    (ANDOVER 1) "CADR1")

   ("LMI-LISP-MACHINE-3"      "Lisp Machine Three" 	"Production"
    (ANDOVER 1) "CADR1")
	    
   ("LMI-LISP-MACHINE-4"      "Lisp Machine Four" 	"Production"
    (ANDOVER 1) "CADR1")

   ("LMI-LISP-MACHINE-5"      "Lisp Machine Five" 	"Production"
    (ANDOVER 1) "CADR1")

   ;; Lambdas for people (ha !)

   ("LMI-LAMBDA-CS1"	"Customer Service 1"	"Customer Service"
    (ANDOVER 1) "GEORGE" ((:DEFAULT-PRINTER '(:TI855 "LAM-CS1"))
		      (:DEFAULT-BIT-ARRAY-PRINTER '(:TI855 "LAM-CS1"))))
	    
   ("LMI-LAMBDA-CS2"	"Customer Service 2"	"Customer Service"
    (ANDOVER 1) "GEORGE" ((:DEFAULT-PRINTER '(:TI855 "LAM-CS1"))
		      (:DEFAULT-BIT-ARRAY-PRINTER '(:TI855 "LAM-CS1"))))

   ;; Education

   ("LMI-ZONKER"	"Zonker Harris"	"Andover Education Center"
    (4-and-tc 2)    "LMI-LAMBDA-3" ((:default-printer '(:laser1 "GUFF"))
				    (:default-bit-array-printer '(:laser1 "GUFF"))))
   
   ("LMI-DUKE"          "Uncle Duke"	"Andover Education Center"
    (4-and-tc 2)    "LMI-LAMBDA-3" ((:default-printer '(:laser1 "GUFF"))
				    (:default-bit-array-printer '(:laser1 "GUFF"))))

	    
   ("LMI-BEDLAM"	"Bedlam"		"Education Development"
    (lmi 3) "GUFF" ((:DEFAULT-PRINTER '(:LASER1 "GUFF"))
			     (:DEFAULT-BIT-ARRAY-PRINTER '(:imagen "100.0.0.40"))))
   
   ("LMI-HIGGINS"   	"Henry Higgins"          "Education"
    (lmi 3) "GUFF" ((:DEFAULT-PRINTER '(:LASER1 "GUFF"))
		    (:DEFAULT-BIT-ARRAY-PRINTER '(:LASER1 "GUFF"))))
   
   ("LMI-SHOW-1"       "SHOW-1"                 "On the road"
    (andover 1) "GEORGE")

   ("LMI-SHOW-2"       "SHOW-2"                 "On the road"
    (andover 1) "GEORGE")

   ("LMI-SHOW-3"       "SHOW-3"                 "On the road"
    (andover 1) "GEORGE")

   ("LMI-SHOW-4"       "SHOW-4"                 "On the road"
    (andover 1) "GEORGE")
  
   ;; TEST SERIES: These machines are really for testing purposes; if are getting
   ;; a machine that is really going to stay at LMI, you should rename it.
	    
   ("LAMBDA-TEST-A" 	"Test Lambda A"		"Production Area"
    (andover 1) "GEORGE")
	    
   ("LAMBDA-TEST-B"	"Test Lambda B"		"Production Area"
    (andover 1) "GEORGE")

   ("LAMBDA-TEST-C"   	"Test Lambda C" 	"Production Area"
    (andover 1) "GEORGE")
   
   ("LAMBDA-TEST-D"   	"Test Lambda D"          "Production Area"
    (andover 1) "GEORGE")

   ("LAMBDA-TEST-E"   	"Test Lambda E"          "Production Area"
    (andover 1) "GEORGE")

   ("LAMBDA-TEST-F"   	"Test Lambda F"          "Production Area"
    (andover 1) "GEORGE")
	    
   ("LAMBDA-TEST-G"   	"Test Lambda G"          "Production Area"
    (andover 1) "GEORGE")

   ;; HACKS
   ("LMI-AMNESIA"  "Huh ? [No Chaos Address]" "Where am I ?"
    (? 0) "LMI-AMNESIA")

   ))