/[gcl]/gcl/pcl/pcl_cpl.c
ViewVC logotype

Diff of /gcl/pcl/pcl_cpl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Tue Sep 2 20:32:43 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 10  object V4;object V5;object V6; Line 10  object V4;object V5;object V6;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11          goto TTL;          goto TTL;
12  TTL:;  TTL:;
13            V8 = (V6);
14          base[0]= (V6);          base[0]= (V6);
15          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
16          (void) (*Lnk22)(Lclptr22);          (void) (*Lnk22)(Lclptr22);
17          vs_top=sup;          vs_top=sup;
18          V8= vs_base[0];          V9= vs_base[0];
19          {object V9 = (*(LnkLI21))((V6),V8);          {object V10 = (*(LnkLI21))(V8,V9);
20          VMR1(V9)}          VMR1(V10)}
21          base[0]=base[0];          base[0]=base[0];
22          return Cnil;          return Cnil;
23  }  }
# Line 26  static object LI2(object first,...) Line 27  static object LI2(object first,...)
27  {        {      
28          va_list ap;          va_list ap;
29          int narg = VFUN_NARGS; VMB2 VMS2 VMV2          int narg = VFUN_NARGS; VMB2 VMS2 VMV2
30          {object V10;          {object V11;
         object V11;  
31          object V12;          object V12;
32          object V13;          object V13;
33            object V14;
34          va_start(ap,first);          va_start(ap,first);
35          narg= narg - 0;          narg= narg - 0;
36          {          {
37          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI2key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI2key,first,ap);
38          V10=(Vcs[0]);          V11=(Vcs[0]);
39          V11=(Vcs[1]);          V12=(Vcs[1]);
40          V12=(Vcs[2]);          V13=(Vcs[2]);
41          V13=(Vcs[3]);          V14=(Vcs[3]);
42          base[0]= VV[0];          base[0]= VV[0];
43          base[1]= (V10);          base[1]= (V11);
44          base[2]= (V11);          base[2]= (V12);
45          base[3]= (V12);          base[3]= (V13);
46          base[4]= (V13);          base[4]= (V14);
47          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
48          siLmake_structure();          siLmake_structure();
49          vs_top=sup;          vs_top=sup;
50          {object V14 = vs_base[0];          {object V15 = vs_base[0];
51          VMR2(V14)}          VMR2(V15)}
52          va_end(ap);          va_end(ap);
53          base[0]=base[0];          base[0]=base[0];
54          return Cnil;}          return Cnil;}
# Line 67  TTL:; Line 68  TTL:;
68          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
69          siLmake_structure();          siLmake_structure();
70          vs_top=sup;          vs_top=sup;
71          {object V19 = vs_base[0];          {object V20 = vs_base[0];
72          VMR3(V19)}          VMR3(V20)}
73          base[0]=base[0];          base[0]=base[0];
74          return Cnil;          return Cnil;
75  }  }
76  /*      local entry for function COMPUTE-STD-CPL        */  /*      local entry for function COMPUTE-STD-CPL        */
77    
78  static object LI4(V22,V23)  static object LI4(V23,V24)
79    
80  register object V22;register object V23;  register object V23;register object V24;
81  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
82          goto TTL;          goto TTL;
83  TTL:;  TTL:;
84          if(((V23))!=Cnil){          if(((V24))!=Cnil){
85          goto T17;}          goto T17;}
86          {object V24 = make_cons((V22),Cnil);          {object V25 = make_cons((V23),Cnil);
87          VMR4(V24)}          VMR4(V25)}
88          goto T17;          goto T17;
89  T17:;  T17:;
90          if((CMPcdr((V23)))!=Cnil){          if((CMPcdr((V24)))!=Cnil){
91          goto T20;}          goto T20;}
92          V25= CMPcar((V23));          V26 = (V23);
93          base[0]= CMPcar((V23));          V27= CMPcar((V24));
94            base[0]= CMPcar((V24));
95          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
96          (void) (*Lnk22)(Lclptr22);          (void) (*Lnk22)(Lclptr22);
97          vs_top=sup;          vs_top=sup;
98          V26= vs_base[0];          V28= vs_base[0];
99          V27= (*(LnkLI21))(/* INLINE-ARGS */V25,V26);          V29= (*(LnkLI21))(/* INLINE-ARGS */V27,V28);
100          {object V28 = make_cons((V22),/* INLINE-ARGS */V27);          {object V30 = make_cons(V26,/* INLINE-ARGS */V29);
101          VMR4(V28)}          VMR4(V30)}
102          goto T20;          goto T20;
103  T20:;  T20:;
104          {object V29;          {object V31;
105          object V30;          object V32;
106          base[0]= (V22);          base[0]= (V23);
107          base[1]= (V23);          base[1]= (V24);
108          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
109          (void) (*Lnk28)();          (void) (*Lnk28)();
110          if(vs_base>=vs_top){vs_top=sup;goto T27;}          if(vs_base>=vs_top){vs_top=sup;goto T27;}
111          V29= vs_base[0];          V31= vs_base[0];
112          vs_base++;          vs_base++;
113          if(vs_base>=vs_top){vs_top=sup;goto T28;}          if(vs_base>=vs_top){vs_top=sup;goto T28;}
114          V30= vs_base[0];          V32= vs_base[0];
115          vs_top=sup;          vs_top=sup;
116          goto T29;          goto T29;
117          goto T27;          goto T27;
118  T27:;  T27:;
119          V29= Cnil;          V31= Cnil;
120          goto T28;          goto T28;
121  T28:;  T28:;
122          V30= Cnil;          V32= Cnil;
123          goto T29;          goto T29;
124  T29:;  T29:;
125          (void)((*(LnkLI29))((V29)));          (void)((*(LnkLI29))((V31)));
126          {object V31 = (*(LnkLI30))((V22),(V29),fix((V30)));          {object V33 = (*(LnkLI30))((V23),(V31),fix((V32)));
127          VMR4(V31)}}          VMR4(V33)}}
128          base[0]=base[0];          base[0]=base[0];
129          return Cnil;          return Cnil;
130  }  }
# Line 132  static void L5() Line 134  static void L5()
134  {register object *base=vs_base;  {register object *base=vs_base;
135          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
136          vs_check;          vs_check;
137          {object V32;          {object V34;
138          check_arg(2);          check_arg(2);
139          V32=(base[1]);          V34=(base[1]);
140          vs_top=sup;          vs_top=sup;
141          goto TTL;          goto TTL;
142  TTL:;  TTL:;
# Line 149  TTL:; Line 151  TTL:;
151          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
152          base[3]= Cnil;          base[3]= Cnil;
153          base[5]= base[0];          base[5]= base[0];
154          base[6]= (V32);          base[6]= (V34);
155          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
156          L7(base);          L7(base);
157          vs_top=sup;          vs_top=sup;
# Line 161  TTL:; Line 163  TTL:;
163  }  }
164  /*      local entry for function COMPUTE-STD-CPL-PHASE-2        */  /*      local entry for function COMPUTE-STD-CPL-PHASE-2        */
165    
166  static object LI8(V34)  static object LI8(V36)
167    
168  object V34;  object V36;
169  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
170          goto TTL;          goto TTL;
171  TTL:;  TTL:;
172          {register object V35;          {register object V37;
173          object V36;          object V38;
174          V35= (V34);          V37= (V36);
175          V36= CMPcar((V35));          V38= CMPcar((V37));
176          goto T44;          goto T44;
177  T44:;  T44:;
178          if(!(((V35))==Cnil)){          if(!(((V37))==Cnil)){
179          goto T45;}          goto T45;}
180          {object V37 = Cnil;          {object V39 = Cnil;
181          VMR6(V37)}          VMR6(V39)}
182          goto T45;          goto T45;
183  T45:;  T45:;
184          {register object V38;          {register object V40;
185          V38= STREF(object,(V36),4);          V40= STREF(object,(V38),4);
186          if(((V38))==Cnil){          if(((V40))==Cnil){
187          goto T49;}          goto T49;}
188          V39= nconc(STREF(object,(V36),8),(V38));          V41 = (V38);
189          V40= Ct;          V42= nconc(STREF(object,(V38),8),(V40));
         STSET(object,(V36),8, /* INLINE-ARGS */V39);  
         (void)(/* INLINE-ARGS */V39);  
         {object V41;  
         object V42;  
         V41= CMPcar((V38));  
         V42= number_plus(CMPmake_fixnum((long)STREF(fixnum,(V41),12)),small_fixnum(1));  
190          V43= Ct;          V43= Ct;
191          STSET(fixnum,(V41),12, fix((V42)));          STSET(object,V41,8, /* INLINE-ARGS */V42);
192          (void)(fix((V42)));}          (void)(/* INLINE-ARGS */V42);
193          {register object V44;          {object V44;
194          register object V45;          object V45;
195          V44= (V38);          V44= CMPcar((V40));
196          V45= CMPcdr((V44));          V45= number_plus(CMPmake_fixnum((long)STREF(fixnum,(V44),12)),small_fixnum(1));
197            V46 = (V44);
198            V47 = fix((V45));
199            V48= Ct;
200            STSET(fixnum,V46,12, V47);
201            (void)(V47);}
202            {register object V49;
203            register object V50;
204            V49= (V40);
205            V50= CMPcdr((V49));
206          goto T60;          goto T60;
207  T60:;  T60:;
208          if(((V45))!=Cnil){          if(((V50))!=Cnil){
209          goto T61;}          goto T61;}
210          goto T49;          goto T49;
211          goto T61;          goto T61;
212  T61:;  T61:;
213          {register object V46;          {register object V51;
214          object V47;          object V52;
215          V46= CMPcar((V45));          V51= CMPcar((V50));
216          V47= number_plus(CMPmake_fixnum((long)STREF(fixnum,(V46),12)),small_fixnum(2));          V52= number_plus(CMPmake_fixnum((long)STREF(fixnum,(V51),12)),small_fixnum(2));
217          V48= Ct;          V53 = (V51);
218          STSET(fixnum,(V46),12, fix((V47)));          V54 = fix((V52));
219          (void)(fix((V47)));}          V55= Ct;
220          {object V49;          STSET(fixnum,V53,12, V54);
221          register object V50;          (void)(V54);}
222          object V51;          {object V56;
223          V49= CMPcar((V45));          register object V57;
224          V50= CMPcar((V44));          object V58;
225          V51= make_cons((V49),STREF(object,(V50),8));          V56= CMPcar((V50));
226          V52= Ct;          V57= CMPcar((V49));
227          STSET(object,(V50),8, (V51));          V58= make_cons((V56),STREF(object,(V57),8));
228          (void)((V51));}          V59 = (V57);
229          V44= (V45);          V60 = (V58);
230          V45= CMPcdr((V44));          V61= Ct;
231            STSET(object,V59,8, V60);
232            (void)(V60);}
233            V49= (V50);
234            V50= CMPcdr((V49));
235          goto T60;}}          goto T60;}}
236          goto T49;          goto T49;
237  T49:;  T49:;
238          V35= CMPcdr((V35));          V37= CMPcdr((V37));
239          V36= CMPcar((V35));          V38= CMPcar((V37));
240          goto T44;}          goto T44;}
241          base[0]=base[0];          base[0]=base[0];
242          return Cnil;          return Cnil;
243  }  }
244  /*      local entry for function COMPUTE-STD-CPL-PHASE-3        */  /*      local entry for function COMPUTE-STD-CPL-PHASE-3        */
245    
246  static object LI9(V56,V57,V58)  static object LI9(V65,V66,V67)
247    
248  object V56;object V57;long V58;  object V65;object V66;long V67;
249  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
250          goto TTL;          goto TTL;
251  TTL:;  TTL:;
252          {register object V59;          {register object V68;
253          object V60;          object V69;
254          object V61;          object V70;
255          V59= Cnil;          V68= Cnil;
256          V60= Cnil;          V69= Cnil;
257          V61= Cnil;          V70= Cnil;
258          {object V62;          {object V71;
259          object V63;          object V72;
260          V62= (V57);          V71= (V66);
261          V63= CMPcar((V62));          V72= CMPcar((V71));
262          goto T86;          goto T86;
263  T86:;  T86:;
264          if(!(((V62))==Cnil)){          if(!(((V71))==Cnil)){
265          goto T87;}          goto T87;}
266          goto T82;          goto T82;
267          goto T87;          goto T87;
268  T87:;  T87:;
269          if(!(((long)STREF(fixnum,(V63),12))==0)){          if(!(((long)STREF(fixnum,(V72),12))==0)){
270          goto T91;}          goto T91;}
271          V59= make_cons(V63,(V59));          V68= make_cons(V72,(V68));
272          goto T91;          goto T91;
273  T91:;  T91:;
274          V62= CMPcdr((V62));          V71= CMPcdr((V71));
275          V63= CMPcar((V62));          V72= CMPcar((V71));
276          goto T86;}          goto T86;}
277          goto T82;          goto T82;
278  T82:;  T82:;
279          goto T101;          goto T101;
280  T101:;  T101:;
281          if(((V59))!=Cnil){          if(((V68))!=Cnil){
282          goto T103;}          goto T103;}
283          if(!((V58)==0)){          if(!((V67)==0)){
284          goto T107;}          goto T107;}
285          {object V65 = reverse((V61));          {object V74 = reverse((V70));
286          VMR7(V65)}          VMR7(V74)}
287          goto T107;          goto T107;
288  T107:;  T107:;
289          (void)((*(LnkLI32))((V56),(V57)));          (void)((*(LnkLI32))((V65),(V66)));
290          goto T103;          goto T103;
291  T103:;  T103:;
292          if((CMPcdr((V59)))!=Cnil){          if((CMPcdr((V68)))!=Cnil){
293          goto T112;}          goto T112;}
294          {object V66;          {object V75;
295          V66= CMPcar((V59));          V75= CMPcar((V68));
296          V59= Cnil;          V68= Cnil;
297          V60= (V66);          V69= (V75);
298          goto T110;}          goto T110;}
299          goto T112;          goto T112;
300  T112:;  T112:;
301          {register object V67;          {register object V76;
302          object V68;          object V77;
303          V67= (V61);          V76= (V70);
304          V68= CMPcar((V67));          V77= CMPcar((V76));
305          goto T120;          goto T120;
306  T120:;  T120:;
307          if(!(((V67))==Cnil)){          if(!(((V76))==Cnil)){
308          goto T121;}          goto T121;}
309          V60= Cnil;          V69= Cnil;
310          goto T110;          goto T110;
311          goto T121;          goto T121;
312  T121:;  T121:;
313          {object V69;          {object V78;
314          base[1]= (V68);          base[1]= (V77);
315          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
316          (void) (*Lnk22)(Lclptr22);          (void) (*Lnk22)(Lclptr22);
317          vs_top=sup;          vs_top=sup;
318          V69= vs_base[0];          V78= vs_base[0];
319          {register object x= STREF(object,CMPcar((V59)),0),V70= (V69);          {register object x= STREF(object,CMPcar((V68)),0),V79= (V78);
320          while(V70!=Cnil)          while(V79!=Cnil)
321          if(x==(V70->c.c_car)){          if(x==(V79->c.c_car)){
322          goto T130;          goto T130;
323          }else V70=V70->c.c_cdr;          }else V79=V79->c.c_cdr;
324          goto T129;}          goto T129;}
325          goto T130;          goto T130;
326  T130:;  T130:;
327          {object V71;          {object V80;
328          V71= CMPcar((V59));          V80= CMPcar((V68));
329          V59= CMPcdr((V59));          V68= CMPcdr((V68));
330          V60= (V71);          V69= (V80);
331          goto T110;}          goto T110;}
332          goto T129;          goto T129;
333  T129:;  T129:;
334          {register object V72;          {register object V81;
335          V72= (V59);          V81= (V68);
336          goto T135;          goto T135;
337  T135:;  T135:;
338          if((CMPcdr((V72)))!=Cnil){          if((CMPcdr((V81)))!=Cnil){
339          goto T136;}          goto T136;}
340          goto T125;          goto T125;
341          goto T136;          goto T136;
342  T136:;  T136:;
343          {register object V73;          {register object V82;
344          V73= CMPcadr((V72));          V82= CMPcadr((V81));
345          {register object x= STREF(object,(V73),0),V74= (V69);          {register object x= STREF(object,(V82),0),V83= (V78);
346          while(V74!=Cnil)          while(V83!=Cnil)
347          if(x==(V74->c.c_car)){          if(x==(V83->c.c_car)){
348          goto T143;          goto T143;
349          }else V74=V74->c.c_cdr;          }else V83=V83->c.c_cdr;
350          goto T140;}          goto T140;}
351          goto T143;          goto T143;
352  T143:;  T143:;
353          {register object V76;          {register object V85;
354          V76= CMPcddr((V72));          V85= CMPcddr((V81));
355          (V72)->c.c_cdr = (V76);}          (V81)->c.c_cdr = (V85);}
356          V60= (V73);          V69= (V82);
357          goto T110;}          goto T110;}
358          goto T140;          goto T140;
359  T140:;  T140:;
360          V72= CMPcdr((V72));          V81= CMPcdr((V81));
361          goto T135;}}          goto T135;}}
362          goto T125;          goto T125;
363  T125:;  T125:;
364          V67= CMPcdr((V67));          V76= CMPcdr((V76));
365          V68= CMPcar((V67));          V77= CMPcar((V76));
366          goto T120;}          goto T120;}
367          goto T110;          goto T110;
368  T110:;  T110:;
369          V58= (long)(V58)-(1);          V67= (long)(V67)-(1);
370          {object V77;          {object V86;
371          V77= STREF(object,(V60),0);          V86= STREF(object,(V69),0);
372          V61= make_cons((V77),(V61));}          V70= make_cons((V86),(V70));}
373          {register object V78;          {register object V87;
374          object V79;          object V88;
375          V78= STREF(object,(V60),8);          V87= STREF(object,(V69),8);
376          V79= CMPcar((V78));          V88= CMPcar((V87));
377          goto T163;          goto T163;
378  T163:;  T163:;
379          if(!(((V78))==Cnil)){          if(!(((V87))==Cnil)){
380          goto T164;}          goto T164;}
381          goto T102;          goto T102;
382          goto T164;          goto T164;
383  T164:;  T164:;
384          {object V82;          {object V91;
385          V82= number_minus(CMPmake_fixnum((long)STREF(fixnum,V79,12)),small_fixnum(1));          V91= number_minus(CMPmake_fixnum((long)STREF(fixnum,V88,12)),small_fixnum(1));
386          V83= Ct;          V92 = V88;
387          STSET(fixnum,V79,12, fix((V82)));          V93 = fix((V91));
388          V80= CMPmake_fixnum((long)fix((V82)));}          V94= Ct;
389          if(!(number_compare(small_fixnum(0),V80)==0)){          STSET(fixnum,V92,12, V93);
390            V89= CMPmake_fixnum((long)V93);}
391            if(!(number_compare(small_fixnum(0),V89)==0)){
392          goto T168;}          goto T168;}
393          V59= make_cons(V79,(V59));          V68= make_cons(V88,(V68));
394          goto T168;          goto T168;
395  T168:;  T168:;
396          V78= CMPcdr((V78));          V87= CMPcdr((V87));
397          V79= CMPcar((V78));          V88= CMPcar((V87));
398          goto T163;}          goto T163;}
399          goto T102;          goto T102;
400  T102:;  T102:;
# Line 393  T102:; Line 404  T102:;
404  }  }
405  /*      local entry for function CPL-ERROR      */  /*      local entry for function CPL-ERROR      */
406    
407  static object LI10(object V86,object V85,object first,...)  static object LI10(object V97,object V96,object first,...)
408  {        {      
409          va_list ap;          va_list ap;
410          int narg = VFUN_NARGS; VMB8 VMS8 VMV8          int narg = VFUN_NARGS; VMB8 VMS8 VMV8
411          {object V87;          {object V98;
412          object V88;          object V99;
413          object V89;          object V100;
414          va_start(ap,first);          va_start(ap,first);
415          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
416          V87= V86;          V98= V97;
417          V88= V85;          V99= V96;
418          narg= narg - 2;          narg= narg - 2;
419          V90 = list_vector_new(narg,first,ap);          V101 = list_vector_new(narg,first,ap);
420          V89= V90;          V100= V101;
421          base[0]= VV[4];          base[0]= VV[4];
422          base[2]= (V87);          base[2]= (V98);
423          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
424          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
425          vs_top=sup;          vs_top=sup;
# Line 416  static object LI10(object V86,object V85 Line 427  static object LI10(object V86,object V85
427          goto T183;}          goto T183;}
428          base[2]= Cnil;          base[2]= Cnil;
429          base[3]= VV[5];          base[3]= VV[5];
430          base[5]= (V87);          base[5]= (V98);
431          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
432          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
433          vs_top=sup;          vs_top=sup;
# Line 428  static object LI10(object V86,object V85 Line 439  static object LI10(object V86,object V85
439          goto T181;          goto T181;
440          goto T183;          goto T183;
441  T183:;  T183:;
442          base[1]= (V87);          base[1]= (V98);
443          goto T181;          goto T181;
444  T181:;  T181:;
445          base[3]= Cnil;          base[3]= Cnil;
446          base[4]= (V88);          base[4]= (V99);
447          {object V91;          {object V102;
448          V91= (V89);          V102= (V100);
449           vs_top=base+5;           vs_top=base+5;
450           while(V91!=Cnil)           while(V102!=Cnil)
451           {vs_push((V91)->c.c_car);V91=(V91)->c.c_cdr;}           {vs_push((V102)->c.c_car);V102=(V102)->c.c_cdr;}
452          vs_base=base+3;}          vs_base=base+3;}
453          Lformat();          Lformat();
454          vs_top=sup;          vs_top=sup;
# Line 445  T181:; Line 456  T181:;
456          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
457          Lerror();          Lerror();
458          vs_top=sup;          vs_top=sup;
459          {object V92 = vs_base[0];          {object V103 = vs_base[0];
460          VMR8(V92)}          VMR8(V103)}
461          va_end(ap);          va_end(ap);
462          base[0]=base[0];          base[0]=base[0];
463          return Cnil;}          return Cnil;}
464          }          }
465  /*      local entry for function CPL-FORWARD-REFERENCED-CLASS-ERROR     */  /*      local entry for function CPL-FORWARD-REFERENCED-CLASS-ERROR     */
466    
467  static object LI11(V95,V96)  static object LI11(V106,V107)
468    
469  register object V95;object V96;  register object V106;object V107;
470  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
471          goto TTL;          goto TTL;
472  TTL:;  TTL:;
473          {object V97;          {object V108;
474          base[1]= (V95);          base[1]= (V106);
475          base[2]= (V96);          base[2]= (V107);
476          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
477          (void) (*Lnk34)();          (void) (*Lnk34)();
478          vs_top=sup;          vs_top=sup;
479          V100= vs_base[0];          V111= vs_base[0];
480          {object V98;          {object V109;
481          object V99= CMPcdr(V100);          object V110= CMPcdr(V111);
482          if(V99==Cnil){          if(V110==Cnil){
483          V97= Cnil;          V108= Cnil;
484          goto T194;}          goto T194;}
485          base[0]=V98=MMcons(Cnil,Cnil);          base[0]=V109=MMcons(Cnil,Cnil);
486          goto T195;          goto T195;
487  T195:;  T195:;
488          base[1]= (V99->c.c_car);          base[1]= (V110->c.c_car);
489          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
490          L12(base);          L12(base);
491          vs_top=sup;          vs_top=sup;
492          (V98->c.c_car)= vs_base[0];          (V109->c.c_car)= vs_base[0];
493          if((V99=MMcdr(V99))==Cnil){          if((V110=MMcdr(V110))==Cnil){
494          V97= base[0];          V108= base[0];
495          goto T194;}          goto T194;}
496          V98=MMcdr(V98)=MMcons(Cnil,Cnil);          V109=MMcdr(V109)=MMcons(Cnil,Cnil);
497          goto T195;}          goto T195;}
498          goto T194;          goto T194;
499  T194:;  T194:;
500          base[0]= (V96);          V112 = (V106);
501            base[0]= (V107);
502          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
503          L12(base);          L12(base);
504          vs_top=sup;          vs_top=sup;
505          V101= vs_base[0];          V113= vs_base[0];
506          base[0]= (V96);          base[0]= (V107);
507          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
508          L12(base);          L12(base);
509          vs_top=sup;          vs_top=sup;
510          V102= vs_base[0];          V114= vs_base[0];
511          if((CMPcdr((V97)))!=Cnil){          if((CMPcdr((V108)))!=Cnil){
512          goto T207;}          goto T207;}
513          base[0]= Cnil;          base[0]= Cnil;
514          base[1]= VV[7];          base[1]= VV[7];
515          base[3]= (V95);          base[3]= (V106);
516          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
517          L12(base);          L12(base);
518          vs_top=sup;          vs_top=sup;
# Line 508  T194:; Line 520  T194:;
520          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
521          Lformat();          Lformat();
522          vs_top=sup;          vs_top=sup;
523          V103= vs_base[0];          V115= vs_base[0];
524          goto T205;          goto T205;
525          goto T207;          goto T207;
526  T207:;  T207:;
527          base[0]= Cnil;          base[0]= Cnil;
528          base[1]= VV[8];          base[1]= VV[8];
529          base[3]= (V95);          base[3]= (V106);
530          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
531          L12(base);          L12(base);
532          vs_top=sup;          vs_top=sup;
533          base[2]= vs_base[0];          base[2]= vs_base[0];
534          base[4]= Cnil;          base[4]= Cnil;
535          base[5]= VV[9];          base[5]= VV[9];
536          base[7]= (V97);          base[7]= (V108);
537          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
538          Lbutlast();          Lbutlast();
539          vs_top=sup;          vs_top=sup;
# Line 530  T207:; Line 542  T207:;
542          Lformat();          Lformat();
543          vs_top=sup;          vs_top=sup;
544          base[3]= vs_base[0];          base[3]= vs_base[0];
545          base[5]= (V97);          base[5]= (V108);
546          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
547          Llast();          Llast();
548          vs_top=sup;          vs_top=sup;
549          V104= vs_base[0];          V116= vs_base[0];
550          base[4]= CMPcar(V104);          base[4]= CMPcar(V116);
551          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
552          Lformat();          Lformat();
553          vs_top=sup;          vs_top=sup;
554          V103= vs_base[0];          V115= vs_base[0];
555          goto T205;          goto T205;
556  T205:;  T205:;
557          {object V105 = (VFUN_NARGS=5,(*(LnkLI35))((V95),VV[6],V101,V102,V103));          {object V117 = (VFUN_NARGS=5,(*(LnkLI35))(V112,VV[6],V113,V114,V115));
558          VMR9(V105)}}          VMR9(V117)}}
559          base[0]=base[0];          base[0]=base[0];
560          return Cnil;          return Cnil;
561  }  }
# Line 553  static void L13() Line 565  static void L13()
565  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
566          register object *VOL sup=base+VM10; VC10          register object *VOL sup=base+VM10; VC10
567          vs_check;          vs_check;
568          {VOL object V106;          {VOL object V118;
569          check_arg(2);          check_arg(2);
570          V106=(base[0]);          V118=(base[0]);
571          vs_top=sup;          vs_top=sup;
572          goto TTL;          goto TTL;
573  TTL:;  TTL:;
# Line 565  TTL:; Line 577  TTL:;
577          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
578          return;}          return;}
579          else{          else{
580          base[3]= (V106);          base[3]= (V118);
581          base[4]= make_cons((V106),Cnil);          base[4]= make_cons((V118),Cnil);
582          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
583          L14(base);          L14(base);
584          frs_pop();          frs_pop();
# Line 576  TTL:; Line 588  TTL:;
588  }  }
589  /*      local entry for function CPL-INCONSISTENT-ERROR */  /*      local entry for function CPL-INCONSISTENT-ERROR */
590    
591  static object LI15(V109,V110)  static object LI15(V121,V122)
592    
593  object V109;object V110;  object V121;object V122;
594  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
595          goto TTL;          goto TTL;
596  TTL:;  TTL:;
597          {object V111;          {object V123;
598          V111= (*(LnkLI36))((V110));          V123= (*(LnkLI36))((V122));
599          if((CMPcdr((V111)))==Cnil){          V124 = (V121);
600            if((CMPcdr((V123)))==Cnil){
601          goto T230;}          goto T230;}
602          V112= VV[12];          V125= VV[12];
603          goto T228;          goto T228;
604          goto T230;          goto T230;
605  T230:;  T230:;
606          V112= VV[13];          V125= VV[13];
607          goto T228;          goto T228;
608  T228:;  T228:;
609          if((CMPcdr((V111)))==Cnil){          if((CMPcdr((V123)))==Cnil){
610          goto T234;}          goto T234;}
611          V113= VV[14];          V126= VV[14];
612          goto T232;          goto T232;
613          goto T234;          goto T234;
614  T234:;  T234:;
615          V113= VV[15];          V126= VV[15];
616          goto T232;          goto T232;
617  T232:;  T232:;
618          {object V115;          {object V128;
619          V115= (V111);          V128= (V123);
620           vs_top=base+0;           vs_top=base+0;
621           while(V115!=Cnil)           while(V128!=Cnil)
622           {vs_push((V115)->c.c_car);V115=(V115)->c.c_cdr;}           {vs_push((V128)->c.c_car);V128=(V128)->c.c_cdr;}
623          vs_base=base+0;}          vs_base=base+0;}
624          Lappend();          Lappend();
625          vs_top=sup;          vs_top=sup;
626          V114= vs_base[0];          V127= vs_base[0];
627          V116= (*(LnkLI37))(V114);          V129= (*(LnkLI37))(V127);
628          {object V117 = (VFUN_NARGS=5,(*(LnkLI35))((V109),VV[11],V112,V113,/* INLINE-ARGS */V116));          {object V130 = (VFUN_NARGS=5,(*(LnkLI35))(V124,VV[11],V125,V126,/* INLINE-ARGS */V129));
629          VMR11(V117)}}          VMR11(V130)}}
630          base[0]=base[0];          base[0]=base[0];
631          return Cnil;          return Cnil;
632  }  }
633  /*      local entry for function FORMAT-CYCLE-REASONS   */  /*      local entry for function FORMAT-CYCLE-REASONS   */
634    
635  static object LI16(V119)  static object LI16(V132)
636    
637  object V119;  object V132;
638  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
639          goto TTL;          goto TTL;
640  TTL:;  TTL:;
641          {object V120;          {object V133;
642          object V121= (V119);          object V134= (V132);
643          if(V121==Cnil){          if(V134==Cnil){
644          {object V122 = Cnil;          {object V135 = Cnil;
645          VMR12(V122)}}          VMR12(V135)}}
646          base[0]=V120=MMcons(Cnil,Cnil);          base[0]=V133=MMcons(Cnil,Cnil);
647          goto T238;          goto T238;
648  T238:;  T238:;
649          {register object V123;          {register object V136;
650          V123= (V121->c.c_car);          V136= (V134->c.c_car);
651          {object V124= CMPcaddr((V123));          {object V137= CMPcaddr((V136));
652          if((V124!= VV[19]))goto T240;          if((V137!= VV[19]))goto T240;
653          base[1]= Cnil;          base[1]= Cnil;
654          base[2]= VV[16];          base[2]= VV[16];
655          base[4]= CMPcadr((V123));          base[4]= CMPcadr((V136));
656          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
657          L17(base);          L17(base);
658          vs_top=sup;          vs_top=sup;
659          base[3]= vs_base[0];          base[3]= vs_base[0];
660          base[5]= CMPcar((V123));          base[5]= CMPcar((V136));
661          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
662          L17(base);          L17(base);
663          vs_top=sup;          vs_top=sup;
# Line 652  T238:; Line 665  T238:;
665          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
666          Lformat();          Lformat();
667          vs_top=sup;          vs_top=sup;
668          (V120->c.c_car)= vs_base[0];          (V133->c.c_car)= vs_base[0];
669          goto T239;          goto T239;
670          goto T240;          goto T240;
671  T240:;  T240:;
672          if((V124!= VV[20]))goto T247;          if((V137!= VV[20]))goto T247;
673          base[1]= Cnil;          base[1]= Cnil;
674          base[2]= VV[17];          base[2]= VV[17];
675          base[4]= CMPcadr((V123));          base[4]= CMPcadr((V136));
676          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
677          L17(base);          L17(base);
678          vs_top=sup;          vs_top=sup;
679          base[3]= vs_base[0];          base[3]= vs_base[0];
680          base[5]= CMPcar((V123));          base[5]= CMPcar((V136));
681          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
682          L17(base);          L17(base);
683          vs_top=sup;          vs_top=sup;
684          base[4]= vs_base[0];          base[4]= vs_base[0];
685          base[6]= CMPcadddr((V123));          base[6]= CMPcadddr((V136));
686          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
687          L17(base);          L17(base);
688          vs_top=sup;          vs_top=sup;
# Line 677  T240:; Line 690  T240:;
690          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
691          Lformat();          Lformat();
692          vs_top=sup;          vs_top=sup;
693          (V120->c.c_car)= vs_base[0];          (V133->c.c_car)= vs_base[0];
694          goto T239;          goto T239;
695          goto T247;          goto T247;
696  T247:;  T247:;
697          FEerror("The ECASE key value ~s is illegal.",1,V124);          FEerror("The ECASE key value ~s is illegal.",1,V137);
698          (V120->c.c_car)= Cnil;          (V133->c.c_car)= Cnil;
699          goto T239;}}          goto T239;}}
700          goto T239;          goto T239;
701  T239:;  T239:;
702          if((V121=MMcdr(V121))==Cnil){          if((V134=MMcdr(V134))==Cnil){
703          {object V125 = base[0];          {object V138 = base[0];
704          VMR12(V125)}}          VMR12(V138)}}
705          V120=MMcdr(V120)=MMcons(Cnil,Cnil);          V133=MMcdr(V133)=MMcons(Cnil,Cnil);
706          goto T238;}          goto T238;}
707          base[0]=base[0];          base[0]=base[0];
708          return Cnil;          return Cnil;
709  }  }
710  /*      local entry for function FIND-CYCLE-REASONS     */  /*      local entry for function FIND-CYCLE-REASONS     */
711    
712  static object LI21(V127)  static object LI21(V140)
713    
714  object V127;  object V140;
715  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
716          goto TTL;          goto TTL;
717  TTL:;  TTL:;
718          base[0]= (V127);          base[0]= (V140);
719          base[1]= Cnil;          base[1]= Cnil;
720          base[2]= Cnil;          base[2]= Cnil;
721          {register object V128;          {register object V141;
722          object V129;          object V142;
723          V128= base[0];          V141= base[0];
724          V129= CMPcar((V128));          V142= CMPcar((V141));
725          goto T260;          goto T260;
726  T260:;  T260:;
727          if(!(((V128))==Cnil)){          if(!(((V141))==Cnil)){
728          goto T261;}          goto T261;}
729          goto T256;          goto T256;
730          goto T261;          goto T261;
731  T261:;  T261:;
732          if(((long)STREF(fixnum,(V129),12))==0){          if(((long)STREF(fixnum,(V142),12))==0){
733          goto T265;}          goto T265;}
734          base[4]= make_cons((V129),Cnil);          base[4]= make_cons((V142),Cnil);
735          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
736          L22(base);          L22(base);
737          vs_top=sup;          vs_top=sup;
738          goto T265;          goto T265;
739  T265:;  T265:;
740          V128= CMPcdr((V128));          V141= CMPcdr((V141));
741          V129= CMPcar((V128));          V142= CMPcar((V141));
742          goto T260;}          goto T260;}
743          goto T256;          goto T256;
744  T256:;  T256:;
745          {object V130 = base[2];          {object V143 = base[2];
746          VMR13(V130)}          VMR13(V143)}
747          base[0]=base[0];          base[0]=base[0];
748          return Cnil;          return Cnil;
749  }  }
# Line 741  register object *base0; Line 754  register object *base0;
754  {       register object *base=vs_base;  {       register object *base=vs_base;
755          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
756          vs_check;          vs_check;
757          {object V131;          {object V144;
758          check_arg(1);          check_arg(1);
759          V131=(base[0]);          V144=(base[0]);
760          vs_top=sup;          vs_top=sup;
761          goto TTL;          goto TTL;
762  TTL:;  TTL:;
763          {register object V132;          {register object V145;
764          V132= Cnil;          V145= Cnil;
765          {object V133;          {object V146;
766          object V134;          object V147;
767          V133= (V131);          V146= (V144);
768          V134= CMPcdr((V133));          V147= CMPcdr((V146));
769          goto T278;          goto T278;
770  T278:;  T278:;
771          if(((V134))!=Cnil){          if(((V147))!=Cnil){
772          goto T279;}          goto T279;}
773          goto T274;          goto T274;
774          goto T279;          goto T279;
775  T279:;  T279:;
776          {register object V135;          {register object V148;
777          register object V136;          register object V149;
778          V135= CMPcar((V133));          V148= CMPcar((V146));
779          V136= CMPcar((V134));          V149= CMPcar((V147));
780          {register object x= (V136),V137= STREF(object,(V135),4);          {register object x= (V149),V150= STREF(object,(V148),4);
781          while(V137!=Cnil)          while(V150!=Cnil)
782          if(x==(V137->c.c_car)){          if(x==(V150->c.c_car)){
783          goto T288;          goto T288;
784          }else V137=V137->c.c_cdr;          }else V150=V150->c.c_cdr;
785          goto T287;}          goto T287;}
786          goto T288;          goto T288;
787  T288:;  T288:;
788          {object V138;          {object V151;
789          V138= list(3,(V135),(V136),VV[19]);          V151= list(3,(V148),(V149),VV[19]);
790          V132= make_cons((V138),(V132));          V145= make_cons((V151),(V145));
791          goto T283;}          goto T283;}
792          goto T287;          goto T287;
793  T287:;  T287:;
794          {register object V139;          {register object V152;
795          register object V140;          register object V153;
796          V139= base0[0];          V152= base0[0];
797          V140= CMPcar((V139));          V153= CMPcar((V152));
798          goto T294;          goto T294;
799  T294:;  T294:;
800          if(!(((V139))==Cnil)){          if(!(((V152))==Cnil)){
801          goto T295;}          goto T295;}
802          goto T283;          goto T283;
803          goto T295;          goto T295;
804  T295:;  T295:;
805          {register object x= (V135),V143= STREF(object,(V140),4);          V155 = (V149);
806          while(V143!=Cnil)          {register object x= (V148),V157= STREF(object,(V153),4);
807          if(x==(V143->c.c_car)){          while(V157!=Cnil)
808          V142= V143;          if(x==(V157->c.c_car)){
809            V156= V157;
810          goto T302;          goto T302;
811          }else V143=V143->c.c_cdr;          }else V157=V157->c.c_cdr;
812          V142= Cnil;}          V156= Cnil;}
813          goto T302;          goto T302;
814  T302:;  T302:;
815          {register object x= (V136),V141= V142;          {register object x= V155,V154= V156;
816          while(V141!=Cnil)          while(V154!=Cnil)
817          if(x==(V141->c.c_car)){          if(x==(V154->c.c_car)){
818          goto T301;          goto T301;
819          }else V141=V141->c.c_cdr;          }else V154=V154->c.c_cdr;
820          goto T299;}          goto T299;}
821          goto T301;          goto T301;
822  T301:;  T301:;
823          {object V144;          {object V158;
824          V144= list(4,(V135),(V136),VV[20],(V140));          V158= list(4,(V148),(V149),VV[20],(V153));
825          V132= make_cons((V144),(V132));          V145= make_cons((V158),(V145));
826          goto T283;}          goto T283;}
827          goto T299;          goto T299;
828  T299:;  T299:;
829          V139= CMPcdr((V139));          V152= CMPcdr((V152));
830          V140= CMPcar((V139));          V153= CMPcar((V152));
831          goto T294;}}          goto T294;}}
832          goto T283;          goto T283;
833  T283:;  T283:;
834          V133= (V134);          V146= (V147);
835          V134= CMPcdr((V133));          V147= CMPcdr((V146));
836          goto T278;}          goto T278;}
837          goto T274;          goto T274;
838  T274:;  T274:;
839          {object V145;          {object V159;
840          V145= nreverse((V132));          V159= nreverse((V145));
841          base0[2]= make_cons((V145),base0[2]);          base0[2]= make_cons((V159),base0[2]);
842          base[2]= base0[2];          base[2]= base0[2];
843          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
844          return;}}          return;}}
# Line 837  register object *base0; Line 851  register object *base0;
851  {       register object *base=vs_base;  {       register object *base=vs_base;
852          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
853          vs_check;          vs_check;
854          {object V146;          {object V160;
855          check_arg(1);          check_arg(1);
856          V146=(base[0]);          V160=(base[0]);
857          vs_top=sup;          vs_top=sup;
858          goto TTL;          goto TTL;
859  TTL:;  TTL:;
860          {register object x= CMPcar((V146)),V147= CMPcdr((V146));          {register object x= CMPcar((V160)),V161= CMPcdr((V160));
861          while(V147!=Cnil)          while(V161!=Cnil)
862          if(x==(V147->c.c_car)){          if(x==(V161->c.c_car)){
863          goto T319;          goto T319;
864          }else V147=V147->c.c_cdr;          }else V161=V161->c.c_cdr;
865          goto T318;}          goto T318;}
866          goto T319;          goto T319;
867  T319:;  T319:;
868          V149= CMPcar((V146));          V163= CMPcar((V160));
869          V150= nreverse((V146));          V164= nreverse((V160));
870          {register object x= /* INLINE-ARGS */V149,V148= /* INLINE-ARGS */V150;          {register object x= /* INLINE-ARGS */V163,V162= /* INLINE-ARGS */V164;
871          while(V148!=Cnil)          while(V162!=Cnil)
872          if(x==(V148->c.c_car)){          if(x==(V162->c.c_car)){
873          base[1]= V148;          base[1]= V162;
874          goto T320;          goto T320;
875          }else V148=V148->c.c_cdr;          }else V162=V162->c.c_cdr;
876          base[1]= Cnil;}          base[1]= Cnil;}
877          goto T320;          goto T320;
878  T320:;  T320:;
# Line 867  T320:; Line 881  T320:;
881          return;          return;
882          goto T318;          goto T318;
883  T318:;  T318:;
884          {register object x= CMPcar((V146)),V151= base0[1];          {register object x= CMPcar((V160)),V165= base0[1];
885          while(V151!=Cnil)          while(V165!=Cnil)
886          if(x==(V151->c.c_car)){          if(x==(V165->c.c_car)){
887          goto T322;          goto T322;
888          }else V151=V151->c.c_cdr;}          }else V165=V165->c.c_cdr;}
889          {object V152;          {object V166;
890          V152= CMPcar((V146));          V166= CMPcar((V160));
891          base0[1]= make_cons((V152),base0[1]);}          base0[1]= make_cons((V166),base0[1]);}
892          {register object V153;          {register object V167;
893          object V154;          object V168;
894          V153= STREF(object,CMPcar((V146)),8);          V167= STREF(object,CMPcar((V160)),8);
895          V154= CMPcar((V153));          V168= CMPcar((V167));
896          goto T330;          goto T330;
897  T330:;  T330:;
898          if(!(((V153))==Cnil)){          if(!(((V167))==Cnil)){
899          goto T331;}          goto T331;}
900          base[3]= Cnil;          base[3]= Cnil;
901          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
902          return;          return;
903          goto T331;          goto T331;
904  T331:;  T331:;
905          base[3]= make_cons((V154),(V146));          base[3]= make_cons((V168),(V160));
906          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
907          L22(base0);          L22(base0);
908          vs_top=sup;          vs_top=sup;
909          V153= CMPcdr((V153));          V167= CMPcdr((V167));
910          V154= CMPcar((V153));          V168= CMPcar((V167));
911          goto T330;}          goto T330;}
912          goto T322;          goto T322;
913  T322:;  T322:;
# Line 909  register object *base0; Line 923  register object *base0;
923  {       register object *base=vs_base;  {       register object *base=vs_base;
924          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
925          vs_check;          vs_check;
926          {object V155;          {object V169;
927          check_arg(1);          check_arg(1);
928          V155=(base[0]);          V169=(base[0]);
929          vs_top=sup;          vs_top=sup;
930          goto TTL;          goto TTL;
931  TTL:;  TTL:;
932          {object V156;          {object V170;
933          V156= STREF(object,(V155),0);          V170= STREF(object,(V169),0);
934          base[1]= (V156);          base[1]= (V170);
935          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
936          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
937          vs_top=sup;          vs_top=sup;
# Line 925  TTL:; Line 939  TTL:;
939          goto T344;}          goto T344;}
940          base[1]= Cnil;          base[1]= Cnil;
941          base[2]= VV[18];          base[2]= VV[18];
942          base[4]= (V156);          base[4]= (V170);
943          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
944          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
945          vs_top=sup;          vs_top=sup;
# Line 935  TTL:; Line 949  TTL:;
949          return;          return;
950          goto T344;          goto T344;
951  T344:;  T344:;
952          base[1]= (V156);          base[1]= (V170);
953          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
954          return;}          return;}
955          }          }
# Line 947  register object *base0; Line 961  register object *base0;
961  {       register object *base=vs_base;  {       register object *base=vs_base;
962          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
963          vs_check;          vs_check;
964          {object V157;          {object V171;
965          register object V158;          register object V172;
966          check_arg(2);          check_arg(2);
967          V157=(base[0]);          V171=(base[0]);
968          V158=(base[1]);          V172=(base[1]);
969          vs_top=sup;          vs_top=sup;
970          goto TTL;          goto TTL;
971  TTL:;  TTL:;
972          if(!(((V157))==(base0[1]))){          if(!(((V171))==(base0[1]))){
973          goto T352;}          goto T352;}
974          base[2]= nreverse((V158));          base[2]= nreverse((V172));
975          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
976          unwind(frs_sch(base0[2]),Cnil);          unwind(frs_sch(base0[2]),Cnil);
977          goto T352;          goto T352;
978  T352:;  T352:;
979          {register object V159;          {register object V173;
980          register object V160;          register object V174;
981          base[4]= (V157);          base[4]= (V171);
982          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
983          (void) (*Lnk22)(Lclptr22);          (void) (*Lnk22)(Lclptr22);
984          vs_top=sup;          vs_top=sup;
985          V159= vs_base[0];          V173= vs_base[0];
986          V160= CMPcar((V159));          V174= CMPcar((V173));
987          goto T359;          goto T359;
988  T359:;  T359:;
989          if(!(((V159))==Cnil)){          if(!(((V173))==Cnil)){
990          goto T360;}          goto T360;}
991          base[4]= Cnil;          base[4]= Cnil;
992          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
993          return;          return;
994          goto T360;          goto T360;
995  T360:;  T360:;
996          base[4]= (V160);          base[4]= (V174);
997          base[5]= make_cons((V160),(V158));          base[5]= make_cons((V174),(V172));
998          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
999          L14(base0);          L14(base0);
1000          vs_top=sup;          vs_top=sup;
1001          V159= CMPcdr((V159));          V173= CMPcdr((V173));
1002          V160= CMPcar((V159));          V174= CMPcar((V173));
1003          goto T359;}          goto T359;}
1004          }          }
1005  }  }
# Line 996  register object *base0; Line 1010  register object *base0;
1010  {       register object *base=vs_base;  {       register object *base=vs_base;
1011          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1012          vs_check;          vs_check;
1013          {object V161;          {object V175;
1014          check_arg(1);          check_arg(1);
1015          V161=(base[0]);          V175=(base[0]);
1016          vs_top=sup;          vs_top=sup;
1017          goto TTL;          goto TTL;
1018  TTL:;  TTL:;
1019          base[1]= (V161);          base[1]= (V175);
1020          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1021          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
1022          vs_top=sup;          vs_top=sup;
# Line 1010  TTL:; Line 1024  TTL:;
1024          goto T373;}          goto T373;}
1025          base[1]= Cnil;          base[1]= Cnil;
1026          base[2]= VV[10];          base[2]= VV[10];
1027          base[4]= (V161);          base[4]= (V175);
1028          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1029          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
1030          vs_top=sup;          vs_top=sup;
# Line 1020  TTL:; Line 1034  TTL:;
1034          return;          return;
1035          goto T373;          goto T373;
1036  T373:;  T373:;
1037          base[1]= (V161);          base[1]= (V175);
1038          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1039          return;          return;
1040          }          }
# Line 1032  register object *base0; Line 1046  register object *base0;
1046  {       register object *base=vs_base;  {       register object *base=vs_base;
1047          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1048          vs_check;          vs_check;
1049          {object V162;          {object V176;
1050          check_arg(1);          check_arg(1);
1051          V162=(base[0]);          V176=(base[0]);
1052          vs_top=sup;          vs_top=sup;
1053          goto TTL;          goto TTL;
1054  TTL:;{object V163;  TTL:;{object V177;
1055          base[1]= (V162);          base[1]= (V176);
1056          base[2]= base0[4];          base[2]= base0[4];
1057          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1058          Lgethash();          Lgethash();
1059          vs_top=sup;          vs_top=sup;
1060          V163= vs_base[0];          V177= vs_base[0];
1061          if(V163==Cnil)goto T380;          if(V177==Cnil)goto T380;
1062          base[1]= V163;          base[1]= V177;
1063          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1064          return;          return;
1065          goto T380;          goto T380;
1066  T380:;}  T380:;}
1067          {object V166;          {object V180;
1068          V166= (*(LnkLI38))();          V180= (*(LnkLI38))();
1069          base[2]= V162;          base[2]= V176;
1070          base[3]= base0[4];          base[3]= base0[4];
1071          base[4]= (V166);          base[4]= (V180);
1072          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1073          siLhash_set();          siLhash_set();
1074          return;}          return;}
# Line 1067  register object *base0; Line 1081  register object *base0;
1081  {       register object *base=vs_base;  {       register object *base=vs_base;
1082          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1083          vs_check;          vs_check;
1084          {register object V167;          {register object V181;
1085          object V168;          object V182;
1086          check_arg(2);          check_arg(2);
1087          V167=(base[0]);          V181=(base[0]);
1088          V168=(base[1]);          V182=(base[1]);
1089          vs_top=sup;          vs_top=sup;
1090          goto TTL;          goto TTL;
1091  TTL:;  TTL:;
1092          base[2]= (V167);          base[2]= (V181);
1093          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1094          (void) (*Lnk39)(Lclptr39);          (void) (*Lnk39)(Lclptr39);
1095          vs_top=sup;          vs_top=sup;
1096          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1097          goto T389;}          goto T389;}
1098          base[2]= (*(LnkLI40))(base0[0],(V167));          base[2]= (*(LnkLI40))(base0[0],(V181));
1099          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1100          return;          return;
1101          goto T389;          goto T389;
1102  T389:;  T389:;
1103          {register object V169;          {register object V183;
1104          base[2]= (V167);          base[2]= (V181);
1105          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1106          L6(base0);          L6(base0);
1107          vs_top=sup;          vs_top=sup;
1108          V169= vs_base[0];          V183= vs_base[0];
1109          if((STREF(object,(V169),0))!=Cnil){          if((STREF(object,(V183),0))!=Cnil){
1110          goto T395;}          goto T395;}
1111          V170= Ct;          V184 = (V183);
1112          STSET(object,(V169),0, (V167));          V185 = (V181);
1113          (void)((V167));          V186= Ct;
1114            STSET(object,V184,0, V185);
1115            (void)(V185);
1116          base0[2]= CMPmake_fixnum((long)(fix(base0[2]))+(1));          base0[2]= CMPmake_fixnum((long)(fix(base0[2]))+(1));
1117          base0[3]= make_cons(V169,base0[3]);          base0[3]= make_cons(V183,base0[3]);
1118          {object V173;          V188 = (V183);
1119          object V174= (V168);          {object V190;
1120          if(V174==Cnil){          object V191= (V182);
1121          V172= Cnil;          if(V191==Cnil){
1122            V189= Cnil;
1123          goto T403;}          goto T403;}
1124          base[2]=V173=MMcons(Cnil,Cnil);          base[2]=V190=MMcons(Cnil,Cnil);
1125          goto T404;          goto T404;
1126  T404:;  T404:;
1127          base[3]= (V174->c.c_car);          base[3]= (V191->c.c_car);
1128          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1129          L6(base0);          L6(base0);
1130          vs_top=sup;          vs_top=sup;
1131          (V173->c.c_car)= vs_base[0];          (V190->c.c_car)= vs_base[0];
1132          if((V174=MMcdr(V174))==Cnil){          if((V191=MMcdr(V191))==Cnil){
1133          V172= base[2];          V189= base[2];
1134          goto T403;}          goto T403;}
1135          V173=MMcdr(V173)=MMcons(Cnil,Cnil);          V190=MMcdr(V190)=MMcons(Cnil,Cnil);
1136          goto T404;}          goto T404;}
1137          goto T403;          goto T403;
1138  T403:;  T403:;
1139          V175= Ct;          V192= Ct;
1140          STSET(object,(V169),4, V172);          STSET(object,V188,4, V189);
1141          (void)(V172);          (void)(V189);
1142          {register object V176;          {register object V193;
1143          register object V177;          register object V194;
1144          V176= (V168);          V193= (V182);
1145          V177= CMPcar((V176));          V194= CMPcar((V193));
1146          goto T410;          goto T410;
1147  T410:;  T410:;
1148          if(!(((V176))==Cnil)){          if(!(((V193))==Cnil)){
1149          goto T411;}          goto T411;}
1150          base[3]= Cnil;          base[3]= Cnil;
1151          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1152          return;          return;
1153          goto T411;          goto T411;
1154  T411:;  T411:;
1155          base[3]= (V177);          base[3]= (V194);
1156          base[5]= (V177);          base[5]= (V194);
1157          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1158          (void) (*Lnk22)(Lclptr22);          (void) (*Lnk22)(Lclptr22);
1159          vs_top=sup;          vs_top=sup;
# Line 1144  T411:; Line 1161  T411:;
1161          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1162          L7(base0);          L7(base0);
1163          vs_top=sup;          vs_top=sup;
1164          V176= CMPcdr((V176));          V193= CMPcdr((V193));
1165          V177= CMPcar((V176));          V194= CMPcar((V193));
1166          goto T410;}          goto T410;}
1167          goto T395;          goto T395;
1168  T395:;  T395:;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26