From: Dmitry Kalyanov Date: Sat, 12 Sep 2009 12:19:44 +0000 (+0400) Subject: Slot setters for gobject-class metaclass classes return the new value X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a1ceae020b5aa93125e72100bff5fbd637b80519;p=cl-gtk2.git Slot setters for gobject-class metaclass classes return the new value --- diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp index deac5b9..79ab9d0 100644 --- a/glib/gobject.meta.lisp +++ b/glib/gobject.meta.lisp @@ -231,7 +231,8 @@ (g-object-call-set-property (pointer object) (gobject-property-effective-slot-definition-g-property-name slot) new-value - (gobject-effective-slot-definition-g-property-type slot))) + (gobject-effective-slot-definition-g-property-type slot)) + new-value) (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)))) @@ -241,7 +242,8 @@ (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)) + (funcall (gobject-fn-effective-slot-definition-g-setter-fn slot) object new-value) + new-value) (defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-effective-slot-definition)) t)