From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Fri, 17 Jul 2009 06:51:08 +0000 (+0400)
Subject: Fix :gobject-fn slot accessor by implementing slot-boundp-using-class
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=15d0a7745c92ddb1664910aac23e60c20f18ff97;p=cl-gtk2.git

Fix :gobject-fn slot accessor by implementing slot-boundp-using-class
---

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))