1on gcref; 2 3 4 5symbolic procedure p1(x,y); 6 p2(x) + y; 7 8symbolic procedure p2(x); 9 << 10 if x>0 then p2(x-1); 11 p1(x-2,1); 12 p3(x) 13 >>; 14 15off gcref; 16p2 p2 17p1 p1 18# 19p2 p1 20p2 p2 21p1 p2 22 23 24end; 25 26Tested on x86_64-pc-windows CSL 27Time (counter 1): 0 ms 28 29End of Lisp run after 0.00+0.06 seconds 30real 0.19 31user 0.01 32sys 0.06 33