/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 21, 1992 5:10:15 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: ListImpl, module: ListImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1364247912,3431180257] ListImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1;} W2;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
#define SOURCE(p, l) /* source p, l */
#define INEG(x)  ( (word) ( - ((int) (word) (x)) ) )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static void NoName_Q2676();
static void ListImpl_P0();
static word EqLists_P120();
static word Memb_P180();
static word Append_P240();
static word Reverse_P300();
static word Remove_P360();
static word Union_P420();
static word Intersection_P480();
static word ListDifference_P540();
static word LDiff_P600();
static word Nconc_P660();
static word Nconc1_P720();
static word DReverse_P780();
static word DRemove_P840();
static word DSubst_P900();
static word NthTail_P960();
static word NthElement_P1020();
static word DotCons_P1080();
static word Assoc_P1140();
static word PutAssoc_P1200();
static word Length_P1260();
static void Map_P1320();
static word Subst_P1380();
static void Kill_P1440();
static word Sort_P1500();
static void innerSort_P2028();
static word Merge_P1560();
static word UniqueSort_P1620();
static word Compare_P1680();
static struct {unsigned f; char r[20];} string1 = {1179668, "\260\006\005\146\151\162\163\164\217\005\004\162\145\163\164\214\217\261\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\200\000\000"};
static struct {unsigned f; char r[48];} string4 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\055\153\222\376\300\327\164\352\142\100\200\005\004\162\145\163\164\214\216\257\300\055\153\222\376\300\327\164\352\142\100\200\261\000\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string6 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[4];} string7 = {65540, "\242\000\000"};
static struct {unsigned f; char r[4];} string8 = {65540, "\251\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\121\120\305\150\300\314\203\247\341\100\164\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\144\364\322\150\300\206\136\277\046\100\150\000\000"};
static struct {
   word f0[12]; word f12; word f13; word f14; 
   word f15; word f16; word f17; word f18; 
   word f19; word f20; word f21; word f22; 
   word f23; word f24; word f25; word f26; 
   word f27; word f28; word f29; word f30; 
   word f31; word f32; word f33; word f34; 
   word f35; word f36; word f37; word f38; 
   word f39; word f40; word f41; word f42; 
   word f43; word f44; word f45; word f46; 
   word f47; word f48; word f49; word f50; 
   word f51; word f52; word f53; word f54; 
   word f55; word f56; word f57; word f58; 
   word f59; word f60; word f61; word f62; 
   word f63; word f64; word f65; word f66; 
   word f67[4]; 
   } globalframe = {
   {0}, (word) Compare_P1680, 0, (word) UniqueSort_P1620, 
   0, (word) Merge_P1560, 0, (word) Sort_P1500, 
   0, (word) Kill_P1440, 0, (word) Subst_P1380, 
   0, (word) Map_P1320, 0, (word) Length_P1260, 
   0, (word) PutAssoc_P1200, 0, (word) Assoc_P1140, 
   0, (word) DotCons_P1080, 0, (word) NthElement_P1020, 
   0, (word) NthTail_P960, 0, (word) DSubst_P900, 
   0, (word) DRemove_P840, 0, (word) DReverse_P780, 
   0, (word) Nconc1_P720, 0, (word) Nconc_P660, 
   0, (word) LDiff_P600, 0, (word) ListDifference_P540, 
   0, (word) Intersection_P480, 0, (word) Union_P420, 
   0, (word) Remove_P360, 0, (word) Reverse_P300, 
   0, (word) Append_P240, 0, (word) Memb_P180, 
   0, (word) EqLists_P120, 0, (word) ListImpl_P0, 
   {0}
   };

static void NoName_Q2676()
   {
   register ptr gf_c0206 =  (ptr) &globalframe;
   word var_c16496;
   (* (( (ptr) gf_c0206)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0206)+5) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string2);
   (* (( (ptr) gf_c0206)+6) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string2);
   (* (( (ptr) gf_c0206)+7) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf_c0206)+9) ) = (word) XR_GetTypeIndexS((word) (&string7));
   (* (( (ptr) gf_c0206)+10) ) = (word) XR_GetTypeIndexS((word) (&string8));
   (void) XR_DeclareGlobalFrame((word) "ListImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string9)), (word) (( (bPt) gf_c0206)+264)
      /* var_c14928 */ );
   var_c16496 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string10)), 16);
   (* (( (ptr) gf_c0206)+69)/* var_c16240 */  ) = var_c16496;
   (void) XR_ImportProcS(var_c16496, 67372289);
   var_c16496 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string11)), 43);
   (* (( (ptr) gf_c0206)+68)/* var_c16080 */  ) = var_c16496;
   (void) XR_ImportProcS(var_c16496, 67896067);
   var_c16496 = (word) XR_ExportInterface((word) "List", (word) XR_GetTypeIndexS((word) (&string12)), 28);
   (* (( (ptr) gf_c0206)+70)/* var_c16528 */  ) = var_c16496;
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+256)/* var_c14896 */ , 67633154);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+248)/* var_c14864 */ , 67633410);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+240)/* var_c14832 */ , 67633666);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+224)/* var_c14768 */ , 67633922);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+232)/* var_c14800 */ , 67372033);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+216)/* var_c14736 */ , 67634434);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+208)/* var_c14704 */ , 67634690);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+200)/* var_c14672 */ , 67634946);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+192)/* var_c14640 */ , 67635202);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+184)/* var_c14608 */ , 67635458);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+176)/* var_c14576 */ , 67635714);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+160)/* var_c14512 */ , 67635970);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+168)/* var_c14544 */ , 67374081);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+152)/* var_c14480 */ , 67898627);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+144)/* var_c14448 */ , 67636738);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+136)/* var_c14416 */ , 67636994);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+120)/* var_c14352 */ , 67637250);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+128)/* var_c14384 */ , 67637506);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+112)/* var_c14320 */ , 67899907);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+104)/* var_c14288 */ , 67375873);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+96)/* var_c14256 */ , 529410);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+88)/* var_c14224 */ , 67900675);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+80)/* var_c14192 */ , 267777);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+72)/* var_c14160 */ , 67639042);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+56)/* var_c14096 */ , 67639298);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+64)/* var_c14128 */ , 67901699);
   (void) XR_ExportProcS(var_c16496, (word) (( (bPt) gf_c0206)+48)/* var_c14064 */ , 67639810);
   (void) XR_ExportVar(var_c16496, 27, (word) (( (bPt) gf_c0206)+44)/* var_c14032 */ );
   }

static void ListImpl_P0(formal_c036, formal_c035)
   word formal_c036;
   word formal_c035;
   {
   /* ListImpl: */ 
   }

