X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fthread.lisp;h=6e427886bb35acf9e265b3acf24e4122c2c0ab6d;hb=cdd026dddac3eaddbaa0221503e49e2673d54545;hp=c471fc9e7050b51f14ad832402950b176071a904;hpb=6a503c1fa1831c2045f278b8d0523296e09c9cee;p=sbcl.git

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index c471fc9..6e42788 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -207,7 +207,7 @@ provided the default value is used for the mutex."
       (funcall function)))
 
   (defun call-with-recursive-system-lock/without-gcing (function mutex)
-    (declare (function function) (ignore lock))
+    (declare (function function) (ignore mutex))
     (without-gcing
       (funcall function))))