(FILECREATED " 5-Jun-84 14:55:33" {PHYLUM}<LISPCORE>NEXT>INIT.LISPCORE;1 3586   

      changes to:  (VARS INITCOMS)

      previous date: " 5-Mar-84 19:33:47" {PHYLUM}<LISP>CURRENT>INIT.LISPCORE;2)


(* Copyright (c) 1984 by Xerox Corporation)

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS [(* This is the CIS system greeting file.)
	[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 ({INDIGO}<ALTOFONTS> {INDIGO}<ALTOFONTS>ORIGINAL> {DSK})))
	      (STARFONTDIRECTORIES (QUOTE ({PHYLUM}<STARFONTS>)))
	      (FONTWIDTHSFILES (QUOTE ({INDIGO}<FONTS>FONTS.WIDTHS {DSK}FONTS.WIDTHS)))
	      (DIRECTORIES (QUOTE ({ERIS}<LISPCORE>SOURCES {ERIS}<LISPCORE>LIBRARY> 
							   {ERIS}<LISPCORE>LISPUSERS> 
							   {ERIS}<LISPNEW>SOURCES> 
							   {ERIS}<LISP>SOURCES> {ERIS}<LISP>LIBRARY> 
							   {ERIS}<LISPUSERS> 
							   {PHYLUM}<LISPCORE>SOURCES 
							   {PHYLUM}<LISPCORE>LIBRARY> 
							   {PHYLUM}<LISPCORE>LISPUSERS> 
							   {PHYLUM}<LISPNEW>SOURCES> 
							   {PHYLUM}<LISP>SOURCES> 
							   {PHYLUM}<LISP>LIBRARY> {PHYLUM}<LISPUSERS>)
				  ))
	      (LISPUSERSDIRECTORIES (QUOTE ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS> 
								 {PHYLUM}<LISP>LIBRARY> 
								 {PHYLUM}<LISPUSERS>]
	[VARS (DEFAULTREGISTRY (QUOTE PA))
	      (DEFAULTPRINTINGHOST (QUOTE (Quake LispPrint:XSIS% North]
	(INITVARS (CH.DEFAULT.ORGANIZATION "XEROX")
		  (CH.NET.HINT 132)
		  (CH.DEFAULT.DOMAIN "XSIS North"))
	(P (ADDTOVAR NETWORKOSTYPES (MAXC2 . TENEX))
	   (LOGIN NIL (QUOTE QUIET])



(* This is the CIS system greeting file.)


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

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

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

(RPAQQ DIRECTORIES ({ERIS}<LISPCORE>SOURCES {ERIS}<LISPCORE>LIBRARY> {ERIS}<LISPCORE>LISPUSERS> 
					    {ERIS}<LISPNEW>SOURCES> {ERIS}<LISP>SOURCES> 
					    {ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS> 
					    {PHYLUM}<LISPCORE>SOURCES {PHYLUM}<LISPCORE>LIBRARY> 
					    {PHYLUM}<LISPCORE>LISPUSERS> {PHYLUM}<LISPNEW>SOURCES> 
					    {PHYLUM}<LISP>SOURCES> {PHYLUM}<LISP>LIBRARY> 
					    {PHYLUM}<LISPUSERS>))

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

(RPAQQ DEFAULTREGISTRY PA)

(RPAQQ DEFAULTPRINTINGHOST (Quake LispPrint:XSIS% North))

(RPAQ? CH.DEFAULT.ORGANIZATION "XEROX")

(RPAQ? CH.NET.HINT 132)

(RPAQ? CH.DEFAULT.DOMAIN "XSIS North")
(ADDTOVAR NETWORKOSTYPES (MAXC2 . TENEX))
(LOGIN NIL (QUOTE QUIET))
(PUTPROPS INIT.LISPCORE COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP