From c52f3751b0e1a4ad7e55775fb83450b58c2c6859 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Thu, 16 Apr 2009 00:09:32 +0400 Subject: [PATCH] handle NILs in arg-types in gobject property setter --- glib/gobject.foreign-gobject.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/glib/gobject.foreign-gobject.lisp b/glib/gobject.foreign-gobject.lisp index 0ea990a..5cbe65c 100644 --- a/glib/gobject.foreign-gobject.lisp +++ b/glib/gobject.foreign-gobject.lisp @@ -251,7 +251,7 @@ for arg-name in args-names for arg-value in args-values for arg-type in args-types - for arg-g-type = (ensure-g-type arg-type) + for arg-g-type = (if arg-type (ensure-g-type arg-type) (g-object-type-property-type object-type arg-name)) for parameter = (mem-aref parameters 'g-parameter i) do (setf (foreign-slot-value parameter 'g-parameter 'name) arg-name) do (set-g-value (foreign-slot-value parameter 'g-parameter 'value) -- 1.7.10.4