// LoadInit.cm edited: 31-Mar-85 22:49:52 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]<Lispcore>next>FULL.Sysout ;"DELFILE({DSK}INIT.LISP)RENAMEFILE({DSK}INIT.SAVE {DSK}INIT.LISP)
CONN {ERIS}<Lisp>Koto>SOURCES>
(OR (GETPROP 'D2 'CODEREADER)
 (PUTPROP 'D2 'CODEREADER (GETPROP 'D1 'CODEREADER]
(SETQ DIRECTORIES (APPEND '({ERIS}<LISP>KOTO>SOURCES> {ERIS}<LISP>KOTO>LIBRARY>) DIRECTORIES))
(* 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 '(113404Q 13000Q 24400Q)
     NIL NIL
     '({ERIS}<LISP>KOTO>SOURCES>
{ERIS}<LISP>KOTO>LIBRARY>
{ERIS}<LISP>KOTO>LISPUSERS>))
   '{ERIS}<LISP>KOTO>BASICS>INITDOVE.DLINIT
   '{ERIS}<LISP>KOTO>BASICS>DLISPDOMINO.DB)
 (LOGOUT T]] "