/[gcl]/gcl/cmpnew/cmpvar.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpvar.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:42 2002 UTC
# Line 230  TTL:; Line 230  TTL:;
230          object V40;          object V40;
231          V39= (VFUN_NARGS=0,(*(LnkLI71))());          V39= (VFUN_NARGS=0,(*(LnkLI71))());
232          V40= (*(LnkLI72))((V38));          V40= (*(LnkLI72))((V38));
233          {object V42;          {object V41;
234          V43= car((V40));          object V43;
235            V41= car((V40));
236          V44= structure_ref(V39,VV[12],1);          V44= structure_ref(V39,VV[12],1);
237          V42= make_cons(/* INLINE-ARGS */V43,/* INLINE-ARGS */V44);          V43= make_cons((V41),/* INLINE-ARGS */V44);
238          (void)(structure_set(V39,VV[12],1,(V42)));}          (void)(structure_set(V39,VV[12],1,(V43)));}
239          V45= structure_ref(car((V40)),VV[0],5);          V45= structure_ref(car((V40)),VV[0],5);
240          (void)(structure_set((V39),VV[12],2,/* INLINE-ARGS */V45));          (void)(structure_set((V39),VV[12],2,/* INLINE-ARGS */V45));
241          {object V46 = list(3,VV[0],(V39),(V40));          {object V46 = list(3,VV[0],(V39),(V40));
# Line 258  TTL:; Line 259  TTL:;
259          register object V52;          register object V52;
260          V51= symbol_value(VV[13]);          V51= symbol_value(VV[13]);
261          V52= car((V51));          V52= car((V51));
262  goto T84;  goto T85;
263  T84:;  T85:;
264          if(!(endp_prop((V51)))){          if(!(endp_prop((V51)))){
265          goto T85;}          goto T86;}
266          {register object V53;          {register object V53;
267          V53= (*(LnkLI73))((V48));          V53= (*(LnkLI73))((V48));
268          if(((V53))!=Cnil){          if(((V53))!=Cnil){
269          goto T89;}          goto T90;}
270          base[1]= (V48);          base[1]= (V48);
271          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
272          siLspecialp();          siLspecialp();
273          vs_top=sup;          vs_top=sup;
274          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
275          goto T92;}          goto T93;}
276          (void)((*(LnkLI74))((V48)));          (void)((*(LnkLI74))((V48)));
277  goto T92;  goto T93;
278  T92:;  T93:;
279          V54= (*(LnkLI68))((V48));{object V56;          V54= (*(LnkLI68))((V48));{object V56;
280          V56= get((V48),VV[5],Cnil);          V56= get((V48),VV[5],Cnil);
281          if(V56==Cnil)goto T99;          if(V56==Cnil)goto T100;
282          V55= V56;          V55= V56;
283          goto T98;          goto T99;
284  goto T99;  goto T100;
285  T99:;}  T100:;}
286          V55= Ct;          V55= Ct;
287  goto T98;  goto T99;
288  T98:;  T99:;
289          V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55));          V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55));
290          setq(VV[18],make_cons((V53),symbol_value(VV[18])));          setq(VV[18],make_cons(V53,symbol_value(VV[18])));
291  goto T89;  goto T90;
292  T89:;  T90:;
293          {object V57 = list(2,(V53),(V49));          {object V58 = list(2,(V53),(V49));
294          VMR5(V57)}}          VMR5(V58)}}
295  goto T85;  goto T86;
296  T85:;  T86:;
297          if(!(((V52))==(VV[19]))){          if(!(((V52))==(VV[19]))){
298          goto T105;}          goto T106;}
299          V49= Ct;          V49= Ct;
300          goto T103;          goto T104;
301  goto T105;  goto T106;
302  T105:;  T106:;
303          if(!(((V52))==(VV[20]))){          if(!(((V52))==(VV[20]))){
304          goto T109;}          goto T110;}
305          V50= Ct;          V50= Ct;
306          goto T103;          goto T104;
307  goto T109;  goto T110;
308  T109:;  T110:;
309          V58= structure_ref((V52),VV[0],0);          V59= structure_ref((V52),VV[0],0);
310          if(!((/* INLINE-ARGS */V58)==((V48)))){          if(!((/* INLINE-ARGS */V59)==((V48)))){
311          goto T103;}          goto T104;}
312          V59= structure_ref((V52),VV[0],2);          V60= structure_ref((V52),VV[0],2);
313          if(!((/* INLINE-ARGS */V59)==(VV[10]))){          if(!((/* INLINE-ARGS */V60)==(VV[10]))){
314          goto T114;}          goto T115;}
315          (void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48))));          (void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48))));
316          (void)(structure_set((V52),VV[0],2,Ct));          (void)(structure_set((V52),VV[0],2,Ct));
317  goto T114;  goto T115;
318  T114:;  T115:;
319          if(((V49))==Cnil){          if(((V49))==Cnil){
320          goto T120;}          goto T121;}
321          (void)(structure_set((V52),VV[0],3,Ct));          (void)(structure_set((V52),VV[0],3,Ct));
322          goto T118;          goto T119;
323  goto T120;  goto T121;
324  T120:;  T121:;
325          if(((V50))==Cnil){          if(((V50))==Cnil){
326          goto T123;}          goto T124;}
327          V60= structure_ref((V52),VV[0],1);          V61= structure_ref((V52),VV[0],1);
328          if(!((/* INLINE-ARGS */V60)==(VV[9]))){          if(!((/* INLINE-ARGS */V61)==(VV[9]))){
329          goto T125;}          goto T126;}
330          (void)(structure_set((V52),VV[0],4,VV[22]));          (void)(structure_set((V52),VV[0],4,VV[22]));
331  goto T125;  goto T126;
332  T125:;  T126:;
333          (void)(structure_set((V52),VV[0],2,Ct));          (void)(structure_set((V52),VV[0],2,Ct));
334          goto T118;          goto T119;
335  goto T123;  goto T124;
336  T123:;  T124:;
337          (void)(structure_set((V52),VV[0],2,Ct));          (void)(structure_set((V52),VV[0],2,Ct));
338          {long V61= fix(structure_ref((V52),VV[0],6));          {long V62= fix(structure_ref((V52),VV[0],6));
339          V62 = make_fixnum((long)(1)+(/* INLINE-ARGS */V61));          V63 = make_fixnum((long)(1)+(/* INLINE-ARGS */V62));
340          (void)(structure_set((V52),VV[0],6,V62));}          (void)(structure_set((V52),VV[0],6,V63));}
341  goto T118;  goto T119;
342  T118:;  T119:;
343          {object V63 = list(2,(V52),(V49));          {object V64 = list(2,(V52),(V49));
344          VMR5(V63)}          VMR5(V64)}
345  goto T103;  goto T104;
346  T103:;  T104:;
347          V51= cdr((V51));          V51= cdr((V51));
348          V52= car((V51));          V52= car((V51));
349          goto T84;}}          goto T85;}}
350          base[0]=base[0];          base[0]=base[0];
351          return Cnil;          return Cnil;
352  }  }
353  /*      local entry for function C2VAR-KIND     */  /*      local entry for function C2VAR-KIND     */
354    
355  static object LI6(V65)  static object LI6(V66)
356    
357  register object V65;  register object V66;
358  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
359  goto TTL;  goto TTL;
360  TTL:;  TTL:;
361          V66= structure_ref((V65),VV[0],1);          V67= structure_ref((V66),VV[0],1);
362          if(!((/* INLINE-ARGS */V66)==(VV[9]))){          if(!((/* INLINE-ARGS */V67)==(VV[9]))){
363          goto T135;}          goto T136;}
364          if((structure_ref((V65),VV[0],3))!=Cnil){          if((structure_ref((V66),VV[0],3))!=Cnil){
365          goto T135;}          goto T136;}
366          V67= structure_ref((V65),VV[0],4);          V68= structure_ref((V66),VV[0],4);
367          if((/* INLINE-ARGS */V67)==(VV[22])){          if((/* INLINE-ARGS */V68)==(VV[22])){
368          goto T135;}          goto T136;}
369          V68= structure_ref((V65),VV[0],4);          V69= structure_ref((V66),VV[0],4);
370          if(!((/* INLINE-ARGS */V68)==(VV[7]))){          if(!((/* INLINE-ARGS */V69)==(VV[7]))){
371          goto T142;}          goto T143;}
372          {object V69 = VV[7];          {object V70 = VV[7];
373          VMR6(V69)}          VMR6(V70)}
374  goto T142;  goto T143;
375  T142:;  T143:;
376          {register object V70;          {register object V71;
377          V70= structure_ref((V65),VV[0],5);          V71= structure_ref((V66),VV[0],5);
378          if(((*(LnkLI75))(VV[23],(V70)))==Cnil){          if(((*(LnkLI75))(VV[23],(V71)))==Cnil){
379          goto T146;}          goto T147;}
380          {object V71 = VV[23];          {object V72 = VV[23];
         VMR6(V71)}  
 goto T146;  
 T146:;  
         if(((*(LnkLI75))(VV[24],(V70)))==Cnil){  
         goto T149;}  
         {object V72 = VV[24];  
381          VMR6(V72)}          VMR6(V72)}
382  goto T149;  goto T147;
383  T149:;  T147:;
384          if(((*(LnkLI75))(VV[25],(V70)))==Cnil){          if(((*(LnkLI75))(VV[24],(V71)))==Cnil){
385          goto T152;}          goto T150;}
386          {object V73 = VV[25];          {object V73 = VV[24];
387          VMR6(V73)}          VMR6(V73)}
388  goto T152;  goto T150;
389  T152:;  T150:;
390          if(((*(LnkLI75))(VV[26],(V70)))==Cnil){          if(((*(LnkLI75))(VV[25],(V71)))==Cnil){
391          goto T155;}          goto T153;}
392          {object V74 = VV[26];          {object V74 = VV[25];
393          VMR6(V74)}          VMR6(V74)}
394  goto T155;  goto T153;
395  T155:;  T153:;
396          if(((*(LnkLI75))(VV[27],(V70)))==Cnil){          if(((*(LnkLI75))(VV[26],(V71)))==Cnil){
397          goto T158;}          goto T156;}
398          {object V75 = VV[27];          {object V75 = VV[26];
399          VMR6(V75)}          VMR6(V75)}
400  goto T158;  goto T156;
401  T158:;  T156:;
402          {object V76;          if(((*(LnkLI75))(VV[27],(V71)))==Cnil){
403            goto T159;}
404            {object V76 = VV[27];
405            VMR6(V76)}
406    goto T159;
407    T159:;
408            {object V77;
409          base[0]= VV[8];          base[0]= VV[8];
410          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
411          Lboundp();          Lboundp();
412          vs_top=sup;          vs_top=sup;
413          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
414            goto T162;}
415            V77= Cnil;
416            goto T161;
417    goto T162;
418    T162:;
419            if(symbol_value(VV[8])==Cnil){
420            V77= Cnil;
421          goto T161;}          goto T161;}
422          V76= Cnil;          V77= VV[7];
         goto T160;  
423  goto T161;  goto T161;
424  T161:;  T161:;
425          if(symbol_value(VV[8])==Cnil){          if(((V77))==Cnil){
426          V76= Cnil;          goto T166;}
427          goto T160;}          {object V78 = (V77);
428          V76= VV[7];          VMR6(V78)}
429  goto T160;  goto T166;
430  T160:;  T166:;
         if(((V76))==Cnil){  
         goto T165;}  
         {object V77 = (V76);  
         VMR6(V77)}  
 goto T165;  
 T165:;  
         {object V78 = Cnil;  
         VMR6(V78)}}}  
 goto T135;  
 T135:;  
