arch-assem.S: Update fun-end breakpoint magic for pickier make-lisp-obj.

[sbcl.git] / src / code / thread.lisp

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index 71dc92b..6e42788 100644 (file)
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -73,7 +73,7 @@ stale value, use MUTEX-OWNER instead."
 (define-deprecated-function :early "1.0.53.11" make-spinlock make-mutex (&key name)
   (make-mutex :name name))
 
-(define-deprecated-function :early "1.0.5.x" spinlock-name mutex-name (lock)
+(define-deprecated-function :early "1.0.53.11" spinlock-name mutex-name (lock)
   (mutex-name lock))
 
 (define-deprecated-function :early "1.0.53.11" (setf spinlock-name) (setf mutex-name) (name lock)
@@ -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))))