From 4f3bef02f9a6a6cda4ffca0d8c800dd9ec0806d2 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 29 Dec 1997 19:02:54 +0000
Subject: [PATCH] The idle loop no longer needs to call process-yield at this
 will be handled by sub-serve-event.

---
 code/multi-proc.lisp | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index dc14ffb72..16956c57e 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -3,7 +3,7 @@
 ;;; This code was written by Douglas T. Crosher and has been placed in
 ;;; the Public domain, and is provided 'as is'.
 ;;;
-;;; $Id: multi-proc.lisp,v 1.9 1997/12/29 06:19:00 dtc Exp $
+;;; $Id: multi-proc.lisp,v 1.10 1997/12/29 19:02:54 dtc Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -897,17 +897,12 @@
       (return nil))))
 
 ;;; A useful idle process loop, waiting on events using the select
-;;; based event server, and yielding periodically.
-;;;
-;;; Timeout for the idle loop, something acceptable by
-;;; sever-all-events.
-(defvar *idle-loop-timeout* 1)
+;;; based event server, which is assumed to be setup to call
+;;; process-yielding periodically.
 ;;;
 (defun idle-process-loop ()
   (loop
-   (sys:serve-all-events *idle-loop-timeout*)
-   (process-yield)))
-
+   (sys:serve-all-events)))
 
 ;;; Process-Yield
 ;;;
-- 
GitLab