// LoadInitBVM.cm edited: June 13, 1986 by bvm

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 LispCore>Next Ret/<>A Lisp.run DoradoLispMc.eb Ret/S <Lisp>Current>Init.NOGREET Init.Lisp

Lisp [ERIS]<LispCore>Next>Full.Sysout ;"(SETQ *DEFAULT-EXECUTIVE* 'INTERLISP)(HARDRESET)(DELFILE '{DSK}INIT.LISP)(RENAMEFILE '{DSK}INIT.SAVE '{DSK}INIT.LISP)CONN {ERIS}<LispCore>BVM>
(SETQ DIRECTORIES '({ERIS}<LISPCORE>BVM>
{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>BVM> {ERIS}<LISPCORE>SOURCES> {ERIS}<LISPCORE>LIBRARY>))
   '{ERIS}<LISPCORE>BVM>INIT.DLINIT
   '{ERIS}<LISPCORE>NEXT>LispDLion.db)
 (LOGOUT T]] "