1 line
569 B
Plaintext
1 line
569 B
Plaintext
// 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] "
|
|
|