[gtk-cffi-cvs] CVS gtk-cffi/cffi

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/cffi
In directory tiger.common-lisp.net:/tmp/cvs-serv23132/cffi

Modified Files:
	struct.lisp 
Log Message:
Added GdkKeymap


--- /project/gtk-cffi/cvsroot/gtk-cffi/cffi/struct.lisp	2011/09/10 16:26:09	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/cffi/struct.lisp	2011/09/11 15:48:20	1.4
@@ -101,7 +101,7 @@
   (let ((res (or object (make-instance class :pointer nil))))
     (setf (slot-value res 'value) nil)
     (mapc (lambda (slot)
-            (push (foreign-slot-value struct class slot)
+            (push (cons slot (foreign-slot-value struct class slot))
                   (slot-value res 'value)))
           (foreign-slot-names class))
     res))