/[gcl]/gcl/lsp/assert.c
ViewVC logotype

Diff of /gcl/lsp/assert.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "assert.h"  #include "assert.h"
4  init_assert(){do_init(VV);}  void init_assert(){do_init(VV);}
5  /*      macro definition for CHECK-TYPE */  /*      macro definition for CHECK-TYPE */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 31  static L1() Line 31  static L1()
31          goto T4;}          goto T4;}
32          V4= base[4];          V4= base[4];
33          goto T2;          goto T2;
34    goto T4;
35  T4:;  T4:;
36          V4= list(2,VV[3],base[3]);          V4= list(2,VV[3],base[3]);
37    goto T2;
38  T2:;  T2:;
39          V5= list(6,VV[4],VV[5],VV[6],/* INLINE-ARGS */V3,base[2],V4);          V5= list(6,VV[4],VV[5],VV[6],/* INLINE-ARGS */V3,base[2],V4);
40          V6= (*(LnkLI53))(base[2]);          V6= (*(LnkLI53))(base[2]);
# Line 42  T2:; Line 44  T2:;
44  }  }
45  /*      macro definition for ASSERT     */  /*      macro definition for ASSERT     */
46    
47  static L2()  static void L2()
48  {register object *base=vs_base;  {register object *base=vs_base;
49          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
50          vs_reserve(VM2);          vs_reserve(VM2);
# Line 68  static L2() Line 70  static L2()
70          goto T10;}          goto T10;}
71          V9= listA(4,VV[4],VV[9],base[4],base[5]);          V9= listA(4,VV[4],VV[9],base[4],base[5]);
72          goto T8;          goto T8;
73    goto T10;
74  T10:;  T10:;
75          V9= list(4,VV[4],VV[10],VV[11],list(2,VV[3],base[2]));          V9= list(4,VV[4],VV[10],VV[11],list(2,VV[3],base[2]));
76    goto T8;
77  T8:;  T8:;
78          {object V11;          {object V11;
79          object V12= base[3];          object V12= base[3];
# Line 77  T8:; Line 81  T8:;
81          V10= Cnil;          V10= Cnil;
82          goto T12;}          goto T12;}
83          base[6]=V11=MMcons(Cnil,Cnil);          base[6]=V11=MMcons(Cnil,Cnil);
84    goto T13;
85  T13:;  T13:;
86          (V11->c.c_car)= (*(LnkLI53))((V12->c.c_car));          (V11->c.c_car)= (*(LnkLI53))((V12->c.c_car));
87          if(endp(V12=MMcdr(V12))){          if(endp(V12=MMcdr(V12))){
# Line 84  T13:; Line 89  T13:;
89          goto T12;}          goto T12;}
90          V11=MMcdr(V11)=MMcons(Cnil,Cnil);          V11=MMcdr(V11)=MMcons(Cnil,Cnil);
91          goto T13;}          goto T13;}
92    goto T12;
93  T12:;  T12:;
94          base[6]= listA(5,VV[0],VV[8],/* INLINE-ARGS */V8,V9,append(V10,VV[12]));          base[6]= listA(5,VV[0],VV[8],/* INLINE-ARGS */V8,V9,append(V10,VV[12]));
95          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 95  static object LI3(V14) Line 101  static object LI3(V14)
101    
102  object V14;  object V14;
103  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
104    goto TTL;
105  TTL:;  TTL:;
106          V15= list(4,VV[14],VV[15],VV[16],list(2,VV[3],(V14)));          V15= list(4,VV[14],VV[15],VV[16],list(2,VV[3],(V14)));
107          {object V16 = list(4,VV[13],/* INLINE-ARGS */V15,VV[17],list(3,VV[18],(V14),VV[19]));          {object V16 = list(4,VV[13],/* INLINE-ARGS */V15,VV[17],list(3,VV[18],(V14),VV[19]));
108          VMR3(V16)}          VMR3(V16)}
109            return Cnil;
110  }  }
111  /*      macro definition for ECASE      */  /*      macro definition for ECASE      */
112    
113  static L4()  static void L4()
114  {register object *base=vs_base;  {register object *base=vs_base;
115          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
116          vs_reserve(VM4);          vs_reserve(VM4);
# Line 127  static L4() Line 135  static L4()
135          V21= Cnil;          V21= Cnil;
136          goto T18;}          goto T18;}
137          base[5]=V22=MMcons(Cnil,Cnil);          base[5]=V22=MMcons(Cnil,Cnil);
138    goto T19;
139  T19:;  T19:;
140          {object V25= car((V23->c.c_car));          {object V25= car((V23->c.c_car));
141          if(!(type_of(V25)==t_cons||(V25)==Cnil)){          if(!(type_of(V25)==t_cons||(V25)==Cnil)){
# Line 137  T19:; Line 146  T19:;
146          (V22->c.c_cdr)= Cnil;          (V22->c.c_cdr)= Cnil;
147          goto T20;}          goto T20;}
148          base[6]=V26=MMcons(Cnil,Cnil);          base[6]=V26=MMcons(Cnil,Cnil);
149    goto T24;
150  T24:;  T24:;
151          (V26->c.c_car)= list(2,VV[3],(V27->c.c_car));          (V26->c.c_car)= list(2,VV[3],(V27->c.c_car));
152          if(endp(V27=MMcdr(V27))){          if(endp(V27=MMcdr(V27))){
# Line 144  T24:; Line 154  T24:;
154          goto T20;}          goto T20;}
155          V26=MMcdr(V26)=MMcons(Cnil,Cnil);          V26=MMcdr(V26)=MMcons(Cnil,Cnil);
156          goto T24;}          goto T24;}
157    goto T22;
158  T22:;  T22:;
159          V29= list(2,VV[3],car((V23->c.c_car)));          V29= list(2,VV[3],car((V23->c.c_car)));
160          (V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil);          (V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil);
161    goto T20;
162  T20:;  T20:;
163          while(!endp(MMcdr(V22)))V22=MMcdr(V22);          while(!endp(MMcdr(V22)))V22=MMcdr(V22);
164          if(endp(V23=MMcdr(V23))){          if(endp(V23=MMcdr(V23))){
# Line 154  T20:; Line 166  T20:;
166          V21= base[5];          V21= base[5];
167          goto T18;}          goto T18;}
168          goto T19;}          goto T19;}
169    goto T18;
170  T18:;  T18:;
171          V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21));          V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21));
172    goto T27;
173  T27:;  T27:;
174          if(!(endp((V18)))){          if(!(endp((V18)))){
175          goto T28;}          goto T28;}
# Line 163  T27:; Line 177  T27:;
177          base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19));          base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19));
178          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
179          return;          return;
180    goto T28;
181  T28:;  T28:;
182          if((caar((V18)))==Cnil){          if((caar((V18)))==Cnil){
183          goto T32;}          goto T32;}
# Line 171  T28:; Line 186  T28:;
186          goto T38;}}          goto T38;}}
187          V31= list(3,VV[25],base[4],list(2,VV[3],caar((V18))));          V31= list(3,VV[25],base[4],list(2,VV[3],caar((V18))));
188          goto T36;          goto T36;
189    goto T38;
190  T38:;  T38:;
191          V31= list(3,VV[26],base[4],list(2,VV[3],caar((V18))));          V31= list(3,VV[26],base[4],list(2,VV[3],caar((V18))));
192    goto T36;
193  T36:;  T36:;
194          V19= list(4,VV[24],V31,make_cons(VV[13],cdar((V18))),(V19));          V19= list(4,VV[24],V31,make_cons(VV[13],cdar((V18))),(V19));
195    goto T32;
196  T32:;  T32:;
197          V18= cdr((V18));          V18= cdr((V18));
198          goto T27;}          goto T27;}
199  }  }
200  /*      macro definition for CCASE      */  /*      macro definition for CCASE      */
201    
202  static L5()  static void L5()
203  {register object *base=vs_base;  {register object *base=vs_base;
204          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
205          vs_reserve(VM5);          vs_reserve(VM5);
# Line 204  static L5() Line 222  static L5()
222          V36= Cnil;          V36= Cnil;
223          goto T44;}          goto T44;}
224          base[5]=V37=MMcons(Cnil,Cnil);          base[5]=V37=MMcons(Cnil,Cnil);
225    goto T45;
226  T45:;  T45:;
227          {register object V39;          {register object V39;
228          V39= (V38->c.c_car);          V39= (V38->c.c_car);
# Line 212  T45:; Line 231  T45:;
231          goto T49;}}          goto T49;}}
232          V40= list(3,VV[25],base[4],list(2,VV[3],car((V39))));          V40= list(3,VV[25],base[4],list(2,VV[3],car((V39))));
233          goto T47;          goto T47;
234    goto T49;
235  T49:;  T49:;
236          V40= list(3,VV[26],base[4],list(2,VV[3],car((V39))));          V40= list(3,VV[26],base[4],list(2,VV[3],car((V39))));
237    goto T47;
238  T47:;  T47:;
239          (V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));}          (V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));}
240          if(endp(V38=MMcdr(V38))){          if(endp(V38=MMcdr(V38))){
# Line 221  T47:; Line 242  T47:;
242          goto T44;}          goto T44;}
243          V37=MMcdr(V37)=MMcons(Cnil,Cnil);          V37=MMcdr(V37)=MMcons(Cnil,Cnil);
244          goto T45;}          goto T45;}
245    goto T44;
246  T44:;  T44:;
247          V42= list(2,VV[3],base[2]);          V42= list(2,VV[3],base[2]);
248          {object V44;          {object V44;
# Line 229  T44:; Line 251  T44:;
251          V43= Cnil;          V43= Cnil;
252          goto T51;}          goto T51;}
253          base[5]=V44=MMcons(Cnil,Cnil);          base[5]=V44=MMcons(Cnil,Cnil);
254    goto T52;
255  T52:;  T52:;
256          {object V47= car((V45->c.c_car));          {object V47= car((V45->c.c_car));
257          if(!(type_of(V47)==t_cons||(V47)==Cnil)){          if(!(type_of(V47)==t_cons||(V47)==Cnil)){
# Line 239  T52:; Line 262  T52:;
262          (V44->c.c_cdr)= Cnil;          (V44->c.c_cdr)= Cnil;
263          goto T53;}          goto T53;}
264          base[6]=V48=MMcons(Cnil,Cnil);          base[6]=V48=MMcons(Cnil,Cnil);
265    goto T57;
266  T57:;  T57:;
267          (V48->c.c_car)= list(2,VV[3],(V49->c.c_car));          (V48->c.c_car)= list(2,VV[3],(V49->c.c_car));
268          if(endp(V49=MMcdr(V49))){          if(endp(V49=MMcdr(V49))){
# Line 246  T57:; Line 270  T57:;
270          goto T53;}          goto T53;}
271          V48=MMcdr(V48)=MMcons(Cnil,Cnil);          V48=MMcdr(V48)=MMcons(Cnil,Cnil);
272          goto T57;}          goto T57;}
273    goto T55;
274  T55:;  T55:;
275          V51= list(2,VV[3],car((V45->c.c_car)));          V51= list(2,VV[3],car((V45->c.c_car)));
276          (V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil);          (V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil);
277    goto T53;
278  T53:;  T53:;
279          while(!endp(MMcdr(V44)))V44=MMcdr(V44);          while(!endp(MMcdr(V44)))V44=MMcdr(V44);
280          if(endp(V45=MMcdr(V45))){          if(endp(V45=MMcdr(V45))){
# Line 256  T53:; Line 282  T53:;
282          V43= base[5];          V43= base[5];
283          goto T51;}          goto T51;}
284          goto T52;}          goto T52;}
285    goto T51;
286  T51:;  T51:;
287          V52= listA(6,VV[4],VV[31],VV[32],/* INLINE-ARGS */V42,base[4],V43);          V52= listA(6,VV[4],VV[31],VV[32],/* INLINE-ARGS */V42,base[4],V43);
288          V53= (*(LnkLI53))(base[2]);          V53= (*(LnkLI53))(base[2]);
# Line 267  T51:; Line 294  T51:;
294  }  }
295  /*      macro definition for TYPECASE   */  /*      macro definition for TYPECASE   */
296    
297  static L6()  static void L6()
298  {register object *base=vs_base;  {register object *base=vs_base;
299          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
300          vs_reserve(VM6);          vs_reserve(VM6);
# Line 287  static L6() Line 314  static L6()
314          vs_top=sup;          vs_top=sup;
315          V59= vs_base[0];          V59= vs_base[0];
316          V58= Cnil;          V58= Cnil;
317    goto T62;
318  T62:;  T62:;
319          if(!(endp((V57)))){          if(!(endp((V57)))){
320          goto T63;}          goto T63;}
# Line 294  T62:; Line 322  T62:;
322          base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58));          base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58));
323          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
324          return;          return;
325    goto T63;
326  T63:;  T63:;
327          if((caar((V57)))==(Ct)){          if((caar((V57)))==(Ct)){
328          goto T68;}          goto T68;}
329          if(!((caar((V57)))==(VV[34]))){          if(!((caar((V57)))==(VV[34]))){
330          goto T69;}          goto T69;}
331    goto T68;
332  T68:;  T68:;
333          V58= make_cons(VV[13],cdar((V57)));          V58= make_cons(VV[13],cdar((V57)));
334          goto T67;          goto T67;
335    goto T69;
336  T69:;  T69:;
337          V61= list(3,VV[2],(V59),list(2,VV[3],caar((V57))));          V61= list(3,VV[2],(V59),list(2,VV[3],caar((V57))));
338          V58= list(4,VV[24],/* INLINE-ARGS */V61,make_cons(VV[13],cdar((V57))),(V58));          V58= list(4,VV[24],/* INLINE-ARGS */V61,make_cons(VV[13],cdar((V57))),(V58));
339    goto T67;
340  T67:;  T67:;
341          V57= cdr((V57));          V57= cdr((V57));
342          goto T62;}          goto T62;}
343  }  }
344  /*      macro definition for ETYPECASE  */  /*      macro definition for ETYPECASE  */
345    
346  static L7()  static void L7()
347  {register object *base=vs_base;  {register object *base=vs_base;
348          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
349          vs_reserve(VM7);          vs_reserve(VM7);
# Line 336  static L7() Line 368  static L7()
368          V66= Cnil;          V66= Cnil;
369          goto T81;}          goto T81;}
370          base[5]=V67=MMcons(Cnil,Cnil);          base[5]=V67=MMcons(Cnil,Cnil);
371    goto T82;
372  T82:;  T82:;
373          (V67->c.c_car)= car((V68->c.c_car));          (V67->c.c_car)= car((V68->c.c_car));
374          if(endp(V68=MMcdr(V68))){          if(endp(V68=MMcdr(V68))){
# Line 343  T82:; Line 376  T82:;
376          goto T81;}          goto T81;}
377          V67=MMcdr(V67)=MMcons(Cnil,Cnil);          V67=MMcdr(V67)=MMcons(Cnil,Cnil);
378          goto T82;}          goto T82;}
379    goto T81;
380  T81:;  T81:;
381          V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66)));          V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66)));
382    goto T85;
383  T85:;  T85:;
384          if(!(endp((V63)))){          if(!(endp((V63)))){
385          goto T86;}          goto T86;}
# Line 352  T85:; Line 387  T85:;
387          base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64));          base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64));
388          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
389          return;          return;
390    goto T86;
391  T86:;  T86:;
392          V71= list(3,VV[2],base[4],list(2,VV[3],caar((V63))));          V71= list(3,VV[2],base[4],list(2,VV[3],caar((V63))));
393          V64= list(4,VV[24],/* INLINE-ARGS */V71,make_cons(VV[13],cdar((V63))),(V64));          V64= list(4,VV[24],/* INLINE-ARGS */V71,make_cons(VV[13],cdar((V63))),(V64));
# Line 360  T86:; Line 396  T86:;
396  }  }
397  /*      macro definition for CTYPECASE  */  /*      macro definition for CTYPECASE  */
398    
399  static L8()  static void L8()
400  {register object *base=vs_base;  {register object *base=vs_base;
401          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
402          vs_reserve(VM8);          vs_reserve(VM8);
# Line 383  static L8() Line 419  static L8()
419          V75= Cnil;          V75= Cnil;
420          goto T96;}          goto T96;}
421          base[5]=V76=MMcons(Cnil,Cnil);          base[5]=V76=MMcons(Cnil,Cnil);
422    goto T97;
423  T97:;  T97:;
424          V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car))));          V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car))));
425          (V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car)))));          (V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car)))));
# Line 391  T97:; Line 428  T97:;
428          goto T96;}          goto T96;}
429          V76=MMcdr(V76)=MMcons(Cnil,Cnil);          V76=MMcdr(V76)=MMcons(Cnil,Cnil);
430          goto T97;}          goto T97;}
431    goto T96;
432  T96:;  T96:;
433          V80= list(2,VV[3],base[2]);          V80= list(2,VV[3],base[2]);
434          {object V82;          {object V82;
# Line 399  T96:; Line 437  T96:;
437          V81= Cnil;          V81= Cnil;
438          goto T99;}          goto T99;}
439          base[5]=V82=MMcons(Cnil,Cnil);          base[5]=V82=MMcons(Cnil,Cnil);
440    goto T100;
441  T100:;  T100:;
442          (V82->c.c_car)= car((V83->c.c_car));          (V82->c.c_car)= car((V83->c.c_car));
443          if(endp(V83=MMcdr(V83))){          if(endp(V83=MMcdr(V83))){
# Line 406  T100:; Line 445  T100:;
445          goto T99;}          goto T99;}
446          V82=MMcdr(V82)=MMcons(Cnil,Cnil);          V82=MMcdr(V82)=MMcons(Cnil,Cnil);
447          goto T100;}          goto T100;}
448    goto T99;
449  T99:;  T99:;
450          V85= list(3,VV[4],VV[36],list(4,VV[35],/* INLINE-ARGS */V80,base[4],list(2,VV[3],V81)));          V85= list(3,VV[4],VV[36],list(4,VV[35],/* INLINE-ARGS */V80,base[4],list(2,VV[3],V81)));
451          V86= make_cons(/* INLINE-ARGS */V85,Cnil);          V86= make_cons(/* INLINE-ARGS */V85,Cnil);
# Line 421  static object LI9(V92,V93,V94) Line 461  static object LI9(V92,V93,V94)
461    
462  object V92;object V93;register object V94;  object V92;object V93;register object V94;
463  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
464    goto TTL;
465  TTL:;  TTL:;
466          {register object V95;          {register object V95;
467          register object V96;          register object V96;
# Line 428  TTL:; Line 469  TTL:;
469          V95= Cnil;          V95= Cnil;
470          V96= Cnil;          V96= Cnil;
471          V97= Cnil;          V97= Cnil;
472    goto T107;
473  T107:;  T107:;
474          if(!(endp((V94)))){          if(!(endp((V94)))){
475          goto T108;}          goto T108;}
476          goto T105;          goto T105;
477    goto T108;
478  T108:;  T108:;
479          if(!(type_of(car((V94)))==t_symbol)){          if(!(type_of(car((V94)))==t_symbol)){
480          goto T114;}          goto T114;}
# Line 441  T108:; Line 484  T108:;
484          V99= car((V94));          V99= car((V94));
485          V94= cdr((V94));          V94= cdr((V94));
486          goto T112;}          goto T112;}
487    goto T114;
488  T114:;  T114:;
489          {object V100= caar((V94));          {object V100= caar((V94));
490          if((V100!= VV[54]))goto T121;          if((V100!= VV[54]))goto T121;
491          V94= append(cdar((V94)),cdr((V94)));          V94= append(cdar((V94)),cdr((V94)));
492          goto T112;          goto T112;
493    goto T121;
494  T121:;  T121:;
495          if((V100!= VV[25]))goto T123;          if((V100!= VV[25]))goto T123;
496          {          {
497          object V101= cdar((V94));          object V101= cdar((V94));
498          if(endp(V101)){          if(endp(V101)){
499          goto T124;}          goto T124;}
500    goto T125;
501  T125:;  T125:;
502          {register object V102;          {register object V102;
503          V102= (V101->c.c_car);          V102= (V101->c.c_car);
# Line 461  T125:; Line 507  T125:;
507          (void)(cdar((V94)));          (void)(cdar((V94)));
508          goto T124;}          goto T124;}
509          goto T125;}          goto T125;}
510    goto T124;
511  T124:;  T124:;
512          {register object V104;          {register object V104;
513          V104= car((V94));          V104= car((V94));
514          V94= cdr((V94));          V94= cdr((V94));
515          goto T112;}          goto T112;}
516    goto T123;
517  T123:;  T123:;
518          if((V100!= VV[55]))goto T131;          if((V100!= VV[55]))goto T131;
519          V96= make_cons(cadar((V94)),(V96));          V96= make_cons(cadar((V94)),(V96));
# Line 473  T123:; Line 521  T123:;
521          V105= car((V94));          V105= car((V94));
522          V94= cdr((V94));          V94= cdr((V94));
523          goto T112;}          goto T112;}
524    goto T131;
525  T131:;  T131:;
526          V95= make_cons(car((V94)),(V95));          V95= make_cons(car((V94)),(V95));
527          {register object V106;          {register object V106;
528          V106= car((V94));          V106= car((V94));
529          V94= cdr((V94));}}          V94= cdr((V94));}}
530    goto T112;
531  T112:;  T112:;
532          goto T107;          goto T107;
533    goto T105;
534  T105:;  T105:;
535    goto T146;
536  T146:;  T146:;
537          if(!(endp((V96)))){          if(!(endp((V96)))){
538          goto T147;}          goto T147;}
539          goto T144;          goto T144;
540    goto T147;
541  T147:;  T147:;
542          if(!(type_of(car((V96)))==t_symbol)){          if(!(type_of(car((V96)))==t_symbol)){
543          goto T153;}          goto T153;}
# Line 494  T147:; Line 547  T147:;
547          V108= car((V96));          V108= car((V96));
548          V96= cdr((V96));          V96= cdr((V96));
549          goto T151;}          goto T151;}
550    goto T153;
551  T153:;  T153:;
552          if(!((caar((V96)))==(VV[38]))){          if(!((caar((V96)))==(VV[38]))){
553          goto T161;}          goto T161;}
554          V96= append(cdar((V96)),cdr((V96)));          V96= append(cdar((V96)),cdr((V96)));
555          goto T151;          goto T151;
556    goto T161;
557  T161:;  T161:;
558          V97= make_cons(car((V96)),(V97));          V97= make_cons(car((V96)),(V97));
559          {register object V109;          {register object V109;
560          V109= car((V96));          V109= car((V96));
561          V96= cdr((V96));}          V96= cdr((V96));}
562    goto T151;
563  T151:;  T151:;
564          goto T146;          goto T146;
565    goto T144;
566  T144:;  T144:;
567          base[0]= Cnil;          base[0]= Cnil;
568          base[1]= VV[39];          base[1]= VV[39];
# Line 518  T144:; Line 575  T144:;
575          base[5]= Cnil;          base[5]= Cnil;
576          goto T176;}          goto T176;}
577          base[6]=V110=MMcons(Cnil,Cnil);          base[6]=V110=MMcons(Cnil,Cnil);
578    goto T177;
579  T177:;  T177:;
580          (V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car));          (V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car));
581          while(!endp(MMcdr(V110)))V110=MMcdr(V110);          while(!endp(MMcdr(V110)))V110=MMcdr(V110);
# Line 526  T177:; Line 584  T177:;
584          base[5]= base[6];          base[5]= base[6];
585          goto T176;}          goto T176;}
586          goto T177;}          goto T177;}
587    goto T176;
588  T176:;  T176:;
589          base[6]= VV[41];          base[6]= VV[41];
590          V112 = make_fixnum(length((V95)));          V112 = make_fixnum(length((V95)));
# Line 536  T176:; Line 595  T176:;
595          V113= Cnil;          V113= Cnil;
596          goto T181;}          goto T181;}
597          base[8]=V114=MMcons(Cnil,Cnil);          base[8]=V114=MMcons(Cnil,Cnil);
598    goto T182;
599  T182:;  T182:;
600          (V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car));          (V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car));
601          while(!endp(MMcdr(V114)))V114=MMcdr(V114);          while(!endp(MMcdr(V114)))V114=MMcdr(V114);
# Line 544  T182:; Line 604  T182:;
604          V113= base[8];          V113= base[8];
605          goto T181;}          goto T181;}
606          goto T182;}          goto T182;}
607    goto T181;
608  T181:;  T181:;
609          base[7]= listA(3,(V97),V112,V113);          base[7]= listA(3,(V97),V112,V113);
610          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
# Line 551  T181:; Line 612  T181:;
612          vs_top=sup;          vs_top=sup;
613          {object V117 = vs_base[0];          {object V117 = vs_base[0];
614          VMR9(V117)}}          VMR9(V117)}}
615            base[0]=base[0];
616            return Cnil;
617  }  }
618  /*      local entry for function TYPECASE-ERROR-STRINGS */  /*      local entry for function TYPECASE-ERROR-STRINGS */
619    
# Line 558  static object LI10(V119) Line 621  static object LI10(V119)
621    
622  register object V119;  register object V119;
623  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
624    goto TTL;
625  TTL:;  TTL:;
626          if(!((car((V119)))==(VV[25]))){          if(!((car((V119)))==(VV[25]))){
627          goto T185;}switch(length(cdr((V119)))){          goto T185;}switch(length(cdr((V119)))){
628          case 0:          case 0:
629    goto T188;
630  T188:;  T188:;
631          {object V120 = VV[42];          {object V120 = VV[42];
632          VMR10(V120)}          VMR10(V120)}
633          case 1:          case 1:
634    goto T189;
635  T189:;  T189:;
636          {object V121 = list(2,VV[43],make_cons(cadr((V119)),Cnil));          {object V121 = list(2,VV[43],make_cons(cadr((V119)),Cnil));
637          VMR10(V121)}          VMR10(V121)}
638          case 2:          case 2:
639    goto T190;
640  T190:;  T190:;
641          {object V122 = list(2,VV[44],cdr((V119)));          {object V122 = list(2,VV[44],cdr((V119)));
642          VMR10(V122)}          VMR10(V122)}
643          default:          default:
644    goto T191;
645  T191:;  T191:;
646          {object V123 = list(2,VV[45],make_cons(cdr((V119)),Cnil));          {object V123 = list(2,VV[45],make_cons(cdr((V119)),Cnil));
647          VMR10(V123)}          VMR10(V123)}
# Line 581  T191:; Line 649  T191:;
649          VMR10(V124)}}          VMR10(V124)}}
650          {object V125 = Cnil;          {object V125 = Cnil;
651          VMR10(V125)}          VMR10(V125)}
652    goto T185;
653  T185:;  T185:;
654          if(!((car((V119)))==(VV[46]))){          if(!((car((V119)))==(VV[46]))){
655          goto T194;}          goto T194;}
656          {object V126 = list(2,VV[47],cdr((V119)));          {object V126 = list(2,VV[47],cdr((V119)));
657          VMR10(V126)}          VMR10(V126)}
658    goto T194;
659  T194:;  T194:;
660          if(endp(cdr((V119)))){          if(endp(cdr((V119)))){
661          goto T196;}          goto T196;}
662          if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){          if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){
663          goto T197;}          goto T197;}
664    goto T196;
665  T196:;  T196:;
666          {object V127;          {object V127;
667          {register object x= car((V119)),V128= VV[49];          {register object x= car((V119)),V128= VV[49];
# Line 600  T196:; Line 671  T196:;
671          goto T201;          goto T201;
672          }else V128=V128->c.c_cdr;          }else V128=V128->c.c_cdr;
673          V127= Cnil;}          V127= Cnil;}
674    goto T201;
675  T201:;  T201:;
676          if(((V127))==Cnil){          if(((V127))==Cnil){
677          goto T203;}          goto T203;}
678          {object V129 = list(2,cadr((V127)),Cnil);          {object V129 = list(2,cadr((V127)),Cnil);
679          VMR10(V129)}          VMR10(V129)}
680    goto T203;
681  T203:;  T203:;
682          V130= (*(LnkLI58))(car((V119)));          V130= (*(LnkLI58))(car((V119)));
683          {object V131 = list(2,VV[50],list(2,/* INLINE-ARGS */V130,car((V119))));          {object V131 = list(2,VV[50],list(2,/* INLINE-ARGS */V130,car((V119))));
684          VMR10(V131)}}          VMR10(V131)}}
685    goto T197;
686  T197:;  T197:;
687          V132= (*(LnkLI58))(car((V119)));          V132= (*(LnkLI58))(car((V119)));
688          {object V133 = list(2,VV[51],list(2,/* INLINE-ARGS */V132,(V119)));          {object V133 = list(2,VV[51],list(2,/* INLINE-ARGS */V132,(V119)));
689          VMR10(V133)}          VMR10(V133)}
690            return Cnil;
691  }  }
692  /*      local entry for function BOIN-P */  /*      local entry for function BOIN-P */
693    
# Line 620  static object LI11(V135) Line 695  static object LI11(V135)
695    
696  object V135;  object V135;
697  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
698    goto TTL;
699  TTL:;  TTL:;
700          V137= symbol_name((V135));          V137= symbol_name((V135));
701          V138= elt(/* INLINE-ARGS */V137,0);          V138= elt(/* INLINE-ARGS */V137,0);
# Line 631  TTL:; Line 707  TTL:;
707          }else V136=V136->c.c_cdr;          }else V136=V136->c.c_cdr;
708          {object V140 = Cnil;          {object V140 = Cnil;
709          VMR11(V140)}}          VMR11(V140)}}
710            return Cnil;
711  }  }
712  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* BOIN-P */  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* BOIN-P */
713  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[57],&LnkLI57,ap);} /* REMOVE */  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[57],(void **)&LnkLI57,ap);} /* REMOVE */
714  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* TYPECASE-ERROR-STRINGS */  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* TYPECASE-ERROR-STRINGS */
715  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* ASK-FOR-FORM */  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* ASK-FOR-FORM */
716    
717  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
718  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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