X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/9adccb27da69b60d058aa37867d55ea20ecf97ca..60e5d93717c275307c88ff03cca7492e8c775d72:/glib/gparam.lisp diff --git a/glib/gparam.lisp b/glib/gparam.lisp index 1d90291..ec24b96 100644 --- a/glib/gparam.lisp +++ b/glib/gparam.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gparam.lisp,v 1.9 2004-11-06 21:39:58 espen Exp $ +;; $Id: gparam.lisp,v 1.11 2004-11-19 13:02:51 espen Exp $ (in-package "GLIB") @@ -66,6 +66,15 @@ value gvalue +gvalue-value-offset+) value) +(defmacro with-gvalue ((gvalue type &optional (value nil value-p)) &body body) + `(let ((,gvalue ,(if value-p + `(gvalue-new ',type ,value) + `(gvalue-new ',type ,value)))) + (unwind-protect + (progn + ,@body + ,(unless value-p `(gvalue-get ,gvalue))) + (gvalue-free ,gvalue)))) (deftype param-flag-type () @@ -125,12 +134,12 @@ :allocation :virtual :getter "g_param_spec_get_nick" :reader param-nickname - :type string) + :type (copy-of string)) (documentation :allocation :virtual :getter "g_param_spec_get_blurb" :reader param-documentation - :type string)) + :type (copy-of string))) (:metaclass param-spec-class))