[lgtk-devel] patch : minor stuff for bindings.lisp

[Sean Champ]

Hello,

The following patch, for src/bindings.lisp : 
 - removes an extraneous &key argument in a defmacro form
 - takes a 'car' out of an anonymous lambda

l8z,

--
Sean



Index: src/bindings.lisp
===================================================================
RCS file: /project/lgtk/cvsroot/lgtk/src/bindings.lisp,v
retrieving revision 1.4
diff -p -u -r1.4 bindings.lisp
--- src/bindings.lisp	10 Nov 2003 20:44:47 -0000	1.4
+++ src/bindings.lisp	9 Aug 2004 14:38:20 -0000
@@ -93,13 +93,11 @@
 		      (t (setf defon t) x)))
 	    args)))
 
-(defmacro def-binding (name typestuff &key before &key after)
+(defmacro def-binding (name typestuff &key before after)
 
   (labels ((set-filters (rt args expr)
 	      (let* ((st1 (cons `(,rt)
-				(mapcar #'(lambda (x)
-					    (car x))
-					args)))
+				(mapcar #'car args)))
 		     (st2 (delete-if-not #'consp st1))
 		     (vars (mapcar #'(lambda (x)
 				       (gensym (format nil "~A"