From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 16 Sep 2012 13:07:01 +0000 (+0300)
Subject: fix unthreaded build
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7c9bae1be633be46bc454bd34f55263b24aafca8;p=sbcl.git

fix unthreaded build
---

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index f73c9bd..d796f60 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -228,7 +228,7 @@ held mutex, WITH-RECURSIVE-LOCK allows recursive lock attempts to succeed."
 #!-sb-thread
 (progn
   (defun call-with-mutex (function mutex value waitp timeout)
-    (declare (ignore mutex value waitp timeout)
+    (declare (ignore mutex waitp timeout)
              (function function))
     (unless (or (null value) (eq *current-thread* value))
       (error "~S called with non-nil :VALUE that isn't the current thread."
@@ -236,7 +236,8 @@ held mutex, WITH-RECURSIVE-LOCK allows recursive lock attempts to succeed."
     (funcall function))
 
   (defun call-with-recursive-lock (function mutex waitp timeout)
-    (declare (ignore mutex) (function function waitp timeout))
+    (declare (ignore mutex waitp timeout)
+             (function function))
     (funcall function))
 
   (defun call-with-recursive-system-lock (function lock)