projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
glib: Use g_thread_get_initialized to check whether we have to call g_thread_init
[cl-gtk2.git]
/
glib
/
glib.lisp
diff --git
a/glib/glib.lisp
b/glib/glib.lisp
index
5999997
..
57c6e71
100644
(file)
--- a/
glib/glib.lisp
+++ b/
glib/glib.lisp
@@
-401,12
+401,11
@@
Adds a function to be called whenever there are no higher priority events pendin
(defcfun (g-thread-init "g_thread_init") :void
(vtable :pointer))
(defcfun (g-thread-init "g_thread_init") :void
(vtable :pointer))
-(defvar *threads-initialized-p* nil)
+(defcfun g-thread-get-initialized :boolean)
(at-init ()
(at-init ()
- (unless *threads-initialized-p*
- (g-thread-init (null-pointer))
- (setf *threads-initialized-p* t)))
+ (unless (g-thread-get-initialized)
+ (g-thread-init (null-pointer))))
(defcenum g-thread-priority
:g-thread-priority-low
(defcenum g-thread-priority
:g-thread-priority-low