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

Diff of /gcl/cmpnew/gcl_cmpeval.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:27 2003 UTC
# Line 11  register object V3;object V4; Line 11  register object V3;object V4;
11          goto TTL;          goto TTL;
12  TTL:;  TTL:;
13          V3= (*(LnkLI123))((V3));          V3= (*(LnkLI123))((V3));
14          (void)((*(LnkLI124))((V4),cadr((V3))));          (void)((*(LnkLI124))((V4),CMPcadr((V3))));
15          {object V5 = (V3);          {object V5 = (V3);
16          VMR1(V5)}          VMR1(V5)}
17          return Cnil;          return Cnil;
# Line 95  T8:; Line 95  T8:;
95          if(!(type_of((V7))==t_cons)){          if(!(type_of((V7))==t_cons)){
96          goto T28;}          goto T28;}
97          {register object V19;          {register object V19;
98          V19= car((V7));          V19= CMPcar((V7));
99          if(!(type_of((V19))==t_symbol)){          if(!(type_of((V19))==t_symbol)){
100          goto T32;}          goto T32;}
101          base[0]= (V19);          base[0]= (V19);
102          base[1]= cdr((V7));          base[1]= CMPcdr((V7));
103          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
104          (void) (*Lnk133)();          (void) (*Lnk133)();
105          vs_top=sup;          vs_top=sup;
# Line 110  T8:; Line 110  T8:;
110  T32:;  T32:;
111          if(!(type_of((V19))==t_cons)){          if(!(type_of((V19))==t_cons)){
112          goto T37;}          goto T37;}
113          if(!((car((V19)))==(VV[4]))){          if(!((CMPcar((V19)))==(VV[4]))){
114          goto T37;}          goto T37;}
115          V20= (*(LnkLI134))(cdr((V19)),cdr((V7)));          V20= (*(LnkLI134))(CMPcdr((V19)),CMPcdr((V7)));
116          frs_pop();          frs_pop();
117          V7= V20;          V7= V20;
118          goto T5;          goto T5;
# Line 120  T32:; Line 120  T32:;
120  T37:;  T37:;
121          if(!(type_of((V19))==t_cons)){          if(!(type_of((V19))==t_cons)){
122          goto T42;}          goto T42;}
123          if(!((car((V19)))==(VV[5]))){          if(!((CMPcar((V19)))==(VV[5]))){
124          goto T42;}          goto T42;}
125          V21= (VFUN_NARGS=1,(*(LnkLI135))(VV[6]));          V21= (VFUN_NARGS=1,(*(LnkLI135))(VV[6]));
126          frs_pop();          frs_pop();
# Line 193  static object LI5() Line 193  static object LI5()
193  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
194          goto TTL;          goto TTL;
195  TTL:;  TTL:;
196          {object V34 = symbol_value(VV[11]);          {object V34 = (VV[11]->s.s_dbind);
197          VMR5(V34)}          VMR5(V34)}
198          return Cnil;          return Cnil;
199  }  }
# Line 204  static object LI6() Line 204  static object LI6()
204  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
205          goto TTL;          goto TTL;
206  TTL:;  TTL:;
207          {object V35 = symbol_value(VV[12]);          {object V35 = (VV[12]->s.s_dbind);
208          VMR6(V35)}          VMR6(V35)}
209          return Cnil;          return Cnil;
210  }  }
211  /*      function definition for FLAGS-POS       */  /*      local entry for function FLAGS-POS      */
212    
213  static void L7()  static object LI7(V37)
214  {register object *base=vs_base;  
215          register object *sup=base+VM7; VC7  register object V37;
216          vs_reserve(VM7);  {        VMB7 VMS7 VMV7
         {register object V36;  
         check_arg(1);  
         V36=(base[0]);  
         vs_top=sup;  
217          goto TTL;          goto TTL;
218  TTL:;  TTL:;
219          {register long V37;          {register long V38;
220          V37= 0;          V38= 0;
221          {register object V38;          {register object V39;
222          register object V39;          register object V40;
223          V38= VV[13];          V39= VV[13];
224          V39= car((V38));          V40= CMPcar((V39));
225          goto T58;          goto T58;
226  T58:;  T58:;
227          if(!(endp_prop((V38)))){          if(!(((V39))==Cnil)){
228          goto T59;}          goto T59;}
229          goto T54;          goto T54;
230          goto T59;          goto T59;
231  T59:;  T59:;
232          {register object x= (V36),V40= (V39);          {register object x= (V37),V41= (V40);
233          while(!endp(V40))          while(V41!=Cnil)
234          if(x==(V40->c.c_car)){          if(x==(V41->c.c_car)){
235          goto T65;          goto T65;
236          }else V40=V40->c.c_cdr;          }else V41=V41->c.c_cdr;
237          goto T63;}          goto T63;}
238          goto T65;          goto T65;
239  T65:;  T65:;
240          base[2]= make_fixnum(V37);          {object V42 = CMPmake_fixnum(V38);
241          vs_top=(vs_base=base+2)+1;          VMR7(V42)}
         return;  
242          goto T63;          goto T63;
243  T63:;  T63:;
244          V37= (long)(V37)+(1);          V38= (long)(V38)+(1);
245          V38= cdr((V38));          V39= CMPcdr((V39));
246          V39= car((V38));          V40= CMPcar((V39));
247          goto T58;}          goto T58;}
248          goto T54;          goto T54;
249  T54:;  T54:;
250          base[1]= VV[14];          base[0]= VV[14];
251          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
252          Lerror();          Lerror();
253          return;}          vs_top=sup;
254          }          {object V43 = vs_base[0];
255            VMR7(V43)}}
256            base[0]=base[0];
257            return Cnil;
258  }  }
259  /*      macro definition for FLAG-P     */  /*      macro definition for FLAG-P     */
260    
261  static void L8()  static void L8()
262  {register object *base=vs_base;  {register object *base=vs_base;
263          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
264          vs_reserve(VM8);          vs_check;
         check_arg(2);  
265          vs_top=sup;          vs_top=sup;
266          {object V41=base[0]->c.c_cdr;          {object V44=base[0]->c.c_cdr;
267          if(endp(V41))invalid_macro_call();          base[2]= (V44->c.c_car);
268          base[2]= (V41->c.c_car);          V44=V44->c.c_cdr;
269          V41=V41->c.c_cdr;          base[3]= (V44->c.c_car);}
270          if(endp(V41))invalid_macro_call();          V45= (*(LnkLI137))(base[3]);
271          base[3]= (V41->c.c_car);          base[4]= list(3,VV[15],/* INLINE-ARGS */V45,base[2]);
         V41=V41->c.c_cdr;  
         if(!endp(V41))invalid_macro_call();}  
         base[4]= base[3];  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk137)();  
         vs_top=sup;  
         V42= vs_base[0];  
         base[4]= list(3,VV[15],V42,base[2]);  
272          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
273          return;          return;
274  }  }
275  /*      function definition for FIX-OPT */  /*      local entry for function FIX-OPT        */
276    
277  static void L9()  static object LI9(V47)
278  {register object *base=vs_base;  
279          register object *sup=base+VM9; VC9  register object V47;
280          vs_reserve(VM9);  {        VMB9 VMS9 VMV9
         {register object V43;  
         check_arg(1);  
         V43=(base[0]);  
         vs_top=sup;  
281          goto TTL;          goto TTL;
282  TTL:;  TTL:;
283          {register object V44;          {register object V48;
284          V44= cddr((V43));          V48= CMPcddr((V47));
285          if(type_of(car((V44)))==t_fixnum){          if(type_of(CMPcar((V48)))==t_fixnum){
286          goto T77;}          goto T75;}
287          if((symbol_value(VV[16]))==Cnil){          if(((VV[16]->s.s_dbind))==Cnil){
288          goto T80;}          goto T78;}
289          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43))));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V47))));
290          goto T80;          goto T78;
291  T80:;  T78:;
292          {object V46;          {object V50;
293          if((car((V44)))==Cnil){          if((CMPcar((V48)))==Cnil){
294          goto T87;}          goto T85;}
295          base[2]= small_fixnum(2);          base[1]= small_fixnum(2);
296          goto T85;          goto T83;
         goto T87;  
 T87:;  
         base[2]= small_fixnum(0);  
297          goto T85;          goto T85;
298  T85:;  T85:;
299          if((cadr((V44)))==Cnil){          base[1]= small_fixnum(0);
300          goto T91;}          goto T83;
301          base[3]= small_fixnum(1);  T83:;
302          goto T89;          if((CMPcadr((V48)))==Cnil){
303          goto T91;          goto T89;}
304  T91:;          base[2]= small_fixnum(1);
305          base[3]= small_fixnum(0);          goto T87;
306          goto T89;          goto T89;
307  T89:;  T89:;
308          vs_top=(vs_base=base+2)+2;          base[2]= small_fixnum(0);
309            goto T87;
310    T87:;
311            vs_top=(vs_base=base+1)+2;
312          Llogior();          Llogior();
313          vs_top=sup;          vs_top=sup;
314          V47= vs_base[0];          V51= vs_base[0];
315          V46= make_cons(V47,cddr((V44)));          V50= make_cons(V51,CMPcddr((V48)));
316          if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43));          (CMPcdr(V47))->c.c_cdr = (V50);
317          (cdr(V43))->c.c_cdr = (V46);          (void)(CMPcdr(V47));}
318          (void)(cdr(V43));}          goto T75;
319          goto T77;  T75:;
320  T77:;          {object V52 = (V47);
321          base[1]= (V43);          VMR9(V52)}}
322          vs_top=(vs_base=base+1)+1;          base[0]=base[0];
323          return;}          return Cnil;
         }  
