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

Diff of /gcl/cmpnew/gcl_cmputil.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:18 2003 UTC
# Line 7  void init_gcl_cmputil(){do_init(VV);} Line 7  void init_gcl_cmputil(){do_init(VV);}
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_check;
         check_arg(2);  
11          vs_top=sup;          vs_top=sup;
12          {object V1=base[0]->c.c_cdr;          {object V1=base[0]->c.c_cdr;
13          base[2]= V1;}          base[2]= V1;}
# Line 26  static object LI2(object V2,object first Line 25  static object LI2(object V2,object first
25          {object V3;          {object V3;
26          object V4;          object V4;
27          va_start(ap,first);          va_start(ap,first);
         if(narg <1) too_few_arguments();  
28          V3= V2;          V3= V2;
29          narg= narg - 1;          narg= narg - 1;
30          V5 = list_vector_new(narg,first,ap);          V5 = list_vector_new(narg,first,ap);
# Line 43  static object LI2(object V2,object first Line 41  static object LI2(object V2,object first
41          {object V6;          {object V6;
42          V6= (V4);          V6= (V4);
43           vs_top=base+3;           vs_top=base+3;
44           while(!endp(V6))           while(V6!=Cnil)
45           {vs_push(car(V6));V6=cdr(V6);}           {vs_push((V6)->c.c_car);V6=(V6)->c.c_cdr;}
46          vs_base=base+1;}          vs_base=base+1;}
47          Lformat();          Lformat();
48          vs_top=sup;          vs_top=sup;
49          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
50          {frame_ptr fr;          {frame_ptr fr;
51          fr=frs_sch_catch(VV[6]);          fr=frs_sch_catch(VV[6]);
52          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);
# Line 64  static object LI2(object V2,object first Line 62  static object LI2(object V2,object first
62  static void L3()  static void L3()
63  {register object *base=vs_base;  {register object *base=vs_base;
64          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
65          vs_reserve(VM3);          vs_check;
         check_arg(2);  
66          vs_top=sup;          vs_top=sup;
67          {object V7=base[0]->c.c_cdr;          {object V7=base[0]->c.c_cdr;
         if(endp(V7))invalid_macro_call();  
68          base[2]= (V7->c.c_car);          base[2]= (V7->c.c_car);
69          V7=V7->c.c_cdr;          V7=V7->c.c_cdr;
         if(endp(V7))invalid_macro_call();  
70          base[3]= (V7->c.c_car);          base[3]= (V7->c.c_car);
71          V7=V7->c.c_cdr;          V7=V7->c.c_cdr;
72          base[4]= V7;}          base[4]= V7;}
# Line 98  TTL:; Line 93  TTL:;
93          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
94          Lformat();          Lformat();
95          vs_top=sup;          vs_top=sup;
96          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
97          {frame_ptr fr;          {frame_ptr fr;
98          fr=frs_sch_catch(VV[6]);          fr=frs_sch_catch(VV[6]);
99          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);
# Line 127  TTL:; Line 122  TTL:;
122          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
123          Lformat();          Lformat();
124          vs_top=sup;          vs_top=sup;
125          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
126          {frame_ptr fr;          {frame_ptr fr;
127          fr=frs_sch_catch(VV[6]);          fr=frs_sch_catch(VV[6]);
128          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);
# Line 147  static object LI6(object V20,object firs Line 142  static object LI6(object V20,object firs
142          {object V21;          {object V21;
143          object V22;          object V22;
144          va_start(ap,first);          va_start(ap,first);
         if(narg <1) too_few_arguments();  
145          V21= V20;          V21= V20;
146          narg= narg - 1;          narg= narg - 1;
147          V23 = list_vector_new(narg,first,ap);          V23 = list_vector_new(narg,first,ap);
148          V22= V23;          V22= V23;
149          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
150          if((symbol_value(VV[12]))!=Cnil){          if(((VV[12]->s.s_dbind))!=Cnil){
151          goto T32;}          goto T32;}
152          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
153          base[1]= Ct;          base[1]= Ct;
# Line 166  static object LI6(object V20,object firs Line 160  static object LI6(object V20,object firs
160          {object V24;          {object V24;
161          V24= (V22);          V24= (V22);
162           vs_top=base+3;           vs_top=base+3;
163           while(!endp(V24))           while(V24!=Cnil)
164           {vs_push(car(V24));V24=cdr(V24);}           {vs_push((V24)->c.c_car);V24=(V24)->c.c_cdr;}
165          vs_base=base+1;}          vs_base=base+1;}
166          Lformat();          Lformat();
167          vs_top=sup;          vs_top=sup;
# Line 191  static object LI7(object V26,object firs Line 185  static object LI7(object V26,object firs
185          {object V27;          {object V27;
186          object V28;          object V28;
187          va_start(ap,first);          va_start(ap,first);
         if(narg <1) too_few_arguments();  
188          V27= V26;          V27= V26;
189          narg= narg - 1;          narg= narg - 1;
190          V29 = list_vector_new(narg,first,ap);          V29 = list_vector_new(narg,first,ap);
191          V28= V29;          V28= V29;
192          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
193          if((symbol_value(VV[14]))!=Cnil){          if(((VV[14]->s.s_dbind))!=Cnil){
194          goto T43;}          goto T43;}
195          princ_char(10,Cnil);          princ_char(10,Cnil);
196          base[1]= Ct;          base[1]= Ct;
# Line 210  static object LI7(object V26,object firs Line 203  static object LI7(object V26,object firs
203          {object V30;          {object V30;
204          V30= (V28);          V30= (V28);
205           vs_top=base+3;           vs_top=base+3;
206           while(!endp(V30))           while(V30!=Cnil)
207           {vs_push(car(V30));V30=cdr(V30);}           {vs_push((V30)->c.c_car);V30=(V30)->c.c_cdr;}
208          vs_base=base+1;}          vs_base=base+1;}
209          Lformat();          Lformat();
210          vs_top=sup;          vs_top=sup;
# Line 232  static object LI8() Line 225  static object LI8()
225          bds_check;          bds_check;
226          goto TTL;          goto TTL;
227  TTL:;  TTL:;
228          if((symbol_value(VV[16]))==Cnil){          if(((VV[16]->s.s_dbind))==Cnil){
229          goto T53;}          goto T53;}
230          setq(VV[16],Cnil);          (VV[16]->s.s_dbind)= Cnil;
231          vs_base=vs_top;          vs_base=vs_top;
232          Lfresh_line();          Lfresh_line();
233          vs_top=sup;          vs_top=sup;
234          if(!(type_of(symbol_value(VV[17]))==t_cons)){          if(!(type_of((VV[17]->s.s_dbind))==t_cons)){
235          goto T60;}          goto T60;}
236          if(!((car(symbol_value(VV[17])))==(VV[18]))){          if(!((CMPcar((VV[17]->s.s_dbind)))==(VV[18]))){
237          goto T60;}          goto T60;}
238          base[0]= Ct;          base[0]= Ct;
239          base[1]= VV[19];          base[1]= VV[19];
240          base[2]= cdr(symbol_value(VV[17]));          base[2]= CMPcdr((VV[17]->s.s_dbind));
241          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
242          Lformat();          Lformat();
243          vs_top=sup;          vs_top=sup;
# Line 255  T60:; Line 248  T60:;
248          bds_bind(VV[21],small_fixnum(2));          bds_bind(VV[21],small_fixnum(2));
249          base[2]= Ct;          base[2]= Ct;
250          base[3]= VV[22];          base[3]= VV[22];
251          base[4]= symbol_value(VV[17]);          base[4]= (VV[17]->s.s_dbind);
252          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
253          Lformat();          Lformat();
254          vs_top=sup;          vs_top=sup;
# Line 306  TTL:; Line 299  TTL:;
299          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
300          Lformat();          Lformat();
301          vs_top=sup;          vs_top=sup;
302          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
303          {object V36 = (VFUN_NARGS=0,(*(LnkLI59))());          {object V36 = (VFUN_NARGS=0,(*(LnkLI59))());
304          bds_unwind1;          bds_unwind1;
305          VMR10(V36)}          VMR10(V36)}
# Line 318  TTL:; Line 311  TTL:;
311  static void L11()  static void L11()
312  {register object *base=vs_base;  {register object *base=vs_base;
313          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
314          vs_reserve(VM11);          vs_check;
         check_arg(2);  
315          vs_top=sup;          vs_top=sup;
316          {object V37=base[0]->c.c_cdr;          {object V37=base[0]->c.c_cdr;
         if(endp(V37))invalid_macro_call();  
317          {object V38= (V37->c.c_car);          {object V38= (V37->c.c_car);
         if(endp(V38))invalid_macro_call();  
318          base[2]= (V38->c.c_car);          base[2]= (V38->c.c_car);
319          V38=V38->c.c_cdr;          V38=V38->c.c_cdr;
         if(endp(V38))invalid_macro_call();  
320          base[3]= (V38->c.c_car);          base[3]= (V38->c.c_car);
321          V38=V38->c.c_cdr;          V38=V38->c.c_cdr;
322          if(endp(V38)){          if(endp(V38)){
323          base[4]= Cnil;          base[4]= Cnil;
324          } else {          } else {
325          base[4]= (V38->c.c_car);          base[4]= (V38->c.c_car);
326          V38=V38->c.c_cdr;}          }}
         if(!endp(V38))invalid_macro_call();}  
327          V37=V37->c.c_cdr;          V37=V37->c.c_cdr;
328          base[5]= V37;}          base[5]= V37;}
329          {register object V39;          {register object V39;
# Line 356  static void L11() Line 344  static void L11()
344  static void L12()  static void L12()
345  {register object *base=vs_base;  {register object *base=vs_base;
346          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
347          vs_reserve(VM12);          vs_check;
         check_arg(2);  
348          vs_top=sup;          vs_top=sup;
349          {object V44=base[0]->c.c_cdr;          {object V44=base[0]->c.c_cdr;
         if(endp(V44))invalid_macro_call();  
350          {object V45= (V44->c.c_car);          {object V45= (V44->c.c_car);
         if(endp(V45))invalid_macro_call();  
351          base[2]= (V45->c.c_car);          base[2]= (V45->c.c_car);
352          V45=V45->c.c_cdr;          V45=V45->c.c_cdr;
         if(endp(V45))invalid_macro_call();  
353          base[3]= (V45->c.c_car);          base[3]= (V45->c.c_car);
354          V45=V45->c.c_cdr;          V45=V45->c.c_cdr;
355          if(endp(V45)){          if(endp(V45)){
356          base[4]= Cnil;          base[4]= Cnil;
357          } else {          } else {
358          base[4]= (V45->c.c_car);          base[4]= (V45->c.c_car);
359          V45=V45->c.c_cdr;}          }}
         if(!endp(V45))invalid_macro_call();}  
360          V44=V44->c.c_cdr;          V44=V44->c.c_cdr;
361          base[5]= V44;}          base[5]= V44;}
362          {register object V46;          {register object V46;
# Line 394  static void L12() Line 377  static void L12()
377  static void L13()  static void L13()
378  {register object *base=vs_base;  {register object *base=vs_base;
379          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
380          vs_reserve(VM13);          vs_check;
         check_arg(2);  
381          vs_top=sup;          vs_top=sup;
382          {object V51=base[0]->c.c_cdr;          {object V51=base[0]->c.c_cdr;
         if(endp(V51))invalid_macro_call();  
383          {object V52= (V51->c.c_car);          {object V52= (V51->c.c_car);
         if(endp(V52))invalid_macro_call();  
384          base[2]= (V52->c.c_car);          base[2]= (V52->c.c_car);
385          V52=V52->c.c_cdr;          V52=V52->c.c_cdr;
         if(endp(V52))invalid_macro_call();  
386          base[3]= (V52->c.c_car);          base[3]= (V52->c.c_car);
387          V52=V52->c.c_cdr;          V52=V52->c.c_cdr;
388          if(endp(V52)){          if(endp(V52)){
389          base[4]= Cnil;          base[4]= Cnil;
390          } else {          } else {
391          base[4]= (V52->c.c_car);          base[4]= (V52->c.c_car);
392          V52=V52->c.c_cdr;}          }}
         if(!endp(V52))invalid_macro_call();}  
393          V51=V51->c.c_cdr;          V51=V51->c.c_cdr;
394          base[5]= V51;}          base[5]= V51;}
395          {object V53;          {object V53;
# Line 431  static void L13() Line 409  static void L13()
409  static void L14()  static void L14()
410  {register object *base=vs_base;  {register object *base=vs_base;
411          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
412          vs_reserve(VM14);          vs_check;
         check_arg(2);  
413          vs_top=sup;          vs_top=sup;
414          {object V57=base[0]->c.c_cdr;          {object V57=base[0]->c.c_cdr;
         if(endp(V57))invalid_macro_call();  
415          {object V58= (V57->c.c_car);          {object V58= (V57->c.c_car);
         if(endp(V58))invalid_macro_call();  
416          base[2]= (V58->c.c_car);          base[2]= (V58->c.c_car);
417          V58=V58->c.c_cdr;          V58=V58->c.c_cdr;
         if(endp(V58))invalid_macro_call();  
418          base[3]= (V58->c.c_car);          base[3]= (V58->c.c_car);
419          V58=V58->c.c_cdr;          V58=V58->c.c_cdr;
420          if(endp(V58)){          if(endp(V58)){
421          base[4]= Cnil;          base[4]= Cnil;
422          } else {          } else {
423          base[4]= (V58->c.c_car);          base[4]= (V58->c.c_car);
424          V58=V58->c.c_cdr;}          }}
         if(!endp(V58))invalid_macro_call();}  
425          V57=V57->c.c_cdr;          V57=V57->c.c_cdr;
426          base[5]= V57;}          base[5]= V57;}
427          {object V59;          {object V59;
# Line 468  static void L14() Line 441  static void L14()
441  static void L15()  static void L15()
442  {register object *base=vs_base;  {register object *base=vs_base;
443          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
444          vs_reserve(VM15);          vs_check;
445          bds_check;          bds_check;
446          {object V63;          {object V63;
         check_arg(1);  
447          V63=(base[0]);          V63=(base[0]);
448          vs_top=sup;          vs_top=sup;
449          goto TTL;          goto TTL;
# Line 483  TTL:; Line 455  TTL:;
455          Llist();          Llist();
456          vs_top=sup;          vs_top=sup;
457          V64= vs_base[0];          V64= vs_base[0];
458          if((car((V64)))==Cnil){          if((CMPcar((V64)))==Cnil){
459          goto T93;}          goto T93;}
460          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
461          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
462          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
463          base[2]= Ct;          base[2]= Ct;
464          base[3]= VV[36];          base[3]= VV[36];
# Line 500  TTL:; Line 472  TTL:;
472          return;          return;
473          goto T93;          goto T93;
474  T93:;  T93:;
475          base[1]= cdr((V64));          base[1]= CMPcdr((V64));
476          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
477          Lvalues_list();          Lvalues_list();
478          return;}          return;}
# Line 519  TTL:; Line 491  TTL:;
491          V67= Cnil;          V67= Cnil;
492          {register object V68;          {register object V68;
493          register object V69;          register object V69;
494          V68= symbol_value(VV[37]);          V68= (VV[37]->s.s_dbind);
495          V69= car((V68));          V69= CMPcar((V68));
496          goto T108;          goto T108;
497  T108:;  T108:;
498          if(!(endp_prop((V68)))){          if(!(((V68))==Cnil)){
499          goto T109;}          goto T109;}
500          goto T104;          goto T104;
501          goto T109;          goto T109;
# Line 531  T109:; Line 503  T109:;
503          if(!(type_of((V69))==t_cons)){          if(!(type_of((V69))==t_cons)){
504          goto T113;}          goto T113;}
505          {register object V70;          {register object V70;
506          V70= list(3,car((V69)),VV[38],cadr((V69)));          V70= list(3,CMPcar((V69)),VV[38],CMPcadr((V69)));
507          V67= make_cons((V70),(V67));}          V67= make_cons((V70),(V67));}
508          goto T113;          goto T113;
509  T113:;  T113:;
510          V68= cdr((V68));          V68= CMPcdr((V68));
511          V69= car((V68));          V69= CMPcar((V68));
512          goto T108;}          goto T108;}
513          goto T104;          goto T104;
514  T104:;  T104:;
# Line 554  T123:; Line 526  T123:;
526          Llist();          Llist();
527          vs_top=sup;          vs_top=sup;
528          V72= vs_base[0];          V72= vs_base[0];
529          if((car((V72)))==Cnil){          if((CMPcar((V72)))==Cnil){
530          goto T131;}          goto T131;}
531          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
532          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
533          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
534          base[1]= Ct;          base[1]= Ct;
535          base[2]= VV[40];          base[2]= VV[40];
# Line 570  T123:; Line 542  T123:;
542          VMR16(V74)}          VMR16(V74)}
543          goto T131;          goto T131;
544  T131:;  T131:;
545          {object V75 = cadr((V72));          {object V75 = CMPcadr((V72));
546          VMR16(V75)}}}          VMR16(V75)}}}
547          base[0]=base[0];          base[0]=base[0];
548          return Cnil;          return Cnil;
# Line 588  TTL:; Line 560  TTL:;
560          V78= Cnil;          V78= Cnil;
561          {register object V79;          {register object V79;
562          register object V80;          register object V80;
563          V79= symbol_value(VV[37]);          V79= (VV[37]->s.s_dbind);
564          V80= car((V79));          V80= CMPcar((V79));
565          goto T145;          goto T145;
566  T145:;  T145:;
567          if(!(endp_prop((V79)))){          if(!(((V79))==Cnil)){
568          goto T146;}          goto T146;}
569          goto T141;          goto T141;
570          goto T146;          goto T146;
# Line 600  T146:; Line 572  T146:;
572          if(!(type_of((V80))==t_cons)){          if(!(type_of((V80))==t_cons)){
573          goto T150;}          goto T150;}
574          {register object V81;          {register object V81;
575          V81= list(3,car((V80)),VV[38],cadr((V80)));          V81= list(3,CMPcar((V80)),VV[38],CMPcadr((V80)));
576          V78= make_cons((V81),(V78));}          V78= make_cons((V81),(V78));}
577          goto T150;          goto T150;
578  T150:;  T150:;
579          V79= cdr((V79));          V79= CMPcdr((V79));
580          V80= car((V79));          V80= CMPcar((V79));
581          goto T145;}          goto T145;}
582          goto T141;          goto T141;
583  T141:;  T141:;
# Line 617  T141:; Line 589  T141:;
589          Llist();          Llist();
590          vs_top=sup;          vs_top=sup;
591          V82= vs_base[0];          V82= vs_base[0];
592          if((car((V82)))==Cnil){          if((CMPcar((V82)))==Cnil){
593          goto T164;}          goto T164;}
594          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
595          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
596          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
597          base[1]= Ct;          base[1]= Ct;
598          base[2]= VV[44];          base[2]= VV[44];
# Line 633  T141:; Line 605  T141:;
605          VMR17(V84)}          VMR17(V84)}
606          goto T164;          goto T164;
607  T164:;  T164:;
608          {object V85 = cadr((V82));          {object V85 = CMPcadr((V82));
609          VMR17(V85)}}}          VMR17(V85)}}}
610          base[0]=base[0];          base[0]=base[0];
611          return Cnil;          return Cnil;
# Line 651  TTL:; Line 623  TTL:;
623          V92= Cnil;          V92= Cnil;
624          {register object V93;          {register object V93;
625          register object V94;          register object V94;
626          V93= symbol_value(VV[37]);          V93= (VV[37]->s.s_dbind);
627          V94= car((V93));          V94= CMPcar((V93));
628          goto T178;          goto T178;
629  T178:;  T178:;
630          if(!(endp_prop((V93)))){          if(!(((V93))==Cnil)){
631          goto T179;}          goto T179;}
632          goto T174;          goto T174;
633          goto T179;          goto T179;
# Line 663  T179:; Line 635  T179:;
635          if(!(type_of((V94))==t_cons)){          if(!(type_of((V94))==t_cons)){
636          goto T183;}          goto T183;}
637          {register object V95;          {register object V95;
638          V95= list(3,car((V94)),VV[38],cadr((V94)));          V95= list(3,CMPcar((V94)),VV[38],CMPcadr((V94)));
639          V92= make_cons((V95),(V92));}          V92= make_cons((V95),(V92));}
640          goto T183;          goto T183;
641  T183:;  T183:;
642          V93= cdr((V93));          V93= CMPcdr((V93));
643          V94= car((V93));          V94= CMPcar((V93));
644          goto T178;}          goto T178;}
645          goto T174;          goto T174;
646  T174:;  T174:;
647          if(symbol_value(VV[46])==Cnil){          if((VV[46]->s.s_dbind)==Cnil){
648          goto T193;}          goto T193;}
649          (void)((*(LnkLI61))((V90)));          base[0]= (V90);
650            vs_top=(vs_base=base+0)+1;
651            (void) (*Lnk61)();
652            vs_top=sup;
653          goto T193;          goto T193;
654  T193:;  T193:;
655          if(((V92))==Cnil){          if(((V92))==Cnil){
656          goto T194;}          goto T195;}
657          V96= nreverse((V92));          V96= nreverse((V92));
658          V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil);          V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil);
659          goto T194;          goto T195;
660  T194:;  T195:;
661          {object V97;          {object V97;
662          V98= list(2,VV[35],(V89));          V98= list(2,VV[35],(V89));
663          V99= list(2,VV[35],make_cons((V90),(V91)));          V99= list(2,VV[35],make_cons((V90),(V91)));
# Line 692  T194:; Line 667  T194:;
667          Llist();          Llist();
668          vs_top=sup;          vs_top=sup;
669          V97= vs_base[0];          V97= vs_base[0];
670          if((car((V97)))==Cnil){          if((CMPcar((V97)))==Cnil){
671          goto T202;}          goto T203;}
672          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
673          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
674          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
675          base[1]= Ct;          base[1]= Ct;
676          base[2]= VV[49];          base[2]= VV[49];
# Line 706  T194:; Line 681  T194:;
681          {object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91))));          {object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91))));
682          bds_unwind1;          bds_unwind1;
683          VMR18(V100)}          VMR18(V100)}
684          goto T202;          goto T203;
685  T202:;  T203:;
686          {object V101 = cadr((V97));          {object V101 = CMPcadr((V97));
687          VMR18(V101)}}}          VMR18(V101)}}}
688          base[0]=base[0];          base[0]=base[0];
689          return Cnil;          return Cnil;
# Line 718  T202:; Line 693  T202:;
693  static void L19()  static void L19()
694  {register object *base=vs_base;  {register object *base=vs_base;
695          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
696          vs_reserve(VM19);          vs_check;
697          bds_check;          bds_check;
698          {object V102;          {object V102;
         check_arg(1);  
699          V102=(base[0]);          V102=(base[0]);
700          vs_top=sup;          vs_top=sup;
701          goto TTL;          goto TTL;
702  TTL:;  TTL:;
703          bds_bind(VV[51],symbol_value(VV[52]));          bds_bind(VV[51],(VV[52]->s.s_dbind));
704          vs_base=vs_top;          vs_base=vs_top;
705          (void) (*Lnk62)();          (void) (*Lnk62)();
706          vs_top=sup;          vs_top=sup;
707          V103= vs_base[0];          V103= vs_base[0];
708          bds_bind(VV[52],one_minus(V103));          bds_bind(VV[52],one_minus(V103));
709          bds_bind(VV[53],symbol_value(VV[54]));          bds_bind(VV[53],(VV[54]->s.s_dbind));
710          base[5]= VV[56];          base[5]= VV[56];
711          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
712          Lfind_package();          Lfind_package();
713          vs_top=sup;          vs_top=sup;
714          V104= vs_base[0];          V104= vs_base[0];
715          bds_bind(VV[55],make_cons(V104,symbol_value(VV[55])));          bds_bind(VV[55],make_cons(V104,(VV[55]->s.s_dbind)));
716          base[5]= (V102);          base[5]= (V102);
717          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
718          (void) (*Lnk63)();          (void) (*Lnk63)();
# Line 771  register object V112;object V113; Line 745  register object V112;object V113;
745  TTL:;  TTL:;
746          {register object V114;          {register object V114;
747          register object V115;          register object V115;
748          base[0]= (V112);          V114= (((V112))->s.s_plist);
         vs_top=(vs_base=base+0)+1;  
         Lsymbol_plist();  
         vs_top=sup;  
         V114= vs_base[0];  
749          V115= Cnil;          V115= Cnil;
750          goto T224;          goto T224;
751  T224:;  T224:;
752          V115= car((V114));          V115= CMPcar((V114));
753          if(!(type_of((V115))==t_symbol)){          if(!(type_of((V115))==t_symbol)){
754          goto T229;}          goto T229;}
755          if((get((V115),VV[57],Cnil))==Cnil){          {object V116 =((V115))->s.s_plist;
756             object ind= VV[57];
757            while(V116!=Cnil){
758            if(V116->c.c_car==ind){
759            if(((V116->c.c_cdr->c.c_car))==Cnil){
760            goto T229;}
761            goto T232;
762            }else V116=V116->c.c_cdr->c.c_cdr;}
763          goto T229;}          goto T229;}
764          V114= cddr((V114));          goto T232;
765    T232:;
766            V114= CMPcddr((V114));
767          (void)(remprop((V112),(V115)));          (void)(remprop((V112),(V115)));
768          goto T227;          goto T227;
769          goto T229;          goto T229;
770  T229:;  T229:;
771          V114= cddr((V114));          V114= CMPcddr((V114));
772          goto T227;          goto T227;
773  T227:;  T227:;
774          if(!(((V114))==Cnil)){          if(!(((V114))==Cnil)){
# Line 803  T236:; Line 782  T236:;
782          goto T222;          goto T222;
783          goto T222;          goto T222;
784  T222:;  T222:;
785          {object V116 = (*(LnkLI64))((V112),(V113));          {object V117 = (*(LnkLI64))((V112),(V113));
786          VMR21(V116)}}          VMR21(V117)}}
         base[0]=base[0];  
787          return Cnil;          return Cnil;
788  }  }
789  static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* COMPILER-DEF-HOOK */  static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* COMPILER-DEF-HOOK */
790  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* ERROR-SET */  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* ERROR-SET */
791  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* IHS-TOP */  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* IHS-TOP */
792  static object  LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* ADD-MACRO-CALLEE */  static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* ADD-MACRO-CALLEE */
793  static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* CMP-TOPLEVEL-EVAL */  static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* CMP-TOPLEVEL-EVAL */
794  static object  LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* BREAK */  static object  LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* BREAK */
795  static object  LnkTLI58(){return call_proc0(VV[58],(void **)(void *)&LnkLI58);} /* PRINT-CURRENT-FORM */  static object  LnkTLI58(){return call_proc0(VV[58],(void **)(void *)&LnkLI58);} /* PRINT-CURRENT-FORM */

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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