1.0.24.39: mutex changes

[sbcl.git] / src / code / timer.lisp

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index 36235ac..29a121c 100644 (file)
--- a/src/code/timer.lisp
+++ b/src/code/timer.lisp
@@ -205,10 +205,7 @@ from now. For timers with a repeat interval it returns true."
      ,@body))
 
 (defun under-scheduler-lock-p ()
-  #!-sb-thread
-  t
-  #!+sb-thread
-  (eq sb!thread:*current-thread* (sb!thread:mutex-value *scheduler-lock*)))
+  (sb!thread:holding-mutex-p *scheduler-lock*))
 
 (defparameter *schedule* (make-priority-queue :key #'%timer-expire-time))