;
;	Run MAKEINIT on SUN
;	'90/02/09 Osamu
;	'90.05/23 change DIRECTORIES
;
(CL:IN-PACKAGE "IL")
(DRIBBLE "{DSK}SUNLOADUP/LOADUP.LOG")
(SETQ DIRECTORIES '(
	"{DSK}/usr/local/lde/lispcore/sources/" 
	"{DSK}/usr/local/lde/lispcore/library/" 
	"{DSK}/usr/local/lde/lispcore/internal/library/"
	"{DSK}/python1/fuji/sunloadup/"
	"{dsk}/users/sybalsky/lispcore/sunloadup/" ))
(LOAD "{dsk}SUNLOADUP/FILESETS")
(FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT CMLARRAY-SUPPORT)
(LOAD "{DSK}SUNLOADUP/FASTINIT.DFASL")
;; turn off idle or you get stuck.
(IDLE.SET.OPTION 'TIMEOUT T)
;;and start making the init.  This takes about 45 min.
(PROGN 
  (DORENAME 'I)
  (DLFIXINIT
   (MAKEINIT '(11500Q 13062Q 25400Q)
      NIL NIL
      '({DSK}/usr/local/lde/lispcore/sources/
        {dsk}/users/osamu/sunloadup/
	{DSK}/python1/fuji/sunloadup/ ))
   '{DSK}INIT.DLINIT
   '{dsk}/python1/fuji/sunloadup/LISPDLION.DB
   300)
  (DATE)
  (DRIBBLE)
  (LOGOUT T)
)