X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=gtk%2Fgtk.child-properties.lisp;h=ae825102b02bcacb662a608f91223e98582e55b7;hb=2b25e733e8df272e93d56ac026c94dea698121fe;hp=a43833ce59ba9ad9cb5f9d846b0ce5369f84e784;hpb=e9622209ae8a02f82c2813ea7d358d711e1ba2d0;p=cl-gtk2.git

diff --git a/gtk/gtk.child-properties.lisp b/gtk/gtk.child-properties.lisp
index a43833c..ae82510 100644
--- a/gtk/gtk.child-properties.lisp
+++ b/gtk/gtk.child-properties.lisp
@@ -17,7 +17,7 @@
     (g-value-unset gvalue)
     (g-value-init gvalue (ensure-g-type type))
     (gtk-container-child-get-property container child property-name gvalue)
-    (prog1 (parse-gvalue gvalue)
+    (prog1 (parse-g-value gvalue)
       (g-value-unset gvalue))))
 
 (defun container-call-set-property (container child property-name new-value type)