324  }  }
325  /*      function definition for RESULT-TYPE-FROM-ARGS   */  /*      local entry for function RESULT-TYPE-FROM-ARGS  */
326    
327  static void L10()  static object LI10(V55,V56)
328  {register object *base=vs_base;  
329          register object *sup=base+VM10; VC10  object V55;register object V56;
330          vs_reserve(VM10);  {        VMB10 VMS10 VMV10
         {object V48;  
         register object V49;  
         check_arg(2);  
         V48=(base[0]);  
         V49=(base[1]);  
         vs_top=sup;  
331          goto TTL;          goto TTL;
332  TTL:;  TTL:;
333          {object V50;          {object V57;
334          V50= Cnil;          V57= Cnil;
335          V50= get((V48),VV[18],Cnil);          {object V58 =((V55))->s.s_plist;
336          if(((V50))==Cnil){           object ind= VV[18];
337          goto T96;}          while(V58!=Cnil){
338          if(((V50))==(VV[19])){          if(V58->c.c_car==ind){
339          goto T96;}          V57= (V58->c.c_cdr->c.c_car);
340          if(type_of((V50))==t_cons){          goto T97;
341          goto T96;}          }else V58=V58->c.c_cdr->c.c_cdr;}
342          {register object V51;          V57= Cnil;}
343          object V52;          goto T97;
344          V51= VV[20];  T97:;
345          V52= car((V51));          if(((V57))==Cnil){
346          goto T106;          goto T94;}
347  T106:;          if(((V57))==(VV[19])){
348          if(!(endp_prop((V51)))){          goto T94;}
349          goto T107;}          if(type_of((V57))==t_cons){
350          base[3]= Cnil;          goto T94;}
351          vs_top=(vs_base=base+3)+1;          {register object V59;
352          return;          object V60;
353          goto T107;          V59= VV[20];
354  T107:;          V60= CMPcar((V59));
355          {register object V53;          goto T104;
356          register object V54;  T104:;
357          V53= get((V48),(V52),Cnil);          if(!(((V59))==Cnil)){
358          V54= car((V53));          goto T105;}
359          goto T115;          {object V61 = Cnil;
360  T115:;          VMR10(V61)}
361          if(!(endp_prop((V53)))){          goto T105;
362          goto T116;}  T105:;
363          goto T111;          {register object V62;
364          goto T116;          register object V63;
365  T116:;          {object V64 =((V55))->s.s_plist;
366          base[5]= (V54);           object ind= (V60);
367          vs_top=(vs_base=base+5)+1;          while(V64!=Cnil){
368          (void) (*Lnk139)();          if(V64->c.c_car==ind){
369          vs_top=sup;          V62= (V64->c.c_cdr->c.c_car);
370          base[5]= small_fixnum(3);          goto T110;
371          base[6]= caddr((V54));          }else V64=V64->c.c_cdr->c.c_cdr;}
372          vs_top=(vs_base=base+5)+2;          V62= Cnil;}
373            goto T110;
374    T110:;
375            V63= CMPcar((V62));
376            goto T113;
377    T113:;
378            if(!(((V62))==Cnil)){
379            goto T114;}
380            goto T109;
381            goto T114;
382    T114:;
383            (void)((*(LnkLI139))((V63)));
384            base[3]= small_fixnum(3);
385            base[4]= CMPcaddr((V63));
386            vs_top=(vs_base=base+3)+2;
387          Llogbitp();          Llogbitp();
388          vs_top=sup;          vs_top=sup;
389          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
390          goto T122;}          goto T119;}
391          if(!(((long)length((V49)))==((long)length(car((V54)))))){          if(!(((long)length((V56)))==((long)length(CMPcar((V63)))))){
392          goto T122;}          goto T119;}
393          {register object V55;          {register object V65;
394          register object V56;          register object V66;
395          V56= car((V54));          V66= CMPcar((V63));
396          V55= (V49);          V65= (V56);
         goto T133;  
 T133:;  
         if(((V55))!=Cnil){  
         goto T134;}  
         goto T130;  
         goto T134;  
 T134:;  
         if((car((V55)))==(car((V56)))){  
         goto T138;}  
         if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){  
         goto T138;}  
         goto T122;  
         goto T138;  
 T138:;  
         V55= cdr((V55));  
         V56= cdr((V56));  
         goto T133;}  
397          goto T130;          goto T130;
398  T130:;  T130:;
399          base[5]= cadr((V54));          if(((V65))!=Cnil){
400          vs_top=(vs_base=base+5)+1;          goto T131;}
401          return;          goto T127;
402          goto T122;          goto T131;
403  T122:;  T131:;
404          V53= cdr((V53));          if((CMPcar((V65)))==(CMPcar((V66)))){
405          V54= car((V53));          goto T135;}
406          goto T115;}          if(((*(LnkLI140))(CMPcar((V66)),CMPcar((V65))))!=Cnil){
407          goto T111;          goto T135;}
408  T111:;          goto T119;
409          V51= cdr((V51));          goto T135;
410          V52= car((V51));  T135:;
411          goto T106;}          V65= CMPcdr((V65));
412          goto T96;          V66= CMPcdr((V66));
413  T96:;          goto T130;}
414          base[2]= Cnil;          goto T127;
415          vs_top=(vs_base=base+2)+1;  T127:;
416          return;}          {object V67 = CMPcadr((V63));
417          }          VMR10(V67)}
418            goto T119;
419    T119:;
420            V62= CMPcdr((V62));
421            V63= CMPcar((V62));
422            goto T113;}
423            goto T109;
424    T109:;
425            V59= CMPcdr((V59));
426            V60= CMPcar((V59));
427            goto T104;}
428            goto T94;
429    T94:;
430            {object V68 = Cnil;
431            VMR10(V68)}}
432            base[0]=base[0];
433            return Cnil;
434  }  }
435  /*      macro definition for FLAGS      */  /*      macro definition for FLAGS      */
436    
437  static void L11()  static void L11()
438  {register object *base=vs_base;  {register object *base=vs_base;
439          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
440          vs_reserve(VM11);          vs_check;
         check_arg(2);  
441          vs_top=sup;          vs_top=sup;
442          {object V57=base[0]->c.c_cdr;          {object V69=base[0]->c.c_cdr;
443          base[2]= V57;          base[2]= V69;
444          base[3]= small_fixnum(0);}          base[3]= small_fixnum(0);}
445          {register object V58;          {register object V70;
446          register object V59;          register object V71;
447          V58= base[2];          V70= base[2];
448          V59= car((V58));          V71= CMPcar((V70));
449          goto T162;          goto T159;
450  T162:;  T159:;
451          if(!(endp_prop((V58)))){          if(!(((V70))==Cnil)){
452          goto T163;}          goto T160;}
453          goto T158;          goto T155;
454          goto T163;          goto T160;
455  T163:;  T160:;
456          base[5]= base[3];          base[5]= base[3];
457          base[7]= small_fixnum(1);          base[7]= small_fixnum(1);
458          base[9]= (V59);          base[8]= (*(LnkLI137))((V71));
         vs_top=(vs_base=base+9)+1;  
         (void) (*Lnk137)();  
         vs_top=sup;  
         base[8]= vs_base[0];  
459          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
460          Lash();          Lash();
461          vs_top=sup;          vs_top=sup;
# Line 478  T163:; Line 464  T163:;
464          Llogior();          Llogior();
465          vs_top=sup;          vs_top=sup;
466          base[3]= vs_base[0];          base[3]= vs_base[0];
467          V58= cdr((V58));          V70= CMPcdr((V70));
468          V59= car((V58));          V71= CMPcar((V70));
469          goto T162;}          goto T159;}
470          goto T158;          goto T155;
471  T158:;  T155:;
472          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
473          return;          return;
474  }  }
# Line 491  T158:; Line 477  T158:;
477  static void L12()  static void L12()
478  {register object *base=vs_base;  {register object *base=vs_base;
479          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
480          vs_reserve(VM12);          vs_check;
481          {object V60;          {object V72;
482          register object V61;          register object V73;
483          check_arg(2);          V72=(base[0]);
484          V60=(base[0]);          V73=(base[1]);
         V61=(base[1]);  
485          vs_top=sup;          vs_top=sup;
486          goto TTL;          goto TTL;
487  TTL:;  TTL:;
488          {object V62;          {object V74;
489          V62= Cnil;          V74= Cnil;
490          V62= get((V60),VV[21],Cnil);          {object V75 =((V72))->s.s_plist;
491          if(((V62))==Cnil){           object ind= VV[21];
492          goto T181;}          while(V75!=Cnil){
493          base[2]= (V61);          if(V75->c.c_car==ind){
494            V74= (V75->c.c_cdr->c.c_car);
495            goto T179;
496            }else V75=V75->c.c_cdr->c.c_cdr;}
497            V74= Cnil;}
498            goto T179;
499    T179:;
500            if(((V74))==Cnil){
501            goto T177;}
502            base[2]= (V73);
503          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
504          super_funcall_no_event((V62));          super_funcall_no_event((V74));
505          return;          return;
506            goto T177;
507    T177:;
508            {object V76;
509            {object V77 =((V72))->s.s_plist;
510             object ind= VV[22];
511            while(V77!=Cnil){
512            if(V77->c.c_car==ind){
513            V74= (V77->c.c_cdr->c.c_car);
514            goto T184;
515            }else V77=V77->c.c_cdr->c.c_cdr;}
516            V74= Cnil;}
517            goto T184;
518    T184:;
519            if(((V74))!=Cnil){
520            goto T182;}
521            V76= Cnil;
522            goto T181;
523            goto T182;
524    T182:;
525            V76= (
526            (type_of((V74)) == t_sfun ?(*(((V74))->sfn.sfn_self)):
527            (fcall.argd=2,type_of((V74))==t_vfun) ?
528            (*(((V74))->sfn.sfn_self)):
529            (fcall.fun=((V74)),fcalln))((V72),(V73)));
530          goto T181;          goto T181;
531  T181:;  T181:;
532          {object V63;          if(((V76))==Cnil){
         V62= get((V60),VV[22],Cnil);  
         if(((V62))!=Cnil){  
533          goto T186;}          goto T186;}
534          V63= Cnil;          base[2]= (V76);
         goto T185;  
         goto T186;  
 T186:;  
         V63= (  
         (type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)):  
         (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));  
         goto T185;  
 T185:;  
         if(((V63))==Cnil){  
         goto T190;}  
         base[2]= (V63);  
535          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
536          return;          return;
537          goto T190;          goto T186;
538  T190:;  T186:;
539          V62= (*(LnkLI141))((V60));          V74= (*(LnkLI141))((V72));
540          if(((V62))==Cnil){          if(((V74))==Cnil){
541            goto T189;}
542            if(!((CMPcar((V74)))==(VV[23]))){
543          goto T193;}          goto T193;}
544          if(!((car((V62)))==(VV[23]))){          {object V78;
545            object V79;
546            V78= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));
547            V79= (*(LnkLI142))((V73),(V78));
548            {object V80;
549            V80= (*(LnkLI143))(CMPcaddr((V74)));
550            if(((V80))==Cnil){
551          goto T197;}          goto T197;}
552          {object V64;          V81= Ct;
553          object V65;          STSET(object,(V78),8, (V80));
554          V64= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));          (void)((V80));}
555          V65= (*(LnkLI142))((V61),(V64));          goto T197;
556          {object V66;  T197:;
557          V66= (*(LnkLI143))(caddr((V62)));          {register object V82;
558          if(((V66))==Cnil){          V82= (*(LnkLI144))(CMPcaddr((V74)));
559            if(((V82))==Cnil){
560          goto T201;}          goto T201;}
561          (void)(structure_set((V64),VV[25],2,(V66)));}          {object V83;
562          goto T201;          V83= Cnil;
563  T201:;          {object V84;
564          {register object V67;          object V85;
565          V67= (*(LnkLI144))(caddr((V62)));          V84= (V79);
566          if(((V67))==Cnil){          V85= CMPcar((V84));
         goto T205;}  
         {object V68;  
         V68= Cnil;  
         {object V69;  
         object V70;  
         V69= (V65);  
         V70= car((V69));  
         goto T213;  
 T213:;  
         if(!(endp_prop((V69)))){  
         goto T214;}  
567          goto T209;          goto T209;
568    T209:;
569            if(!(((V84))==Cnil)){
570            goto T210;}
571            goto T205;
572            goto T210;
573    T210:;
574            if(!(((V82))==Cnil)){
575            goto T216;}
576            V83= make_cons(V85,(V83));
577            goto T214;
578            goto T216;
579    T216:;
580            {object V87;
581            V87= (*(LnkLI145))(CMPcar((V82)),(V85),CMPcar((V73)));
582            V83= make_cons((V87),(V83));}
583            {object V88;
584            V88= CMPcar((V82));
585            V82= CMPcdr((V82));}
586            {object V89;
587            V89= CMPcar((V73));
588            V73= CMPcdr((V73));}
589          goto T214;          goto T214;
590  T214:;  T214:;
591          if(!(endp_prop((V67)))){          V84= CMPcdr((V84));
592          goto T220;}          V85= CMPcar((V84));
593          V68= make_cons(V70,(V68));          goto T209;}
         goto T218;  
         goto T220;  
 T220:;  
         {object V72;  
         V72= (*(LnkLI145))(car((V67)),(V70),car((V61)));  
         V68= make_cons((V72),(V68));}  
         {object V73;  
         V73= car((V67));  
         V67= cdr((V67));}  
         {object V74;  
         V74= car((V61));  
         V61= cdr((V61));}  
         goto T218;  
 T218:;  
         V69= cdr((V69));  
         V70= car((V69));  
         goto T213;}  
         goto T209;  
 T209:;  
         V65= reverse((V68));}}  
594          goto T205;          goto T205;
595  T205:;  T205:;
596          base[4]= list(4,VV[23],(V64),cddr((V62)),(V65));          V79= reverse((V83));}}
597            goto T201;
598    T201:;
599            base[4]= list(4,VV[23],(V78),CMPcddr((V74)),(V79));
600          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
601          return;}          return;}
         goto T197;  
 T197:;  
         V75= (*(LnkLI146))((V62),(V60),(V61));  
         base[2]= (*(LnkLI123))(/* INLINE-ARGS */V75);  
         vs_top=(vs_base=base+2)+1;  
         return;  
602          goto T193;          goto T193;
603  T193:;  T193:;
604          {object V76;          V90= (*(LnkLI146))((V74),(V72),(V73));
605          V62= get((V60),VV[26],Cnil);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V90);
606          if(((V62))!=Cnil){          vs_top=(vs_base=base+2)+1;
607          goto T240;}          return;
608          V76= Cnil;          goto T189;
609          goto T239;  T189:;
610          goto T240;          {object V91;
611  T240:;          {object V92 =((V72))->s.s_plist;
612          if(((*(LnkLI147))((V60)))!=Cnil){           object ind= VV[26];
613          goto T243;}          while(V92!=Cnil){
614          V76= Cnil;          if(V92->c.c_car==ind){
615          goto T239;          V74= (V92->c.c_cdr->c.c_car);
616          goto T243;          goto T238;
617  T243:;          }else V92=V92->c.c_cdr->c.c_cdr;}
618          V76= (          V74= Cnil;}
619          (type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)):          goto T238;
620          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));  T238:;
621            if(((V74))!=Cnil){
622            goto T236;}
623            V91= Cnil;
624            goto T235;
625            goto T236;
626    T236:;
627            if(((*(LnkLI147))((V72)))!=Cnil){
628            goto T239;}
629            V91= Cnil;
630            goto T235;
631          goto T239;          goto T239;
632  T239:;  T239:;
633          if(((V76))==Cnil){          V91= (
634          goto T246;}          (type_of((V74)) == t_sfun ?(*(((V74))->sfn.sfn_self)):
635          base[2]= (V76);          (fcall.argd=2,type_of((V74))==t_vfun) ?
636            (*(((V74))->sfn.sfn_self)):
637            (fcall.fun=((V74)),fcalln))((V72),(V73)));
638            goto T235;
639    T235:;
640            if(((V91))==Cnil){
641            goto T242;}
642            base[2]= (V91);
643          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
644          return;          return;
645          goto T246;          goto T242;
646  T246:;  T242:;
647          V62= get((V60),VV[27],Cnil);          {object V93 =((V72))->s.s_plist;
648          if(((V62))==Cnil){           object ind= VV[27];
649          goto T249;}          while(V93!=Cnil){
650          if(((*(LnkLI147))((V60)))==Cnil){          if(V93->c.c_car==ind){
651          goto T249;}          V74= (V93->c.c_cdr->c.c_car);
652          base[2]= (V61);          goto T248;
653            }else V93=V93->c.c_cdr->c.c_cdr;}
654            V74= Cnil;}
655            goto T248;
656    T248:;
657            if(((V74))==Cnil){
658            goto T245;}
659            if(((*(LnkLI147))((V72)))==Cnil){
660            goto T245;}
661            base[2]= (V73);
662          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
663          super_funcall_no_event((V62));          super_funcall_no_event((V74));
664          return;          return;
665          goto T249;          goto T245;
666  T249:;  T245:;
667          V62= get((V60),VV[28],Cnil);          {object V94 =((V72))->s.s_plist;
668          if(((V62))==Cnil){           object ind= VV[28];
669          goto T256;}          while(V94!=Cnil){
670          if(((*(LnkLI147))((V60)))==Cnil){          if(V94->c.c_car==ind){
671          goto T256;}          V74= (V94->c.c_cdr->c.c_car);
672          base[2]= car((V62));          goto T255;
673          base[3]= (V61);          }else V94=V94->c.c_cdr->c.c_cdr;}
674            V74= Cnil;}
675            goto T255;
676    T255:;
677            if(((V74))==Cnil){
678            goto T252;}
679            if(((*(LnkLI147))((V72)))==Cnil){
680            goto T252;}
681            base[2]= CMPcar((V74));
682            base[3]= (V73);
683          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
684          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
685          vs_top=sup;          vs_top=sup;
686          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
687          goto T256;}          goto T252;}
688          base[2]= cdr((V62));          base[2]= CMPcdr((V74));
689          base[3]= (V61);          base[3]= (V73);
690          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
691          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
692          return;          return;
693          goto T256;          goto T252;
694  T256:;  T252:;
695          {object V77;          {object V95;
696          base[2]= (V60);          base[2]= (V72);
697          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
698          Lsymbol_package();          Lsymbol_package();
699          vs_top=sup;          vs_top=sup;
700          V78= vs_base[0];          V96= vs_base[0];
701          base[2]= VV[29];          base[2]= VV[29];
702          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
703          Lsymbol_package();          Lsymbol_package();
704          vs_top=sup;          vs_top=sup;
705          V79= vs_base[0];          V97= vs_base[0];
706          if((V78)==(V79)){          if((V96)==(V97)){
707          goto T269;}          goto T265;}
708          goto T268;          goto T264;
709          goto T269;          goto T265;
710  T269:;  T265:;
711          base[2]= (V60);          base[2]= (V72);
712          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
713          Lfboundp();          Lfboundp();
714          vs_top=sup;          vs_top=sup;
715          V80= vs_base[0];          V98= vs_base[0];
716          if((V80)==Cnil){          if((V98)==Cnil){
717            goto T271;}
718            goto T264;
719            goto T271;
720    T271:;
721            (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V72))));
722            goto T264;
723    T264:;
724            if((VV[31]->s.s_dbind)==Cnil){
725          goto T275;}          goto T275;}
726          goto T268;          base[2]= VV[32];
727            base[3]= (V72);
728            vs_top=(vs_base=base+2)+2;
729            (void) (*Lnk32)();
730            vs_top=sup;
731          goto T275;          goto T275;
732  T275:;  T275:;
733          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60))));          V95= Cnil;
734          goto T268;          if(((V95))==Cnil){
 T268:;  
         if(symbol_value(VV[31])==Cnil){  
735          goto T279;}          goto T279;}
736          (void)((*(LnkLI32))(VV[32],(V60)));          base[2]= (V95);
         goto T279;  
 T279:;  
         V77= Cnil;  
         if(((V77))==Cnil){  
         goto T281;}  
         base[2]= (V77);  
