X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Flow.lisp;h=76aa2b88c2e4897ddcc89780021df7c724e56af4;hb=3a5eefac8a65dfd36729031f0a9b9dd8c022b7f2;hp=d7ee7a974a6ab203ceb61f9004af8b9ecc4acd99;hpb=94ea2b2082deaa0331dfb66fa6af6ca12dd8dc83;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index d7ee7a9..76aa2b8 100644
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -352,7 +352,7 @@
 
 #+sb-thread
 (progn
-  (defvar *pcl-lock* (sb-thread:make-waitqueue))
+  (defvar *pcl-lock* (sb-thread::make-spinlock))
 
   (defmacro with-pcl-lock (&body body)
     `(sb-thread::with-spinlock (*pcl-lock*)