From 1fc6e5115c0d15338ff23b560726aecff734e8d7 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 28 Dec 2025 21:21:38 -0800 Subject: [PATCH] Move PSEUDOHOSTS and UNIXUTILS to Lisp.sysout Use in creating the {LPT} printer device in HARDCOPY --- internal/loadups/LOADUP-FULL | 13 +++++++------ internal/loadups/LOADUP-FULL.LCOM | Bin 3046 -> 3032 bytes internal/loadups/LOADUP-LISP | 16 ++++++---------- internal/loadups/LOADUP-LISP.LCOM | Bin 3704 -> 3629 bytes 4 files changed, 13 insertions(+), 16 deletions(-) diff --git a/internal/loadups/LOADUP-FULL b/internal/loadups/LOADUP-FULL index cdeba4e4..037dd5cd 100644 --- a/internal/loadups/LOADUP-FULL +++ b/internal/loadups/LOADUP-FULL @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "20-Sep-2025 14:18:19" {WMEDLEY}loadups>LOADUP-FULL.;34 5662 +(FILECREATED "28-Dec-2025 12:06:12" {WMEDLEY}loadups>LOADUP-FULL.;35 5759 :EDIT-BY rmk - :CHANGES-TO (FNS LOADFULLFONTS) + :CHANGES-TO (FNS LOADUP-FULL) - :PREVIOUS-DATE " 2-Sep-2025 20:07:20" {WMEDLEY}loadups>LOADUP-FULL.;33) + :PREVIOUS-DATE "20-Sep-2025 14:18:19" {WMEDLEY}loadups>LOADUP-FULL.;34) (PRETTYCOMPRINT LOADUP-FULLCOMS) @@ -47,7 +47,8 @@ (PRINTOUT T "FULL fonts loaded" T]) (LOADUP-FULL - [LAMBDA (DRIBBLEFILE) (* ; "Edited 1-Sep-2025 11:59 by rmk") + [LAMBDA (DRIBBLEFILE) (* ; "Edited 28-Dec-2025 12:06 by rmk") + (* ; "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") @@ -85,7 +86,7 @@ (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)) + UNIXCHAT UNIXYCD)) (COND ((WINDOWP *WHO-LINE*) (CLOSEW *WHO-LINE*))) @@ -100,5 +101,5 @@ (FIXMETA) (DECLARE%: DONTCOPY - (FILEMAP (NIL (458 5624 (LOADFULLFONTS 468 . 2603) (LOADUP-FULL 2605 . 5374) (FIXMETA 5376 . 5622))))) + (FILEMAP (NIL (456 5721 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5471) (FIXMETA 5473 . 5719))))) STOP diff --git a/internal/loadups/LOADUP-FULL.LCOM b/internal/loadups/LOADUP-FULL.LCOM index d5a7e96d2a04a6145c333ba724c9d20a8f55daf9..4b6d5511af33dba157e36a8805349b4632ea5585 100644 GIT binary patch delta 236 zcmaDRenWghgs_FKOKP&Nk%5t^f}xR>fti(|(Zpw_}dHT3I2e~?ixVk8y8Vt2nNn!Fq zMlDtaQ!_K8$+?Uw`fyt`6|4e+T*Ey5LxXi)fCeZiDHtJKZ3J|fxs{Q@larry>il>MEDLEY>INTERNAL>loadups>LOADUP-LISP.;2| 7333 +(FILECREATED "27-Dec-2025 15:02:04" |{WMEDLEY}loadups>LOADUP-LISP.;24| 7235 - :EDIT-BY "lmm" + :EDIT-BY |rmk| :CHANGES-TO (FNS LOADUP-LISP) - :PREVIOUS-DATE "16-Oct-2025 16:55:27" -|{DSK}larry>il>MEDLEY>INTERNAL>loadups>LOADUP-LISP.;1|) + :PREVIOUS-DATE "16-Oct-2025 16:55:27" |{WMEDLEY}loadups>LOADUP-LISP.;22|) (PRETTYCOMPRINT LOADUP-LISPCOMS) @@ -20,7 +19,7 @@ (DEFINEQ (LOADUP-LISP - (LAMBDA (DRIBBLEFILE) (* \; "Edited 5-Nov-2025 09:01 by lmm") + (LAMBDA (DRIBBLEFILE) (* \; "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") @@ -106,7 +105,7 @@ (LOADUP '(DSK UFS UFSCALLC MAIKOBITBLT)) (LOADUP '(TIME)) (LOADUP '(BRKDWN)) - (LOADUP '(LOGOW IDLER HARDCOPY ICONW FREEMENU SEDIT)) + (LOADUP '(LOGOW IDLER UNIXUTILS PSEUDOHOSTS HARDCOPY ICONW FREEMENU SEDIT)) (LOADUP '(XCL-EXTRAS)) (* |;;| "CMLPACKAGE pushes onto INSPECTMACROS") @@ -128,10 +127,7 @@ (* |;;| " Added late, LOAD late to avoid any dependencies") - (* |;;| "prevent medley from pinning CPU") - (LOADUP '(XCL-LOOP XCL-HASH-LOOP)) - (LOADUP '(BACKGROUND-YIELD)) (* |;;| " networking code -- should make it optional but too many cross dependencies") @@ -149,5 +145,5 @@ (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST) ) (DECLARE\: DONTCOPY - (FILEMAP (NIL (675 7127 (LOADUP-LISP 685 . 7125))))) + (FILEMAP (NIL (640 7029 (LOADUP-LISP 650 . 7027))))) STOP diff --git a/internal/loadups/LOADUP-LISP.LCOM b/internal/loadups/LOADUP-LISP.LCOM index 3a1d86082e364029f635560cfc3fcdf3f8043af9..11f55667e9e2450ab7c91dca09071112f722ce37 100644 GIT binary patch delta 460 zcmZ{fzfQtX97fZ|K+?q!jfn}vFP&NwNV&9B8kf>upz-#Py{*WI(18erR0b2T;Sn@8 zK7f;py6{dugQImYVZaCY&Uemt^`rW9(MEdBPR2E)APpLtp&&z1MUcetV!oWtk_jwQ z5P{tfTx=6Od^nq?t0YTDv%JC|t&z%P5Jc44g6KxGZ78S3=sHXOFbr67x6E!02E;e* zIH(ba2Ee8%1F;(u0^5vwy$GChQ53xQ<0gt}%JnPHF0LjG7*+p*_d#gRiO1Qf@%-}h-m ip>Kw^EZ-YIH^kV*UJUftSr(v)(B`ZBT>1f>5q~NG delta 521 zcmbu5y-vbV9K}-+Fm=&@OvL=t35F7SZ=tc8CKq}omA2Hjm@pzVN>V-o(P+dl_yR)X zh)fI> z&9QR3Xq*ib#9xe1lm#SXk%RGZa_Ie##v!G3+U%Wp)3?+*u`CA`uIWc&vLry1xGbC5 z*K}I8DRHS9QkIVSS9g#w#_R^jRMlL*)Bw)!b~y-cn2P-8ON8K)IbxpY2P+TEEW!rw zk;E2~K()0}Nv9wp1d9vjYpajUCYHb;Rq8YxlNh0lgO{k!2my-SrNq1hnGz{iD|W4J ts(eGEx|$7MV{VcKTttv58@gi<+a-3z$p*Q&7+l1+qks`&=lAhh>>JvAmdOAB