737          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
738          return;          return;
739          goto T281;          goto T279;
740  T281:;  T279:;
741          base[2]= (V60);          base[2]= (V72);
742          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
743          Lmacro_function();          Lmacro_function();
744          vs_top=sup;          vs_top=sup;
745          V62= vs_base[0];          V74= vs_base[0];
746          if(((V62))==Cnil){          if(((V74))==Cnil){
747          goto T284;}          goto T282;}
748          V81= (*(LnkLI146))((V62),(V60),(V61));          V99= (*(LnkLI146))((V74),(V72),(V73));
749          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V81);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V99);
750          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
751          return;          return;
752          goto T284;          goto T282;
753  T284:;  T282:;
754          V62= get((V60),VV[33],Cnil);          {object V100 =((V72))->s.s_plist;
755          if(((V62))==Cnil){           object ind= VV[33];
756          goto T289;}          while(V100!=Cnil){
757          V83= list(2,VV[35],(V62));          if(V100->c.c_car==ind){
758          base[2]= list(4,VV[34],/* INLINE-ARGS */V83,list(2,VV[35],make_cons((V60),(V61))),Cnil);          V74= (V100->c.c_cdr->c.c_car);
759            goto T289;
760            }else V100=V100->c.c_cdr->c.c_cdr;}
761            V74= Cnil;}
762            goto T289;
763    T289:;
764            if(((V74))==Cnil){
765            goto T287;}
766            V102= list(2,VV[35],(V74));
767            base[2]= list(4,VV[34],/* INLINE-ARGS */V102,list(2,VV[35],make_cons((V72),(V73))),Cnil);
768          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
769          (void) (*Lnk148)();          (void) (*Lnk148)();
770          vs_top=sup;          vs_top=sup;
771          V82= vs_base[0];          V101= vs_base[0];
772          base[2]= (*(LnkLI123))(V82);          base[2]= (*(LnkLI123))(V101);
773          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
774          return;          return;
775          goto T289;          goto T287;
776  T289:;  T287:;
777          V62= get((V60),VV[36],Cnil);          {object V103 =((V72))->s.s_plist;
778          if(((V62))==Cnil){           object ind= VV[36];
779          goto T295;}          while(V103!=Cnil){
780          if(((*(LnkLI147))((V60)))==Cnil){          if(V103->c.c_car==ind){
781          goto T295;}          V74= (V103->c.c_cdr->c.c_car);
782          if(!(type_of((V62))==t_cons)){          goto T296;
783          goto T295;}          }else V103=V103->c.c_cdr->c.c_cdr;}
784          if(!(type_of(cdr((V62)))==t_fixnum)){          V74= Cnil;}
785          goto T295;}          goto T296;
786          if(endp_prop((V61))){  T296:;
787          goto T295;}          if(((V74))==Cnil){
788          if(!(endp_prop(cdr((V61))))){          goto T293;}
789          goto T295;}          if(((*(LnkLI147))((V72)))==Cnil){
790          {object V84= car((V62));          goto T293;}
791          if((V84!= VV[46]))goto T308;          if(!(type_of((V74))==t_cons)){
792          V85= list(3,VV[37],car((V61)),cdr((V62)));          goto T293;}
793          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85);          if(!(type_of(CMPcdr((V74)))==t_fixnum)){
794            goto T293;}
795            if(((V73))==Cnil){
796            goto T293;}
797            if(!((CMPcdr((V73)))==Cnil)){
798            goto T293;}
799            {object V104= CMPcar((V74));
800            if((V104!= VV[46]))goto T306;
801            V105= list(3,VV[37],CMPcar((V73)),CMPcdr((V74)));
802            base[2]= (*(LnkLI123))(/* INLINE-ARGS */V105);
803          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
804          return;          return;
805          goto T308;          goto T306;
806  T308:;  T306:;
807          if((V84!= VV[113]))goto T309;          if((V104!= VV[113]))goto T307;
808          V86= list(3,VV[38],cdr((V62)),car((V61)));          V106= list(3,VV[38],CMPcdr((V74)),CMPcar((V73)));
809          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V86);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V106);
810          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
811          return;          return;
812          goto T309;          goto T307;
813  T309:;  T307:;
814          base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62)));          base[2]= (*(LnkLI149))(CMPcar((V73)),CMPcar((V74)),CMPcdr((V74)));
815          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
816          return;}          return;}
817          goto T295;          goto T293;
818  T295:;  T293:;
819          if(!(((V60))==(VV[5]))){          if(!(((V72))==(VV[5]))){
820          goto T311;}          goto T309;}
821          base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39]));          base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39]));
822          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
823          return;          return;
824          goto T311;          goto T309;
825  T311:;  T309:;
826          {object V87;          {object V107;
827          object V88;          object V108;
828          V89= get((V60),VV[40],Cnil);          {object V110 =((V72))->s.s_plist;
829          V87= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],((V89)==Cnil?Ct:Cnil)));           object ind= VV[40];
830          V88= (*(LnkLI142))((V61),(V87));          while(V110!=Cnil){
831          {object V90;          if(V110->c.c_car==ind){
832          V90= (*(LnkLI150))((V60));          V109= (V110->c.c_cdr->c.c_car);
833          if(((V90))==Cnil){          goto T312;
834          goto T316;}          }else V110=V110->c.c_cdr->c.c_cdr;}
835          if(!(equal((V90),VV[41]))){          V109= Cnil;}
836          goto T321;}          goto T312;
837          V90= Cnil;  T312:;
838          goto T316;          V107= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],((V109)==Cnil?Ct:Cnil)));
839          goto T321;          V108= (*(LnkLI142))((V73),(V107));
840  T321:;          {object V111;
841          (void)(structure_set((V87),VV[25],2,(V90)));}          V111= (*(LnkLI150))((V72));
842          goto T316;          if(((V111))==Cnil){
843  T316:;          goto T314;}
844          {register object V91;          if(!(equal((V111),VV[41]))){
845          V91= (*(LnkLI151))((V60));          goto T319;}
846          if(((V91))==Cnil){          V111= Cnil;
847          goto T324;}          goto T314;
848          {register object V92;          goto T319;
849          register object V93;  T319:;
850          object V94;          V112= Ct;
851          V92= (V88);          STSET(object,(V107),8, (V111));
852          V93= Cnil;          (void)((V111));}
853          V94= (V61);          goto T314;
854          goto T329;  T314:;
855  T329:;          {register object V113;
856          if(!(endp_prop((V92)))){          V113= (*(LnkLI151))((V72));
857          goto T330;}          if(((V113))==Cnil){
858          V88= reverse((V93));          goto T322;}
859          goto T324;          {register object V114;
860          goto T330;          register object V115;
861  T330:;          object V116;
862          if(!(endp_prop((V91)))){          V114= (V108);
863          goto T337;}          V115= Cnil;
864          {object V95;          V116= (V73);
865          V95= car((V92));          goto T327;
866          V93= make_cons((V95),(V93));  T327:;
867            if(!(((V114))==Cnil)){
868            goto T328;}
869            V108= reverse((V115));
870            goto T322;
871            goto T328;
872    T328:;
873            if(!(((V113))==Cnil)){
874          goto T335;}          goto T335;}
875          goto T337;          {object V117;
876  T337:;          V117= CMPcar((V114));
877          {object V96;          V115= make_cons((V117),(V115));
878          V96= (*(LnkLI145))(car((V91)),car((V92)),car((V94)));          goto T333;}
         V93= make_cons((V96),(V93));}  
         {object V97;  
         V97= car((V91));  
         V91= cdr((V91));}  
879          goto T335;          goto T335;
880  T335:;  T335:;
881          V92= cdr((V92));          {object V118;
882          V94= cdr((V94));          V118= (*(LnkLI145))(CMPcar((V113)),CMPcar((V114)),CMPcar((V116)));
883          goto T329;}}          V115= make_cons((V118),(V115));}
884          goto T324;          {object V119;
885  T324:;          V119= CMPcar((V113));
886          {register object V98;          V113= CMPcdr((V113));}
887          V98= get((V60),VV[42],Cnil);          goto T333;
888          if(((V98))==Cnil){  T333:;
889          goto T351;}          V114= CMPcdr((V114));
890          {object V99;          V116= CMPcdr((V116));
891          object V100;          goto T327;}}
892          V99= (V88);          goto T322;
893          V100= (V61);  T322:;
894            {register object V120;
895            {object V121 =((V72))->s.s_plist;
896             object ind= VV[42];
897            while(V121!=Cnil){
898            if(V121->c.c_car==ind){
899            V120= (V121->c.c_cdr->c.c_car);
900            goto T350;
901            }else V121=V121->c.c_cdr->c.c_cdr;}
902            V120= Cnil;}
903            goto T350;
904    T350:;
905            if(((V120))==Cnil){
906            goto T349;}
907            {object V122;
908            object V123;
909            V122= (V108);
910            V123= (V73);
911            goto T354;
912    T354:;
913            if(((V120))==Cnil){
914            goto T356;}
915            if(!(((V122))==Cnil)){
916            goto T355;}
917          goto T356;          goto T356;
918  T356:;  T356:;
919          if(endp_prop((V98))){          goto T349;
920          goto T358;}          goto T355;
921          if(!(endp_prop((V99)))){  T355:;
922          goto T357;}          (void)((*(LnkLI152))(CMPcar((V120)),CMPcar((V122)),CMPcar((V123))));
923          goto T358;          {object V124;
924  T358:;          V124= CMPcar((V120));
925          goto T351;          V120= CMPcdr((V120));}
926          goto T357;          V122= CMPcdr((V122));
927  T357:;          V123= CMPcdr((V123));
928          (void)((*(LnkLI152))(car((V98)),car((V99)),car((V100))));          goto T354;}}
929          {object V101;          goto T349;
930          V101= car((V98));  T349:;
931          V98= cdr((V98));}          {object V125= (V72);
932          V99= cdr((V99));          if((V125!= VV[153]))goto T371;
933          V100= cdr((V100));          {object V126;
934          goto T356;}}          V126= STREF(object,CMPcadar((V108)),8);
935          goto T351;          if(!(((V126))==(VV[43]))){
936  T351:;          goto T374;}
937          {object V102= (V60);          V126= VV[44];
         if((V102!= VV[153]))goto T373;  
         {object V103;  
         V103= structure_ref(cadar((V88)),VV[25],2);  
         if(!(((V103))==(VV[43]))){  
         goto T376;}  
         V103= VV[44];  
938          if((VV[44])!=Cnil){          if((VV[44])!=Cnil){
939          goto T375;}          goto T373;}
940          goto T376;          goto T374;
941  T376:;  T374:;
942          if(!(type_of((V103))==t_cons)){          if(!(type_of((V126))==t_cons)){
943          goto T372;}          goto T370;}
944          if((car((V103)))==(VV[45])){          if((CMPcar((V126)))==(VV[45])){
945          goto T383;}          goto T381;}
946          if(!((car((V103)))==(VV[46]))){          if(!((CMPcar((V126)))==(VV[46]))){
947          goto T372;}          goto T370;}
948          goto T383;          goto T381;
949  T383:;  T381:;
950          V103= cadr((V103));          V126= CMPcadr((V126));
951          if(((V103))==Cnil){          if(((V126))==Cnil){
952          goto T372;}          goto T370;}
         goto T375;  
 T375:;  
         V104= structure_ref((V87),VV[25],2);  
         V103= (*(LnkLI154))(/* INLINE-ARGS */V104,(V103));  
         if(((V103))!=Cnil){  
         goto T391;}  
         V105= make_cons((V60),(V61));  
         (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V105)));  
         goto T391;  
 T391:;  
         (void)(structure_set((V87),VV[25],2,(V103)));  
         goto T372;}  
953          goto T373;          goto T373;
954  T373:;  T373:;
955          if((V102!= VV[155]))goto T394;          V126= (*(LnkLI154))(STREF(object,(V107),8),(V126));
956          {object V106;          if(((V126))!=Cnil){
957          V106= structure_ref(cadar((V88)),VV[25],2);          goto T389;}
958          if(!(((V106))==(VV[43]))){          V127= make_cons((V72),(V73));
959          goto T397;}          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V127)));
960          V106= VV[44];          goto T389;
961    T389:;
962            V128= Ct;
963            STSET(object,(V107),8, (V126));
964            (void)((V126));
965            goto T370;}
966            goto T371;
967    T371:;
968            if((V125!= VV[155]))goto T392;
969            {object V129;
970            V129= STREF(object,CMPcadar((V108)),8);
971            if(!(((V129))==(VV[43]))){
972            goto T395;}
973            V129= VV[44];
974          if((VV[44])!=Cnil){          if((VV[44])!=Cnil){
975          goto T396;}          goto T394;}
976          goto T397;          goto T395;
977  T397:;  T395:;
978          if(!(type_of((V106))==t_cons)){          if(!(type_of((V129))==t_cons)){
979          goto T372;}          goto T370;}
980          if((car((V106)))==(VV[45])){          if((CMPcar((V129)))==(VV[45])){
981          goto T404;}          goto T402;}
982          if(!((car((V106)))==(VV[46]))){          if(!((CMPcar((V129)))==(VV[46]))){
983          goto T372;}          goto T370;}
984          goto T404;          goto T402;
985  T404:;  T402:;
986          V106= cadr((V106));          V129= CMPcadr((V129));
987          if(((V106))==Cnil){          if(((V129))==Cnil){
988          goto T372;}          goto T370;}
989          goto T396;          goto T394;
990  T396:;  T394:;
991          V107= structure_ref((V87),VV[25],2);          base[4]= (V108);
         base[4]= (V88);  
992          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
993          Llast();          Llast();
994          vs_top=sup;          vs_top=sup;
995          V108= vs_base[0];          V130= vs_base[0];
996          V109= structure_ref(cadar(V108),VV[25],2);          V131= (*(LnkLI154))(STREF(object,CMPcadar(V130),8),(V129));
997          V110= (*(LnkLI154))(/* INLINE-ARGS */V109,(V106));          V129= (*(LnkLI154))(STREF(object,(V107),8),/* INLINE-ARGS */V131);
998          V106= (*(LnkLI154))(/* INLINE-ARGS */V107,/* INLINE-ARGS */V110);          if(((V129))!=Cnil){
999          if(((V106))!=Cnil){          goto T412;}
1000          goto T414;}          V132= make_cons((V72),(V73));
1001          V111= make_cons((V60),(V61));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V132)));
1002          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V111)));          goto T412;
1003          goto T414;  T412:;
1004  T414:;          V133= Ct;
1005          (void)(structure_set((V87),VV[25],2,(V106)));          STSET(object,(V107),8, (V129));
1006          base[4]= (V88);          (void)((V129));
1007            base[4]= (V108);
1008          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1009          Llast();          Llast();
1010          vs_top=sup;          vs_top=sup;
1011          V112= vs_base[0];          V134= vs_base[0];
1012          (void)(structure_set(cadar(V112),VV[25],2,(V106)));          V135= CMPcadar(V134);
1013          goto T372;}          V136= Ct;
1014          goto T394;          STSET(object,/* INLINE-ARGS */V135,8, (V129));
1015  T394:;}          (void)((V129));
1016          goto T372;          goto T370;}
1017  T372:;          goto T392;
1018          {object V113;  T392:;}
1019          base[4]= (V60);          goto T370;
1020          {object V114;  T370:;
1021          object V115= (V88);          {object V137;
1022          if(endp(V115)){          {object V139;
1023          base[5]= Cnil;          object V140= (V108);
1024          goto T423;}          if(V140==Cnil){
1025          base[6]=V114=MMcons(Cnil,Cnil);          V138= Cnil;
1026          goto T424;          goto T420;}
1027  T424:;          base[4]=V139=MMcons(Cnil,Cnil);
1028          (V114->c.c_car)= structure_ref(cadr((V115->c.c_car)),VV[25],2);          goto T421;
1029          V115=MMcdr(V115);  T421:;
1030          if(endp(V115)){          (V139->c.c_car)= STREF(object,CMPcadr((V140->c.c_car)),8);
1031          base[5]= base[6];          if((V140=MMcdr(V140))==Cnil){
1032          goto T423;}          V138= base[4];
         V114=MMcdr(V114)=MMcons(Cnil,Cnil);  
         goto T424;}  
         goto T423;  
 T423:;  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk156)();  
         vs_top=sup;  
         V113= vs_base[0];  
         if(((V113))==Cnil){  
1033          goto T420;}          goto T420;}
1034          V117= structure_ref((V87),VV[25],2);          V139=MMcdr(V139)=MMcons(Cnil,Cnil);
1035          V113= (*(LnkLI154))((V113),/* INLINE-ARGS */V117);          goto T421;}
         (void)(structure_set((V87),VV[25],2,(V113)));}  
