(FILECREATED " 5-Dec-84 17:57:10" {ERIS}<LISP>CURRENT>INIT.NEW-CIS;2 4330   

      changes to:  (VARS INITCOMS)
		   (FNS SETDIRECTORIES)

      previous date: " 5-Dec-84 17:53:01" {ERIS}<LISP>CURRENT>INIT.NEW-CIS;1)


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS [(* "This is the ISL/CIS system greeting file.")
		 (FNS SETDIRECTORIES)
		 (VARS [USERGREETFILES (QUOTE (({PHYLUM}< USER >LISP>INIT. COM)
					       ({PHYLUM}< USER >LISP>INIT)
					       ({PHYLUM}< USER >INIT. COM)
					       ({PHYLUM}< USER >INIT.LISP)
					       ({ERIS}< USER >LISP>INIT. COM)
					       ({ERIS}< USER >LISP>INIT)
					       ({ERIS}< USER >INIT. COM)
					       ({ERIS}< USER >INIT.LISP]
		       (COPYRIGHTFLG (QUOTE DEFAULT))
		       [COPYRIGHTOWNERS (QUOTE ((XEROX "Xerox Corporation"]
		       (DEFAULTCOPYRIGHTOWNER (QUOTE XEROX))
		       (COPYRIGHTRESERVED T))
		 (P (SETDIRECTORIES NIL NIL T))
		 (COMS (* FONTS)
		       [VARS (INTERPRESSFONTDIRECTORIES DISPLAYFONTDIRECTORIES)
			     (PRESSFONTWIDTHSFILES (LIST (FINDFILE (QUOTE FONTS.WIDTHS)
								   T DISPLAYFONTDIRECTORIES)
							 (QUOTE {DSK}FONTS.WIDTHS]
		       (* "Outdated vars"))
		 (VARS (DEFAULTREGISTRY (QUOTE PA))
		       (DEFAULTPRINTINGHOST (QUOTE (Quake LispPrint:Parc)))
		       (CH.DEFAULT.ORGANIZATION "Xerox")
		       (CH.DEFAULT.DOMAIN "PARC"))
		 (ADDVARS (NETWORKOSTYPES (PARC-CSLI . UNIX)
					  (PARC-VAXC . UNIX)
					  (GSLVAX . VMS)
					  (MAXC2 . TENEX)))
		 (INITVARS (SNOOPY.DEFAULT.OUTFILE (QUOTE {ERIS}<LISPSTATS>.HISTOGRAPHS)))
		 (P (LOGIN NIL (QUOTE QUIET])



(* "This is the ISL/CIS system greeting file.")

(DEFINEQ

(SETDIRECTORIES
  [LAMBDA (HOST RELEASE RESET)                               (* lmm " 5-Dec-84 17:45")
    (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>")
					      (PACK* "{" HOST "}" "<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 (({PHYLUM}< USER >LISP>INIT. COM)
		       ({PHYLUM}< USER >LISP>INIT)
		       ({PHYLUM}< USER >INIT. COM)
		       ({PHYLUM}< USER >INIT.LISP)
		       ({ERIS}< USER >LISP>INIT. COM)
		       ({ERIS}< USER >LISP>INIT)
		       ({ERIS}< USER >INIT. COM)
		       ({ERIS}< USER >INIT.LISP)))

(RPAQQ COPYRIGHTFLG DEFAULT)

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

(RPAQQ DEFAULTCOPYRIGHTOWNER XEROX)

(RPAQQ COPYRIGHTRESERVED T)
(SETDIRECTORIES NIL NIL T)



(* FONTS)


(RPAQ INTERPRESSFONTDIRECTORIES DISPLAYFONTDIRECTORIES)

(RPAQ PRESSFONTWIDTHSFILES (LIST (FINDFILE (QUOTE FONTS.WIDTHS)
					   T DISPLAYFONTDIRECTORIES)
				 (QUOTE {DSK}FONTS.WIDTHS)))



(* "Outdated vars")


(RPAQQ DEFAULTREGISTRY PA)

(RPAQQ DEFAULTPRINTINGHOST (Quake LispPrint:Parc))

(RPAQ CH.DEFAULT.ORGANIZATION "Xerox")

(RPAQ CH.DEFAULT.DOMAIN "PARC")

(ADDTOVAR NETWORKOSTYPES (PARC-CSLI . UNIX)
			 (PARC-VAXC . UNIX)
			 (GSLVAX . VMS)
			 (MAXC2 . TENEX))

(RPAQ? SNOOPY.DEFAULT.OUTFILE (QUOTE {ERIS}<LISPSTATS>.HISTOGRAPHS))
(LOGIN NIL (QUOTE QUIET))
(PUTPROPS INIT.NEW-CIS COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1689 3110 (SETDIRECTORIES 1699 . 3108)))))
STOP