0.9.5.8:

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

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