1036          goto T420;          goto T420;
1037  T420:;  T420:;
1038          base[4]= list(4,VV[49],(V87),(V60),(V88));          V137= (*(LnkLI156))((V72),V138);
1039            if(((V137))==Cnil){
1040            goto T418;}
1041            V137= (*(LnkLI154))((V137),STREF(object,(V107),8));
1042            V142= Ct;
1043            STSET(object,(V107),8, (V137));
1044            (void)((V137));}
1045            goto T418;
1046    T418:;
1047            base[4]= list(4,VV[49],(V107),(V72),(V108));
1048          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1049          return;}}}}}          return;}}}}}
1050          }          }
1051  }  }
1052  /*      local entry for function REPLACE-CONSTANT       */  /*      local entry for function REPLACE-CONSTANT       */
1053    
1054  static object LI13(V119)  static object LI13(V144)
1055    
1056  object V119;  object V144;
1057  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1058          goto TTL;          goto TTL;
1059  TTL:;  TTL:;
1060          {register object V120;          {register object V145;
1061          register object V121;          register object V146;
1062          V120= Cnil;          V145= Cnil;
1063          V121= Cnil;          V146= Cnil;
1064          {register object V122;          {register object V147;
1065          V122= (V119);          V147= (V144);
1066          goto T433;          goto T430;
1067  T433:;  T430:;
1068          if(((V122))!=Cnil){          if(((V147))!=Cnil){
1069          goto T434;}          goto T431;}
1070          {object V123 = (V120);          {object V148 = (V145);
1071          VMR13(V123)}          VMR13(V148)}
1072          goto T434;          goto T431;
1073  T434:;  T431:;
1074          base[0]= car((V122));          base[0]= CMPcar((V147));
1075          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1076          Lconstantp();          Lconstantp();
1077          vs_top=sup;          vs_top=sup;
1078          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1079          goto T438;}          goto T435;}
1080          base[0]= car((V122));          base[0]= CMPcar((V147));
1081          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1082          Leval();          Leval();
1083          vs_top=sup;          vs_top=sup;
1084          V121= vs_base[0];          V146= vs_base[0];
1085          if(type_of((V121))==t_fixnum||          if(type_of((V146))==t_fixnum||
1086  type_of((V121))==t_bignum||  type_of((V146))==t_bignum||
1087  type_of((V121))==t_ratio||  type_of((V146))==t_ratio||
1088  type_of((V121))==t_shortfloat||  type_of((V146))==t_shortfloat||
1089  type_of((V121))==t_longfloat||  type_of((V146))==t_longfloat||
1090  type_of((V121))==t_complex){  type_of((V146))==t_complex){
1091          goto T439;}          goto T436;}
1092          if(!(type_of((V121))==t_character)){          if(!(type_of((V146))==t_character)){
1093          goto T438;}          goto T435;}
1094          goto T439;          goto T436;
1095  T439:;  T436:;
1096          V120= Ct;          V145= Ct;
1097          {register object V124;          {register object V149;
1098          register object V125;          register object V150;
1099          V124= (V122);          V149= (V147);
1100          V125= (V121);          V150= (V146);
1101          if(type_of((V124))!=t_cons)FEwrong_type_argument(Scons,(V124));          ((V149))->c.c_car = (V150);}
1102          ((V124))->c.c_car = (V125);}          goto T435;
1103          goto T438;  T435:;
1104  T438:;          V147= CMPcdr((V147));
1105          V122= cdr((V122));          goto T430;}}
         goto T433;}}  
1106          base[0]=base[0];          base[0]=base[0];
1107          return Cnil;          return Cnil;
1108  }  }
1109  /*      local entry for function C1LAMBDA-FUN   */  /*      local entry for function C1LAMBDA-FUN   */
1110    
1111  static object LI14(V128,V129)  static object LI14(V153,V154)
1112    
1113  register object V128;object V129;  register object V153;object V154;
1114  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1115          goto TTL;          goto TTL;
1116  TTL:;  TTL:;
1117          {object V130;          {object V155;
1118          V130= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));          V155= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));
1119          V129= (*(LnkLI142))((V129),(V130));          V154= (*(LnkLI142))((V154),(V155));
1120          V128= (VFUN_NARGS=1,(*(LnkLI157))((V128)));          V153= (VFUN_NARGS=1,(*(LnkLI157))((V153)));
1121          (void)((*(LnkLI124))((V130),cadr((V128))));          (void)((*(LnkLI124))((V155),CMPcadr((V153))));
1122          {object V131 = list(4,VV[50],(V130),(V128),(V129));          {object V156 = list(4,VV[50],(V155),(V153),(V154));
1123          VMR14(V131)}}          VMR14(V156)}}
1124          base[0]=base[0];          base[0]=base[0];
1125          return Cnil;          return Cnil;
1126  }  }
# Line 1052  TTL:; Line 1129  TTL:;
1129  static void L15()  static void L15()
1130  {register object *base=vs_base;  {register object *base=vs_base;
1131          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
1132          vs_reserve(VM15);          vs_check;
1133          bds_check;          bds_check;
1134          {register object V132;          {register object V157;
1135          check_arg(1);          V157=(base[0]);
         V132=(base[0]);  
1136          vs_top=sup;          vs_top=sup;
1137          goto TTL;          goto TTL;
1138  TTL:;  TTL:;
1139          if(!((car((V132)))==(VV[49]))){          if(!((CMPcar((V157)))==(VV[49]))){
1140          goto T463;}          goto T460;}
1141          V133= caddr((V132));          base[1]= (*(LnkLI158))(CMPcaddr((V157)),CMPcadddr((V157)),Cnil,STREF(object,CMPcadr((V157)),8));
         V134= cadddr((V132));  
         V135= structure_ref(cadr((V132)),VV[25],2);  
         base[1]= (*(LnkLI158))(/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,Cnil,/* INLINE-ARGS */V135);  
1142          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1143          return;          return;
1144          goto T463;          goto T460;
1145  T463:;  T460:;
1146          if((car((V132)))==(VV[51])){          if((CMPcar((V157)))==(VV[51])){
1147          goto T465;}          goto T462;}
1148          if(!((car((V132)))==(VV[52]))){          if(!((CMPcar((V157)))==(VV[52]))){
1149          goto T466;}          goto T463;}
1150          goto T465;          goto T462;
1151  T465:;  T462:;
1152          base[1]= (*(LnkLI159))(cadr((V132)));          base[1]= (*(LnkLI159))(CMPcadr((V157)));
1153          bds_bind(VV[53],base[1]);          bds_bind(VV[53],base[1]);
1154          base[2]= get(car((V132)),VV[54],Cnil);          {object V158 =(CMPcar((V157)))->s.s_plist;
1155          {object V136;           object ind= VV[54];
1156          V136= cddr((V132));          while(V158!=Cnil){
1157            if(V158->c.c_car==ind){
1158            base[2]= (V158->c.c_cdr->c.c_car);
1159            goto T468;
1160            }else V158=V158->c.c_cdr->c.c_cdr;}
1161            base[2]= Cnil;}
1162            goto T468;
1163    T468:;
1164            {object V159;
1165            V159= CMPcddr((V157));
1166           vs_top=base+3;           vs_top=base+3;
1167           while(!endp(V136))           while(V159!=Cnil)
1168           {vs_push(car(V136));V136=cdr(V136);}           {vs_push((V159)->c.c_car);V159=(V159)->c.c_cdr;}
1169          vs_base=base+3;}          vs_base=base+3;}
1170          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
1171          bds_unwind1;          bds_unwind1;
1172          return;          return;
1173          goto T466;          goto T463;
1174  T466:;  T463:;
1175          {register object V137;          {register object V160;
1176          V137= get(car((V132)),VV[54],Cnil);          {object V161 =(CMPcar((V157)))->s.s_plist;
1177          if(((V137))==Cnil){           object ind= VV[54];
1178          goto T475;}          while(V161!=Cnil){
1179          base[1]= (V137);          if(V161->c.c_car==ind){
1180          {object V138;          V160= (V161->c.c_cdr->c.c_car);
1181          V138= cddr((V132));          goto T470;
1182            }else V161=V161->c.c_cdr->c.c_cdr;}
1183            V160= Cnil;}
1184            goto T470;
1185    T470:;
1186            if(((V160))==Cnil){
1187            goto T472;}
1188            base[1]= (V160);
1189            {object V162;
1190            V162= CMPcddr((V157));
1191           vs_top=base+2;           vs_top=base+2;
1192           while(!endp(V138))           while(V162!=Cnil)
1193           {vs_push(car(V138));V138=cdr(V138);}           {vs_push((V162)->c.c_car);V162=(V162)->c.c_cdr;}
1194          vs_base=base+2;}          vs_base=base+2;}
1195          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
1196          return;          return;
1197          goto T475;          goto T472;
1198  T475:;  T472:;
1199          V137= get(car((V132)),VV[55],Cnil);          {object V163 =(CMPcar((V157)))->s.s_plist;
1200          if(((V137))==Cnil){           object ind= VV[55];
1201          goto T480;}          while(V163!=Cnil){
1202          base[1]= (V132);          if(V163->c.c_car==ind){
1203            V160= (V163->c.c_cdr->c.c_car);
1204            goto T479;
1205            }else V163=V163->c.c_cdr->c.c_cdr;}
1206            V160= Cnil;}
1207            goto T479;
1208    T479:;
1209            if(((V160))==Cnil){
1210            goto T477;}
1211            base[1]= (V157);
1212          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1213          super_funcall_no_event((V137));          super_funcall_no_event((V160));
1214          return;          return;
1215          goto T480;          goto T477;
1216  T480:;  T477:;
1217          base[1]= (*(LnkLI160))();          base[1]= (*(LnkLI160))();
1218          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1219          return;}          return;}
# Line 1121  T480:; Line 1221  T480:;
1221  }  }
1222  /*      local entry for function C2FUNCALL-SFUN */  /*      local entry for function C2FUNCALL-SFUN */
1223    
1224  static object LI16(V142,V143,V144)  static object LI16(V167,V168,V169)
1225    
1226  object V142;object V143;object V144;  object V167;object V168;object V169;
1227  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1228          bds_check;          bds_check;
1229          goto TTL;          goto TTL;
1230  TTL:;  TTL:;
1231          {object V145;          {object V170;
1232          object V146;          object V171;
1233          V145= Cnil;          V170= Cnil;
1234          V146= make_cons((V142),(V143));          V171= make_cons((V167),(V168));
1235          bds_bind(VV[56],small_fixnum(0));          bds_bind(VV[56],small_fixnum(0));
1236          base[2]= make_fixnum((long)length((V146)));          base[2]= CMPmake_fixnum((long)length((V171)));
1237          base[3]= VV[57];          base[3]= VV[57];
1238          base[4]= Ct;          base[4]= Ct;
1239          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1240          Lmake_list();          Lmake_list();
1241          vs_top=sup;          vs_top=sup;
1242          V147= vs_base[0];          V172= vs_base[0];
1243          V148= list(4,V147,Ct,small_fixnum(3),VV[58]);          V173= list(4,V172,Ct,small_fixnum(3),VV[58]);
1244          V145= (*(LnkLI161))(/* INLINE-ARGS */V148,(V146));          V170= (*(LnkLI161))(/* INLINE-ARGS */V173,(V171));
1245          (void)((VFUN_NARGS=1,(*(LnkLI162))((V145))));          (void)((VFUN_NARGS=1,(*(LnkLI162))((V170))));
1246          {object V149 = (*(LnkLI163))();          {object V174 = (*(LnkLI163))();
1247          bds_unwind1;          bds_unwind1;
1248          VMR16(V149)}}          VMR16(V174)}}
1249          base[0]=base[0];          base[0]=base[0];
1250          return Cnil;          return Cnil;
1251  }  }
1252  /*      local entry for function C2EXPR*        */  /*      local entry for function C2EXPR*        */
1253    
1254  static object LI17(V151)  static object LI17(V176)
1255    
1256  object V151;  object V176;
1257  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1258          bds_check;          bds_check;
1259          goto TTL;          goto TTL;
1260  TTL:;  TTL:;
1261          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          (VV[60]->s.s_dbind)= number_plus((VV[60]->s.s_dbind),small_fixnum(1));
1262          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));          bds_bind(VV[59],make_cons((VV[60]->s.s_dbind),Cnil));
1263          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),(VV[61]->s.s_dbind)));
1264          base[2]= (V151);          base[2]= (V176);
1265          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1266          (void) (*Lnk164)();          (void) (*Lnk164)();
1267          vs_top=sup;          vs_top=sup;
1268          if((cdr((VV[59]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[59]->s.s_dbind)))==Cnil){
1269          goto T500;}          goto T497;}
1270          princ_str("\n   goto T",VV[62]);          princ_str("\n   goto T",VV[62]);
1271          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind))));
1272          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1273          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
1274          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind))));
1275          princ_str(":;",VV[62]);          princ_str(":;",VV[62]);
1276          {object V152 = Cnil;          {object V177 = Cnil;
1277          bds_unwind1;          bds_unwind1;
1278          bds_unwind1;          bds_unwind1;
1279          VMR17(V152)}          VMR17(V177)}
1280          goto T500;          goto T497;
1281  T500:;  T497:;
1282          {object V153 = Cnil;          {object V178 = Cnil;
1283          bds_unwind1;          bds_unwind1;
1284          bds_unwind1;          bds_unwind1;
1285          VMR17(V153)}          VMR17(V178)}
1286          base[0]=base[0];          base[0]=base[0];
1287          return Cnil;          return Cnil;
1288  }  }
1289  /*      local entry for function C2EXPR-TOP     */  /*      local entry for function C2EXPR-TOP     */
1290    
1291  static object LI18(V156,V157)  static object LI18(V181,V182)
1292    
1293  object V156;object V157;  object V181;object V182;
1294  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1295          bds_check;          bds_check;
1296          goto TTL;          goto TTL;
1297  TTL:;  TTL:;
1298          bds_bind(VV[63],small_fixnum(0));          bds_bind(VV[63],small_fixnum(0));
1299          bds_bind(VV[64],small_fixnum(0));          bds_bind(VV[64],small_fixnum(0));
1300          bds_bind(VV[65],one_plus(symbol_value(VV[65])));          bds_bind(VV[65],one_plus((VV[65]->s.s_dbind)));
1301          setq(VV[66],number_plus(symbol_value(VV[66]),small_fixnum(1)));          (VV[66]->s.s_dbind)= number_plus((VV[66]->s.s_dbind),small_fixnum(1));
1302          bds_bind(VV[67],symbol_value(VV[66]));          bds_bind(VV[67],(VV[66]->s.s_dbind));
1303          princ_str("\n   {register object *base",VV[62]);          princ_str("\n   {register object *base",VV[62]);
1304          V158= one_minus((VV[65]->s.s_dbind));          V183= one_minus((VV[65]->s.s_dbind));
1305          (void)((*(LnkLI165))(/* INLINE-ARGS */V158));          (void)((*(LnkLI165))(/* INLINE-ARGS */V183));
1306          princ_str("=base;",VV[62]);          princ_str("=base;",VV[62]);
1307          setq(VV[68],Ct);          (VV[68]->s.s_dbind)= Ct;
1308          princ_str("\n   {register object *base=V",VV[62]);          princ_str("\n   {register object *base=V",VV[62]);
1309          (void)((*(LnkLI165))((V157)));          (void)((*(LnkLI165))((V182)));
1310          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1311          princ_str("\n   register object *sup=vs_base+VM",VV[62]);          princ_str("\n   register object *sup=vs_base+VM",VV[62]);
1312          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));
1313          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1314          princ_str("\n   base",VV[62]);          princ_str("\n   base",VV[62]);
1315          V159= one_minus((VV[65]->s.s_dbind));          V184= one_minus((VV[65]->s.s_dbind));
1316          (void)((*(LnkLI165))(/* INLINE-ARGS */V159));          (void)((*(LnkLI165))(/* INLINE-ARGS */V184));
1317          princ_str("[0]=base",VV[62]);          princ_str("[0]=base",VV[62]);
1318          V160= one_minus((VV[65]->s.s_dbind));          V185= one_minus((VV[65]->s.s_dbind));
1319          (void)((*(LnkLI165))(/* INLINE-ARGS */V160));          (void)((*(LnkLI165))(/* INLINE-ARGS */V185));
1320          princ_str("[0];",VV[62]);          princ_str("[0];",VV[62]);
1321          princ_str("\n   base[0]=base[0];",VV[62]);          princ_str("\n   base[0]=base[0];",VV[62]);
1322          if((symbol_value(VV[69]))==Cnil){          if(((VV[69]->s.s_dbind))==Cnil){
1323          goto T536;}          goto T533;}
1324          princ_str("\n   vs_reserve(VM",VV[62]);          princ_str("\n   vs_reserve(VM",VV[62]);
1325          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));
1326          princ_str(");",VV[62]);          princ_str(");",VV[62]);
1327          goto T534;          goto T531;
1328          goto T536;          goto T533;
1329  T536:;  T533:;
1330          princ_str("\n   vs_check;",VV[62]);          princ_str("\n   vs_check;",VV[62]);
1331          goto T534;          goto T531;
1332  T534:;  T531:;
1333          princ_str("\n   ",VV[62]);          princ_str("\n   ",VV[62]);
1334          (void)((*(LnkLI166))());          (void)((*(LnkLI166))());
1335          base[4]= (V156);          base[4]= (V181);
1336          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1337          (void) (*Lnk164)();          (void) (*Lnk164)();
1338          vs_top=sup;          vs_top=sup;
1339          {object V161;          {object V186;
1340          V161= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind));          V186= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind));
1341          setq(VV[70],make_cons((V161),symbol_value(VV[70])));}          (VV[70]->s.s_dbind)= make_cons((V186),(VV[70]->s.s_dbind));}
1342          princ_str("\n   }}",VV[62]);          princ_str("\n   }}",VV[62]);
1343          {object V162 = Cnil;          {object V187 = Cnil;
1344          bds_unwind1;          bds_unwind1;
1345          bds_unwind1;          bds_unwind1;
1346          bds_unwind1;          bds_unwind1;
1347          bds_unwind1;          bds_unwind1;
1348          VMR18(V162)}          VMR18(V187)}
1349          base[0]=base[0];          base[0]=base[0];
1350          return Cnil;          return Cnil;
1351  }  }
1352  /*      local entry for function C2EXPR-TOP*    */  /*      local entry for function C2EXPR-TOP*    */
1353    
1354  static object LI19(V165,V166)  static object LI19(V190,V191)
1355    
1356  object V165;object V166;  object V190;object V191;
1357  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1358          bds_check;          bds_check;
1359          goto TTL;          goto TTL;
1360  TTL:;  TTL:;
1361          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          (VV[60]->s.s_dbind)= number_plus((VV[60]->s.s_dbind),small_fixnum(1));
1362          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));          bds_bind(VV[59],make_cons((VV[60]->s.s_dbind),Cnil));
1363          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),(VV[61]->s.s_dbind)));
1364          (void)((*(LnkLI167))((V165),(V166)));          (void)((*(LnkLI167))((V190),(V191)));
1365          if((cdr((VV[59]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[59]->s.s_dbind)))==Cnil){
1366          goto T555;}          goto T552;}
1367          princ_str("\n   goto T",VV[62]);          princ_str("\n   goto T",VV[62]);
1368          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind))));
1369          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1370          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
1371          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind))));
1372          princ_str(":;",VV[62]);          princ_str(":;",VV[62]);
1373          {object V167 = Cnil;          {object V192 = Cnil;
1374          bds_unwind1;          bds_unwind1;
1375          bds_unwind1;          bds_unwind1;
1376          VMR19(V167)}          VMR19(V192)}
1377          goto T555;          goto T552;
1378  T555:;  T552:;
1379          {object V168 = Cnil;          {object V193 = Cnil;
1380          bds_unwind1;          bds_unwind1;
1381          bds_unwind1;          bds_unwind1;
1382          VMR19(V168)}          VMR19(V193)}
1383          base[0]=base[0];          base[0]=base[0];
1384          return Cnil;          return Cnil;
1385  }  }
1386  /*      local entry for function C1PROGN        */  /*      local entry for function C1PROGN        */
1387    
1388  static object LI20(V170)  static object LI20(V195)
1389    
1390  register object V170;  register object V195;
1391  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1392          goto TTL;          goto TTL;
1393  TTL:;  TTL:;
1394          {register object V171;          {register object V196;
1395          V171= Cnil;          V196= Cnil;
1396          if(!(endp_prop((V170)))){          if(!(((V195))==Cnil)){
1397            goto T563;}
1398            {object V197 = (*(LnkLI125))();
1399            VMR20(V197)}
1400            goto T563;
1401    T563:;
1402            if(!((CMPcdr((V195)))==Cnil)){
1403          goto T566;}          goto T566;}
1404          {object V172 = (*(LnkLI125))();          {object V198 = (*(LnkLI123))(CMPcar((V195)));
1405          VMR20(V172)}          VMR20(V198)}
1406          goto T566;          goto T566;
1407  T566:;  T566:;
1408          if(!(endp_prop(cdr((V170))))){          {register object V199;
1409          goto T569;}          V199= (VFUN_NARGS=0,(*(LnkLI127))());
1410          {object V173 = (*(LnkLI123))(car((V170)));          {register object V200;
1411          VMR20(V173)}          register object V201;
1412            V200= (V195);
1413            V201= CMPcar((V200));
1414            goto T573;
1415    T573:;
1416            if(!(((V200))==Cnil)){
1417            goto T574;}
1418            goto T569;
1419            goto T574;
1420    T574:;
1421            V201= (*(LnkLI123))((V201));
1422            {register object V202;
1423            V202= (V201);
1424            V196= make_cons((V202),(V196));}
1425            (void)((*(LnkLI124))((V199),CMPcadr((V201))));
1426            V200= CMPcdr((V200));
1427            V201= CMPcar((V200));
1428            goto T573;}
1429          goto T569;          goto T569;
1430  T569:;  T569:;
1431          {register object V174;          V203= Ct;
1432          V174= (VFUN_NARGS=0,(*(LnkLI127))());          STSET(object,(V199),8, STREF(object,CMPcadar((V196)),8));
1433          {register object V175;          (void)(STREF(object,CMPcadar((V196)),8));
1434          register object V176;          {object V204 = list(3,VV[71],(V199),reverse((V196)));
1435          V175= (V170);          VMR20(V204)}}}
         V176= car((V175));  
         goto T576;  
 T576:;  
         if(!(endp_prop((V175)))){  
         goto T577;}  
         goto T572;  
         goto T577;  
 T577:;  
         V176= (*(LnkLI123))((V176));  
         {register object V177;  
         V177= (V176);  
         V171= make_cons((V177),(V171));}  
         (void)((*(LnkLI124))((V174),cadr((V176))));  
         V175= cdr((V175));  
         V176= car((V175));  
         goto T576;}  
         goto T572;  
 T572:;  
         V178= structure_ref(cadar((V171)),VV[25],2);  
         (void)(structure_set((V174),VV[25],2,/* INLINE-ARGS */V178));  
         {object V179 = list(3,VV[71],(V174),reverse((V171)));  
         VMR20(V179)}}}  
