Copying the {MEDLEY} stuff here so that it can be used in this draft branch, before its PR is merged

internal/loadups/LOADUP-FULL

@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "14-Feb-2026 00:42:39" {WMEDLEY}<internal>loadups>LOADUP-FULL.;38
 5967   
+
(FILECREATED "16-Apr-2026 09:37:27" {WMEDLEY}<internal>loadups>LOADUP-FULL.;46
 5817   
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS LOADUP-FULL)
+      :CHANGES-TO (FNS LOADFULLFONTS)
 
-      :PREVIOUS-DATE "13-Feb-2026 00:47:52" {WMEDLEY}<internal>loadups>LOADUP-FULL.;37)
+      :PREVIOUS-DATE "14-Feb-2026 00:42:39" {WMEDLEY}<internal>loadups>LOADUP-FULL.;38)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -16,7 +16,8 @@
 (DEFINEQ
 
 (LOADFULLFONTS

-  [LAMBDA NIL
                                                (* ; "Edited 20-Sep-2025 14:17 by rmk")


+  [LAMBDA NIL
                                                (* ; "Edited 16-Apr-2026 09:37 by rmk")


+                                                             (* ; "Edited 20-Sep-2025 14:17 by rmk")


                                                              (* ; "Edited  2-Sep-2025 20:06 by rmk")


                                                              (* ; "Edited 13-Jul-2025 11:40 by rmk")


                                                              (* ; "Edited 30-Jun-2025 00:04 by rmk")


@@ -27,11 +28,8 @@
 
     (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")

 
-    (PRINTOUT T "Loading FULL fonts..." T)
+    (PRINTOUT T T "Loading FULL fonts..." T)
     (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
-
-    (* ;; "Previous code reset the coercion variables to NIL, which would have resulted in glyph-incomplete charsets. With Medley-formatted fonts, the completions have already been installed in the files and there is no need to deal with those variables.")

-
     (for
 FAMILY in
 '(CLASSIC MODERN TERMINAL)
        do
 (PRINTOUT T "  Loading " FAMILY " ")
           [for
 SIZE in
 '(8 10 12)
@@ -103,5 +101,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (456 5929 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5679) (FIXMETA 5681 . 5927)))))
+  (FILEMAP (NIL (458 5779 (LOADFULLFONTS 468 . 2451) (LOADUP-FULL 2453 . 5529) (FIXMETA 5531 . 5777)))))
 STOP

internal/loadups/LOADUP-LISP

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)
 
-
(FILECREATED " 5-Apr-2026 21:35:35" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;30|
 7659   
+
(FILECREATED "16-Apr-2026 09:06:26" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;32|
 7864   
 
       :EDIT-BY |rmk|
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "26-Mar-2026 18:38:22" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;29|)
+      :PREVIOUS-DATE "15-Apr-2026 23:27:22" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;31|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -19,7 +19,8 @@
 (DEFINEQ
 
 (LOADUP-LISP

-  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited  5-Apr-2026 21:35 by rmk")


+  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited 16-Apr-2026 09:06 by rmk")


+                                                            (* \; "Edited  5-Apr-2026 21:35 by rmk")


                                                          (* \; "Edited 26-Mar-2026 18:38 by briggs")


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


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


@@ -37,15 +38,15 @@
                                                             (* \; "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")

+    (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))
+        THEN
 (SETQ DIRECTORIES LOADUPDIRECTORIES))           (* (LOADUP (QUOTE (PSEUDOHOSTS))))

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

 
@@ -109,7 +110,7 @@
     (LOADUP '(DSK UFS UFSCALLC MAIKOBITBLT))
     (LOADUP '(TIME))
     (LOADUP '(BRKDWN))
-    (LOADUP '(LOGOW IDLER UNIXUTILS PSEUDOHOSTS HARDCOPY ICONW FREEMENU SEDIT))
+    (LOADUP '(LOGOW IDLER UNIXUTILS HARDCOPY ICONW FREEMENU SEDIT))
     (LOADUP '(XCL-EXTRAS))
 
     (* |;;| "CMLPACKAGE pushes onto INSPECTMACROS")

@@ -150,5 +151,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (640 7453 (LOADUP-LISP 650 . 7451)))))
+  (FILEMAP (NIL (640 7658 (LOADUP-LISP 650 . 7656)))))
 STOP