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