(FILECREATED " 5-Jun-84 14:29:51" {PHYLUM}<LISPCORE>NEXT>INIT.CIS;4 3463 changes to: (VARS INITCOMS) previous date: "31-May-84 12:11:12" {PHYLUM}<LISPCORE>NEXT>INIT.CIS;3) (* Copyright (c) 1983, 1984 by Xerox Corporation) (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] (FONTDIRECTORIES (QUOTE ({INDIGO}<ALTOFONTS> {INDIGO}<ALTOFONTS>ORIGINAL> {DSK}))) (NSFONTDIRECTORIES (QUOTE ({PHYLUM}<STARFONTS>SCREEN>LFONTS>))) (NSFONTWIDTHSDIRECTORIES (QUOTE ({PHYLUM}<STARFONTS>FORMATTER>WIDTHS>))) (STARFONTDIRECTORIES (QUOTE ({PHYLUM}<STARFONTS>))) (FONTWIDTHSFILES (QUOTE ({INDIGO}<FONTS>FONTS.WIDTHS {DSK}FONTS.WIDTHS))) (DIRECTORIES (QUOTE ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS> {PHYLUM}<LISP>LIBRARY> {PHYLUM}<LISPUSERS>))) (LISPUSERSDIRECTORIES (QUOTE ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS> {PHYLUM}<LISP>LIBRARY> {PHYLUM}<LISPUSERS>))) (COPYRIGHTFLG (QUOTE YES)) (COPYRIGHTRESERVED T)) (VARS (DEFAULTREGISTRY (QUOTE PA)) (DEFAULTPRINTINGHOST (QUOTE (Quake LispPrint:XSIS% North))) (CH.NET.HINT 132) (CH.DEFAULT.ORGANIZATION "Xerox") (CH.DEFAULT.DOMAIN "XSIS North")) (P (ADDTOVAR NETWORKOSTYPES (MAXC2 . TENEX) (GSLVAX . VMS)) (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 FONTDIRECTORIES ({INDIGO}<ALTOFONTS> {INDIGO}<ALTOFONTS>ORIGINAL> {DSK})) (RPAQQ NSFONTDIRECTORIES ({PHYLUM}<STARFONTS>SCREEN>LFONTS>)) (RPAQQ NSFONTWIDTHSDIRECTORIES ({PHYLUM}<STARFONTS>FORMATTER>WIDTHS>)) (RPAQQ STARFONTDIRECTORIES ({PHYLUM}<STARFONTS>)) (RPAQQ FONTWIDTHSFILES ({INDIGO}<FONTS>FONTS.WIDTHS {DSK}FONTS.WIDTHS)) (RPAQQ DIRECTORIES ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS> {PHYLUM}<LISP>LIBRARY> {PHYLUM}<LISPUSERS>) ) (RPAQQ LISPUSERSDIRECTORIES ({ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS> {PHYLUM}<LISP>LIBRARY> {PHYLUM}<LISPUSERS>)) (RPAQQ COPYRIGHTFLG YES) (RPAQQ COPYRIGHTRESERVED T) (RPAQQ DEFAULTREGISTRY PA) (RPAQQ DEFAULTPRINTINGHOST (Quake LispPrint:XSIS% North)) (RPAQQ CH.NET.HINT 132) (RPAQ CH.DEFAULT.ORGANIZATION "Xerox") (RPAQ CH.DEFAULT.DOMAIN "XSIS North") (ADDTOVAR NETWORKOSTYPES (MAXC2 . TENEX) (GSLVAX . VMS)) (LOGIN NIL (QUOTE QUIET)) (PUTPROPS INIT.CIS COPYRIGHT ("Xerox Corporation" 1983 1984)) (DECLARE: DONTCOPY (FILEMAP (NIL))) STOP