// LoadFullFromLisp.cm Edited 24-Feb-87 19:10:47 -- van Melle --

Delete INIT.DFASL!* INIT.SAVE* // otherwise Lisp might read INIT.DFASL!2
Copy INIT.SAVE _ INIT.DFASL  // save away site file to be restored below

FTP/-E ERIS Login/C Dir/C LispCore>Next Ret/<>A Lisp.run DoradoLispMc.eb Ret/S <Lisp>Current>Init.null Init.DFASL

Lisp [ERIS]<LispCore>Next>Lisp.sysout ;"  
SHH(PROGN (DELFILE '{DSK}INIT.DFASL) (RENAMEFILE '{DSK}INIT.SAVE '{DSK}INIT.DFASL;1) )
SHH(LOAD '{ERIS}<LISPCORE>SOURCES>LOADFULL.LISP)
SHH(MAKESYS '{ERIS}<LISPCORE>NEXT>FULL.SYSOUT]
SHH(LOGOUT] "