(FILECREATED "12-Mar-85 09:59:05" {ERIS}<LISP>CURRENT>INIT.LISPCORE;17
 6185   

      changes to:  (VARS INITCOMS)

      previous date: "12-Mar-85 09:56:28" {ERIS}<LISP>CURRENT>INIT.LISPCORE;16)


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 ((* * "LispCore greeting file")
	(P (LOGIN NIL (QUOTE QUIET)))
	(FNS SETDIRECTORIES)
	(VARS [USERGREETFILES (QUOTE (({DSK}INIT. USER)
				      ({PHYLEX:PARC:XEROX}< USER >LISP>INIT. COM)
				      ({ERIS}< USER >LISP>INIT. COM)
				      ({ERIS}< USER >LISP>INIT)
				      ({ERIS}< USER >INIT. COM)
				      ({ERIS}< USER >INIT.LISP)
				      ({PHYLUM}< USER >LISP>INIT. COM)
				      ({PHYLUM}< USER >LISP>INIT)
				      ({PHYLUM}< USER >INIT. COM)
				      ({PHYLUM}< USER >INIT.LISP)
				      ({IVY}< USER >LISP>INIT. COM)
				      ({IVY}< USER >LISP>INIT)
				      ({IVY}< USER >INIT. COM)
				      ({IVY}< USER >INIT.LISP]
	      (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 "PHYLEX:PARC:XEROX" (QUOTE INTERMEZZO)
							  T)
					  (SETDIRECTORIES "ERIS"))
		    (PROGN (SETDIRECTORIES "ERIS" NIL T)
			   (SETDIRECTORIES "PHYLEX:PARC:XEROX" NIL]
	[COMS (* FONTS - most set by SETDIRECTORIES)
	      (VARS (INTERPRESSFONTDIRECTORIES DISPLAYFONTDIRECTORIES))
	      (P (RESETVARS ((DIRECTORIES DISPLAYFONTDIRECTORIES))
			    (PROG [(FILE (OPENFILE (QUOTE FONTS.WIDTHS)
						   (QUOTE INPUT)
						   (QUOTE OLD]
				  (RESETSAVE NIL (LIST (QUOTE CLOSEF?)
						       FILE))
				  (SETQ
				    PRESSFONTWIDTHSFILES
				    (LIST (COND
					    ((RANDACCESSP FILE)
					     FILE)
					    (T (printout T "copying " FILE " to ")
					       (COPYFILE FILE
							 (PRINT (if (IGREATERP (DISKFREEPAGES
										 (QUOTE {DSK}))
									       (GETFILEINFO
										 FILE
										 (QUOTE SIZE)))
								    then
								    (QUOTE {DSK}FONTS.WIDTHS)
								    else
								    (QUOTE {CORE}FONTS.WIDTHS))
								T T]
	(ADDVARS (NETWORKOSTYPES (PARC-CSLI . UNIX)
				 (PARC-VAXC . UNIX)
				 (GSLVAX . VMS)
				 (XSVAX . VMS)))
	(ADDVARS (WHEREIS.HASH {ERIS}<LISPCORE>SOURCES>SYSTEM.WHEREISHASH 
			       {ERIS}<LISPUSERS>LIBRARY.WHEREISHASH))))
(* * "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
 (({DSK}INIT. USER)
		       ({PHYLEX:PARC:XEROX}< USER >LISP>INIT. COM)
		       ({ERIS}< USER >LISP>INIT. COM)
		       ({ERIS}< USER >LISP>INIT)
		       ({ERIS}< USER >INIT. COM)
		       ({ERIS}< USER >INIT.LISP)
		       ({PHYLUM}< USER >LISP>INIT. COM)
		       ({PHYLUM}< USER >LISP>INIT)
		       ({PHYLUM}< USER >INIT. COM)
		       ({PHYLUM}< USER >INIT.LISP)
		       ({IVY}< USER >LISP>INIT. COM)
		       ({IVY}< USER >LISP>INIT)
		       ({IVY}< USER >INIT. COM)
		       ({IVY}< USER >INIT.LISP)))

(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 "PHYLEX:PARC:XEROX" (QUOTE INTERMEZZO)
					       T)
			       (SETDIRECTORIES "ERIS"))
	 (PROGN (SETDIRECTORIES "ERIS" NIL T)
		(SETDIRECTORIES "PHYLEX:PARC:XEROX" NIL)))



(* FONTS - most set by SETDIRECTORIES)



(RPAQ INTERPRESSFONTDIRECTORIES
 DISPLAYFONTDIRECTORIES)
[RESETVARS ((DIRECTORIES DISPLAYFONTDIRECTORIES))
	   (PROG [(FILE (OPENFILE (QUOTE FONTS.WIDTHS)
				  (QUOTE INPUT)
				  (QUOTE OLD]
		 (RESETSAVE NIL (LIST (QUOTE CLOSEF?)
				      FILE))
		 (SETQ PRESSFONTWIDTHSFILES
		       (LIST (COND ((RANDACCESSP FILE)
				    FILE)
				   (T (printout T "copying " FILE " to ")
				      (COPYFILE FILE (PRINT (if (IGREATERP (DISKFREEPAGES
									     (QUOTE {DSK}))
									   (GETFILEINFO FILE
											(QUOTE SIZE)))
								then
								(QUOTE {DSK}FONTS.WIDTHS)
								else
								(QUOTE {CORE}FONTS.WIDTHS))
							    T T]

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

(ADDTOVAR WHEREIS.HASH
 {ERIS}<LISPCORE>SOURCES>SYSTEM.WHEREISHASH 
							     {ERIS}<LISPUSERS>LIBRARY.WHEREISHASH)
(PUTPROPS INIT.LISPCORE COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (2594 4082 (SETDIRECTORIES 2604 . 4080)))))
STOP