Index: generic/gentclAPI.decls =================================================================== diff -u -rd58e86e7557ee729a2a687854c4107d4b212cf35 -rf9e18344d59553044453d08e464acce46664ffcf --- generic/gentclAPI.decls (.../gentclAPI.decls) (revision d58e86e7557ee729a2a687854c4107d4b212cf35) +++ generic/gentclAPI.decls (.../gentclAPI.decls) (revision f9e18344d59553044453d08e464acce46664ffcf) @@ -54,7 +54,7 @@ xotclCmd is XOTclIsCmd { {-argName "object" -required 1 -type tclobj} {-argName "objectkind" -type "type|object|class|metaclass|mixin"} - {-argName "value" -required 0 -type class} + {-argName "value" -required 0 -type tclobj} } xotclCmd methodproperty XOTclMethodPropertyCmd { {-argName "object" -required 1 -type object} @@ -134,21 +134,6 @@ objectMethod invar XOTclOInvariantsMethod { {-argName "invariantlist" -required 1 -type tclobj} } -objectMethod isclass XOTclOIsClassMethod { - {-argName "class" -type tclobj} -} -objectMethod ismetaclass XOTclOIsMetaClassMethod { - {-argName "metaclass" -type tclobj} -} -objectMethod ismixin XOTclOIsMixinMethod { - {-argName "class" -required 1 -type tclobj} -} -objectMethod isobject XOTclOIsObjectMethod { - {-argName "object" -required 1 -type tclobj} -} -objectMethod istype XOTclOIsTypeMethod { - {-argName "class" -required 1 -type tclobj} -} objectMethod mixinguard XOTclOMixinGuardMethod { {-argName "mixin" -required 1} {-argName "guard" -required 1 -type tclobj}