85 lines
3.4 KiB
Common Lisp
85 lines
3.4 KiB
Common Lisp
(* " '90/02/15 Osamu: Remove D-Machine specific file")
|
|
(* " Remove DPUPFT DOVEINPUTOUTPUT DOVEDISK DOVEDISPLAY DOVEMISC DOVEETHER DOVEFLOPPY DSKDISPLAY FLOPPY")
|
|
(* " '90/02/19 Osamu: Remove XCL Compiler.")
|
|
(* " Remove FASDUMP XCL-COMPILER. '90/02/19 Osamu")
|
|
(SETQQ COMPILE.EXT LCOM)
|
|
|
|
(SETQ SYSFILES (UNION BOOTLOADEDFILES SYSFILES))
|
|
|
|
(SETQ BOOTLOADEDFILES)
|
|
|
|
(* "following files are really loaded earlier, this call to LOADUP just cleans up")
|
|
(LOADUP (QUOTE (ACODE MACHINEINDEPENDENT POSTLOADUP)))
|
|
|
|
(* "establish all package exports early")
|
|
(LOADUP (QUOTE (LISP-PACKAGE FASL-PACKAGE D-ASSEM-PACKAGE COMPILER-PACKAGE)))
|
|
|
|
(* "turn on FTP so that loadup will be faster")
|
|
(* "Osamu '90/02/15 remove DPUPFTP")
|
|
(LOADUP (QUOTE (BSP)))
|
|
|
|
(* "load FASL loader here, so we can load DFASLs earlier in loadup")
|
|
(LOADUP (QUOTE (ERROR-RUNTIME CMLARITH CONDITION-HIERARCHY CMLHASH D-ASSEM FASLOAD)))
|
|
|
|
(* "These are needed by any FASL files")
|
|
(LOADUP (QUOTE (DEFFER-RUNTIME CMLPRINT CLSTREAMS CMLSTRING CMLSYMBOL CMLTYPES CMLSEQCOMMON CMLSEQMAPPERS CMLPATHNAME CMLFILESYS)))
|
|
|
|
(* * * "FASL files may be loaded after this point" * * *)
|
|
|
|
(LOADUP (QUOTE (CMLDEFFER ERROR-RUNTIME-AFTER-FASL WRAPPERS)))
|
|
|
|
(* "early runtime support for Common Lisp and (temporarily) debugger")
|
|
(LOADUP (QUOTE (STACKFNS CMLMVS MACROS MACROAUX UNWINDMACROS)))
|
|
|
|
(LOADUP (QUOTE (COMMON XCLC-RUNTIME CMLTYPES CL-ERROR)))
|
|
|
|
(LOADUP (QUOTE (AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF FONTPROFILE SPELLFILE PRINTFN LOADFNS DMISC DIRECTORY SPELLFILE FILEPKG RESOURCE)))
|
|
|
|
(* "The Byte Compiler (DLAP, BYTECOMPILER, COMPILER) used to be here. Moved after
|
|
XCL Compiler so that one byte compiler init will work. JDS 10/11/89")
|
|
|
|
(LOADUP (QUOTE (HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD)))
|
|
|
|
(LOADUP (QUOTE (GAINSPACE COROUTINE ARGLIST ASKUSER SYSPRETTY COMMON COMPARE)))
|
|
|
|
(DWIM (QUOTE C))
|
|
|
|
(* "Kernel Common Lisp files")
|
|
(LOADUP (QUOTE (CMLSTEP CMLDOC CMLPARSE CMLSETF CMLPRED CMLREAD WALKER CMLSEQFINDER CMLSEQMODIFY CMLSORT DEFSTRUCT CMLMISCIO CMLCOMPILE CMLDESTRUCT CL-ERROR CMLFORMAT CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES)))
|
|
|
|
(LOADUP (QUOTE (PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT)))
|
|
|
|
(LOADUP (QUOTE (ADDARITH)))
|
|
|
|
(LOADUP (QUOTE (CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW WINDOWICON LOGOW PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE CMLARRAYINSPECTOR EDITINTERFACE TTYIN)))
|
|
|
|
(LOADUP (QUOTE (BREAK-AND-TRACE)))
|
|
|
|
(* "Remove FASDUMP XCL-COMPILER. '90/02/19 Osamu")
|
|
(LOADUP (QUOTE (ADVISE)))
|
|
|
|
(* "the bytecompiler and Interlisp compiler interface functions")
|
|
(LOADUP (QUOTE (DLAP BYTECOMPILER COMPILE)))
|
|
|
|
(* "remove DISKDLION DOVEINPUTOUTPUT DOVEDISK DOVEDISPLAY DOVEMISC DOVEETHER DOVEFLOPPY DSKDISPLAY FLOPPY TRSERVER '90/02/15 Osamu")
|
|
(LOADUP (QUOTE (LOCALFILE 10MBDRIVER MAIKOETHER LLNS SPP COURIER NSPRINT CLEARINGHOUSE NSFILING HARDCOPY INTERPRESS IDLER ICONW FREEMENU SEDIT)))
|
|
|
|
(LOADUP (QUOTE (DSK UFS UFSCALLC MAIKOBITBLT)))
|
|
|
|
(LOADUP (QUOTE (TIME)))
|
|
|
|
(LOADUP (QUOTE (XCL-EXTRAS)))
|
|
|
|
(* "CMLPACKAGE pushes onto INSPECTMACROS")
|
|
(LOADUP (QUOTE (CMLPACKAGE)))
|
|
|
|
(* "Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs")
|
|
(LOADUP (QUOTE (CMLSMARTARGS)))
|
|
|
|
(LOADUP (QUOTE (IMPLICIT-KEY-HASH CLOSURE-CACHE)))
|
|
|
|
(* "Already enabled, but this time fixes tables that weren't defined in the init")
|
|
(PACKAGE-ENABLE)
|
|
|
|
STOP
|