// LoadInitSlow.cm edited: November 3, 1987 by vanMelle
// IF YOU EDIT THIS FILE, EDIT LOADINIT.CM TOO

// edit 30-Nov-86 12:06:48 by masinter, merge LOADINIT changes, add comment above
// Updated Lisp version for big physical memory --bvm 11/3/87


// The path given to the Lisp command below should point to the LispCore sysout cache.

Delete INIT.DFASL!* INIT.SAVE* // otherwise Lisp might read INIT.LISP!2
Copy INIT.SAVE _ INIT.DFASL  // 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.DFASL

Lisp [ERIS]<LispCore>saved>Full.Sysout;"
(XCL:RESTORE-PROFILE \"INTERLISP\")
(DELFILE '{DSK}INIT.DFASL)
(AND (INFILEP '{DSK}INIT.SAVE) (RENAMEFILE '{DSK}INIT.SAVE '{DSK}INIT.DFASL))
(PROGN (* Make old sysout work with new read tables)
   (SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM FILERDTBL)
   (SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM CODERDTBL)
   (SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM \\ORIGREADTABLE))
(LOAD '{ERIS}<LISPCORE>NEXT>LOAD-LISPCORE-PATCH)
CONN {ERIS}<LispCore>SOURCES>
(SETQ DIRECTORIES '({ERIS}<LISPCORE>SOURCES>
{ERIS}<LISPCORE>LIBRARY> {ERIS}<LISPCORE>INTERNAL>LIBRARY>))
(SETQ LITATOM-PACKAGE-CONVERSION-ENABLED NIL)
(SETQ *REMOVE-INTERLISP-COMMENTS* NIL)
(* Get new exports since last loadup)
(LOAD 'CONDITION-PACKAGE.LCOM 'SYSLOAD)
(LOAD 'XCL-PACKAGE.LCOM 'SYSLOAD)
(* FILESETS has where to get things from)
(LOAD 'FILESETS) 
(FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT CMLARRAY-SUPPORT)
(* Versions are Lisp Microcode Bcpl)
(PROGN
 (CNDIR '{CORE})
 (IDLE.SET.OPTION 'TIMEOUT 0)
 (IDLE.SET.OPTION 'SAVEVM 0)
 (DORENAME 'I)
 (DLFIXINIT
   (MAKEINIT '(115000Q 13062Q 25400Q)
     NIL NIL
     '({ERIS}<LISPCORE>SOURCES> {ERIS}<LISPCORE>LIBRARY>))
   '{ERIS}<LISPCORE>NEXT>INIT.DLINIT
   '{ERIS}<LISPCORE>NEXT>LispDLion.db
    300)
 (LOGOUT T]]
"