p1;p2
-->
fixups(p1);p2;fixups(p1^) ; fixups(p2^);p1;fixups(p2)
p1 = NamedP n1 [] []
p2 = NamedP n2 [n1] []
AddName n1 ; NamedP n2 [n1] [] ; DelName n1 ; DelName n2 ; NamedP n1 [] [] ; AddName n2
p1;p2
-->
fixups(p1);p2;fixups(p1^) ; fixups(p2^);p1;fixups(p2)
p1 = NamedP n1 [] []
p2 = NamedP n2 [n1] []
AddName n1 ; NamedP n2 [n1] [] ; DelName n1 ; DelName n2 ; NamedP n1 [] [] ; AddName n2