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

[CVS User rklochkov]

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

Modified Files:
	error.lisp variant.lisp 
Log Message:
Fixed GDK for new CFFI version


--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/error.lisp	2012/05/07 09:02:04	1.5
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/error.lisp	2012/08/19 16:22:29	1.6
@@ -32,7 +32,7 @@
   (let ((p (mem-ref (pointer g-error) :pointer)))
     (unless (null-pointer-p p)
       (with-foreign-slots
-          ((domain errno message) p g-error)
+          ((domain errno message) p (:struct g-error))
         `(:domain ,domain :errno ,errno :message ,message)))))
 
 ;(defmethod print-object ((g-error g-error) stream)
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/variant.lisp	2012/07/31 17:57:11	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/variant.lisp	2012/08/19 16:22:29	1.4
@@ -37,7 +37,7 @@
 
 (defcfun g-variant-parse :pointer
   (type variant-type) (text :pointer) (limit :pointer) (end :pointer)
-  (g-error g-error))
+  (g-error (:pointer (:struct g-error))))
 
 (defcfun g-variant-print (:string :free-from-foreign t)
   (variant :pointer) (annotate :boolean))