// LoadInit.cm edited: 17-Feb-85 by Sannella

FTP/-E ERIS Login/C Directory/C Lisp>Intermezzo>Basics Ret/<>A Lisp.run DoradoLispMc.eb DolphinLispMc.eb

// run in Lisp>Intermezzo>BASICS>LISP.SYSOUT. May need a special LispCore>Good if there are incompatible changes

Lisp [ERIS]<LISP>INTERMEZZO>BASICS>Lisp.Sysout ;" CONN {ERIS}<LISP>INTERMEZZO>SOURCES>
(OR (GETPROP 'D2 'CODEREADER)
 (PUTPROP 'D2 'CODEREADER (GETPROP 'D1 'CODEREADER]
(* make sure that you don't fail on CAR/CDR errors)
(SETQ CAR/CDRERR NIL)
(SETQ DIRECTORIES (APPEND '({ERIS}<LISP>INTERMEZZO>SOURCES> {ERIS}<LISP>INTERMEZZO>LIBRARY>) DIRECTORIES))
(* FILESETS has where to get things from)
(LOAD 'FILESETS) 
(FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT)
(* Versions are Lisp Microcode Bcpl)
(PROGN
 (CNDIR '{CORE})
 (DORENAME 'I)
 (DLFIXINIT
   (MAKEINIT '(113400Q 13000Q 24400Q)
     NIL NIL
     '({ERIS}<LISP>INTERMEZZO>SOURCES> {ERIS}<LISP>INTERMEZZO>LIBRARY>
       {ERIS}<LISP>INTERMEZZO>LISPUSERS> {ERIS}<LISPUSERS>))
   '{ERIS}<LISP>INTERMEZZO>BASICS>INIT.DLINIT
   '{ERIS}<LISP>INTERMEZZO>BASICS>DLISPDOMINO.DB)
 (LOGOUT]] "