From 2168540f2056fdf7b3c22434224930a307a69f92 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Wed, 5 Nov 2025 09:26:13 -0800 Subject: [PATCH 1/2] Add BACKGROUND-YIELD to Lisp.sysout (and thus to FULL.SYSOUT) so you don't need to load it in INITs. --- internal/loadups/LOADUP-LISP | 15 ++++++++++----- internal/loadups/LOADUP-LISP.LCOM | Bin 3607 -> 3704 bytes 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/internal/loadups/LOADUP-LISP b/internal/loadups/LOADUP-LISP index a84822fe0..23875a66e 100644 --- a/internal/loadups/LOADUP-LISP +++ b/internal/loadups/LOADUP-LISP @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "16-Oct-2025 16:55:27" |{WMEDLEY}loadups>LOADUP-LISP.;22| 7104 +(FILECREATED " 5-Nov-2025 09:04:36" |{DSK}larry>il>MEDLEY>INTERNAL>loadups>LOADUP-LISP.;2| 7333 - :EDIT-BY |rmk| + :EDIT-BY "lmm" :CHANGES-TO (FNS LOADUP-LISP) - :PREVIOUS-DATE "18-Aug-2025 12:09:49" |{WMEDLEY}loadups>LOADUP-LISP.;21|) + :PREVIOUS-DATE "16-Oct-2025 16:55:27" +|{DSK}larry>il>MEDLEY>INTERNAL>loadups>LOADUP-LISP.;1|) (PRETTYCOMPRINT LOADUP-LISPCOMS) @@ -19,7 +20,8 @@ (DEFINEQ (LOADUP-LISP - (LAMBDA (DRIBBLEFILE) (* \; "Edited 16-Oct-2025 16:55 by rmk") + (LAMBDA (DRIBBLEFILE) (* \; "Edited 5-Nov-2025 09:01 by lmm") + (* \; "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") @@ -126,7 +128,10 @@ (* |;;| " 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") @@ -144,5 +149,5 @@ (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST) ) (DECLARE\: DONTCOPY - (FILEMAP (NIL (640 6898 (LOADUP-LISP 650 . 6896))))) + (FILEMAP (NIL (675 7127 (LOADUP-LISP 685 . 7125))))) STOP diff --git a/internal/loadups/LOADUP-LISP.LCOM b/internal/loadups/LOADUP-LISP.LCOM index 4662329ca85cfa8e28932042e3f6c814cc40c491..3a1d86082e364029f635560cfc3fcdf3f8043af9 100644 GIT binary patch delta 548 zcmbu5F;Bu!6ope!GALXLIp00!VfB0UcK;eSWT$^FBL!`MvZ*Voj!OcF!co6_ z+KIw8^m`xxA74_hdbQmchJ&FIwFZL=qZ1i6qZSJc)A5<>5X*@At@hdJ(6DNRHtMov zdiAv}6iaD>`iCi&^di!+DnNXg8-%~4IHeq&w0g(k=)JH=>U9q$uF>bp^*;fsCP=)v zV_K}@GU79uQvNM7)$gETjQJ(d88v;m9DopYy8bvs|_qs0hJi$MM4KGq;R2ut}A9f#(oAm2vVq7jeY|W$z2BqJdZ@mFlir zYdBO6OlDCjdCU4a9&ibPSg|e7CazE1T~A8Z<`43G>Ts*H=}3T!>4k6FOiCW-!#N(1 KhQ^tNT=oYNvYdYVX zQQl-{<)~&-;8=-YPGbx?C4KqlJhhq=H<>s)~`u0nd$Q)A@K3g)obO z1Nzu^iRF;N)A=}FL`giHq@~>95+N!8%gO2*M8`Hj zijM7ffsSJeT(jpmu+FGftC>9^H!JG2a>le65zbcP2f_@3XQ7mS>x$ zLsnk?lPMt$T%$$&f!{V<0t!m^3KK?3Y2h{Hi+&kubp(9Fb$r+G0>iuT1vY&yUL62$ ddM&Hp7N90)iokYBcKInrJAgFAuEO1N;TPGJd)WX0 From fafb667b6b535c84fba4ec69ff26e8fa1389638a Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Sun, 9 Nov 2025 14:33:01 -0800 Subject: [PATCH 2/2] remove CAUSE-INTERRUPT call; doesn't add value --- lispusers/BACKGROUND-YIELD | 15 ++++++++------- lispusers/BACKGROUND-YIELD.LCOM | Bin 1215 -> 1239 bytes 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/lispusers/BACKGROUND-YIELD b/lispusers/BACKGROUND-YIELD index 00d4ded4b..aa634972f 100644 --- a/lispusers/BACKGROUND-YIELD +++ b/lispusers/BACKGROUND-YIELD @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Jul-2023 09:49:24" {DSK}larry>il>medley>lispusers>BACKGROUND-YIELD.;2 1770 +(FILECREATED " 9-Nov-2025 11:52:07" {DSK}larry>il>MEDLEY>LISPUSERS>BACKGROUND-YIELD.;2 1882 :EDIT-BY "lmm" :CHANGES-TO (FNS BACKGROUND-YIELD) - :PREVIOUS-DATE "14-Nov-2021 22:05:58" {DSK}larry>il>medley>lispusers>BACKGROUND-YIELD.;1 + :PREVIOUS-DATE "28-Jul-2023 09:49:24" {DSK}larry>il>MEDLEY>LISPUSERS>BACKGROUND-YIELD.;1 ) @@ -26,13 +26,14 @@ (DEFINEQ (BACKGROUND-YIELD - [LAMBDA NIL (* ; "Edited 28-Jul-2023 09:11 by lmm") + [LAMBDA NIL (* ; "Edited 9-Nov-2025 11:50 by lmm") + (* ; "Edited 28-Jul-2023 09:11 by lmm") (* ; "Edited 20-Sep-2021 11:37 by larry") (LET ((\BACKGROUND T)) - (DECLARE (SPECVARS \BACKGROUND)) + (DECLARE (SPECVARS \BACKGROUND) + (GLOBALVARS BACKGROUND-YIELD)) (IF (FIXP BACKGROUND-YIELD) - THEN (SUBRCALL YIELD BACKGROUND-YIELD) - (SUBRCALL CAUSE-INTERRUPT]) + THEN (SUBRCALL YIELD BACKGROUND-YIELD]) (INIT-YIELD [LAMBDA (ONP) (* ; "Edited 19-Sep-2021 13:32 by larry") @@ -51,5 +52,5 @@ (RPAQQ BACKGROUND-YIELD 833333) (DECLARE%: DONTCOPY - (FILEMAP (NIL (806 1655 (BACKGROUND-YIELD 816 . 1271) (INIT-YIELD 1273 . 1653))))) + (FILEMAP (NIL (808 1767 (BACKGROUND-YIELD 818 . 1383) (INIT-YIELD 1385 . 1765))))) STOP diff --git a/lispusers/BACKGROUND-YIELD.LCOM b/lispusers/BACKGROUND-YIELD.LCOM index 3e46012bd7930d3cffd5490382a1dd3abd3e84e5..c44c58fca41aea5dc4fafa0b867de795b1733bec 100644 GIT binary patch delta 439 zcmdnbd7X1YxQK$Ku3vtcu91O}se+-Qm8p@Hf%(L2$@R6q1Tk zlk;;6GILT>6u6Qz67$kii&d=@(2Y>Y%u`Tu3{Hd{!%csurQiDfzidr$U@hvGzSz| z#tH_ORwkBKMnLaz5oPpbekN-*O$7#VMg|6kOhHD51R%{|tgwX(%&5J@D8S(7>BFUA UXg+x%i?9$z@MvysV6tZd0RAL&e*gdg delta 429 zcmcc4xu0`FxQLO3u2*S}u91O}v4Vl6m5HU5k;%kt$@+}^+*G@q#G;}~yUZNB+|-nu z)JnUY%;JL5;?$yIJ10kHZ}%YoP(K&lNKaQE7d>kuO$8+*BNW37O|1+Jl@yYSQj_y@ z3o>(3QxuXj67$kii&d?-6wr-O$jnnvatrnGQ2-iK4|kNFo}Q9IN@596GdA;0l{C3D z+&q0;or7E*LtI^eim>=dNuk;$*t^z-XkYQcy`^AiZf-Dn5~GW?p^2_vei