glib/sbcl.lisp

   1 (in-package :glib)
   2
   3 #+thread-support
   4 (progn
   5   (defun glib-stop-thread ()
   6     (setf *threads-initialized-p* nil))
   7   (pushnew 'glib-stop-thread sb-ext:*save-hooks*))
   8
   9 (defun map-inherited-classes (class fn)
  10   (when (symbolp class) (setf class (find-class class)))
  11   (when class
  12     (funcall fn class)
  13     (iter (for subclass in (closer-mop:class-direct-subclasses class))
  14           (map-inherited-classes subclass fn))))
  15
  16 (pushnew 'run-initializers sb-ext:*init-hooks*)