From 7c9bae1be633be46bc454bd34f55263b24aafca8 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 16 Sep 2012 16:07:01 +0300 Subject: [PATCH] fix unthreaded build --- src/code/thread.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 1.7.10.4