parent $lock_class
object $contains_lock

var $root child_index 0
var $root fertile 0
var $root manager $contains_lock
var $root owners [$contains_lock]
var $root writable [$contains_lock]
var $root readable ['parameters, 'methods, 'code]
var $root trusted []
var $root owned [$contains_lock]
var $root inited 1
var $root dbref 'contains_lock

method test
    arg objlist, testee, [args];
    var x;
    
    for x in (objlist) {
        if (testee.contains(x))
            return 1;
    }
    return 0;
.