This function queries the system to determine the number of times that a function was called while profiling was active (using the profile function).
Gamma> profile(t);
t
for(i=0;i<10;i++)
{
princ("i:",i,"\n");
}
>> i:0
>> i:1
>> i:2
>> i:3
>> i:4
>> i:5
>> i:6
>> i:7
>> i:8
>> i:9
Gamma> i;
9
Gamma> profile(nil);
t
Gamma> function_calls(princ);
10