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

Diff of /gcl/cmpnew/cmpwt.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmpwt.h"  #include "cmpwt.h"
4  init_cmpwt(){do_init(VV);}  void init_cmpwt(){do_init(VV);}
5  /*      local entry for function WT-COMMENT     */  /*      local entry for function WT-COMMENT     */
6    
7  static object LI1(V1,va_alist)  static object LI1(V1,va_alist)
# Line 12  static object LI1(V1,va_alist) Line 12  static object LI1(V1,va_alist)
12          int narg = VFUN_NARGS; VMB1 VMS1 VMV1          int narg = VFUN_NARGS; VMB1 VMS1 VMV1
13          {object V2;          {object V2;
14          object V3;          object V3;
15            Vcs[0]=Vcs[0];
16            va_start(ap);
17          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
18          V2= V1;          V2= V1;
19          narg = narg - 1;          narg = narg - 1;
20          if (narg <= 0) goto T1;          if (narg <= 0) goto T1;
21          else {          else {
         va_start(ap);  
22          V3= va_arg(ap,object);}          V3= va_arg(ap,object);}
23          --narg; goto T2;          --narg; goto T2;
24    goto T1;
25  T1:;  T1:;
26          V3= Cnil;          V3= Cnil;
27    goto T2;
28  T2:;  T2:;
29          princ_str("\n/* ",VV[0]);          princ_str("\n/* ",VV[0]);
30          (void)(princ((V2),symbol_value(VV[0])));          (void)(princ((V2),symbol_value(VV[0])));
# Line 33  T2:; Line 36  T2:;
36          register long V6;          register long V6;
37          V5= length((V4));          V5= length((V4));
38          V6= 0;          V6= 0;
39    goto T13;
40  T13:;  T13:;
41          if(!((V6)>=(V5))){          if(!((V6)>=(V5))){
42          goto T14;}          goto T14;}
43          goto T6;          goto T6;
44    goto T14;
45  T14:;  T14:;
46          {register unsigned char V7;          {register unsigned char V7;
47          V7= char_code(elt((V4),V6));          V7= char_code(elt((V4),V6));
# Line 48  T14:; Line 53  T14:;
53          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
54          goto T18;}          goto T18;}
55          (void)(princ(code_char(V7),symbol_value(VV[0])));}          (void)(princ(code_char(V7),symbol_value(VV[0])));}
56    goto T18;
57  T18:;  T18:;
58          V6= (V6)+1;          V6= (V6)+1;
59          goto T13;}}          goto T13;}}
60    goto T6;
61  T6:;  T6:;
62          princ_str("     */\n",VV[0]);          princ_str("     */\n",VV[0]);
63          {object V8 = Cnil;          {object V8 = Cnil;
64          VMR1(V8)}}          VMR1(V8)}
65            va_end(ap);
66            base[0]=base[0];
67            return Cnil;}
68          }          }
69  /*      local entry for function WT1    */  /*      local entry for function WT1    */
70    
# Line 62  static object LI2(V10) Line 72  static object LI2(V10)
72    
73  register object V10;  register object V10;
74  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
75    goto TTL;
76  TTL:;  TTL:;
77          if(type_of((V10))==t_string){          if(type_of((V10))==t_string){
78          goto T29;}          goto T29;}
# Line 69  TTL:; Line 80  TTL:;
80          goto T29;}          goto T29;}
81          if(!(type_of((V10))==t_character)){          if(!(type_of((V10))==t_character)){
82          goto T30;}          goto T30;}
83    goto T29;
84  T29:;  T29:;
85          (void)(princ((V10),symbol_value(VV[0])));          (void)(princ((V10),symbol_value(VV[0])));
86          goto T28;          goto T28;
87    goto T30;
88  T30:;  T30:;
89          if(type_of((V10))==t_longfloat){          if(type_of((V10))==t_longfloat){
90          goto T36;}          goto T36;}
91          if(!(type_of((V10))==t_shortfloat)){          if(!(type_of((V10))==t_shortfloat)){
92          goto T37;}          goto T37;}
93    goto T36;
94  T36:;  T36:;
95          base[0]= symbol_value(VV[0]);          base[0]= symbol_value(VV[0]);
96          base[1]= VV[2];          base[1]= VV[2];
# Line 85  T36:; Line 99  T36:;
99          Lformat();          Lformat();
100          vs_top=sup;          vs_top=sup;
101          goto T28;          goto T28;
102    goto T37;
103  T37:;  T37:;
104          base[0]= (V10);          base[0]= (V10);
105          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
106          (void) (*Lnk43)();          (void) (*Lnk43)();
107          vs_top=sup;          vs_top=sup;
108    goto T28;
109  T28:;  T28:;
110          {object V11 = Cnil;          {object V11 = Cnil;
111          VMR2(V11)}          VMR2(V11)}
112            base[0]=base[0];
113            return Cnil;
114  }  }
115  /*      local entry for function WT-H1  */  /*      local entry for function WT-H1  */
116    
# Line 100  static object LI3(V13) Line 118  static object LI3(V13)
118    
119  register object V13;  register object V13;
120  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
121    goto TTL;
122  TTL:;  TTL:;
123          if(!(type_of((V13))==t_cons)){          if(!(type_of((V13))==t_cons)){
124          goto T47;}          goto T47;}
# Line 117  TTL:; Line 136  TTL:;
136          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
137          vs_top=sup;          vs_top=sup;
138          goto T45;          goto T45;
139    goto T51;
140  T51:;  T51:;
141          base[0]= VV[4];          base[0]= VV[4];
142          base[1]= (V13);          base[1]= (V13);
# Line 124  T51:; Line 144  T51:;
144          (void) (*Lnk44)();          (void) (*Lnk44)();
145          vs_top=sup;          vs_top=sup;
146          goto T45;}          goto T45;}
147    goto T47;
148  T47:;  T47:;
149          (void)(princ((V13),symbol_value(VV[5])));          (void)(princ((V13),symbol_value(VV[5])));
150    goto T45;
151  T45:;  T45:;
152          {object V16 = Cnil;          {object V16 = Cnil;
153          VMR3(V16)}          VMR3(V16)}
154            base[0]=base[0];
155            return Cnil;
156  }  }
157  /*      local entry for function PUSH-DATA-INCF */  /*      local entry for function PUSH-DATA-INCF */
158    
# Line 136  static object LI4(V18) Line 160  static object LI4(V18)
160    
161  object V18;  object V18;
162  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
163    goto TTL;
164  TTL:;  TTL:;
165          base[0]= (V18);          base[0]= (V18);
166          base[1]= small_fixnum(-1000);          base[1]= small_fixnum(-1000);
# Line 148  TTL:; Line 173  TTL:;
173          setq(VV[7],number_plus(symbol_value(VV[7]),small_fixnum(1)));          setq(VV[7],number_plus(symbol_value(VV[7]),small_fixnum(1)));
174          {object V21 = symbol_value(VV[7]);          {object V21 = symbol_value(VV[7]);
175          VMR4(V21)}          VMR4(V21)}
176            base[0]=base[0];
177            return Cnil;
178  }  }
179  /*      local entry for function WT-DATA1       */  /*      local entry for function WT-DATA1       */
180    
# Line 156  static object LI5(V23) Line 183  static object LI5(V23)
183  object V23;  object V23;
184  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
185          bds_check;          bds_check;
186    goto TTL;
187  TTL:;  TTL:;
188          bds_bind(VV[8],Cnil);          bds_bind(VV[8],Cnil);
189          bds_bind(VV[9],small_fixnum(10));          bds_bind(VV[9],small_fixnum(10));
# Line 184  TTL:; Line 212  TTL:;
212          bds_unwind1;          bds_unwind1;
213          bds_unwind1;          bds_unwind1;
214          VMR5(V24)}          VMR5(V24)}
215            base[0]=base[0];
216            return Cnil;
217  }  }
218  /*      local entry for function VERIFY-DATA-VECTOR     */  /*      local entry for function VERIFY-DATA-VECTOR     */
219    
# Line 191  static object LI6(V26) Line 221  static object LI6(V26)
221    
222  register object V26;  register object V26;
223  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
224    goto TTL;
225  TTL:;  TTL:;
226          {register object V27;          {register object V27;
227          V27= Cnil;          V27= Cnil;
# Line 198  TTL:; Line 229  TTL:;
229          register object V29;          register object V29;
230          V28= make_fixnum(length((V26)));          V28= make_fixnum(length((V26)));
231          V29= small_fixnum(0);          V29= small_fixnum(0);
232    goto T68;
233  T68:;  T68:;
234          if(!(number_compare((V29),(V28))>=0)){          if(!(number_compare((V29),(V28))>=0)){
235          goto T69;}          goto T69;}
236          goto T64;          goto T64;
237    goto T69;
238  T69:;  T69:;
239          V27= aref1((V26),fixint((V29)));          V27= aref1((V26),fixint((V29)));
240          {register object V30;          {register object V30;
# Line 214  T69:; Line 247  T69:;
247          if(eql(car((V27)),(V30))){          if(eql(car((V27)),(V30))){
248          goto T75;}          goto T75;}
249          (void)((VFUN_NARGS=2,(*(LnkLI47))(VV[22],cdr((V27)))));}          (void)((VFUN_NARGS=2,(*(LnkLI47))(VV[22],cdr((V27)))));}
250    goto T75;
251  T75:;  T75:;
252          (void)(aset1((V26),fixint((V29)),cdr((V27))));          (void)(aset1((V26),fixint((V29)),cdr((V27))));
253          V29= one_plus((V29));          V29= one_plus((V29));
254          goto T68;}          goto T68;}
255    goto T64;
256  T64:;  T64:;
257          {object V31 = (V26);          {object V31 = (V26);
258          VMR6(V31)}}          VMR6(V31)}}
259            base[0]=base[0];
260            return Cnil;
261  }  }
262  /*      local entry for function ADD-INIT       */  /*      local entry for function ADD-INIT       */
263    
# Line 232  static object LI7(V32,va_alist) Line 269  static object LI7(V32,va_alist)
269          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
270          {object V33;          {object V33;
271          object V34;          object V34;
272            Vcs[0]=Vcs[0];
273            va_start(ap);
274          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
275          V33= V32;          V33= V32;
276          narg = narg - 1;          narg = narg - 1;
277          if (narg <= 0) goto T85;          if (narg <= 0) goto T85;
278          else {          else {
         va_start(ap);  
279          V34= va_arg(ap,object);}          V34= va_arg(ap,object);}
280          --narg; goto T86;          --narg; goto T86;
281    goto T85;
282  T85:;  T85:;
283          V34= Cnil;          V34= Cnil;
284    goto T86;
285  T86:;  T86:;
286          {object V35;          {object V35;
287          base[0]= (V33);          base[0]= (V33);
# Line 260  T86:; Line 300  T86:;
300          V40= make_cons((V35),Cnil);          V40= make_cons((V35),Cnil);
301          V38= nconc(/* INLINE-ARGS */V39,/* INLINE-ARGS */V40);          V38= nconc(/* INLINE-ARGS */V39,/* INLINE-ARGS */V40);
302          goto T94;          goto T94;
303    goto T96;
304  T96:;  T96:;
305          V38= make_cons((V35),cadr(symbol_value(VV[6])));          V38= make_cons((V35),cadr(symbol_value(VV[6])));
306    goto T94;
307  T94:;  T94:;
308          if(type_of(cdr((V37)))!=t_cons)FEwrong_type_argument(Scons,cdr((V37)));          if(type_of(cdr((V37)))!=t_cons)FEwrong_type_argument(Scons,cdr((V37)));
309          (cdr((V37)))->c.c_car = (V38);          (cdr((V37)))->c.c_car = (V38);
310          (void)(cdr((V37)));}          (void)(cdr((V37)));}
311          {object V41 = (V33);          {object V41 = (V33);
312          VMR7(V41)}}}          VMR7(V41)}}
313            va_end(ap);
314            base[0]=base[0];
315            return Cnil;}
316          }          }
317  /*      function definition for WT-DATA-FILE    */  /*      function definition for WT-DATA-FILE    */
318    
319  static L8()  static void L8()
320  {register object *base=vs_base;  {register object *base=vs_base;
321          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
322          vs_reserve(VM8);          vs_reserve(VM8);
323          check_arg(0);          check_arg(0);
324          vs_top=sup;          vs_top=sup;
325    goto TTL;
326  TTL:;  TTL:;
327          (void)((*(LnkLI48))(car(symbol_value(VV[6]))));          (void)((*(LnkLI48))(car(symbol_value(VV[6]))));
328          {object V42;          {object V42;
# Line 300  TTL:; Line 346  TTL:;
346          vs_base=vs_top;          vs_base=vs_top;
347          (void) (*Lnk50)();          (void) (*Lnk50)();
348          return;          return;
349    goto T108;
350  T108:;  T108:;
351          base[1]= symbol_value(VV[21]);          base[1]= symbol_value(VV[21]);
352          base[2]= VV[26];          base[2]= VV[26];
# Line 310  T108:; Line 357  T108:;
357          register object V51;          register object V51;
358          V50= caddr(symbol_value(VV[6]));          V50= caddr(symbol_value(VV[6]));
359          V51= car((V50));          V51= car((V50));
360    goto T117;
361  T117:;  T117:;
362          if(!(endp((V50)))){          if(!(endp((V50)))){
363          goto T118;}          goto T118;}
364          goto T113;          goto T113;
365    goto T118;
366  T118:;  T118:;
367          base[3]= symbol_value(VV[21]);          base[3]= symbol_value(VV[21]);
368          base[4]= VV[27];          base[4]= VV[27];
# Line 324  T118:; Line 373  T118:;
373          V50= cdr((V50));          V50= cdr((V50));
374          V51= car((V50));          V51= car((V50));
375          goto T117;}          goto T117;}
376    goto T113;
377  T113:;  T113:;
378          (void)((*(LnkLI51))(car(symbol_value(VV[6]))));          (void)((*(LnkLI51))(car(symbol_value(VV[6]))));
379          base[1]= symbol_value(VV[21]);          base[1]= symbol_value(VV[21]);
# Line 334  T113:; Line 384  T113:;
384  }  }
385  /*      function definition for WT-FASD-DATA-FILE       */  /*      function definition for WT-FASD-DATA-FILE       */
386    
387  static L9()  static void L9()
388  {register object *base=vs_base;  {register object *base=vs_base;
389          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
390          vs_reserve(VM9);          vs_reserve(VM9);
391          check_arg(0);          check_arg(0);
392          vs_top=sup;          vs_top=sup;
393    goto TTL;
394  TTL:;  TTL:;
395          {object V52;          {object V52;
396          object V53;          object V53;
# Line 357  TTL:; Line 408  TTL:;
408          register object V55;          register object V55;
409          V54= (V53);          V54= (V53);
410          V55= car((V54));          V55= car((V54));
411    goto T146;
412  T146:;  T146:;
413          if(!(endp((V54)))){          if(!(endp((V54)))){
414          goto T147;}          goto T147;}
415          goto T139;          goto T139;
416    goto T147;
417  T147:;  T147:;
418          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
419          base[3]= symbol_value(VV[21]);          base[3]= symbol_value(VV[21]);
# Line 375  T147:; Line 428  T147:;
428          V54= cdr((V54));          V54= cdr((V54));
429          V55= car((V54));          V55= car((V54));
430          goto T146;}          goto T146;}
431    goto T139;
432  T139:;  T139:;
433          base[1]= (V52);          base[1]= (V52);
434          base[2]= car(symbol_value(VV[25]));          base[2]= car(symbol_value(VV[25]));
# Line 391  T139:; Line 445  T139:;
445  static object LI10()  static object LI10()
446    
447  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
448    goto TTL;
449  TTL:;  TTL:;
450          {object V56 = Cnil;          {object V56 = Cnil;
451          VMR10(V56)}          VMR10(V56)}
452            return Cnil;
453  }  }
454  /*      local entry for function WT-DATA-END    */  /*      local entry for function WT-DATA-END    */
455    
456  static object LI11()  static object LI11()
457    
458  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
459    goto TTL;
460  TTL:;  TTL:;
461          {object V57 = Cnil;          {object V57 = Cnil;
462          VMR11(V57)}          VMR11(V57)}
463            return Cnil;
464  }  }
465  /*      local entry for function WT-DATA-PACKAGE-OPERATION      */  /*      local entry for function WT-DATA-PACKAGE-OPERATION      */
466    
# Line 410  static object LI12(V59) Line 468  static object LI12(V59)
468    
469  object V59;  object V59;
470  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
471    goto TTL;
472  TTL:;  TTL:;
473          {object V60;          {object V60;
474          object V61;          object V61;
# Line 420  TTL:; Line 479  TTL:;
479          (void)(cddr((V60)));          (void)(cddr((V60)));
480          {object V62 = (V61);          {object V62 = (V61);
481          VMR12(V62)}}          VMR12(V62)}}
482            base[0]=base[0];
483            return Cnil;
484  }  }
485  /*      macro definition for WT */  /*      macro definition for WT */
486    
487  static L13()  static void L13()
488  {register object *base=vs_base;  {register object *base=vs_base;
489          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
490          vs_reserve(VM13);          vs_reserve(VM13);
# Line 436  static L13() Line 497  static L13()
497          register object V65;          register object V65;
498          V64= base[2];          V64= base[2];
499          V65= car((V64));          V65= car((V64));
500    goto T173;
501  T173:;  T173:;
502          if(!(endp((V64)))){          if(!(endp((V64)))){
503          goto T174;}          goto T174;}
# Line 444  T173:; Line 506  T173:;
506          base[5]= make_cons(VV[29],/* INLINE-ARGS */V67);          base[5]= make_cons(VV[29],/* INLINE-ARGS */V67);
507          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
508          return;          return;
509    goto T174;
510  T174:;  T174:;
511          if(!(type_of((V65))==t_string)){          if(!(type_of((V65))==t_string)){
512          goto T180;}          goto T180;}
513          V68= list(3,VV[30],(V65),VV[0]);          V68= list(3,VV[30],(V65),VV[0]);
514          base[3]= make_cons(/* INLINE-ARGS */V68,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V68,base[3]);
515          goto T178;          goto T178;
516    goto T180;
517  T180:;  T180:;
518          V69= list(2,VV[31],(V65));          V69= list(2,VV[31],(V65));
519          base[3]= make_cons(/* INLINE-ARGS */V69,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V69,base[3]);
520    goto T178;
521  T178:;  T178:;
522          V64= cdr((V64));          V64= cdr((V64));
523          V65= car((V64));          V65= car((V64));
# Line 460  T178:; Line 525  T178:;
525  }  }
526  /*      macro definition for WT-H       */  /*      macro definition for WT-H       */
527    
528  static L14()  static void L14()
529  {register object *base=vs_base;  {register object *base=vs_base;
530          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
531          vs_reserve(VM14);          vs_reserve(VM14);
# Line 474  static L14() Line 539  static L14()
539          base[4]= VV[32];          base[4]= VV[32];
540          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
541          return;          return;
542    goto T191;
543  T191:;  T191:;
544          if(!(type_of(car(base[2]))==t_string)){          if(!(type_of(car(base[2]))==t_string)){
545          goto T194;}          goto T194;}
# Line 481  T191:; Line 547  T191:;
547          register object V72;          register object V72;
548          V71= cdr(base[2]);          V71= cdr(base[2]);
549          V72= car((V71));          V72= car((V71));
550    goto T199;
551  T199:;  T199:;
552          if(!(endp((V71)))){          if(!(endp((V71)))){
553          goto T200;}          goto T200;}
# Line 490  T199:; Line 557  T199:;
557          base[6]= listA(3,VV[29],/* INLINE-ARGS */V74,reverse(/* INLINE-ARGS */V75));          base[6]= listA(3,VV[29],/* INLINE-ARGS */V74,reverse(/* INLINE-ARGS */V75));
558          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
559          return;          return;
560    goto T200;
561  T200:;  T200:;
562          if(!(type_of((V72))==t_string)){          if(!(type_of((V72))==t_string)){
563          goto T206;}          goto T206;}
564          V76= list(3,VV[30],(V72),VV[5]);          V76= list(3,VV[30],(V72),VV[5]);
565          base[3]= make_cons(/* INLINE-ARGS */V76,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V76,base[3]);
566          goto T204;          goto T204;
567    goto T206;
568  T206:;  T206:;
569          V77= list(2,VV[35],(V72));          V77= list(2,VV[35],(V72));
570          base[3]= make_cons(/* INLINE-ARGS */V77,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V77,base[3]);
571    goto T204;
572  T204:;  T204:;
573          V71= cdr((V71));          V71= cdr((V71));
574          V72= car((V71));          V72= car((V71));
575          goto T199;}          goto T199;}
576    goto T194;
577  T194:;  T194:;
578          {register object V78;          {register object V78;
579          register object V79;          register object V79;
580          V78= base[2];          V78= base[2];
581          V79= car((V78));          V79= car((V78));
582    goto T218;
583  T218:;  T218:;
584          if(!(endp((V78)))){          if(!(endp((V78)))){
585          goto T219;}          goto T219;}
# Line 515  T218:; Line 587  T218:;
587          base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V80));          base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V80));
588          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
589          return;          return;
590    goto T219;
591  T219:;  T219:;
592          if(!(type_of((V79))==t_string)){          if(!(type_of((V79))==t_string)){
593          goto T225;}          goto T225;}
594          V81= list(3,VV[30],(V79),VV[5]);          V81= list(3,VV[30],(V79),VV[5]);
595          base[3]= make_cons(/* INLINE-ARGS */V81,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V81,base[3]);
596          goto T223;          goto T223;
597    goto T225;
598  T225:;  T225:;
599          V82= list(2,VV[35],(V79));          V82= list(2,VV[35],(V79));
600          base[3]= make_cons(/* INLINE-ARGS */V82,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V82,base[3]);
601    goto T223;
602  T223:;  T223:;
603          V78= cdr((V78));          V78= cdr((V78));
604          V79= car((V78));          V79= car((V78));
# Line 531  T223:; Line 606  T223:;
606  }  }
607  /*      macro definition for WT-NL      */  /*      macro definition for WT-NL      */
608    
609  static L15()  static void L15()
610  {register object *base=vs_base;  {register object *base=vs_base;
611          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
612          vs_reserve(VM15);          vs_reserve(VM15);
# Line 545  static L15() Line 620  static L15()
620          base[4]= VV[37];          base[4]= VV[37];
621          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
622          return;          return;
623    goto T236;
624  T236:;  T236:;
625          if(!(type_of(car(base[2]))==t_string)){          if(!(type_of(car(base[2]))==t_string)){
626          goto T239;}          goto T239;}
# Line 552  T236:; Line 628  T236:;
628          register object V85;          register object V85;
629          V84= cdr(base[2]);          V84= cdr(base[2]);
630          V85= car((V84));          V85= car((V84));
631    goto T244;
632  T244:;  T244:;
633          if(!(endp((V84)))){          if(!(endp((V84)))){
634          goto T245;}          goto T245;}
# Line 561  T244:; Line 638  T244:;
638          base[6]= listA(3,VV[29],/* INLINE-ARGS */V87,reverse(/* INLINE-ARGS */V88));          base[6]= listA(3,VV[29],/* INLINE-ARGS */V87,reverse(/* INLINE-ARGS */V88));
639          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
640          return;          return;
641    goto T245;
642  T245:;  T245:;
643          if(!(type_of((V85))==t_string)){          if(!(type_of((V85))==t_string)){
644          goto T251;}          goto T251;}
645          V89= list(3,VV[30],(V85),VV[0]);          V89= list(3,VV[30],(V85),VV[0]);
646          base[3]= make_cons(/* INLINE-ARGS */V89,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V89,base[3]);
647          goto T249;          goto T249;
648    goto T251;
649  T251:;  T251:;
650          V90= list(2,VV[31],(V85));          V90= list(2,VV[31],(V85));
651          base[3]= make_cons(/* INLINE-ARGS */V90,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V90,base[3]);
652    goto T249;
653  T249:;  T249:;
654          V84= cdr((V84));          V84= cdr((V84));
655          V85= car((V84));          V85= car((V84));
656          goto T244;}          goto T244;}
657    goto T239;
658  T239:;  T239:;
659          {register object V91;          {register object V91;
660          register object V92;          register object V92;
661          V91= base[2];          V91= base[2];
662          V92= car((V91));          V92= car((V91));
663    goto T263;
664  T263:;  T263:;
665          if(!(endp((V91)))){          if(!(endp((V91)))){
666          goto T264;}          goto T264;}
# Line 586  T263:; Line 668  T263:;
668          base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V93));          base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V93));
669          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
670          return;          return;
671    goto T264;
672  T264:;  T264:;
673          if(!(type_of((V92))==t_string)){          if(!(type_of((V92))==t_string)){
674          goto T270;}          goto T270;}
675          V94= list(3,VV[30],(V92),VV[0]);          V94= list(3,VV[30],(V92),VV[0]);
676          base[3]= make_cons(/* INLINE-ARGS */V94,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V94,base[3]);
677          goto T268;          goto T268;
678    goto T270;
679  T270:;  T270:;
680          V95= list(2,VV[31],(V92));          V95= list(2,VV[31],(V92));
681          base[3]= make_cons(/* INLINE-ARGS */V95,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V95,base[3]);
682    goto T268;
683  T268:;  T268:;
684          V91= cdr((V91));          V91= cdr((V91));
685          V92= car((V91));          V92= car((V91));
# Line 602  T268:; Line 687  T268:;
687  }  }
688  /*      macro definition for WT-NL1     */  /*      macro definition for WT-NL1     */
689    
690  static L16()  static void L16()
691  {register object *base=vs_base;  {register object *base=vs_base;
692          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
693          vs_reserve(VM16);          vs_reserve(VM16);
# Line 616  static L16() Line 701  static L16()
701          base[4]= VV[40];          base[4]= VV[40];
702          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
703          return;          return;
704    goto T281;
705  T281:;  T281:;
706          if(!(type_of(car(base[2]))==t_string)){          if(!(type_of(car(base[2]))==t_string)){
707          goto T284;}          goto T284;}
# Line 623  T281:; Line 709  T281:;
709          register object V98;          register object V98;
710          V97= cdr(base[2]);          V97= cdr(base[2]);
711          V98= car((V97));          V98= car((V97));
712    goto T289;
713  T289:;  T289:;
714          if(!(endp((V97)))){          if(!(endp((V97)))){
715          goto T290;}          goto T290;}
# Line 632  T289:; Line 719  T289:;
719          base[6]= listA(3,VV[29],/* INLINE-ARGS */V100,reverse(/* INLINE-ARGS */V101));          base[6]= listA(3,VV[29],/* INLINE-ARGS */V100,reverse(/* INLINE-ARGS */V101));
720          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
721          return;          return;
722    goto T290;
723  T290:;  T290:;
724          if(!(type_of((V98))==t_string)){          if(!(type_of((V98))==t_string)){
725          goto T296;}          goto T296;}
726          V102= list(3,VV[30],(V98),VV[0]);          V102= list(3,VV[30],(V98),VV[0]);
727          base[3]= make_cons(/* INLINE-ARGS */V102,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V102,base[3]);
728          goto T294;          goto T294;
729    goto T296;
730  T296:;  T296:;
731          V103= list(2,VV[31],(V98));          V103= list(2,VV[31],(V98));
732          base[3]= make_cons(/* INLINE-ARGS */V103,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V103,base[3]);
733    goto T294;
734  T294:;  T294:;
735          V97= cdr((V97));          V97= cdr((V97));
736          V98= car((V97));          V98= car((V97));
737          goto T289;}          goto T289;}
738    goto T284;
739  T284:;  T284:;
740          {register object V104;          {register object V104;
741          register object V105;          register object V105;
742          V104= base[2];          V104= base[2];
743          V105= car((V104));          V105= car((V104));
744    goto T308;
745  T308:;  T308:;
746          if(!(endp((V104)))){          if(!(endp((V104)))){
747          goto T309;}          goto T309;}
# Line 657  T308:; Line 749  T308:;
749          base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V106));          base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V106));
750          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
751          return;          return;
752    goto T309;
753  T309:;  T309:;
754          if(!(type_of((V105))==t_string)){          if(!(type_of((V105))==t_string)){
755          goto T315;}          goto T315;}
756          V107= list(3,VV[30],(V105),VV[0]);          V107= list(3,VV[30],(V105),VV[0]);
757          base[3]= make_cons(/* INLINE-ARGS */V107,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V107,base[3]);
758          goto T313;          goto T313;
759    goto T315;
760  T315:;  T315:;
761          V108= list(2,VV[31],(V105));          V108= list(2,VV[31],(V105));
762          base[3]= make_cons(/* INLINE-ARGS */V108,base[3]);          base[3]= make_cons(/* INLINE-ARGS */V108,base[3]);
763    goto T313;
764  T313:;  T313:;
765          V104= cdr((V104));          V104= cdr((V104));
766          V105= car((V104));          V105= car((V104));
767          goto T308;}          goto T308;}
768  }  }
769  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* CONCATENATE */  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],(void **)&LnkLI55,ap);} /* CONCATENATE */
770  static LnkT54(){ call_or_link(VV[54],&Lnk54);} /* CLOSE-FASD */  static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */
771  static LnkT53(){ call_or_link(VV[53],&Lnk53);} /* WRITE-FASD-TOP */  static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* WRITE-FASD-TOP */
772  static LnkT52(){ call_or_link(VV[52],&Lnk52);} /* FIND-SHARING-TOP */  static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* FIND-SHARING-TOP */
773  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* WT-DATA1 */  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,1,ap);} /* WT-DATA1 */
774  static LnkT50(){ call_or_link(VV[50],&Lnk50);} /* WT-FASD-DATA-FILE */  static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* WT-FASD-DATA-FILE */
775  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* COERCE */  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* COERCE */
776  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,1,ap);} /* VERIFY-DATA-VECTOR */  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],(void **)&LnkLI48,1,ap);} /* VERIFY-DATA-VECTOR */
777  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[47],&LnkLI47,ap);} /* CMPWARN */  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[47],(void **)&LnkLI47,ap);} /* CMPWARN */
778  static LnkT46(){ call_or_link(VV[46],&Lnk46);} /* HASH-EQUAL */  static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */
779  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],&LnkLI45,ap);} /* VECTOR-PUSH-EXTEND */  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],(void **)&LnkLI45,ap);} /* VECTOR-PUSH-EXTEND */
780  static LnkT44(){ call_or_link(VV[44],&Lnk44);} /* CMPILER-ERROR */  static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */
781  static LnkT43(){ call_or_link(VV[43],&Lnk43);} /* WT-LOC */  static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */
782    
783  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
784  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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