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