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

(DEFCONST
    MACHINE-LOCATION-ALIST
  '(("SERVER" "server" "location" (MAIN 1) "server")
    ("CADR" "cadr" "location" (MAIN 2) "server")))