(FILECREATED "28-Apr-85 15:33:00" {ERIS}<LISP>CURRENT>INIT.NOGREET;15
 3501   

      changes to:  (VARS INITCOMS)

      previous date: "31-Mar-85 22:54:23" {ERIS}<LISP>CURRENT>INIT.NOGREET;14)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(* * "No-greet for making loadups--a stripped down LispCore greeting file")
		 (P (LOGIN NIL (QUOTE QUIET)))
		 (FNS SETDIRECTORIES)
		 (VARS (USERGREETFILES)
		       (COPYRIGHTFLG (QUOTE DEFAULT))
		       [COPYRIGHTOWNERS (QUOTE ((XEROX "Xerox Corporation"]
		       (DEFAULTCOPYRIGHTOWNER (QUOTE XEROX))
		       (COPYRIGHTRESERVED T)
		       (DEFAULTREGISTRY (QUOTE PA))
		       (DEFAULTPRINTINGHOST (QUOTE (LispPrint:Parc Quake)))
		       (CH.DEFAULT.ORGANIZATION "Xerox")
		       (CH.DEFAULT.DOMAIN "PARC"))
		 [P (SELECTQ MAKESYSNAME (LISPCORE (SETDIRECTORIES "ERIS" (QUOTE INTERMEZZO)
								   T))
			     (PROGN (SETDIRECTORIES "ERIS" NIL T]
		 (VARS (INTERPRESSFONTDIRECTORIES DISPLAYFONTDIRECTORIES))
		 (ADDVARS (NETWORKOSTYPES (PARC-CSLI . UNIX)
					  (PARC-VAXC . UNIX)
					  (GSLVAX . VMS)
					  (XSVAX . VMS])
(* * "No-greet for making loadups--a stripped down LispCore greeting file")


(LOGIN NIL (QUOTE QUIET))
(DEFINEQ

(SETDIRECTORIES

  [LAMBDA (HOST RELEASE RESET)                               (* lmm "12-Mar-85 09:40")

    (
PROG
 (DIR NEWDIRECTORIES NEWLISPUSERSDIRECTORIES)
          (
OR
 HOST (
SETQ
 HOST (
QUOTE
 ERIS)))
          [
OR
 RELEASE (
SETQ
 RELEASE (
COND

		  ((
BOUNDP
 (
QUOTE
 MAKESYSNAME))
		    MAKESYSNAME)
		  (T (
QUOTE
 CAROL]
          (
SETQ
 DIR (
SELECTQ
 RELEASE
			     (LISPCORE "<LISPCORE>")
			     (
CONCAT
 "<LISP>" RELEASE ">")))
          [
SETQ
 NEWLISPUSERSDIRECTORIES (
LIST*
 (
PACK*
 "{" HOST "}" DIR "LIBRARY>")
					       (
PACK*
 "{" HOST "}" DIR "LISPUSERS>")
					       (
AND
 (
STREQUAL
 (
MKSTRING
 HOST)
							      "ERIS")
						    (
LIST
 "{ERIS}<LISPUSERS>"]
          [
SETQ
 NEWDIRECTORIES (
APPEND
 NEWLISPUSERSDIRECTORIES
				       (
LIST
 (
PACK*
 "{" HOST "}" DIR "SOURCES>"]
          [
SELECTQ
 RELEASE
		   [CAROL (
RPAQ
 FONTDIRECTORIES (
LIST
 (
PACK*
 "{" HOST "}<LISP>FONTS>"]
		   (
RPAQ
 DISPLAYFONTDIRECTORIES (
LIST
 (
PACK*
 "{" HOST "}" DIR "FONTS>")
						      (
PACK*
 "{" HOST "}<LISP>FONTS>"]
          [
RPAQ
 LISPUSERSDIRECTORIES (
APPEND
 NEWLISPUSERSDIRECTORIES (
AND
 (
NOT
 RESET)
									  (
LDIFFERENCE
 
									     LISPUSERSDIRECTORIES 
									  NEWLISPUSERSDIRECTORIES]
          (
RPAQ
 DIRECTORIES (
APPEND
 NEWDIRECTORIES (
AND
 (
NOT
 RESET)
							(
LDIFFERENCE
 DIRECTORIES NEWDIRECTORIES])
)

(RPAQQ USERGREETFILES
 NIL)

(RPAQQ COPYRIGHTFLG
 DEFAULT)

(RPAQQ COPYRIGHTOWNERS
 ((XEROX "Xerox Corporation")))

(RPAQQ DEFAULTCOPYRIGHTOWNER
 XEROX)

(RPAQQ COPYRIGHTRESERVED
 T)

(RPAQQ DEFAULTREGISTRY
 PA)

(RPAQQ DEFAULTPRINTINGHOST
 (LispPrint:Parc Quake))

(RPAQ CH.DEFAULT.ORGANIZATION
 "Xerox")

(RPAQ CH.DEFAULT.DOMAIN
 "PARC")
(SELECTQ MAKESYSNAME (LISPCORE (SETDIRECTORIES "ERIS" (QUOTE INTERMEZZO)
					       T))
	 (PROGN (SETDIRECTORIES "ERIS" NIL T)))

(RPAQ INTERPRESSFONTDIRECTORIES
 DISPLAYFONTDIRECTORIES)

(ADDTOVAR NETWORKOSTYPES
 (PARC-CSLI . UNIX)
			 (PARC-VAXC . UNIX)
			 (GSLVAX . VMS)
			 (XSVAX . VMS))
(PUTPROPS INIT.NOGREET COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1261 2749 (SETDIRECTORIES 1271 . 2747)))))
STOP