(FILECREATED " 7-OCT-82 09:48:53" {PHYLUM}<LISP>CURRENT>INIT.SAMPLE;1 1732 changes to: (VARS INITCOMS)) (PRETTYCOMPRINT INITCOMS) (RPAQQ INITCOMS [(* This is a sample greeting file for a network site) (P (* LOGIN for subsequent access to user's personal GREET file) (LOGIN NIL (QUOTE QUIET))) (VARS (DEFAULTPRINTINGHOST (QUOTE name-of-Dover/Penguin-printer)) (LISPUSERSDIRECTORIES (QUOTE ({fileserver}<LISPUSERS>))) (FONTDIRECTORIES (QUOTE ({fileserver}<ALTOFONTS> {fileserver2}<ALTOFONTS>))) [USERGREETFILES (QUOTE (({fileserver}< USER >LISP>INIT. COM) ({PHYLUM}< USER >LISP>INIT) ({PHYLUM}< USER >INIT. COM) ({PHYLUM}< USER >INIT.LISP] (FONTWIDTHSFILES (QUOTE ({DSK}FONTS.WIDTHS {PHYLUM}<FONTS>FONTS.WIDTHS))) (DIRECTORIES (QUOTE ({DSK} {fileserver}<LISPUSERS>))) (\TimeZoneComp 8 (* number of hours west of GMT; ranges from -12 to 12]) (* This is a sample greeting file for a network site) (* LOGIN for subsequent access to user's personal GREET file) (LOGIN NIL (QUOTE QUIET)) (RPAQQ DEFAULTPRINTINGHOST name-of-Dover/Penguin-printer) (RPAQQ LISPUSERSDIRECTORIES ({fileserver}<LISPUSERS>)) (RPAQQ FONTDIRECTORIES ({fileserver}<ALTOFONTS> {fileserver2}<ALTOFONTS>)) (RPAQQ USERGREETFILES (({fileserver}< USER >LISP>INIT. COM) ({PHYLUM}< USER >LISP>INIT) ({PHYLUM}< USER >INIT. COM) ({PHYLUM}< USER >INIT.LISP))) (RPAQQ FONTWIDTHSFILES ({DSK}FONTS.WIDTHS {PHYLUM}<FONTS>FONTS.WIDTHS)) (RPAQQ DIRECTORIES ({DSK} {fileserver}<LISPUSERS>)) (RPAQ \TimeZoneComp 8 (* number of hours west of GMT; ranges from -12 to 12)) (DECLARE: DONTCOPY (FILEMAP (NIL))) STOP