[mcclim-cvs] CVS mcclim

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv12394

Modified Files:
	pointer-tracking.lisp 
Log Message:
Declared some more arguments IGNORE or IGNORABLE to remove
some more compiler warnings.


--- /project/mcclim/cvsroot/mcclim/pointer-tracking.lisp	2006/12/21 10:36:40	1.18
+++ /project/mcclim/cvsroot/mcclim/pointer-tracking.lisp	2007/07/21 12:27:45	1.19
@@ -81,7 +81,7 @@
             &key pointer multiple-window transformp context-type
             (highlight nil highlight-p))
      &body body)
-  (declare (ignorable pointer transformp context-type highlight))
+  (declare (ignorable multiple-window pointer transformp context-type highlight))
   (setq sheet (stream-designator-symbol sheet '*standard-output*))
   (loop
      for (event-name handler-args . handler-body) in body
@@ -123,7 +123,7 @@
 (defmethod tracking-pointer-loop
     ((state tracking-pointer-state) frame sheet &rest args
      &key pointer multiple-window transformp context-type highlight)
-  (declare (ignore pointer context-type highlight frame))
+  (declare (ignore args pointer context-type highlight frame))
   (with-sheet-medium (medium sheet)
     (flet ((do-tracking ()
 	     (loop