static word EqLists_P120(l1_v3724, l2_v3752)
   word l1_v3724;
   word l2_v3752;
   {
   word var_c3796;
   /* EqLists: */ 
SOURCE(400, 289)
SOURCE(455, 28)
   if ((l1_v3724 == l2_v3752)) {
SOURCE(471, 12)
      return(1);
      };
SOURCE(485, 42)
   if ((l1_v3724 == 0) || (l2_v3752 == 0)) {
SOURCE(514, 13)
      return(0);
      };
SOURCE(529, 133)
   lab_L100002: ;
   if ((l1_v3724 != 0)) {
      }
   else {
      goto lab_L100000;
      };
   {
      word var_c14960;
      word x_v13880;
      word y_v13908;
SOURCE(548, 30)
      if ((l2_v3752 == 0)) {
SOURCE(565, 13)
         return(0);
         };
SOURCE(580, 54)
      x_v13880 = (*  (ptr) l1_v3724 );
      y_v13908 = (*  (ptr) l2_v3752 );
SOURCE(383, 13)
      var_c14960 = (x_v13880 == y_v13908);
      if (((0 != var_c14960)
      )) {
         }
      else {
SOURCE(621, 13)
         return(0);
         };
SOURCE(636, 12)
      l1_v3724 = (* (( (ptr) l1_v3724)+1) );
SOURCE(650, 12)
      l2_v3752 = (* (( (ptr) l2_v3752)+1) );
      };
   goto lab_L100002;
   lab_L100000: ;
SOURCE(673, 16)
   return((l2_v3752 == 0));
   }

static word Memb_P180(ref_v3856, list_v3884)
   word ref_v3856;
   word list_v3884;
   {
   word var_c3940;
   /* Memb: */ 
SOURCE(695, 163)
SOURCE(759, 75)
   lab_L100006: ;
   if ((list_v3884 != 0)) {
      }
   else {
      goto lab_L100004;
      };
SOURCE(779, 37)
   if (((*  (ptr) list_v3884 ) == ref_v3856)) {
SOURCE(804, 12)
      return(1);
      };
SOURCE(818, 16)
   list_v3884 = (* (( (ptr) list_v3884)+1) );
   goto lab_L100006;
   lab_L100004: ;
SOURCE(845, 13)
   return(0);
   }

static word Append_P240(l1_v4000, l2_v4028)
   word l1_v4000;
   word l2_v4028;
   {
   register ptr gf_c16560 =  (ptr) &globalframe;
   word val_v4072;
   word z_v7280 = 0;
   /* Append: */ 
SOURCE(865, 256)
SOURCE(865, 256)
   val_v4072 = 0;
SOURCE(950, 8)
   val_v4072 = l2_v4028;
SOURCE(960, 28)
   if ((l1_v4000 == 0)) {
SOURCE(977, 11)
      return(val_v4072);
      };
SOURCE(990, 25)
   {
      word var_c14992;
      var_c14992 = XR_NewObject(8, (* (( (ptr) gf_c16560)+4) ));
      (*  (ptr) var_c14992 ) = (*  (ptr) l1_v4000 );
      (* (( (ptr) var_c14992)+1) ) = val_v4072;
      val_v4072 = var_c14992;
      };
SOURCE(1017, 7)
   z_v7280 = val_v4072;
SOURCE(1026, 73)
   lab_L100009: ;
   l1_v4000 = (* (( (ptr) l1_v4000)+1) );
   if ((l1_v4000 != 0)) {
      }
   else {
      goto lab_L100007;
      };
SOURCE(1056, 31)
   {
      word var_c15024;
      var_c15024 = XR_NewObject(8, (* (( (ptr) gf_c16560)+4) ));
      (*  (ptr) var_c15024 ) = (*  (ptr) l1_v4000 );
      (* (( (ptr) var_c15024)+1) ) = (* (( (ptr) z_v7280)+1) );
      (* (( (ptr) z_v7280)+1) ) = var_c15024;
      };
SOURCE(1089, 10)
   z_v7280 = (* (( (ptr) z_v7280)+1) );
   goto lab_L100009;
   lab_L100007: ;
SOURCE(1110, 11)
   return(val_v4072);
   }

static word Reverse_P300(list_v4132)
   word list_v4132;
   {
   register ptr gf_c16592 =  (ptr) &globalframe;
   word val_v4176;
   /* Reverse: */ 
SOURCE(1140, 155)
SOURCE(1140, 155)
   val_v4176 = 0;
SOURCE(1197, 9)
   val_v4176 = 0;
SOURCE(1208, 65)
   lab_L100012: ;
   if ((list_v4132 != 0)) {
      }
   else {
      goto lab_L100010;
      };
SOURCE(1228, 27)
   {
      word var_c15056;
      var_c15056 = XR_NewObject(8, (* (( (ptr) gf_c16592)+4) ));
      (*  (ptr) var_c15056 ) = (*  (ptr) list_v4132 );
      (* (( (ptr) var_c15056)+1) ) = val_v4176;
      val_v4176 = var_c15056;
      };
SOURCE(1257, 16)
   list_v4132 = (* (( (ptr) list_v4132)+1) );
   goto lab_L100012;
   lab_L100010: ;
SOURCE(1284, 11)
   return(val_v4176);
   }

static word Remove_P360(ref_v4236, list_v4264)
   word ref_v4236;
   word list_v4264;
   {
   register ptr gf_c16624 =  (ptr) &globalframe;
   word val_v4320;
   word z_v7324 = 0;
   /* Remove: */ 
SOURCE(1315, 275)
SOURCE(1315, 275)
   val_v4320 = 0;
SOURCE(1401, 9)
   val_v4320 = 0;
SOURCE(1412, 178)
   lab_L100015: ;
   if ((list_v4264 != 0)) {
      }
   else {
      goto lab_L100013;
      };
   {
      word var_c15088;
      word x_v13804;
      word y_v13832;
SOURCE(1432, 138)
      x_v13804 = (*  (ptr) list_v4264 );
      y_v13832 = ref_v4236;
SOURCE(383, 13)
      var_c15088 = (x_v13804 == y_v13832);
      if (((0 == var_c15088)
      )) {
SOURCE(1462, 108)
         if ((val_v4320 == 0)) {
SOURCE(1481, 27)
            {
               word var_c15120;
               var_c15120 = XR_NewObject(8, (* (( (ptr) gf_c16624)+4) ));
               (*  (ptr) var_c15120 ) = (*  (ptr) list_v4264 );
               val_v4320 = var_c15120;
               };
SOURCE(1510, 7)
            z_v7324 = val_v4320;
            }
         else {
SOURCE(1525, 33)
            {
               word var_c15152;
               var_c15152 = XR_NewObject(8, (* (( (ptr) gf_c16624)+4) ));
               (*  (ptr) var_c15152 ) = (*  (ptr) list_v4264 );
               (* (( (ptr) var_c15152)+1) ) = (* (( (ptr) z_v7324)+1) );
               (* (( (ptr) z_v7324)+1) ) = var_c15152;
               };
SOURCE(1560, 10)
            z_v7324 = (* (( (ptr) z_v7324)+1) );
            };
         };
SOURCE(1574, 16)
      list_v4264 = (* (( (ptr) list_v4264)+1) );
      };
   goto lab_L100015;
   lab_L100013: ;
SOURCE(1315, 275)
   return(val_v4320);
   }

