gistfile1.txt

IR1 block 11 start c31
cleanup :BLOCK
start stack: dv20
 31>     bind SB-C::CLAMBDA (LABELS R :IN F57) (X) :KIND :ASSIGNMENT
end stack: dv20
successors c32
cleanup :BLOCK

IR1 block 10 start c32
cleanup :BLOCK
start stack: dv20
 32>     entry NIL
 33> 34: X
 35>     if v34 c36 c37
end stack: dv20
successors c36 c37
cleanup :BLOCK

IR1 block 9 start c37
cleanup :BLOCK
start stack:
 37> 38: SB-C::CLAMBDA (LABELS R :IN F57) (X)
 39> 40: '33
 41>     local combination v38 v40 {derived *}
end stack:
successors c31
cleanup :BLOCK

IR1 block 8 start c36
cleanup :BLOCK
start stack: dv20
 36> 42: X
end stack: dv20
successors c43
cleanup :BLOCK