public static Object get( int depth )
{
stack_trace runner = top_of_stack;
obj l = nil._nil;
int level= 0;
while (((depth < 0) || (level < depth)) && (runner != null))
{
if (bigloo.foreign.SYMBOLP( runner._name ))
{
l = new pair(new pair(runner._name, runner._location), l);
level++;
}
runner= runner.link;
}
return l;
}