Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv24361/Backends/CLX Modified Files: port.lisp Log Message: Added more IGNORE declarations to avoid compiler warnings. --- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2007/02/07 12:44:18 1.127 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2007/07/22 06:30:41 1.128 @@ -137,6 +137,7 @@ (let ((entry (fontset-point point fontset))) (if entry (destructuring-bind ((range-start . range-stop) font translator) entry + (declare (ignore range-start range-stop)) (xlib:char-width font (funcall translator point))) 0))) @@ -350,6 +351,10 @@ :structure-notify :pointer-motion :button-motion))) + ;; I am declaring BORDER-WIDTH ignore to get a cleaner build, but I + ;; don't really understand why the use of it is commented out in favor + ;; of the constant 0. -- RS 2007-07-22 + (declare (ignore border-width)) (when (null (port-lookup-mirror port sheet)) (update-mirror-geometry sheet) (let* ((desired-color (typecase sheet @@ -665,6 +670,7 @@ target property requestor selection request first-keycode count &allow-other-keys) + (declare (ignore display request first-keycode count)) (declare (special *clx-port*)) (let ((sheet (and window (port-lookup-sheet *clx-port* window)))) (when sheet