(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "28-Jul-2023 09:49:24" ("compiled on " {DSK}larry>il>medley>lispusers>BACKGROUND-YIELD.;2) "22-Jul-2023 09:15:01" brecompiled changes%: BACKGROUND-YIELD in "FULL 22-Jul-2023 ..." dated "22-Jul-2023 09:15:05") (FILECREATED "28-Jul-2023 09:49:24" {DSK}larry>il>medley>lispusers>BACKGROUND-YIELD.;2 1770 :EDIT-BY "lmm" :CHANGES-TO (FNS BACKGROUND-YIELD) :PREVIOUS-DATE "14-Nov-2021 22:05:58" {DSK}larry>il>medley>lispusers>BACKGROUND-YIELD.;1) BACKGROUND-YIELD :D8 (P 0 \BACKGROUND F 1 BACKGROUND-YIELD) iQ3 ´ Q}Ò}’NIL NIL () INIT-YIELD :D8 (I 0 ONP) >g` @´'g ´`o (54 \APPEND2 37 CCODEP 32 GETD 14 REMOVE) (59 BACKGROUNDFNS 44 BACKGROUNDFNS 27 BACKGROUND-YIELD 19 BACKGROUNDFNS 9 BACKGROUNDFNS 4 BACKGROUND-YIELD) ( 49 (BACKGROUND-YIELD)) (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))) (INIT-YIELD T) (RPAQQ BACKGROUND-YIELD 833333) NIL