From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 12 Jul 2009 09:55:06 +0000 (+0400)
Subject: Correct cstruct slots names
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5000a859638184ff956ee2f17cce4744b765a169;p=cl-gtk2.git

Correct cstruct slots names
---

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