(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