1436          base[0]=base[0];          base[0]=base[0];
1437          return Cnil;          return Cnil;
1438  }  }
1439  /*      local entry for function C1PROGN*       */  /*      local entry for function C1PROGN*       */
1440    
1441  static object LI21(V182,V183)  static object LI21(V207,V208)
1442    
1443  register object V182;object V183;  register object V207;object V208;
1444  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1445          goto TTL;          goto TTL;
1446  TTL:;  TTL:;
1447          V182= (*(LnkLI168))((V182));          V207= (*(LnkLI168))((V207));
1448          (void)((*(LnkLI124))((V183),cadr((V182))));          (void)((*(LnkLI124))((V208),CMPcadr((V207))));
1449          {object V184 = (V182);          {object V209 = (V207);
1450          VMR21(V184)}          VMR21(V209)}
1451          return Cnil;          return Cnil;
1452  }  }
1453  /*      function definition for C2PROGN */  /*      function definition for C2PROGN */
# Line 1354  TTL:; Line 1455  TTL:;
1455  static void L22()  static void L22()
1456  {register object *base=vs_base;  {register object *base=vs_base;
1457          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1458          vs_reserve(VM22);          vs_check;
1459          bds_check;          bds_check;
1460          {object V185;          {object V210;
1461          check_arg(1);          V210=(base[0]);
         V185=(base[0]);  
1462          vs_top=sup;          vs_top=sup;
1463          goto TTL;          goto TTL;
1464  TTL:;  TTL:;
1465          {register object V186;          {register object V211;
1466          V186= (V185);          V211= (V210);
1467          goto T597;          goto T594;
1468  T597:;  T594:;
1469          if(!(endp_prop(cdr((V186))))){          if(!((CMPcdr((V211)))==Cnil)){
1470          goto T598;}          goto T595;}
1471          base[1]= car((V186));          base[1]= CMPcar((V211));
1472          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1473          (void) (*Lnk164)();          (void) (*Lnk164)();
1474          return;          return;
1475          goto T598;          goto T595;
1476  T598:;  T595:;
1477          bds_bind(VV[72],VV[73]);          bds_bind(VV[72],VV[73]);
1478          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          (VV[60]->s.s_dbind)= number_plus((VV[60]->s.s_dbind),small_fixnum(1));
1479          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));          bds_bind(VV[59],make_cons((VV[60]->s.s_dbind),Cnil));
1480          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),(VV[61]->s.s_dbind)));
1481          base[4]= car((V186));          base[4]= CMPcar((V211));
1482          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1483          (void) (*Lnk164)();          (void) (*Lnk164)();
1484          vs_top=sup;          vs_top=sup;
1485          if((cdr((VV[59]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[59]->s.s_dbind)))==Cnil){
1486          bds_unwind1;          bds_unwind1;
1487          bds_unwind1;          bds_unwind1;
1488          bds_unwind1;          bds_unwind1;
1489          goto T603;}          goto T600;}
1490          princ_str("\n   goto T",VV[62]);          princ_str("\n   goto T",VV[62]);
1491          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind))));
1492          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1493          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
1494          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind))));
1495          princ_str(":;",VV[62]);          princ_str(":;",VV[62]);
1496          bds_unwind1;          bds_unwind1;
1497          bds_unwind1;          bds_unwind1;
1498          bds_unwind1;          bds_unwind1;
1499          goto T603;          goto T600;
1500  T603:;  T600:;
1501          V186= cdr((V186));          V211= CMPcdr((V211));
1502          goto T597;}          goto T594;}
1503          }          }
1504  }  }
1505  /*      local entry for function C1ARGS */  /*      local entry for function C1ARGS */
1506    
1507  static object LI23(V189,V190)  static object LI23(V214,V215)
1508    
1509  object V189;object V190;  object V214;object V215;
1510  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1511          goto TTL;          goto TTL;
1512  TTL:;  TTL:;
1513          {object V191;          {object V216;
1514          object V192= (V189);          object V217= (V214);
1515          if(endp(V192)){          if(V217==Cnil){
1516          {object V193 = Cnil;          {object V218 = Cnil;
1517          VMR23(V193)}}          VMR23(V218)}}
1518          base[0]=V191=MMcons(Cnil,Cnil);          base[0]=V216=MMcons(Cnil,Cnil);
1519          goto T621;          goto T618;
1520  T621:;  T618:;
1521          (V191->c.c_car)= (*(LnkLI169))((V192->c.c_car),(V190));          (V216->c.c_car)= (*(LnkLI169))((V217->c.c_car),(V215));
1522          V192=MMcdr(V192);          if((V217=MMcdr(V217))==Cnil){
1523          if(endp(V192)){          {object V220 = base[0];
1524          {object V195 = base[0];          VMR23(V220)}}
1525          VMR23(V195)}}          V216=MMcdr(V216)=MMcons(Cnil,Cnil);
1526          V191=MMcdr(V191)=MMcons(Cnil,Cnil);          goto T618;}
         goto T621;}  
