//////////////////////////////////////////////////////////////////////////
//
//				L O A D I N I T . C M
//
//	(C) Copyright 1990, Venue & Fuji Xerox, Ltd.
//	    All Rights Reserved.
//
//	Make the INIT.DLINIT starting sysout for a new loadup.
//
//////////////////////////////////////////////////////////////////////////
// IF YOU EDIT THIS FILE, EDIT LOADINITSLOW.CM TOO!!!!

// Edit November 3, 1987 by vanMelle, note comment ^^

// 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 patch file is loaded
// Updated Lisp version for big physical memory --bvm 11/3/87

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 ERINYES Login/C Directory/C LispCore>Next Ret/<>A Lisp.run DoradoLispMc.eb Ret/S <Lisp>Current>Init-NOGREET Init.DFASL

Lisp {DSK7}LispCore.Sysout;"
(XCL:RESTORE-PROFILE \"INTERLISP\")
(DELFILE '{DSK}INIT.DFASL)
(AND (INFILEP '{DSK}INIT.SAVE) (RENAMEFILE '{DSK}INIT.SAVE '{DSK}INIT.DFASL))
(DIRECTORY '{DSK6}INIT.DLINIT;* '(DELETE))
(* Make sure we have a valid sysout)
(LET
((DATE (CAR (NLSETQ (GETFILEINFO '{Pele:mv:envos}<LispCore>Saved>FULL.SYSOUT 'ICREATIONDATE)))))
(IF (AND DATE (IGREATERP DATE (GETFILEINFO '{DSK7}LispCore.Sysout;1 'ICREATIONDATE)))
THEN (* Get new saved sysout)
(NLSETQ (PROGN
(COPYFILE '{Pele:mv:envos}<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]
(PROGN (* Make old sysout work with new read tables)
   (SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM FILERDTBL)
   (SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM CODERDTBL)
   (SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM \\ORIGREADTABLE))
(LOAD \"{Pele:mv:envos}<LISPCORE>NEXT>LOAD-LISPCORE-PATCH\")
CONN \"{pele:mv:envos}<LispCore>SOURCES>\"
(SETQ DIRECTORIES '(\"{Pele:MV:Envos}<LISPCORE>SOURCES>\"
\"{Pele:MV:Envos}<LISPCORE>LIBRARY>\" \"{Pele:MV:Envos}<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
     '(\"{Pele:MV:Envos}<LISPCORE>SOURCES>\" \"{Pele:MV:Envos}<LISPCORE>INTERNAL>LIBRARY>\" \"{Pele:MV:Envos}<LISPCORE>LIBRARY>\"))
   '{DSK6}INIT.DLINIT
   \"{Pele:MV:Envos}<LISPCORE>NEXT>LispDLion.db\"
    300)
 (LOGOUT T]]
"