####################################
MetaClass.print()
	"<MetaClass ".simple_print();
	self.name.print();
	">".simple_print()

!
MetaClass.new(name,a_super,slots)
	|result vector|
	result = self.new_class_instance(self);
	result.init_slots(a_super,slots,name);
	^result

!
MetaClass.init_with(a_super_class,a_name)
	super_class = a_super_class;
	name        = "Class"+a_name;
	self.sys_register_class();
	name.as_symbol().set_global_value(self)
!
MetaClass.number_all_slots
	^6

!
MetaClass.intern_move(newsuper)
	|myclass|
	super_class = newsuper;
    ^self