1527          base[0]=base[0];          base[0]=base[0];
1528          return Cnil;          return Cnil;
1529  }  }
1530  /*      local entry for function C1STRUCTURE-REF        */  /*      local entry for function C1STRUCTURE-REF        */
1531    
1532  static object LI24(V197)  static object LI24(V222)
1533    
1534  register object V197;  register object V222;
1535  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1536          goto TTL;          goto TTL;
1537  TTL:;  TTL:;
1538          if((symbol_value(VV[69]))!=Cnil){          if(((VV[69]->s.s_dbind))!=Cnil){
1539          goto T624;}          goto T621;}
1540          if(endp_prop((V197))){          if(((V222))==Cnil){
1541          goto T624;}          goto T621;}
1542          if(endp_prop(cdr((V197)))){          if((CMPcdr((V222)))==Cnil){
1543          goto T624;}          goto T621;}
1544          if(!(type_of(cadr((V197)))==t_cons)){          if(!(type_of(CMPcadr((V222)))==t_cons)){
1545          goto T624;}          goto T621;}
1546          if(!((caadr((V197)))==(VV[35]))){          if(!((CMPcaadr((V222)))==(VV[35]))){
1547          goto T624;}          goto T621;}
1548          if(endp_prop(cdadr((V197)))){          if((CMPcdadr((V222)))==Cnil){
1549          goto T624;}          goto T621;}
1550          if(!(type_of(cadadr((V197)))==t_symbol)){          if(!(type_of(CMPcadadr((V222)))==t_symbol)){
1551          goto T624;}          goto T621;}
1552          if(!(endp_prop(cddadr((V197))))){          if(!((CMPcddadr((V222)))==Cnil)){
1553          goto T624;}          goto T621;}
1554          if(endp_prop(cddr((V197)))){          if((CMPcddr((V222)))==Cnil){
1555          goto T624;}          goto T621;}
1556          if(!(type_of(caddr((V197)))==t_fixnum)){          if(!(type_of(CMPcaddr((V222)))==t_fixnum)){
1557          goto T624;}          goto T621;}
1558          if(!(endp_prop(cdddr((V197))))){          if(!((CMPcdddr((V222)))==Cnil)){
1559          goto T624;}          goto T621;}
1560          {object V198 = (*(LnkLI149))(car((V197)),cadadr((V197)),caddr((V197)));          {object V223 = (*(LnkLI149))(CMPcar((V222)),CMPcadadr((V222)),CMPcaddr((V222)));
1561          VMR24(V198)}          VMR24(V223)}
1562          goto T624;          goto T621;
1563  T624:;  T621:;
1564          {object V199;          {object V224;
1565          V199= (VFUN_NARGS=0,(*(LnkLI127))());          V224= (VFUN_NARGS=0,(*(LnkLI127))());
1566          {object V200 = list(4,VV[49],(V199),VV[74],(*(LnkLI142))((V197),(V199)));          {object V225 = list(4,VV[49],(V224),VV[74],(*(LnkLI142))((V222),(V224)));
1567          VMR24(V200)}}          VMR24(V225)}}
1568          return Cnil;          return Cnil;
1569  }  }
1570  /*      local entry for function C1STRUCTURE-REF1       */  /*      local entry for function C1STRUCTURE-REF1       */
1571    
1572  static object LI25(V204,V205,V206)  static object LI25(V229,V230,V231)
1573    
1574  object V204;object V205;object V206;  object V229;object V230;object V231;
1575  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1576          goto TTL;          goto TTL;
1577  TTL:;  TTL:;
1578          {object V207;          {object V232;
1579          V207= (VFUN_NARGS=0,(*(LnkLI127))());          V232= (VFUN_NARGS=0,(*(LnkLI127))());
1580          if((symbol_value(VV[69]))==Cnil){          if(((VV[69]->s.s_dbind))==Cnil){
1581          goto T649;}          goto T646;}
1582          V208= list(4,VV[74],(V204),list(2,VV[35],(V205)),(V206));          V233= list(4,VV[74],(V229),list(2,VV[35],(V230)),(V231));
1583          {object V209 = (*(LnkLI123))(/* INLINE-ARGS */V208);          {object V234 = (*(LnkLI123))(/* INLINE-ARGS */V233);
1584          VMR25(V209)}          VMR25(V234)}
1585          goto T649;          goto T646;
1586  T649:;  T646:;
1587          {object V210;          {object V235;
1588          object V211;          object V236;
1589          V210= get((V205),VV[76],Cnil);          {object V237 =((V230))->s.s_plist;
1590          V212= structure_ref((V210),VV[76],2);           object ind= VV[76];
1591          V211= aref1(/* INLINE-ARGS */V212,fixint((V206)));          while(V237!=Cnil){
1592          V213= aref1(symbol_value(VV[75]),fixint((V211)));          if(V237->c.c_car==ind){
1593          V214= (*(LnkLI170))(/* INLINE-ARGS */V213);          V235= (V237->c.c_cdr->c.c_car);
1594          (void)(structure_set((V207),VV[25],2,/* INLINE-ARGS */V214));          goto T648;
1595          V215= (*(LnkLI169))((V204),(V207));          }else V237=V237->c.c_cdr->c.c_cdr;}
1596          V216= (*(LnkLI171))((V205));          V235= Cnil;}
1597          {object V217 = list(6,VV[77],(V207),/* INLINE-ARGS */V215,/* INLINE-ARGS */V216,(V206),(V210));          goto T648;
1598          VMR25(V217)}}}  T648:;
1599            V236= aref1(STREF(object,(V235),8),fix((V231)));
1600            V238= aref1((VV[75]->s.s_dbind),fix((V236)));
1601            V239= (*(LnkLI170))(/* INLINE-ARGS */V238);
1602            V240= Ct;
1603            STSET(object,(V232),8, /* INLINE-ARGS */V239);
1604            (void)(/* INLINE-ARGS */V239);
1605            V241= (*(LnkLI169))((V229),(V232));
1606            V242= (*(LnkLI171))((V230));
1607            {object V243 = list(6,VV[77],(V232),/* INLINE-ARGS */V241,/* INLINE-ARGS */V242,(V231),(V235));
1608            VMR25(V243)}}}
1609          base[0]=base[0];          base[0]=base[0];
1610          return Cnil;          return Cnil;
1611  }  }
1612  /*      local entry for function COERCE-LOC-STRUCTURE-REF       */  /*      local entry for function COERCE-LOC-STRUCTURE-REF       */
1613    
1614  static object LI26(V220,V221)  static object LI26(V246,V247)
1615    
1616  object V220;object V221;  object V246;object V247;
1617  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1618          goto TTL;          goto TTL;
1619  TTL:;  TTL:;
1620          {object V222;          {object V248;
1621          V222= cdr((V220));          V248= CMPcdr((V246));
1622          {object V223;          {object V249;
1623          object V224;          object V250;
1624          V223= cadddr((V222));          V249= CMPcadddr((V248));
1625          V224= caddr((V222));          V250= CMPcaddr((V248));
1626          if(((V223))==Cnil){          if(((V249))==Cnil){
1627          goto T658;}          goto T655;}
1628          {object V225;          {object V251;
1629          register object V226;          register object V252;
1630          V227= structure_ref((V223),VV[76],2);          V251= aref1(STREF(object,(V249),8),fix((V250)));
1631          V225= aref1(/* INLINE-ARGS */V227,fixint((V224)));          V252= aref1((VV[75]->s.s_dbind),fix((V251)));
1632          V226= aref1(symbol_value(VV[75]),fixint((V225)));          V253= (*(LnkLI170))((V252));
1633          V228= (*(LnkLI170))((V226));          V254= (*(LnkLI172))(/* INLINE-ARGS */V253);
1634          V229= (*(LnkLI172))(/* INLINE-ARGS */V228);          if(!((/* INLINE-ARGS */V254)==(VV[78]))){
1635          if(!((/* INLINE-ARGS */V229)==(VV[78]))){          goto T659;}
1636            if(!(eql((V251),small_fixnum(0)))){
1637          goto T662;}          goto T662;}
1638          if(!(eql((V225),small_fixnum(0)))){          goto T659;
         goto T665;}  
1639          goto T662;          goto T662;
1640          goto T665;  T662:;
 T665:;  
1641          base[5]= VV[79];          base[5]= VV[79];
1642          base[6]= (V226);          base[6]= (V252);
1643          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1644          Lerror();          Lerror();
1645          vs_top=sup;          vs_top=sup;
1646          goto T662;          goto T659;
1647  T662:;  T659:;
1648          V230= car((V220));          V255= CMPcar((V246));
1649          V231= (*(LnkLI170))((V226));          V256= (*(LnkLI170))((V252));
1650          (void)(structure_set(/* INLINE-ARGS */V230,VV[25],2,/* INLINE-ARGS */V231));          V257= Ct;
1651          V232= (*(LnkLI170))((V226));          STSET(object,/* INLINE-ARGS */V255,8, /* INLINE-ARGS */V256);
1652          V233= (*(LnkLI172))(/* INLINE-ARGS */V232);          (void)(/* INLINE-ARGS */V256);
1653          V234= make_cons(car((V222)),Cnil);          V258= (*(LnkLI170))((V252));
1654          V235= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V234,VV[81]));          V259= (*(LnkLI172))(/* INLINE-ARGS */V258);
1655          V236= list(4,/* INLINE-ARGS */V233,small_fixnum(0),VV[80],list(4,car(/* INLINE-ARGS */V235),VV[82],(V224),(V223)));          V260= make_cons(CMPcar((V248)),Cnil);
1656          V237= (*(LnkLI170))((V221));          V261= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V260,VV[81]));
1657          {object V238 = (*(LnkLI173))(/* INLINE-ARGS */V236,/* INLINE-ARGS */V237);          V262= list(4,/* INLINE-ARGS */V259,small_fixnum(0),VV[80],list(4,CMPcar(/* INLINE-ARGS */V261),VV[82],(V250),(V249)));
1658          VMR26(V238)}}          V263= (*(LnkLI170))((V247));
1659          goto T658;          {object V264 = (*(LnkLI173))(/* INLINE-ARGS */V262,/* INLINE-ARGS */V263);
1660  T658:;          VMR26(V264)}}
1661          {object V239 = (*(LnkLI175))();          goto T655;
1662          VMR26(V239)}}}  T655:;
1663            {object V265 = (*(LnkLI175))();
1664            VMR26(V265)}}}
1665          base[0]=base[0];          base[0]=base[0];
1666          return Cnil;          return Cnil;
1667  }  }
1668  /*      local entry for function C2STRUCTURE-REF        */  /*      local entry for function C2STRUCTURE-REF        */
1669    
1670  static object LI27(V244,V245,V246,V247)  static object LI27(V270,V271,V272,V273)
1671    
1672  object V244;object V245;object V246;object V247;  object V270;object V271;object V272;object V273;
1673  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1674          bds_check;          bds_check;
1675          goto TTL;          goto TTL;
1676  TTL:;  TTL:;
1677          bds_bind(VV[63],symbol_value(VV[63]));          bds_bind(VV[63],(VV[63]->s.s_dbind));
1678          bds_bind(VV[56],small_fixnum(0));          bds_bind(VV[56],small_fixnum(0));
1679          {object V248;          {object V274;
1680          object V249;          object V275;
1681          V250= make_cons((V244),Cnil);          V276= make_cons((V270),Cnil);
1682          V251= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V250,VV[83]));          V277= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V276,VV[83]));
1683          V248= car(/* INLINE-ARGS */V251);{object V252;          V274= CMPcar(/* INLINE-ARGS */V277);{object V278;
1684          V252= symbol_value(VV[75]);          V278= (VV[75]->s.s_dbind);
1685          V253= structure_ref((V247),VV[76],2);          V279= aref1(STREF(object,(V273),8),fix((V272)));
1686          V254= aref1(/* INLINE-ARGS */V253,fixint((V246)));          V275= aref1(V278,fix(/* INLINE-ARGS */V279));}
1687          V249= aref1(V252,fixint(/* INLINE-ARGS */V254));}          V280= (*(LnkLI170))((V275));
1688          V255= (*(LnkLI170))((V249));          V281= (*(LnkLI172))(/* INLINE-ARGS */V280);
1689          V256= (*(LnkLI172))(/* INLINE-ARGS */V255);          V282= list(4,/* INLINE-ARGS */V281,small_fixnum(0),VV[80],list(4,(V274),(V271),(V272),(V273)));
1690          V257= list(4,/* INLINE-ARGS */V256,small_fixnum(0),VV[80],list(4,(V248),(V245),(V246),(V247)));          (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V282)));}
1691          (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V257)));}          {object V283 = (*(LnkLI163))();
         {object V258 = (*(LnkLI163))();  
1692          bds_unwind1;          bds_unwind1;
1693          bds_unwind1;          bds_unwind1;
1694          VMR27(V258)}          VMR27(V283)}
1695          base[0]=base[0];          base[0]=base[0];
1696          return Cnil;          return Cnil;
1697  }  }
1698  /*      local entry for function MY-CALL        */  /*      local entry for function MY-CALL        */
1699    
1700  static object LI28(V263,V264,V265,V266)  static object LI28(V288,V289,V290,V291)
1701    
1702  object V263;object V264;object V265;object V266;  object V288;object V289;object V290;object V291;
1703  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1704          goto TTL;          goto TTL;
1705  TTL:;  TTL:;
1706          {object V267;          {object V292;
1707          object V268;          object V293;
1708          V267= structure_ref((V266),VV[76],2);          V292= STREF(object,(V291),8);
1709          V268= structure_ref((V266),VV[76],8);          V293= STREF(object,(V291),32);
1710          if((symbol_value(VV[69]))==Cnil){          if(((VV[69]->s.s_dbind))==Cnil){
1711          goto T677;}          goto T674;}
1712          {object V269 = (*(LnkLI175))();          {object V294 = (*(LnkLI175))();
1713          VMR28(V269)}          VMR28(V294)}
1714          goto T677;          goto T674;
1715  T677:;  T674:;
1716          princ_str("STREF(",VV[62]);{object V270;          princ_str("STREF(",VV[62]);{object V295;
1717          V270= symbol_value(VV[75]);          V295= (VV[75]->s.s_dbind);
1718          V271= aref1((V267),fixint((V265)));          V296= aref1((V292),fix((V290)));
1719          V272= aref1(V270,fixint(/* INLINE-ARGS */V271));          V297= aref1(V295,fix(/* INLINE-ARGS */V296));
1720          V273= (*(LnkLI176))(/* INLINE-ARGS */V272);          V298= (*(LnkLI176))(/* INLINE-ARGS */V297);
1721          (void)((*(LnkLI165))(/* INLINE-ARGS */V273));}          (void)((*(LnkLI165))(/* INLINE-ARGS */V298));}
1722          princ_char(44,VV[62]);          princ_char(44,VV[62]);
1723          (void)((*(LnkLI165))((V263)));          (void)((*(LnkLI165))((V288)));
1724          princ_char(44,VV[62]);          princ_char(44,VV[62]);
1725          V274= aref1((V268),fixint((V265)));          V299= aref1((V293),fix((V290)));
1726          (void)((*(LnkLI165))(/* INLINE-ARGS */V274));          (void)((*(LnkLI165))(/* INLINE-ARGS */V299));
1727          princ_char(41,VV[62]);          princ_char(41,VV[62]);
1728          {object V275 = Cnil;          {object V300 = Cnil;
1729          VMR28(V275)}}          VMR28(V300)}}
1730          base[0]=base[0];          base[0]=base[0];
1731          return Cnil;          return Cnil;
1732  }  }
1733  /*      local entry for function C1STRUCTURE-SET        */  /*      local entry for function C1STRUCTURE-SET        */
1734    
1735  static object LI29(V277)  static object LI29(V302)
1736    
1737  register object V277;  register object V302;
1738  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1739          goto TTL;          goto TTL;
1740  TTL:;  TTL:;
1741          {register object V278;          {register object V303;
1742          V278= (VFUN_NARGS=0,(*(LnkLI127))());          V303= (VFUN_NARGS=0,(*(LnkLI127))());
1743          if(endp_prop((V277))){          if(((V302))==Cnil){
1744          goto T688;}          goto T685;}
1745          if((symbol_value(VV[69]))!=Cnil){          if(((VV[69]->s.s_dbind))!=Cnil){
1746          goto T688;}          goto T685;}
1747          if(endp_prop(cdr((V277)))){          if((CMPcdr((V302)))==Cnil){
1748          goto T688;}          goto T685;}
1749          if(!(type_of(cadr((V277)))==t_cons)){          if(!(type_of(CMPcadr((V302)))==t_cons)){
1750          goto T688;}          goto T685;}
1751          if(!((caadr((V277)))==(VV[35]))){          if(!((CMPcaadr((V302)))==(VV[35]))){
1752          goto T688;}          goto T685;}
1753          if(endp_prop(cdadr((V277)))){          if((CMPcdadr((V302)))==Cnil){
1754          goto T688;}          goto T685;}
1755          if(!(type_of(cadadr((V277)))==t_symbol)){          if(!(type_of(CMPcadadr((V302)))==t_symbol)){
1756          goto T688;}          goto T685;}
1757          if(!(endp_prop(cddadr((V277))))){          if(!((CMPcddadr((V302)))==Cnil)){
1758          goto T688;}          goto T685;}
1759          if(endp_prop(cddr((V277)))){          if((CMPcddr((V302)))==Cnil){
1760          goto T688;}          goto T685;}
1761          if(!(type_of(caddr((V277)))==t_fixnum)){          if(!(type_of(CMPcaddr((V302)))==t_fixnum)){
1762          goto T688;}          goto T685;}
1763          if(endp_prop(cdddr((V277)))){          if((CMPcdddr((V302)))==Cnil){
1764          goto T688;}          goto T685;}
1765          if(!(endp_prop(cddddr((V277))))){          if(!((CMPcddddr((V302)))==Cnil)){
1766          goto T688;}          goto T685;}
1767          {object V279;          {object V304;
1768          object V280;          object V305;
1769          V279= (*(LnkLI123))(car((V277)));          V304= (*(LnkLI123))(CMPcar((V302)));
1770          V280= (*(LnkLI123))(cadddr((V277)));          V305= (*(LnkLI123))(CMPcadddr((V302)));
1771          (void)((*(LnkLI124))((V278),cadr((V279))));          (void)((*(LnkLI124))((V303),CMPcadr((V304))));
1772          (void)((*(LnkLI124))((V278),cadr((V280))));          (void)((*(LnkLI124))((V303),CMPcadr((V305))));
1773          V281= structure_ref(cadr((V280)),VV[25],2);          V306= Ct;
1774          (void)(structure_set((V278),VV[25],2,/* INLINE-ARGS */V281));          STSET(object,(V303),8, STREF(object,CMPcadr((V305)),8));
1775          V282= (*(LnkLI171))(cadadr((V277)));          (void)(STREF(object,CMPcadr((V305)),8));
1776          V283= caddr((V277));          V307= (*(LnkLI171))(CMPcadadr((V302)));
1777          V284= get(cadadr((V277)),VV[76],Cnil);          V308= CMPcaddr((V302));
1778          {object V285 = list(7,VV[84],(V278),(V279),/* INLINE-ARGS */V282,/* INLINE-ARGS */V283,(V280),V284);          {object V310 =(CMPcadadr((V302)))->s.s_plist;
1779          VMR29(V285)}}           object ind= VV[76];
1780          goto T688;          while(V310!=Cnil){
1781  T688:;          if(V310->c.c_car==ind){
1782          {object V286 = list(4,VV[49],(V278),VV[85],(*(LnkLI142))((V277),(V278)));          V309= (V310->c.c_cdr->c.c_car);
1783          VMR29(V286)}}          goto T714;
1784            }else V310=V310->c.c_cdr->c.c_cdr;}
1785            V309= Cnil;}
1786            goto T714;
1787    T714:;
1788            {object V311 = list(7,VV[84],(V303),(V304),/* INLINE-ARGS */V307,/* INLINE-ARGS */V308,(V305),V309);
1789            VMR29(V311)}}
1790            goto T685;
1791    T685:;
1792            {object V312 = list(4,VV[49],(V303),VV[85],(*(LnkLI142))((V302),(V303)));
1793            VMR29(V312)}}
1794          base[0]=base[0];          base[0]=base[0];
1795          return Cnil;          return Cnil;
1796  }  }
1797  /*      local entry for function C2STRUCTURE-SET        */  /*      local entry for function C2STRUCTURE-SET        */
1798    
1799  static object LI30(V292,V293,V294,V295,V296)  static object LI30(V318,V319,V320,V321,V322)
1800    
1801  object V292;object V293;object V294;object V295;object V296;  object V318;object V319;object V320;object V321;object V322;
1802  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1803          bds_check;          bds_check;
1804          goto TTL;          goto TTL;
1805  TTL:;  TTL:;
1806          {object V297;          {object V323;
1807          V297= Cnil;          V323= Cnil;
1808          bds_bind(VV[63],symbol_value(VV[63]));          bds_bind(VV[63],(VV[63]->s.s_dbind));
1809          bds_bind(VV[56],small_fixnum(0));          bds_bind(VV[56],small_fixnum(0));
1810          {object V298;          {object V324;
1811          object V299;          object V325;
1812          object V300;          object V326;
1813          object V301;          object V327;
1814          object V302;          object V328;
1815          object V303;          object V329;
1816          V298= structure_ref((V296),VV[76],2);{object V304;          V324= STREF(object,(V322),8);{object V330;
1817          V304= symbol_value(VV[75]);          V330= (VV[75]->s.s_dbind);
1818          V305= aref1((V298),fixint((V294)));          V331= aref1((V324),fix((V320)));
1819          V299= aref1(V304,fixint(/* INLINE-ARGS */V305));}          V325= aref1(V330,fix(/* INLINE-ARGS */V331));}
1820          V300= structure_ref((V296),VV[76],8);          V326= STREF(object,(V322),32);
1821          V301= (*(LnkLI170))((V299));          V327= (*(LnkLI170))((V325));
1822          V302= Cnil;          V328= Cnil;
1823          V303= Cnil;          V329= Cnil;
1824          V306= (VFUN_NARGS=0,(*(LnkLI127))());          V332= (VFUN_NARGS=0,(*(LnkLI127))());
1825          V307= list(3,(V292),(V295),list(4,VV[49],/* INLINE-ARGS */V306,VV[86],Cnil));          V333= list(3,(V318),(V321),list(4,VV[49],/* INLINE-ARGS */V332,VV[86],Cnil));
1826          if(!(((V299))==(Ct))){          if(!(((V325))==(Ct))){
1827          goto T730;}          goto T727;}
1828          V308= VV[87];          V334= VV[87];
1829          goto T728;          goto T725;
1830          goto T730;          goto T727;
1831  T730:;  T727:;
1832          V308= list(3,Ct,(V301),Ct);          V334= list(3,Ct,(V327),Ct);
1833          goto T728;          goto T725;
1834  T728:;  T725:;
1835          V297= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V307,V308));          V323= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V333,V334));
1836          V302= car((V297));          V328= CMPcar((V323));
1837          V303= cadr((V297));          V329= CMPcadr((V323));
1838          if((symbol_value(VV[69]))==Cnil){          if(((VV[69]->s.s_dbind))==Cnil){
1839          goto T736;}          goto T733;}
1840          (void)((*(LnkLI175))());          (void)((*(LnkLI175))());
1841          goto T736;          goto T733;
1842  T736:;  T733:;
1843          princ_str("\n   STSET(",VV[62]);          princ_str("\n   STSET(",VV[62]);
1844          V309= (*(LnkLI176))((V299));          V335= (*(LnkLI176))((V325));
1845          (void)((*(LnkLI165))(/* INLINE-ARGS */V309));          (void)((*(LnkLI165))(/* INLINE-ARGS */V335));
1846          princ_char(44,VV[62]);          princ_char(44,VV[62]);
1847          (void)((*(LnkLI165))((V302)));          (void)((*(LnkLI165))((V328)));
1848          princ_char(44,VV[62]);          princ_char(44,VV[62]);
1849          V310= aref1((V300),fixint((V294)));          V336= aref1((V326),fix((V320)));
1850          (void)((*(LnkLI165))(/* INLINE-ARGS */V310));          (void)((*(LnkLI165))(/* INLINE-ARGS */V336));
1851          princ_str(", ",VV[62]);          princ_str(", ",VV[62]);
1852          (void)((*(LnkLI165))((V303)));          (void)((*(LnkLI165))((V329)));
1853          princ_str(");",VV[62]);          princ_str(");",VV[62]);
1854          V311= (*(LnkLI172))((V301));          V337= (*(LnkLI172))((V327));
1855          V312= list(4,/* INLINE-ARGS */V311,small_fixnum(0),VV[88],make_cons((V303),Cnil));          V338= list(4,/* INLINE-ARGS */V337,small_fixnum(0),VV[88],make_cons((V329),Cnil));
1856          (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V312)));          (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V338)));
1857          {object V313 = (*(LnkLI163))();          {object V339 = (*(LnkLI163))();
1858          bds_unwind1;          bds_unwind1;
1859          bds_unwind1;          bds_unwind1;
1860          VMR30(V313)}}}          VMR30(V339)}}}
1861          base[0]=base[0];          base[0]=base[0];
1862          return Cnil;          return Cnil;
1863  }  }
1864  /*      local entry for function C1CONSTANT-VALUE       */  /*      local entry for function C1CONSTANT-VALUE       */
1865    
1866  static object LI31(V316,V317)  static object LI31(V342,V343)
1867    
1868  register object V316;object V317;  register object V342;object V343;
1869  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1870          goto TTL;          goto TTL;
1871  TTL:;  TTL:;
1872          if(!(((V316))==(Cnil))){          if(!(((V342))==(Cnil))){
1873            goto T748;}
1874            {object V344 = (*(LnkLI125))();
1875            VMR31(V344)}
1876            goto T748;
1877    T748:;
1878            if(!(((V342))==(Ct))){
1879          goto T751;}          goto T751;}
1880          {object V318 = (*(LnkLI125))();          {object V345 = (*(LnkLI126))();
1881          VMR31(V318)}          VMR31(V345)}
1882          goto T751;          goto T751;
1883  T751:;  T751:;
1884          if(!(((V316))==(Ct))){          if(!(type_of((V342))==t_fixnum)){
1885          goto T754;}          goto T754;}
1886          {object V319 = (*(LnkLI126))();          V346= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89]));
1887          VMR31(V319)}          V348= (*(LnkLI177))((V342));
1888          goto T754;          if(number_compare(/* INLINE-ARGS */V348,VV[91])>=0){
 T754:;  
         if(!(type_of((V316))==t_fixnum)){  
1889          goto T757;}          goto T757;}
1890          V320= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89]));          V347= Cnil;
1891          V322= (*(LnkLI177))((V316));          goto T756;
         if(number_compare(/* INLINE-ARGS */V322,VV[91])>=0){  
         goto T760;}  
         V321= Cnil;  
         goto T759;  
         goto T760;  
 T760:;  
         V321= (*(LnkLI129))((V316));  
         goto T759;  
 T759:;  
         {object V323 = list(3,VV[1],/* INLINE-ARGS */V320,list(3,VV[90],V321,(V316)));  
         VMR31(V323)}  
