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

Modified Files:
	array.lisp list.lisp variant.lisp 
Log Message:
Fixed CFFI-OBJECTS:FREE-PTR generic usage (now specialized with EQL)


--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/array.lisp	2012/08/12 17:42:29	1.9
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/array.lisp	2012/08/24 19:27:54	1.10
@@ -17,7 +17,7 @@
 (defcfun g-free :void (var :pointer))
 (defcfun g-malloc :pointer (n-bytes :int))
 
-(defmethod free-ptr ((type g-lib-array) ptr)
+(defmethod free-ptr ((type (eql 'g-lib-array)) ptr)
   (g-free ptr))
 
 (define-foreign-type g-lib-string (freeable)
@@ -34,5 +34,5 @@
 (defmethod translate-from-foreign (value (type g-lib-string))
   (foreign-string-to-lisp value))
 
-(defmethod free-ptr ((type g-lib-string) ptr)
+(defmethod free-ptr ((type (eql 'g-lib-string)) ptr)
   (g-free ptr))
\ No newline at end of file
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/list.lisp	2012/08/12 17:42:29	1.8
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/list.lisp	2012/08/24 19:27:54	1.9
@@ -41,7 +41,7 @@
   (:simple-parser g-list)
   (:actual-type :pointer))
 
-(defmethod free-ptr ((type g-list) ptr)
+(defmethod free-ptr ((type (eql 'g-list)) ptr)
   (g-list-free ptr))
 
 (defmethod translate-from-foreign (ptr (g-list g-list))
@@ -80,7 +80,7 @@
 (defcfun g-slist-reverse :pointer (g-slist :pointer))
 
 
-(defmethod free-ptr ((type g-slist) ptr)
+(defmethod free-ptr ((type (eql 'g-slist)) ptr)
   (g-slist-free ptr))
 
 (defmethod translate-from-foreign (ptr (g-slist g-slist))
@@ -110,7 +110,7 @@
 
 (defcfun g-strfreev :void (ptr :pointer))
 
-(defmethod free-ptr ((type string-list) ptr)
+(defmethod free-ptr ((type (eql 'string-list)) ptr)
   (g-strfreev ptr))
 
 (defmethod translate-from-foreign (ptr (type string-list))
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/variant.lisp	2012/08/19 16:22:29	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/variant.lisp	2012/08/24 19:27:54	1.5
@@ -17,7 +17,7 @@
 (defcfun g-variant-type-free :void (ptr :pointer))
 (defcfun g-variant-type-get-string-length gsize (ptr :pointer))
 
-(defmethod free-ptr ((type variant-type) ptr)
+(defmethod free-ptr ((type (eql 'variant-type)) ptr)
   (g-variant-type-free ptr))
 
 (defmethod translate-from-foreign (ptr (type variant-type))
@@ -44,7 +44,7 @@
 
 (defcfun g-variant-unref :void (variant :pointer))
 
-(defmethod free-ptr ((type variant) ptr)
+(defmethod free-ptr ((type (eql 'variant)) ptr)
   (g-variant-unref ptr))
 
 (defmethod translate-from-foreign (ptr (type variant-type))