[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-serv28209/g-lib

Modified Files:
	error.lisp 
Log Message:
Fixed examples. Changed cell properties for tree-column to be set as :attributes
Fixed double init in g-value.


--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/error.lisp	2012/08/19 16:22:29	1.6
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/error.lisp	2012/10/07 12:02:11	1.7
@@ -15,12 +15,10 @@
                          &key &allow-other-keys)
   (foreign-alloc :pointer :initial-element (null-pointer)))
 
-(defcfun "g_clear_error" :void (gerror object))
+(defcfun g-clear-error :void (gerror object))
 
 (defmethod free :before ((g-error g-error))
-  (let ((p (pointer g-error)))
-    (g-clear-error p)
-    (foreign-free p)))
+  (g-clear-error g-error))
 
 (defcstruct g-error
   "GError struct"