1892          goto T757;          goto T757;
1893  T757:;  T757:;
1894          if(!(type_of((V316))==t_character)){          V347= (*(LnkLI129))((V342));
1895          goto T763;}          goto T756;
1896          V324= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44]));  T756:;
1897          V325= (*(LnkLI129))((V316));          {object V349 = list(3,VV[1],/* INLINE-ARGS */V346,list(3,VV[90],V347,(V342)));
1898          base[0]= (V316);          VMR31(V349)}
1899            goto T754;
1900    T754:;
1901            if(!(type_of((V342))==t_character)){
1902            goto T760;}
1903            V350= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44]));
1904            V351= (*(LnkLI129))((V342));
1905            base[0]= (V342);
1906          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1907          Lchar_code();          Lchar_code();
1908          vs_top=sup;          vs_top=sup;
1909          V326= vs_base[0];          V352= vs_base[0];
1910          {object V327 = list(3,VV[1],/* INLINE-ARGS */V324,list(3,VV[92],/* INLINE-ARGS */V325,V326));          {object V353 = list(3,VV[1],/* INLINE-ARGS */V350,list(3,VV[92],/* INLINE-ARGS */V351,V352));
1911          VMR31(V327)}          VMR31(V353)}
1912          goto T763;          goto T760;
1913  T763:;  T760:;
1914          if(!(type_of((V316))==t_longfloat)){          if(!(type_of((V342))==t_longfloat)){
1915          goto T768;}          goto T765;}
1916          {object V328;          {object V354;
1917          object V329;          object V355;
1918          V328= Cnil;          V354= Cnil;
1919          V329= Cnil;          V355= Cnil;
1920          {register object x= (V316),V331= symbol_value(VV[93]);          {register object x= (V342),V357= (VV[93]->s.s_dbind);
1921          while(!endp(V331))          while(V357!=Cnil)
1922          if(type_of(V331->c.c_car)==t_cons &&eql(x,V331->c.c_car->c.c_car)){          if(eql(x,V357->c.c_car->c.c_car) &&V357->c.c_car != Cnil){
1923          V330= (V331->c.c_car);          V356= (V357->c.c_car);
1924          goto T774;          goto T771;
1925          }else V331=V331->c.c_cdr;          }else V357=V357->c.c_cdr;
1926          V330= Cnil;}          V356= Cnil;}
1927          goto T774;          goto T771;
1928  T774:;  T771:;
1929          V328= cadr(V330);          V354= CMPcadr(V356);
1930          if(((V328))!=Cnil){          if(((V354))!=Cnil){
1931          goto T770;}          goto T767;}
1932          V329= (*(LnkLI177))((V316));          V355= (*(LnkLI177))((V342));
1933          base[0]= VV[94];          base[0]= VV[94];
1934          base[1]= small_fixnum(2);          base[1]= small_fixnum(2);
1935          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1936          Ldivide();          Ldivide();
1937          vs_top=sup;          vs_top=sup;
1938          V332= vs_base[0];          V358= vs_base[0];
1939          if(!(number_compare((V329),V332)>0)){          if(!(number_compare((V355),V358)>0)){
1940          goto T776;}          goto T773;}
1941          base[0]= (V316);          base[0]= (V342);
1942          base[1]= VV[94];          base[1]= VV[94];
1943          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1944          Ldivide();          Ldivide();
1945          vs_top=sup;          vs_top=sup;
1946          V333= vs_base[0];          V359= vs_base[0];
1947          V334= list(4,VV[5],VV[19],V333,VV[95]);          V360= list(4,VV[5],VV[19],V359,VV[95]);
1948          if(((*(LnkLI123))(/* INLINE-ARGS */V334))!=Cnil){          if(((*(LnkLI123))(/* INLINE-ARGS */V360))!=Cnil){
1949          goto T775;}          goto T772;}
1950          goto T776;          goto T773;
1951  T776:;  T773:;
1952          V335 = make_longfloat((double)(4.94065645841246540e-324)*(double)(1.0000000e+20));          V361 = make_longfloat((double)(4.94065645841246540e-324)*(double)(1.0000000e+20));
1953          if(!(number_compare((V329),V335)<0)){          if(!(number_compare((V355),V361)<0)){
1954          goto T770;}          goto T767;}
1955          base[0]= (V316);          base[0]= (V342);
1956          base[1]= VV[96];          base[1]= VV[96];
1957          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1958          Ldivide();          Ldivide();
1959          vs_top=sup;          vs_top=sup;
1960          V336= vs_base[0];          V362= vs_base[0];
1961          V337= list(4,VV[5],VV[19],V336,VV[98]);          V363= list(4,VV[5],VV[19],V362,VV[98]);
1962          if(((*(LnkLI123))(/* INLINE-ARGS */V337))==Cnil){          if(((*(LnkLI123))(/* INLINE-ARGS */V363))==Cnil){
1963          goto T770;}          goto T767;}
1964          goto T775;          goto T772;
1965  T775:;  T772:;
1966          {object V338;          {object V364;
1967          V328= symbol_value(VV[99]);          V354= (VV[99]->s.s_dbind);
1968          V338= list(2,(V316),(V328));          V364= list(2,(V342),(V354));
1969          setq(VV[93],make_cons((V338),symbol_value(VV[93])));}          (VV[93]->s.s_dbind)= make_cons((V364),(VV[93]->s.s_dbind));}
1970          goto T770;          goto T767;
1971  T770:;  T767:;
1972          V339= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100]));          V365= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100]));
1973          if((V328)!=Cnil){          if((V354)!=Cnil){
1974          V340= (V328);          V366= (V354);
1975          goto T796;}          goto T793;}
1976          V340= (*(LnkLI129))((V316));          V366= (*(LnkLI129))((V342));
1977          goto T796;          goto T793;
1978  T796:;  T793:;
1979          {object V341 = list(3,VV[1],/* INLINE-ARGS */V339,list(3,VV[101],V340,(V316)));          {object V367 = list(3,VV[1],/* INLINE-ARGS */V365,list(3,VV[101],V366,(V342)));
1980          VMR31(V341)}}          VMR31(V367)}}
1981          goto T768;          goto T765;
1982  T768:;  T765:;
1983          if(!(type_of((V316))==t_shortfloat)){          if(!(type_of((V342))==t_shortfloat)){
1984            goto T795;}
1985            V368= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102]));
1986            V369= (*(LnkLI129))((V342));
1987            {object V370 = list(3,VV[1],/* INLINE-ARGS */V368,list(3,VV[103],/* INLINE-ARGS */V369,(V342)));
1988            VMR31(V370)}
1989            goto T795;
1990    T795:;
1991            if(((V343))==Cnil){
1992          goto T798;}          goto T798;}
1993          V342= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102]));          V371= (*(LnkLI128))((V342));
1994          V343= (*(LnkLI129))((V316));          V372= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V371));
1995          {object V344 = list(3,VV[1],/* INLINE-ARGS */V342,list(3,VV[103],/* INLINE-ARGS */V343,(V316)));          {object V373 = list(3,VV[1],/* INLINE-ARGS */V372,list(2,VV[3],(*(LnkLI129))((V342))));
1996          VMR31(V344)}          VMR31(V373)}
1997          goto T798;          goto T798;
1998  T798:;  T798:;
1999          if(((V317))==Cnil){          {object V374 = Cnil;
2000          goto T801;}          VMR31(V374)}
         V345= (*(LnkLI128))((V316));  
         V346= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V345));  
         {object V347 = list(3,VV[1],/* INLINE-ARGS */V346,list(2,VV[3],(*(LnkLI129))((V316))));  
         VMR31(V347)}  
         goto T801;  
 T801:;  
         {object V348 = Cnil;  
         VMR31(V348)}  
2001          base[0]=base[0];          base[0]=base[0];
2002          return Cnil;          return Cnil;
2003  }  }
# Line 1887  T801:; Line 2006  T801:;
2006  static void L32()  static void L32()
2007  {register object *base=vs_base;  {register object *base=vs_base;
2008          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
2009          vs_reserve(VM32);          vs_check;
         check_arg(2);  
2010          vs_top=sup;          vs_top=sup;
2011          {object V349=base[0]->c.c_cdr;          {object V375=base[0]->c.c_cdr;
2012          if(endp(V349))invalid_macro_call();          base[2]= (V375->c.c_car);
2013          base[2]= (V349->c.c_car);          V375=V375->c.c_cdr;
2014          V349=V349->c.c_cdr;          base[3]= (V375->c.c_car);
2015          if(endp(V349))invalid_macro_call();          V375=V375->c.c_cdr;
2016          base[3]= (V349->c.c_car);          base[4]= V375;}
2017          V349=V349->c.c_cdr;          V376= list(2,VV[35],base[2]);
2018          base[4]= V349;}          V377= list(2,VV[35],base[2]);
2019          V350= list(2,VV[35],base[2]);          V378= list(2,VV[35],base[3]);
2020          V351= list(2,VV[35],base[2]);          V379= list(4,VV[104],/* INLINE-ARGS */V376,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V377,/* INLINE-ARGS */V378,list(2,VV[35],base[4]))),VV[107]);
2021          V352= list(2,VV[35],base[3]);          base[5]= list(3,VV[71],/* INLINE-ARGS */V379,list(2,VV[35],base[2]));
         V353= list(4,VV[104],/* INLINE-ARGS */V350,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V351,/* INLINE-ARGS */V352,list(2,VV[35],base[4]))),VV[107]);  
         base[5]= list(3,VV[71],/* INLINE-ARGS */V353,list(2,VV[35],base[2]));  
