Reordered cases in translate-to-foreign for GObject pointers

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

diff --git a/glib/glib.lisp b/glib/glib.lisp
index 64415f4..b7a132c 100644 (file)
--- a/glib/glib.lisp
+++ b/glib/glib.lisp
@@ -14,7 +14,14 @@
            #:g-malloc
            #:g-strdup
            #:g-string
-           #:gslist))
+           #:gslist
+           #:g-quark
+           #:+g-priority-high+
+           #:+g-priority-default+
+           #:+g-priority-high-idle+
+           #:+g-priority-default-idle+
+           #:+g-priority-low+
+           #:g-idle-add-full))
 
 (in-package :glib)
 
@@ -341,7 +348,11 @@
 (defcfun (g-thread-init "g_thread_init") :void
   (vtable :pointer))
 
-(g-thread-init (null-pointer))
+(defvar *threads-initialized-p* nil)
+
+(unless *threads-initialized-p*
+  (g-thread-init (null-pointer))
+  (setf *threads-initialized-p* t))
 
 (defcenum g-thread-priority
   :g-thread-priority-low