// LoadInit.cm edited: October 14, 1986 by bvm
// The path given to the Lisp command below should point to the LispCore sysout cache.
// Code that runs after Lisp starts up assures that the cached sysout
// is the most recent, and if not, fetches a new one and restarts itself.
// Edited so that the most recent patche file is loaded

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 {DSK7}LispCore.Sysout;"(SETQ *DEFAULT-EXECUTIVE* 'INTERLISP)(HARDRESET)(DELFILE '{DSK}INIT.LISP)(RENAMEFILE '{DSK}INIT.SAVE '{DSK}INIT.LISP)(DIRECTORY '{DSK6}INIT.DLINIT;* '(DELETE))(LET
((DATE (CAR (NLSETQ (GETFILEINFO '{Eris}<LispCore>Saved>FULL.SYSOUT 'ICREATIONDATE)))))
(IF (AND DATE (IGREATERP DATE (GETFILEINFO '{DSK7}LispCore.Sysout;1 'ICREATIONDATE)))
THEN (* Get new saved sysout)
(NLSETQ (PROGN
(COPYFILE '{Eris}<LispCore>Saved>FULL.SYSOUT '{DSK7}LispCore.Sysout;1)
(COPYFILE '{DSK}REM.CM;1 '{CORE}REM.CM) (* Repeat current command now)
(OUTFILE '{DSK}REM.CM;1)
(PRIN1 %"@LoadInit.cm@%")
(COPYBYTES (OPENSTREAM '{CORE}REM.CM 'INPUT))
(CLOSEF)
(LOGOUT T))))
)
(LET* ((DATE-STRING (GETFILEINFO (QUOTE {DSK7}LISPCORE.SYSOUT) (QUOTE CREATIONDATE)))(PATCH-FILE (PACK* (QUOTE {ERIS}<LISPCORE>NEXT>FULL.PATCHES-) (SUBSTRING DATE-STRING 1 9) %"-%" (SUBSTRING DATE-STRING 11 12) %"-%" (SUBSTRING DATE-STRING 14 15) %"-%" (SUBSTRING DATE-STRING 17 18))))(IF (INFILEP PATCH-FILE) THEN (CL:LOAD (OPENSTREAM PATCH-FILE 'INPUT))))
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})
 (IDLE.SET.OPTION 'TIMEOUT 0)
 (IDLE.SET.OPTION 'SAVEVM 0)
 (DORENAME 'I)
 (DLFIXINIT
   (MAKEINIT '(113400Q 13040Q 24400Q)
     NIL NIL
     '({ERIS}<LISPCORE>SOURCES> {ERIS}<LISPCORE>LIBRARY>))
   '{DSK6}INIT.DLINIT
   '{ERIS}<LISPCORE>NEXT>LispDLion.db
    300)
 (LOGOUT T]] "