From 9983043fdd357f4d730ff3edfbad3a10b6862f5b Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 27 Aug 1993 14:43:29 +0000 Subject: [PATCH] Chagned ``suspends'' to ``interrupts'' in gengc without-interrupts. --- code/signal.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/code/signal.lisp b/code/signal.lisp index 6bdf92e58..c0636a8bb 100644 --- a/code/signal.lisp +++ b/code/signal.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.19 1993/08/02 19:22:09 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.20 1993/08/27 14:43:29 wlott Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.19 1993/08/02 19:22:09 hallgren Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.20 1993/08/27 14:43:29 wlott Exp $ ;;; ;;; Code for handling UNIX signals. ;;; @@ -358,12 +358,12 @@ (progn (locally (declare (optimize (speed 3) (safety 0))) - (incf (kernel:mutator-suspends-disabled-count))) + (incf (kernel:mutator-interupts-disabled-count))) ,@body) (locally (declare (optimize (speed 3) (safety 0))) - (when (and (zerop (decf (kernel:mutator-suspends-disabled-count))) - (not (zerop (kernel:mutator-suspend-pending)))) + (when (and (zerop (decf (kernel:mutator-interrupts-disabled-count))) + (not (zerop (kernel:mutator-interrupts-pending)))) (do-pending-interrupt))))) -- GitLab