Index: tests/object-system.xotcl =================================================================== diff -u -r200940690a99e5cd234e83fe6acc234477bf879c -r7cb7c751d63fe0eece5756910e3f0b18e61a4d16 --- tests/object-system.xotcl (.../object-system.xotcl) (revision 200940690a99e5cd234e83fe6acc234477bf879c) +++ tests/object-system.xotcl (.../object-system.xotcl) (revision 7cb7c751d63fe0eece5756910e3f0b18e61a4d16) @@ -43,7 +43,7 @@ ? {C0 ismetaclass} 0 ? {C0 info superclass} ::xotcl::Object ? {C0 info class} ::xotcl::Class -? {lsort [Class info vars]} "__default_metaclass __default_superclass" +#? {lsort [Class info vars]} "__default_metaclass __default_superclass" Class M -superclass ::xotcl::Class ? {Object isobject M} 1 @@ -68,6 +68,7 @@ # destroy meta-class M, reclass meta-class instances to the base meta-class M destroy ? {Object isobject C} 1 +puts stderr XXX ? {C isclass} 1 ? {C ismetaclass} 0 ? {C info superclass} ::xotcl::Object