431          {object V79 = Cnil;          {object V79 = Cnil;
432          VMR6(V79)}          VMR6(V79)}}}
433    goto T136;
434    T136:;
435            {object V80 = Cnil;
436            VMR6(V80)}
437          base[0]=base[0];          base[0]=base[0];
438          return Cnil;          return Cnil;
439  }  }
440  /*      local entry for function C2VAR  */  /*      local entry for function C2VAR  */
441    
442  static object LI7(V81)  static object LI7(V82)
443    
444  object V81;  object V82;
445  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
446  goto TTL;  goto TTL;
447  TTL:;  TTL:;
448          V82= make_cons(VV[0],(V81));          V83= make_cons(VV[0],(V82));
449          {object V83 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V82,Cnil,VV[28]));          {object V84 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V83,Cnil,VV[28]));
450          VMR7(V83)}          VMR7(V84)}
451          return Cnil;          return Cnil;
452  }  }
453  /*      local entry for function C2LOCATION     */  /*      local entry for function C2LOCATION     */
454    
455  static object LI8(V85)  static object LI8(V86)
456    
457  object V85;  object V86;
458  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
459  goto TTL;  goto TTL;
460  TTL:;  TTL:;
461          {object V86 = (VFUN_NARGS=3,(*(LnkLI76))((V85),Cnil,VV[28]));          {object V87 = (VFUN_NARGS=3,(*(LnkLI76))((V86),Cnil,VV[28]));
462          VMR8(V86)}          VMR8(V87)}
463          return Cnil;          return Cnil;
464  }  }
465  /*      local entry for function CHECK-DOWNWARD */  /*      local entry for function CHECK-DOWNWARD */
466    
467  static object LI9(V88)  static object LI9(V89)
468    
469  object V88;  object V89;
470  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
471  goto TTL;  goto TTL;
472  TTL:;  TTL:;
473          {object V89;          {object V90;
474          V89= Cnil;          V90= Cnil;
475          {register object V90;          {register object V91;
476          object V91;          object V92;
477          V90= symbol_value(VV[29]);          V91= symbol_value(VV[29]);
478          V91= car((V90));          V92= car((V91));
 goto T172;  
 T172:;  
         if(!(endp_prop((V90)))){  
         goto T173;}  
         goto T168;  
479  goto T173;  goto T173;
480  T173:;  T173:;
481          if(!((car((V91)))==(VV[30]))){          if(!(endp_prop((V91)))){
482          goto T177;}          goto T174;}
483          V89= Ct;          goto T169;
484          {register object V92;  goto T174;
485          register object V93;  T174:;
486          V92= symbol_value(VV[29]);          if(!((car((V92)))==(VV[30]))){
487          V93= car((V92));          goto T178;}
488  goto T186;          V90= Ct;
489  T186:;          {register object V93;
490          if(!(endp_prop((V92)))){          register object V94;
491          goto T187;}          V93= symbol_value(VV[29]);
492          goto T182;          V94= car((V93));
493  goto T187;  goto T187;
494  T187:;  T187:;
495          if(!((car((V93)))==(VV[31]))){          if(!(endp_prop((V93)))){
496          goto T191;}          goto T188;}
497          {register object V94;          goto T183;
498          register object V95;  goto T188;
499          V94= (V93);  T188:;
500          V95= VV[30];          if(!((car((V94)))==(VV[31]))){
501          if(type_of((V94))!=t_cons)FEwrong_type_argument(Scons,(V94));          goto T192;}
502          ((V94))->c.c_car = (V95);}          {register object V95;
503  goto T191;          register object V96;
504  T191:;          V95= (V94);
505          V92= cdr((V92));          V96= VV[30];
506          V93= car((V92));          if(type_of((V95))!=t_cons)FEwrong_type_argument(Scons,(V95));
507          goto T186;}          ((V95))->c.c_car = (V96);}
508  goto T182;  goto T192;
509  T182:;  T192:;
510          goto T168;          V93= cdr((V93));
511  goto T177;          V94= car((V93));
512  T177:;          goto T187;}
513          V90= cdr((V90));  goto T183;
514          V91= car((V90));  T183:;
515          goto T172;}          goto T169;
516  goto T168;  goto T178;
517  T168:;  T178:;
518            V91= cdr((V91));
519            V92= car((V91));
520            goto T173;}
521    goto T169;
522    T169:;
523          setq(VV[29],Cnil);          setq(VV[29],Cnil);
524          if(((V89))==Cnil){          if(((V90))==Cnil){
525          goto T210;}          goto T211;}
526          {register object V96;          {register object V97;
527          object V97;          object V98;
528          V96= (V88);          V97= (V89);
529          V97= car((V96));          V98= car((V97));
 goto T215;  
 T215:;  
         if(!(endp_prop((V96)))){  
         goto T216;}  
         {object V98 = Cnil;  
         VMR9(V98)}  
530  goto T216;  goto T216;
531  T216:;  T216:;
532          V99= structure_ref((V97),VV[0],1);          if(!(endp_prop((V97)))){
533          if(!((/* INLINE-ARGS */V99)==(VV[32]))){          goto T217;}
534          goto T220;}          {object V99 = Cnil;
535          (void)(structure_set((V97),VV[0],1,VV[9]));          VMR9(V99)}
536  goto T220;  goto T217;
537  T220:;  T217:;
538          V96= cdr((V96));          V100= structure_ref((V98),VV[0],1);
539          V97= car((V96));          if(!((/* INLINE-ARGS */V100)==(VV[32]))){
540          goto T215;}          goto T221;}
541  goto T210;          (void)(structure_set((V98),VV[0],1,VV[9]));
542  T210:;  goto T221;
543          {object V100 = Cnil;  T221:;
544          VMR9(V100)}}          V97= cdr((V97));
545            V98= car((V97));
546            goto T216;}
547    goto T211;
548    T211:;
549            {object V101 = Cnil;
550            VMR9(V101)}}
551          base[0]=base[0];          base[0]=base[0];
552          return Cnil;          return Cnil;
553  }  }
554  /*      local entry for function ASSIGN-DOWN-VARS       */  /*      local entry for function ASSIGN-DOWN-VARS       */
555    
556  static object LI10(V104,V105,V106)  static object LI10(V105,V106,V107)
557    
558  object V104;object V105;object V106;  object V105;object V106;object V107;
559  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
560  goto TTL;  goto TTL;
561  TTL:;  TTL:;
         {register object V107;  
         V107= small_fixnum(0);  
562          {register object V108;          {register object V108;
563          register object V109;          V108= small_fixnum(0);
564          V108= (V104);          {register object V109;
565          V109= car((V108));          register object V110;
566  goto T233;          V109= (V105);
567  T233:;          V110= car((V109));
         if(!(endp_prop((V108)))){  
         goto T234;}  
         goto T229;  
568  goto T234;  goto T234;
569  T234:;  T234:;
570          V110= structure_ref((V109),VV[0],1);          if(!(endp_prop((V109)))){
571          if(!((/* INLINE-ARGS */V110)==(VV[32]))){          goto T235;}
572          goto T238;}          goto T230;
573          V111= structure_ref((V109),VV[0],4);  goto T235;
574          if(!(type_of(/* INLINE-ARGS */V111)==t_fixnum||type_of(/* INLINE-ARGS */V111)==t_bignum)){  T235:;
575          goto T242;}          V111= structure_ref((V110),VV[0],1);
576          V112= structure_ref((V109),VV[0],4);          if(!((/* INLINE-ARGS */V111)==(VV[32]))){
577          V113= one_plus(/* INLINE-ARGS */V112);          goto T239;}
578          V107= (number_compare((V107),/* INLINE-ARGS */V113)>=0?((V107)):/* INLINE-ARGS */V113);          V112= structure_ref((V110),VV[0],4);
579          V114= structure_ref((V109),VV[0],4);          if(!(type_of(/* INLINE-ARGS */V112)==t_fixnum||type_of(/* INLINE-ARGS */V112)==t_bignum)){
580          (void)(structure_set((V109),VV[0],2,/* INLINE-ARGS */V114));          goto T243;}
581          goto T238;          V113= structure_ref((V110),VV[0],4);
582  goto T242;          V114= one_plus(/* INLINE-ARGS */V113);
583  T242:;          V108= (number_compare((V108),/* INLINE-ARGS */V114)>=0?((V108)):/* INLINE-ARGS */V114);
584          (void)(structure_set((V109),VV[0],2,(V107)));          V115= structure_ref((V110),VV[0],4);
585          (void)(structure_set((V109),VV[0],4,(V107)));          (void)(structure_set((V110),VV[0],2,/* INLINE-ARGS */V115));
586          V107= number_plus((V107),small_fixnum(1));          goto T239;
587  goto T238;  goto T243;
588  T238:;  T243:;
589          V108= cdr((V108));          (void)(structure_set((V110),VV[0],2,(V108)));
590          V109= car((V108));          (void)(structure_set((V110),VV[0],4,(V108)));
591          goto T233;}          V108= number_plus((V108),small_fixnum(1));
592  goto T229;  goto T239;
593  T229:;  T239:;
594          if(!(number_compare((V107),small_fixnum(0))>0)){          V109= cdr((V109));
595          goto T254;}          V110= car((V109));
596          if(!(((V106))==(VV[33]))){          goto T234;}
597          goto T257;}  goto T230;
598    T230:;
599            if(!(number_compare((V108),small_fixnum(0))>0)){
600            goto T255;}
601            if(!(((V107))==(VV[33]))){
602            goto T258;}
603          princ_str("\n   object base0[",VV[34]);          princ_str("\n   object base0[",VV[34]);
604          (void)((*(LnkLI77))((V107)));          (void)((*(LnkLI77))((V108)));
605          princ_str("];",VV[34]);          princ_str("];",VV[34]);
606  goto T257;  goto T258;
607  T257:;  T258:;
608          setq(VV[35],make_cons(VV[36],symbol_value(VV[35])));          setq(VV[36],make_cons(VV[35],symbol_value(VV[36])));
609          princ_str("\n   DCnames",VV[34]);          princ_str("\n   DCnames",VV[34]);
610          (void)((*(LnkLI77))((V105)));          (void)((*(LnkLI77))((V106)));
611          princ_str("",VV[34]);          princ_str("",VV[34]);
612  goto T254;  goto T255;
613  T254:;  T255:;
614          {object V115 = (V107);          {object V117 = (V108);
615          VMR10(V115)}}          VMR10(V117)}}
616          base[0]=base[0];          base[0]=base[0];
617          return Cnil;          return Cnil;
618  }  }
619  /*      local entry for function WT-DOWN        */  /*      local entry for function WT-DOWN        */
620    
621  static object LI11(V117)  static object LI11(V119)
622    
623  object V117;  object V119;
624  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
625  goto TTL;  goto TTL;
626  TTL:;{object V118;  TTL:;{object V120;
627          base[0]= (V117);          base[0]= (V119);
628          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
629          (void) (*Lnk78)();          (void) (*Lnk78)();
630          vs_top=sup;          vs_top=sup;
631          V118= vs_base[0];          V120= vs_base[0];
632          if(V118==Cnil)goto T269;          if(V120==Cnil)goto T270;
633          goto T268;          goto T269;
634  goto T269;  goto T270;
635  T269:;}  T270:;}
636          (void)((*(LnkLI79))());          (void)((*(LnkLI79))());
637  goto T268;  goto T269;
638  T268:;  T269:;
639          princ_str("base0[",VV[34]);          princ_str("base0[",VV[34]);
640          (void)((*(LnkLI77))((V117)));          (void)((*(LnkLI77))((V119)));
641          princ_char(93,VV[34]);          princ_char(93,VV[34]);
642          {object V119 = Cnil;          {object V121 = Cnil;
643          VMR11(V119)}          VMR11(V121)}
644          base[0]=base[0];          base[0]=base[0];
645          return Cnil;          return Cnil;
646  }  }
647  /*      local entry for function WT-VAR */  /*      local entry for function WT-VAR */
648    
649  static object LI12(V122,V123)  static object LI12(V124,V125)
650    
651  register object V122;object V123;  register object V124;object V125;
652  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
653  goto TTL;  goto TTL;
654  TTL:;  TTL:;
655          V125= structure_ref((V122),VV[0],1);          V127= structure_ref((V124),VV[0],1);
656          {object V124= /* INLINE-ARGS */V125;          {object V126= /* INLINE-ARGS */V127;
657          if((V124!= VV[9]))goto T275;          if((V126!= VV[9]))goto T276;
658          if(((V123))==Cnil){          if(((V125))==Cnil){
659          goto T277;}          goto T278;}
660          V126= structure_ref((V122),VV[0],3);          V128= structure_ref((V124),VV[0],3);
661          {object V127 = (*(LnkLI80))(/* INLINE-ARGS */V126);          {object V129 = (*(LnkLI80))(/* INLINE-ARGS */V128);
         VMR12(V127)}  
 goto T277;  
 T277:;  
         if((structure_ref((V122),VV[0],3))==Cnil){  
         goto T280;}  
         V128= structure_ref((V122),VV[0],2);  
         {object V129 = (*(LnkLI81))(/* INLINE-ARGS */V128);  
662          VMR12(V129)}          VMR12(V129)}
663  goto T280;  goto T278;
664  T280:;  T278:;
665          V130= structure_ref((V122),VV[0],2);          if((structure_ref((V124),VV[0],3))==Cnil){
666          if(!((Ct)==(/* INLINE-ARGS */V130))){          goto T281;}
667          goto T283;}          V130= structure_ref((V124),VV[0],2);
668          V131= structure_ref((V122),VV[0],4);          {object V131 = (*(LnkLI81))(/* INLINE-ARGS */V130);
669          if(!(type_of(/* INLINE-ARGS */V131)==t_fixnum)){          VMR12(V131)}
670          goto T283;}  goto T281;
671          if((symbol_value(VV[8]))==Cnil){  T281:;
672          goto T283;}          V132= structure_ref((V124),VV[0],2);
         V132= structure_ref((V122),VV[0],5);  
673          if(!((Ct)==(/* INLINE-ARGS */V132))){          if(!((Ct)==(/* INLINE-ARGS */V132))){
674          goto T283;}          goto T284;}
675          (void)(structure_set((V122),VV[0],1,VV[7]));          V133= structure_ref((V124),VV[0],4);
676            if(!(type_of(/* INLINE-ARGS */V133)==t_fixnum)){
677            goto T284;}
678            if((symbol_value(VV[8]))==Cnil){
679            goto T284;}
680            V134= structure_ref((V124),VV[0],5);
681            if(!((Ct)==(/* INLINE-ARGS */V134))){
682            goto T284;}
683            (void)(structure_set((V124),VV[0],1,VV[7]));
684          goto TTL;          goto TTL;
685  goto T283;  goto T284;
686  T283:;  T284:;
687          V133= structure_ref((V122),VV[0],2);          V135= structure_ref((V124),VV[0],2);
688          {object V134 = (*(LnkLI82))(/* INLINE-ARGS */V133);          {object V136 = (*(LnkLI82))(/* INLINE-ARGS */V135);
         VMR12(V134)}  
 goto T275;  
 T275:;  
         if((V124!= VV[4]))goto T295;  
         princ_str("(VV[",VV[34]);  
         V135= structure_ref((V122),VV[0],4);  
         (void)((*(LnkLI77))(/* INLINE-ARGS */V135));  
         princ_str("]->s.s_dbind)",VV[34]);  
         {object V136 = Cnil;  
689          VMR12(V136)}          VMR12(V136)}
690  goto T295;  goto T276;
691  T295:;  T276:;
692          if((V124!= VV[83]))goto T299;          if((V126!= VV[4]))goto T296;
693          V137= structure_ref((V122),VV[0],4);          princ_str("(VV[",VV[34]);
694            V137= structure_ref((V124),VV[0],4);
695          (void)((*(LnkLI77))(/* INLINE-ARGS */V137));          (void)((*(LnkLI77))(/* INLINE-ARGS */V137));
696            princ_str("]->s.s_dbind)",VV[34]);
697          {object V138 = Cnil;          {object V138 = Cnil;
698          VMR12(V138)}          VMR12(V138)}
699  goto T299;  goto T296;
700  T299:;  T296:;
701          if((V124!= VV[32]))goto T301;          if((V126!= VV[83]))goto T300;
702          V139= structure_ref((V122),VV[0],4);          V139= structure_ref((V124),VV[0],4);
703          {object V140 = (*(LnkLI84))(/* INLINE-ARGS */V139);          (void)((*(LnkLI77))(/* INLINE-ARGS */V139));
704            {object V140 = Cnil;
705          VMR12(V140)}          VMR12(V140)}
706  goto T301;  goto T300;
707  T301:;  T300:;
708          if((V124!= VV[15]))goto T302;          if((V126!= VV[32]))goto T302;
709            V141= structure_ref((V124),VV[0],4);
710            {object V142 = (*(LnkLI84))(/* INLINE-ARGS */V141);
711            VMR12(V142)}
712    goto T302;
713    T302:;
714            if((V126!= VV[15]))goto T303;
715          if((symbol_value(VV[37]))==Cnil){          if((symbol_value(VV[37]))==Cnil){
716          goto T304;}          goto T305;}
717          princ_str("symbol_value(VV[",VV[34]);          princ_str("symbol_value(VV[",VV[34]);
718          V141= structure_ref((V122),VV[0],4);          V143= structure_ref((V124),VV[0],4);
         (void)((*(LnkLI77))(/* INLINE-ARGS */V141));  
         princ_str("])",VV[34]);  
         {object V142 = Cnil;  
         VMR12(V142)}  
 goto T304;  
 T304:;  
         princ_str("(VV[",VV[34]);  
         V143= structure_ref((V122),VV[0],4);  
719          (void)((*(LnkLI77))(/* INLINE-ARGS */V143));          (void)((*(LnkLI77))(/* INLINE-ARGS */V143));
720          princ_str("]->s.s_dbind)",VV[34]);          princ_str("])",VV[34]);
721          {object V144 = Cnil;          {object V144 = Cnil;
722          VMR12(V144)}          VMR12(V144)}
723  goto T302;  goto T305;
724  T302:;  T305:;
725          V146= structure_ref((V122),VV[0],1);          princ_str("(VV[",VV[34]);
726          {object V145= /* INLINE-ARGS */V146;          V145= structure_ref((V124),VV[0],4);
727          if((V145!= VV[23]))goto T313;          (void)((*(LnkLI77))(/* INLINE-ARGS */V145));
728            princ_str("]->s.s_dbind)",VV[34]);
729            {object V146 = Cnil;
730            VMR12(V146)}
731    goto T303;
732    T303:;
733            V148= structure_ref((V124),VV[0],1);
734            {object V147= /* INLINE-ARGS */V148;
735            if((V147!= VV[23]))goto T314;
736          if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){
737          goto T314;}          goto T315;}
738          princ_str("CMP",VV[34]);          princ_str("CMP",VV[34]);
739    goto T315;
740    T315:;
741            princ_str("make_fixnum",VV[34]);
742            goto T313;
743  goto T314;  goto T314;
744  T314:;  T314:;
745          princ_str("make_fixnum",VV[34]);          if((V147!= VV[24]))goto T320;
         goto T312;  
 goto T313;  
 T313:;  
         if((V145!= VV[24]))goto T319;  
746          princ_str("make_integer",VV[34]);          princ_str("make_integer",VV[34]);
747          goto T312;          goto T313;
748  goto T319;  goto T320;
749  T319:;  T320:;
750          if((V145!= VV[25]))goto T321;          if((V147!= VV[25]))goto T322;
751          princ_str("code_char",VV[34]);          princ_str("code_char",VV[34]);
752          goto T312;          goto T313;
753  goto T321;  goto T322;
754  T321:;  T322:;
755          if((V145!= VV[26]))goto T323;          if((V147!= VV[26]))goto T324;
756          princ_str("make_longfloat",VV[34]);          princ_str("make_longfloat",VV[34]);
757          goto T312;          goto T313;
758  goto T323;  goto T324;
759  T323:;  T324:;
760          if((V145!= VV[27]))goto T325;          if((V147!= VV[27]))goto T326;
761          princ_str("make_shortfloat",VV[34]);          princ_str("make_shortfloat",VV[34]);
762          goto T312;          goto T313;
763  goto T325;  goto T326;
764  T325:;  T326:;
765          if((V145!= VV[7]))goto T327;          if((V147!= VV[7]))goto T328;
766          goto T312;          goto T313;
767  goto T327;  goto T328;
768  T327:;  T328:;
769          (void)((*(LnkLI85))());}          (void)((*(LnkLI85))());}
770  goto T312;  goto T313;
771  T312:;  T313:;
772          princ_str("(V",VV[34]);          princ_str("(V",VV[34]);
773          V147= structure_ref((V122),VV[0],4);          V149= structure_ref((V124),VV[0],4);
774          (void)((*(LnkLI77))(/* INLINE-ARGS */V147));          (void)((*(LnkLI77))(/* INLINE-ARGS */V149));
775          princ_char(41,VV[34]);          princ_char(41,VV[34]);
776          {object V148 = Cnil;          {object V150 = Cnil;
777          VMR12(V148)}}          VMR12(V150)}}
778          return Cnil;          return Cnil;
779  }  }
780  /*      local entry for function SET-VAR        */  /*      local entry for function SET-VAR        */
781    
782  static object LI13(V152,V153,V154)  static object LI13(V154,V155,V156)
783    
784  register object V152;register object V153;object V154;  register object V154;register object V155;object V156;
785  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
786          bds_check;          bds_check;
787  goto TTL;  goto TTL;
788  TTL:;  TTL:;
789          if(!(type_of((V152))==t_cons)){          if(!(type_of((V154))==t_cons)){
         goto T331;}  
         if(!((car((V152)))==(VV[0]))){  
         goto T331;}  
         if(!((cadr((V152)))==((V153)))){  
         goto T331;}  
         if((caddr((V152)))==((V154))){  
790          goto T332;}          goto T332;}
791  goto T331;          if(!((car((V154)))==(VV[0]))){
792  T331:;          goto T332;}
793          V156= structure_ref((V153),VV[0],1);          if(!((cadr((V154)))==((V155)))){
794          {object V155= /* INLINE-ARGS */V156;          goto T332;}
795          if((V155!= VV[9]))goto T340;          if((caddr((V154)))==((V156))){
796            goto T333;}
797    goto T332;
798    T332:;
799            V158= structure_ref((V155),VV[0],1);
800            {object V157= /* INLINE-ARGS */V158;
801            if((V157!= VV[9]))goto T341;
802          princ_str("\n   ",VV[34]);          princ_str("\n   ",VV[34]);
803          if(((V154))==Cnil){          if(((V156))==Cnil){
804          goto T344;}          goto T345;}
805          V157= structure_ref((V153),VV[0],3);          V159= structure_ref((V155),VV[0],3);
806          (void)((*(LnkLI80))(/* INLINE-ARGS */V157));          (void)((*(LnkLI80))(/* INLINE-ARGS */V159));
807          goto T342;          goto T343;
808  goto T344;  goto T345;
809  T344:;  T345:;
810          if((structure_ref((V153),VV[0],3))==Cnil){          if((structure_ref((V155),VV[0],3))==Cnil){
811          goto T347;}          goto T348;}
812          V158= structure_ref((V153),VV[0],2);          V160= structure_ref((V155),VV[0],2);
813          (void)((*(LnkLI81))(/* INLINE-ARGS */V158));          (void)((*(LnkLI81))(/* INLINE-ARGS */V160));
814          goto T342;          goto T343;
815  goto T347;  goto T348;
816  T347:;  T348:;
817          V159= structure_ref((V153),VV[0],2);          V161= structure_ref((V155),VV[0],2);
818          (void)((*(LnkLI82))(/* INLINE-ARGS */V159));          (void)((*(LnkLI82))(/* INLINE-ARGS */V161));
819  goto T342;  goto T343;
820  T342:;  T343:;
821          princ_str("= ",VV[34]);          princ_str("= ",VV[34]);
822          (void)((*(LnkLI77))((V152)));          (void)((*(LnkLI77))((V154)));
823          princ_char(59,VV[34]);          princ_char(59,VV[34]);
824          {object V160 = Cnil;          {object V162 = Cnil;
825          VMR13(V160)}          VMR13(V162)}
826  goto T340;  goto T341;
827  T340:;  T341:;
828          if((V155!= VV[4]))goto T352;          if((V157!= VV[4]))goto T353;
829          princ_str("\n   (VV[",VV[34]);          princ_str("\n   (VV[",VV[34]);
830          V161= structure_ref((V153),VV[0],4);          V163= structure_ref((V155),VV[0],4);
831          (void)((*(LnkLI77))(/* INLINE-ARGS */V161));          (void)((*(LnkLI77))(/* INLINE-ARGS */V163));
832          princ_str("]->s.s_dbind)= ",VV[34]);          princ_str("]->s.s_dbind)= ",VV[34]);
833          (void)((*(LnkLI77))((V152)));          (void)((*(LnkLI77))((V154)));
834          princ_char(59,VV[34]);          princ_char(59,VV[34]);
835          {object V162 = Cnil;          {object V164 = Cnil;
836          VMR13(V162)}          VMR13(V164)}
837  goto T352;  goto T353;
838  T352:;  T353:;
839          if((V155!= VV[15]))goto T358;          if((V157!= VV[15]))goto T359;
840          if((symbol_value(VV[37]))==Cnil){          if((symbol_value(VV[37]))==Cnil){
841          goto T360;}          goto T361;}
842          princ_str("\n   setq(VV[",VV[34]);          princ_str("\n   setq(VV[",VV[34]);
843          V163= structure_ref((V153),VV[0],4);          V165= structure_ref((V155),VV[0],4);
844          (void)((*(LnkLI77))(/* INLINE-ARGS */V163));          (void)((*(LnkLI77))(/* INLINE-ARGS */V165));
845          princ_str("],",VV[34]);          princ_str("],",VV[34]);
846          (void)((*(LnkLI77))((V152)));          (void)((*(LnkLI77))((V154)));
847          princ_str(");",VV[34]);          princ_str(");",VV[34]);
848          {object V164 = Cnil;          {object V166 = Cnil;
849          VMR13(V164)}          VMR13(V166)}
850  goto T360;  goto T361;
851  T360:;  T361:;
852          princ_str("\n   (VV[",VV[34]);          princ_str("\n   (VV[",VV[34]);
853          V165= structure_ref((V153),VV[0],4);          V167= structure_ref((V155),VV[0],4);
854          (void)((*(LnkLI77))(/* INLINE-ARGS */V165));          (void)((*(LnkLI77))(/* INLINE-ARGS */V167));
855          princ_str("]->s.s_dbind)= ",VV[34]);          princ_str("]->s.s_dbind)= ",VV[34]);
856          (void)((*(LnkLI77))((V152)));          (void)((*(LnkLI77))((V154)));
857          princ_char(59,VV[34]);          princ_char(59,VV[34]);
858          {object V166 = Cnil;          {object V168 = Cnil;
859          VMR13(V166)}          VMR13(V168)}
860  goto T358;  goto T359;
861  T358:;  T359:;
862          if((V155!= VV[32]))goto T372;          if((V157!= VV[32]))goto T373;
863          princ_str("\n   ",VV[34]);          princ_str("\n   ",VV[34]);
864          V167= structure_ref((V153),VV[0],4);          V169= structure_ref((V155),VV[0],4);
865          (void)((*(LnkLI84))(/* INLINE-ARGS */V167));          (void)((*(LnkLI84))(/* INLINE-ARGS */V169));
866          princ_char(61,VV[34]);          princ_char(61,VV[34]);
867          (void)((*(LnkLI77))((V152)));          (void)((*(LnkLI77))((V154)));
868          princ_char(59,VV[34]);          princ_char(59,VV[34]);
869          {object V168 = Cnil;          {object V170 = Cnil;
870          VMR13(V168)}          VMR13(V170)}
871  goto T372;  goto T373;
872  T372:;  T373:;
873          if((V155!= VV[24]))goto T379;          if((V157!= VV[24]))goto T380;
874          {object V169;          {object V171;
875          register object V170;          register object V172;
876          if(type_of((V152))==t_cons){          if(type_of((V154))==t_cons){
877          goto T381;}          goto T382;}
878          V169= Cnil;          V171= Cnil;
879          goto T380;          goto T381;
880    goto T382;
881    T382:;
882            V171= car((V154));
883  goto T381;  goto T381;
884  T381:;  T381:;
885          V169= car((V152));          V172= structure_ref((V155),VV[0],4);
886  goto T380;          {object V173= (V171);
887  T380:;          if((V173!= VV[86]))goto T386;
         V170= structure_ref((V153),VV[0],4);  
         {object V171= (V169);  
         if((V171!= VV[86]))goto T385;  
888          princ_str("\n   ISETQ_FIX(V",VV[34]);          princ_str("\n   ISETQ_FIX(V",VV[34]);
889          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
890          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
891          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
892          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
893          base[0]= caddr((V152));          base[0]= caddr((V154));
894          base[1]= cadddr((V152));          base[1]= cadddr((V154));
895          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
896          (void) (*Lnk87)();          (void) (*Lnk87)();
897          vs_top=sup;          vs_top=sup;
898          goto T384;          goto T385;
899  goto T385;  goto T386;
900  T385:;  T386:;
901          if((V171!= VV[88]))goto T394;          if((V173!= VV[88]))goto T395;
902          princ_str("\n   ISETQ_FIX(V",VV[34]);          princ_str("\n   ISETQ_FIX(V",VV[34]);
903          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
904          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
905          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
906          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
907          (void)((*(LnkLI77))(caddr((V152))));          (void)((*(LnkLI77))(caddr((V154))));
908          goto T384;          goto T385;
909  goto T394;  goto T395;
910  T394:;  T395:;
911          if((V171!= VV[0]))goto T401;          if((V173!= VV[0]))goto T402;
912          V173= structure_ref(cadr((V152)),VV[0],1);          V175= structure_ref(cadr((V154)),VV[0],1);
913          {object V172= /* INLINE-ARGS */V173;          {object V174= /* INLINE-ARGS */V175;
914          if((V172!= VV[24]))goto T402;          if((V174!= VV[24]))goto T403;
915          princ_str("SETQ_II(V",VV[34]);          princ_str("SETQ_II(V",VV[34]);
916          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
917          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
918          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
919          princ_str("alloc,V",VV[34]);          princ_str("alloc,V",VV[34]);
920          V174= structure_ref(cadr((V152)),VV[0],4);          V176= structure_ref(cadr((V154)),VV[0],4);
921          (void)((*(LnkLI77))(/* INLINE-ARGS */V174));          (void)((*(LnkLI77))(/* INLINE-ARGS */V176));
922          goto T384;          goto T385;
923  goto T402;  goto T403;
924  T402:;  T403:;
925          if((V172!= VV[23]))goto T409;          if((V174!= VV[23]))goto T410;
926          princ_str("ISETQ_FIX(V",VV[34]);          princ_str("ISETQ_FIX(V",VV[34]);
927          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
928          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
929          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
930          princ_str("alloc,V",VV[34]);          princ_str("alloc,V",VV[34]);
931          V175= structure_ref(cadr((V152)),VV[0],4);          V177= structure_ref(cadr((V154)),VV[0],4);
932          (void)((*(LnkLI77))(/* INLINE-ARGS */V175));          (void)((*(LnkLI77))(/* INLINE-ARGS */V177));
933          goto T384;          goto T385;
934  goto T409;  goto T410;
935  T409:;  T410:;
936          princ_str("SETQ_IO(V",VV[34]);          princ_str("SETQ_IO(V",VV[34]);
937          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
938          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
939          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
940          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
941          (void)((*(LnkLI77))((V152)));          (void)((*(LnkLI77))((V154)));
942          goto T384;}          goto T385;}
943  goto T401;  goto T402;
944  T401:;  T402:;
945          if((V171!= VV[54]))goto T422;          if((V173!= VV[54]))goto T423;
946          princ_str("SETQ_IO(V",VV[34]);          princ_str("SETQ_IO(V",VV[34]);
947          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
948          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
949          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
950          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
951          (void)((*(LnkLI77))((V152)));          (void)((*(LnkLI77))((V154)));
952          goto T384;          goto T385;
953  goto T422;  goto T423;
954  T422:;  T423:;
955          bds_bind(VV[39],small_fixnum(0));          bds_bind(VV[39],small_fixnum(0));
956          bds_bind(VV[40],symbol_value(VV[40]));          bds_bind(VV[40],symbol_value(VV[40]));
957          base[2]= VV[41];          base[2]= VV[41];
# Line 958  T422:; Line 959  T422:;
959          (void) (*Lnk89)();          (void) (*Lnk89)();
960          vs_top=sup;          vs_top=sup;
961          princ_str("\n   SETQ_II(V",VV[34]);          princ_str("\n   SETQ_II(V",VV[34]);
962          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
963          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
964          (void)((*(LnkLI77))((V170)));          (void)((*(LnkLI77))((V172)));
965          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
966          base[2]= (V152);          base[2]= (V154);
967          base[3]= make_cons(VV[42],(V153));          base[3]= make_cons(VV[42],(V155));
968          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
969          (void) (*Lnk90)();          (void) (*Lnk90)();
970          vs_top=sup;          vs_top=sup;
971          princ_str(");",VV[34]);          princ_str(");",VV[34]);
972          V176= (*(LnkLI91))();          V178= (*(LnkLI91))();
973          bds_unwind1;          bds_unwind1;
974          bds_unwind1;          bds_unwind1;
975          {object V177 = Cnil;          {object V179 = Cnil;
976          VMR13(V177)}}          VMR13(V179)}}
977  goto T384;  goto T385;
978  T384:;  T385:;
979          princ_str(");",VV[34]);          princ_str(");",VV[34]);
980          {object V178 = Cnil;          {object V180 = Cnil;
981          VMR13(V178)}}          VMR13(V180)}}
982  goto T379;  goto T380;
983  T379:;  T380:;
984          princ_str("\n   V",VV[34]);          princ_str("\n   V",VV[34]);
985          V179= structure_ref((V153),VV[0],4);          V181= structure_ref((V155),VV[0],4);
986          (void)((*(LnkLI77))(/* INLINE-ARGS */V179));          (void)((*(LnkLI77))(/* INLINE-ARGS */V181));
987          princ_str("= ",VV[34]);          princ_str("= ",VV[34]);
988          V181= structure_ref((V153),VV[0],1);          V183= structure_ref((V155),VV[0],1);
989          {object V180= /* INLINE-ARGS */V181;          {object V182= /* INLINE-ARGS */V183;
990          if((V180!= VV[23]))goto T449;          if((V182!= VV[23]))goto T450;
991          base[0]= (V152);          base[0]= (V154);
992          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
993          (void) (*Lnk92)();          (void) (*Lnk92)();
994          vs_top=sup;          vs_top=sup;
995          goto T448;          goto T449;
996  goto T449;  goto T450;
997  T449:;  T450:;
998          if((V180!= VV[25]))goto T451;          if((V182!= VV[25]))goto T452;
999          base[0]= (V152);          base[0]= (V154);
1000          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1001          (void) (*Lnk93)();          (void) (*Lnk93)();
1002          vs_top=sup;          vs_top=sup;
1003          goto T448;          goto T449;
1004  goto T451;  goto T452;
1005  T451:;  T452:;
1006          if((V180!= VV[26]))goto T453;          if((V182!= VV[26]))goto T454;
1007          base[0]= (V152);          base[0]= (V154);
1008          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1009          (void) (*Lnk94)();          (void) (*Lnk94)();
1010          vs_top=sup;          vs_top=sup;
1011          goto T448;          goto T449;
1012  goto T453;  goto T454;
1013  T453:;  T454:;
1014          if((V180!= VV[27]))goto T455;          if((V182!= VV[27]))goto T456;
1015          base[0]= (V152);          base[0]= (V154);
1016          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1017          (void) (*Lnk95)();          (void) (*Lnk95)();
1018          vs_top=sup;          vs_top=sup;
1019          goto T448;          goto T449;
1020  goto T455;  goto T456;
1021  T455:;  T456:;
1022          if((V180!= VV[7]))goto T457;          if((V182!= VV[7]))goto T458;
1023          base[0]= (V152);          base[0]= (V154);
1024          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1025          (void) (*Lnk96)();          (void) (*Lnk96)();
1026          vs_top=sup;          vs_top=sup;
1027          goto T448;          goto T449;
1028  goto T457;  goto T458;
1029  T457:;  T458:;
1030          (void)((*(LnkLI85))());}          (void)((*(LnkLI85))());}
1031  goto T448;  goto T449;
1032  T448:;  T449:;
1033          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1034          {object V182 = Cnil;          {object V184 = Cnil;
1035          VMR13(V182)}}          VMR13(V184)}}
1036  goto T332;  goto T333;
1037  T332:;  T333:;
1038          {object V183 = Cnil;          {object V185 = Cnil;
1039          VMR13(V183)}          VMR13(V185)}
1040          base[0]=base[0];          base[0]=base[0];
1041          return Cnil;          return Cnil;
1042  }  }
1043  /*      local entry for function SCH-GLOBAL     */  /*      local entry for function SCH-GLOBAL     */
1044    
1045  static object LI14(V185)  static object LI14(V187)
1046    
1047  register object V185;  register object V187;
1048  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1049  goto TTL;  goto TTL;
1050  TTL:;  TTL:;
1051          {register object V186;          {register object V188;
1052          register object V187;          register object V189;
1053          V186= symbol_value(VV[18]);          V188= symbol_value(VV[18]);
1054          V187= car((V186));          V189= car((V188));
 goto T463;  
 T463:;  
         if(!(endp_prop((V186)))){  
         goto T464;}  
         {object V188 = Cnil;  
         VMR14(V188)}  
1055  goto T464;  goto T464;
1056  T464:;  T464:;
1057          V189= structure_ref((V187),VV[0],0);          if(!(endp_prop((V188)))){
1058          if(!((/* INLINE-ARGS */V189)==((V185)))){          goto T465;}
1059          goto T468;}          {object V190 = Cnil;
         {object V190 = (V187);  
1060          VMR14(V190)}          VMR14(V190)}
1061  goto T468;  goto T465;
1062  T468:;  T465:;
1063          V186= cdr((V186));          V191= structure_ref((V189),VV[0],0);
1064          V187= car((V186));          if(!((/* INLINE-ARGS */V191)==((V187)))){
1065          goto T463;}          goto T469;}
1066            {object V192 = (V189);
1067            VMR14(V192)}
1068    goto T469;
1069    T469:;
1070            V188= cdr((V188));
1071            V189= car((V188));
1072            goto T464;}
1073          base[0]=base[0];          base[0]=base[0];
1074          return Cnil;          return Cnil;
1075  }  }
1076  /*      local entry for function C1ADD-GLOBALS  */  /*      local entry for function C1ADD-GLOBALS  */
1077    
1078  static object LI15(V192)  static object LI15(V194)
1079    
1080  object V192;  object V194;
1081  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1082  goto TTL;  goto TTL;
1083  TTL:;  TTL:;
1084          {register object V193;          {register object V195;
1085          register object V194;          register object V196;
1086          V193= (V192);          V195= (V194);
1087          V194= car((V193));          V196= car((V195));
 goto T479;  
 T479:;  
         if(!(endp_prop((V193)))){  
         goto T480;}  
         {object V195 = Cnil;  
         VMR15(V195)}  
1088  goto T480;  goto T480;
1089  T480:;  T480:;
1090          V196= (*(LnkLI68))((V194));          if(!(endp_prop((V195)))){
1091            goto T481;}
1092            {object V197 = Cnil;
1093            VMR15(V197)}
1094    goto T481;
1095    T481:;
1096          {register object V198;          {register object V198;
1097          V198= get((V194),VV[5],Cnil);          V199= (*(LnkLI68))((V196));
1098          if(((V198))==Cnil){          {register object V201;
1099          goto T489;}          V201= get((V196),VV[5],Cnil);
1100          V197= (V198);          if(((V201))==Cnil){
1101          goto T486;          goto T490;}
1102  goto T489;          V200= (V201);
1103  T489:;          goto T487;
1104          V197= Ct;}  goto T490;
1105  goto T486;  T490:;
1106  T486:;          V200= Ct;}
1107          V199= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V194),VV[14],VV[15],VV[16],/* INLINE-ARGS */V196,VV[17],V197));  goto T487;
1108          setq(VV[13],make_cons(/* INLINE-ARGS */V199,symbol_value(VV[13])));  T487:;
1109          V193= cdr((V193));          V198= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V196),VV[14],VV[15],VV[16],/* INLINE-ARGS */V199,VV[17],V200));
1110          V194= car((V193));          setq(VV[13],make_cons((V198),symbol_value(VV[13])));}
1111          goto T479;}          V195= cdr((V195));
1112            V196= car((V195));
1113            goto T480;}
1114          base[0]=base[0];          base[0]=base[0];
1115          return Cnil;          return Cnil;
1116  }  }
1117  /*      local entry for function C1SETQ */  /*      local entry for function C1SETQ */
1118    
1119  static object LI16(V201)  static object LI16(V203)
1120    
1121  register object V201;  register object V203;
1122  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1123  goto TTL;  goto TTL;
1124  TTL:;  TTL:;
1125          if(!(endp_prop((V201)))){          if(!(endp_prop((V203)))){
1126          goto T497;}          goto T499;}
1127          {object V202 = (*(LnkLI97))();          {object V204 = (*(LnkLI97))();
         VMR16(V202)}  
 goto T497;  
 T497:;  
         if(!(endp_prop(cdr((V201))))){  
         goto T500;}  
         {object V203 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1));  
         VMR16(V203)}  
 goto T500;  
 T500:;  
         if(!(endp_prop(cddr((V201))))){  
         goto T503;}  
         {object V204 = (*(LnkLI99))(car((V201)),cadr((V201)));  
1128          VMR16(V204)}          VMR16(V204)}
1129  goto T503;  goto T499;
1130  T503:;  T499:;
1131          {register object V205;          if(!(endp_prop(cdr((V203))))){
1132          register object V206;          goto T502;}
1133          V205= (V201);          {object V205 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1));
1134          V206= Cnil;          VMR16(V205)}
1135  goto T506;  goto T502;
1136  T506:;  T502:;
1137          if(!(endp_prop((V205)))){          if(!(endp_prop(cddr((V203))))){
1138          goto T507;}          goto T505;}
1139          V207= reverse((V206));          {object V206 = (*(LnkLI99))(car((V203)),cadr((V203)));
1140          V208= make_cons(VV[44],/* INLINE-ARGS */V207);          VMR16(V206)}
1141          {object V209 = (*(LnkLI100))(/* INLINE-ARGS */V208);  goto T505;
1142          VMR16(V209)}  T505:;
1143  goto T507;          {register object V207;
1144  T507:;          register object V208;
1145          if(!(endp_prop(cdr((V205))))){          V207= (V203);
1146          goto T511;}          V208= Cnil;
1147          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V205)))));  goto T508;
1148  goto T511;  T508:;
1149  T511:;          if(!(endp_prop((V207)))){
1150          V210= list(3,VV[43],car((V205)),cadr((V205)));          goto T509;}
1151          V206= make_cons(/* INLINE-ARGS */V210,(V206));          V209= reverse((V208));
1152          V205= cddr((V205));          V210= make_cons(VV[44],/* INLINE-ARGS */V209);
1153          goto T506;}          {object V211 = (*(LnkLI100))(/* INLINE-ARGS */V210);
1154            VMR16(V211)}
1155    goto T509;
1156    T509:;
1157            if(!(endp_prop(cdr((V207))))){
1158            goto T513;}
1159            (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V207)))));
1160    goto T513;
1161    T513:;
1162            {register object V212;
1163            V212= list(3,VV[43],car((V207)),cadr((V207)));
1164            V208= make_cons((V212),(V208));}
1165            V207= cddr((V207));
1166            goto T508;}
1167            base[0]=base[0];
1168          return Cnil;          return Cnil;
1169  }  }
1170  /*      local entry for function C1SETQ1        */  /*      local entry for function C1SETQ1        */
1171    
1172  static object LI17(V213,V214)  static object LI17(V215,V216)
1173    
1174  register object V213;object V214;  register object V215;object V216;
1175  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1176  goto TTL;  goto TTL;
1177  TTL:;  TTL:;
1178          {register object V215;          {register object V217;
         register object V216;  
         register object V217;  
1179          register object V218;          register object V218;
1180          V215= (VFUN_NARGS=0,(*(LnkLI71))());          register object V219;
1181          V216= Cnil;          register object V220;
1182          V217= Cnil;          V217= (VFUN_NARGS=0,(*(LnkLI71))());
1183          V218= Cnil;          V218= Cnil;
1184          if(type_of((V213))==t_symbol){          V219= Cnil;
1185          goto T523;}          V220= Cnil;
1186          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V213))));          if(type_of((V215))==t_symbol){
1187  goto T523;          goto T526;}
1188  T523:;          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V215))));
1189          base[1]= (V213);  goto T526;
1190    T526:;
1191            base[1]= (V215);
1192          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1193          Lconstantp();          Lconstantp();
1194          vs_top=sup;          vs_top=sup;
1195          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1196          goto T526;}          goto T529;}
1197          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V213))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V215))));
1198  goto T526;  goto T529;
1199  T526:;  T529:;
1200          V218= (*(LnkLI72))((V213));          V220= (*(LnkLI72))((V215));
1201          {object V220;          {object V221;
1202          V221= car((V218));          object V223;
1203          V222= structure_ref(V215,VV[12],0);          V221= car((V220));
1204          V220= make_cons(/* INLINE-ARGS */V221,/* INLINE-ARGS */V222);          V224= structure_ref(V217,VV[12],0);
1205          (void)(structure_set(V215,VV[12],0,(V220)));}          V223= make_cons((V221),/* INLINE-ARGS */V224);
1206          V217= (*(LnkLI100))((V214));          (void)(structure_set(V217,VV[12],0,(V223)));}
1207          (void)((*(LnkLI101))((V215),cadr((V217))));          V219= (*(LnkLI100))((V216));
1208          V223= structure_ref(car((V218)),VV[0],5);          (void)((*(LnkLI101))((V217),cadr((V219))));
1209          V224= structure_ref(cadr((V217)),VV[12],2);          V225= structure_ref(car((V220)),VV[0],5);
1210          V216= (*(LnkLI102))(/* INLINE-ARGS */V223,/* INLINE-ARGS */V224);          V226= structure_ref(cadr((V219)),VV[12],2);
1211          if(((V216))!=Cnil){          V218= (*(LnkLI102))(/* INLINE-ARGS */V225,/* INLINE-ARGS */V226);
1212          goto T539;}          if(((V218))!=Cnil){
1213          (void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V213),(V214))));          goto T543;}
1214  goto T539;          (void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V215),(V216))));
1215  T539:;  goto T543;
1216          V225= structure_ref(cadr((V217)),VV[12],2);  T543:;
1217          if(((V216))==(/* INLINE-ARGS */V225)){          V227= structure_ref(cadr((V219)),VV[12],2);
1218          goto T542;}          if(((V218))==(/* INLINE-ARGS */V227)){
1219          {object V226;          goto T546;}
1220          base[1]= cadr((V217));          {object V228;
1221            base[1]= cadr((V219));
1222          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1223          (void) (*Lnk103)();          (void) (*Lnk103)();
1224          vs_top=sup;          vs_top=sup;
1225          V226= vs_base[0];          V228= vs_base[0];
1226          (void)(structure_set((V226),VV[12],2,(V216)));          (void)(structure_set((V228),VV[12],2,(V218)));
1227          V217= listA(3,car((V217)),(V226),cddr((V217)));}          V219= listA(3,car((V219)),(V228),cddr((V219)));}
1228  goto T542;  goto T546;
1229  T542:;  T546:;
1230          (void)(structure_set((V215),VV[12],2,(V216)));          (void)(structure_set((V217),VV[12],2,(V218)));
1231          {object V227 = list(4,VV[43],(V215),(V218),(V217));          {object V229 = list(4,VV[43],(V217),(V220),(V219));
1232          VMR17(V227)}}          VMR17(V229)}}
1233          base[0]=base[0];          base[0]=base[0];
1234          return Cnil;          return Cnil;
1235  }  }
1236  /*      local entry for function C2SETQ */  /*      local entry for function C2SETQ */
1237    
1238  static object LI18(V230,V231)  static object LI18(V232,V233)
1239    
1240  object V230;object V231;  object V232;object V233;
1241  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1242          bds_check;          bds_check;
1243  goto TTL;  goto TTL;
1244  TTL:;  TTL:;
1245          base[0]= make_cons(VV[0],(V230));          base[0]= make_cons(VV[0],(V232));
1246          bds_bind(VV[49],base[0]);          bds_bind(VV[49],base[0]);
1247          V232= (*(LnkLI104))((V231));          V234= (*(LnkLI104))((V233));
1248          bds_unwind1;          bds_unwind1;
1249          {object V233= car((V231));          {object V235= car((V233));
1250          if((V233!= VV[105]))goto T552;          if((V235!= VV[105]))goto T556;
1251          {object V234 = (*(LnkLI106))(caddr((V231)));          {object V236 = (*(LnkLI106))(caddr((V233)));
1252          VMR18(V234)}          VMR18(V236)}
1253  goto T552;  goto T556;
1254  T552:;  T556:;
1255          V235= make_cons(VV[0],(V230));          V237= make_cons(VV[0],(V232));
1256          {object V236 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V235));          {object V238 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V237));
1257          VMR18(V236)}}          VMR18(V238)}}
1258          base[0]=base[0];          base[0]=base[0];
1259          return Cnil;          return Cnil;
1260  }  }
1261  /*      local entry for function C1PROGV        */  /*      local entry for function C1PROGV        */
1262    
1263  static object LI19(V238)  static object LI19(V240)
1264    
1265  register object V238;  register object V240;
1266  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1267  goto TTL;  goto TTL;
1268  TTL:;  TTL:;
1269          {object V239;          {object V241;
1270          object V240;          object V242;
1271          register object V241;          register object V243;
1272          V239= Cnil;          V241= Cnil;
1273          V240= Cnil;          V242= Cnil;
1274          V241= (VFUN_NARGS=0,(*(LnkLI71))());          V243= (VFUN_NARGS=0,(*(LnkLI71))());
1275          if(endp_prop((V238))){          if(endp_prop((V240))){
1276          goto T557;}          goto T561;}
1277          if(!(endp_prop(cdr((V238))))){          if(!(endp_prop(cdr((V240))))){
1278          goto T556;}          goto T560;}
1279  goto T557;  goto T561;
1280  T557:;  T561:;
1281          V242 = make_fixnum((long)length((V238)));          V244 = make_fixnum((long)length((V240)));
1282          (void)((*(LnkLI98))(VV[50],small_fixnum(2),V242));          (void)((*(LnkLI98))(VV[50],small_fixnum(2),V244));
1283  goto T556;  goto T560;
1284  T556:;  T560:;
1285          V239= (*(LnkLI107))(car((V238)),(V241));          V241= (*(LnkLI107))(car((V240)),(V243));
1286          V240= (*(LnkLI107))(cadr((V238)),(V241));          V242= (*(LnkLI107))(cadr((V240)),(V243));
1287          {object V243 = list(5,VV[50],(V241),(V239),(V240),(*(LnkLI108))(cddr((V238)),(V241)));          {object V245 = list(5,VV[50],(V243),(V241),(V242),(*(LnkLI108))(cddr((V240)),(V243)));
1288          VMR19(V243)}}          VMR19(V245)}}
1289          base[0]=base[0];          base[0]=base[0];
1290          return Cnil;          return Cnil;
1291  }  }
1292  /*      local entry for function C2PROGV        */  /*      local entry for function C2PROGV        */
1293    
1294  static object LI20(V247,V248,V249)  static object LI20(V249,V250,V251)
1295    
1296  object V247;object V248;object V249;  object V249;object V250;object V251;
1297  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1298          bds_check;          bds_check;
1299  goto TTL;  goto TTL;
1300  TTL:;  TTL:;
1301          {object V250;          {object V252;
1302          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
1303          V250= symbol_value(VV[51]);          V252= symbol_value(VV[51]);
1304          bds_bind(VV[52],symbol_value(VV[52]));          bds_bind(VV[52],symbol_value(VV[52]));
1305          princ_str("\n   {object symbols,values;",VV[34]);          princ_str("\n   {object symbols,values;",VV[34]);
1306          princ_str("\n   bds_ptr V",VV[34]);          princ_str("\n   bds_ptr V",VV[34]);
1307          (void)((*(LnkLI77))((V250)));          (void)((*(LnkLI77))((V252)));
1308          princ_str("=bds_top;",VV[34]);          princ_str("=bds_top;",VV[34]);
1309          (VV[52]->s.s_dbind)= make_cons((V250),(VV[52]->s.s_dbind));          (VV[52]->s.s_dbind)= make_cons(V252,(VV[52]->s.s_dbind));
1310          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],symbol_value(VV[53]));
1311          base[3]= list(2,VV[54],(*(LnkLI109))());          base[3]= list(2,VV[54],(*(LnkLI109))());
1312          bds_bind(VV[49],base[3]);          bds_bind(VV[49],base[3]);
1313          (void)((*(LnkLI104))((V247)));          (void)((*(LnkLI104))((V249)));
1314          princ_str("\n   symbols= ",VV[34]);          princ_str("\n   symbols= ",VV[34]);
1315          (void)((*(LnkLI77))((VV[49]->s.s_dbind)));          (void)((*(LnkLI77))((VV[49]->s.s_dbind)));
1316          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1317          bds_unwind1;          bds_unwind1;
1318          base[3]= list(2,VV[54],(*(LnkLI109))());          base[3]= list(2,VV[54],(*(LnkLI109))());
1319          bds_bind(VV[49],base[3]);          bds_bind(VV[49],base[3]);
1320          (void)((*(LnkLI104))((V248)));          (void)((*(LnkLI104))((V250)));
1321          princ_str("\n   values= ",VV[34]);          princ_str("\n   values= ",VV[34]);
1322          (void)((*(LnkLI77))((VV[49]->s.s_dbind)));          (void)((*(LnkLI77))((VV[49]->s.s_dbind)));
1323          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1324          bds_unwind1;          bds_unwind1;
1325          princ_str("\n   while(!endp(symbols)){",VV[34]);          princ_str("\n   while(!endp(symbols)){",VV[34]);
1326          if((symbol_value(VV[37]))==Cnil){          if((symbol_value(VV[37]))==Cnil){
1327          goto T590;}          goto T594;}
1328          princ_str("\n   if(type_of(MMcar(symbols))!=t_symbol)",VV[34]);          princ_str("\n   if(type_of(MMcar(symbols))!=t_symbol)",VV[34]);
1329          princ_str("\n   FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]);          princ_str("\n   FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]);
1330  goto T590;  goto T594;
1331  T590:;  T594:;
1332          princ_str("\n   if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]);          princ_str("\n   if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]);
1333          princ_str("\n   else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]);          princ_str("\n   else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]);
1334          princ_str("\n   values=MMcdr(values);}",VV[34]);          princ_str("\n   values=MMcdr(values);}",VV[34]);
1335          princ_str("\n   symbols=MMcdr(symbols);}",VV[34]);          princ_str("\n   symbols=MMcdr(symbols);}",VV[34]);
1336          bds_unwind1;          bds_unwind1;
1337          base[2]= (V249);          base[2]= (V251);
1338          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1339          (void) (*Lnk110)();          (void) (*Lnk110)();
1340          vs_top=sup;          vs_top=sup;
1341          princ_char(125,VV[34]);          princ_char(125,VV[34]);
1342          {object V251 = Cnil;          {object V254 = Cnil;
1343          bds_unwind1;          bds_unwind1;
1344          VMR20(V251)}}          VMR20(V254)}}
1345          base[0]=base[0];          base[0]=base[0];
1346          return Cnil;          return Cnil;
1347  }  }
1348  /*      local entry for function C1PSETQ        */  /*      local entry for function C1PSETQ        */
1349    
1350  static object LI21(V253)  static object LI21(V256)
1351    
1352  object V253;  object V256;
1353  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1354  goto TTL;  goto TTL;
1355  TTL:;  TTL:;
1356          {object V254;          {object V257;
1357          register object V255;          register object V258;
1358          object V256;          object V259;
1359          V254= Cnil;          V257= Cnil;
1360          V255= Cnil;          V258= Cnil;
1361          V256= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55]));          V259= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55]));
1362          {register object V257;          {register object V260;
1363          V257= (V253);          V260= (V256);
1364  goto T611;  goto T615;
1365  T611:;  T615:;
1366          if(!(endp_prop((V257)))){          if(!(endp_prop((V260)))){
         goto T612;}  
         goto T609;  
 goto T612;  
 T612:;  
         if(type_of(car((V257)))==t_symbol){  
1367          goto T616;}          goto T616;}
1368          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V257)))));          goto T613;
1369  goto T616;  goto T616;
1370  T616:;  T616:;
1371          base[1]= car((V257));          if(type_of(car((V260)))==t_symbol){
1372            goto T620;}
1373            (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V260)))));
1374    goto T620;
1375    T620:;
1376            base[1]= car((V260));
1377          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1378          Lconstantp();          Lconstantp();
1379          vs_top=sup;          vs_top=sup;
1380          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
         goto T619;}  
         (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V257)))));  
 goto T619;  
 T619:;  
         if(!(endp_prop(cdr((V257))))){  
1381          goto T623;}          goto T623;}
1382          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V257)))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V260)))));
1383  goto T623;  goto T623;
1384  T623:;  T623:;
1385          {register object V258;          if(!(endp_prop(cdr((V260))))){
1386          register object V259;          goto T627;}
1387          register object V260;          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V260)))));
1388          V258= (*(LnkLI72))(car((V257)));  goto T627;
1389          V259= (*(LnkLI100))(cadr((V257)));  T627:;
1390          V261= structure_ref(car((V258)),VV[0],5);          {register object V261;
1391          V262= structure_ref(cadr((V259)),VV[12],2);          register object V262;
1392          V260= (*(LnkLI102))(/* INLINE-ARGS */V261,/* INLINE-ARGS */V262);          register object V263;
1393          V263= structure_ref(cadr((V259)),VV[12],2);          V261= (*(LnkLI72))(car((V260)));
1394          if(equal((V260),/* INLINE-ARGS */V263)){          V262= (*(LnkLI100))(cadr((V260)));
1395          goto T630;}          V264= structure_ref(car((V261)),VV[0],5);
1396          {register object V264;          V265= structure_ref(cadr((V262)),VV[12],2);
1397          base[4]= cadr((V259));          V263= (*(LnkLI102))(/* INLINE-ARGS */V264,/* INLINE-ARGS */V265);
1398            V266= structure_ref(cadr((V262)),VV[12],2);
1399            if(equal((V263),/* INLINE-ARGS */V266)){
1400            goto T634;}
1401            {register object V267;
1402            base[4]= cadr((V262));
1403          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1404          (void) (*Lnk103)();          (void) (*Lnk103)();
1405          vs_top=sup;          vs_top=sup;
1406          V264= vs_base[0];          V267= vs_base[0];
1407          (void)(structure_set((V264),VV[12],2,(V260)));          (void)(structure_set((V267),VV[12],2,(V263)));
1408          V259= listA(3,car((V259)),(V264),cddr((V259)));}          V262= listA(3,car((V262)),(V267),cddr((V262)));}
1409  goto T630;  goto T634;
1410  T630:;  T634:;
1411          V254= make_cons((V258),(V254));          V257= make_cons(V261,(V257));
1412          V255= make_cons((V259),(V255));          V258= make_cons(V262,(V258));
1413          {register object V265;          {object V270;
1414          object V266;          register object V271;
1415          V265= (V256);          object V272;
1416          V267= car((V258));          V270= car((V261));
1417          V268= structure_ref((V265),VV[12],0);          V271= (V259);
1418          V266= make_cons(/* INLINE-ARGS */V267,/* INLINE-ARGS */V268);          V273= structure_ref((V271),VV[12],0);
1419          (void)(structure_set((V265),VV[12],0,(V266)));}          V272= make_cons((V270),/* INLINE-ARGS */V273);
1420          (void)((*(LnkLI101))((V256),cadar((V255))));}          (void)(structure_set((V271),VV[12],0,(V272)));}
1421          V257= cddr((V257));          (void)((*(LnkLI101))((V259),cadar((V258))));}
1422          goto T611;}          V260= cddr((V260));
1423  goto T609;          goto T615;}
1424  T609:;  goto T613;
1425          V269= reverse((V254));  T613:;
1426          {object V270 = list(4,VV[59],(V256),/* INLINE-ARGS */V269,reverse((V255)));          V274= reverse((V257));
1427          VMR21(V270)}}          {object V275 = list(4,VV[59],(V259),/* INLINE-ARGS */V274,reverse((V258)));
1428            VMR21(V275)}}
1429          base[0]=base[0];          base[0]=base[0];
1430          return Cnil;          return Cnil;
1431  }  }
1432  /*      local entry for function C2PSETQ        */  /*      local entry for function C2PSETQ        */
1433    
1434  static object LI22(V273,V274)  static object LI22(V278,V279)
1435    
1436  object V273;register object V274;  object V278;register object V279;
1437  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1438          bds_check;          bds_check;
1439  goto TTL;  goto TTL;
1440  TTL:;  TTL:;
1441          {register object V275;          {register object V280;
1442          object V276;          object V281;
1443          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],symbol_value(VV[53]));
1444          V275= Cnil;          V280= Cnil;
1445          V276= small_fixnum(0);          V281= small_fixnum(0);
1446          {register object V277;          {register object V282;
1447          register object V278;          register object V283;
1448          V277= (V273);          V282= (V278);
1449          V278= car((V277));          V283= car((V282));
1450  goto T653;  goto T658;
1451  T653:;  T658:;
1452          if(!(endp_prop((V277)))){          if(!(endp_prop((V282)))){
         goto T654;}  
         goto T649;  
 goto T654;  
 T654:;  
         if(((*(LnkLI111))(car((V278)),cdr((V274))))!=Cnil){  
1453          goto T659;}          goto T659;}
1454          if(((*(LnkLI112))(car((V278)),cdr((V274))))==Cnil){          goto T654;
         goto T660;}  
1455  goto T659;  goto T659;
1456  T659:;  T659:;
1457          {object V279= caar((V274));          if(((*(LnkLI111))(car((V283)),cdr((V279))))!=Cnil){
1458          if((V279!= VV[105]))goto T664;          goto T664;}
1459          V280= make_cons((V278),caddar((V274)));          if(((*(LnkLI112))(car((V283)),cdr((V279))))==Cnil){
1460          V275= make_cons(/* INLINE-ARGS */V280,(V275));          goto T665;}
         goto T658;  
1461  goto T664;  goto T664;
1462  T664:;  T664:;
1463          V282= structure_ref(car((V278)),VV[0],1);          {object V284= caar((V279));
1464          {register object x= /* INLINE-ARGS */V282,V281= VV[60];          if((V284!= VV[105]))goto T669;
1465          while(!endp(V281))          {object V285;
1466          if(eql(x,V281->c.c_car)){          V285= make_cons((V283),caddar((V279)));
1467          goto T668;          V280= make_cons((V285),(V280));
1468          }else V281=V281->c.c_cdr;          goto T663;}
1469          goto T667;}  goto T669;
1470  goto T668;  T669:;
1471  T668:;          V287= structure_ref(car((V283)),VV[0],1);
1472          {object V283;          {register object x= /* INLINE-ARGS */V287,V286= VV[60];
1473          object V284;          while(!endp(V286))
1474          object V285;          if(eql(x,V286->c.c_car)){
1475          V283= structure_ref(car((V278)),VV[0],1);          goto T674;
1476            }else V286=V286->c.c_cdr;
1477            goto T673;}
1478    goto T674;
1479    T674:;
1480            {object V288;
1481            object V289;
1482            object V290;
1483            V288= structure_ref(car((V283)),VV[0],1);
1484          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
1485          V284= symbol_value(VV[51]);          V289= symbol_value(VV[51]);
1486          V286= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V283),VV[16],(V284)));          V291= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V288),VV[16],(V289)));
1487          V285= list(3,VV[0],/* INLINE-ARGS */V286,Cnil);          V290= list(3,VV[0],/* INLINE-ARGS */V291,Cnil);
1488          princ_str("\n   {",VV[34]);          princ_str("\n   {",VV[34]);
1489          (void)((*(LnkLI77))(symbol_value(VV[61])));          (void)((*(LnkLI77))(symbol_value(VV[61])));
1490          V287= (*(LnkLI113))((V283));          V292= (*(LnkLI113))((V288));
1491          (void)((*(LnkLI77))(/* INLINE-ARGS */V287));          (void)((*(LnkLI77))(/* INLINE-ARGS */V292));
1492          princ_char(86,VV[34]);          princ_char(86,VV[34]);
1493          (void)((*(LnkLI77))((V284)));          (void)((*(LnkLI77))((V289)));
1494          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1495          V276= number_plus((V276),small_fixnum(1));          V281= number_plus((V281),small_fixnum(1));
1496          bds_bind(VV[49],(V285));          bds_bind(VV[49],(V290));
1497          V288= (*(LnkLI104))(car((V274)));          V293= (*(LnkLI104))(car((V279)));
1498          bds_unwind1;          bds_unwind1;
1499          V289= make_cons((V278),(V285));          {object V294;
1500          V275= make_cons(/* INLINE-ARGS */V289,(V275));          V294= make_cons((V283),(V290));
1501          goto T658;}          V280= make_cons((V294),(V280));
1502  goto T667;          goto T663;}}
1503  T667:;  goto T673;
1504    T673:;
1505          base[2]= list(2,VV[54],(*(LnkLI109))());          base[2]= list(2,VV[54],(*(LnkLI109))());
1506          bds_bind(VV[49],base[2]);          bds_bind(VV[49],base[2]);
1507          (void)((*(LnkLI104))(car((V274))));          (void)((*(LnkLI104))(car((V279))));
1508          V290= make_cons((V278),(VV[49]->s.s_dbind));          {object V295;
1509          V275= make_cons(/* INLINE-ARGS */V290,(V275));          V295= make_cons((V283),(VV[49]->s.s_dbind));
1510            V280= make_cons((V295),(V280));
1511          bds_unwind1;          bds_unwind1;
1512          goto T658;}          goto T663;}}
1513  goto T660;  goto T665;
1514  T660:;  T665:;
1515          base[2]= make_cons(VV[0],(V278));          base[2]= make_cons(VV[0],(V283));
1516          bds_bind(VV[49],base[2]);          bds_bind(VV[49],base[2]);
1517          V291= (*(LnkLI104))(car((V274)));          V296= (*(LnkLI104))(car((V279)));
1518          bds_unwind1;          bds_unwind1;
1519  goto T658;  goto T663;
1520  T658:;  T663:;
1521          {object V292;          {object V297;
1522          V292= car((V274));          V297= car((V279));
1523          V274= cdr((V274));}          V279= cdr((V279));}
1524          V277= cdr((V277));          V282= cdr((V282));
1525          V278= car((V277));          V283= car((V282));
1526          goto T653;}          goto T658;}
1527  goto T649;  goto T654;
1528  T649:;  T654:;
1529          {register object V293;          {register object V298;
1530          register object V294;          register object V299;
1531          V293= (V275);          V298= (V280);
1532          V294= car((V293));          V299= car((V298));
1533  goto T701;  goto T709;
1534  T701:;  T709:;
1535          if(!(endp_prop((V293)))){          if(!(endp_prop((V298)))){
1536          goto T702;}          goto T710;}
1537          goto T697;          goto T705;
1538  goto T702;  goto T710;
1539  T702:;  T710:;
1540          (void)((*(LnkLI42))(cdr((V294)),caar((V294)),cadar((V294))));          (void)((*(LnkLI42))(cdr((V299)),caar((V299)),cadar((V299))));
1541          V293= cdr((V293));          V298= cdr((V298));
1542          V294= car((V293));          V299= car((V298));
1543          goto T701;}          goto T709;}
1544  goto T697;  goto T705;
1545  T697:;  T705:;
1546          {object V296;          {object V301;
1547          V296= small_fixnum(0);          V301= small_fixnum(0);
1548  goto T715;  goto T723;
1549  T715:;  T723:;
1550          if(!(number_compare((V296),V276)>=0)){          if(!(number_compare((V301),V281)>=0)){
1551          goto T716;}          goto T724;}
1552          goto T712;          goto T720;
1553  goto T716;  goto T724;
1554  T716:;  T724:;
1555          princ_char(125,VV[34]);          princ_char(125,VV[34]);
1556          V296= one_plus((V296));          V301= one_plus((V301));
1557          goto T715;}          goto T723;}
1558  goto T712;  goto T720;
1559  T712:;  T720:;
1560          {object V297 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil));          {object V302 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil));
1561          bds_unwind1;          bds_unwind1;
1562          VMR22(V297)}}          VMR22(V302)}}
1563          base[0]=base[0];          base[0]=base[0];
1564          return Cnil;          return Cnil;
1565  }  }
# Line 1560  static void L23() Line 1569  static void L23()
1569  {register object *base=vs_base;  {register object *base=vs_base;
1570          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
1571          vs_reserve(VM23);          vs_reserve(VM23);
1572          {register object V298;          {register object V303;
1573          check_arg(1);          check_arg(1);
1574          V298=(base[0]);          V303=(base[0]);
1575          vs_top=sup;          vs_top=sup;
1576  goto TTL;  goto TTL;
1577  TTL:;  TTL:;
1578          base[1]= (V298);          base[1]= (V303);
1579          base[2]= VV[0];          base[2]= VV[0];
1580          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1581          (void) (*Lnk114)();          (void) (*Lnk114)();
1582          vs_top=sup;          vs_top=sup;
1583          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1584          goto T726;}          goto T734;}
1585          {object V299;          {object V304;
1586          V299= structure_ref((V298),VV[0],4);          V304= structure_ref((V303),VV[0],4);
1587          V300= structure_ref((V298),VV[0],1);          V305= structure_ref((V303),VV[0],1);
1588          if(!((/* INLINE-ARGS */V300)==(VV[24]))){          if(!((/* INLINE-ARGS */V305)==(VV[24]))){
1589          goto T731;}          goto T739;}
1590          princ_str("IDECL(",VV[34]);          princ_str("IDECL(",VV[34]);
1591  goto T731;  goto T739;
1592  T731:;  T739:;
1593          (void)((*(LnkLI77))(symbol_value(VV[61])));          (void)((*(LnkLI77))(symbol_value(VV[61])));
1594          V301= (*(LnkLI69))((V298));          V306= (*(LnkLI69))((V303));
1595          (void)((*(LnkLI77))(/* INLINE-ARGS */V301));          (void)((*(LnkLI77))(/* INLINE-ARGS */V306));
1596          V302= structure_ref((V298),VV[0],1);          V307= structure_ref((V303),VV[0],1);
1597          V303= (*(LnkLI113))(/* INLINE-ARGS */V302);          V308= (*(LnkLI113))(/* INLINE-ARGS */V307);
1598          (void)((*(LnkLI77))(/* INLINE-ARGS */V303));          (void)((*(LnkLI77))(/* INLINE-ARGS */V308));
1599          princ_char(86,VV[34]);          princ_char(86,VV[34]);
1600          (void)((*(LnkLI77))((V299)));          (void)((*(LnkLI77))((V304)));
1601          V304= structure_ref((V298),VV[0],1);          V309= structure_ref((V303),VV[0],1);
1602          if(!(eql(/* INLINE-ARGS */V304,VV[24]))){          if(!(eql(/* INLINE-ARGS */V309,VV[24]))){
1603          goto T741;}          goto T749;}
1604          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
1605          (void)((*(LnkLI77))((V299)));          (void)((*(LnkLI77))((V304)));
1606          princ_str("space,V",VV[34]);          princ_str("space,V",VV[34]);
1607          (void)((*(LnkLI77))((V299)));          (void)((*(LnkLI77))((V304)));
1608          princ_str("alloc)",VV[34]);          princ_str("alloc)",VV[34]);
1609  goto T741;  goto T749;
1610  T741:;  T749:;
1611          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1612          base[1]= Cnil;          base[1]= Cnil;
1613          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1614          return;}          return;}
1615  goto T726;  goto T734;
1616  T726:;  T734:;
1617          base[1]= (*(LnkLI79))();          base[1]= (*(LnkLI79))();
1618          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1619          return;          return;

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