(FILECREATED "12-Sep-84 09:41:12" {ERIS}<LISP>CURRENT>INIT.LISPCORE;7
 5824   

      changes to:  (VARS INITCOMS)

      previous date: "11-Sep-84 10:37:27" {ERIS}<LISP>CURRENT>INIT.LISPCORE;6)


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

(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]
	      (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>]
	[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]
	      (* Outdated vars)
	      (VARS (FONTDIRECTORIES (QUOTE ({ERIS}<LISP>FONTS> {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 ({ERIS}<LISP>FONTS>FONTS.WIDTHS 
								  {PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
								      {INDIGO}<FONTS>FONTS.WIDTHS 
									    {DSK}FONTS.WIDTHS]
	[VARS (DEFAULTREGISTRY (QUOTE PA))
	      (DEFAULTPRINTINGHOST (QUOTE (LispPrint:Parc Quake]
	(INITVARS (CH.DEFAULT.ORGANIZATION "XEROX")
		  (CH.NET.HINT 132)
		  (CH.DEFAULT.ORGANIZATION "Xerox")
		  (CH.DEFAULT.DOMAIN "PARC"))
	(INITVARS (SNOOPY.DEFAULT.OUTFILE (QUOTE {ERIS}<LISPSTATS>.HISTOGRAPHS)))
	(P (ADDTOVAR NETWORKOSTYPES (MAXC2 . TENEX)
		     (GSLVAX . VMS)
		     (PARC-CSLI . UNIX))
	   (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 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>))



(* 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))



(* Outdated vars)



(RPAQQ FONTDIRECTORIES
 ({ERIS}<LISP>FONTS> {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
 ({ERIS}<LISP>FONTS>FONTS.WIDTHS {PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
						       {INDIGO}<FONTS>FONTS.WIDTHS {DSK}FONTS.WIDTHS))

(RPAQQ DEFAULTREGISTRY
 PA)

(RPAQQ DEFAULTPRINTINGHOST
 (LispPrint:Parc Quake))

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

(RPAQ? CH.NET.HINT
 132)

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

(RPAQ? CH.DEFAULT.DOMAIN
 "PARC")

(RPAQ? SNOOPY.DEFAULT.OUTFILE
 (QUOTE {ERIS}<LISPSTATS>.HISTOGRAPHS))
(ADDTOVAR NETWORKOSTYPES (MAXC2 . TENEX)
	  (GSLVAX . VMS)
	  (PARC-CSLI . UNIX))
(LOGIN NIL (QUOTE QUIET))
(PUTPROPS INIT.LISPCORE COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP