0.9.2.38: thread cleanup, paranoid

[sbcl.git] / src / pcl / low.lisp

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index d7ee7a9..76aa2b8 100644 (file)
--- 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*)