(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)


(FILECREATED "14-Nov-2021 22:05:58" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;2
 1597   

      changes to%:  (VARS BACKGROUND-YIELD)

      previous date%: "20-Sep-2021 11:37:28" {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
 833333)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (833 1482 (BACKGROUND-YIELD 843 . 1098) (INIT-YIELD 1100 . 1480)))))
STOP