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