projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
56b8cce
)
Fix slot-boundp-using-class method for gobject-class
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sat, 18 Jul 2009 16:11:44 +0000
(20:11 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sat, 18 Jul 2009 16:11:44 +0000
(20:11 +0400)
glib/gobject.meta.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.meta.lisp
b/glib/gobject.meta.lisp
index
91ae58b
..
e4fc5e3
100644
(file)
--- a/
glib/gobject.meta.lisp
+++ b/
glib/gobject.meta.lisp
@@
-206,7
+206,7
@@
(defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-property-effective-slot-definition))
(handler-case
(defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-property-effective-slot-definition))
(handler-case
- (progn (g-object-property-type object (gobject-property-effective-slot-definition-g-property-name slot) :assert-readable t) t)
+ (progn (g-object-property-type (pointer object) (gobject-property-effective-slot-definition-g-property-name slot) :assert-readable t) t)
(property-unreadable-error () nil)))
(defmethod slot-value-using-class ((class gobject-class) object (slot gobject-property-effective-slot-definition))
(property-unreadable-error () nil)))
(defmethod slot-value-using-class ((class gobject-class) object (slot gobject-property-effective-slot-definition))