X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftimer.lisp;h=7862876e5005707632f06e48a3b63400a6256be6;hb=c548f73e8dd676d6ec4576eba6ab661a5061bdfe;hp=53523859208eafbb2425e281a2f726072ddf4f99;hpb=a3f37bab2cbaf80db811d480d5b2b95850def3b9;p=sbcl.git

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index 5352385..7862876 100644
--- a/src/code/timer.lisp
+++ b/src/code/timer.lisp
@@ -203,9 +203,7 @@ from now. For timers with a repeat interval it returns true."
 
 (defmacro with-scheduler-lock ((&optional) &body body)
   ;; don't let the SIGALRM handler mess things up
-  `(sb!sys:without-interrupts
-    (sb!thread:with-mutex (*scheduler-lock*)
-      ,@body)))
+  `(sb!thread::call-with-system-mutex (lambda () ,@body) *scheduler-lock*))
 
 (defun under-scheduler-lock-p ()
   #!-sb-thread