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

Diff of /gcl/cmpnew/cmploc.c

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

revision 1.6 by camm, Sun Feb 9 22:35:14 2003 UTC revision 1.7 by camm, Wed Feb 26 22:21:35 2003 UTC
# Line 10  static void L1() Line 10  static void L1()
10          vs_reserve(VM1);          vs_reserve(VM1);
11          check_arg(0);          check_arg(0);
12          vs_top=sup;          vs_top=sup;
13  goto TTL;          goto TTL;
14  TTL:;  TTL:;
15          princ_str("first",VV[0]);          princ_str("first",VV[0]);
16          base[0]= Cnil;          base[0]= Cnil;
# Line 22  TTL:; Line 22  TTL:;
22  static object LI2()  static object LI2()
23    
24  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
25  goto TTL;          goto TTL;
26  TTL:;  TTL:;
27          princ_str("va_arg(ap,object)",VV[0]);          princ_str("va_arg(ap,object)",VV[0]);
28          {object V1 = Cnil;          {object V1 = Cnil;
# Line 39  static void L3() Line 39  static void L3()
39          check_arg(1);          check_arg(1);
40          V2=(base[0]);          V2=(base[0]);
41          vs_top=sup;          vs_top=sup;
42  goto TTL;          goto TTL;
43  TTL:;  TTL:;
44          {register object V3;          {register object V3;
45          V3= Cnil;          V3= Cnil;
# Line 48  TTL:; Line 48  TTL:;
48          base[1]= (*(LnkLI34))((V2));          base[1]= (*(LnkLI34))((V2));
49          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
50          return;          return;
51  goto T5;          goto T5;
52  T5:;  T5:;
53          if(!((symbol_value(VV[1]))==(VV[3]))){          if(!((symbol_value(VV[1]))==(VV[3]))){
54          goto T8;}          goto T8;}
# Line 60  T5:; Line 60  T5:;
60          goto T15;          goto T15;
61          }else V4=V4->c.c_cdr;          }else V4=V4->c.c_cdr;
62          goto T11;}          goto T11;}
63  goto T15;          goto T15;
64  T15:;  T15:;
65          if((cadr((V2)))==Cnil){          if((cadr((V2)))==Cnil){
66          goto T11;}          goto T11;}
# Line 75  T15:; Line 75  T15:;
75          base[1]= Cnil;          base[1]= Cnil;
76          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
77          return;          return;
78  goto T11;          goto T11;
79  T11:;  T11:;
80          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
81          goto T25;}          goto T25;}
# Line 87  T11:; Line 87  T11:;
87          base[1]= Cnil;          base[1]= Cnil;
88          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
89          return;          return;
90  goto T25;          goto T25;
91  T25:;  T25:;
92          base[1]= Cnil;          base[1]= Cnil;
93          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
94          return;          return;
95  goto T8;          goto T8;
96  T8:;  T8:;
97          if(!((symbol_value(VV[1]))==(VV[6]))){          if(!((symbol_value(VV[1]))==(VV[6]))){
98          goto T33;}          goto T33;}
# Line 101  T8:; Line 101  T8:;
101          base[1]= (*(LnkLI37))((V2));          base[1]= (*(LnkLI37))((V2));
102          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
103          return;          return;
104  goto T36;          goto T36;
105  T36:;  T36:;
106          base[1]= Cnil;          base[1]= Cnil;
107          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
108          return;          return;
109  goto T33;          goto T33;
110  T33:;  T33:;
111          if(!((symbol_value(VV[1]))==(VV[8]))){          if(!((symbol_value(VV[1]))==(VV[8]))){
112          goto T39;}          goto T39;}
# Line 114  T33:; Line 114  T33:;
114          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
115          (void) (*Lnk38)();          (void) (*Lnk38)();
116          return;          return;
117  goto T39;          goto T39;
118  T39:;  T39:;
119          if(!((symbol_value(VV[1]))==(VV[9]))){          if(!((symbol_value(VV[1]))==(VV[9]))){
120          goto T43;}          goto T43;}
# Line 122  T39:; Line 122  T39:;
122          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
123          (void) (*Lnk39)();          (void) (*Lnk39)();
124          return;          return;
125  goto T43;          goto T43;
126  T43:;  T43:;
127          if(!((symbol_value(VV[1]))==(VV[10]))){          if(!((symbol_value(VV[1]))==(VV[10]))){
128          goto T47;}          goto T47;}
# Line 130  T43:; Line 130  T43:;
130          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
131          (void) (*Lnk40)();          (void) (*Lnk40)();
132          return;          return;
133  goto T47;          goto T47;
134  T47:;  T47:;
135          if(!((symbol_value(VV[1]))==(VV[11]))){          if(!((symbol_value(VV[1]))==(VV[11]))){
136          goto T51;}          goto T51;}
# Line 138  T47:; Line 138  T47:;
138          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
139          (void) (*Lnk41)();          (void) (*Lnk41)();
140          return;          return;
141  goto T51;          goto T51;
142  T51:;  T51:;
143          if(!(type_of(symbol_value(VV[1]))==t_cons)){          if(!(type_of(symbol_value(VV[1]))==t_cons)){
144          goto T54;}          goto T54;}
145          if(type_of(car(symbol_value(VV[1])))==t_symbol){          if(type_of(car(symbol_value(VV[1])))==t_symbol){
146          goto T55;}          goto T55;}
147  goto T54;          goto T54;
148  T54:;  T54:;
149          base[1]= (*(LnkLI42))();          base[1]= (*(LnkLI42))();
150          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
151          return;          return;
152  goto T55;          goto T55;
153  T55:;  T55:;
154          V3= get(car(symbol_value(VV[1])),VV[12],Cnil);          V3= get(car(symbol_value(VV[1])),VV[12],Cnil);
155          if(((V3))==Cnil){          if(((V3))==Cnil){
# Line 164  T55:; Line 164  T55:;
164          vs_base=base+2;}          vs_base=base+2;}
165          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
166          return;          return;
167  goto T60;          goto T60;
168  T60:;  T60:;
169          V3= get(car(symbol_value(VV[1])),VV[13],Cnil);          V3= get(car(symbol_value(VV[1])),VV[13],Cnil);
170          if(((V3))==Cnil){          if(((V3))==Cnil){
# Line 185  T60:; Line 185  T60:;
185          base[1]= Cnil;          base[1]= Cnil;
186          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
187          return;          return;
188  goto T67;          goto T67;
189  T67:;  T67:;
190          base[1]= (*(LnkLI42))();          base[1]= (*(LnkLI42))();
191          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 202  static void L4() Line 202  static void L4()
202          check_arg(1);          check_arg(1);
203          V7=(base[0]);          V7=(base[0]);
204          vs_top=sup;          vs_top=sup;
205  goto TTL;          goto TTL;
206  TTL:;  TTL:;
207          if(!(((V7))==(Cnil))){          if(!(((V7))==(Cnil))){
208          goto T78;}          goto T78;}
# Line 210  TTL:; Line 210  TTL:;
210          base[1]= Cnil;          base[1]= Cnil;
211          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
212          return;          return;
213  goto T78;          goto T78;
214  T78:;  T78:;
215          if(!(((V7))==(Ct))){          if(!(((V7))==(Ct))){
216          goto T82;}          goto T82;}
# Line 218  T78:; Line 218  T78:;
218          base[1]= Cnil;          base[1]= Cnil;
219          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
220          return;          return;
221  goto T82;          goto T82;
222  T82:;  T82:;
223          if(!(((V7))==(VV[7]))){          if(!(((V7))==(VV[7]))){
224          goto T86;}          goto T86;}
# Line 226  T82:; Line 226  T82:;
226          base[1]= Cnil;          base[1]= Cnil;
227          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
228          return;          return;
229  goto T86;          goto T86;
230  T86:;  T86:;
231          if(!(type_of((V7))==t_cons)){          if(!(type_of((V7))==t_cons)){
232          goto T89;}          goto T89;}
233          if(type_of(car((V7)))==t_symbol){          if(type_of(car((V7)))==t_symbol){
234          goto T90;}          goto T90;}
235  goto T89;          goto T89;
236  T89:;  T89:;
237          base[1]= (*(LnkLI42))();          base[1]= (*(LnkLI42))();
238          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
239          return;          return;
240  goto T90;          goto T90;
241  T90:;  T90:;
242          {object V8;          {object V8;
243          V8= get(car((V7)),VV[13],Cnil);          V8= get(car((V7)),VV[13],Cnil);
244          if(((V8))!=Cnil){          if(((V8))!=Cnil){
245          goto T95;}          goto T95;}
246          (void)((*(LnkLI42))());          (void)((*(LnkLI42))());
247  goto T95;          goto T95;
248  T95:;  T95:;
249          base[1]= (V8);          base[1]= (V8);
250          {object V9;          {object V9;
# Line 263  static object LI5(V11) Line 263  static object LI5(V11)
263    
264  register object V11;  register object V11;
265  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
266  goto TTL;          goto TTL;
267  TTL:;  TTL:;
268          {object V12;          {object V12;
269          V12= (((V11))==(VV[7])?Ct:Cnil);          V12= (((V11))==(VV[7])?Ct:Cnil);
# Line 271  TTL:; Line 271  TTL:;
271          goto T102;}          goto T102;}
272          {object V13 = (V12);          {object V13 = (V12);
273          VMR5(V13)}          VMR5(V13)}
274  goto T102;          goto T102;
275  T102:;  T102:;
276          if(!(type_of((V11))==t_cons)){          if(!(type_of((V11))==t_cons)){
277          goto T105;}          goto T105;}
# Line 285  T102:; Line 285  T102:;
285          setq(VV[16],Ct);          setq(VV[16],Ct);
286          {object V14 = Ct;          {object V14 = Ct;
287          VMR5(V14)}          VMR5(V14)}
288  goto T105;          goto T105;
289  T105:;  T105:;
290          if(!(type_of((V11))==t_cons)){          if(!(type_of((V11))==t_cons)){
291          goto T117;}          goto T117;}
# Line 306  T105:; Line 306  T105:;
306          setq(VV[16],Ct);          setq(VV[16],Ct);
307          {object V18 = Ct;          {object V18 = Ct;
308          VMR5(V18)}          VMR5(V18)}
309  goto T117;          goto T117;
310  T117:;  T117:;
311          {object V19 = (*(LnkLI37))((V11));          {object V19 = (*(LnkLI37))((V11));
312          VMR5(V19)}}          VMR5(V19)}}
# Line 319  static object LI6(V21) Line 319  static object LI6(V21)
319  object V21;  object V21;
320  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
321          bds_check;          bds_check;
322  goto TTL;          goto TTL;
323  TTL:;  TTL:;
324          bds_bind(VV[19],symbol_value(VV[19]));          bds_bind(VV[19],symbol_value(VV[19]));
325          princ_str("\n   ",VV[0]);          princ_str("\n   ",VV[0]);
# Line 345  static object LI7(V26) Line 345  static object LI7(V26)
345    
346  object V26;  object V26;
347  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
348  goto TTL;          goto TTL;
349  TTL:;  TTL:;
350          princ_str("vs_base[",VV[0]);          princ_str("vs_base[",VV[0]);
351          (void)((*(LnkLI36))((V26)));          (void)((*(LnkLI36))((V26)));
# Line 360  static object LI8(V29) Line 360  static object LI8(V29)
360    
361  object V29;  object V29;
362  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
363  goto TTL;          goto TTL;
364  TTL:;  TTL:;
365          princ_str("(V",VV[0]);          princ_str("(V",VV[0]);
366          (void)((*(LnkLI36))((V29)));          (void)((*(LnkLI36))((V29)));
# Line 375  static object LI9(V32) Line 375  static object LI9(V32)
375    
376  object V32;  object V32;
377  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
378  goto TTL;          goto TTL;
379  TTL:;  TTL:;
380          princ_str("(V",VV[0]);          princ_str("(V",VV[0]);
381          (void)((*(LnkLI36))((V32)));          (void)((*(LnkLI36))((V32)));
# Line 390  static object LI10(V35) Line 390  static object LI10(V35)
390    
391  object V35;  object V35;
392  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
393  goto TTL;          goto TTL;
394  TTL:;  TTL:;
395          princ_str("(V",VV[0]);          princ_str("(V",VV[0]);
396          (void)((*(LnkLI36))((V35)));          (void)((*(LnkLI36))((V35)));
# Line 416  static object LI11(object V37,object fir Line 416  static object LI11(object V37,object fir
416          else {          else {
417          V39= first;}          V39= first;}
418          --narg; goto T156;          --narg; goto T156;
419  goto T155;          goto T155;
420  T155:;  T155:;
421          V39= Cnil;          V39= Cnil;
422  goto T156;          goto T156;
423  T156:;  T156:;
424          if(((V39))==Cnil){          if(((V39))==Cnil){
425          goto T158;}          goto T158;}
# Line 427  T156:; Line 427  T156:;
427          V40= symbol_name((V39));          V40= symbol_name((V39));
428          (void)((*(LnkLI36))(/* INLINE-ARGS */V40));          (void)((*(LnkLI36))(/* INLINE-ARGS */V40));
429          princ_str(" */",VV[0]);          princ_str(" */",VV[0]);
430  goto T158;          goto T158;
431  T158:;  T158:;
432          princ_char(86,VV[0]);          princ_char(86,VV[0]);
433          (void)((*(LnkLI36))((V38)));          (void)((*(LnkLI36))((V38)));
# Line 442  static object LI12(V43) Line 442  static object LI12(V43)
442    
443  object V43;  object V43;
444  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
445  goto TTL;          goto TTL;
446  TTL:;  TTL:;
447          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
448          (void)((*(LnkLI36))((V43)));          (void)((*(LnkLI36))((V43)));
# Line 461  static void L13() Line 461  static void L13()
461          check_arg(1);          check_arg(1);
462          V45=(base[0]);          V45=(base[0]);
463          vs_top=sup;          vs_top=sup;
464  goto TTL;          goto TTL;
465  TTL:;  TTL:;
466          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
467          goto T170;}          goto T170;}
# Line 476  TTL:; Line 476  TTL:;
476          base[1]= Cnil;          base[1]= Cnil;
477          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
478          return;          return;
479  goto T170;          goto T170;
480  T170:;  T170:;
481          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
482          goto T179;}          goto T179;}
# Line 488  T170:; Line 488  T170:;
488          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
489          (void) (*Lnk45)();          (void) (*Lnk45)();
490          return;          return;
491  goto T179;          goto T179;
492  T179:;  T179:;
493          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
494          goto T188;}          goto T188;}
# Line 498  T179:; Line 498  T179:;
498          base[1]= Cnil;          base[1]= Cnil;
499          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
500          return;          return;
501  goto T188;          goto T188;
502  T188:;  T188:;
503          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
504          goto T194;}          goto T194;}
# Line 508  T188:; Line 508  T188:;
508          goto T197;          goto T197;
509          }else V48=V48->c.c_cdr;          }else V48=V48->c.c_cdr;
510          goto T194;}          goto T194;}
511  goto T197;          goto T197;
512  T197:;  T197:;
513          princ_str("((long)(",VV[0]);          princ_str("((long)(",VV[0]);
514          base[1]= caddr((V45));          base[1]= caddr((V45));
# Line 520  T197:; Line 520  T197:;
520          base[1]= Cnil;          base[1]= Cnil;
521          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
522          return;          return;
523  goto T194;          goto T194;
524  T194:;  T194:;
525          princ_str("fix(",VV[0]);          princ_str("fix(",VV[0]);
526          (void)((*(LnkLI36))((V45)));          (void)((*(LnkLI36))((V45)));
# Line 546  static void L14() Line 546  static void L14()
546          V50=(base[1]);          V50=(base[1]);
547          vs_top=sup;          vs_top=sup;
548          goto T208;          goto T208;
549  goto T207;          goto T207;
550  T207:;  T207:;
551          V50= Cnil;          V50= Cnil;
552  goto T208;          goto T208;
553  T208:;  T208:;
554          {object V51;          {object V51;
555          object V52;          object V52;
# Line 558  T208:; Line 558  T208:;
558          goto T212;}          goto T212;}
559          V52= Cnil;          V52= Cnil;
560          goto T211;          goto T211;
561  goto T212;          goto T212;
562  T212:;  T212:;
563          V52= car((V49));          V52= car((V49));
564  goto T211;          goto T211;
565  T211:;  T211:;
566          {object V53= (V52);          {object V53= (V52);
567          if((V53!= VV[21]))goto T215;          if((V53!= VV[21]))goto T215;
# Line 573  T211:; Line 573  T211:;
573          vs_top=sup;          vs_top=sup;
574          princ_char(41,VV[0]);          princ_char(41,VV[0]);
575          goto T214;          goto T214;
576  goto T215;          goto T215;
577  T215:;  T215:;
578          if((V53!= VV[46]))goto T222;          if((V53!= VV[46]))goto T222;
579          V51= Cnil;          V51= Cnil;
# Line 583  T215:; Line 583  T215:;
583          (void) (*Lnk45)();          (void) (*Lnk45)();
584          vs_top=sup;          vs_top=sup;
585          goto T214;          goto T214;
586  goto T222;          goto T222;
587  T222:;  T222:;
588          if((V53!= VV[22]))goto T227;          if((V53!= VV[22]))goto T227;
589          princ_str("stoi(",VV[0]);          princ_str("stoi(",VV[0]);
590          (void)((*(LnkLI36))(caddr((V49))));          (void)((*(LnkLI36))(caddr((V49))));
591          princ_char(41,VV[0]);          princ_char(41,VV[0]);
592          goto T214;          goto T214;
593  goto T227;          goto T227;
594  T227:;  T227:;
595          if((V53!= VV[17]))goto T231;          if((V53!= VV[17]))goto T231;
596          V55= structure_ref(cadr((V49)),VV[17],1);          V55= structure_ref(cadr((V49)),VV[17],1);
# Line 601  T227:; Line 601  T227:;
601          V56= structure_ref(cadr((V49)),VV[17],4);          V56= structure_ref(cadr((V49)),VV[17],4);
602          (void)((*(LnkLI36))(/* INLINE-ARGS */V56));          (void)((*(LnkLI36))(/* INLINE-ARGS */V56));
603          goto T214;          goto T214;
604  goto T232;          goto T232;
605  T232:;  T232:;
606          if((V54!= VV[20]))goto T237;          if((V54!= VV[20]))goto T237;
607          princ_str("stoi(V",VV[0]);          princ_str("stoi(V",VV[0]);
# Line 609  T232:; Line 609  T232:;
609          (void)((*(LnkLI36))(/* INLINE-ARGS */V57));          (void)((*(LnkLI36))(/* INLINE-ARGS */V57));
610          princ_char(41,VV[0]);          princ_char(41,VV[0]);
611          goto T214;          goto T214;
612  goto T237;          goto T237;
613  T237:;  T237:;
614          princ_str("otoi(",VV[0]);          princ_str("otoi(",VV[0]);
615          (void)((*(LnkLI36))((V49)));          (void)((*(LnkLI36))((V49)));
616          princ_char(41,VV[0]);          princ_char(41,VV[0]);
617          goto T214;}          goto T214;}
618  goto T231;          goto T231;
619  T231:;  T231:;
620          princ_str("otoi(",VV[0]);          princ_str("otoi(",VV[0]);
621          (void)((*(LnkLI36))((V49)));          (void)((*(LnkLI36))((V49)));
622          princ_char(41,VV[0]);}          princ_char(41,VV[0]);}
623  goto T214;          goto T214;
624  T214:;  T214:;
625          if((V51)==Cnil){          if((V51)==Cnil){
626          base[3]= Cnil;          base[3]= Cnil;
# Line 631  T214:; Line 631  T214:;
631          base[3]= Cnil;          base[3]= Cnil;
632          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
633          return;          return;
634  goto T247;          goto T247;
635  T247:;  T247:;
636          base[3]= (*(LnkLI48))();          base[3]= (*(LnkLI48))();
637          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 644  static object LI15(V59) Line 644  static object LI15(V59)
644    
645  register object V59;  register object V59;
646  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
647  goto TTL;          goto TTL;
648  TTL:;  TTL:;
649          if(type_of((V59))==t_cons){          if(type_of((V59))==t_cons){
650          goto T249;}          goto T249;}
651          {object V60 = Cnil;          {object V60 = Cnil;
652          VMR15(V60)}          VMR15(V60)}
653  goto T249;          goto T249;
654  T249:;{object V61;  T249:;{object V61;
655          if((car((V59)))==(VV[17])){          if((car((V59)))==(VV[17])){
656          goto T253;}          goto T253;}
657          V61= Cnil;          V61= Cnil;
658          goto T252;          goto T252;
659  goto T253;          goto T253;
660  T253:;  T253:;
661          V62= structure_ref(cadr((V59)),VV[17],1);          V62= structure_ref(cadr((V59)),VV[17],1);
662          V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil);          V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil);
663  goto T252;          goto T252;
664  T252:;  T252:;
665          if(V61==Cnil)goto T251;          if(V61==Cnil)goto T251;
666          {object V63 = V61;          {object V63 = V61;
667          VMR15(V63)}          VMR15(V63)}
668  goto T251;          goto T251;
669  T251:;}  T251:;}
670          if(!((car((V59)))==(VV[21]))){          if(!((car((V59)))==(VV[21]))){
671          goto T255;}          goto T255;}
672          {object V64 = Ct;          {object V64 = Ct;
673          VMR15(V64)}          VMR15(V64)}
674  goto T255;          goto T255;
675  T255:;  T255:;
676          {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);          {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);
677          VMR15(V65)}          VMR15(V65)}
# Line 683  static object LI16(V68,V69) Line 683  static object LI16(V68,V69)
683    
684  object V68;object V69;  object V68;object V69;
685  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
686  goto TTL;          goto TTL;
687  TTL:;  TTL:;
688          if(((V68))==Cnil){          if(((V68))==Cnil){
689          goto T258;}          goto T258;}
# Line 692  TTL:; Line 692  TTL:;
692          princ_char(93,VV[0]);          princ_char(93,VV[0]);
693          {object V70 = Cnil;          {object V70 = Cnil;
694          VMR16(V70)}          VMR16(V70)}
695  goto T258;          goto T258;
696  T258:;  T258:;
697          princ_str("small_fixnum(",VV[0]);          princ_str("small_fixnum(",VV[0]);
698          (void)((*(LnkLI36))((V69)));          (void)((*(LnkLI36))((V69)));
# Line 711  static void L17() Line 711  static void L17()
711          check_arg(1);          check_arg(1);
712          V72=(base[0]);          V72=(base[0]);
713          vs_top=sup;          vs_top=sup;
714  goto TTL;          goto TTL;
715  TTL:;  TTL:;
716          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
717          goto T267;}          goto T267;}
# Line 726  TTL:; Line 726  TTL:;
726          base[1]= Cnil;          base[1]= Cnil;
727          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
728          return;          return;
729  goto T267;          goto T267;
730  T267:;  T267:;
731          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
732          goto T276;}          goto T276;}
# Line 737  T267:; Line 737  T267:;
737          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
738          (void) (*Lnk45)();          (void) (*Lnk45)();
739          return;          return;
740  goto T276;          goto T276;
741  T276:;  T276:;
742          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
743          goto T283;}          goto T283;}
# Line 747  T276:; Line 747  T276:;
747          base[1]= Cnil;          base[1]= Cnil;
748          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
749          return;          return;
750  goto T283;          goto T283;
751  T283:;  T283:;
752          princ_str("char_code(",VV[0]);          princ_str("char_code(",VV[0]);
753          (void)((*(LnkLI36))((V72)));          (void)((*(LnkLI36))((V72)));
# Line 763  static object LI18(V76) Line 763  static object LI18(V76)
763    
764  register object V76;  register object V76;
765  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
766  goto TTL;          goto TTL;
767  TTL:;  TTL:;
768          if(type_of((V76))==t_cons){          if(type_of((V76))==t_cons){
769          goto T291;}          goto T291;}
770          {object V77 = Cnil;          {object V77 = Cnil;
771          VMR18(V77)}          VMR18(V77)}
772  goto T291;          goto T291;
773  T291:;{object V78;  T291:;{object V78;
774          if((car((V76)))==(VV[17])){          if((car((V76)))==(VV[17])){
775          goto T295;}          goto T295;}
776          V78= Cnil;          V78= Cnil;
777          goto T294;          goto T294;
778  goto T295;          goto T295;
779  T295:;  T295:;
780          V79= structure_ref(cadr((V76)),VV[17],1);          V79= structure_ref(cadr((V76)),VV[17],1);
781          V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil);          V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil);
782  goto T294;          goto T294;
783  T294:;  T294:;
784          if(V78==Cnil)goto T293;          if(V78==Cnil)goto T293;
785          {object V80 = V78;          {object V80 = V78;
786          VMR18(V80)}          VMR18(V80)}
787  goto T293;          goto T293;
788  T293:;}  T293:;}
789          if(!((car((V76)))==(VV[26]))){          if(!((car((V76)))==(VV[26]))){
790          goto T297;}          goto T297;}
791          {object V81 = Ct;          {object V81 = Ct;
792          VMR18(V81)}          VMR18(V81)}
793  goto T297;          goto T297;
794  T297:;  T297:;
795          {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);          {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);
796          VMR18(V82)}          VMR18(V82)}
# Line 802  static object LI19(V85,V86) Line 802  static object LI19(V85,V86)
802    
803  object V85;object V86;  object V85;object V86;
804  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
805  goto TTL;          goto TTL;
806  TTL:;  TTL:;
807          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
808          (void)((*(LnkLI36))((V85)));          (void)((*(LnkLI36))((V85)));
# Line 821  static void L20() Line 821  static void L20()
821          check_arg(1);          check_arg(1);
822          V88=(base[0]);          V88=(base[0]);
823          vs_top=sup;          vs_top=sup;
824  goto TTL;          goto TTL;
825  TTL:;  TTL:;
826          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
827          goto T303;}          goto T303;}
# Line 836  TTL:; Line 836  TTL:;
836          base[1]= Cnil;          base[1]= Cnil;
837          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
838          return;          return;
839  goto T303;          goto T303;
840  T303:;  T303:;
841          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
842          goto T312;}          goto T312;}
# Line 847  T303:; Line 847  T303:;
847          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
848          (void) (*Lnk45)();          (void) (*Lnk45)();
849          return;          return;
850  goto T312;          goto T312;
851  T312:;  T312:;
852          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
853          goto T319;}          goto T319;}
# Line 857  T312:; Line 857  T312:;
857          base[1]= Cnil;          base[1]= Cnil;
858          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
859          return;          return;
860  goto T319;          goto T319;
861  T319:;  T319:;
862          princ_str("lf(",VV[0]);          princ_str("lf(",VV[0]);
863          (void)((*(LnkLI36))((V88)));          (void)((*(LnkLI36))((V88)));
# Line 873  static object LI21(V92) Line 873  static object LI21(V92)
873    
874  register object V92;  register object V92;
875  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
876  goto TTL;          goto TTL;
877  TTL:;  TTL:;
878          if(type_of((V92))==t_cons){          if(type_of((V92))==t_cons){
879          goto T327;}          goto T327;}
880          {object V93 = Cnil;          {object V93 = Cnil;
881          VMR21(V93)}          VMR21(V93)}
882  goto T327;          goto T327;
883  T327:;{object V94;  T327:;{object V94;
884          if((car((V92)))==(VV[17])){          if((car((V92)))==(VV[17])){
885          goto T331;}          goto T331;}
886          V94= Cnil;          V94= Cnil;
887          goto T330;          goto T330;
888  goto T331;          goto T331;
889  T331:;  T331:;
890          V95= structure_ref(cadr((V92)),VV[17],1);          V95= structure_ref(cadr((V92)),VV[17],1);
891          V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil);          V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil);
892  goto T330;          goto T330;
893  T330:;  T330:;
894          if(V94==Cnil)goto T329;          if(V94==Cnil)goto T329;
895          {object V96 = V94;          {object V96 = V94;
896          VMR21(V96)}          VMR21(V96)}
897  goto T329;          goto T329;
898  T329:;}  T329:;}
899          if(!((car((V92)))==(VV[29]))){          if(!((car((V92)))==(VV[29]))){
900          goto T333;}          goto T333;}
901          {object V97 = Ct;          {object V97 = Ct;
902          VMR21(V97)}          VMR21(V97)}
903  goto T333;          goto T333;
904  T333:;  T333:;
905          {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);          {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);
906          VMR21(V98)}          VMR21(V98)}
# Line 912  static object LI22(V101,V102) Line 912  static object LI22(V101,V102)
912    
913  object V101;object V102;  object V101;object V102;
914  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
915  goto TTL;          goto TTL;
916  TTL:;  TTL:;
917          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
918          (void)((*(LnkLI36))((V101)));          (void)((*(LnkLI36))((V101)));
# Line 931  static void L23() Line 931  static void L23()
931          check_arg(1);          check_arg(1);
932          V104=(base[0]);          V104=(base[0]);
933          vs_top=sup;          vs_top=sup;
934  goto TTL;          goto TTL;
935  TTL:;  TTL:;
936          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
937          goto T339;}          goto T339;}
# Line 946  TTL:; Line 946  TTL:;
946          base[1]= Cnil;          base[1]= Cnil;
947          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
948          return;          return;
949  goto T339;          goto T339;
950  T339:;  T339:;
951          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
952          goto T348;}          goto T348;}
# Line 957  T339:; Line 957  T339:;
957          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
958          (void) (*Lnk45)();          (void) (*Lnk45)();
959          return;          return;
960  goto T348;          goto T348;
961  T348:;  T348:;
962          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
963          goto T355;}          goto T355;}
# Line 967  T348:; Line 967  T348:;
967          base[1]= Cnil;          base[1]= Cnil;
968          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
969          return;          return;
970  goto T355;          goto T355;
971  T355:;  T355:;
972          princ_str("sf(",VV[0]);          princ_str("sf(",VV[0]);
973          (void)((*(LnkLI36))((V104)));          (void)((*(LnkLI36))((V104)));
# Line 983  static object LI24(V108) Line 983  static object LI24(V108)
983    
984  register object V108;  register object V108;
985  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
986  goto TTL;          goto TTL;
987  TTL:;  TTL:;
988          if(type_of((V108))==t_cons){          if(type_of((V108))==t_cons){
989          goto T363;}          goto T363;}
990          {object V109 = Cnil;          {object V109 = Cnil;
991          VMR24(V109)}          VMR24(V109)}
992  goto T363;          goto T363;
993  T363:;{object V110;  T363:;{object V110;
994          if((car((V108)))==(VV[17])){          if((car((V108)))==(VV[17])){
995          goto T367;}          goto T367;}
996          V110= Cnil;          V110= Cnil;
997          goto T366;          goto T366;
998  goto T367;          goto T367;
999  T367:;  T367:;
1000          V111= structure_ref(cadr((V108)),VV[17],1);          V111= structure_ref(cadr((V108)),VV[17],1);
1001          V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil);          V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil);
1002  goto T366;          goto T366;
1003  T366:;  T366:;
1004          if(V110==Cnil)goto T365;          if(V110==Cnil)goto T365;
1005          {object V112 = V110;          {object V112 = V110;
1006          VMR24(V112)}          VMR24(V112)}
1007  goto T365;          goto T365;
1008  T365:;}  T365:;}
1009          if(!((car((V108)))==(VV[32]))){          if(!((car((V108)))==(VV[32]))){
1010          goto T369;}          goto T369;}
1011          {object V113 = Ct;          {object V113 = Ct;
1012          VMR24(V113)}          VMR24(V113)}
1013  goto T369;          goto T369;
1014  T369:;  T369:;
1015          {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);          {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);
1016          VMR24(V114)}          VMR24(V114)}
# Line 1022  static object LI25(V117,V118) Line 1022  static object LI25(V117,V118)
1022    
1023  object V117;object V118;  object V117;object V118;
1024  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1025  goto TTL;          goto TTL;
1026  TTL:;  TTL:;
1027          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
1028          (void)((*(LnkLI36))((V117)));          (void)((*(LnkLI36))((V117)));

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

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