static word Union_P420(l1_v4380, l2_v4408)
   word l1_v4380;
   word l2_v4408;
   {
   register ptr gf_c16656 =  (ptr) &globalframe;
   word var_c4452;
   word l_v7368;
   /* Union: */ 
SOURCE(1622, 166)
SOURCE(1674, 12)
   l_v7368 = l2_v4408;
SOURCE(1688, 80)
   lab_L100019: ;
   if ((l1_v4380 != 0)) {
      }
   else {
      goto lab_L100017;
      };
SOURCE(1706, 48)
   if ((0 == (word) Memb_P180((*  (ptr) l1_v4380 ), l_v7368))) {
SOURCE(1733, 21)
      {
         word var_c15184;
         var_c15184 = XR_NewObject(8, (* (( (ptr) gf_c16656)+4) ));
         (*  (ptr) var_c15184 ) = (*  (ptr) l1_v4380 );
         (* (( (ptr) var_c15184)+1) ) = l_v7368;
         l_v7368 = var_c15184;
         };
      };
SOURCE(1756, 12)
   l1_v4380 = (* (( (ptr) l1_v4380)+1) );
   goto lab_L100019;
   lab_L100017: ;
SOURCE(1779, 9)
   return(l_v7368);
   }

static word Intersection_P480(l1_v4512, l2_v4540)
   word l1_v4512;
   word l2_v4540;
   {
   register ptr gf_c16688 =  (ptr) &globalframe;
   word var_c4584;
   word l_v7412 = 0;
   /* Intersection: */ 
SOURCE(1806, 174)
SOURCE(1880, 80)
   lab_L100022: ;
   if ((l1_v4512 != 0)) {
      }
   else {
      goto lab_L100020;
      };
SOURCE(1898, 48)
   if ((0 != (word) Memb_P180((*  (ptr) l1_v4512 ), l2_v4540))) {
SOURCE(1925, 21)
      {
         word var_c15216;
         var_c15216 = XR_NewObject(8, (* (( (ptr) gf_c16688)+4) ));
         (*  (ptr) var_c15216 ) = (*  (ptr) l1_v4512 );
         (* (( (ptr) var_c15216)+1) ) = l_v7412;
         l_v7412 = var_c15216;
         };
      };
SOURCE(1948, 12)
   l1_v4512 = (* (( (ptr) l1_v4512)+1) );
   goto lab_L100022;
   lab_L100020: ;
SOURCE(1971, 9)
   return(l_v7412);
   }

static word ListDifference_P540(l1_v4644, l2_v4672)
   word l1_v4644;
   word l2_v4672;
   {
   word var_c4716;
   word l_v7456 = 0;
   /* ListDifference: */ 
SOURCE(2005, 208)
SOURCE(2081, 27)
   if ((l2_v4672 == 0)) {
SOURCE(2098, 10)
      return(l1_v4644);
      };
SOURCE(2110, 83)
   lab_L100025: ;
   if ((l1_v4644 != 0)) {
      }
   else {
      goto lab_L100023;
      };
SOURCE(2128, 51)
   if ((0 == (word) Memb_P180((*  (ptr) l1_v4644 ), l2_v4672))) {
SOURCE(2156, 23)
      l_v7456 = (word) Nconc1_P720(l_v7456, (*  (ptr) l1_v4644 ));
      };
SOURCE(2181, 12)
   l1_v4644 = (* (( (ptr) l1_v4644)+1) );
   goto lab_L100025;
   lab_L100023: ;
SOURCE(2204, 9)
   return(l_v7456);
   }

static word LDiff_P600(list_v4776, tailOfList_v4804)
   word list_v4776;
   word tailOfList_v4804;
   {
   register ptr gf_c16720 =  (ptr) &globalframe;
   word var_c4848;
   word endOfL_v7500 = 0;
   word l_v7528 = 0;
   /* LDiff: */ 
SOURCE(2240, 376)
SOURCE(2325, 37)
   if ((tailOfList_v4804 == 0)) {
SOURCE(2350, 12)
      return(list_v4776);
      };
SOURCE(2364, 200)
   lab_L100028: ;
   if ((list_v4776 != 0)) {
      }
   else {
      goto lab_L100026;
      };
SOURCE(2384, 35)
   if ((list_v4776 == tailOfList_v4804)) {
SOURCE(2410, 9)
      return(l_v7528);
      };
SOURCE(2421, 124)
   if ((endOfL_v7500 == 0)) {
SOURCE(2443, 25)
      {
         word var_c15248;
         var_c15248 = XR_NewObject(8, (* (( (ptr) gf_c16720)+4) ));
         (*  (ptr) var_c15248 ) = (*  (ptr) list_v4776 );
         l_v7528 = var_c15248;
         };
SOURCE(2470, 10)
      endOfL_v7500 = l_v7528;
      }
   else {
SOURCE(2488, 35)
      {
         word var_c15280;
         var_c15280 = XR_NewObject(8, (* (( (ptr) gf_c16720)+4) ));
         (*  (ptr) var_c15280 ) = (*  (ptr) list_v4776 );
         (* (( (ptr) endOfL_v7500)+1) ) = var_c15280;
         };
SOURCE(2525, 20)
      endOfL_v7500 = (* (( (ptr) endOfL_v7500)+1) );
      };
SOURCE(2548, 16)
   list_v4776 = (* (( (ptr) list_v4776)+1) );
   goto lab_L100028;
   lab_L100026: ;
SOURCE(2575, 41)
   {
      W2 var_c085;
      (*  (ptr) (word) &var_c085 ) = list_v4776;
      (* (( (ptr) (word) &var_c085) + 1) ) = tailOfList_v4804;
      {
         word var_c086;
         (void) (XR_RaiseSignal((word) (( (bPt) gf_c16720)+44)/* var_c14032 */ , (word) &var_c086, (word) &var_c085));
         return(var_c086);
         };
      };
   }

