glib: Fix typo in GSList foreign type

[cl-gtk2.git] / glib / glib.glist.lisp

diff --git a/glib/glib.glist.lisp b/glib/glib.glist.lisp
index 82ba209..22ea6bc 100644 (file)
--- a/glib/glib.glist.lisp
+++ b/glib/glib.glist.lisp
@@ -62,6 +62,6 @@
   (prog1
       (iter (for c initially pointer then (g-slist-next c))
             (until (null-pointer-p c))
-            (collect (convert-from-foreign (foreign-slot-value c 'g-slist 'data) (glist-type-type type))))
+            (collect (convert-from-foreign (foreign-slot-value c 'g-slist 'data) (gslist-type-type type))))
     (when (gslist-type-free-from-foreign type)
       (g-slist-free pointer))))
\ No newline at end of file