(FILECREATED " 5-Mar-84 19:33:47" {PHYLUM}<LISP>CURRENT>INIT.LISPCORE;2
 2838   

      changes to:  (VARS INITCOMS)

      previous date: " 5-Mar-84 19:04:41" {PHYLUM}<LISP>CURRENT>INIT.LISPCORE;1)


(* Copyright (c) 1984 by Xerox Corporation)

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(* This is the CIS system greeting file.)
		 [VARS [USERGREETFILES (QUOTE (({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 ({PHYLUM}<LISPCORE>SOURCES {PHYLUM}<LISPCORE>LIBRARY> 
								     {PHYLUM}<LISPCORE>LISPUSERS> 
								      {PHYLUM}<LISPNEW>SOURCES> 
								      {PHYLUM}<LISP>SOURCES> 
								      {PHYLUM}<LISP>LIBRARY> 
								      {PHYLUM}<LISPUSERS>)))
		       (LISPUSERSDIRECTORIES (QUOTE ({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
 (({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
 ({PHYLUM}<LISPCORE>SOURCES {PHYLUM}<LISPCORE>LIBRARY> {PHYLUM}<LISPCORE>LISPUSERS> 
					      {PHYLUM}<LISPNEW>SOURCES> {PHYLUM}<LISP>SOURCES> 
					      {PHYLUM}<LISP>LIBRARY> {PHYLUM}<LISPUSERS>))

(RPAQQ LISPUSERSDIRECTORIES
 ({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