X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fsbcl.lisp;h=c5a670be8c53fbd45c9a35bd8b4e74611e48dbb0;hb=74f040f15d0d9ad344b2a3ac910728b5fcf6e663;hp=b3c5f99f590266d8bef493e81a3af8d17288e961;hpb=1d46f9f4cb80cecd03a79c89daedf7a81d5dd608;p=cl-gtk2.git

diff --git a/glib/sbcl.lisp b/glib/sbcl.lisp
index b3c5f99..c5a670b 100644
--- a/glib/sbcl.lisp
+++ b/glib/sbcl.lisp
@@ -4,11 +4,7 @@
 (progn
   (defun glib-stop-thread ()
     (setf *threads-initialized-p* nil))
-  (defun glib-start-thread ()
-    (g-thread-init (null-pointer))
-    (setf *threads-initialized-p* t))
-  (pushnew 'glib-stop-thread sb-ext:*save-hooks*)
-  (pushnew 'glib-start-thread sb-ext:*init-hooks*))
+  (pushnew 'glib-stop-thread sb-ext:*save-hooks*))
 
 (defun map-inherited-classes (class fn)
   (when (symbolp class) (setf class (find-class class)))
@@ -17,10 +13,4 @@
     (iter (for subclass in (closer-mop:class-direct-subclasses class))
           (map-inherited-classes subclass fn))))
 
-(defun initialize-all-gobject-types ()
-  (map-inherited-classes 'gobject::g-object
-                         (lambda (class)
-                           (when (typep class 'gobject::gobject-class)
-                             (gobject::initialize-gobject-class-g-type class)))))
-
-(pushnew 'initialize-all-gobject-types sb-ext:*init-hooks*)
+(pushnew 'run-initializers sb-ext:*init-hooks*)