(FILECREATED "28-Nov-84 19:34:23" {ERIS}<LISP>CURRENT>INIT.CSLLISPCORE;6
 6236   

      changes to:  (VARS INITCOMS)

      previous date: "26-Nov-84 18:14:59" {ERIS}<LISP>CURRENT>INIT.CSLLISPCORE;3)


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 ((* "This is the LispCore system greeting file, tailored for CSL area.")
		 (VARS (USERGREETFILES (QUOTE (({IVY}< USER >LISP>INIT. COM)
					       ({IVY}< USER >LISP>INIT)
					       ({IVY}< USER >INIT. COM)
					       ({IVY}< USER >INIT.LISP)
					       ({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))))
		       (DIRECTORIES (QUOTE ({ERIS}<LISPCORE>SOURCES {ERIS}<LISPCORE>LIBRARY> 
								    {ERIS}<LISPCORE>LISPUSERS> 
								    {ERIS}<LISPNEW>SOURCES> 
								    {ERIS}<LISP>SOURCES> 
								    {ERIS}<LISP>LIBRARY> 
								    {ERIS}<LISPUSERS>)))
		       (LISPUSERSDIRECTORIES (QUOTE ({ERIS}<LISPCORE>LIBRARY> 
								       {ERIS}<LISPCORE>LISPUSERS> 
									     {ERIS}<LISP>LIBRARY> 
									      {ERIS}<LISPUSERS>)))
		       (COPYRIGHTFLG (QUOTE YES))
		       (COPYRIGHTRESERVED T)
		       (DEFAULTCOPYRIGHTOWNER (QUOTE XEROX))
		       (COPYRIGHTOWNERS (QUOTE ((XEROX "Xerox Corporation")))))
		 (COMS (* FONTS)
		       (VARS (DISPLAYFONTDIRECTORIES (QUOTE ({ERIS}<LISP>FONTS> {INDIGO}<ALTOFONTS> 
								     {INDIGO}<ALTOFONTS>ORIGINAL> 
								{PHYLUM}<STARFONTS>SCREEN>LFONTS> 
									      {PHYLUM}<ALTOFONTS> 
								     {PHYLUM}<ALTOFONTS>ORIGINAL> 
										{DSK})))
			     (DISPLAYFONTEXTENSIONS (QUOTE (DISPLAYFONT STRIKE AC)))
			     (INTERPRESSFONTDIRECTORIES (QUOTE ({ERIS}<LISP>FONTS> 
							     {PHYLUM}<STARFONTS>FORMATTER>WIDTHS>)))
			     (PRESSFONTWIDTHSFILES (QUOTE ({ERIS}<LISP>FONTS>FONTS.WIDTHS 
								      {INDIGO}<FONTS>FONTS.WIDTHS 
								  {PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
										{DSK}FONTS.WIDTHS))))
		       (* Outdated vars)
		       (VARS (FONTDIRECTORIES (QUOTE ({ERIS}<LISP>FONTS> {INDIGO}<ALTOFONTS> 
								     {INDIGO}<ALTOFONTS>ORIGINAL> 
									 {PHYLUM}<ALTOFONTS> 
								     {PHYLUM}<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 
								      {INDIGO}<FONTS>FONTS.WIDTHS 
								  {PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
										{DSK}FONTS.WIDTHS)))))
		 (VARS (DEFAULTREGISTRY (QUOTE PA))
		       (DEFAULTPRINTINGHOST (QUOTE (Clover LispPrint:Parc))))
		 (INITVARS (CH.DEFAULT.ORGANIZATION "XEROX")
			   (CH.NET.HINT 89)
			   (CH.DEFAULT.ORGANIZATION "Xerox")
			   (CH.DEFAULT.DOMAIN "PARC"))
		 (ADDVARS (NETWORKOSTYPES (PARC-CSLI . UNIX)
					  (PARC-VAXC . UNIX)
					  (GSLVAX . VMS)
					  (MAXC2 . TENEX)))
		 (INITVARS (SNOOPY.DEFAULT.OUTFILE (QUOTE {ERIS}<LISPSTATS>.HISTOGRAPHS)))
		 (ADDVARS (WHEREIS.HASH {ERIS}<LISPCORE>SOURCES>SYSTEM.WHEREISHASH 
					{ERIS}<LISPUSERS>LIBRARY.WHEREISHASH))
		 (P (LOGIN NIL (QUOTE QUIET)))))



(* "This is the LispCore system greeting file, tailored for CSL area.")



(RPAQQ USERGREETFILES
 (({IVY}< USER >LISP>INIT. COM)
		       ({IVY}< USER >LISP>INIT)
		       ({IVY}< USER >INIT. COM)
		       ({IVY}< USER >INIT.LISP)
		       ({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)))

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

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

(RPAQQ COPYRIGHTFLG
 YES)

(RPAQQ COPYRIGHTRESERVED
 T)

(RPAQQ DEFAULTCOPYRIGHTOWNER
 XEROX)

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



(* FONTS)



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

(RPAQQ DISPLAYFONTEXTENSIONS
 (DISPLAYFONT STRIKE AC))

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

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



(* Outdated vars)



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

(RPAQQ DEFAULTREGISTRY
 PA)

(RPAQQ DEFAULTPRINTINGHOST
 (Clover LispPrint:Parc))

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

(RPAQ? CH.NET.HINT
 89)

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

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

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

(RPAQ? SNOOPY.DEFAULT.OUTFILE
 (QUOTE {ERIS}<LISPSTATS>.HISTOGRAPHS))

(ADDTOVAR WHEREIS.HASH
 {ERIS}<LISPCORE>SOURCES>SYSTEM.WHEREISHASH 
							     {ERIS}<LISPUSERS>LIBRARY.WHEREISHASH)
(LOGIN NIL (QUOTE QUIET))
(PUTPROPS INIT.CSLLISPCORE COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP