X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftimer.lisp;h=29a121ca46c625b1397eeadcd14c7c1cc2cab40d;hb=3cbc1e7cfb59875d7ebec4af3c7c744cab0b76ae;hp=36235acaf648eade8ffcfcbc2e97adb3015a54e1;hpb=068cf4b55af3f8f8acf2c7c06869441612261cd4;p=sbcl.git

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index 36235ac..29a121c 100644
--- 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))