static word Nconc_P660(l1_v4908, l2_v4936)
   word l1_v4908;
   word l2_v4936;
   {
   word var_c4980;
   word z_v7572;
   /* Nconc: */ 
SOURCE(2623, 160)
SOURCE(2675, 12)
   z_v7572 = l1_v4908;
SOURCE(2689, 26)
   if ((z_v7572 == 0)) {
SOURCE(2705, 10)
      return(l2_v4936);
      };
SOURCE(2717, 32)
   lab_L100031: ;
   if (((* (( (ptr) z_v7572)+1) ) != 0)) {
      }
   else {
      goto lab_L100029;
      };
SOURCE(2739, 10)
   z_v7572 = (* (( (ptr) z_v7572)+1) );
   goto lab_L100031;
   lab_L100029: ;
SOURCE(2760, 11)
   (* (( (ptr) z_v7572)+1) ) = l2_v4936;
SOURCE(2773, 10)
   return(l1_v4908);
   }

static word Nconc1_P720(list_v5040, ref_v5068)
   word list_v5040;
   word ref_v5068;
   {
   register ptr gf_c16752 =  (ptr) &globalframe;
   word var_c5124;
   word z_v7616;
   word new_v7644;
   /* Nconc1: */ 
SOURCE(2789, 202)
SOURCE(2854, 14)
   z_v7616 = list_v5040;
SOURCE(2870, 21)
   {
      word var_c15376;
      new_v7644 = XR_NewObject(8, (* (( (ptr) gf_c16752)+4) ));
      var_c15376 = new_v7644;
      (*  (ptr) var_c15376 ) = ref_v5068;
      };
SOURCE(2893, 27)
   if ((z_v7616 == 0)) {
SOURCE(2909, 11)
      return(new_v7644);
      };
SOURCE(2922, 32)
   lab_L100034: ;
   if (((* (( (ptr) z_v7616)+1) ) != 0)) {
      }
   else {
      goto lab_L100032;
      };
SOURCE(2944, 10)
   z_v7616 = (* (( (ptr) z_v7616)+1) );
   goto lab_L100034;
   lab_L100032: ;
SOURCE(2965, 12)
   (* (( (ptr) z_v7616)+1) ) = new_v7644;
SOURCE(2979, 12)
   return(list_v5040);
   }

static word DReverse_P780(list_v5184)
   word list_v5184;
   {
   word var_c5228;
   word l1_v7688 = 0;
   word l2_v7716 = 0;
   word l3_v7744 = 0;
   /* DReverse: */ 
SOURCE(2997, 202)
SOURCE(3075, 30)
   if ((list_v5184 == 0)) {
SOURCE(3094, 11)
      return(0);
      };
SOURCE(3107, 9)
   l3_v7744 = list_v5184;
SOURCE(3118, 60)
   lab_L100037: ;
   l1_v7688 = l3_v7744;
   if ((l3_v7744 != 0)) {
      }
   else {
      goto lab_L100035;
      };
SOURCE(3143, 12)
   l3_v7744 = (* (( (ptr) l3_v7744)+1) );
SOURCE(3157, 12)
   (* (( (ptr) l1_v7688)+1) ) = l2_v7716;
SOURCE(3171, 7)
   l2_v7716 = l1_v7688;
   goto lab_L100037;
   lab_L100035: ;
SOURCE(3189, 10)
   return(l2_v7716);
   }

static word DRemove_P840(ref_v5288, list_v5316)
   word ref_v5288;
   word list_v5316;
   {
   word var_c5372;
   word l_v7788 = 0;
   word l1_v7816 = 0;
   /* DRemove: */ 
SOURCE(3220, 282)
SOURCE(3306, 8)
   l_v7788 = list_v5316;
SOURCE(3316, 162)
   lab_L100040: ;
   if ((l_v7788 != 0)) {
      }
   else {
      goto lab_L100038;
      };
   {
      word var_c15408;
      word x_v13728;
      word y_v13756;
SOURCE(3333, 122)
      x_v13728 = (*  (ptr) l_v7788 );
      y_v13756 = ref_v5288;
SOURCE(383, 13)
      var_c15408 = (x_v13728 == y_v13756);
      if (((0 != var_c15408)
      )) {
SOURCE(3360, 31)
         if ((l1_v7816 == 0)) {
SOURCE(3377, 14)
            return((* (( (ptr) l_v7788)+1) ));
            };
SOURCE(3425, 16)
         (* (( (ptr) l1_v7816)+1) ) = (* (( (ptr) l_v7788)+1) );
SOURCE(3443, 12)
         return(list_v5316);
         };
SOURCE(3460, 6)
      l1_v7816 = l_v7788;
SOURCE(3468, 10)
      l_v7788 = (* (( (ptr) l_v7788)+1) );
      };
   goto lab_L100040;
   lab_L100038: ;
SOURCE(3489, 13)
   return(list_v5316);
   }

static word DSubst_P900(new_v5432, old_v5460, expr_v5488)
   word new_v5432;
   word old_v5460;
   word expr_v5488;
   {
   register ptr gf_c16784 =  (ptr) &globalframe;
   word var_c5544;
   /* DSubst: */ 
SOURCE(3523, 282)
SOURCE(3593, 30)
   if ((expr_v5488 == 0)) {
SOURCE(3612, 11)
      return(0);
      };
SOURCE(3625, 148)
   {
      register word l_v7860;
      l_v7860 = expr_v5488;
      lab_L100045: ;
      if ((l_v7860 != 0)) {
         }
      else {
         goto lab_L100042;
         };
      {
         word var_c15440;
         word x_v13652;
         word y_v13680;
SOURCE(3669, 39)
         x_v13652 = (*  (ptr) l_v7860 );
         y_v13680 = old_v5460;
SOURCE(383, 13)
         var_c15440 = (x_v13652 == y_v13680);
         if (((0 != var_c15440)
         )) {
SOURCE(3695, 13)
            (*  (ptr) l_v7860 ) = new_v5432;
            };
SOURCE(3710, 63)
         {
            word var_c15472;
            var_c15472 = (*  (ptr) l_v7860 );
            if ((var_c15472 == 0)) {
               goto lab_L100047;
               };
            if (((* (( (ptr) gf_c16784)+4) ) == XR_GetReferentType(var_c15472))) {
               {
                  word z_v7904;
                  z_v7904 = var_c15472;
SOURCE(3746, 27)
                  (*  (ptr) l_v7860 ) = (word) DSubst_P900(new_v5432, old_v5460, z_v7904);
                  };
               }
            else {
               lab_L100047: ;
               };
            };
         };
      l_v7860 = (* (( (ptr) l_v7860)+1) );
      goto lab_L100045;
      lab_L100042: ;
      };
SOURCE(3793, 12)
   return(expr_v5488);
   }

