From 5000a859638184ff956ee2f17cce4744b765a169 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 12 Jul 2009 13:55:06 +0400 Subject: [PATCH] Correct cstruct slots names --- glib/gobject.foreign-gobject.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/glib/gobject.foreign-gobject.lisp b/glib/gobject.foreign-gobject.lisp index 215110f..50ba2ff 100644 --- a/glib/gobject.foreign-gobject.lisp +++ b/glib/gobject.foreign-gobject.lisp @@ -282,11 +282,8 @@ (loop for i from 0 below args-count for parameter = (mem-aref parameters 'g-parameter i) - do (foreign-free - (mem-ref (foreign-slot-pointer parameter 'g-parameter 'name) - :pointer)) - do (g-value-unset - (foreign-slot-pointer parameter 'g-parameter 'value))))))) + do (foreign-free (mem-ref (foreign-slot-pointer parameter 'g-parameter :name) :pointer)) + do (g-value-unset (foreign-slot-pointer parameter 'g-parameter :value))))))) (defun g-object-call-get-property (object property-name &optional property-type) (restart-case -- 1.7.10.4