X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.closure.lisp;h=054562a89e3085151a792f4c149f6d26be89e352;hb=8db173e3df82074b8ca96d00304c4e63b499f598;hp=502d9e4f65caf7a0f1ce9e66718bbf77a1b366e3;hpb=09d2c36049dbbcaaa2e9cd347d7ef7e03c6bb6b6;p=cl-gtk2.git

diff --git a/glib/gobject.closure.lisp b/glib/gobject.closure.lisp
index 502d9e4..054562a 100644
--- a/glib/gobject.closure.lisp
+++ b/glib/gobject.closure.lisp
@@ -28,7 +28,7 @@
   (let* ((args (parse-closure-arguments count-of-args args))
          (function-id (foreign-slot-value closure 'lisp-closure :function-id))
          (return-type (and (not (null-pointer-p return-value))
-                           (gvalue-type return-value)))
+                           (g-value-type return-value)))
          (fn (get-stable-pointer-value function-id))
          (fn-result (call-with-restarts fn args)))
     (when return-type
@@ -37,7 +37,7 @@
 (defun parse-closure-arguments (count-of-args args)
   (loop
      for i from 0 below count-of-args
-     collect (parse-gvalue (mem-aref args 'g-value i))))
+     collect (parse-g-value (mem-aref args 'g-value i))))
 
 (defun create-g-closure (fn)
   (let ((function-id (allocate-stable-pointer fn))