static word NthTail_P960(list_v5604, n_v5632)
   word list_v5604;
   word n_v5632;
   {
   word var_c5676;
   /* NthTail: */ 
SOURCE(3823, 357)
SOURCE(3882, 24)
   if (( (int)n_v5632 ==  (int)0)) {
SOURCE(3894, 12)
      return(list_v5604);
      };
SOURCE(3908, 30)
   if ((list_v5604 == 0)) {
SOURCE(3927, 11)
      return(0);
      };
SOURCE(3940, 240)
   if (( (int)n_v5632 >  (int)0)) {
SOURCE(3954, 100)
      {
         register word noName_c15504 = 0;
         register word noName_c15536;
         noName_c15536 = n_v5632;
         if (( (int)noName_c15504 >=  (int)noName_c15536)) {
            goto lab_L100048;
            };
         lab_L100051: ;
SOURCE(3973, 16)
         list_v5604 = (* (( (ptr) list_v5604)+1) );
SOURCE(3991, 30)
         if ((list_v5604 == 0)) {
SOURCE(4010, 11)
            return(0);
            };
         noName_c15504 = (noName_c15504 + 1);
         if (( (int)noName_c15504 <  (int)noName_c15536)) {
            goto lab_L100051;
            };
         lab_L100048: ;
SOURCE(4042, 12)
         return(list_v5604);
         };
      }
   else {
SOURCE(4070, 112)
      {
         word lead_v7948;
SOURCE(4071, 30)
         lead_v7948 = (word) NthTail_P960(list_v5604, INEG(n_v5632));
SOURCE(4103, 54)
         lab_L100054: ;
         if ((lead_v7948 != 0)) {
            }
         else {
            goto lab_L100052;
            };
SOURCE(4123, 16)
         lead_v7948 = (* (( (ptr) lead_v7948)+1) );
SOURCE(4141, 16)
         list_v5604 = (* (( (ptr) list_v5604)+1) );
         goto lab_L100054;
         lab_L100052: ;
SOURCE(4168, 12)
         return(list_v5604);
         };
      };
   }

static word NthElement_P1020(list_v5736, n_v5764)
   word list_v5736;
   word n_v5764;
   {
   word var_c5808;
   word tail_v7992 = 0;
   /* NthElement: */ 
SOURCE(4203, 261)
SOURCE(4281, 12)
   if (( (int)n_v5764 ==  (int)0)) {
SOURCE(4293, 5)
      (void) XR_RaiseUnnamedError();
      };
SOURCE(4300, 118)
   if (( (int)n_v5764 >  (int)0)) {
SOURCE(4315, 25)
      tail_v7992 = (word) NthTail_P960(list_v5736, (n_v5764 - 1));
SOURCE(4342, 19)
      if ((tail_v7992 == 0)) {
SOURCE(4361, 5)
         (void) XR_RaiseUnnamedError();
         };
SOURCE(4368, 18)
      return((*  (ptr) tail_v7992 ));
      }
   else {
SOURCE(4395, 23)
      tail_v7992 = (word) NthTail_P960(list_v5736, n_v5764);
      };
SOURCE(4420, 19)
   if ((tail_v7992 == 0)) {
SOURCE(4439, 5)
      (void) XR_RaiseUnnamedError();
      };
SOURCE(4446, 18)
   return((*  (ptr) tail_v7992 ));
   }

static word DotCons_P1080(key_v5880, val_v5908)
   word key_v5880;
   word val_v5908;
   {
   register ptr gf_c16816 =  (ptr) &globalframe;
   word var_c5964;
   /* DotCons: */ 
SOURCE(4488, 106)
SOURCE(4554, 40)
   {
      word var_c15600;
      var_c15600 = XR_NewObject(8, (* (( (ptr) gf_c16816)+5) ));
      (*  (ptr) var_c15600 ) = key_v5880;
      (* (( (ptr) var_c15600)+1) ) = val_v5908;
      return(var_c15600);
      };
   }

static word Assoc_P1140(key_v6024, aList_v6052)
   word key_v6024;
   word aList_v6052;
   {
   word var_c6108;
   /* Assoc: */ 
SOURCE(4600, 169)
SOURCE(4600, 169)
   var_c6108 = 0;
SOURCE(4675, 94)
   lab_L100057: ;
   if ((aList_v6052 != 0)) {
      }
   else {
      goto lab_L100055;
      };
SOURCE(4696, 53)
   if (((*  (ptr) (*  (ptr) aList_v6052 ) ) == key_v6024)) {
SOURCE(4726, 23)
      return((* (( (ptr) (*  (ptr) aList_v6052 ))+1) ));
      };
SOURCE(4751, 18)
   aList_v6052 = (* (( (ptr) aList_v6052)+1) );
   goto lab_L100057;
   lab_L100055: ;
SOURCE(4600, 169)
   return(var_c6108);
   }

static word PutAssoc_P1200(key_v6180, val_v6208, aList_v6236)
   word key_v6180;
   word val_v6208;
   word aList_v6236;
   {
   register ptr gf_c16848 =  (ptr) &globalframe;
   word var_c6304;
   word lag_v8036 = 0;
   word new_v8064 = 0;
   /* PutAssoc: */ 
SOURCE(4784, 361)
SOURCE(4904, 134)
   {
      register word each_v8108;
      each_v8108 = aList_v6236;
      lab_L100061: ;
      if ((each_v8108 != 0)) {
         }
      else {
         goto lab_L100058;
         };
SOURCE(4959, 66)
      if (((*  (ptr) (*  (ptr) each_v8108 ) ) == key_v6180)) {
SOURCE(4989, 20)
         (* (( (ptr) (*  (ptr) each_v8108 ))+1) ) = val_v6208;
SOURCE(5011, 14)
         return(aList_v6236);
         };
SOURCE(5028, 10)
      lag_v8036 = each_v8108;
      each_v8108 = (* (( (ptr) each_v8108)+1) );
      goto lab_L100061;
      lab_L100058: ;
      };
SOURCE(5049, 29)
   {
      word var_c15632;
      word var_c15664;
      var_c15632 = XR_NewObject(8, (* (( (ptr) gf_c16848)+6) ));
      var_c15664 = var_c15632;
      (*  (ptr) var_c15664 ) = (word) DotCons_P1080(key_v6180, val_v6208);
      new_v8064 = var_c15632;
      };
SOURCE(5080, 49)
   if ((lag_v8036 == 0)) {
SOURCE(5098, 17)
      aList_v6236 = new_v8064;
      }
   else {
SOURCE(5115, 14)
      (* (( (ptr) lag_v8036)+1) ) = new_v8064;
      };
SOURCE(5131, 14)
   return(aList_v6236);
   }

