X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=33b76a383765f93eea2fbdf1875ede9d5b5fa624;hb=b56c1a4dc22aa0ac827343667584aa6090b15f02;hp=1b573bc072e70d94e233a000cb4514023cb67c41;hpb=54d68c83743a837b59bf2f335f6261de8b0b1337;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 1b573bc..33b76a3 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -2128,7 +2128,7 @@ bootstrapping.
       ((eq **boot-state** 'complete)
        ;; Check that we are under the lock.
        #+sb-thread
-       (aver (eq sb-thread:*current-thread* (sb-thread::spinlock-value (gf-lock gf))))
+       (aver (eq sb-thread:*current-thread* (sb-thread:mutex-owner (gf-lock gf))))
        (setf (safe-gf-dfun-state gf) new-state))
       (t
        (setf (clos-slots-ref (get-slots gf) +sgf-dfun-state-index+)