From 15d0a7745c92ddb1664910aac23e60c20f18ff97 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Fri, 17 Jul 2009 10:51:08 +0400 Subject: [PATCH] Fix :gobject-fn slot accessor by implementing slot-boundp-using-class --- glib/gobject.meta.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp index abeb081..22aab83 100644 --- a/glib/gobject.meta.lisp +++ b/glib/gobject.meta.lisp @@ -221,10 +221,12 @@ 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))) - (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)) -- 1.7.10.4