Get list of XOTcl objects

proc get_all_objects {{cls Class}} {
    set instances [list]
    foreach instance [$cls info instances] {
        if {[$instance isclass]} {
            lappend instances {*}[get_all_objects $instance]
        } else {
            lappend instances $instance
        }
    }
    return $instances
}