(FILECREATED "14-Mar-85 11:38:53" {ERIS}<LISP>CURRENT>INIT.NOGREET;12
 1505   

      changes to:  (VARS INITCOMS)

      previous date: "11-Mar-85 14:53:36" {ERIS}<LISP>CURRENT>INIT.NOGREET;11)


(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(* * used in the initialization process to run without having a specific users GREET 
		    file. The important point is that it is mainly the LispCore environment, but with 
		    USERGREETFILES=NIL)
		 (P (LOAD (QUOTE {ERIS}<LISP>CURRENT>INIT.LISPCORE)
			  LDFLG))
		 (VARS (USERGREETFILES))
		 (P (* if we got here by the loadup command file, it created INIT.SAVE)
		    (COND ((INFILEP (QUOTE {DSK}INIT.SAVE))
			   (DIRECTORY (QUOTE {DSK}INIT.LISP;*)
				      (QUOTE (P DELETE)))
			   (RENAMEFILE (QUOTE {DSK}INIT.SAVE)
				       (QUOTE {DSK}INIT.LISP])
(* * used in the initialization process to run without having a specific users GREET file. The 
important point is that it is mainly the LispCore environment, but with USERGREETFILES=NIL)


(LOAD (QUOTE {ERIS}<LISP>CURRENT>INIT.LISPCORE)
      LDFLG)

(RPAQQ USERGREETFILES
 NIL)
(* if we got here by the loadup command file, it created INIT.SAVE)
[COND ((INFILEP (QUOTE {DSK}INIT.SAVE))
       (DIRECTORY (QUOTE {DSK}INIT.LISP;*)
		  (QUOTE (P DELETE)))
       (RENAMEFILE (QUOTE {DSK}INIT.SAVE)
		   (QUOTE {DSK}INIT.LISP]
(PUTPROPS INIT.NOGREET COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP