projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f39b5c5
)
Fix :gobject-fn slot accessor by implementing slot-boundp-using-class
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 17 Jul 2009 06:51:08 +0000
(10:51 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 17 Jul 2009 06:51:08 +0000
(10:51 +0400)
glib/gobject.meta.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.meta.lisp
b/glib/gobject.meta.lisp
index
abeb081
..
22aab83
100644
(file)
--- a/
glib/gobject.meta.lisp
+++ b/
glib/gobject.meta.lisp
@@
-221,10
+221,12
@@
new-value
(gobject-effective-slot-definition-g-property-type slot)))
new-value
(gobject-effective-slot-definition-g-property-type slot)))
+(defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-fn-effective-slot-definition))
+ (not (null (gobject-fn-effective-slot-definition-g-getter-fn slot))))
+
(defmethod slot-value-using-class ((class gobject-class) object (slot gobject-fn-effective-slot-definition))
(let ((fn (gobject-fn-effective-slot-definition-g-getter-fn slot)))
(defmethod slot-value-using-class ((class gobject-class) object (slot gobject-fn-effective-slot-definition))
(let ((fn (gobject-fn-effective-slot-definition-g-getter-fn slot)))
- (when fn
- (funcall fn object))))
+ (funcall fn object)))
(defmethod (setf slot-value-using-class) (new-value (class gobject-class) object (slot gobject-fn-effective-slot-definition))
(funcall (gobject-fn-effective-slot-definition-g-setter-fn slot) object new-value))
(defmethod (setf slot-value-using-class) (new-value (class gobject-class) object (slot gobject-fn-effective-slot-definition))
(funcall (gobject-fn-effective-slot-definition-g-setter-fn slot) object new-value))