From 6243c15e6c655e627b62121af3a3031dd985250d Mon Sep 17 00:00:00 2001 From: espen Date: Fri, 12 Nov 2004 15:01:42 +0000 Subject: [PATCH] Added with-gvalue macro --- glib/gparam.lisp | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/glib/gparam.lisp b/glib/gparam.lisp index 1d90291..4579a32 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.10 2004-11-12 15:01:42 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 () -- 2.11.0