Parse GParam with parse-g-param-spec in GValue

[cl-gtk2.git] / glib / gobject.gvalue-parser.lisp

diff --git a/glib/gobject.gvalue-parser.lisp b/glib/gobject.gvalue-parser.lisp
index f06ea41..fc4767d 100644 (file)
--- 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"
@@ -43,7 +43,7 @@
            (+g-type-string+ (g-value-get-string gvalue))
            (+g-type-pointer+ (g-value-get-pointer gvalue))
            (+g-type-boxed+ (parse-gvalue-boxed gvalue))
-                                        ;(+g-type-param+ (parse-gvalue-param gvalue))
+           (+g-type-param+ (parse-g-param-spec (g-value-get-param gvalue)))
            (+g-type-object+ (parse-gvalue-object gvalue))
            (+g-type-interface+ (parse-gvalue-object gvalue))
            (t (error "Unknown type: ~A (~A)" type (g-type-name type))))))))