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


(FILECREATED "26-Mar-2026 18:38:22" 
|{DSK}<Users>briggs>Projects>medley>internal>loadups>LOADUP-LISP.;14|
 7604   

      :EDIT-BY "briggs"

      :CHANGES-TO (FNS LOADUP-LISP)

      :PREVIOUS-DATE "22-Feb-2026 14:15:31" 
|{DSK}<Users>briggs>Projects>medley>internal>loadups>LOADUP-LISP.;13|)


(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 (DRIBBLEFILE)
                                  (* \; "Edited 26-Mar-2026 18:38 by briggs")


                                                            (* \; "Edited 22-Feb-2026 14:15 by rmk")


                                                            (* \; "Edited 28-Jan-2026 14:30 by lmm")


                                                            (* \; "Edited 27-Dec-2025 15:02 by rmk")


                                                            (* \; "Edited 16-Oct-2025 16:55 by rmk")


                                                            (* \; "Edited 18-Aug-2025 12:08 by rmk")


                                                            (* \; "Edited 15-Jun-2025 14:39 by rmk")


                                                            (* \; "Edited 24-May-2025 10:20 by rmk")


                                                            (* \; "Edited 21-May-2025 09:25 by rmk")


                                                            (* \; "Edited  5-May-2025 21:25 by rmk")


                                                            (* \; "Edited  2-May-2025 22:12 by rmk")


                                                            (* \; "Edited 21-Mar-2024 10:55 by lmm")


                                                            (* \; "Edited 14-Mar-2024 12:16 by lmm")


                                                            (* \; "Edited 26-Feb-2023 12:17 by lmm")


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


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


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

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

    (DRIBBLE DRIBBLEFILE)
    (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))
    (LOADUP '(MULTI-ALIST))                                  (* \; 

                                               "So it's functions are available e.g. for FONTPROFILE")


    (* |;;| "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 SPELLFILE PRINTFN LOADFNS DMISC 
                    DIRECTORY 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))

    (* |;;| "Before the MEDLEYFONT implementation, FONTPROFILE came after NEWPRINTDEF above, but the loadup failed for undiagnosed reasons.  After moving it around, it appears that it must come before MENU, because it creates thw WINDOWTITLEFONT, but after HLDISPLAY.  Not yet known what the HLDISPLAY dependency is.  ")


    (* |;;| "Also, UNICODE is split into UNICODE-TABLES and UNICODE, so the tables are loaded before their MCCS/Uncode client functions are installed.  Functions in UFS now depend on those translations so that filenames can have characters outside of Ascii. ")


    (LOADUP '(CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY FONTPROFILE 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 UNIXUTILS PSEUDOHOSTS 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))

    (* |;;| " not sure what this depends on, so putting it here")


    (LOADUP '(BIGBITMAPS))

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


    (PACKAGE-ENABLE)

    (* |;;| " Added late, LOAD late to avoid any dependencies")


    (LOADUP '(XCL-LOOP XCL-HASH-LOOP))

    (* |;;| " 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))
    (RESTART.ETHER)
    (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 (695 7398 (LOADUP-LISP 705 . 7396)))))
STOP