static word Length_P1260(list_v6364)
   word list_v6364;
   {
   word n_v6408;
   /* Length: */ 
SOURCE(5152, 102)
SOURCE(5152, 102)
   n_v6408 = 0;
SOURCE(5209, 45)
   lab_L100064: ;
   if ((list_v6364 != 0)) {
      }
   else {
      goto lab_L100062;
      };
SOURCE(5229, 7)
   n_v6408 = (n_v6408 + 1);
SOURCE(5238, 16)
   list_v6364 = (* (( (ptr) list_v6364)+1) );
   goto lab_L100064;
   lab_L100062: ;
SOURCE(5152, 102)
   return(n_v6408);
   }

static void Map_P1320(list_v6468, proc_v6496)
   word list_v6468;
   word proc_v6496;
   {
   /* Map: */ 
SOURCE(5269, 122)
SOURCE(5331, 60)
   lab_L100067: ;
   if ((list_v6468 != 0)) {
      }
   else {
      goto lab_L100065;
      };
SOURCE(5351, 22)
   (void) ( *( (fPt) ((*  (ptr) proc_v6496 ))))((*  (ptr) list_v6468 ), list_v6468, proc_v6496);
SOURCE(5375, 16)
   list_v6468 = (* (( (ptr) list_v6468)+1) );
   goto lab_L100067;
   lab_L100065: ;
   }

static word Subst_P1380(new_v6656, old_v6684, expr_v6712)
   word new_v6656;
   word old_v6684;
   word expr_v6712;
   {
   register ptr gf_c16880 =  (ptr) &globalframe;
   word head_v6768;
   word tail_v8152 = 0;
   /* Subst: */ 
SOURCE(5406, 280)
SOURCE(5406, 280)
   head_v6768 = 0;
SOURCE(5505, 181)
   lab_L100070: ;
   if ((expr_v6712 != 0)) {
      }
   else {
      goto lab_L100068;
      };
   {
      word first_v8196;
      word cons_v8224;
SOURCE(5525, 23)
      first_v8196 = (*  (ptr) expr_v6712 );
SOURCE(5550, 51)
      cons_v8224 = XR_NewObject(8, (* (( (ptr) gf_c16880)+4) ));
      {
         word var_c15760;
         var_c15760 = cons_v8224;
         if ((first_v8196 == old_v6684)) {
            (*  (ptr) var_c15760 ) = new_v6656;
            }
         else {
            (*  (ptr) var_c15760 ) = old_v6684;
            };
         };
SOURCE(5603, 52)
      if ((tail_v8152 == 0)) {
SOURCE(5622, 17)
         head_v6768 = cons_v8224;
         }
      else {
SOURCE(5639, 16)
         (* (( (ptr) tail_v8152)+1) ) = cons_v8224;
         };
SOURCE(5657, 11)
      tail_v8152 = cons_v8224;
SOURCE(5670, 16)
      expr_v6712 = (* (( (ptr) expr_v6712)+1) );
      };
   goto lab_L100070;
   lab_L100068: ;
SOURCE(5406, 280)
   return(head_v6768);
   }

static void Kill_P1440(list_v6828)
   word list_v6828;
   {
   /* Kill: */ 
SOURCE(5701, 125)
SOURCE(5736, 90)
   lab_L100073: ;
   if ((list_v6828 != 0)) {
      }
   else {
      goto lab_L100071;
      };
   {
      word next_v8280;
SOURCE(5756, 22)
      next_v8280 = (* (( (ptr) list_v6828)+1) );
SOURCE(5780, 15)
      (* (( (ptr) list_v6828)+1) ) = 0;
SOURCE(5797, 16)
      (*  (ptr) list_v6828 ) = 0;
SOURCE(5815, 11)
      list_v6828 = next_v8280;
      };
   goto lab_L100073;
   lab_L100071: ;
   }

static word Sort_P1500(list_v6888, formal_c0223)
   word list_v6888;
   word formal_c0223;
   {
   W7 var_c16912;
   /* declaration of compareProc_v6916 skipped */ 
   word var_c6960;
   /* declaration of var_c15792 skipped */ 
   var_c16912.f4/* compareProc_v6916 */  = formal_c0223;
   /* Sort: */ 
SOURCE(5842, 858)
   {
      word tmpAddr13;
      tmpAddr13 = (word) (( (ptr) &var_c16912)+5)/* var_c15792 */ ;
      (*  (ptr) tmpAddr13 ) = ( ((word)  (fPt) innerSort_P2028) );
      (* (( (ptr) tmpAddr13) + 1) ) = 1;
      };
SOURCE(6615, 51)
   if ((list_v6888 == 0) || ((* (( (ptr) list_v6888)+1) ) == 0)) {
SOURCE(6653, 13)
      return(list_v6888);
      };
SOURCE(6668, 32)
   {
      word var_c0220;
      W2 var_c0164;
      (void) innerSort_P2028((word) &var_c0164, list_v6888, 32, (word) (( (bPt) &var_c16912)+20)/* var_c15792 */ );
      var_c0220 = var_c0164.f0;
      return(var_c0220);
      };
   }

