(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