5 (defun glib-stop-thread ()
6 (setf *threads-initialized-p* nil))
7 (pushnew 'glib-stop-thread sb-ext:*save-hooks*))
9 (defun map-inherited-classes (class fn)
10 (when (symbolp class) (setf class (find-class class)))
13 (iter (for subclass in (closer-mop:class-direct-subclasses class))
14 (map-inherited-classes subclass fn))))
16 (pushnew 'run-initializers sb-ext:*init-hooks*)