static void innerSort_P2028(formal_c0175, head_v8400, max_v8428, formal_c16944)
   word formal_c0175;
   word head_v8400;
   word max_v8428;
   word formal_c16944;
   {
   word new_v8472;
   word next_v8500;
   word mid_v8528;
   formal_c16944 = (formal_c16944 - 20);
   /* innerSort: */ 
SOURCE(5919, 682)
SOURCE(5919, 682)
   new_v8472 = 0;
SOURCE(5919, 682)
   next_v8500 = 0;
SOURCE(5989, 29)
   new_v8472 = head_v8400;
   mid_v8528 = (* (( (ptr) head_v8400)+1) );
SOURCE(6020, 24)
   if ((mid_v8528 == 0)) {
SOURCE(6038, 6)
      goto lab_L100074;
      };
SOURCE(6046, 15)
   next_v8500 = (* (( (ptr) mid_v8528)+1) );
SOURCE(6063, 91)
   {
      word pd14;
      pd14 = (* (( (ptr) formal_c16944)+4) );
      if (((word) ( *( (fPt) ((*  (ptr) pd14 ))))((*  (ptr) new_v8472 ), (*  (ptr) mid_v8528 ), pd14) == 2)) {
SOURCE(6117, 14)
         (* (( (ptr) mid_v8528)+1) ) = new_v8472;
SOURCE(6133, 9)
         new_v8472 = mid_v8528;
SOURCE(6144, 10)
         mid_v8528 = head_v8400;
         };
      };
SOURCE(6159, 14)
   (* (( (ptr) mid_v8528)+1) ) = 0;
SOURCE(6175, 25)
   if ((next_v8500 == 0)) {
SOURCE(6194, 6)
      goto lab_L100074;
      };
SOURCE(6203, 24)
   mid_v8528 = next_v8500;
   next_v8500 = (* (( (ptr) next_v8500)+1) );
SOURCE(6229, 173)
   if ((next_v8500 != 0)) {
SOURCE(6248, 156)
      {
         word temp_v8572;
SOURCE(6250, 17)
         temp_v8572 = next_v8500;
SOURCE(6269, 16)
         next_v8500 = (* (( (ptr) temp_v8572)+1) );
SOURCE(6287, 15)
         (* (( (ptr) temp_v8572)+1) ) = 0;
SOURCE(6304, 98)
         {
            word pd15;
            pd15 = (* (( (ptr) formal_c16944)+4) );
            if (((word) ( *( (fPt) ((*  (ptr) pd15 ))))((*  (ptr) mid_v8528 ), (*  (ptr) temp_v8572 ), pd15) == 2)) {
SOURCE(6359, 14)
               (* (( (ptr) mid_v8528)+1) ) = 0;
SOURCE(6375, 15)
               (* (( (ptr) temp_v8572)+1) ) = mid_v8528;
SOURCE(6392, 10)
               mid_v8528 = temp_v8572;
               };
            };
         };
      };
SOURCE(6408, 34)
   new_v8472 = (word) Merge_P1560(new_v8472, mid_v8528, (* (( (ptr) formal_c16944)+4) ));
SOURCE(6444, 25)
   if ((next_v8500 == 0)) {
SOURCE(6463, 6)
      goto lab_L100074;
      };
SOURCE(6472, 129)
   {
      register word depth_v8616 = 2;
      register word noName_c15856;
      noName_c15856 = max_v8428;
      if ((depth_v8616 >= noName_c15856)) {
         goto lab_L100075;
         };
      lab_L100078: ;
SOURCE(6502, 36)
      {
         W2 var_c15888;
         (void) innerSort_P2028((word) &var_c15888, next_v8500, depth_v8616, (word) (( (bPt) formal_c16944)+20));
         next_v8500 = var_c15888.f1;
         mid_v8528 = var_c15888.f0;
         };
SOURCE(6540, 34)
      new_v8472 = (word) Merge_P1560(new_v8472, mid_v8528, (* (( (ptr) formal_c16944)+4) ));
SOURCE(6576, 25)
      if ((next_v8500 == 0)) {
SOURCE(6595, 6)
         goto lab_L100074;
         };
      depth_v8616 = (depth_v8616 + 1);
      if ((depth_v8616 < noName_c15856)) {
         goto lab_L100078;
         };
      lab_L100075: ;
      };
   /* removed tail goto */ 
   lab_L100074: ;
   (*  (ptr) formal_c0175 ) = new_v8472;
   (* (( (ptr) formal_c0175)+1) ) = next_v8500;
   return;
   }

static word Merge_P1560(x_v7020, y_v7048, compareProc_v7076)
   word x_v7020;
   word y_v7048;
   word compareProc_v7076;
   {
   word new_v7120;
   word tail_v8660 = 0;
   /* Merge: */ 
SOURCE(6706, 533)
SOURCE(6706, 533)
   new_v7120 = 0;
SOURCE(6806, 26)
   if ((x_v7020 == 0)) {
SOURCE(6822, 10)
      return(y_v7048);
      };
SOURCE(6834, 26)
   if ((y_v7048 == 0)) {
SOURCE(6850, 10)
      return(x_v7020);
      };
SOURCE(6863, 7)
   new_v7120 = x_v7020;
SOURCE(6872, 74)
   if (((word) ( *( (fPt) ((*  (ptr) compareProc_v7076 ))))((*  (ptr) x_v7020 ), (*  (ptr) y_v7048 ), compareProc_v7076) == 2)) {
SOURCE(6921, 7)
      new_v7120 = y_v7048;
SOURCE(6931, 5)
      y_v7048 = x_v7020;
SOURCE(6939, 7)
      x_v7020 = new_v7120;
      };
SOURCE(6950, 289)
   lab_L100081: ;
SOURCE(6953, 115)
   lab_L100084: ;
SOURCE(6956, 8)
   tail_v8660 = x_v7020;
SOURCE(6967, 10)
   x_v7020 = (* (( (ptr) x_v7020)+1) );
SOURCE(6979, 38)
   if ((x_v7020 == 0)) {
SOURCE(6996, 13)
      (* (( (ptr) tail_v8660)+1) ) = y_v7048;
SOURCE(7011, 6)
      return(new_v7120);
      };
SOURCE(7020, 48)
   if (((word) ( *( (fPt) ((*  (ptr) compareProc_v7076 ))))((*  (ptr) x_v7020 ), (*  (ptr) y_v7048 ), compareProc_v7076) == 2)) {
SOURCE(7068, 4)
      goto lab_L100083;
      };
   goto lab_L100084;
   lab_L100083: ;
SOURCE(7083, 13)
   (* (( (ptr) tail_v8660)+1) ) = y_v7048;
SOURCE(7099, 112)
   lab_L100087: ;
SOURCE(7102, 8)
   tail_v8660 = y_v7048;
SOURCE(7113, 10)
   y_v7048 = (* (( (ptr) y_v7048)+1) );
SOURCE(7125, 38)
   if ((y_v7048 == 0)) {
SOURCE(7142, 13)
      (* (( (ptr) tail_v8660)+1) ) = x_v7020;
SOURCE(7157, 6)
      return(new_v7120);
      };
SOURCE(7166, 45)
   if (((word) ( *( (fPt) ((*  (ptr) compareProc_v7076 ))))((*  (ptr) x_v7020 ), (*  (ptr) y_v7048 ), compareProc_v7076) == 0)) {
SOURCE(7211, 4)
      goto lab_L100086;
      };
   goto lab_L100087;
   lab_L100086: ;
SOURCE(7226, 13)
   (* (( (ptr) tail_v8660)+1) ) = x_v7020;
   goto lab_L100081;
   }

