54 lines
3.0 KiB
Common Lisp
54 lines
3.0 KiB
Common Lisp
(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)))
|
|
(* ;; "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)))
|
|
(* ;; "needed for makesys")
|
|
(LOADUP (QUOTE (MOD44IO)))
|
|
(* ;;
|
|
"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 PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE CMLARRAYINSPECTOR EDITINTERFACE TTYIN)))
|
|
(LOADUP (QUOTE (BREAK-AND-TRACE)))
|
|
(LOADUP (QUOTE (FASDUMP XCL-COMPILER ADVISE)))
|
|
(* ;; "the bytecompiler and Interlisp compiler interface functions")
|
|
(LOADUP (QUOTE (DLAP BYTECOMPILER COMPILE)))
|
|
(LOADUP (QUOTE (HARDCOPY LOGOW IDLER ICONW FREEMENU SEDIT)))
|
|
(CLOSEW (LOGOW)) (MOVD 'NILL 'LOGOW)
|
|
(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)
|
|
(* ;; "Additional stuff that should be folded into original definitions")
|
|
(LOADUP (QUOTE (LOADUP-LISP)))
|
|
STOP
|
|
|