Typo.

[cl-gtk2.git] / glib / gobject.object.low.lisp

diff --git a/glib/gobject.object.low.lisp b/glib/gobject.object.low.lisp
index e6678c3..bac29ec 100644 (file)
--- a/glib/gobject.object.low.lisp
+++ b/glib/gobject.object.low.lisp
@@ -8,13 +8,13 @@
   (g-type-from-instance object-ptr))
 
 (defun g-type-from-class (g-class)
-  (g-type-name (foreign-slot-value g-class 'g-type-class :type)))
+  (foreign-slot-value g-class 'g-type-class :type))
 
 (defun g-type-from-instance (type-instance)
   (g-type-from-class (foreign-slot-value type-instance 'g-type-instance :class)))
 
 (defun g-type-from-interface (type-interface)
-  (g-type-name (foreign-slot-value type-interface 'g-type-interface :type)))
+  (foreign-slot-value type-interface 'g-type-interface :type))
 
 (define-condition property-access-error (error)
   ((property-name :initarg :property-name :reader property-access-error-property-name)
@@ -40,11 +40,11 @@
     (when (and assert-readable (not (g-class-property-definition-readable property)))
       (error 'property-unreadable-error
              :property-name property-name
-             :class-name (g-type-string object-type)))
+             :class-name (gtype-name (gtype object-type))))
     (when (and assert-writable (not (g-class-property-definition-writable property)))
       (error 'property-unwritable-error
              :property-name property-name
-             :class-name (g-type-string object-type)))
+             :class-name (gtype-name (gtype object-type))))
     (g-class-property-definition-type property)))
 
 (defun g-object-property-type (object-ptr property-name &key assert-readable assert-writable)
@@ -61,7 +61,7 @@
     (g-value-init value property-type)
     (g-object-get-property object-ptr property-name value)
     (unwind-protect
-         (parse-gvalue value)
+         (parse-g-value value)
       (g-value-unset value))))
 
 (defun g-object-call-set-property (object-ptr property-name new-value