(FILECREATED " 8-Mar-84 23:35:14" {PHYLUM}<LISP>CURRENT>INIT.KSALISPCORE;4
 2500   

      changes to:  (VARS INITCOMS)

      previous date: "20-NOV-83 20:53:42" {PHYLUM}<LISP>CURRENT>INIT.KSALISPCORE;3)


(* Copyright (c) 1983, 1984 by Xerox Corporation)

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 ((* This is the Parc/KSA system greeting file%, especially tailored for LispCore↑ 
		    members.)
		 (VARS (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)))
		       (FONTDIRECTORIES '({INDIGO}<ALTOFONTS> {INDIGO}<ALTOFONTS>ORIGINAL> {DSK}))
		       (STARFONTDIRECTORIES '({PHYLUM}<STARFONTS>))
		       (FONTWIDTHSFILES '({INDIGO}<FONTS>FONTS.WIDTHS {DSK}FONTS.WIDTHS))
		       (DIRECTORIES '({PHYLUM}<LISP>LIBRARY> {PHYLUM}<LISPUSERS> NIL))
		       (LISPUSERSDIRECTORIES '({PHYLUM}<LISP>LIBRARY> {PHYLUM}<LISPUSERS>)))
		 (VARS (DEFAULTREGISTRY 'PA)
		       (DEFAULTPRINTINGHOST '(Expresso LispPrint:XSIS% North)))
		 (ADDVARS (NETWORKOSTYPES (MAXC2 . TENEX)))
		 (INITVARS (CH.NET.HINT 132)
			   (CH.DEFAULT.DOMAIN "XSIS North")
			   (CH.DEFAULT.ORGANIZATION "XEROX"))
		 (P (LOGIN NIL 'QUIET))))



(* This is the Parc/KSA system greeting file%, especially tailored for LispCore↑ members.)



(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}<LISP>LIBRARY> {PHYLUM}<LISPUSERS> NIL))

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

(RPAQQ DEFAULTREGISTRY
 PA)

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

(ADDTOVAR NETWORKOSTYPES
 (MAXC2 . TENEX))

(RPAQ? CH.NET.HINT
 132)

(RPAQ? CH.DEFAULT.DOMAIN
 "XSIS North")

(RPAQ? CH.DEFAULT.ORGANIZATION
 "XEROX")
(LOGIN NIL 'QUIET)
(PUTPROPS INIT.KSALISPCORE COPYRIGHT ("Xerox Corporation" 1983 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP