(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)


(FILECREATED "12-Aug-2022 12:29:57" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2|
 5250   

      :CHANGES-TO (VARS LOADUP-LISPCOMS)

      :PREVIOUS-DATE "13-Jul-2022 14:10:00" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)


(PRETTYCOMPRINT LOADUP-LISPCOMS)

(RPAQQ LOADUP-LISPCOMS
 ((FNS LOADUP-LISP)
                        (INITVARS (FILING.ENUMERATION.DEPTH 1))
                        (FILES MEDLEYDIR)
                        (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS 
                               USERRECLST)))
(DEFINEQ

(LOADUP-LISP

  (LAMBDA NIL
                                               (* \; "Edited 13-Jul-2022 14:09 by rmk")


                                                          (* \; "Edited  4-Mar-2022 19:13 by larry")


                                                          (* \; "Edited  2-Mar-2022 16:31 by larry")


                                                          (* \; "Edited 28-Feb-2022 15:02 by larry")


                                                           (* \; "Edited 29-Apr-2021 22:30 by rmk:")

    (SETQQ COMPILE.EXT LCOM)
    (MEDLEY-INIT-VARS)                                       (* \; "should be set earlier")

    (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
    (FOR
 X IN
 BOOTLOADEDFILES DO
 (CL:UNLESS (MEMB X SYSFILES)
                                     (PRINTOUT T X " bootloaded" T)
                                     (SETQ SYSFILES (CONS X SYSFILES))))
    (SETQ BOOTLOADEDFILES NIL)
    (IF
 (NOT (BOUNDP 'DIRECTORIES))
        THEN
 (SETQ DIRECTORIES LOADUPDIRECTORIES))

    (* |;;| "following files are really loaded earlier, this call to LOADUP just cleans up")


    (LOADUP '(ACODE MACHINEINDEPENDENT))

    (* |;;| "establish all package exports early")


    (LOADUP '(LISP-PACKAGE FASL-PACKAGE D-ASSEM-PACKAGE COMPILER-PACKAGE))

    (* |;;| "load FASL loader here, so we can load DFASLs earlier in loadup")


    (LOADUP '(ERROR-RUNTIME CMLARITH CONDITION-HIERARCHY CMLHASH D-ASSEM FASLOAD))

    (* |;;| "These are needed by any FASL files")


    (LOADUP '(DEFFER-RUNTIME CMLPRINT CLSTREAMS CMLSTRING CMLSYMBOL CMLTYPES CMLSEQCOMMON 
                    CMLSEQMAPPERS CMLPATHNAME CMLFILESYS))

(* |;;;| "* 'FASL files may be loaded after this point' * * *")


    (LOADUP '(CMLDEFFER ERROR-RUNTIME-AFTER-FASL WRAPPERS))

    (* |;;| "early runtime support for Common Lisp and (temporarily) debugger")


    (LOADUP '(STACKFNS CMLMVS MACROS MACROAUX UNWINDMACROS))
    (LOADUP '(COMMON XCLC-RUNTIME CMLTYPES CL-ERROR))
    (LOADUP '(AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF FONTPROFILE SPELLFILE PRINTFN LOADFNS 
                    DMISC DIRECTORY SPELLFILE FILEPKG RESOURCE))

    (* |;;| "needed for makesys")


    (* |;;| "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 '(HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD))
    (LOADUP '(GAINSPACE COROUTINE ARGLIST ASKUSER SYSPRETTY COMMON COMPARE))
    (DWIM 'C)

    (* |;;| "Kernel Common Lisp files")


    (LOADUP '(CMLSTEP CMLDOC CMLPARSE CMLSETF CMLPRED CMLREAD WALKER CMLSEQFINDER CMLSEQMODIFY 
                    CMLSORT DEFSTRUCT CMLMISCIO CMLCOMPILE CMLDESTRUCT CL-ERROR CMLFORMAT 
                    CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES))
    (LOADUP '(PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT))
    (LOADUP '(ADDARITH))
    (LOADUP '(UNICODE CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW
                    WINDOWICON PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE 
                    CMLARRAYINSPECTOR EDITINTERFACE TTYIN))
    (LOADUP '(BREAK-AND-TRACE))
    (LOADUP '(FASDUMP XCL-COMPILER ADVISE))

    (* |;;| "the bytecompiler and Interlisp compiler interface functions")


    (LOADUP '(DLAP BYTECOMPILER COMPILE))
    (LOADUP '(DSK UFS UFSCALLC MAIKOBITBLT))
    (LOADUP '(TIME))
    (LOADUP '(BRKDWN))
    (LOADUP '(LOGOW IDLER HARDCOPY ICONW FREEMENU SEDIT))
    (LOADUP '(XCL-EXTRAS))

    (* |;;| "CMLPACKAGE pushes onto INSPECTMACROS")


    (LOADUP '(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 '(CMLSMARTARGS))
    (LOADUP '(IMPLICIT-KEY-HASH CLOSURE-CACHE))

    (* |;;| "Already enabled, but this time fixes tables that weren't defined in the init")


    (PACKAGE-ENABLE)

    (* |;;| " networking code -- should make it optional but too many cross dependencies")


    (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                  NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
    (DRIBBLE)
    (SETQ MAKESYSNAME :MEDLEY)))
)

(RPAQ? FILING.ENUMERATION.DEPTH
 1)

(FILESLOAD MEDLEYDIR)
(DECLARE\: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
)
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (631 5044 (LOADUP-LISP 641 . 5042)))))
STOP