Index: generic/predefined.xotcl =================================================================== diff -u -r2252fd2633d5547530210a14fe47ff471b2cdbea -r465589c61a1671ae9712de8d6361d842bd5841c0 --- generic/predefined.xotcl (.../predefined.xotcl) (revision 2252fd2633d5547530210a14fe47ff471b2cdbea) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision 465589c61a1671ae9712de8d6361d842bd5841c0) @@ -167,9 +167,7 @@ if {![::xotcl::is $slotobject object]} {::xotcl::Object create $slotobject} eval next -childof $slotobject $args } - ::xotcl::MetaSlot create ::xotcl::Slot - #foreach o {::xotcl::MetaSlot ::xotcl::Slot} { # foreach r {object class metaclass} { # puts stderr "$o $r=[::xotcl::is $o $r]" @@ -284,7 +282,6 @@ {multivalued true} {elementtype ::xotcl::Class} } - ::xotcl::relation ::xotcl::InfoSlot superclass ::xotcl::Slot ::xotcl::InfoSlot instproc get {obj prop} {$obj info $prop} ::xotcl::InfoSlot instproc add {obj prop value {pos 0}} {