(data :pointer)
(next :pointer)
(prev :pointer))
+(defctype g-list (:struct g-list))
(defcfun g-list-first (:pointer g-list) (list (:pointer g-list)))
(defcstruct g-slist
(data :pointer)
(next :pointer))
+(defctype g-slist (:struct g-slist))
(defcfun g-slist-alloc (:pointer g-slist))