Index: generic/predefined.xotcl =================================================================== diff -u -r464811a4aaa475de10e834b0a009521446163fc0 -ra38906707b8e508b97f01c9b68071c927c2a5d0f --- generic/predefined.xotcl (.../predefined.xotcl) (revision 464811a4aaa475de10e834b0a009521446163fc0) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision a38906707b8e508b97f01c9b68071c927c2a5d0f) @@ -846,18 +846,7 @@ ################################################################## # create user-level converter/checker based on ::xotcl::ls ################################################################## - # ::xotcl::is supports predicates for objects - # - # ::xotcl::is object - # ::xotcl::is type - # ::xotcl::is class - # ::xotcl::is baseclass - # ::xotcl::is metaclass - # ::xotcl::is hasmixin - # - # Map these to type checkers. "object" and "class" - # are already predefined, define the rest. - + ::xotcl::Slot method type=hasmixin {name value arg} { if {![::xotcl::is $value hasmixin $arg]} { error "Value '$value' of $name has not mixin $arg"