projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
(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)))
(integer (g-type-name g-type-designator))
(null nil)))
@@
-65,4
+65,12
@@
Example:
}
@arg[name]{a string - name of GType}
@return{an integer}"
}
@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)))