X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffinal.lisp;h=8b21939e3d7ad3f2e8ee5bd9454047b5fdc4b966;hb=9a82b26397de09d67372f34158090c2284fd1411;hp=c2ef070664eacc010ded303b484315c2b3219cd4;hpb=afb56ab2865fdb72102a9bb6b2c846b7b5a6ad7e;p=sbcl.git

diff --git a/src/code/final.lisp b/src/code/final.lisp
index c2ef070..8b21939 100644
--- a/src/code/final.lisp
+++ b/src/code/final.lisp
@@ -17,9 +17,8 @@
   (sb!thread:make-mutex :name "Finalizer store lock."))
 
 (defmacro with-finalizer-store-lock (&body body)
-  `(sb!thread::call-with-system-mutex (lambda () ,@body)
-                                      *finalizer-store-lock*
-                                      t))
+  `(sb!thread::with-system-mutex (*finalizer-store-lock* :without-gcing t)
+     ,@body))
 
 (defun finalize (object function &key dont-save)
   #!+sb-doc