fix for clozure: do not use (non-standard) make-instance method for STRUCTURE-CLASSes

[cl-gtk2.git] / glib / gobject.type-designator.lisp

diff --git a/glib/gobject.type-designator.lisp b/glib/gobject.type-designator.lisp
index a4b2bdf..5468403 100644 (file)
--- 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)))