From ccc776608df6b81882056278486179a029321ee6 Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Mon, 20 Sep 2021 15:06:40 -0700
Subject: [PATCH] Add Lispusers BACKGROUND-YIELD to call new subr (#488)

* Add Lispusers BACKGROUND-YIELD to call new subr

* Make BACKGROUND-YIELD a variable
---
 lispusers/BACKGROUND-YIELD      |  50 ++++++++++++++++++++++++++++++++
 lispusers/BACKGROUND-YIELD.LCOM | Bin 0 -> 1201 bytes
 2 files changed, 50 insertions(+)
 create mode 100644 lispusers/BACKGROUND-YIELD
 create mode 100644 lispusers/BACKGROUND-YIELD.LCOM

diff --git a/lispusers/BACKGROUND-YIELD b/lispusers/BACKGROUND-YIELD
new file mode 100644
index 00000000..6e2c28a1
--- /dev/null
+++ b/lispusers/BACKGROUND-YIELD
@@ -0,0 +1,50 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "20-Sep-2021 11:37:28" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;3
 1644   
+
+      changes to%:  (FNS BACKGROUND-YIELD)
+                    (VARS BACKGROUND-YIELDCOMS)
+
+      previous date%: "19-Sep-2021 13:37:10" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;1)
+
+
+(PRETTYCOMPRINT BACKGROUND-YIELDCOMS)
+
+(RPAQQ BACKGROUND-YIELDCOMS
 (
+                                 (* ;; 
+
                               " Add a call to BACKGROUNDFNS to yield when not otherwise busy")

+
+                                 (FNS BACKGROUND-YIELD INIT-YIELD)
+                                 (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INIT-YIELD T)))
+                                 (VARS BACKGROUND-YIELD)))
+
+
+
+(* ;; " Add a call to BACKGROUNDFNS to yield when not otherwise busy")

+
+(DEFINEQ
+
+(BACKGROUND-YIELD

+  [LAMBDA NIL
                                          (* ; "Edited 20-Sep-2021 11:37 by larry")

+    (IF
 (FIXP BACKGROUND-YIELD)
+        THEN
 (SUBRCALL YIELD BACKGROUND-YIELD)
+              (SUBRCALL CAUSE-INTERRUPT])
+
+(INIT-YIELD

+  [LAMBDA (ONP)
                                        (* ; "Edited 19-Sep-2021 13:32 by larry")

+    (SETQ BACKGROUNDFNS (REMOVE 'BACKGROUND-YIELD BACKGROUNDFNS))
+    (if
 [AND ONP (CCODEP (GETD 'BACKGROUND-YIELD]
+        then
 
+
+              (* ;; " add to end")

+
+              (SETQ BACKGROUNDFNS (APPEND BACKGROUNDFNS '(BACKGROUND-YIELD
])
+)
+(DECLARE%: DONTEVAL@LOAD DOCOPY 
+
+(INIT-YIELD
 T)
+)
+
+(RPAQQ BACKGROUND-YIELD
 8333330)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (879 1528 (BACKGROUND-YIELD 889 . 1144) (INIT-YIELD 1146 . 1526)))))
+STOP
diff --git a/lispusers/BACKGROUND-YIELD.LCOM b/lispusers/BACKGROUND-YIELD.LCOM
new file mode 100644
index 0000000000000000000000000000000000000000..b7d9d78935dee239b9d4649060219caf7c4e29ca
GIT binary patch
literal 1201
zcmbVMQES^U5OyEyhta3)tsI6ixsVXqNt3!G)U}jg>e{N~76N-{+K9&B#vx8t!pNW4
zZ^<v&FWM>X<}~SG)Zjxpoj!ec-${h=jvw+$#}9bL4?7VY3fH@EyBrKZOn4mlJz>CM
z%w3ka=fRfy-0g9oHB%=Fz{9A7Gcc@Lr6(s9t7cK4)Ulh6)iQt>_xa-_&EydBF&Lo#
zV7-gw*HQi`+u2|`U9=zNFq4aRmKKwFA*V(A9JzGk=sIMTzRv?zJ+)0RXtRX3Y{zOi
z^w@yAsr-w7KN^f5WbxSneH#K&JiBup1h5HHtyT>f4ra*hHN5525x!;oUyAR_2<UOW
z4lk5-nB_>Dbiy8NQ#XO!xbd#vi!OU6Os4XCn$L@M8VF&~ld??IRw~fiJF8C3-8wp~
zg|b8K4Vu~qZBNsL4Xb^z{I$3IsU2vcAL!~QrtXJ+@~kJUL3{*>LScf|)--MJ0gZO6
zjIPWlWzJS#*6w{ZS)0|zTQ$y=DdP?_(x}5XR|p<53+yI%Uc|Tn+k!4n7|=Sz{4%=X
zC}`tkgS#p?%23u^IjrV}<ApNa-nBj71bN<rXF>f0ND2Pp#|07dB<Z7sBE}21bKF{6
zoy5Yux_WaF2swh&Q@l^^a0mmqA7mN!&_=9E1RaZ1W<z)y$uW%c8RWB(oIa(6gu8jM
zFtE4uw|Wjru`q;jFK}ay-Nhn&9d6v<EQnl&GcOW-AOc7k4~c31Y1y6j!6p55?7xzP
MmaRT~WK{e724wX#Hvj+t

literal 0
HcmV?d00001