X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.type-designator.lisp;h=546840301c582807e0c5662cbf630d4c9ba93a3e;hb=8db173e3df82074b8ca96d00304c4e63b499f598;hp=a4b2bdf3e40084855990ccf98b30826d9a4c84c3;hpb=db0d829452f27bbef68da2afd755b7accc5be5be;p=cl-gtk2.git

diff --git a/glib/gobject.type-designator.lisp b/glib/gobject.type-designator.lisp
index a4b2bdf..5468403 100644
--- a/glib/gobject.type-designator.lisp
+++ b/glib/gobject.type-designator.lisp
@@ -35,7 +35,7 @@ Numeric identifier of GType may be different between different program runs. But
 
 (defun g-type-string (g-type-designator)
   (etypecase g-type-designator
-    (string g-type-designator)
+    (string (g-type-name g-type-designator))
     (integer (g-type-name g-type-designator))
     (null nil)))
 
@@ -65,4 +65,12 @@ Example:
 }
 @arg[name]{a string - name of GType}
 @return{an integer}"
-  (name :string))
\ No newline at end of file
+  (name :string))
+
+(defun g-type= (type-1 type-2)
+  (= (g-type-numeric type-1)
+     (g-type-numeric type-2)))
+
+(defun g-type/= (type-1 type-2)
+  (/= (g-type-numeric type-1)
+      (g-type-numeric type-2)))