(* "File <LispCore>Sources>Loadup.LISP Edited September 30, 1986 by Pavel")

(SETQQ COMPILE.EXT DCOM)

(SETQ SYSFILES (UNION BOOTLOADEDFILES SYSFILES))

(SETQ BOOTLOADEDFILES)

(LOADUP (QUOTE (ACODE MACHINEINDEPENDENT POSTLOADUP BSP DPUPFTP HELPDL BREAK CMLMACROS CMLMVS MACROS MACROAUX CMLEVAL)))

(* "CL-ERROR needed by anyone who defines error types")

(LOADUP (QUOTE (COMMON CMLSYMBOL CMLHASH CMLDEFFER CMLLIST CMLSPECIALFORMS ERROR-RUNTIME XCLC-RUNTIME CMLTYPES CL-ERROR)))

(*  "DEFFER needed by anyone else using  DEFMACRO, MVS needed by interpreted RETURN, can't break before here")

(LOADUP (QUOTE (AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF COMMENT ADVISE LOADFNS DMISC DFILE FILEPKG)))

(LOADUP (QUOTE (RESOURCE DLAP BYTECOMPILER COMPILE HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD ASSIST ASKUSER COMMON)))

(DWIM (QUOTE C))

(LOADUP (QUOTE (CMLKERNEL)))

(LOADUP (QUOTE (CMLPATHNAME HPRINT ADDARITH MSANALYZE MSPARSE MASTERSCOPE AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW WINDOWICON ATTACHEDWINDOW WBREAK XXGEOM XXFILL DEXEC INSPECT DEDIT TTYIN)))

(LOADUP (QUOTE (LOADUPPCL)))

(LOADUP (QUOTE (DISKDLION DOVEINPUTOUTPUT DOVEDISK DOVEDISPLAY DOVEMISC DOVEETHER DOVEFLOPPY LOCALFILE DSKDISPLAY 10MBDRIVER LLNS TRSERVER BRKDWN MATCH LLFCOMPILE D-ASSEM FASL XCL-COMPILER SPP COURIER NSPRINT CLEARINGHOUSE NSFILING HARDCOPY PRESS PUPPRINT INTERPRESS FLOPPY IDLER)))

STOP