(FILECREATED " 6-Aug-84 14:47:27" {ERIS}<LISP>CURRENT>INIT.KSALISPCORE;10
 3926   

      changes to:  (VARS INITCOMS)

      previous date: "18-Jun-84 15:30:35" {ERIS}<LISP>CURRENT>INIT.KSALISPCORE;9)


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(* This is the Parc/KSA system greeting file, especially tailored for LispCore↑ 
		    members.)
		 [VARS [USERGREETFILES (QUOTE (({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]
		       (FONTDIRECTORIES (QUOTE ({PHYLUM}<ALTOFONTS> {PHYLUM}<ALTOFONTS>ORIGINAL> 
								    {INDIGO}<ALTOFONTS> 
								    {INDIGO}<ALTOFONTS>ORIGINAL> 
								    {DSK})))
		       (NSFONTDIRECTORIES (QUOTE ({PHYLUM}<STARFONTS>SCREEN>LFONTS>)))
		       (NSFONTWIDTHSDIRECTORIES (QUOTE ({PHYLUM}<STARFONTS>FORMATTER>WIDTHS>)))
		       (STARFONTDIRECTORIES (QUOTE ({PHYLUM}<STARFONTS>)))
		       (FONTWIDTHSFILES (QUOTE ({PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
								      {INDIGO}<FONTS>FONTS.WIDTHS 
										{DSK}FONTS.WIDTHS)))
		       (DIRECTORIES (QUOTE ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS>)))
		       (LISPUSERSDIRECTORIES (QUOTE ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS>)))
		       (COPYRIGHTFLG (QUOTE YES))
		       (COPYRIGHTRESERVED T)
		       (DEFAULTCOPYRIGHTOWNER (QUOTE XEROX))
		       (COPYRIGHTOWNERS (QUOTE ((XEROX "Xerox Corporation"]
		 (VARS (DEFAULTREGISTRY (QUOTE PA))
		       (DEFAULTPRINTINGHOST (QUOTE (Expresso (FULLPRESS Jedi)
							     LispPrint:XSIS% North)))
		       (CH.NET.HINT 132)
		       (CH.DEFAULT.ORGANIZATION "Xerox")
		       (CH.DEFAULT.DOMAIN "XSIS North"))
		 (ADDVARS (NETWORKOSTYPES (MAXC2 . TENEX)
					  (GSLVAX . VMS)
					  (PARC-CSLI . UNIX)))
		 (P (LOGIN NIL (QUOTE QUIET])



(* This is the Parc/KSA system greeting file, especially tailored for LispCore↑ members.)



(RPAQQ USERGREETFILES
 (({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 FONTDIRECTORIES
 ({PHYLUM}<ALTOFONTS> {PHYLUM}<ALTOFONTS>ORIGINAL> {INDIGO}<ALTOFONTS> 
					    {INDIGO}<ALTOFONTS>ORIGINAL> {DSK}))

(RPAQQ NSFONTDIRECTORIES
 ({PHYLUM}<STARFONTS>SCREEN>LFONTS>))

(RPAQQ NSFONTWIDTHSDIRECTORIES
 ({PHYLUM}<STARFONTS>FORMATTER>WIDTHS>))

(RPAQQ STARFONTDIRECTORIES
 ({PHYLUM}<STARFONTS>))

(RPAQQ FONTWIDTHSFILES
 ({PHYLUM}<ALTOFONTS>FONTS.WIDTHS {INDIGO}<FONTS>FONTS.WIDTHS {DSK}FONTS.WIDTHS)
)

(RPAQQ DIRECTORIES
 ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS>))

(RPAQQ LISPUSERSDIRECTORIES
 ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS>))

(RPAQQ COPYRIGHTFLG
 YES)

(RPAQQ COPYRIGHTRESERVED
 T)

(RPAQQ DEFAULTCOPYRIGHTOWNER
 XEROX)

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

(RPAQQ DEFAULTREGISTRY
 PA)

(RPAQQ DEFAULTPRINTINGHOST
 (Expresso (FULLPRESS Jedi)
				     LispPrint:XSIS% North))

(RPAQQ CH.NET.HINT
 132)

(RPAQ CH.DEFAULT.ORGANIZATION
 "Xerox")

(RPAQ CH.DEFAULT.DOMAIN
 "XSIS North")

(ADDTOVAR NETWORKOSTYPES
 (MAXC2 . TENEX)
			 (GSLVAX . VMS)
			 (PARC-CSLI . UNIX))
(LOGIN NIL (QUOTE QUIET))
(PUTPROPS INIT.KSALISPCORE COPYRIGHT ("Xerox Corporation" 1983 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP