//  Make IDL production sysout.  At start, must be logged in with read access to <Lisp>
FTP Eris DIR/C <Lisp>@ThisRelease.name@>Basics RET/'#A Lisp.run lisp.syms DoradoLispMc.eb DolphinLispMc.eb RET/s Init.NOGREET init.lisp
LISP [Eris]<Lisp>@ThisRelease.name@>Basics>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> (PACK* '{ERIS}<Lisp> MAKESYSNAME '>Library>NEW>) (PACK* '{ERIS}<Lisp> MAKESYSNAME '>Library>)  (PACK* '{Eris}<Lispusers> MAKESYSNAME '>) (PACK* '{Eris}<lisp> MAKESYSNAME '>Lispusers>) '{ERIS}<Lispusers>))
SHH (SETQ LISPUSERSDIRECTORIES (COPY DIRECTORIES))
SHH (CNDIR '{Qv}<IDL>FAST>)
SHH (LOAD 'LOADIDL.FDCOM 'SYSLOAD)
SHH (RESETVARS (USERRECLST) (ENDLOADUP))
SHH (SETQ IDLSYSTYPE
	(COND ((EQ MAKESYSNAME
			(CAR (READFILE '{PHYLUM}<LISP>CURRENT>CURRENTRELEASE.NAME))) (PACK))
		((EQ MAKESYSNAME (CAR (READFILE '{PHYLUM}<LISP>CURRENT>PENDINGRELEASE.NAME))) 'P)
					(T 'LC)))

SHH [MAKESYS (PACK* '{Qv}<IDL>SYSOUTS> IDLSYSTYPE '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)"