1 line
1.8 KiB
Plaintext
1 line
1.8 KiB
Plaintext
// 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]]
|
|
"
|
|
|