Set *debug-subclass* at mm-test

diff --git a/mm-test.lisp b/mm-test.lisp
index 9d44ef1..e76ae5d 100644 (file)
--- a/mm-test.lisp
+++ b/mm-test.lisp
@@ -61,7 +61,8 @@
 ")))
 
 (setf gobject::*debug-stream* *standard-output*
-      gobject::*debug-gc* t)
+      gobject::*debug-gc* t
+      gobject::*debug-subclass* t)
 
 (defclass my-button (gtk:button) () (:metaclass gobject-class))