static word UniqueSort_P1620(list_v7180, compareProc_v7208)
   word list_v7180;
   word compareProc_v7208;
   {
   word var_c7252;
   word lag_v8704;
   /* UniqueSort: */ 
SOURCE(7254, 302)
SOURCE(7335, 42)
   list_v7180 = (word) Sort_P1500(list_v7180, compareProc_v7208);
   lag_v8704 = list_v7180;
SOURCE(7379, 154)
   lab_L100090: ;
   if ((lag_v8704 != 0)) {
      }
   else {
      goto lab_L100088;
      };
   {
      word rest_v8748;
SOURCE(7398, 21)
      rest_v8748 = (* (( (ptr) lag_v8704)+1) );
SOURCE(7421, 19)
      if ((rest_v8748 == 0)) {
SOURCE(7440, 4)
         goto lab_L100089;
         };
SOURCE(7446, 87)
      if (((word) ( *( (fPt) ((*  (ptr) compareProc_v7208 ))))((*  (ptr) lag_v8704 ), (*  (ptr) rest_v8748 ), compareProc_v7208)
       == 1)) {
SOURCE(7497, 26)
         (* (( (ptr) lag_v8704)+1) ) = (* (( (ptr) rest_v8748)+1) );
         }
      else {
SOURCE(7523, 10)
         lag_v8704 = rest_v8748;
         };
      };
   goto lab_L100090;
   lab_L100088: ;
   lab_L100089: ;
SOURCE(7544, 12)
   return(list_v7180);
   }

static word Compare_P1680(ref1_v10916, ref2_v10944)
   word ref1_v10916;
   word ref2_v10944;
   {
   register ptr gf_c16976 =  (ptr) &globalframe;
   word var_c10988;
   /* Compare: */ 
SOURCE(7562, 413)
SOURCE(7594, 381)
   {
      word var_c15920;
      word var_c15952;
      var_c15920 = ref1_v10916;
      if ((var_c15920 == 0)) {
         goto lab_L100091;
         };
      var_c15952 = XR_GetReferentType(var_c15920);
      {
         word tc17;
         if (((* (( (ptr) gf_c16976)+7) ) == var_c15952)) {
            tc17 =  (word) ((*(int*)var_c15920<0) == 0);
            }
         else {
            tc17 =  (word) 0;
            };
         if (tc17) {
            {
               word rope_v8792;
               rope_v8792 = var_c15920;
SOURCE(7630, 60)
               {
                  word var_c16048;
                  word var_c16016;
                  var_c16048 = XR_Narrow(ref2_v10944, (* (( (ptr) gf_c16976)+7) ));
                  if ((var_c16048 == 0)) {
                     goto lab_L100092;
                     };
                  if (((*(int*)var_c16048<0) == 0)) {
                     goto lab_L100092;
                     };
                  (void) XR_RaiseError(XR_NarrowFault, 0);
                  lab_L100092: ;
                  var_c16016 =  (word) var_c16048;
                  {
                     word pd18;
                     pd18 = (* (( (ptr) (* (( (ptr) gf_c16976)+68)/* var_c16080 */  ))+7) );
                     return((word) ( *( (fPt) ((*  (ptr) pd18 ))))(rope_v8792, var_c16016, 1, pd18));
                     };
                  };
               };
            };
         if (((* (( (ptr) gf_c16976)+9) ) == var_c15952)) {
            {
               word rli_v8836;
               rli_v8836 = var_c15920;
SOURCE(7708, 55)
               {
                  word var_c16144;
                  word a_v13956;
                  word b_v13984;
                  a_v13956 = (*  (ptr) rli_v8836 );
                  b_v13984 = (*  (ptr) XR_Narrow(ref2_v10944, (* (( (ptr) gf_c16976)+9) )) );
                  {
                     word idx19;
                     var_c16144 = (
                        idx19 = (word)  ( ( (int)a_v13956 ==  (int)b_v13984) ? 1 :  ( ( (int)a_v13956 >  (int)b_v13984) ? 2 : 0 )  ) ,
                        BCK(idx19, 3)
                        );
                     };
                  return(var_c16144);
                  };
               };
            };
         if (((* (( (ptr) gf_c16976)+10) ) == var_c15952)) {
            {
               word atom_v8904;
               atom_v8904 = var_c15920;
SOURCE(7779, 90)
               {
                  word var_c16208;
                  word var_c16272;
                  word var_c16304;
                  {
                     word pd20;
                     pd20 = (* (( (ptr) (* (( (ptr) gf_c16976)+69)/* var_c16240 */  ))+9) );
                     var_c16208 = (word) ( *( (fPt) ((*  (ptr) pd20 ))))(atom_v8904, pd20);
                     };
                  {
                     word pd21;
                     var_c16304 = XR_Narrow(ref2_v10944, (* (( (ptr) gf_c16976)+10) ));
                     pd21 = (* (( (ptr) (* (( (ptr) gf_c16976)+69)/* var_c16240 */  ))+9) );
                     var_c16272 = (word) ( *( (fPt) ((*  (ptr) pd21 ))))(var_c16304, pd21);
                     };
                  {
                     word pd22;
                     pd22 = (* (( (ptr) (* (( (ptr) gf_c16976)+68)/* var_c16080 */  ))+7) );
                     return((word) ( *( (fPt) ((*  (ptr) pd22 ))))(var_c16208, var_c16272, 1, pd22));
                     };
                  };
               };
            };
         lab_L100091: ;
SOURCE(7882, 93)
         if ((ref1_v10916 == 0)) {
SOURCE(7901, 74)
            {
               word var_c16400;
               word var_c16368;
               word var_c16432;
               word var_c16464;
               var_c16400 = XR_Narrow(ref1_v10916, (* (( (ptr) gf_c16976)+7) ));
               if ((var_c16400 == 0)) {
                  goto lab_L100094;
                  };
               if (((*(int*)var_c16400<0) == 0)) {
                  goto lab_L100094;
                  };
               (void) XR_RaiseError(XR_NarrowFault, 0);
               lab_L100094: ;
               var_c16368 =  (word) var_c16400;
               var_c16464 = XR_Narrow(ref2_v10944, (* (( (ptr) gf_c16976)+7) ));
               if ((var_c16464 == 0)) {
                  goto lab_L100095;
                  };
               if (((*(int*)var_c16464<0) == 0)) {
                  goto lab_L100095;
                  };
               (void) XR_RaiseError(XR_NarrowFault, 0);
               lab_L100095: ;
               var_c16432 =  (word) var_c16464;
               {
                  word pd23;
                  pd23 = (* (( (ptr) (* (( (ptr) gf_c16976)+68)/* var_c16080 */  ))+7) );
                  return((word) ( *( (fPt) ((*  (ptr) pd23 ))))(var_c16368, var_c16432, 1, pd23));
                  };
               };
            }
         else {
SOURCE(7975, 5)
            (void) XR_RaiseUnnamedError();
            };
         goto endif016;
         endif016: ;
         };
      };
   }

/* file: ListImpl, module: ListImpl, compiled at: February 21, 1992 5:10:14 pm PST */ 
extern void XR_install_ListImpl() {
   NoName_Q2676();
   }
extern void XR_run_ListImpl() { XR_Start(&globalframe); }