/[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.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 65  T17:; Line 65  T17:;
65    
66  static object LI2(V9,V10,V11)  static object LI2(V9,V10,V11)
67    
68  object V9;register object V10;register object V11;  object V9;object V10;register object V11;
69  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
70          bds_check;          bds_check;
71  goto TTL;  goto TTL;
# Line 174  T74:; Line 174  T74:;
174          goto T70;          goto T70;
175  goto T75;  goto T75;
176  T75:;  T75:;
177          V21= list(3,VV[9],car((V20)),VV[10]);          {register object V21;
178          V22= list(3,VV[12],car((V20)),VV[13]);          V22= list(3,VV[9],car((V20)),VV[10]);
179          V23= make_cons(/* INLINE-ARGS */V22,Cnil);          V23= list(3,VV[12],car((V20)),VV[13]);
180          V24= list(3,VV[8],/* INLINE-ARGS */V21,list(4,VV[11],/* INLINE-ARGS */V23,VV[14],list(3,VV[8],list(3,VV[15],VV[16],list(2,VV[17],cdr((V20)))),VV[18])));          V24= make_cons(/* INLINE-ARGS */V23,Cnil);
181          V11= make_cons(/* INLINE-ARGS */V24,(V11));          V21= list(3,VV[8],/* INLINE-ARGS */V22,list(4,VV[11],/* INLINE-ARGS */V24,VV[14],list(3,VV[8],list(3,VV[15],VV[16],list(2,VV[17],cdr((V20)))),VV[18])));
182            V11= make_cons((V21),(V11));}
183          V19= cdr((V19));          V19= cdr((V19));
184          V20= car((V19));          V20= car((V19));
185          goto T74;}          goto T74;}
# Line 188  T70:; Line 189  T70:;
189          register object V26;          register object V26;
190          V25= (VV[3]->s.s_dbind);          V25= (VV[3]->s.s_dbind);
191          V26= car((V25));          V26= car((V25));
 goto T90;  
 T90:;  
         if(!(endp_prop((V25)))){  
         goto T91;}  
         goto T86;  
