// LoadInit.cm edited: 21-Mar-86 17:25:03 by MASINTER Delete INIT.LISP!* INIT.SAVE!* // otherwise Lisp might read INIT.LISP!2 Copy INIT.SAVE ← INIT.LISP // save away site file to be restored below FTP/-E ERIS Login/C Directory/C Lisp>Koto>Basics Ret/<>A Lisp.run DoradoLispMc.eb Ret/S <Lisp>Current>Init.NOGREET Init.Lisp Lisp [ERIS]<Lisp>Koto>basics>LISP.Sysout ;"DELFILE({DSK}INIT.LISP)RENAMEFILE({DSK}INIT.SAVE {DSK}INIT.LISP) CONN {ERIS}<LispCore>SOURCES> (SETQ DIRECTORIES '({ERIS}<LISPCORE>SOURCES> {ERIS}<LISPCORE>LIBRARY>)) (* FILESETS has where to get things from) (LOAD 'FILESETS) (FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT) (* Versions are Lisp Microcode Bcpl) (PROGN (CNDIR '{CORE}) (DORENAME 'I) (DLFIXINIT (MAKEINIT '(113400Q 13040Q 24400Q) NIL NIL '({ERIS}<LISPCORE>SOURCES> {ERIS}<LISPCORE>LIBRARY>)) '{ERIS}<LISPCORE>NEXT>INIT.DLINIT '{ERIS}<LISPCORE>NEXT>LispDLion.db 300) (LOGOUT T]] "