(FILECREATED " 8-Apr-85 14:04:49" {ERIS}<LISP>HARMONY>BASICS>INIT.ISL;1 4131   

      changes to:  (VARS INITCOMS))


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS [(* This is the ISL 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]
		       (DIRECTORIES (QUOTE ({ERIS}<LISP>INTERMEZZO>LIBRARY> 
								{ERIS}<LISP>INTERMEZZO>LISPUSERS> 
									    {ERIS}<LISPUSERS>)))
		       (LISPUSERSDIRECTORIES (QUOTE ({ERIS}<LISP>INTERMEZZO>LIBRARY> 
								{ERIS}<LISP>INTERMEZZO>LISPUSERS> 
										{ERIS}<LISPUSERS>)))
		       (COPYRIGHTFLG (QUOTE YES))
		       [COPYRIGHTOWNERS (QUOTE ((XEROX "Xerox Corporation"]
		       (DEFAULTCOPYRIGHTOWNER (QUOTE XEROX))
		       (COPYRIGHTRESERVED T))
		 [COMS (* FONTS)
		       (VARS (DISPLAYFONTDIRECTORIES (QUOTE ({ERIS}<LISP>FONTS> 
								{PHYLUM}<STARFONTS>SCREEN>LFONTS> 
									      {PHYLUM}<ALTOFONTS> 
								     {PHYLUM}<ALTOFONTS>ORIGINAL> 
									      {INDIGO}<ALTOFONTS> 
								     {INDIGO}<ALTOFONTS>ORIGINAL> 
										{DSK})))
			     (DISPLAYFONTEXTENSIONS (QUOTE (DISPLAYFONT STRIKE AC)))
			     (INTERPRESSFONTDIRECTORIES (QUOTE ({ERIS}<LISP>FONTS> 
							     {PHYLUM}<STARFONTS>FORMATTER>WIDTHS>)))
			     (PRESSFONTWIDTHSFILES (QUOTE ({ERIS}<LISP>FONTS>FONTS.WIDTHS 
								  {PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
								      {INDIGO}<FONTS>FONTS.WIDTHS 
										{DSK}FONTS.WIDTHS]
		 (VARS (DEFAULTREGISTRY (QUOTE PA))
		       (DEFAULTPRINTINGHOST (QUOTE (Quake LispPrint:PARC)))
		       (CH.NET.HINT 89)
		       (CH.DEFAULT.ORGANIZATION "Xerox")
		       (CH.DEFAULT.DOMAIN "PARC"))
		 (P (ADDTOVAR NETWORKOSTYPES (PARC-VAXC . UNIX)
			      (GSLVAX . VMS)
			      (PARC-CSLI . UNIX))
		    (LOGIN NIL (QUOTE QUIET])



(* This is the ISL 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 DIRECTORIES ({ERIS}<LISP>INTERMEZZO>LIBRARY> {ERIS}<LISP>INTERMEZZO>LISPUSERS> 
						    {ERIS}<LISPUSERS>))

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

(RPAQQ COPYRIGHTFLG YES)

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

(RPAQQ DEFAULTCOPYRIGHTOWNER XEROX)

(RPAQQ COPYRIGHTRESERVED T)



(* FONTS)


(RPAQQ DISPLAYFONTDIRECTORIES ({ERIS}<LISP>FONTS> {PHYLUM}<STARFONTS>SCREEN>LFONTS> 
						  {PHYLUM}<ALTOFONTS> {PHYLUM}<ALTOFONTS>ORIGINAL> 
						  {INDIGO}<ALTOFONTS> {INDIGO}<ALTOFONTS>ORIGINAL> 
						  {DSK}))

(RPAQQ DISPLAYFONTEXTENSIONS (DISPLAYFONT STRIKE AC))

(RPAQQ INTERPRESSFONTDIRECTORIES ({ERIS}<LISP>FONTS> {PHYLUM}<STARFONTS>FORMATTER>WIDTHS>))

(RPAQQ PRESSFONTWIDTHSFILES ({ERIS}<LISP>FONTS>FONTS.WIDTHS {PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
							    {INDIGO}<FONTS>FONTS.WIDTHS 
							    {DSK}FONTS.WIDTHS))

(RPAQQ DEFAULTREGISTRY PA)

(RPAQQ DEFAULTPRINTINGHOST (Quake LispPrint:PARC))

(RPAQQ CH.NET.HINT 89)

(RPAQ CH.DEFAULT.ORGANIZATION "Xerox")

(RPAQ CH.DEFAULT.DOMAIN "PARC")
(ADDTOVAR NETWORKOSTYPES (PARC-VAXC . UNIX)
	  (GSLVAX . VMS)
	  (PARC-CSLI . UNIX))
(LOGIN NIL (QUOTE QUIET))
(PUTPROPS INIT.ISL COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP