[mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp

[Timothy Moore]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp:/tmp/cvs-serv26111/Backends/CLX

Modified Files:
	port.lisp 
Log Message:
Clean up arg list of event-handler
Date: Tue Jan 17 10:57:47 2006
Author: tmoore

Index: mcclim/Backends/CLX/port.lisp
diff -u mcclim/Backends/CLX/port.lisp:1.117 mcclim/Backends/CLX/port.lisp:1.118
--- mcclim/Backends/CLX/port.lisp:1.117	Fri Jan 13 05:05:06 2006
+++ mcclim/Backends/CLX/port.lisp	Tue Jan 17 10:57:47 2006
@@ -644,13 +644,11 @@
 ;; pointer-event-buttons slot to pointer events. -- moore
 ;; 
 
-(defun event-handler (&rest event-slots
-                      &key display window event-key code state mode time
+(defun event-handler (&key display window event-key code state mode time
 		      type width height x y root-x root-y
 		      data override-redirect-p send-event-p hint-p
                       target property requestor selection
                       &allow-other-keys)
-  (declare (ignorable event-slots))
   (declare (special *clx-port*))
   (let ((sheet (and window
 		    (port-lookup-sheet *clx-port* window))))