1 line
1.2 KiB
Plaintext
1 line
1.2 KiB
Plaintext
//////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// L O A D F U L L F R O M D L I N I T . C M
|
|
//
|
|
// (C) Copyright 1990, Venue & Fuji Xerox, Ltd.
|
|
// All Rights Reserved.
|
|
//
|
|
// Make the INIT.DLINIT into a LISP.SYSOUT & a FULL.SYSOUT.
|
|
//
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// IF YOU EDIT THIS FILE, BE SURE TO EDIT LOADFULLFROMDLINITSLOW.CM
|
|
|
|
// LoadFullFromDLInit.cm, edited 8-Mar-87 15:40:50 vanMelle
|
|
|
|
|
|
|
|
// ^^^ READ ^^^ UPDATE ^^^ READ ^^^ UPDATE ^^^ READ ^^^ UPDATE
|
|
|
|
|
|
|
|
// bring over files necessary to run INIT.DLINIT.
|
|
|
|
FTP/-E ERINYES Directory/C LispCore>Next Ret/<>A Lisp.run DoradoLispMc.eb;
|
|
|
|
// start up DLInit. MAKESYSNAME gets set here. The (SPECVARS . T) is because some file in the loadup (unknown) sets it wrong
|
|
|
|
Lisp {DSK6}Init.DLInit ;"
|
|
(SETQQ MAKESYSNAME LISPCORE)
|
|
(PROGN (LOAD (QUOTE \"{Pele:MV:Envos}<LISPCORE>SOURCES>LOADUP.LISP\")) (HARDRESET))
|
|
SHH(PROGN (IL:ENDLOADUP) (IL:SPECVARS . T) (IL:MAKESYS '\"{Pele:MV:Envos}<LISPCORE>Basics>LISP.SYSOUT\"))
|
|
SHH(PROGN (IL:LOAD '\"{Pele:MV:Envos}<LISPCORE>SOURCES>LOADFULL.LISP\") (IL:MAKESYS '\"{Pele:MV:Envos}<LISPCORE>Basics>FULL.SYSOUT\") (IL:LOGOUT T))
|
|
|
|
|
|
"
|
|
|