X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.gvalue-parser.lisp;h=dbbf824dcb321b965a02fc099d8225c82a9bdece;hb=ddaa0292b675c0336e20dfcca1ce3c7dcfc8ccee;hp=f06ea41ccded954a97e7018f36dfc891dbb53eac;hpb=16863d91ec98d17a3ec36c37f73e7859bf97841b;p=cl-gtk2.git

diff --git a/glib/gobject.gvalue-parser.lisp b/glib/gobject.gvalue-parser.lisp
index f06ea41..dbbf824 100644
--- a/glib/gobject.gvalue-parser.lisp
+++ b/glib/gobject.gvalue-parser.lisp
@@ -1,7 +1,7 @@
 (in-package :gobject)
 
 (defun gvalue-type (gvalue)
-  (foreign-slot-value gvalue 'g-value 'type))
+  (foreign-slot-value gvalue 'g-value :type))
 
 (defmacro ev-case (keyform &body clauses)
   "Macro that is an analogue of CASE except that it evaluates keyforms"