Implementation

     struct Xpair { char Xtype;
                    PSEXP Xcar;
                    PSEXP Xcdr; } ;