2022          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2023          return;          return;
2024  }  }
2025  /*      local entry for function UNDEF-COMPILER-MACRO   */  /*      local entry for function UNDEF-COMPILER-MACRO   */
2026    
2027  static object LI33(V355)  static object LI33(V381)
2028    
2029  object V355;  object V381;
2030  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
2031          goto TTL;          goto TTL;
2032  TTL:;  TTL:;
2033          {object V356 = remprop((V355),VV[33]);          {object V382 = remprop((V381),VV[33]);
2034          VMR33(V356)}          VMR33(V382)}
2035          return Cnil;          return Cnil;
2036  }  }
2037  /*      macro definition for DEFINE-INLINE-FUNCTION     */  /*      macro definition for DEFINE-INLINE-FUNCTION     */
# Line 1923  TTL:; Line 2039  TTL:;
2039  static void L34()  static void L34()
2040  {register object *base=vs_base;  {register object *base=vs_base;
2041          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
2042          vs_reserve(VM34);          vs_check;
2043          bds_check;          bds_check;
         check_arg(2);  
2044          vs_top=sup;          vs_top=sup;
2045          {object V357=base[0]->c.c_cdr;          {object V383=base[0]->c.c_cdr;
2046          if(endp(V357))invalid_macro_call();          base[2]= (V383->c.c_car);
2047          base[2]= (V357->c.c_car);          V383=V383->c.c_cdr;
2048          V357=V357->c.c_cdr;          base[3]= (V383->c.c_car);
2049          if(endp(V357))invalid_macro_call();          V383=V383->c.c_cdr;
2050          base[3]= (V357->c.c_car);          base[4]= V383;}
2051          V357=V357->c.c_cdr;          {register object V384;
2052          base[4]= V357;}          V384= Cnil;
2053          {register object V358;          bds_bind(VV[108],(VV[108]->s.s_dbind));
2054          V358= Cnil;          {register object V385;
2055          bds_bind(VV[108],symbol_value(VV[108]));          register object V386;
2056          {register object V359;          V385= base[3];
2057          register object V360;          V386= CMPcar((V385));
2058          V359= base[3];          goto T804;
2059          V360= car((V359));  T804:;
2060          goto T807;          if(!(((V385))==Cnil)){
2061  T807:;          goto T805;}
2062          if(!(endp_prop((V359)))){          goto T800;
2063          goto T808;}          goto T805;
2064          goto T803;  T805:;
2065          goto T808;          if(!(type_of((V386))==t_symbol)){
2066  T808:;          goto T811;}
2067          if(!(type_of((V360))==t_symbol)){          {register object x= (V386),V387= VV[109];
2068          goto T814;}          while(V387!=Cnil)
2069          {register object x= (V360),V361= VV[109];          if(x==(V387->c.c_car)){
2070          while(!endp(V361))          goto T811;
2071          if(x==(V361->c.c_car)){          }else V387=V387->c.c_cdr;}
2072          goto T814;          {register object V388;{object V389;
2073          }else V361=V361->c.c_cdr;}          {register object V390;
2074          {register object V362;{object V363;          V390= CMPcar((VV[108]->s.s_dbind));
2075          {register object V364;          (VV[108]->s.s_dbind)= CMPcdr((VV[108]->s.s_dbind));
2076          V364= car((VV[108]->s.s_dbind));          V389= (V390);}
2077          (VV[108]->s.s_dbind)= cdr((VV[108]->s.s_dbind));          if(V389==Cnil)goto T816;
2078          V363= (V364);}          V388= V389;
2079          if(V363==Cnil)goto T819;          goto T815;
2080          V362= V363;          goto T816;
2081          goto T818;  T816:;}
         goto T819;  
 T819:;}  
2082          base[8]= VV[110];          base[8]= VV[110];
2083          base[10]= VV[111];          base[10]= VV[111];
2084          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
# Line 1975  T819:;} Line 2088  T819:;}
2088          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2089          Lgentemp();          Lgentemp();
2090          vs_top=sup;          vs_top=sup;
2091          V362= vs_base[0];          V388= vs_base[0];
2092          goto T818;          goto T815;
2093  T818:;  T815:;
2094          V358= make_cons((V362),(V358));          V384= make_cons((V388),(V384));
2095          goto T812;}          goto T809;}
2096          goto T814;          goto T811;
2097  T814:;  T811:;
2098          base[7]= VV[112];          base[7]= VV[112];
2099          base[8]= (V360);          base[8]= (V386);
2100          base[9]= base[2];          base[9]= base[2];
2101          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
2102          Lerror();          Lerror();
2103          vs_top=sup;          vs_top=sup;
2104          goto T812;          goto T809;
2105  T812:;  T809:;
2106          V359= cdr((V359));          V385= CMPcdr((V385));
2107          V360= car((V359));          V386= CMPcar((V385));
2108          goto T807;}          goto T804;}
2109          goto T803;          goto T800;
2110  T803:;  T800:;
2111          {object V365;          {object V391;
2112          {object V367;          {object V393;
2113          object V368= base[3];          object V394= base[3];
2114          object V369= (V358);          object V395= (V384);
2115          if(endp(V368)||endp(V369)){          if(V394==Cnil||V395==Cnil){
2116          V366= Cnil;          V392= Cnil;
2117          goto T837;}          goto T834;}
2118          base[6]=V367=MMcons(Cnil,Cnil);          base[6]=V393=MMcons(Cnil,Cnil);
2119          goto T838;          goto T835;
2120  T838:;  T835:;
2121          (V367->c.c_car)= list(3,VV[113],list(2,VV[35],(V368->c.c_car)),(V369->c.c_car));          (V393->c.c_car)= list(3,VV[113],list(2,VV[35],(V394->c.c_car)),(V395->c.c_car));
2122          V368=MMcdr(V368);          if((V394=MMcdr(V394))==Cnil||(V395=MMcdr(V395))==Cnil){
2123          V369=MMcdr(V369);          V392= base[6];
2124          if(endp(V368)||endp(V369)){          goto T834;}
2125          V366= base[6];          V393=MMcdr(V393)=MMcons(Cnil,Cnil);
2126          goto T837;}          goto T835;}
2127          V367=MMcdr(V367)=MMcons(Cnil,Cnil);          goto T834;
2128          goto T838;}  T834:;
2129          goto T837;          V391= make_cons(VV[113],V392);
2130  T837:;          V398= listA(4,VV[114],base[2],base[3],base[4]);
2131          V365= make_cons(VV[113],V366);          base[6]= list(3,VV[71],/* INLINE-ARGS */V398,list(4,VV[115],base[2],(V384),list(4,VV[116],VV[117],(V391),list(2,VV[35],base[4]))));
         V372= listA(4,VV[114],base[2],base[3],base[4]);  
         base[6]= list(3,VV[71],/* INLINE-ARGS */V372,list(4,VV[115],base[2],(V358),list(4,VV[116],VV[117],(V365),list(2,VV[35],base[4]))));  
2132          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
2133          bds_unwind1;          bds_unwind1;
2134          return;}}          return;}}
2135  }  }
2136  /*      local entry for function NAME-TO-SD     */  /*      local entry for function NAME-TO-SD     */
2137    
2138  static object LI35(V374)  static object LI35(V400)
2139    
2140  object V374;  object V400;
2141  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2142          goto TTL;          goto TTL;
2143  TTL:;  TTL:;
2144          {object V375;          {object V401;
2145          V375= Cnil;{object V376;          V401= Cnil;{object V402;
2146          if(type_of((V374))==t_symbol){          if(type_of((V400))==t_symbol){
2147          goto T844;}          goto T841;}
2148          V376= Cnil;          V402= Cnil;
2149            goto T840;
2150            goto T841;
2151    T841:;
2152            {object V403 =((V400))->s.s_plist;
2153             object ind= VV[76];
2154            while(V403!=Cnil){
2155            if(V403->c.c_car==ind){
2156            V401= (V403->c.c_cdr->c.c_car);
2157          goto T843;          goto T843;
2158          goto T844;          }else V403=V403->c.c_cdr->c.c_cdr;}
2159  T844:;          V401= Cnil;}
         V375= get((V374),VV[76],Cnil);  
         V376= (V375);  
2160          goto T843;          goto T843;
2161  T843:;  T843:;
2162          if(V376==Cnil)goto T842;          V402= (V401);
2163          goto T841;          goto T840;
2164          goto T842;  T840:;
2165  T842:;}          if(V402==Cnil)goto T839;
2166            goto T838;
2167            goto T839;
2168    T839:;}
2169          base[0]= VV[118];          base[0]= VV[118];
2170          base[1]= (V374);          base[1]= (V400);
2171          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2172          Lerror();          Lerror();
2173          vs_top=sup;          vs_top=sup;
2174          goto T841;          goto T838;
2175  T841:;  T838:;
2176          {object V377 = (V375);          {object V404 = (V401);
2177          VMR35(V377)}}          VMR35(V404)}}
2178          base[0]=base[0];          base[0]=base[0];
2179          return Cnil;          return Cnil;
2180  }  }
2181  /*      local entry for function NAME-SD1       */  /*      local entry for function NAME-SD1       */
2182    
2183  static object LI36(V379)  static object LI36(V406)
2184    
2185  object V379;  object V406;
2186  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
2187          goto TTL;          goto TTL;
2188  TTL:;{object V380;  TTL:;{object V407;
2189          V380= get((V379),VV[119],Cnil);          {object V408 =((V406))->s.s_plist;
2190          if(V380==Cnil)goto T849;           object ind= VV[119];
2191          {object V381 = V380;          while(V408!=Cnil){
2192          VMR36(V381)}          if(V408->c.c_car==ind){
2193          goto T849;          V407= (V408->c.c_cdr->c.c_car);
2194  T849:;}          goto T847;
2195          V382= list(3,VV[5],VV[119],list(2,VV[35],(V379)));          }else V408=V408->c.c_cdr->c.c_cdr;}
2196          {object V383 = sputprop((V379),VV[120],/* INLINE-ARGS */V382);          V407= Cnil;}
2197          VMR36(V383)}          goto T847;
2198    T847:;
2199            if(V407==Cnil)goto T846;
2200            {object V409 = V407;
2201            VMR36(V409)}
2202            goto T846;
2203    T846:;}
2204            V410= list(3,VV[5],VV[119],list(2,VV[35],(V406)));
2205            {object V411 = sputprop((V406),VV[120],/* INLINE-ARGS */V410);
2206            VMR36(V411)}
2207          return Cnil;          return Cnil;
2208  }  }
2209  /*      local entry for function CO1STRUCTURE-PREDICATE */  /*      local entry for function CO1STRUCTURE-PREDICATE */
2210    
2211  static object LI37(V386,V387)  static object LI37(V414,V415)
2212    
2213  object V386;object V387;  object V414;object V415;
2214  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2215          goto TTL;          goto TTL;
2216  TTL:;  TTL:;
2217          {object V388;          {object V416;
2218          V388= Cnil;          V416= Cnil;
2219          if(!(type_of((V386))==t_symbol)){          if(!(type_of((V414))==t_symbol)){
2220          goto T853;}          goto T850;}
2221          V388= get((V386),VV[121],Cnil);          {object V417 =((V414))->s.s_plist;
2222          if(((V388))==Cnil){           object ind= VV[121];
2223          goto T853;}          while(V417!=Cnil){
2224          V389= car((V387));          if(V417->c.c_car==ind){
2225          V390= list(3,VV[122],/* INLINE-ARGS */V389,list(2,VV[35],(V388)));          V416= (V417->c.c_cdr->c.c_car);
2226          {object V391 = (*(LnkLI123))(/* INLINE-ARGS */V390);          goto T854;
2227          VMR37(V391)}          }else V417=V417->c.c_cdr->c.c_cdr;}
2228          goto T853;          V416= Cnil;}
2229  T853:;          goto T854;
2230          {object V392 = Cnil;  T854:;
2231          VMR37(V392)}}          if(((V416))==Cnil){
2232            goto T850;}
2233            V418= CMPcar((V415));
2234            V419= list(3,VV[122],/* INLINE-ARGS */V418,list(2,VV[35],(V416)));
2235            {object V420 = (*(LnkLI123))(/* INLINE-ARGS */V419);
2236            VMR37(V420)}
2237            goto T850;
2238    T850:;
2239            {object V421 = Cnil;
2240            VMR37(V421)}}
2241          return Cnil;          return Cnil;
2242  }  }
2243  static object  LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)(void *)&LnkLI177,1,first,ap);va_end(ap);return V1;} /* ABS */  static object  LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)(void *)&LnkLI177,1,first,ap);va_end(ap);return V1;} /* ABS */
# Line 2123  static object  LnkTLI160(){return call_p Line 2261  static object  LnkTLI160(){return call_p
2261  static object  LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,1,first,ap);va_end(ap);return V1;} /* VOLATILE */  static object  LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,1,first,ap);va_end(ap);return V1;} /* VOLATILE */
2262  static object  LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */  static object  LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
2263  static object  LnkTLI157(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[157],(void **)(void *)&LnkLI157,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */  static object  LnkTLI157(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[157],(void **)(void *)&LnkLI157,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
2264  static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* RESULT-TYPE-FROM-ARGS */  static object  LnkTLI156(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[156],(void **)(void *)&LnkLI156,2,first,ap);va_end(ap);return V1;} /* RESULT-TYPE-FROM-ARGS */
2265  static object  LnkTLI154(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[154],(void **)(void *)&LnkLI154,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */  static object  LnkTLI154(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[154],(void **)(void *)&LnkLI154,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
2266  static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,3,first,ap);va_end(ap);return V1;} /* CHECK-FORM-TYPE */  static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,3,first,ap);va_end(ap);return V1;} /* CHECK-FORM-TYPE */
2267  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* GET-ARG-TYPES */  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* GET-ARG-TYPES */
2268  static object  LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,1,first,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */  static object  LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,1,first,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */
2269  static object  LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,3,first,ap);va_end(ap);return V1;} /* C1STRUCTURE-REF1 */  static object  LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,3,first,ap);va_end(ap);return V1;} /* C1STRUCTURE-REF1 */
2270  static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* CMP-EVAL */  static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* CMP-EVAL */
2271  static object  LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */  static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* RECORD-CALL-INFO */
2272  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
2273  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */
2274  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */
# Line 2139  static object  LnkTLI143(object first,.. Line 2277  static object  LnkTLI143(object first,..
2277  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,2,first,ap);va_end(ap);return V1;} /* C1ARGS */  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,2,first,ap);va_end(ap);return V1;} /* C1ARGS */
2278  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */
2279  static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,2,first,ap);va_end(ap);return V1;} /* TYPE>= */  static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,2,first,ap);va_end(ap);return V1;} /* TYPE>= */
2280  static void LnkT139(){ call_or_link(VV[139],(void **)(void *)&Lnk139);} /* FIX-OPT */  static object  LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,1,first,ap);va_end(ap);return V1;} /* FIX-OPT */
2281  static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[138],(void **)(void *)&LnkLI138,first,ap);va_end(ap);return V1;} /* CMPWARN */  static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[138],(void **)(void *)&LnkLI138,first,ap);va_end(ap);return V1;} /* CMPWARN */
2282  static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* FLAGS-POS */  static object  LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)(void *)&LnkLI137,1,first,ap);va_end(ap);return V1;} /* FLAGS-POS */
2283  static object  LnkTLI136(){return call_proc0(VV[136],(void **)(void *)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI136(){return call_proc0(VV[136],(void **)(void *)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */
2284  static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[135],(void **)(void *)&LnkLI135,first,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[135],(void **)(void *)&LnkLI135,first,ap);va_end(ap);return V1;} /* CMPERR */
2285  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* C1LAMBDA-FUN */  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* C1LAMBDA-FUN */

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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