3 (defun finalize-subclasses (class)
4 ;(format t "Finalizing ~A~%" class)
5 (c2mop:ensure-finalized class)
6 (iter (for subclass in (c2mop:class-direct-subclasses class))
7 (finalize-subclasses subclass)))
9 (defun finalize-gtk-classes ()
10 (finalize-subclasses (find-class 'gobject:g-object)))
12 (finalize-gtk-classes)