Rmk120 move press to obsolete (#2274)

* Move PRESS and PRESSFROMNS to obsolete

* Remove PRESS from the loadup

Also moves MULTI-ALIST forward to the beginning of LOADUP-LISP

* BACKGROUNDIMAGES depended on PRESSFILEP, now moved here from PRESS

internal/loadups/LOADUP-FULL

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Jul-2025 11:41:03" {WMEDLEY}<internal>loadups>LOADUP-FULL.;28
 5184   
+
(FILECREATED " 1-Sep-2025 11:59:41" {WMEDLEY}<internal>loadups>LOADUP-FULL.;31
 5430   
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS LOADFULLFONTS)
+      :CHANGES-TO (FNS LOADUP-FULL)
 
-      :PREVIOUS-DATE "30-Jun-2025 00:04:34" {WMEDLEY}<internal>loadups>LOADUP-FULL.;27)
+      :PREVIOUS-DATE "18-Aug-2025 12:09:49" {WMEDLEY}<internal>loadups>LOADUP-FULL.;29)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -45,7 +45,9 @@
     (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

-  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited 21-Jun-2025 23:33 by rmk")


+  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited  1-Sep-2025 11:59 by rmk")


+                                                             (* ; "Edited 18-Aug-2025 12:09 by rmk")


+                                                             (* ; "Edited 21-Jun-2025 23:33 by rmk")


                                                              (* ; "Edited 18-Jan-2023 16:22 by FGH")


                                                              (* ; "Edited 12-Aug-2022 11:17 by lmm")


                                                              (* ; "Edited 14-Jul-2022 12:32 by rmk")


@@ -70,16 +72,18 @@
     (PRINTOUT T T "Full loadup started at " (DATE)
            " while connected to "
            (DIRECTORYNAME T)
-           T T)
-    (LOADUP '(MULTI-ALIST))                                  (* ; "For FONTSAVAILABLE lookup")

+           T T)                                              (* ; "For FONTSAVAILABLE lookup")

     (LOADUP '(POSTSCRIPTSTREAM))                             (* ; " to get PSCFONT.READFONT")

     (LOADFULLFONTS
)
     (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
     (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
-    (LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER 
-                   THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
-                   ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE 
-                   UNIXCOMM UNIXCHAT UNIXYCD UNIXUTILS))
+
+    (* ;; "RMK: 2025:  PRESS was after CHAT")

+
+    (LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
+                   GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT ISO8859IO 
+                   HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM 
+                   UNIXCHAT UNIXYCD UNIXUTILS))
     (COND
        ((WINDOWP *WHO-LINE*)
         (CLOSEW *WHO-LINE*)))
@@ -94,5 +98,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (458 5146 (LOADFULLFONTS 468 . 2373) (LOADUP-FULL 2375 . 4896) (FIXMETA 4898 . 5144)))))
+  (FILEMAP (NIL (456 5392 (LOADFULLFONTS 466 . 2371) (LOADUP-FULL 2373 . 5142) (FIXMETA 5144 . 5390)))))
 STOP

internal/loadups/LOADUP-LISP

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20|
 6425   
+
(FILECREATED "18-Aug-2025 12:09:49" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;21|
 6713   
 
       :EDIT-BY |rmk|
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "24-May-2025 10:20:14" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;14|)
+      :PREVIOUS-DATE "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -19,7 +19,8 @@
 (DEFINEQ
 
 (LOADUP-LISP

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


+  (LAMBDA (DRIBBLEFILE)
                                     (* \; "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")


@@ -43,6 +44,8 @@
     (* |;;| "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")

 
@@ -138,5 +141,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (640 6219 (LOADUP-LISP 650 . 6217)))))
+  (FILEMAP (NIL (640 6507 (LOADUP-LISP 650 . 6505)))))
 STOP