alloctest1

irata:home-lisp mntmn$ ./a.out
plus: (+.<tag:3>)
globals: ((foo.123).((+.<tag:3>).nil))


evaluating t1: (+.(42.(23.nil)))
lookup expr: +
  in env : ((foo.123).((+.<tag:3>).nil))
found lambda for +:
  <tag:3>
apply: <tag:3>
free_tree: (+.(42.(23.nil)))
free_tree: +
free_tree: (42.(23.nil))
free_tree: 42
free_tree: (23.nil)
free_tree: 23
free_tree: nil
free_tree: null
free_tree: null
t1 result: 65

free_tree: 65
allocs:   4 c |   1 s |   3 i |   0 b
frees :   4 c |   1 s |   3 i |   0 b

evaluating t2: (+.(foo.(124.nil)))
lookup expr: +
  in env : ((foo.123).((+.<tag:3>).nil))
found lambda for +:
  <tag:3>
apply: <tag:3>
lookup expr: foo
  in env : ((foo.123).((+.<tag:3>).nil))
free_tree: (+.(foo.(124.nil)))
free_tree: +
free_tree: (foo.(124.nil))
free_tree: foo
free_tree: (124.nil)
free_tree: 124
free_tree: nil
free_tree: null
free_tree: null
t2 result: 247

free_tree: 247
allocs:   4 c |   2 s |   2 i |   0 b
frees :   4 c |   2 s |   2 i |   0 b