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

Diff of /gcl/lsp/defmacro.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 "defmacro.h"  #include "defmacro.h"
4  init_defmacro(){do_init(VV);}  void init_defmacro(){do_init(VV);}
5  /*      function definition for GET-&ENVIRONMENT        */  /*      function definition for GET-&ENVIRONMENT        */
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 12  static L1() Line 12  static L1()
12          check_arg(1);          check_arg(1);
13          V1=(base[0]);          V1=(base[0]);
14          vs_top=sup;          vs_top=sup;
15    goto TTL;
16  TTL:;  TTL:;
17          {object V2;          {object V2;
18          V2= Cnil;          V2= Cnil;
# Line 20  TTL:; Line 21  TTL:;
21          goto T3;}          goto T3;}
22          V3= Cnil;          V3= Cnil;
23          goto T2;          goto T2;
24    goto T3;
25  T3:;  T3:;
26          {register object V4;          {register object V4;
27          V4= (V1);          V4= (V1);
28    goto T6;
29  T6:;  T6:;
30          if(type_of((V4))==t_cons){          if(type_of((V4))==t_cons){
31          goto T7;}          goto T7;}
32          V3= Cnil;          V3= Cnil;
33          goto T2;          goto T2;
34    goto T7;
35  T7:;  T7:;
36          if(!((VV[0])==(car((V4))))){          if(!((VV[0])==(car((V4))))){
37          goto T11;}          goto T11;}
38          V3= (V4);          V3= (V4);
39          goto T2;          goto T2;
40    goto T11;
41  T11:;  T11:;
42          V4= cdr((V4));          V4= cdr((V4));
43          goto T6;}          goto T6;}
44    goto T2;
45  T2:;  T2:;
46          if(((V3))==Cnil){          if(((V3))==Cnil){
47          goto T17;}          goto T17;}
# Line 47  T2:; Line 53  T2:;
53          vs_top=sup;          vs_top=sup;
54          V5= vs_base[0];          V5= vs_base[0];
55          V1= append(V5,cddr((V3)));          V1= append(V5,cddr((V3)));
56    goto T17;
57  T17:;  T17:;
58          base[1]= (V1);          base[1]= (V1);
59          base[2]= (V2);          base[2]= (V2);
# Line 61  static object LI2(V9,V10,V11) Line 68  static object LI2(V9,V10,V11)
68  object V9;register object V10;register object V11;  object V9;register object V10;register object V11;
69  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
70          bds_check;          bds_check;
71    goto TTL;
72  TTL:;  TTL:;
73          {object V12;          {object V12;
74          object V13;          object V13;
# Line 82  TTL:; Line 90  TTL:;
90          if(((V18))==Cnil){          if(((V18))==Cnil){
91          goto T37;}          goto T37;}
92          goto T34;          goto T34;
93    goto T37;
94  T37:;  T37:;
95          if(!(type_of((V10))==t_symbol)){          if(!(type_of((V10))==t_symbol)){
96          goto T40;}          goto T40;}
97          V10= list(2,VV[4],(V10));          V10= list(2,VV[4],(V10));
98          goto T34;          goto T34;
99    goto T40;
100  T40:;  T40:;
101          base[3]= VV[5];          base[3]= VV[5];
102          base[4]= (V10);          base[4]= (V10);
103          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
104          Lerror();          Lerror();
105          vs_top=sup;}          vs_top=sup;}
106    goto T34;
107  T34:;  T34:;
108          base[3]= (V11);          base[3]= (V11);
109          base[4]= Cnil;          base[4]= Cnil;
# Line 120  T34:; Line 131  T34:;
131          V14= cadr((V10));          V14= cadr((V10));
132          V10= cddr((V10));          V10= cddr((V10));
133          goto T49;          goto T49;
134    goto T51;
135  T51:;  T51:;
136          vs_base=vs_top;          vs_base=vs_top;
137          Lgensym();          Lgensym();
138          vs_top=sup;          vs_top=sup;
139          V14= vs_base[0];          V14= vs_base[0];
140    goto T49;
141  T49:;  T49:;
142          base[3]= (V10);          base[3]= (V10);
143          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 146  T49:; Line 159  T49:;
159          Lgensym();          Lgensym();
160          vs_top=sup;          vs_top=sup;
161          V16= vs_base[0];          V16= vs_base[0];
162    goto T64;
163  T64:;  T64:;
164          (VV[1]->s.s_dbind)= list(3,VV[7],(V16),(V14));          (VV[1]->s.s_dbind)= list(3,VV[7],(V16),(V14));
165          V15= (*(LnkLI55))((V10),(V14),Ct);          V15= (*(LnkLI55))((V10),(V14),Ct);
# Line 153  T64:; Line 167  T64:;
167          register object V20;          register object V20;
168          V19= (VV[2]->s.s_dbind);          V19= (VV[2]->s.s_dbind);
169          V20= car((V19));          V20= car((V19));
170    goto T74;
171  T74:;  T74:;
172          if(!(endp((V19)))){          if(!(endp((V19)))){
173          goto T75;}          goto T75;}
174          goto T70;          goto T70;
175    goto T75;
176  T75:;  T75:;
177          V21= list(3,VV[9],car((V20)),VV[10]);          V21= list(3,VV[9],car((V20)),VV[10]);
178          V22= list(3,VV[12],car((V20)),VV[13]);          V22= list(3,VV[12],car((V20)),VV[13]);
# Line 166  T75:; Line 182  T75:;
182          V19= cdr((V19));          V19= cdr((V19));
183          V20= car((V19));          V20= car((V19));
184          goto T74;}          goto T74;}
185    goto T70;
186  T70:;  T70:;
187          {register object V25;          {register object V25;
188          register object V26;          register object V26;
189          V25= (VV[3]->s.s_dbind);          V25= (VV[3]->s.s_dbind);
190          V26= car((V25));          V26= car((V25));
191    goto T90;
192  T90:;  T90:;
193          if(!(endp((V25)))){          if(!(endp((V25)))){
194          goto T91;}          goto T91;}
195          goto T86;          goto T86;
196    goto T91;
197  T91:;  T91:;
198          V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]);          V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]);
199          V11= make_cons(/* INLINE-ARGS */V27,(V11));          V11= make_cons(/* INLINE-ARGS */V27,(V11));
200          V25= cdr((V25));          V25= cdr((V25));
201          V26= car((V25));          V26= car((V25));
202          goto T90;}          goto T90;}
203    goto T86;
204  T86:;  T86:;
205          if(((V17))!=Cnil){          if(((V17))!=Cnil){
206          goto T102;}          goto T102;}
207          V28= list(2,VV[21],list(2,VV[22],(V16)));          V28= list(2,VV[21],list(2,VV[22],(V16)));
208          V11= make_cons(/* INLINE-ARGS */V28,(V11));          V11= make_cons(/* INLINE-ARGS */V28,(V11));
209    goto T102;
210  T102:;  T102:;
211          V29= reverse((VV[1]->s.s_dbind));          V29= reverse((VV[1]->s.s_dbind));
212          {object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11))));          {object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11))));
# Line 193  T102:; Line 214  T102:;
214          bds_unwind1;          bds_unwind1;
215          bds_unwind1;          bds_unwind1;
216          VMR2(V30)}}          VMR2(V30)}}
217            base[0]=base[0];
218            return Cnil;
219  }  }
220  /*      local entry for function DM-VL  */  /*      local entry for function DM-VL  */
221    
# Line 200  static object LI3(V34,V35,V36) Line 223  static object LI3(V34,V35,V36)
223    
224  register object V34;register object V35;object V36;  register object V34;register object V35;object V36;
225  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
226    goto TTL;
227  TTL:;  TTL:;
228          {register object V37;          {register object V37;
229          object V38;          object V38;
# Line 216  TTL:; Line 240  TTL:;
240          goto T108;}          goto T108;}
241          V46= small_fixnum(1);          V46= small_fixnum(1);
242          goto T106;          goto T106;
243    goto T108;
244  T108:;  T108:;
245          V46= small_fixnum(0);          V46= small_fixnum(0);
246    goto T106;
247  T106:;  T106:;
248          V37= Cnil;          V37= Cnil;
249          V38= Cnil;          V38= Cnil;
# Line 229  T106:; Line 255  T106:;
255          V44= Cnil;          V44= Cnil;
256          V45= Cnil;          V45= Cnil;
257          V47= Cnil;          V47= Cnil;
258    goto T111;
259  T111:;  T111:;
260          if(type_of((V34))==t_cons){          if(type_of((V34))==t_cons){
261          goto T112;}          goto T112;}
# Line 237  T111:; Line 264  T111:;
264          if(((V38))==Cnil){          if(((V38))==Cnil){
265          goto T118;}          goto T118;}
266          (void)((*(LnkLI57))(VV[4]));          (void)((*(LnkLI57))(VV[4]));
267    goto T118;
268  T118:;  T118:;
269          V48= list(2,(V34),(*(LnkLI56))((V46),(V35)));          V48= list(2,(V34),(*(LnkLI56))((V46),(V35)));
270          setq(VV[1],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[1])));          setq(VV[1],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[1])));
271          V45= Ct;          V45= Ct;
272    goto T115;
273  T115:;  T115:;
274          if(((V42))==Cnil){          if(((V42))==Cnil){
275          goto T124;}          goto T124;}
# Line 248  T115:; Line 277  T115:;
277          goto T124;}          goto T124;}
278          V49= make_cons((V42),(V44));          V49= make_cons((V42),(V44));
279          setq(VV[2],make_cons(/* INLINE-ARGS */V49,symbol_value(VV[2])));          setq(VV[2],make_cons(/* INLINE-ARGS */V49,symbol_value(VV[2])));
280    goto T124;
281  T124:;  T124:;
282          if(((V45))!=Cnil){          if(((V45))!=Cnil){
283          goto T130;}          goto T130;}
284          V50= make_cons((V35),(V46));          V50= make_cons((V35),(V46));
285          setq(VV[3],make_cons(/* INLINE-ARGS */V50,symbol_value(VV[3])));          setq(VV[3],make_cons(/* INLINE-ARGS */V50,symbol_value(VV[3])));
286    goto T130;
287  T130:;  T130:;
288          {object V51 = (V47);          {object V51 = (V47);
289          VMR3(V51)}          VMR3(V51)}
290    goto T112;
291  T112:;  T112:;
292          {register object V52;          {register object V52;
293          V52= car((V34));          V52= car((V34));
# Line 264  T112:; Line 296  T112:;
296          if(((V37))==Cnil){          if(((V37))==Cnil){
297          goto T140;}          goto T140;}
298          (void)((*(LnkLI57))(VV[24]));          (void)((*(LnkLI57))(VV[24]));
299    goto T140;
300  T140:;  T140:;
301          V37= Ct;          V37= Ct;
302          {object V53;          {object V53;
303          V53= car((V34));          V53= car((V34));
304          V34= cdr((V34));          V34= cdr((V34));
305          goto T135;}          goto T135;}
306    goto T138;
307  T138:;  T138:;
308          if(((V52))==(VV[4])){          if(((V52))==(VV[4])){
309          goto T148;}          goto T148;}
310          if(!(((V52))==(VV[25]))){          if(!(((V52))==(VV[25]))){
311          goto T149;}          goto T149;}
312    goto T148;
313  T148:;  T148:;
314          if(((V38))==Cnil){          if(((V38))==Cnil){
315          goto T153;}          goto T153;}
316          (void)((*(LnkLI57))((V52)));          (void)((*(LnkLI57))((V52)));
317    goto T153;
318  T153:;  T153:;
319          V54= cadr((V34));          V54= cadr((V34));
320          V55= (*(LnkLI56))((V46),(V35));          V55= (*(LnkLI56))((V46),(V35));
# Line 293  T153:; Line 329  T153:;
329          goto T169;}          goto T169;}
330          V47= one_minus((V46));          V47= one_minus((V46));
331          goto T167;          goto T167;
332    goto T169;
333  T169:;  T169:;
334          V47= (V46);          V47= (V46);
335    goto T167;
336  T167:;  T167:;
337          goto T135;          goto T135;
338    goto T149;
339  T149:;  T149:;
340          if(!(((V52))==(VV[26]))){          if(!(((V52))==(VV[26]))){
341          goto T172;}          goto T172;}
342          if(((V39))==Cnil){          if(((V39))==Cnil){
343          goto T174;}          goto T174;}
344          (void)((*(LnkLI57))(VV[26]));          (void)((*(LnkLI57))(VV[26]));
345    goto T174;
346  T174:;  T174:;
347          vs_base=vs_top;          vs_base=vs_top;
348          Lgensym();          Lgensym();
# Line 318  T174:; Line 358  T174:;
358          V57= car((V34));          V57= car((V34));
359          V34= cdr((V34));          V34= cdr((V34));
360          goto T135;}          goto T135;}
361    goto T172;
362  T172:;  T172:;
363          if(!(((V52))==(VV[27]))){          if(!(((V52))==(VV[27]))){
364          goto T193;}          goto T193;}
# Line 325  T172:; Line 366  T172:;
366          goto T196;}          goto T196;}
367          if(((V40))==Cnil){          if(((V40))==Cnil){
368          goto T195;}          goto T195;}
369    goto T196;
370  T196:;  T196:;
371          (void)((*(LnkLI57))(VV[27]));          (void)((*(LnkLI57))(VV[27]));
372    goto T195;
373  T195:;  T195:;
374          V40= Ct;          V40= Ct;
375          V43= Ct;          V43= Ct;
# Line 334  T195:; Line 377  T195:;
377          V58= car((V34));          V58= car((V34));
378          V34= cdr((V34));          V34= cdr((V34));
379          goto T135;}          goto T135;}
380    goto T193;
381  T193:;  T193:;
382          if(!(((V52))==(VV[7]))){          if(!(((V52))==(VV[7]))){
383          goto T208;}          goto T208;}
384          if(((V41))==Cnil){          if(((V41))==Cnil){
385          goto T210;}          goto T210;}
386          (void)((*(LnkLI57))(VV[7]));          (void)((*(LnkLI57))(VV[7]));
387    goto T210;
388  T210:;  T210:;
389          V41= Ct;          V41= Ct;
390          V40= Ct;          V40= Ct;
# Line 350  T210:; Line 395  T210:;
395          V59= car((V34));          V59= car((V34));
396          V34= cdr((V34));          V34= cdr((V34));
397          goto T135;}          goto T135;}
398    goto T208;
399  T208:;  T208:;
400          if(((V41))==Cnil){          if(((V41))==Cnil){
401          goto T227;}          goto T227;}
# Line 361  T208:; Line 407  T208:;
407          goto T232;}          goto T232;}
408          V60= (V52);          V60= (V52);
409          goto T230;          goto T230;
410    goto T232;
411  T232:;  T232:;
412          V60= car((V52));          V60= car((V52));
413          if(endp(cdr((V52)))){          if(endp(cdr((V52)))){
414          goto T230;}          goto T230;}
415          V61= cadr((V52));          V61= cadr((V52));
416    goto T230;
417  T230:;  T230:;
418          (void)((*(LnkLI58))((V60),(V61)));}          (void)((*(LnkLI58))((V60),(V61)));}
419          {object V62;          {object V62;
420          V62= car((V34));          V62= car((V34));
421          V34= cdr((V34));          V34= cdr((V34));
422          goto T135;}          goto T135;}
423    goto T227;
424  T227:;  T227:;
425          if(((V39))==Cnil){          if(((V39))==Cnil){
426          goto T244;}          goto T244;}
# Line 398  T227:; Line 447  T227:;
447          vs_top=sup;          vs_top=sup;
448          V65= vs_base[0];          V65= vs_base[0];
449          goto T248;          goto T248;
450    goto T250;
451  T250:;  T250:;
452          if(!(type_of(car((V52)))==t_symbol)){          if(!(type_of(car((V52)))==t_symbol)){
453          goto T259;}          goto T259;}
# Line 409  T250:; Line 459  T250:;
459          vs_top=sup;          vs_top=sup;
460          V65= vs_base[0];          V65= vs_base[0];
461          goto T257;          goto T257;
462    goto T259;
463  T259:;  T259:;
464          V64= cadar((V52));          V64= cadar((V52));
465          V65= caar((V52));          V65= caar((V52));
466    goto T257;
467  T257:;  T257:;
468          if(endp(cdr((V52)))){          if(endp(cdr((V52)))){
469          goto T248;}          goto T248;}
# Line 419  T257:; Line 471  T257:;
471          if(endp(cddr((V52)))){          if(endp(cddr((V52)))){
472          goto T248;}          goto T248;}
473          V67= caddr((V52));          V67= caddr((V52));
474    goto T248;
475  T248:;  T248:;
476          V68= list(4,VV[9],(V42),(V65),VV[29]);          V68= list(4,VV[9],(V42),(V65),VV[29]);
477          (void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68));          (void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68));
# Line 428  T248:; Line 481  T248:;
481          goto T278;}          goto T278;}
482          V70= list(2,VV[33],list(3,VV[31],(V63),VV[34]));          V70= list(2,VV[33],list(3,VV[31],(V63),VV[34]));
483          (void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70));          (void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70));
484    goto T278;
485  T278:;  T278:;
486          V44= make_cons((V65),(V44));}          V44= make_cons((V65),(V44));}
487          {object V71;          {object V71;
488          V71= car((V34));          V71= car((V34));
489          V34= cdr((V34));          V34= cdr((V34));
490          goto T135;}          goto T135;}
491    goto T244;
492  T244:;  T244:;
493          if(((V37))==Cnil){          if(((V37))==Cnil){
494          goto T286;}          goto T286;}
# Line 447  T244:; Line 502  T244:;
502          goto T291;}          goto T291;}
503          V72= (V52);          V72= (V52);
504          goto T289;          goto T289;
505    goto T291;
506  T291:;  T291:;
507          V72= car((V52));          V72= car((V52));
508          if(endp(cdr((V52)))){          if(endp(cdr((V52)))){
# Line 455  T291:; Line 511  T291:;
511          if(endp(cddr((V52)))){          if(endp(cddr((V52)))){
512          goto T289;}          goto T289;}
513          V74= caddr((V52));          V74= caddr((V52));
514    goto T289;
515  T289:;  T289:;
516          V75= (*(LnkLI56))((V46),(V35));          V75= (*(LnkLI56))((V46),(V35));
517          V76= (*(LnkLI59))((V46),(V35));          V76= (*(LnkLI59))((V46),(V35));
# Line 464  T289:; Line 521  T289:;
521          goto T288;}          goto T288;}
522          V78= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35))));          V78= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35))));
523          (void)((*(LnkLI58))((V74),/* INLINE-ARGS */V78));}          (void)((*(LnkLI58))((V74),/* INLINE-ARGS */V78));}
524    goto T288;
525  T288:;  T288:;
526          V46= number_plus((V46),small_fixnum(1));          V46= number_plus((V46),small_fixnum(1));
527          {object V79;          {object V79;
528          V79= car((V34));          V79= car((V34));
529          V34= cdr((V34));          V34= cdr((V34));
530          goto T135;}          goto T135;}
531    goto T286;
532  T286:;  T286:;
533          V80= (*(LnkLI56))((V46),(V35));          V80= (*(LnkLI56))((V46),(V35));
534          V81= (*(LnkLI59))((V46),(V35));          V81= (*(LnkLI59))((V46),(V35));
# Line 479  T286:; Line 538  T286:;
538          {object V83;          {object V83;
539          V83= car((V34));          V83= car((V34));
540          V34= cdr((V34));}}          V34= cdr((V34));}}
541    goto T135;
542  T135:;  T135:;
543          goto T111;}          goto T111;}
544            base[0]=base[0];
545            return Cnil;
546  }  }
547  /*      local entry for function DM-V   */  /*      local entry for function DM-V   */
548    
# Line 488  static object LI4(V86,V87) Line 550  static object LI4(V86,V87)
550    
551  register object V86;register object V87;  register object V86;register object V87;
552  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
553    goto TTL;
554  TTL:;  TTL:;
555          if(!(type_of((V86))==t_symbol)){          if(!(type_of((V86))==t_symbol)){
556          goto T320;}          goto T320;}
# Line 495  TTL:; Line 558  TTL:;
558          goto T325;}          goto T325;}
559          V88= list(2,(V86),(V87));          V88= list(2,(V86),(V87));
560          goto T323;          goto T323;
561    goto T325;
562  T325:;  T325:;
563          V88= (V86);          V88= (V86);
564    goto T323;
565  T323:;  T323:;
566          setq(VV[1],make_cons(V88,symbol_value(VV[1])));          setq(VV[1],make_cons(V88,symbol_value(VV[1])));
567          {object V89 = symbol_value(VV[1]);          {object V89 = symbol_value(VV[1]);
568          VMR4(V89)}          VMR4(V89)}
569    goto T320;
570  T320:;  T320:;
571          {object V90;          {object V90;
572          vs_base=vs_top;          vs_base=vs_top;
# Line 511  T320:; Line 577  T320:;
577          goto T332;}          goto T332;}
578          V91= list(2,(V90),(V87));          V91= list(2,(V90),(V87));
579          goto T330;          goto T330;
580    goto T332;
581  T332:;  T332:;
582          V91= (V90);          V91= (V90);
583    goto T330;
584  T330:;  T330:;
585          setq(VV[1],make_cons(V91,symbol_value(VV[1])));          setq(VV[1],make_cons(V91,symbol_value(VV[1])));
586          {object V92 = (*(LnkLI55))((V86),(V90),Cnil);          {object V92 = (*(LnkLI55))((V86),(V90),Cnil);
587          VMR4(V92)}}          VMR4(V92)}}
588            base[0]=base[0];
589            return Cnil;
590  }  }
591  /*      local entry for function DM-NTH */  /*      local entry for function DM-NTH */
592    
# Line 524  static object LI5(V95,V96) Line 594  static object LI5(V95,V96)
594    
595  object V95;register object V96;  object V95;register object V96;
596  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
597    goto TTL;
598  TTL:;  TTL:;
599          {object V97;          {object V97;
600          object V98;          object V98;
# Line 538  TTL:; Line 609  TTL:;
609          V98= vs_base[0];          V98= vs_base[0];
610          vs_top=sup;          vs_top=sup;
611          goto T339;          goto T339;
612    goto T337;
613  T337:;  T337:;
614          V97= Cnil;          V97= Cnil;
615    goto T338;
616  T338:;  T338:;
617          V98= Cnil;          V98= Cnil;
618    goto T339;
619  T339:;  T339:;
620          {register object V99;          {register object V99;
621          register object V100;          register object V100;
622          V99= (V97);          V99= (V97);
623          V100= small_fixnum(0);          V100= small_fixnum(0);
624    goto T344;
625  T344:;  T344:;
626          if(!(number_compare((V100),(V99))>=0)){          if(!(number_compare((V100),(V99))>=0)){
627          goto T345;}          goto T345;}
628          goto T340;          goto T340;
629    goto T345;
630  T345:;  T345:;
631          V96= list(2,VV[37],(V96));          V96= list(2,VV[37],(V96));
632          V100= one_plus((V100));          V100= one_plus((V100));
633          goto T344;}          goto T344;}
634    goto T340;
635  T340:;  T340:;
636          {object V101= (V98);          {object V101= (V98);
637          if(!eql(V101,VV[38]))goto T354;          if(!eql(V101,VV[38]))goto T354;
638          {object V102 = list(2,VV[39],(V96));          {object V102 = list(2,VV[39],(V96));
639          VMR5(V102)}          VMR5(V102)}
640    goto T354;
641  T354:;  T354:;
642          if(!eql(V101,VV[40]))goto T355;          if(!eql(V101,VV[40]))goto T355;
643          {object V103 = list(2,VV[41],(V96));          {object V103 = list(2,VV[41],(V96));
644          VMR5(V103)}          VMR5(V103)}
645    goto T355;
646  T355:;  T355:;
647          if(!eql(V101,VV[42]))goto T356;          if(!eql(V101,VV[42]))goto T356;
648          {object V104 = list(2,VV[43],(V96));          {object V104 = list(2,VV[43],(V96));
649          VMR5(V104)}          VMR5(V104)}
650    goto T356;
651  T356:;  T356:;
652          if(!eql(V101,VV[44]))goto T357;          if(!eql(V101,VV[44]))goto T357;
653          {object V105 = list(2,VV[45],(V96));          {object V105 = list(2,VV[45],(V96));
654          VMR5(V105)}          VMR5(V105)}
655    goto T357;
656  T357:;  T357:;
657          {object V106 = Cnil;          {object V106 = Cnil;
658          VMR5(V106)}}}          VMR5(V106)}}}
659            base[0]=base[0];
660            return Cnil;
661  }  }
662  /*      local entry for function DM-NTH-CDR     */  /*      local entry for function DM-NTH-CDR     */
663    
# Line 582  static object LI6(V109,V110) Line 665  static object LI6(V109,V110)
665    
666  object V109;register object V110;  object V109;register object V110;
667  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
668    goto TTL;
669  TTL:;  TTL:;
670          {object V111;          {object V111;
671          object V112;          object V112;
# Line 596  TTL:; Line 680  TTL:;
680          V112= vs_base[0];          V112= vs_base[0];
681          vs_top=sup;          vs_top=sup;
682          goto T363;          goto T363;
683    goto T361;
684  T361:;  T361:;
685          V111= Cnil;          V111= Cnil;
686    goto T362;
687  T362:;  T362:;
688          V112= Cnil;          V112= Cnil;
689    goto T363;
690  T363:;  T363:;
691          {register object V113;          {register object V113;
692          register object V114;          register object V114;
693          V113= (V111);          V113= (V111);
694          V114= small_fixnum(0);          V114= small_fixnum(0);
695    goto T368;
696  T368:;  T368:;
697          if(!(number_compare((V114),(V113))>=0)){          if(!(number_compare((V114),(V113))>=0)){
698          goto T369;}          goto T369;}
699          goto T364;          goto T364;
700    goto T369;
701  T369:;  T369:;
702          V110= list(2,VV[37],(V110));          V110= list(2,VV[37],(V110));
703          V114= one_plus((V114));          V114= one_plus((V114));
704          goto T368;}          goto T368;}
705    goto T364;
706  T364:;  T364:;
707          {object V115= (V112);          {object V115= (V112);
708          if(!eql(V115,VV[38]))goto T378;          if(!eql(V115,VV[38]))goto T378;
709          {object V116 = (V110);          {object V116 = (V110);
710          VMR6(V116)}          VMR6(V116)}
711    goto T378;
712  T378:;  T378:;
713          if(!eql(V115,VV[40]))goto T379;          if(!eql(V115,VV[40]))goto T379;
714          {object V117 = list(2,VV[46],(V110));          {object V117 = list(2,VV[46],(V110));
715          VMR6(V117)}          VMR6(V117)}
716    goto T379;
717  T379:;  T379:;
718          if(!eql(V115,VV[42]))goto T380;          if(!eql(V115,VV[42]))goto T380;
719          {object V118 = list(2,VV[47],(V110));          {object V118 = list(2,VV[47],(V110));
720          VMR6(V118)}          VMR6(V118)}
721    goto T380;
722  T380:;  T380:;
723          if(!eql(V115,VV[44]))goto T381;          if(!eql(V115,VV[44]))goto T381;
724          {object V119 = list(2,VV[48],(V110));          {object V119 = list(2,VV[48],(V110));
725          VMR6(V119)}          VMR6(V119)}
726    goto T381;
727  T381:;  T381:;
728          {object V120 = Cnil;          {object V120 = Cnil;
729          VMR6(V120)}}}          VMR6(V120)}}}
730            base[0]=base[0];
731            return Cnil;
732  }  }
733  /*      local entry for function DM-BAD-KEY     */  /*      local entry for function DM-BAD-KEY     */
734    
# Line 640  static object LI7(V122) Line 736  static object LI7(V122)
736    
737  object V122;  object V122;
738  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
739    goto TTL;
740  TTL:;  TTL:;
741          base[0]= VV[49];          base[0]= VV[49];
742          base[1]= (V122);          base[1]= (V122);
# Line 648  TTL:; Line 745  TTL:;
745          vs_top=sup;          vs_top=sup;
746          {object V123 = vs_base[0];          {object V123 = vs_base[0];
747          VMR7(V123)}          VMR7(V123)}
748            base[0]=base[0];
749            return Cnil;
750  }  }
751  /*      local entry for function DM-TOO-FEW-ARGUMENTS   */  /*      local entry for function DM-TOO-FEW-ARGUMENTS   */
752    
753  static object LI8()  static object LI8()
754    
755  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
756    goto TTL;
757  TTL:;  TTL:;
758          base[0]= VV[50];          base[0]= VV[50];
759          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 661  TTL:; Line 761  TTL:;
761          vs_top=sup;          vs_top=sup;
762          {object V124 = vs_base[0];          {object V124 = vs_base[0];
763          VMR8(V124)}          VMR8(V124)}
764            base[0]=base[0];
765            return Cnil;
766  }  }
767  /*      local entry for function DM-TOO-MANY-ARGUMENTS  */  /*      local entry for function DM-TOO-MANY-ARGUMENTS  */
768    
769  static object LI9()  static object LI9()
770    
771  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
772    goto TTL;
773  TTL:;  TTL:;
774          base[0]= VV[51];          base[0]= VV[51];
775          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 674  TTL:; Line 777  TTL:;
777          vs_top=sup;          vs_top=sup;
778          {object V125 = vs_base[0];          {object V125 = vs_base[0];
779          VMR9(V125)}          VMR9(V125)}
780            base[0]=base[0];
781            return Cnil;
782  }  }
783  /*      local entry for function DM-KEY-NOT-ALLOWED     */  /*      local entry for function DM-KEY-NOT-ALLOWED     */
784    
# Line 681  static object LI10(V127) Line 786  static object LI10(V127)
786    
787  object V127;  object V127;
788  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
789    goto TTL;
790  TTL:;  TTL:;
791          base[0]= VV[52];          base[0]= VV[52];
792          base[1]= (V127);          base[1]= (V127);
# Line 689  TTL:; Line 795  TTL:;
795          vs_top=sup;          vs_top=sup;
796          {object V128 = vs_base[0];          {object V128 = vs_base[0];
797          VMR10(V128)}          VMR10(V128)}
798            base[0]=base[0];
799            return Cnil;
800  }  }
801  /*      function definition for FIND-DOC        */  /*      function definition for FIND-DOC        */
802    
803  static L11()  static void L11()
804  {register object *base=vs_base;  {register object *base=vs_base;
805          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
806          vs_reserve(VM11);          vs_reserve(VM11);
# Line 702  static L11() Line 810  static L11()
810          V129=(base[0]);          V129=(base[0]);
811          V130=(base[1]);          V130=(base[1]);
812          vs_top=sup;          vs_top=sup;
813    goto TTL;
814  TTL:;  TTL:;
815          if(!(endp((V129)))){          if(!(endp((V129)))){
816          goto T389;}          goto T389;}
# Line 710  TTL:; Line 819  TTL:;
819          base[4]= Cnil;          base[4]= Cnil;
820          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
821          return;          return;
822    goto T389;
823  T389:;  T389:;
824          {register object V131;          {register object V131;
825          base[2]= car((V129));          base[2]= car((V129));
# Line 723  T389:; Line 833  T389:;
833          goto T399;}          goto T399;}
834          if(((V130))==Cnil){          if(((V130))==Cnil){
835          goto T400;}          goto T400;}
836    goto T399;
837  T399:;  T399:;
838          base[2]= Cnil;          base[2]= Cnil;
839          base[3]= Cnil;          base[3]= Cnil;
840          base[4]= make_cons((V131),cdr((V129)));          base[4]= make_cons((V131),cdr((V129)));
841          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
842          return;          return;
843    goto T400;
844  T400:;  T400:;
845          {object V132;          {object V132;
846          object V133;          object V133;
# Line 747  T400:; Line 859  T400:;
859          V134= vs_base[0];          V134= vs_base[0];
860          vs_top=sup;          vs_top=sup;
861          goto T413;          goto T413;
862    goto T410;
863  T410:;  T410:;
864          V132= Cnil;          V132= Cnil;
865    goto T411;
866  T411:;  T411:;
867          V133= Cnil;          V133= Cnil;
868    goto T412;
869  T412:;  T412:;
870          V134= Cnil;          V134= Cnil;
871    goto T413;
872  T413:;  T413:;
873          base[2]= (V131);          base[2]= (V131);
874          base[3]= (V133);          base[3]= (V133);
875          base[4]= (V134);          base[4]= (V134);
876          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
877          return;}          return;}
878    goto T397;
879  T397:;  T397:;
880          if(!(type_of((V131))==t_cons)){          if(!(type_of((V131))==t_cons)){
881          goto T418;}          goto T418;}
# Line 781  T397:; Line 898  T397:;
898          V137= vs_base[0];          V137= vs_base[0];
899          vs_top=sup;          vs_top=sup;
900          goto T428;          goto T428;
901    goto T425;
902  T425:;  T425:;
903          V135= Cnil;          V135= Cnil;
904    goto T426;
905  T426:;  T426:;
906          V136= Cnil;          V136= Cnil;
907    goto T427;
908  T427:;  T427:;
909          V137= Cnil;          V137= Cnil;
910    goto T428;
911  T428:;  T428:;
912          base[2]= (V135);          base[2]= (V135);
913          base[3]= make_cons((V131),(V136));          base[3]= make_cons((V131),(V136));
914          base[4]= (V137);          base[4]= (V137);
915          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
916          return;}          return;}
917    goto T418;
918  T418:;  T418:;
919          base[2]= Cnil;          base[2]= Cnil;
920          base[3]= Cnil;          base[3]= Cnil;
# Line 803  T418:; Line 925  T418:;
925  }  }
926  /*      function definition for FIND-DECLARATIONS       */  /*      function definition for FIND-DECLARATIONS       */
927    
928  static L12()  static void L12()
929  {register object *base=vs_base;  {register object *base=vs_base;
930          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
931          vs_reserve(VM12);          vs_reserve(VM12);
# Line 811  static L12() Line 933  static L12()
933          check_arg(1);          check_arg(1);
934          V138=(base[0]);          V138=(base[0]);
935          vs_top=sup;          vs_top=sup;
936    goto TTL;
937  TTL:;  TTL:;
938          if(!(endp((V138)))){          if(!(endp((V138)))){
939          goto T436;}          goto T436;}
# Line 818  TTL:; Line 941  TTL:;
941          base[2]= Cnil;          base[2]= Cnil;
942          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
943          return;          return;
944    goto T436;
945  T436:;  T436:;
946          {register object V139;          {register object V139;
947          base[1]= car((V138));          base[1]= car((V138));
# Line 833  T436:; Line 957  T436:;
957          base[2]= make_cons((V139),Cnil);          base[2]= make_cons((V139),Cnil);
958          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
959          return;          return;
960    goto T446;
961  T446:;  T446:;
962          {object V140;          {object V140;
963          object V141;          object V141;
# Line 846  T446:; Line 971  T446:;
971          V141= vs_base[0];          V141= vs_base[0];
972          vs_top=sup;          vs_top=sup;
973          goto T454;          goto T454;
974    goto T452;
975  T452:;  T452:;
976          V140= Cnil;          V140= Cnil;
977    goto T453;
978  T453:;  T453:;
979          V141= Cnil;          V141= Cnil;
980    goto T454;
981  T454:;  T454:;
982          base[1]= make_cons((V139),(V140));          base[1]= make_cons((V139),(V140));
983          base[2]= (V141);          base[2]= (V141);
984          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
985          return;}          return;}
986    goto T443;
987  T443:;  T443:;
988          if(!(type_of((V139))==t_cons)){          if(!(type_of((V139))==t_cons)){
989          goto T458;}          goto T458;}
# Line 872  T443:; Line 1001  T443:;
1001          V143= vs_base[0];          V143= vs_base[0];
1002          vs_top=sup;          vs_top=sup;
1003          goto T466;          goto T466;
1004    goto T464;
1005  T464:;  T464:;
1006          V142= Cnil;          V142= Cnil;
1007    goto T465;
1008  T465:;  T465:;
1009          V143= Cnil;          V143= Cnil;
1010    goto T466;
1011  T466:;  T466:;
1012          base[1]= make_cons((V139),(V142));          base[1]= make_cons((V139),(V142));
1013          base[2]= (V143);          base[2]= (V143);
1014          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1015          return;}          return;}
1016    goto T458;
1017  T458:;  T458:;
1018          base[1]= Cnil;          base[1]= Cnil;
1019          base[2]= make_cons((V139),cdr((V138)));          base[2]= make_cons((V139),cdr((V138)));
# Line 888  T458:; Line 1021  T458:;
1021          return;}          return;}
1022          }          }
1023  }  }
1024  static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* FIND-DECLARATIONS */  static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* FIND-DECLARATIONS */
1025  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* DM-NTH */  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* DM-NTH */
1026  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,2,ap);} /* DM-V */  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,2,ap);} /* DM-V */
1027  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* DM-BAD-KEY */  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* DM-BAD-KEY */
1028  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,2,ap);} /* DM-NTH-CDR */  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,2,ap);} /* DM-NTH-CDR */
1029  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,3,ap);} /* DM-VL */  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],(void **)&LnkLI55,3,ap);} /* DM-VL */
1030  static LnkT54(){ call_or_link(VV[54],&Lnk54);} /* GET-&ENVIRONMENT */  static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* GET-&ENVIRONMENT */
1031  static LnkT53(){ call_or_link(VV[53],&Lnk53);} /* FIND-DOC */  static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* FIND-DOC */
1032    
1033  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1034  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