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

Diff of /gcl/lsp/defpackage.c

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

revision 1.15 by camm, Wed Feb 26 22:21:36 2003 UTC revision 1.16 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 19  static void L1() Line 19  static void L1()
19          register object V3;          register object V3;
20          V2= Cnil;          V2= Cnil;
21          V3= base[3];          V3= base[3];
22  goto T3;          goto T3;
23  T3:;  T3:;
24          if(((V3))==Cnil){          if(((V3))==Cnil){
25          goto T6;}          goto T6;}
26          goto T5;          goto T5;
27  goto T6;          goto T6;
28  T6:;  T6:;
29          goto T4;          goto T4;
30  goto T5;          goto T5;
31  T5:;  T5:;
32          {register object V4;          {register object V4;
33          V4= car((V3));          V4= car((V3));
# Line 43  T5:; Line 43  T5:;
43          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
44          Lcerror();          Lcerror();
45          vs_top=sup;          vs_top=sup;
46  goto T11;          goto T11;
47  T11:;  T11:;
48          V3= cdr((V3));          V3= cdr((V3));
49          goto T3;          goto T3;
50  goto T4;          goto T4;
51  T4:;  T4:;
52          goto T1;          goto T1;
53          goto T1;}          goto T1;}
54  goto T1;          goto T1;
55  T1:;  T1:;
56          base[4]=MMcons(Cnil,Cnil);          base[4]=MMcons(Cnil,Cnil);
57          (base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata);          (base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata);
# Line 59  T1:; Line 59  T1:;
59          register object V7;          register object V7;
60          V6= Cnil;          V6= Cnil;
61          V7= VV[3];          V7= VV[3];
62  goto T22;          goto T22;
63  T22:;  T22:;
64          if(((V7))==Cnil){          if(((V7))==Cnil){
65          goto T25;}          goto T25;}
66          goto T24;          goto T24;
67  goto T25;          goto T25;
68  T25:;  T25:;
69          goto T23;          goto T23;
70  goto T24;          goto T24;
71  T24:;  T24:;
72          {register object V8;          {register object V8;
73          V8= car((V7));          V8= car((V7));
# Line 82  T24:; Line 82  T24:;
82          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
83          (void) (*Lnk72)();          (void) (*Lnk72)();
84          vs_top=sup;          vs_top=sup;
85  goto T30;          goto T30;
86  T30:;  T30:;
87          V7= cdr((V7));          V7= cdr((V7));
88          goto T22;          goto T22;
89  goto T23;          goto T23;
90  T23:;  T23:;
91          goto T20;          goto T20;
92          goto T20;}          goto T20;}
93  goto T20;          goto T20;
94  T20:;  T20:;
95          base[2]= coerce_to_string(base[2]);          base[2]= coerce_to_string(base[2]);
96          {object V11;          {object V11;
# Line 114  T20:; Line 114  T20:;
114          V11= Cnil;          V11= Cnil;
115          goto T42;}          goto T42;}
116          base[5]=V20=MMcons(Cnil,Cnil);          base[5]=V20=MMcons(Cnil,Cnil);
117  goto T43;          goto T43;
118  T43:;  T43:;
119          (V20->c.c_car)= coerce_to_string((V21->c.c_car));          (V20->c.c_car)= coerce_to_string((V21->c.c_car));
120          V21=MMcdr(V21);          V21=MMcdr(V21);
# Line 123  T43:; Line 123  T43:;
123          goto T42;}          goto T42;}
124          V20=MMcdr(V20)=MMcons(Cnil,Cnil);          V20=MMcdr(V20)=MMcons(Cnil,Cnil);
125          goto T43;}          goto T43;}
126  goto T42;          goto T42;
127  T42:;  T42:;
128          base[5]= VV[8];          base[5]= VV[8];
129          base[6]= base[3];          base[6]= base[3];
# Line 151  T42:; Line 151  T42:;
151          V14= Cnil;          V14= Cnil;
152          goto T56;}          goto T56;}
153          base[5]=V25=MMcons(Cnil,Cnil);          base[5]=V25=MMcons(Cnil,Cnil);
154  goto T57;          goto T57;
155  T57:;  T57:;
156          (V25->c.c_car)= coerce_to_string((V26->c.c_car));          (V25->c.c_car)= coerce_to_string((V26->c.c_car));
157          V26=MMcdr(V26);          V26=MMcdr(V26);
# Line 160  T57:; Line 160  T57:;
160          goto T56;}          goto T56;}
161          V25=MMcdr(V25)=MMcons(Cnil,Cnil);          V25=MMcdr(V25)=MMcons(Cnil,Cnil);
162          goto T57;}          goto T57;}
163  goto T56;          goto T56;
164  T56:;  T56:;
165          base[6]= VV[11];          base[6]= VV[11];
166          base[7]= base[3];          base[7]= base[3];
# Line 174  T56:; Line 174  T56:;
174          V15= Cnil;          V15= Cnil;
175          goto T62;}          goto T62;}
176          base[5]=V28=MMcons(Cnil,Cnil);          base[5]=V28=MMcons(Cnil,Cnil);
177  goto T63;          goto T63;
178  T63:;  T63:;
179          (V28->c.c_car)= coerce_to_string((V29->c.c_car));          (V28->c.c_car)= coerce_to_string((V29->c.c_car));
180          V29=MMcdr(V29);          V29=MMcdr(V29);
# Line 183  T63:; Line 183  T63:;
183          goto T62;}          goto T62;}
184          V28=MMcdr(V28)=MMcons(Cnil,Cnil);          V28=MMcdr(V28)=MMcons(Cnil,Cnil);
185          goto T63;}          goto T63;}
186  goto T62;          goto T62;
187  T62:;  T62:;
188          base[6]= VV[12];          base[6]= VV[12];
189          base[7]= base[3];          base[7]= base[3];
# Line 197  T62:; Line 197  T62:;
197          V16= Cnil;          V16= Cnil;
198          goto T68;}          goto T68;}
199          base[5]=V31=MMcons(Cnil,Cnil);          base[5]=V31=MMcons(Cnil,Cnil);
200  goto T69;          goto T69;
201  T69:;  T69:;
202          (V31->c.c_car)= coerce_to_string((V32->c.c_car));          (V31->c.c_car)= coerce_to_string((V32->c.c_car));
203          V32=MMcdr(V32);          V32=MMcdr(V32);
# Line 206  T69:; Line 206  T69:;
206          goto T68;}          goto T68;}
207          V31=MMcdr(V31)=MMcons(Cnil,Cnil);          V31=MMcdr(V31)=MMcons(Cnil,Cnil);
208          goto T69;}          goto T69;}
209  goto T68;          goto T68;
210  T68:;  T68:;
211          {register object V34;          {register object V34;
212          register object V35;          register object V35;
# Line 223  T68:; Line 223  T68:;
223          V36= Cnil;          V36= Cnil;
224          V37= Cnil;          V37= Cnil;
225          V38= Cnil;          V38= Cnil;
226  goto T79;          goto T79;
227  T79:;  T79:;
228          if(((V35))==Cnil){          if(((V35))==Cnil){
229          goto T82;}          goto T82;}
230          goto T81;          goto T81;
231  goto T82;          goto T82;
232  T82:;  T82:;
233          goto T80;          goto T80;
234  goto T81;          goto T81;
235  T81:;  T81:;
236          {register object V39;          {register object V39;
237          V39= car((V35));          V39= car((V35));
# Line 243  T81:; Line 243  T81:;
243          V41= Cnil;          V41= Cnil;
244          goto T89;}          goto T89;}
245          base[5]=V42=MMcons(Cnil,Cnil);          base[5]=V42=MMcons(Cnil,Cnil);
246  goto T90;          goto T90;
247  T90:;  T90:;
248          (V42->c.c_car)= coerce_to_string((V43->c.c_car));          (V42->c.c_car)= coerce_to_string((V43->c.c_car));
249          V43=MMcdr(V43);          V43=MMcdr(V43);
# Line 252  T90:; Line 252  T90:;
252          goto T89;}          goto T89;}
253          V42=MMcdr(V42)=MMcons(Cnil,Cnil);          V42=MMcdr(V42)=MMcons(Cnil,Cnil);
254          goto T90;}          goto T90;}
255  goto T89;          goto T89;
256  T89:;  T89:;
257          V38= make_cons(/* INLINE-ARGS */V40,V41);          V38= make_cons(/* INLINE-ARGS */V40,V41);
258          if(((V37))==Cnil){          if(((V37))==Cnil){
# Line 265  T89:; Line 265  T89:;
265          if(type_of((V44))!=t_cons)FEwrong_type_argument(Scons,(V44));          if(type_of((V44))!=t_cons)FEwrong_type_argument(Scons,(V44));
266          ((V44))->c.c_cdr = (V45);          ((V44))->c.c_cdr = (V45);
267          goto T92;}          goto T92;}
268  goto T94;          goto T94;
269  T94:;  T94:;
270          V37= make_cons((V38),Cnil);          V37= make_cons((V38),Cnil);
271          V36= (V37);          V36= (V37);
272  goto T92;          goto T92;
273  T92:;  T92:;
274          V35= cdr((V35));          V35= cdr((V35));
275          goto T79;          goto T79;
276  goto T80;          goto T80;
277  T80:;  T80:;
278          V17= (V36);          V17= (V36);
279          goto T74;          goto T74;
# Line 281  T80:; Line 281  T80:;
281          goto T74;          goto T74;
282          V17= Cnil;          V17= Cnil;
283          goto T74;}}          goto T74;}}
284  goto T74;          goto T74;
285  T74:;  T74:;
286          {register object V46;          {register object V46;
287          register object V47;          register object V47;
# Line 298  T74:; Line 298  T74:;
298          V48= Cnil;          V48= Cnil;
299          V49= Cnil;          V49= Cnil;
300          V50= Cnil;          V50= Cnil;
301  goto T111;          goto T111;
302  T111:;  T111:;
303          if(((V47))==Cnil){          if(((V47))==Cnil){
304          goto T114;}          goto T114;}
305          goto T113;          goto T113;
306  goto T114;          goto T114;
307  T114:;  T114:;
308          goto T112;          goto T112;
309  goto T113;          goto T113;
310  T113:;  T113:;
311          {register object V51;          {register object V51;
312          V51= car((V47));          V51= car((V47));
# Line 318  T113:; Line 318  T113:;
318          V53= Cnil;          V53= Cnil;
319          goto T121;}          goto T121;}
320          base[5]=V54=MMcons(Cnil,Cnil);          base[5]=V54=MMcons(Cnil,Cnil);
321  goto T122;          goto T122;
322  T122:;  T122:;
323          (V54->c.c_car)= coerce_to_string((V55->c.c_car));          (V54->c.c_car)= coerce_to_string((V55->c.c_car));
324          V55=MMcdr(V55);          V55=MMcdr(V55);
# Line 327  T122:; Line 327  T122:;
327          goto T121;}          goto T121;}
328          V54=MMcdr(V54)=MMcons(Cnil,Cnil);          V54=MMcdr(V54)=MMcons(Cnil,Cnil);
329          goto T122;}          goto T122;}
330  goto T121;          goto T121;
331  T121:;  T121:;
332          V50= make_cons(/* INLINE-ARGS */V52,V53);          V50= make_cons(/* INLINE-ARGS */V52,V53);
333          if(((V49))==Cnil){          if(((V49))==Cnil){
# Line 340  T121:; Line 340  T121:;
340          if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));          if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));
341          ((V56))->c.c_cdr = (V57);          ((V56))->c.c_cdr = (V57);
342          goto T124;}          goto T124;}
343  goto T126;          goto T126;
344  T126:;  T126:;
345          V49= make_cons((V50),Cnil);          V49= make_cons((V50),Cnil);
346          V48= (V49);          V48= (V49);
347  goto T124;          goto T124;
348  T124:;  T124:;
349          V47= cdr((V47));          V47= cdr((V47));
350          goto T111;          goto T111;
351  goto T112;          goto T112;
352  T112:;  T112:;
353          V18= (V48);          V18= (V48);
354          goto T106;          goto T106;
# Line 356  T112:; Line 356  T112:;
356          goto T106;          goto T106;
357          V18= Cnil;          V18= Cnil;
358          goto T106;}}          goto T106;}}
359  goto T106;          goto T106;
360  T106:;  T106:;
361          base[6]= VV[15];          base[6]= VV[15];
362          base[7]= base[3];          base[7]= base[3];
# Line 370  T106:; Line 370  T106:;
370          V19= Cnil;          V19= Cnil;
371          goto T138;}          goto T138;}
372          base[5]=V58=MMcons(Cnil,Cnil);          base[5]=V58=MMcons(Cnil,Cnil);
373  goto T139;          goto T139;
374  T139:;  T139:;
375          (V58->c.c_car)= coerce_to_string((V59->c.c_car));          (V58->c.c_car)= coerce_to_string((V59->c.c_car));
376          V59=MMcdr(V59);          V59=MMcdr(V59);
# Line 379  T139:; Line 379  T139:;
379          goto T138;}          goto T138;}
380          V58=MMcdr(V58)=MMcons(Cnil,Cnil);          V58=MMcdr(V58)=MMcons(Cnil,Cnil);
381          goto T139;}          goto T139;}
382  goto T138;          goto T138;
383  T138:;  T138:;
384          {register object V61;          {register object V61;
385          register object V62;          register object V62;
# Line 395  T138:; Line 395  T138:;
395          V65= Cnil;          V65= Cnil;
396          V66= Cnil;          V66= Cnil;
397          V67= Cnil;          V67= Cnil;
398  goto T151;          goto T151;
399  T151:;  T151:;
400          if(((V64))==Cnil){          if(((V64))==Cnil){
401          goto T154;}          goto T154;}
402          goto T153;          goto T153;
403  goto T154;          goto T154;
404  T154:;  T154:;
405          goto T152;          goto T152;
406  goto T153;          goto T153;
407  T153:;  T153:;
408          {register object V68;          {register object V68;
409          V68= car((V64));          V68= car((V64));
# Line 424  T153:; Line 424  T153:;
424          if(((V70))!=Cnil){          if(((V70))!=Cnil){
425          goto T166;}}          goto T166;}}
426          goto T162;          goto T162;
427  goto T166;          goto T166;
428  T166:;  T166:;
429          base[8]= cdr((V66));          base[8]= cdr((V66));
430          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 432  T166:; Line 432  T166:;
432          vs_top=sup;          vs_top=sup;
433          V66= vs_base[0];          V66= vs_base[0];
434          goto T162;          goto T162;
435  goto T164;          goto T164;
436  T164:;  T164:;
437          V65= (V67);          V65= (V67);
438          base[8]= (V65);          base[8]= (V65);
# Line 440  T164:; Line 440  T164:;
440          Llast();          Llast();
441          vs_top=sup;          vs_top=sup;
442          V66= vs_base[0];          V66= vs_base[0];
443  goto T162;          goto T162;
444  T162:;  T162:;
445          V64= cdr((V64));          V64= cdr((V64));
446          goto T151;          goto T151;
447  goto T152;          goto T152;
448  T152:;  T152:;
449          base[7]= (V65);          base[7]= (V65);
450          goto T149;          goto T149;
# Line 452  T152:; Line 452  T152:;
452          goto T149;          goto T149;
453          base[7]= Cnil;          base[7]= Cnil;
454          goto T149;}}          goto T149;}}
455  goto T149;          goto T149;
456  T149:;  T149:;
457          {register object V71;          {register object V71;
458          register object V72;          register object V72;
# Line 464  T149:; Line 464  T149:;
464          V73= Cnil;          V73= Cnil;
465          V74= Cnil;          V74= Cnil;
466          V75= Cnil;          V75= Cnil;
467  goto T182;          goto T182;
468  T182:;  T182:;
469          if(((V72))==Cnil){          if(((V72))==Cnil){
470          goto T185;}          goto T185;}
471          goto T184;          goto T184;
472  goto T185;          goto T185;
473  T185:;  T185:;
474          goto T183;          goto T183;
475  goto T184;          goto T184;
476  T184:;  T184:;
477          {register object V76;          {register object V76;
478          V76= car((V72));          V76= car((V72));
# Line 493  T184:; Line 493  T184:;
493          if(((V78))!=Cnil){          if(((V78))!=Cnil){
494          goto T197;}}          goto T197;}}
495          goto T193;          goto T193;
496  goto T197;          goto T197;
497  T197:;  T197:;
498          base[9]= cdr((V74));          base[9]= cdr((V74));
499          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 501  T197:; Line 501  T197:;
501          vs_top=sup;          vs_top=sup;
502          V74= vs_base[0];          V74= vs_base[0];
503          goto T193;          goto T193;
504  goto T195;          goto T195;
505  T195:;  T195:;
506          V73= (V75);          V73= (V75);
507          base[9]= (V73);          base[9]= (V73);
# Line 509  T195:; Line 509  T195:;
509          Llast();          Llast();
510          vs_top=sup;          vs_top=sup;
511          V74= vs_base[0];          V74= vs_base[0];
512  goto T193;          goto T193;
513  T193:;  T193:;
514          V72= cdr((V72));          V72= cdr((V72));
515          goto T182;          goto T182;
516  goto T183;          goto T183;
517  T183:;  T183:;
518          base[8]= (V73);          base[8]= (V73);
519          goto T180;          goto T180;
# Line 521  T183:; Line 521  T183:;
521          goto T180;          goto T180;
522          base[8]= Cnil;          base[8]= Cnil;
523          goto T180;}}          goto T180;}}
524  goto T180;          goto T180;
525  T180:;  T180:;
526          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
527          L2(base);          L2(base);
528          vs_top=sup;          vs_top=sup;
529          V62= vs_base[0];          V62= vs_base[0];
530          V61= Cnil;          V61= Cnil;
531  goto T212;          goto T212;
532  T212:;  T212:;
533          if(((V62))==Cnil){          if(((V62))==Cnil){
534          goto T215;}          goto T215;}
535          goto T214;          goto T214;
536  goto T215;          goto T215;
537  T215:;  T215:;
538          goto T213;          goto T213;
539  goto T214;          goto T214;
540  T214:;  T214:;
541          {register object V79;          {register object V79;
542          V79= car((V62));          V79= car((V62));
# Line 554  T214:; Line 554  T214:;
554          V82= Cnil;          V82= Cnil;
555          V83= Cnil;          V83= Cnil;
556          V84= Cnil;          V84= Cnil;
557  goto T227;          goto T227;
558  T227:;  T227:;
559          if(((V81))==Cnil){          if(((V81))==Cnil){
560          goto T230;}          goto T230;}
561          goto T229;          goto T229;
562  goto T230;          goto T230;
563  T230:;  T230:;
564          goto T228;          goto T228;
565  goto T229;          goto T229;
566  T229:;  T229:;
567          {register object V85;          {register object V85;
568          V85= car((V81));          V85= car((V81));
# Line 571  T229:; Line 571  T229:;
571          if(!eql(V86,VV[17]))goto T237;          if(!eql(V86,VV[17]))goto T237;
572          V84= VV[10];          V84= VV[10];
573          goto T236;          goto T236;
574  goto T237;          goto T237;
575  T237:;  T237:;
576          if(!eql(V86,VV[18]))goto T238;          if(!eql(V86,VV[18]))goto T238;
577          V84= VV[11];          V84= VV[11];
578          goto T236;          goto T236;
579  goto T238;          goto T238;
580  T238:;  T238:;
581          if(!eql(V86,VV[19]))goto T239;          if(!eql(V86,VV[19]))goto T239;
582          V84= VV[13];          V84= VV[13];
583          goto T236;          goto T236;
584  goto T239;          goto T239;
585  T239:;  T239:;
586          if(!eql(V86,VV[20]))goto T240;          if(!eql(V86,VV[20]))goto T240;
587          V84= VV[14];          V84= VV[14];
588          goto T236;          goto T236;
589  goto T240;          goto T240;
590  T240:;  T240:;
591          V84= Cnil;}          V84= Cnil;}
592  goto T236;          goto T236;
593  T236:;  T236:;
594          if(((V83))==Cnil){          if(((V83))==Cnil){
595          goto T243;}          goto T243;}
# Line 601  T236:; Line 601  T236:;
601          if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));          if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));
602          ((V87))->c.c_cdr = (V88);          ((V87))->c.c_cdr = (V88);
603          goto T241;}          goto T241;}
604  goto T243;          goto T243;
605  T243:;  T243:;
606          V83= make_cons((V84),Cnil);          V83= make_cons((V84),Cnil);
607          V82= (V83);          V82= (V83);
608  goto T241;          goto T241;
609  T241:;  T241:;
610          V81= cdr((V81));          V81= cdr((V81));
611          goto T227;          goto T227;
612  goto T228;          goto T228;
613  T228:;  T228:;
614          base[8]= (V82);          base[8]= (V82);
615          goto T224;          goto T224;
# Line 617  T228:; Line 617  T228:;
617          goto T224;          goto T224;
618          base[8]= Cnil;          base[8]= Cnil;
619          goto T224;}}          goto T224;}}
620  goto T224;          goto T224;
621  T224:;  T224:;
622          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
623          (void) (*Lnk72)();          (void) (*Lnk72)();
624          vs_top=sup;          vs_top=sup;
625          V62= cdr((V62));          V62= cdr((V62));
626          goto T212;          goto T212;
627  goto T213;          goto T213;
628  T213:;  T213:;
629          goto T145;          goto T145;
630          goto T145;}          goto T145;}
631  goto T145;          goto T145;
632  T145:;  T145:;
633          {register object V89;          {register object V89;
634          register object V90;          register object V90;
# Line 639  T145:; Line 639  T145:;
639          vs_top=sup;          vs_top=sup;
640          V90= vs_base[0];          V90= vs_base[0];
641          V89= Cnil;          V89= Cnil;
642  goto T262;          goto T262;
643  T262:;  T262:;
644          if(((V90))==Cnil){          if(((V90))==Cnil){
645          goto T265;}          goto T265;}
646          goto T264;          goto T264;
647  goto T265;          goto T265;
648  T265:;  T265:;
649          goto T263;          goto T263;
650  goto T264;          goto T264;
651  T264:;  T264:;
652          {register object V91;          {register object V91;
653          V91= car((V90));          V91= car((V90));
# Line 665  T264:; Line 665  T264:;
665          V94= Cnil;          V94= Cnil;
666          V95= Cnil;          V95= Cnil;
667          V96= Cnil;          V96= Cnil;
668  goto T277;          goto T277;
669  T277:;  T277:;
670          if(((V93))==Cnil){          if(((V93))==Cnil){
671          goto T280;}          goto T280;}
672          goto T279;          goto T279;
673  goto T280;          goto T280;
674  T280:;  T280:;
675          goto T278;          goto T278;
676  goto T279;          goto T279;
677  T279:;  T279:;
678          {register object V97;          {register object V97;
679          V97= car((V93));          V97= car((V93));
# Line 682  T279:; Line 682  T279:;
682          if(!eql(V98,VV[17]))goto T287;          if(!eql(V98,VV[17]))goto T287;
683          V96= VV[12];          V96= VV[12];
684          goto T286;          goto T286;
685  goto T287;          goto T287;
686  T287:;  T287:;
687          if(!eql(V98,VV[18]))goto T288;          if(!eql(V98,VV[18]))goto T288;
688          V96= VV[11];          V96= VV[11];
689          goto T286;          goto T286;
690  goto T288;          goto T288;
691  T288:;  T288:;
692          V96= Cnil;}          V96= Cnil;}
693  goto T286;          goto T286;
694  T286:;  T286:;
695          if(((V95))==Cnil){          if(((V95))==Cnil){
696          goto T291;}          goto T291;}
# Line 702  T286:; Line 702  T286:;
702          if(type_of((V99))!=t_cons)FEwrong_type_argument(Scons,(V99));          if(type_of((V99))!=t_cons)FEwrong_type_argument(Scons,(V99));
703          ((V99))->c.c_cdr = (V100);          ((V99))->c.c_cdr = (V100);
704          goto T289;}          goto T289;}
705  goto T291;          goto T291;
706  T291:;  T291:;
707          V95= make_cons((V96),Cnil);          V95= make_cons((V96),Cnil);
708          V94= (V95);          V94= (V95);
709  goto T289;          goto T289;
710  T289:;  T289:;
711          V93= cdr((V93));          V93= cdr((V93));
712          goto T277;          goto T277;
713  goto T278;          goto T278;
714  T278:;  T278:;
715          base[8]= (V94);          base[8]= (V94);
716          goto T274;          goto T274;
# Line 718  T278:; Line 718  T278:;
718          goto T274;          goto T274;
719          base[8]= Cnil;          base[8]= Cnil;
720          goto T274;}}          goto T274;}}
721  goto T274;          goto T274;
722  T274:;  T274:;
723          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
724          (void) (*Lnk72)();          (void) (*Lnk72)();
725          vs_top=sup;          vs_top=sup;
726          V90= cdr((V90));          V90= cdr((V90));
727          goto T262;          goto T262;
728  goto T263;          goto T263;
729  T263:;  T263:;
730          goto T144;          goto T144;
731          goto T144;}          goto T144;}
732  goto T144;          goto T144;
733  T144:;  T144:;
734          V101= list(2,VV[27],base[2]);          V101= list(2,VV[27],base[2]);
735          V102= list(3,VV[29],base[2],base[2]);          V102= list(3,VV[29],base[2],base[2]);
# Line 738  T144:; Line 738  T144:;
738          V104= list(4,VV[29],base[2],base[2],list(2,VV[30],(V11)));          V104= list(4,VV[29],base[2],base[2],list(2,VV[30],(V11)));
739          V103= make_cons(/* INLINE-ARGS */V104,Cnil);          V103= make_cons(/* INLINE-ARGS */V104,Cnil);
740          goto T306;          goto T306;
741  goto T308;          goto T308;
742  T308:;  T308:;
743          V103= Cnil;          V103= Cnil;
744  goto T306;          goto T306;
745  T306:;  T306:;
746          base[5]= VV[31];          base[5]= VV[31];
747          base[6]= base[3];          base[6]= base[3];
# Line 755  T306:; Line 755  T306:;
755          V106= list(3,VV[32],list(2,VV[33],list(2,VV[27],base[2])),base[2]);          V106= list(3,VV[32],list(2,VV[33],list(2,VV[27],base[2])),base[2]);
756          V105= make_cons(/* INLINE-ARGS */V106,Cnil);          V105= make_cons(/* INLINE-ARGS */V106,Cnil);
757          goto T310;          goto T310;
758  goto T312;          goto T312;
759  T312:;  T312:;
760          V105= Cnil;          V105= Cnil;
761  goto T310;          goto T310;
762  T310:;  T310:;
763          V107= listA(3,VV[28],/* INLINE-ARGS */V102,append(V103,V105));          V107= listA(3,VV[28],/* INLINE-ARGS */V102,append(V103,V105));
764          V108= list(2,VV[30],(V11));          V108= list(2,VV[30],(V11));
# Line 766  T310:; Line 766  T310:;
766          goto T320;}          goto T320;}
767          V109= Cnil;          V109= Cnil;
768          goto T318;          goto T318;
769  goto T320;          goto T320;
770  T320:;  T320:;
771          V109= Cnil;          V109= Cnil;
772  goto T318;          goto T318;
773  T318:;  T318:;
774          V110= list(4,VV[26],/* INLINE-ARGS */V101,/* INLINE-ARGS */V107,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109));          V110= list(4,VV[26],/* INLINE-ARGS */V101,/* INLINE-ARGS */V107,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109));
775          base[5]= base[2];          base[5]= base[2];
# Line 787  T318:; Line 787  T318:;
787          V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V14))));          V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V14))));
788          base[5]= make_cons(/* INLINE-ARGS */V117,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V117,Cnil);
789          goto T326;          goto T326;
790  goto T328;          goto T328;
791  T328:;  T328:;
792          base[5]= Cnil;          base[5]= Cnil;
793  goto T326;          goto T326;
794  T326:;  T326:;
795          if(((V17))==Cnil){          if(((V17))==Cnil){
796          goto T332;}          goto T332;}
# Line 800  T326:; Line 800  T326:;
800          base[6]= Cnil;          base[6]= Cnil;
801          goto T330;}          goto T330;}
802          base[7]=V118=MMcons(Cnil,Cnil);          base[7]=V118=MMcons(Cnil,Cnil);
803  goto T334;          goto T334;
804  T334:;  T334:;
805          {register object V120;          {register object V120;
806          V120= (V119->c.c_car);          V120= (V119->c.c_car);
# Line 814  T334:; Line 814  T334:;
814          goto T330;}          goto T330;}
815          V118=MMcdr(V118)=MMcons(Cnil,Cnil);          V118=MMcdr(V118)=MMcons(Cnil,Cnil);
816          goto T334;}          goto T334;}
817  goto T332;          goto T332;
818  T332:;  T332:;
819          base[6]= Cnil;          base[6]= Cnil;
820  goto T330;          goto T330;
821  T330:;  T330:;
822          base[8]= VV[31];          base[8]= VV[31];
823          base[9]= base[3];          base[9]= base[3];
# Line 840  T330:; Line 840  T330:;
840          V124= Cnil;          V124= Cnil;
841          goto T337;}          goto T337;}
842          base[8]=V125=MMcons(Cnil,Cnil);          base[8]=V125=MMcons(Cnil,Cnil);
843  goto T345;          goto T345;
844  T345:;  T345:;
845          (V125->c.c_car)= coerce_to_string((V126->c.c_car));          (V125->c.c_car)= coerce_to_string((V126->c.c_car));
846          V126=MMcdr(V126);          V126=MMcdr(V126);
# Line 849  T345:; Line 849  T345:;
849          goto T337;}          goto T337;}
850          V125=MMcdr(V125)=MMcons(Cnil,Cnil);          V125=MMcdr(V125)=MMcons(Cnil,Cnil);
851          goto T345;}          goto T345;}
852  goto T339;          goto T339;
853  T339:;  T339:;
854          V124= VV[59];          V124= VV[59];
855  goto T337;          goto T337;
856  T337:;  T337:;
857          V128= list(2,VV[58],list(2,VV[30],V124));          V128= list(2,VV[58],list(2,VV[30],V124));
858          if(((V18))==Cnil){          if(((V18))==Cnil){
# Line 863  T337:; Line 863  T337:;
863          base[8]= Cnil;          base[8]= Cnil;
864          goto T351;}          goto T351;}
865          base[9]=V130=MMcons(Cnil,Cnil);          base[9]=V130=MMcons(Cnil,Cnil);
866  goto T355;          goto T355;
867  T355:;  T355:;
868          {register object V132;          {register object V132;
869          V132= (V131->c.c_car);          V132= (V131->c.c_car);
# Line 877  T355:; Line 877  T355:;
877          goto T351;}          goto T351;}
878          V130=MMcdr(V130)=MMcons(Cnil,Cnil);          V130=MMcdr(V130)=MMcons(Cnil,Cnil);
879          goto T355;}          goto T355;}
880  goto T353;          goto T353;
881  T353:;  T353:;
882          base[8]= Cnil;          base[8]= Cnil;
883  goto T351;          goto T351;
884  T351:;  T351:;
885          if(((V15))==Cnil){          if(((V15))==Cnil){
886          goto T359;}          goto T359;}
887          V136= list(3,VV[45],VV[64],list(2,VV[30],(V15)));          V136= list(3,VV[45],VV[64],list(2,VV[30],(V15)));
888          base[9]= make_cons(/* INLINE-ARGS */V136,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V136,Cnil);
889          goto T357;          goto T357;
890  goto T359;          goto T359;
891  T359:;  T359:;
892          base[9]= Cnil;          base[9]= Cnil;
893  goto T357;          goto T357;
894  T357:;  T357:;
895          if(((V16))==Cnil){          if(((V16))==Cnil){
896          goto T363;}          goto T363;}
897          V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V16))));          V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V16))));
898          base[10]= make_cons(/* INLINE-ARGS */V137,Cnil);          base[10]= make_cons(/* INLINE-ARGS */V137,Cnil);
899          goto T361;          goto T361;
900  goto T363;          goto T363;
901  T363:;  T363:;
902          base[10]= Cnil;          base[10]= Cnil;
903  goto T361;          goto T361;
904  T361:;  T361:;
905          if(((V19))==Cnil){          if(((V19))==Cnil){
906          goto T367;}          goto T367;}
907          V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V19))),VV[69]);          V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V19))),VV[69]);
908          base[11]= make_cons(/* INLINE-ARGS */V138,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V138,Cnil);
909          goto T365;          goto T365;
910  goto T367;          goto T367;
911  T367:;  T367:;
912          base[11]= Cnil;          base[11]= Cnil;
913  goto T365;          goto T365;
914  T365:;  T365:;
915          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
916          Lappend();          Lappend();
# Line 950  register object *base0; Line 950  register object *base0;
950          V145= cdr((V141));          V145= cdr((V141));
951          {register long V146;          {register long V146;
952          V146= 1;          V146= 1;
953  goto T373;          goto T373;
954  T373:;  T373:;
955          if(((V145))==Cnil){          if(((V145))==Cnil){
956          goto T376;}          goto T376;}
957          goto T375;          goto T375;
958  goto T376;          goto T376;
959  T376:;  T376:;
960          goto T374;          goto T374;
961  goto T375;          goto T375;
962  T375:;  T375:;
963          if(((V144))==Cnil){          if(((V144))==Cnil){
964          goto T379;}          goto T379;}
965          goto T378;          goto T378;
966  goto T379;          goto T379;
967  T379:;  T379:;
968          goto T374;          goto T374;
969  goto T378;          goto T378;
970  T378:;  T378:;
971          {object V147;          {object V147;
972          V147= car((V144));          V147= car((V144));
# Line 977  T378:; Line 977  T378:;
977          V149= (V143);          V149= (V143);
978          {register object V150;          {register object V150;
979          V150= Cnil;          V150= Cnil;
980  goto T386;          goto T386;
981  T386:;  T386:;
982          if(((V149))==Cnil){          if(((V149))==Cnil){
983          goto T389;}          goto T389;}
984          goto T388;          goto T388;
985  goto T389;          goto T389;
986  T389:;  T389:;
987          goto T387;          goto T387;
988  goto T388;          goto T388;
989  T388:;  T388:;
990          {object V151;          {object V151;
991          V151= car((V149));          V151= car((V149));
# Line 1012  T388:; Line 1012  T388:;
1012          V162= (type_of((V160))==t_fixnum?Ct:Cnil);          V162= (type_of((V160))==t_fixnum?Ct:Cnil);
1013          if(V162==Cnil)goto T405;          if(V162==Cnil)goto T405;
1014          goto T404;          goto T404;
1015  goto T405;          goto T405;
1016  T405:;}  T405:;}
1017          (void)((*(LnkLI75))());          (void)((*(LnkLI75))());
1018  goto T404;          goto T404;
1019  T404:;  T404:;
1020          V159= fix((V160));}          V159= fix((V160));}
1021  goto T408;          goto T408;
1022  T408:;  T408:;
1023          if(((V158))==Cnil){          if(((V158))==Cnil){
1024          goto T411;}          goto T411;}
1025          goto T410;          goto T410;
1026  goto T411;          goto T411;
1027  T411:;  T411:;
1028          goto T409;          goto T409;
1029  goto T410;          goto T410;
1030  T410:;  T410:;
1031          {object V163;          {object V163;
1032          V163= car((V158));          V163= car((V158));
# Line 1046  T410:; Line 1046  T410:;
1046          V165= make_cons(V164,Cnil);          V165= make_cons(V164,Cnil);
1047          (void)(nconc((V150),/* INLINE-ARGS */V165));          (void)(nconc((V150),/* INLINE-ARGS */V165));
1048          goto T416;          goto T416;
1049  goto T424;          goto T424;
1050  T424:;  T424:;
1051          {object V167;          {object V167;
1052          V168 = make_fixnum(V146);          V168 = make_fixnum(V146);
# Line 1055  T424:; Line 1055  T424:;
1055          V142= make_cons((V167),(V142));          V142= make_cons((V167),(V142));
1056          V166= (V142);}          V166= (V142);}
1057          V150= car(V166);          V150= car(V166);
1058  goto T416;          goto T416;
1059  T416:;  T416:;
1060          V158= cdr((V158));          V158= cdr((V158));
1061          if(!((V159)<(2147483646))){          if(!((V159)<(2147483646))){
1062          goto T433;}          goto T433;}
1063          goto T432;          goto T432;
1064  goto T433;          goto T433;
1065  T433:;  T433:;
1066          (void)((*(LnkLI75))());          (void)((*(LnkLI75))());
1067  goto T432;          goto T432;
1068  T432:;  T432:;
1069          V159= (long)(V159)+(1);          V159= (long)(V159)+(1);
1070          goto T408;          goto T408;
1071  goto T409;          goto T409;
1072  T409:;  T409:;
1073          goto T399;          goto T399;
1074          goto T399;}}          goto T399;}}
1075  goto T399;          goto T399;
1076  T399:;  T399:;
1077          V149= cdr((V149));          V149= cdr((V149));
1078          goto T386;          goto T386;
1079  goto T387;          goto T387;
1080  T387:;  T387:;
1081          goto T384;          goto T384;
1082          goto T384;}}          goto T384;}}
1083  goto T384;          goto T384;
1084  T384:;  T384:;
1085          V144= cdr((V144));          V144= cdr((V144));
1086          V145= cdr((V145));          V145= cdr((V145));
1087          if(!((V146)<(2147483646))){          if(!((V146)<(2147483646))){
1088          goto T446;}          goto T446;}
1089          goto T445;          goto T445;
1090  goto T446;          goto T446;
1091  T446:;  T446:;
1092          (void)((*(LnkLI75))());          (void)((*(LnkLI75))());
1093  goto T445;          goto T445;
1094  T445:;  T445:;
1095          V146= (long)(V146)+(1);          V146= (long)(V146)+(1);
1096          goto T373;          goto T373;
1097  goto T374;          goto T374;
1098  T374:;  T374:;
1099          goto T369;          goto T369;
1100          goto T369;}}}          goto T369;}}}
1101  goto T369;          goto T369;
1102  T369:;  T369:;
1103          base[1]= (V142);          base[1]= (V142);
1104          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1123  register object *base0; Line 1123  register object *base0;
1123          base[2]= (equal(car((V171)),(V170))?Ct:Cnil);          base[2]= (equal(car((V171)),(V170))?Ct:Cnil);
1124          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1125          return;          return;
1126  goto T452;          goto T452;
1127  T452:;  T452:;
1128          base[2]= Cnil;          base[2]= Cnil;
1129          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1163  TTL:; Line 1163  TTL:;
1163          vs_top=sup;          vs_top=sup;
1164          V178= vs_base[0];          V178= vs_base[0];
1165          V174= (V178);}          V174= (V178);}
1166  goto T455;          goto T455;
1167  T455:;  T455:;
1168          if(((V174))==Cnil){          if(((V174))==Cnil){
1169          goto T464;}          goto T464;}
1170          goto T463;          goto T463;
1171  goto T464;          goto T464;
1172  T464:;  T464:;
1173          goto T456;          goto T456;
1174  goto T463;          goto T463;
1175  T463:;  T463:;
1176          if(((V174))==Cnil){          if(((V174))==Cnil){
1177          goto T466;}          goto T466;}
# Line 1191  T463:; Line 1191  T463:;
1191          if(((V180))!=Cnil){          if(((V180))!=Cnil){
1192          goto T475;}}          goto T475;}}
1193          goto T466;          goto T466;
1194  goto T475;          goto T475;
1195  T475:;  T475:;
1196          base[2]= cdr((V176));          base[2]= cdr((V176));
1197          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1199  T475:; Line 1199  T475:;
1199          vs_top=sup;          vs_top=sup;
1200          V176= vs_base[0];          V176= vs_base[0];
1201          goto T466;          goto T466;
1202  goto T473;          goto T473;
1203  T473:;  T473:;
1204          V175= (V177);          V175= (V177);
1205          base[2]= (V175);          base[2]= (V175);
# Line 1207  T473:; Line 1207  T473:;
1207          Llast();          Llast();
1208          vs_top=sup;          vs_top=sup;
1209          V176= vs_base[0];          V176= vs_base[0];
1210  goto T466;          goto T466;
1211  T466:;  T466:;
1212          {register object V181;          {register object V181;
1213          base[2]= (V172);          base[2]= (V172);
# Line 1220  T466:; Line 1220  T466:;
1220          V181= vs_base[0];          V181= vs_base[0];
1221          V174= (V181);}          V174= (V181);}
1222          goto T455;          goto T455;
1223  goto T456;          goto T456;
1224  T456:;  T456:;
1225          base[2]= (V175);          base[2]= (V175);
1226          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1266  TTL:; Line 1266  TTL:;
1266          vs_top=sup;          vs_top=sup;
1267          V188= vs_base[0];          V188= vs_base[0];
1268          V184= (V188);}          V184= (V188);}
1269  goto T495;          goto T495;
1270  T495:;  T495:;
1271          if(((V184))==Cnil){          if(((V184))==Cnil){
1272          goto T504;}          goto T504;}
1273          goto T503;          goto T503;
1274  goto T504;          goto T504;
1275  T504:;  T504:;
1276          goto T496;          goto T496;
1277  goto T503;          goto T503;
1278  T503:;  T503:;
1279          if(((V184))==Cnil){          if(((V184))==Cnil){
1280          goto T506;}          goto T506;}
# Line 1289  T503:; Line 1289  T503:;
1289          if(type_of((V189))!=t_cons)FEwrong_type_argument(Scons,(V189));          if(type_of((V189))!=t_cons)FEwrong_type_argument(Scons,(V189));
1290          ((V189))->c.c_cdr = (V190);          ((V189))->c.c_cdr = (V190);
1291          goto T506;}          goto T506;}
1292  goto T512;          goto T512;
1293  T512:;  T512:;
1294          V186= make_cons((V187),Cnil);          V186= make_cons((V187),Cnil);
1295          V185= (V186);          V185= (V186);
1296  goto T506;          goto T506;
1297  T506:;  T506:;
1298          {register object V191;          {register object V191;
1299          base[2]= (V182);          base[2]= (V182);
# Line 1306  T506:; Line 1306  T506:;
1306          V191= vs_base[0];          V191= vs_base[0];
1307          V184= (V191);}          V184= (V191);}
1308          goto T495;          goto T495;
1309  goto T496;          goto T496;
1310  T496:;  T496:;
1311          base[2]= (V185);          base[2]= (V185);
1312          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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