//  Make IDL production sysout.  At start, must be logged in with read access to <Lisp>
FTP Eris DIR/C <Lispcore>next> RET/'#A Lisp.run lisp.syms DoradoLispMc.eb DolphinLispMc.eb RET/s Init.NOGREET init.lisp
LISP [Eris]<Lispcore>next>Full.sysout;"
SHH (DELFILE '{Dsk}INIT.LISP)
SHH (RENAMEFILE '{Dsk}INIT.SAVE '{Dsk}INIT.LISP)
SHH (SETPASSWORD 'QV (USERNAME NIL T) 'IDL 'IDL)
SHH (CNDIR '{Qv}<IDL>SOURCES>)
SHH (SETQ DIRECTORIES
    (LIST '{Qv}<IDL>Sources> '{ERIS}<Lispcore>library> '{ERIS}<Lispcore>sources>  '{Eris}<Lispcore>Lispusers> '{ERIS}<Lispusers>))
SHH (SETQ LISPUSERSDIRECTORIES (COPY DIRECTORIES))
SHH (AND (OPENWP LOGOW)(CLOSEW LOGOW))
SHH (SETQ LOGOW (LOGOW 'IDL '( 650 . 500 )))
SHH (LOAD 'LOADIDL.DCOM 'SYSLOAD)

SHH (LOAD '{ERIS}<LISPCORE>LIBRARY>DECL.DCOM 'SYSLOAD)

SHH (LOADIDL)
SHH (RESETVARS (USERRECLST) (ENDLOADUP))
SHH (SETQ IDLSYSTYPE
	(COND ((EQ MAKESYSNAME
			(CAR (READFILE '{ERIS}<LISP>CURRENT>CURRENTRELEASE.NAME))) (PACK))
		((EQ MAKESYSNAME (CAR (READFILE '{ERIS}<LISP>CURRENT>PENDINGRELEASE.NAME))) 'P)
					(T 'LC)))

SHH [MAKESYS (PACK* '{Qv}<IDL>SYSOUTS> IDLSYSTYPE 'IDL.SYSOUT) 'IDL-Sysout]
SHH [MAPC '(Lisp.run Lisp.syms Doradolispmc.eb Dolphinlispmc.eb)
  (FUNCTION (LAMBDA (F) 
    (PROG ((DEST (PACK* '{Qv}<IDL>SYSOUTS> IDLSYSTYPE F))

           (SOURCE (PACK* '{Dsk} F)))
       (OR (AND (INFILEP DEST)
                (EQUAL (GETFILEINFO DEST 'CREATIONDATE) 
                       (GETFILEINFO SOURCE 'CREATIONDATE)))
               (COPYFILE SOURCE DEST]
SHH (DELFILE (SELECTQ (MACHINETYPE)
		        (DORADO  '{Dsk}Dolphinlispmc.eb)
                  (DOLPHIN '{Dsk}Doradolispmc.eb)
                  NIL))
SHH (LOGOUT T)"