From f62706fb095392ab7fda4b4a9426b093c63a708f Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Wed, 5 Nov 2025 09:26:13 -0800
Subject: [PATCH] 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 a84822fe..23875a66 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}<internal>loadups>LOADUP-LISP.;22|
 7104   
+
(FILECREATED " 5-Nov-2025 09:04:36" |{DSK}<Users>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}<internal>loadups>LOADUP-LISP.;21|)
+      :PREVIOUS-DATE "16-Oct-2025 16:55:27" 
+|{DSK}<Users>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!G<DGkOb$1l+M!zBt29>A<iUHIN?Wikl8z{ik`yoyO^h`T{sFNu
z#?jr4#Xq34|HDZqN1G7i;>LXLIp00!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;m9DopYy8<LP-1^APZ%;E!^2If|m+{`r6L**4
zlaI_w9%(>bvs|_qs0hJi$MM4KGq;R2ut}A9f#(oAm2vVq7jeY|W$z2BqJdZ@mFlir
zYdBO6OlDCjdCU4a9&ibPSg|e7CazE1T~A8Z<`43G>Ts*H=}3T!>4k6FOiCW-!#N(1
KhQ^tNT=oYNvYd<n

delta 457
zcmZ{g!Artm7{-~H#x5aQ5O{dmr7f6kpPOqRT{ia_!%c0QiAQrIB%QJhg1+!iC>YVX
zQ<v!CKNp?ap}>Ql-{<)~&-;8=-YPGbx?C4KqlJhhq=H<>s)~`u0nd$Q)A@K3g)obO
z1Nzu^iRF;N)A=}FL`giHq@~>95+N!8%gO2*M8`<Ql9HLOljt8qfkqGW<PKACI)>Hj
zijM7ffsSJeT(jpmu+FGftC>9<E~1cb#LEgNuzXXs9n$cK5fBTw&7W*(ev~x_O_mhE
z#Igg?8~{zGw^>^H!JG<bqH%xoHwwa%juo8)b_<I^>2a>le65zbcP2f_@3XQ7mS>x$
zLsnk?lPMt$T%$$&f!{V<0t!m^3KK?3Y2h{Hi+&kubp(9Fb$r+G0>iuT1vY&yUL62$
ddM&Hp7N90)iokYBcKInrJAgFAuEO1N;TPGJd)WX0