192  goto T91;  goto T91;
193  T91:;  T91:;
194            if(!(endp_prop((V25)))){
195            goto T92;}
196            goto T87;
197    goto T92;
198    T92:;
199            {register object V27;
200          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]);
201          V11= make_cons(/* INLINE-ARGS */V27,(V11));          V11= make_cons((V27),(V11));}
202          V25= cdr((V25));          V25= cdr((V25));
203          V26= car((V25));          V26= car((V25));
204          goto T90;}          goto T91;}
205  goto T86;  goto T87;
206  T86:;  T87:;
207          if(((V17))!=Cnil){          if(((V17))!=Cnil){
208          goto T102;}          goto T104;}
209            {object V28;
210          V28= list(2,VV[21],list(2,VV[22],(V16)));          V28= list(2,VV[21],list(2,VV[22],(V16)));
211          V11= make_cons(/* INLINE-ARGS */V28,(V11));          V11= make_cons((V28),(V11));}
212  goto T102;  goto T104;
213  T102:;  T104:;
214          V29= reverse((VV[1]->s.s_dbind));          V29= reverse((VV[1]->s.s_dbind));
215          {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))));
216          bds_unwind1;          bds_unwind1;
# Line 237  TTL:; Line 240  TTL:;
240          register object V46;          register object V46;
241          object V47;          object V47;
242          if(((V36))==Cnil){          if(((V36))==Cnil){
243          goto T108;}          goto T111;}
244          V46= small_fixnum(1);          V46= small_fixnum(1);
245          goto T106;          goto T109;
246  goto T108;  goto T111;
247  T108:;  T111:;
248          V46= small_fixnum(0);          V46= small_fixnum(0);
249  goto T106;  goto T109;
250  T106:;  T109:;
251          V37= Cnil;          V37= Cnil;
252          V38= Cnil;          V38= Cnil;
253          V39= Cnil;          V39= Cnil;
# Line 255  T106:; Line 258  T106:;
258          V44= Cnil;          V44= Cnil;
259          V45= Cnil;          V45= Cnil;
260          V47= Cnil;          V47= Cnil;
261  goto T111;  goto T114;
262  T111:;  T114:;
263          if(type_of((V34))==t_cons){          if(type_of((V34))==t_cons){
         goto T112;}  
         if(((V34))==Cnil){  
264          goto T115;}          goto T115;}
265          if(((V38))==Cnil){          if(((V34))==Cnil){
266          goto T118;}          goto T118;}
267            if(((V38))==Cnil){
268            goto T121;}
269          (void)((*(LnkLI57))(VV[4]));          (void)((*(LnkLI57))(VV[4]));
270  goto T118;  goto T121;
271  T118:;  T121:;
272            {object V48;
273          V48= list(2,(V34),(*(LnkLI56))((V46),(V35)));          V48= list(2,(V34),(*(LnkLI56))((V46),(V35)));
274          setq(VV[1],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[1])));          setq(VV[1],make_cons((V48),symbol_value(VV[1])));}
275          V45= Ct;          V45= Ct;
276  goto T115;  goto T118;
277  T115:;  T118:;
278          if(((V42))==Cnil){          if(((V42))==Cnil){
279          goto T124;}          goto T128;}
280          if(((V43))!=Cnil){          if(((V43))!=Cnil){
281          goto T124;}          goto T128;}
282            {object V49;
283          V49= make_cons((V42),(V44));          V49= make_cons((V42),(V44));
284          setq(VV[2],make_cons(/* INLINE-ARGS */V49,symbol_value(VV[2])));          setq(VV[2],make_cons((V49),symbol_value(VV[2])));}
285  goto T124;  goto T128;
286  T124:;  T128:;
287          if(((V45))!=Cnil){          if(((V45))!=Cnil){
288          goto T130;}          goto T135;}
289            {object V50;
290          V50= make_cons((V35),(V46));          V50= make_cons((V35),(V46));
291          setq(VV[3],make_cons(/* INLINE-ARGS */V50,symbol_value(VV[3])));          setq(VV[3],make_cons((V50),symbol_value(VV[3])));}
292  goto T130;  goto T135;
293  T130:;  T135:;
294          {object V51 = (V47);          {object V51 = (V47);
295          VMR3(V51)}          VMR3(V51)}
296  goto T112;  goto T115;
297  T112:;  T115:;
298          {register object V52;          {register object V52;
299          V52= car((V34));          V52= car((V34));
300          if(!(((V52))==(VV[24]))){          if(!(((V52))==(VV[24]))){
301          goto T138;}          goto T144;}
302          if(((V37))==Cnil){          if(((V37))==Cnil){
303          goto T140;}          goto T146;}
304          (void)((*(LnkLI57))(VV[24]));          (void)((*(LnkLI57))(VV[24]));
305  goto T140;  goto T146;
306  T140:;  T146:;
307          V37= Ct;          V37= Ct;
308          {object V53;          {object V53;
309          V53= car((V34));          V53= car((V34));
310          V34= cdr((V34));          V34= cdr((V34));
311          goto T135;}          goto T141;}
312  goto T138;  goto T144;
313  T138:;  T144:;
314          if(((V52))==(VV[4])){          if(((V52))==(VV[4])){
315          goto T148;}          goto T154;}
316          if(!(((V52))==(VV[25]))){          if(!(((V52))==(VV[25]))){
317          goto T149;}          goto T155;}
318  goto T148;  goto T154;
319  T148:;  T154:;
320          if(((V38))==Cnil){          if(((V38))==Cnil){
321          goto T153;}          goto T159;}
322          (void)((*(LnkLI57))((V52)));          (void)((*(LnkLI57))((V52)));
323  goto T153;  goto T159;
324  T153:;  T159:;
325          V54= cadr((V34));          V54= cadr((V34));
326          V55= (*(LnkLI56))((V46),(V35));          V55= (*(LnkLI56))((V46),(V35));
327          (void)((*(LnkLI58))(/* INLINE-ARGS */V54,/* INLINE-ARGS */V55));          (void)((*(LnkLI58))(/* INLINE-ARGS */V54,/* INLINE-ARGS */V55));
# Line 324  T153:; Line 330  T153:;
330          V45= Ct;          V45= Ct;
331          V34= cddr((V34));          V34= cddr((V34));
332          if(!(((V52))==(VV[25]))){          if(!(((V52))==(VV[25]))){
333          goto T135;}          goto T141;}
334          if(((V36))==Cnil){          if(((V36))==Cnil){
335          goto T169;}          goto T175;}
336          V47= one_minus((V46));          V47= one_minus((V46));
337          goto T167;          goto T173;
338  goto T169;  goto T175;
339  T169:;  T175:;
340          V47= (V46);          V47= (V46);
341  goto T167;  goto T173;
342  T167:;  T173:;
343          goto T135;          goto T141;
344  goto T149;  goto T155;
345  T149:;  T155:;
346          if(!(((V52))==(VV[26]))){          if(!(((V52))==(VV[26]))){
347          goto T172;}          goto T178;}
348          if(((V39))==Cnil){          if(((V39))==Cnil){
349          goto T174;}          goto T180;}
350          (void)((*(LnkLI57))(VV[26]));          (void)((*(LnkLI57))(VV[26]));
351  goto T174;  goto T180;
352  T174:;  T180:;
353          vs_base=vs_top;          vs_base=vs_top;
354          Lgensym();          Lgensym();
355          vs_top=sup;          vs_top=sup;
356          V42= vs_base[0];          V42= vs_base[0];
357            {object V56;
358          V56= list(2,(V42),(*(LnkLI56))((V46),(V35)));          V56= list(2,(V42),(*(LnkLI56))((V46),(V35)));
359          setq(VV[1],make_cons(/* INLINE-ARGS */V56,symbol_value(VV[1])));          setq(VV[1],make_cons((V56),symbol_value(VV[1])));}
360          V39= Ct;          V39= Ct;
361          V38= Ct;          V38= Ct;
362          V37= Ct;          V37= Ct;
# Line 357  T174:; Line 364  T174:;
364          {object V57;          {object V57;
365          V57= car((V34));          V57= car((V34));
366          V34= cdr((V34));          V34= cdr((V34));
367          goto T135;}          goto T141;}
368  goto T172;  goto T178;
369  T172:;  T178:;
370          if(!(((V52))==(VV[27]))){          if(!(((V52))==(VV[27]))){
371          goto T193;}          goto T200;}
372          if(((V39))==Cnil){          if(((V39))==Cnil){
373          goto T196;}          goto T203;}
374          if(((V40))==Cnil){          if(((V40))==Cnil){
375          goto T195;}          goto T202;}
376  goto T196;  goto T203;
377  T196:;  T203:;
378          (void)((*(LnkLI57))(VV[27]));          (void)((*(LnkLI57))(VV[27]));
379  goto T195;  goto T202;
380  T195:;  T202:;
381          V40= Ct;          V40= Ct;
382          V43= Ct;          V43= Ct;
383          {object V58;          {object V58;
384          V58= car((V34));          V58= car((V34));
385          V34= cdr((V34));          V34= cdr((V34));
386          goto T135;}          goto T141;}
387  goto T193;  goto T200;
388  T193:;  T200:;
389          if(!(((V52))==(VV[7]))){          if(!(((V52))==(VV[7]))){
390          goto T208;}          goto T215;}
391          if(((V41))==Cnil){          if(((V41))==Cnil){
392          goto T210;}          goto T217;}
393          (void)((*(LnkLI57))(VV[7]));          (void)((*(LnkLI57))(VV[7]));
394  goto T210;  goto T217;
395  T210:;  T217:;
396          V41= Ct;          V41= Ct;
397          V40= Ct;          V40= Ct;
398          V39= Ct;          V39= Ct;
# Line 394  T210:; Line 401  T210:;
401          {object V59;          {object V59;
402          V59= car((V34));          V59= car((V34));
403          V34= cdr((V34));          V34= cdr((V34));
404          goto T135;}          goto T141;}
405  goto T208;  goto T215;
406  T208:;  T215:;
407          if(((V41))==Cnil){          if(((V41))==Cnil){
408          goto T227;}          goto T234;}
409          {object V60;          {object V60;
410          object V61;          object V61;
411          V60= Cnil;          V60= Cnil;
412          V61= Cnil;          V61= Cnil;
413          if(!(type_of((V52))==t_symbol)){          if(!(type_of((V52))==t_symbol)){
414          goto T232;}          goto T239;}
415          V60= (V52);          V60= (V52);
416          goto T230;          goto T237;
417  goto T232;  goto T239;
418  T232:;  T239:;
419          V60= car((V52));          V60= car((V52));
420          if(endp_prop(cdr((V52)))){          if(endp_prop(cdr((V52)))){
421          goto T230;}          goto T237;}
422          V61= cadr((V52));          V61= cadr((V52));
423  goto T230;  goto T237;
424  T230:;  T237:;
425          (void)((*(LnkLI58))((V60),(V61)));}          (void)((*(LnkLI58))((V60),(V61)));}
426          {object V62;          {object V62;
427          V62= car((V34));          V62= car((V34));
428          V34= cdr((V34));          V34= cdr((V34));
429          goto T135;}          goto T141;}
430  goto T227;  goto T234;
431  T227:;  T234:;
432          if(((V39))==Cnil){          if(((V39))==Cnil){
433          goto T244;}          goto T251;}
434          {object V63;          {object V63;
435          object V64;          object V64;
436          register object V65;          register object V65;
# Line 438  T227:; Line 445  T227:;
445          V66= Cnil;          V66= Cnil;
446          V67= Cnil;          V67= Cnil;
447          if(!(type_of((V52))==t_symbol)){          if(!(type_of((V52))==t_symbol)){
448          goto T250;}          goto T257;}
449          V64= (V52);          V64= (V52);
450          base[0]= coerce_to_string((V52));          base[0]= coerce_to_string((V52));
451          base[1]= VV[28];          base[1]= VV[28];
# Line 446  T227:; Line 453  T227:;
453          Lintern();          Lintern();
454          vs_top=sup;          vs_top=sup;
455          V65= vs_base[0];          V65= vs_base[0];
456          goto T248;          goto T255;
457  goto T250;  goto T257;
458  T250:;  T257:;
459          if(!(type_of(car((V52)))==t_symbol)){          if(!(type_of(car((V52)))==t_symbol)){
460          goto T259;}          goto T266;}
461          V64= car((V52));          V64= car((V52));
462          base[0]= coerce_to_string(car((V52)));          base[0]= coerce_to_string(car((V52)));
463          base[1]= VV[28];          base[1]= VV[28];
# Line 458  T250:; Line 465  T250:;
465          Lintern();          Lintern();
466          vs_top=sup;          vs_top=sup;
467          V65= vs_base[0];          V65= vs_base[0];
468          goto T257;          goto T264;
469  goto T259;  goto T266;
470  T259:;  T266:;
471          V64= cadar((V52));          V64= cadar((V52));
472          V65= caar((V52));          V65= caar((V52));
473  goto T257;  goto T264;
474  T257:;  T264:;
475          if(endp_prop(cdr((V52)))){          if(endp_prop(cdr((V52)))){
476          goto T248;}          goto T255;}
477          V66= cadr((V52));          V66= cadr((V52));
478          if(endp_prop(cddr((V52)))){          if(endp_prop(cddr((V52)))){
479          goto T248;}          goto T255;}
480          V67= caddr((V52));          V67= caddr((V52));
481  goto T248;  goto T255;
482  T248:;  T255:;
483          V68= list(4,VV[9],(V42),(V65),VV[29]);          V68= list(4,VV[9],(V42),(V65),VV[29]);
484          (void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68));          (void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68));
485          V69= list(4,VV[30],list(3,VV[31],(V63),VV[32]),(V66),(V63));          V69= list(4,VV[30],list(3,VV[31],(V63),VV[32]),(V66),(V63));
486          (void)((*(LnkLI58))((V64),/* INLINE-ARGS */V69));          (void)((*(LnkLI58))((V64),/* INLINE-ARGS */V69));
487          if(((V67))==Cnil){          if(((V67))==Cnil){
488          goto T278;}          goto T285;}
489          V70= list(2,VV[33],list(3,VV[31],(V63),VV[34]));          V70= list(2,VV[33],list(3,VV[31],(V63),VV[34]));
490          (void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70));          (void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70));
491  goto T278;  goto T285;
492  T278:;  T285:;
493          V44= make_cons((V65),(V44));}          V44= make_cons(V65,(V44));}
494          {object V71;          {object V72;
495          V71= car((V34));          V72= car((V34));
496          V34= cdr((V34));          V34= cdr((V34));
497          goto T135;}          goto T141;}
498  goto T244;  goto T251;
499  T244:;  T251:;
500          if(((V37))==Cnil){          if(((V37))==Cnil){
501          goto T286;}          goto T293;}
502          {object V72;          {object V73;
         object V73;  
503          object V74;          object V74;
504          V72= Cnil;          object V75;
505          V73= Cnil;          V73= Cnil;
506          V74= Cnil;          V74= Cnil;
507            V75= Cnil;
508          if(!(type_of((V52))==t_symbol)){          if(!(type_of((V52))==t_symbol)){
509          goto T291;}          goto T298;}
510          V72= (V52);          V73= (V52);
511          goto T289;          goto T296;
512  goto T291;  goto T298;
513  T291:;  T298:;
514          V72= car((V52));          V73= car((V52));
515          if(endp_prop(cdr((V52)))){          if(endp_prop(cdr((V52)))){
516          goto T289;}          goto T296;}
517          V73= cadr((V52));          V74= cadr((V52));
518          if(endp_prop(cddr((V52)))){          if(endp_prop(cddr((V52)))){
519          goto T289;}          goto T296;}
520          V74= caddr((V52));          V75= caddr((V52));
521  goto T289;  goto T296;
522  T289:;  T296:;
523          V75= (*(LnkLI56))((V46),(V35));          V76= (*(LnkLI56))((V46),(V35));
524          V76= (*(LnkLI59))((V46),(V35));          V77= (*(LnkLI59))((V46),(V35));
525          V77= list(4,VV[30],/* INLINE-ARGS */V75,/* INLINE-ARGS */V76,(V73));          V78= list(4,VV[30],/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,(V74));
526          (void)((*(LnkLI58))((V72),/* INLINE-ARGS */V77));          (void)((*(LnkLI58))((V73),/* INLINE-ARGS */V78));
527          if(((V74))==Cnil){          if(((V75))==Cnil){
528          goto T288;}          goto T295;}
529          V78= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35))));          V79= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35))));
530          (void)((*(LnkLI58))((V74),/* INLINE-ARGS */V78));}          (void)((*(LnkLI58))((V75),/* INLINE-ARGS */V79));}
531  goto T288;  goto T295;
532  T288:;  T295:;
533          V46= number_plus((V46),small_fixnum(1));          V46= number_plus((V46),small_fixnum(1));
534          {object V79;          {object V80;
535          V79= car((V34));          V80= car((V34));
536          V34= cdr((V34));          V34= cdr((V34));
537          goto T135;}          goto T141;}
538  goto T286;  goto T293;
539  T286:;  T293:;
540          V80= (*(LnkLI56))((V46),(V35));          V81= (*(LnkLI56))((V46),(V35));
541          V81= (*(LnkLI59))((V46),(V35));          V82= (*(LnkLI59))((V46),(V35));
542          V82= list(4,VV[30],/* INLINE-ARGS */V80,/* INLINE-ARGS */V81,VV[36]);          V83= list(4,VV[30],/* INLINE-ARGS */V81,/* INLINE-ARGS */V82,VV[36]);
543          (void)((*(LnkLI58))((V52),/* INLINE-ARGS */V82));          (void)((*(LnkLI58))((V52),/* INLINE-ARGS */V83));
544          V46= number_plus((V46),small_fixnum(1));          V46= number_plus((V46),small_fixnum(1));
545          {object V83;          {object V84;
546          V83= car((V34));          V84= car((V34));
547          V34= cdr((V34));}}          V34= cdr((V34));}}
548  goto T135;  goto T141;
549  T135:;  T141:;
550          goto T111;}          goto T114;}
551          base[0]=base[0];          base[0]=base[0];
552          return Cnil;          return Cnil;
553  }  }
554  /*      local entry for function DM-V   */  /*      local entry for function DM-V   */
555    
556  static object LI4(V86,V87)  static object LI4(V87,V88)
557    
558  register object V86;register object V87;  register object V87;register object V88;
559  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
560  goto TTL;  goto TTL;
561  TTL:;  TTL:;
562          if(!(type_of((V86))==t_symbol)){          if(!(type_of((V87))==t_symbol)){
563          goto T320;}          goto T327;}
564          if(((V87))==Cnil){          {object V89;
565          goto T325;}          if(((V88))==Cnil){
566          V88= list(2,(V86),(V87));          goto T331;}
567          goto T323;          V89= list(2,(V87),(V88));
568  goto T325;          goto T329;
569  T325:;  goto T331;
570          V88= (V86);  T331:;
571  goto T323;          V89= (V87);
572  T323:;  goto T329;
573          setq(VV[1],make_cons(V88,symbol_value(VV[1])));  T329:;
574          {object V89 = symbol_value(VV[1]);          setq(VV[1],make_cons((V89),symbol_value(VV[1])));
575          VMR4(V89)}          {object V90 = symbol_value(VV[1]);
576  goto T320;          VMR4(V90)}}
577  T320:;  goto T327;
578          {object V90;  T327:;
579            {object V91;
580          vs_base=vs_top;          vs_base=vs_top;
581          Lgensym();          Lgensym();
582          vs_top=sup;          vs_top=sup;
583          V90= vs_base[0];          V91= vs_base[0];
584          if(((V87))==Cnil){          {object V92;
585          goto T332;}          if(((V88))==Cnil){
586          V91= list(2,(V90),(V87));          goto T338;}
587          goto T330;          V92= list(2,(V91),(V88));
588  goto T332;          goto T336;
589  T332:;  goto T338;
590          V91= (V90);  T338:;
591  goto T330;          V92= (V91);
592  T330:;  goto T336;
593          setq(VV[1],make_cons(V91,symbol_value(VV[1])));  T336:;
594          {object V92 = (*(LnkLI55))((V86),(V90),Cnil);          setq(VV[1],make_cons((V92),symbol_value(VV[1])));}
595          VMR4(V92)}}          {object V93 = (*(LnkLI55))((V87),(V91),Cnil);
596            VMR4(V93)}}
597          base[0]=base[0];          base[0]=base[0];
598          return Cnil;          return Cnil;
599  }  }
600  /*      local entry for function DM-NTH */  /*      local entry for function DM-NTH */
601    
602  static object LI5(V95,V96)  static object LI5(V96,V97)
603    
604  object V95;register object V96;  object V96;register object V97;
605  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
606  goto TTL;  goto TTL;
607  TTL:;  TTL:;
608          {object V97;          {object V98;
609          object V98;          object V99;
610          base[0]= (V95);          base[0]= (V96);
611          base[1]= small_fixnum(4);          base[1]= small_fixnum(4);
612          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
613          Lfloor();          Lfloor();
614          if(vs_base>=vs_top){vs_top=sup;goto T337;}          if(vs_base>=vs_top){vs_top=sup;goto T344;}
         V97= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T338;}  
615          V98= vs_base[0];          V98= vs_base[0];
616            vs_base++;
617            if(vs_base>=vs_top){vs_top=sup;goto T345;}
618            V99= vs_base[0];
619          vs_top=sup;          vs_top=sup;
620          goto T339;          goto T346;
 goto T337;  
 T337:;  
         V97= Cnil;  
 goto T338;  
 T338:;  
         V98= Cnil;  
 goto T339;  
 T339:;  
         {register object V99;  
         register object V100;  
         V99= (V97);  
         V100= small_fixnum(0);  
621  goto T344;  goto T344;
622  T344:;  T344:;
623          if(!(number_compare((V100),(V99))>=0)){          V98= Cnil;
         goto T345;}  
         goto T340;  
624  goto T345;  goto T345;
625  T345:;  T345:;
626          V96= list(2,VV[37],(V96));          V99= Cnil;
627          V100= one_plus((V100));  goto T346;
628          goto T344;}  T346:;
629  goto T340;          {register object V100;
630  T340:;          register object V101;
631          {object V101= (V98);          V100= (V98);
632          if(!eql(V101,VV[38]))goto T354;          V101= small_fixnum(0);
633          {object V102 = list(2,VV[39],(V96));  goto T351;
634          VMR5(V102)}  T351:;
635  goto T354;          if(!(number_compare((V101),(V100))>=0)){
636  T354:;          goto T352;}
637          if(!eql(V101,VV[40]))goto T355;          goto T347;
638          {object V103 = list(2,VV[41],(V96));  goto T352;
639    T352:;
640            V97= list(2,VV[37],(V97));
641            V101= one_plus((V101));
642            goto T351;}
643    goto T347;
644    T347:;
645            {object V102= (V99);
646            if(!eql(V102,VV[38]))goto T361;
647            {object V103 = list(2,VV[39],(V97));
648          VMR5(V103)}          VMR5(V103)}
649  goto T355;  goto T361;
650  T355:;  T361:;
651          if(!eql(V101,VV[42]))goto T356;          if(!eql(V102,VV[40]))goto T362;
652          {object V104 = list(2,VV[43],(V96));          {object V104 = list(2,VV[41],(V97));
653          VMR5(V104)}          VMR5(V104)}
654  goto T356;  goto T362;
655  T356:;  T362:;
656          if(!eql(V101,VV[44]))goto T357;          if(!eql(V102,VV[42]))goto T363;
657          {object V105 = list(2,VV[45],(V96));          {object V105 = list(2,VV[43],(V97));
658          VMR5(V105)}          VMR5(V105)}
659  goto T357;  goto T363;
660  T357:;  T363:;
661          {object V106 = Cnil;          if(!eql(V102,VV[44]))goto T364;
662          VMR5(V106)}}}          {object V106 = list(2,VV[45],(V97));
663            VMR5(V106)}
664    goto T364;
665    T364:;
666            {object V107 = Cnil;
667            VMR5(V107)}}}
668          base[0]=base[0];          base[0]=base[0];
669          return Cnil;          return Cnil;
670  }  }
671  /*      local entry for function DM-NTH-CDR     */  /*      local entry for function DM-NTH-CDR     */
672    
673  static object LI6(V109,V110)  static object LI6(V110,V111)
674    
675  object V109;register object V110;  object V110;register object V111;
676  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
677  goto TTL;  goto TTL;
678  TTL:;  TTL:;
679          {object V111;          {object V112;
680          object V112;          object V113;
681          base[0]= (V109);          base[0]= (V110);
682          base[1]= small_fixnum(4);          base[1]= small_fixnum(4);
683          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
684          Lfloor();          Lfloor();
685          if(vs_base>=vs_top){vs_top=sup;goto T361;}          if(vs_base>=vs_top){vs_top=sup;goto T368;}
         V111= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T362;}  
686          V112= vs_base[0];          V112= vs_base[0];
687            vs_base++;
688            if(vs_base>=vs_top){vs_top=sup;goto T369;}
689            V113= vs_base[0];
690          vs_top=sup;          vs_top=sup;
691          goto T363;          goto T370;
 goto T361;  
 T361:;  
         V111= Cnil;  
 goto T362;  
 T362:;  
         V112= Cnil;  
 goto T363;  
 T363:;  
         {register object V113;  
         register object V114;  
         V113= (V111);  
         V114= small_fixnum(0);  
692  goto T368;  goto T368;
693  T368:;  T368:;
694          if(!(number_compare((V114),(V113))>=0)){          V112= Cnil;
         goto T369;}  
         goto T364;  
695  goto T369;  goto T369;
696  T369:;  T369:;
697          V110= list(2,VV[37],(V110));          V113= Cnil;
698          V114= one_plus((V114));  goto T370;
699          goto T368;}  T370:;
700  goto T364;          {register object V114;
701  T364:;          register object V115;
702          {object V115= (V112);          V114= (V112);
703          if(!eql(V115,VV[38]))goto T378;          V115= small_fixnum(0);
704          {object V116 = (V110);  goto T375;
705          VMR6(V116)}  T375:;
706  goto T378;          if(!(number_compare((V115),(V114))>=0)){
707  T378:;          goto T376;}
708          if(!eql(V115,VV[40]))goto T379;          goto T371;
709          {object V117 = list(2,VV[46],(V110));  goto T376;
710    T376:;
711            V111= list(2,VV[37],(V111));
712            V115= one_plus((V115));
713            goto T375;}
714    goto T371;
715    T371:;
716            {object V116= (V113);
717            if(!eql(V116,VV[38]))goto T385;
718            {object V117 = (V111);
719          VMR6(V117)}          VMR6(V117)}
720  goto T379;  goto T385;
721  T379:;  T385:;
722          if(!eql(V115,VV[42]))goto T380;          if(!eql(V116,VV[40]))goto T386;
723          {object V118 = list(2,VV[47],(V110));          {object V118 = list(2,VV[46],(V111));
724          VMR6(V118)}          VMR6(V118)}
725  goto T380;  goto T386;
726  T380:;  T386:;
727          if(!eql(V115,VV[44]))goto T381;          if(!eql(V116,VV[42]))goto T387;
728          {object V119 = list(2,VV[48],(V110));          {object V119 = list(2,VV[47],(V111));
729          VMR6(V119)}          VMR6(V119)}
730  goto T381;  goto T387;
731  T381:;  T387:;
732          {object V120 = Cnil;          if(!eql(V116,VV[44]))goto T388;
733          VMR6(V120)}}}          {object V120 = list(2,VV[48],(V111));
734            VMR6(V120)}
735    goto T388;
736    T388:;
737            {object V121 = Cnil;
738            VMR6(V121)}}}
739          base[0]=base[0];          base[0]=base[0];
740          return Cnil;          return Cnil;
741  }  }
742  /*      local entry for function DM-BAD-KEY     */  /*      local entry for function DM-BAD-KEY     */
743    
744  static object LI7(V122)  static object LI7(V123)
745    
746  object V122;  object V123;
747  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
748  goto TTL;  goto TTL;
749  TTL:;  TTL:;
750          base[0]= VV[49];          base[0]= VV[49];
751          base[1]= (V122);          base[1]= (V123);
752          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
753          Lerror();          Lerror();
754          vs_top=sup;          vs_top=sup;
755          {object V123 = vs_base[0];          {object V124 = vs_base[0];
756          VMR7(V123)}          VMR7(V124)}
757          base[0]=base[0];          base[0]=base[0];
758          return Cnil;          return Cnil;
759  }  }
# Line 759  TTL:; Line 768  TTL:;
768          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
769          Lerror();          Lerror();
770          vs_top=sup;          vs_top=sup;
771          {object V124 = vs_base[0];          {object V125 = vs_base[0];
772          VMR8(V124)}          VMR8(V125)}
773          base[0]=base[0];          base[0]=base[0];
774          return Cnil;          return Cnil;
775  }  }
# Line 775  TTL:; Line 784  TTL:;
784          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
785          Lerror();          Lerror();
786          vs_top=sup;          vs_top=sup;
787          {object V125 = vs_base[0];          {object V126 = vs_base[0];
788          VMR9(V125)}          VMR9(V126)}
789          base[0]=base[0];          base[0]=base[0];
790          return Cnil;          return Cnil;
791  }  }
792  /*      local entry for function DM-KEY-NOT-ALLOWED     */  /*      local entry for function DM-KEY-NOT-ALLOWED     */
793    
794  static object LI10(V127)  static object LI10(V128)
795    
796  object V127;  object V128;
797  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
798  goto TTL;  goto TTL;
799  TTL:;  TTL:;
800          base[0]= VV[52];          base[0]= VV[52];
801          base[1]= (V127);          base[1]= (V128);
802          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
803          Lerror();          Lerror();
804          vs_top=sup;          vs_top=sup;
805          {object V128 = vs_base[0];          {object V129 = vs_base[0];
806          VMR10(V128)}          VMR10(V129)}
807          base[0]=base[0];          base[0]=base[0];
808          return Cnil;          return Cnil;
809  }  }
# Line 804  static void L11() Line 813  static void L11()
813  {register object *base=vs_base;  {register object *base=vs_base;
814          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
815          vs_reserve(VM11);          vs_reserve(VM11);
816          {register object V129;          {register object V130;
817          object V130;          object V131;
818          check_arg(2);          check_arg(2);
819          V129=(base[0]);          V130=(base[0]);
820          V130=(base[1]);          V131=(base[1]);
821          vs_top=sup;          vs_top=sup;
822  goto TTL;  goto TTL;
823  TTL:;  TTL:;
824          if(!(endp_prop((V129)))){          if(!(endp_prop((V130)))){
825          goto T389;}          goto T396;}
826          base[2]= Cnil;          base[2]= Cnil;
827          base[3]= Cnil;          base[3]= Cnil;
828          base[4]= Cnil;          base[4]= Cnil;
829          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
830          return;          return;
831  goto T389;  goto T396;
832  T389:;  T396:;
833          {register object V131;          {register object V132;
834          base[2]= car((V129));          base[2]= car((V130));
835          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
836          Lmacroexpand();          Lmacroexpand();
837          vs_top=sup;          vs_top=sup;
838          V131= vs_base[0];          V132= vs_base[0];
839          if(!(type_of((V131))==t_string)){          if(!(type_of((V132))==t_string)){
840          goto T397;}          goto T404;}
841          if(endp_prop(cdr((V129)))){          if(endp_prop(cdr((V130)))){
842          goto T399;}          goto T406;}
843          if(((V130))==Cnil){          if(((V131))==Cnil){
844          goto T400;}          goto T407;}
845  goto T399;  goto T406;
846  T399:;  T406:;
847          base[2]= Cnil;          base[2]= Cnil;
848          base[3]= Cnil;          base[3]= Cnil;
849          base[4]= make_cons((V131),cdr((V129)));          base[4]= make_cons((V132),cdr((V130)));
850          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
851          return;          return;
852  goto T400;  goto T407;
853  T400:;  T407:;
854          {object V132;          {object V133;
         object V133;  
855          object V134;          object V134;
856          base[2]= cdr((V129));          object V135;
857            base[2]= cdr((V130));
858          base[3]= Ct;          base[3]= Ct;
859          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
860          (void) (*Lnk53)();          (void) (*Lnk53)();
861          if(vs_base>=vs_top){vs_top=sup;goto T410;}          if(vs_base>=vs_top){vs_top=sup;goto T417;}
         V132= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T411;}  
862          V133= vs_base[0];          V133= vs_base[0];
863          vs_base++;          vs_base++;
864          if(vs_base>=vs_top){vs_top=sup;goto T412;}          if(vs_base>=vs_top){vs_top=sup;goto T418;}
865          V134= vs_base[0];          V134= vs_base[0];
866            vs_base++;
867            if(vs_base>=vs_top){vs_top=sup;goto T419;}
868            V135= vs_base[0];
869          vs_top=sup;          vs_top=sup;
870          goto T413;          goto T420;
871  goto T410;  goto T417;
872  T410:;  T417:;
         V132= Cnil;  
 goto T411;  
 T411:;  
873          V133= Cnil;          V133= Cnil;
874  goto T412;  goto T418;
875  T412:;  T418:;
876          V134= Cnil;          V134= Cnil;
877  goto T413;  goto T419;
878  T413:;  T419:;
879          base[2]= (V131);          V135= Cnil;
880          base[3]= (V133);  goto T420;
881          base[4]= (V134);  T420:;
882            base[2]= (V132);
883            base[3]= (V134);
884            base[4]= (V135);
885          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
886          return;}          return;}
887  goto T397;  goto T404;
888  T397:;  T404:;
889          if(!(type_of((V131))==t_cons)){          if(!(type_of((V132))==t_cons)){
890          goto T418;}          goto T425;}
891          if(!((car((V131)))==(VV[21]))){          if(!((car((V132)))==(VV[21]))){
892          goto T418;}          goto T425;}
893          {object V135;          {object V136;
         object V136;  
894          object V137;          object V137;
895          base[2]= cdr((V129));          object V138;
896          base[3]= (V130);          base[2]= cdr((V130));
897            base[3]= (V131);
898          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
899          (void) (*Lnk53)();          (void) (*Lnk53)();
900          if(vs_base>=vs_top){vs_top=sup;goto T425;}          if(vs_base>=vs_top){vs_top=sup;goto T432;}
         V135= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T426;}  
901          V136= vs_base[0];          V136= vs_base[0];
902          vs_base++;          vs_base++;
903          if(vs_base>=vs_top){vs_top=sup;goto T427;}          if(vs_base>=vs_top){vs_top=sup;goto T433;}
904          V137= vs_base[0];          V137= vs_base[0];
905            vs_base++;
906            if(vs_base>=vs_top){vs_top=sup;goto T434;}
907            V138= vs_base[0];
908          vs_top=sup;          vs_top=sup;
909          goto T428;          goto T435;
910  goto T425;  goto T432;
911  T425:;  T432:;
         V135= Cnil;  
 goto T426;  
 T426:;  
912          V136= Cnil;          V136= Cnil;
913  goto T427;  goto T433;
914  T427:;  T433:;
915          V137= Cnil;          V137= Cnil;
916  goto T428;  goto T434;
917  T428:;  T434:;
918          base[2]= (V135);          V138= Cnil;
919          base[3]= make_cons((V131),(V136));  goto T435;
920          base[4]= (V137);  T435:;
921            base[2]= (V136);
922            base[3]= make_cons((V132),(V137));
923            base[4]= (V138);
924          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
925          return;}          return;}
926  goto T418;  goto T425;
927  T418:;  T425:;
928          base[2]= Cnil;          base[2]= Cnil;
929          base[3]= Cnil;          base[3]= Cnil;
930          base[4]= make_cons((V131),cdr((V129)));          base[4]= make_cons((V132),cdr((V130)));
931          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
932          return;}          return;}
933          }          }
# Line 929  static void L12() Line 938  static void L12()
938  {register object *base=vs_base;  {register object *base=vs_base;
939          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
940          vs_reserve(VM12);          vs_reserve(VM12);
941          {register object V138;          {register object V139;
942          check_arg(1);          check_arg(1);
943          V138=(base[0]);          V139=(base[0]);
944          vs_top=sup;          vs_top=sup;
945  goto TTL;  goto TTL;
946  TTL:;  TTL:;
947          if(!(endp_prop((V138)))){          if(!(endp_prop((V139)))){
948          goto T436;}          goto T443;}
949          base[1]= Cnil;          base[1]= Cnil;
950          base[2]= Cnil;          base[2]= Cnil;
951          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
952          return;          return;
953  goto T436;  goto T443;
954  T436:;  T443:;
955          {register object V139;          {register object V140;
956          base[1]= car((V138));          base[1]= car((V139));
957          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
958          Lmacroexpand();          Lmacroexpand();
959          vs_top=sup;          vs_top=sup;
960          V139= vs_base[0];          V140= vs_base[0];
961          if(!(type_of((V139))==t_string)){          if(!(type_of((V140))==t_string)){
962          goto T443;}          goto T450;}
963          if(!(endp_prop(cdr((V138))))){          if(!(endp_prop(cdr((V139))))){
964          goto T446;}          goto T453;}
965          base[1]= Cnil;          base[1]= Cnil;
966          base[2]= make_cons((V139),Cnil);          base[2]= make_cons((V140),Cnil);
967          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
968          return;          return;
969  goto T446;  goto T453;
970  T446:;  T453:;
971          {object V140;          {object V141;
972          object V141;          object V142;
973          base[1]= cdr((V138));          base[1]= cdr((V139));
974          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
975          (void) (*Lnk60)();          (void) (*Lnk60)();
976          if(vs_base>=vs_top){vs_top=sup;goto T452;}          if(vs_base>=vs_top){vs_top=sup;goto T459;}
         V140= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T453;}  
977          V141= vs_base[0];          V141= vs_base[0];
978            vs_base++;
979            if(vs_base>=vs_top){vs_top=sup;goto T460;}
980            V142= vs_base[0];
981          vs_top=sup;          vs_top=sup;
982          goto T454;          goto T461;
983  goto T452;  goto T459;
984  T452:;  T459:;
         V140= Cnil;  
 goto T453;  
 T453:;  
985          V141= Cnil;          V141= Cnil;
986  goto T454;  goto T460;
987  T454:;  T460:;
988          base[1]= make_cons((V139),(V140));          V142= Cnil;
989          base[2]= (V141);  goto T461;
990    T461:;
991            base[1]= make_cons((V140),(V141));
992            base[2]= (V142);
993          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
994          return;}          return;}
995  goto T443;  goto T450;
996  T443:;  T450:;
997          if(!(type_of((V139))==t_cons)){          if(!(type_of((V140))==t_cons)){
998          goto T458;}          goto T465;}
999          if(!((car((V139)))==(VV[21]))){          if(!((car((V140)))==(VV[21]))){
1000          goto T458;}          goto T465;}
1001          {object V142;          {object V143;
1002          object V143;          object V144;
1003          base[1]= cdr((V138));          base[1]= cdr((V139));
1004          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1005          (void) (*Lnk60)();          (void) (*Lnk60)();
1006          if(vs_base>=vs_top){vs_top=sup;goto T464;}          if(vs_base>=vs_top){vs_top=sup;goto T471;}
         V142= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T465;}  
1007          V143= vs_base[0];          V143= vs_base[0];
1008            vs_base++;
1009            if(vs_base>=vs_top){vs_top=sup;goto T472;}
1010            V144= vs_base[0];
1011          vs_top=sup;          vs_top=sup;
1012          goto T466;          goto T473;
1013  goto T464;  goto T471;
1014  T464:;  T471:;
         V142= Cnil;  
 goto T465;  
 T465:;  
1015          V143= Cnil;          V143= Cnil;
1016  goto T466;  goto T472;
1017  T466:;  T472:;
1018          base[1]= make_cons((V139),(V142));          V144= Cnil;
1019          base[2]= (V143);  goto T473;
1020    T473:;
1021            base[1]= make_cons((V140),(V143));
1022            base[2]= (V144);
1023          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1024          return;}          return;}
1025  goto T458;  goto T465;
1026  T458:;  T465:;
1027          base[1]= Cnil;          base[1]= Cnil;
1028          base[2]= make_cons((V139),cdr((V138)));          base[2]= make_cons((V140),cdr((V139)));
1029          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1030          return;}          return;}
1031          }          }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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