1.0.10.30: Fix build without sb-thread

[sbcl.git] / src / code / target-thread.lisp

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index ec94be8..accc71e 100644 (file)
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -250,7 +250,8 @@ ALLOW-WITH-INTERRUPTS allows the call to be interrupted from sleep.
 
 It is recommended that you use WITH-MUTEX instead of calling GET-MUTEX
 directly."
-  (declare (type mutex mutex) (optimize (speed 3)))
+  (declare (type mutex mutex) (optimize (speed 3))
+           #!-sb-thread (ignore waitp))
   (unless new-owner
     (setq new-owner *current-thread*))
   (when (eql new-owner (mutex-%owner mutex))