X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=f1e50b9e6c276670cd866a798682eb11ee193877;hb=9c3a9502bc872f024c365412d991ef43fd866e4c;hp=e7e825d6b6239c09056c8f2400ad2a785fcd12fd;hpb=71bc8b09fc75083ea4bb2aee954abca1f1e1f214;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index e7e825d..f1e50b9 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -357,7 +357,7 @@
     :accessor gf-dfun-state)
    ;; Used to make DFUN-STATE & FIN-FUNCTION updates atomic.
    (%lock
-    :initform (sb-thread::make-spinlock :name "GF lock")
+    :initform (sb-thread:make-mutex :name "GF lock")
     :reader gf-lock)
    ;; Set to true by ADD-METHOD, REMOVE-METHOD; to false by
    ;; MAYBE-UPDATE-INFO-FOR-GF.