From 42b3da393de14e2cfde66f59fe1c777b0de8b280 Mon Sep 17 00:00:00 2001
From: Duane Rettig <duane@franz.com>
Date: Sat, 19 Feb 2011 11:50:29 -0800
Subject: [PATCH] Suppress warning on Mac

An unused-variable warning was showing up in Mac-specific code; I
don't know if it has always been this way, but the change should be
backward compatible.

Change-Id: I0225682e64e9eb9bb0c3187cd8ded41856a30afb
---
 tk/load-xm.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tk/load-xm.lisp b/tk/load-xm.lisp
index 5f800aec..0a8842eb 100644
--- a/tk/load-xm.lisp
+++ b/tk/load-xm.lisp
@@ -43,7 +43,7 @@
         (unless (dolist (pathname sys::*clim-library-search-path*)
                   (handler-case (progn (load (merge-pathnames sys::library-name pathname))
                                        (return t))
-                    (error (e) nil)))
+                    (error (e) (declare (ignore e)) nil)))
           (error "Can't find ~a in ~{~a~^, ~}~%" sys::library-name sys::*clim-library-search-path*))))))
 
 #+(version>= 5 0)
-- 
GitLab