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)