X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-thread.lisp;h=be8eeb4c4d95cc631585898e42a611b081ca8393;hb=7e24349c17298e2959e853ea411b5f65d9f7f332;hp=37d95c7f055ad0810c8c066c4c6a706c00004945;hpb=aca1c55b7d7a34e98e4354259411076da1a94938;p=sbcl.git

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index 37d95c7..be8eeb4 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -499,7 +499,7 @@ this semaphore, then N of them is woken up."
     (when *session*
       (%delete-thread-from-session thread *session*)))
   #!+sb-lutex
-  (when (thread-interruptions-lock thread)
+  (without-gcing
     (/show0 "FREEING MUTEX LUTEX")
     (with-lutex-address (lutex (mutex-lutex (thread-interruptions-lock thread)))
       (%lutex-destroy lutex))))