projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix warnings for bare struct references in glib/.
[cl-gtk2.git]
/
glib
/
glib.lisp
diff --git
a/glib/glib.lisp
b/glib/glib.lisp
index
bf6e9d6
..
9794185
100644
(file)
--- a/
glib/glib.lisp
+++ b/
glib/glib.lisp
@@
-201,8
+201,11
@@
In this example, for every @code{class}, @code{(initialize-gobject-class-g-type
;; Core Application Support - The Main Event Loop
(defcstruct g-main-loop)
;; Core Application Support - The Main Event Loop
(defcstruct g-main-loop)
+(defctype g-main-loop (:struct g-main-loop))
(defcstruct g-main-context)
(defcstruct g-main-context)
+(defctype g-main-context (:struct g-main-context))
(defcstruct g-source)
(defcstruct g-source)
+(defctype g-source (:struct g-source))
(defcstruct g-source-funcs
(prepare :pointer)
(check :pointer)
(defcstruct g-source-funcs
(prepare :pointer)
(check :pointer)
@@
-210,23
+213,29
@@
In this example, for every @code{class}, @code{(initialize-gobject-class-g-type
(finalize :pointer)
(closure-callback :pointer)
(closure-marshal :pointer))
(finalize :pointer)
(closure-callback :pointer)
(closure-marshal :pointer))
+(defctype g-source-funcs (:struct g-source-funcs))
(defcstruct g-source-callback-funcs
(ref :pointer)
(unref :pointer)
(get :pointer))
(defcstruct g-cond)
(defcstruct g-source-callback-funcs
(ref :pointer)
(unref :pointer)
(get :pointer))
(defcstruct g-cond)
+(defctype g-cond (:struct g-cond))
(defcstruct g-mutex)
(defcstruct g-mutex)
+(defctype g-mutex (:struct g-mutex))
(defcstruct g-poll-fd
(fd :int) ;; TODO: #if defined (G_OS_WIN32) && GLIB_SIZEOF_VOID_P == 8
(events :ushort)
(revent :ushort))
(defcstruct g-poll-fd
(fd :int) ;; TODO: #if defined (G_OS_WIN32) && GLIB_SIZEOF_VOID_P == 8
(events :ushort)
(revent :ushort))
+(defctype g-poll-fd (:struct g-poll-fd))
(defcstruct g-time-val
(seconds :long)
(microseconds :long))
(defcstruct g-time-val
(seconds :long)
(microseconds :long))
+(defctype g-time-val (:struct g-time-val))
(defcstruct g-thread)
(defcstruct g-thread)
+(defctype g-thread (:struct g-thread))
(defcfun (g-main-loop-new "g_main_loop_new" :library glib) (:pointer g-main-loop)
(context (:pointer g-main-context))
(defcfun (g-main-loop-new "g_main_loop_new" :library glib) (:pointer g-main-loop)
(context (:pointer g-main-context))