diff --git a/code/signal.lisp b/code/signal.lisp index 6bdf92e5815c747b98e02931b0bc2ed5ce8111f0..c0636a8bbb1f5a8561f6a56177c6bda49ae74171 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)))))