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

Diff of /gcl/cmpnew/gcl_cmploc.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:28 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "gcl_cmploc.h"  #include "gcl_cmploc.h"
4  void init_gcl_cmploc(){do_init(VV);}  void init_gcl_cmploc(){do_init(VV);}
5  /*      function definition for WT-FIRST-VAR-ARG        */  /*      local entry for function WT-FIRST-VAR-ARG       */
6    
7  static void L1()  static object LI1()
8  {register object *base=vs_base;  
9          register object *sup=base+VM1; VC1  {        VMB1 VMS1 VMV1
         vs_reserve(VM1);  
         check_arg(0);  
         vs_top=sup;  
10          goto TTL;          goto TTL;
11  TTL:;  TTL:;
12          princ_str("first",VV[0]);          princ_str("first",VV[0]);
13          base[0]= Cnil;          {object V1 = Cnil;
14          vs_top=(vs_base=base+0)+1;          VMR1(V1)}
15          return;          return Cnil;
16  }  }
17  /*      local entry for function WT-NEXT-VAR-ARG        */  /*      local entry for function WT-NEXT-VAR-ARG        */
18    
# Line 25  static object LI2() Line 22  static object LI2()
22          goto TTL;          goto TTL;
23  TTL:;  TTL:;
24          princ_str("va_arg(ap,object)",VV[0]);          princ_str("va_arg(ap,object)",VV[0]);
25          {object V1 = Cnil;          {object V2 = Cnil;
26          VMR2(V1)}          VMR2(V2)}
27          return Cnil;          return Cnil;
28  }  }
29  /*      function definition for SET-LOC */  /*      function definition for SET-LOC */
# Line 34  TTL:; Line 31  TTL:;
31  static void L3()  static void L3()
32  {register object *base=vs_base;  {register object *base=vs_base;
33          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
34          vs_reserve(VM3);          vs_check;
35          {register object V2;          {register object V3;
36          check_arg(1);          V3=(base[0]);
         V2=(base[0]);  
37          vs_top=sup;          vs_top=sup;
38          goto TTL;          goto TTL;
39  TTL:;  TTL:;
40          {register object V3;          {register object V4;
41          V3= Cnil;          V4= Cnil;
42          if(!((symbol_value(VV[1]))==(VV[2]))){          if(!(((VV[1]->s.s_dbind))==(VV[2]))){
43          goto T5;}          goto T5;}
44          base[1]= (*(LnkLI34))((V2));          base[1]= (*(LnkLI34))((V3));
45          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
46          return;          return;
47          goto T5;          goto T5;
48  T5:;  T5:;
49          if(!((symbol_value(VV[1]))==(VV[3]))){          if(!(((VV[1]->s.s_dbind))==(VV[3]))){
50          goto T8;}          goto T8;}
51          if(!(type_of((V2))==t_cons)){          if(!(type_of((V3))==t_cons)){
52          goto T11;}          goto T11;}
53          {register object x= car((V2)),V4= VV[4];          {register object x= CMPcar((V3)),V5= VV[4];
54          while(!endp(V4))          while(V5!=Cnil)
55          if(eql(x,V4->c.c_car)){          if(eql(x,V5->c.c_car)){
56          goto T15;          goto T15;
57          }else V4=V4->c.c_cdr;          }else V5=V5->c.c_cdr;
58          goto T11;}          goto T11;}
59          goto T15;          goto T15;
60  T15:;  T15:;
61          if((cadr((V2)))==Cnil){          if((CMPcadr((V3)))==Cnil){
62          goto T11;}          goto T11;}
63          princ_str("\n   (void)(",VV[0]);          princ_str("\n   (void)(",VV[0]);
64          base[1]= Ct;          base[1]= Ct;
65          base[2]= caddr((V2));          base[2]= CMPcaddr((V3));
66          base[3]= cadddr((V2));          base[3]= CMPcadddr((V3));
67          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
68          (void) (*Lnk35)();          (void) (*Lnk35)();
69          vs_top=sup;          vs_top=sup;
# Line 77  T15:; Line 73  T15:;
73          return;          return;
74          goto T11;          goto T11;
75  T11:;  T11:;
76          if(!(type_of((V2))==t_cons)){          if(!(type_of((V3))==t_cons)){
77          goto T25;}          goto T25;}
78          if(!((car((V2)))==(VV[5]))){          if(!((CMPcar((V3)))==(VV[5]))){
79          goto T25;}          goto T25;}
80          princ_str("\n   (void)",VV[0]);          princ_str("\n   (void)",VV[0]);
81          (void)((*(LnkLI36))((V2)));          (void)((*(LnkLI36))((V3)));
82          princ_char(59,VV[0]);          princ_char(59,VV[0]);
83          base[1]= Cnil;          base[1]= Cnil;
84          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 94  T25:; Line 90  T25:;
90          return;          return;
91          goto T8;          goto T8;
92  T8:;  T8:;
93          if(!((symbol_value(VV[1]))==(VV[6]))){          if(!(((VV[1]->s.s_dbind))==(VV[6]))){
94          goto T33;}          goto T33;}
95          if(((V2))==(VV[7])){          if(((V3))==(VV[7])){
96          goto T36;}          goto T36;}
97          base[1]= (*(LnkLI37))((V2));          base[1]= (*(LnkLI37))((V3));
98          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
99          return;          return;
100          goto T36;          goto T36;
# Line 108  T36:; Line 104  T36:;
104          return;          return;
105          goto T33;          goto T33;
106  T33:;  T33:;
107          if(!((symbol_value(VV[1]))==(VV[8]))){          if(!(((VV[1]->s.s_dbind))==(VV[8]))){
108          goto T39;}          goto T39;}
109          base[1]= (V2);          base[1]= (V3);
110          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
111          (void) (*Lnk38)();          (void) (*Lnk38)();
112          return;          return;
113          goto T39;          goto T39;
114  T39:;  T39:;
115          if(!((symbol_value(VV[1]))==(VV[9]))){          if(!(((VV[1]->s.s_dbind))==(VV[9]))){
116          goto T43;}          goto T43;}
117          base[1]= (V2);          base[1]= (V3);
118          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
119          (void) (*Lnk39)();          (void) (*Lnk39)();
120          return;          return;
121          goto T43;          goto T43;
122  T43:;  T43:;
123          if(!((symbol_value(VV[1]))==(VV[10]))){          if(!(((VV[1]->s.s_dbind))==(VV[10]))){
124          goto T47;}          goto T47;}
125          base[1]= (V2);          base[1]= (V3);
126          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
127          (void) (*Lnk40)();          (void) (*Lnk40)();
128          return;          return;
129          goto T47;          goto T47;
130  T47:;  T47:;
131          if(!((symbol_value(VV[1]))==(VV[11]))){          if(!(((VV[1]->s.s_dbind))==(VV[11]))){
132          goto T51;}          goto T51;}
133          base[1]= (V2);          base[1]= (V3);
134          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
135          (void) (*Lnk41)();          (void) (*Lnk41)();
136          return;          return;
137          goto T51;          goto T51;
138  T51:;  T51:;
139          if(!(type_of(symbol_value(VV[1]))==t_cons)){          if(!(type_of((VV[1]->s.s_dbind))==t_cons)){
140          goto T54;}          goto T54;}
141          if(type_of(car(symbol_value(VV[1])))==t_symbol){          if(type_of(CMPcar((VV[1]->s.s_dbind)))==t_symbol){
142          goto T55;}          goto T55;}
143          goto T54;          goto T54;
144  T54:;  T54:;
# Line 151  T54:; Line 147  T54:;
147          return;          return;
148          goto T55;          goto T55;
149  T55:;  T55:;
150          V3= get(car(symbol_value(VV[1])),VV[12],Cnil);          {object V6 =(CMPcar((VV[1]->s.s_dbind)))->s.s_plist;
151          if(((V3))==Cnil){           object ind= VV[12];
152            while(V6!=Cnil){
153            if(V6->c.c_car==ind){
154            V4= (V6->c.c_cdr->c.c_car);
155            goto T62;
156            }else V6=V6->c.c_cdr->c.c_cdr;}
157            V4= Cnil;}
158            goto T62;
159    T62:;
160            if(((V4))==Cnil){
161          goto T60;}          goto T60;}
162          base[1]= (V3);          base[1]= (V4);
163          base[2]= (V2);          base[2]= (V3);
164          {object V5;          {object V7;
165          V5= cdr(symbol_value(VV[1]));          V7= CMPcdr((VV[1]->s.s_dbind));
166           vs_top=base+3;           vs_top=base+3;
167           while(!endp(V5))           while(V7!=Cnil)
168           {vs_push(car(V5));V5=cdr(V5);}           {vs_push((V7)->c.c_car);V7=(V7)->c.c_cdr;}
169          vs_base=base+2;}          vs_base=base+2;}
170          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
171          return;          return;
172          goto T60;          goto T60;
173  T60:;  T60:;
174          V3= get(car(symbol_value(VV[1])),VV[13],Cnil);          {object V8 =(CMPcar((VV[1]->s.s_dbind)))->s.s_plist;
175          if(((V3))==Cnil){           object ind= VV[13];
176            while(V8!=Cnil){
177            if(V8->c.c_car==ind){
178            V4= (V8->c.c_cdr->c.c_car);
179            goto T69;
180            }else V8=V8->c.c_cdr->c.c_cdr;}
181            V4= Cnil;}
182            goto T69;
183    T69:;
184            if(((V4))==Cnil){
185          goto T67;}          goto T67;}
186          princ_str("\n   ",VV[0]);          princ_str("\n   ",VV[0]);
187          base[1]= (V3);          base[1]= (V4);
188          {object V6;          {object V9;
189          V6= cdr(symbol_value(VV[1]));          V9= CMPcdr((VV[1]->s.s_dbind));
190           vs_top=base+2;           vs_top=base+2;
191           while(!endp(V6))           while(V9!=Cnil)
192           {vs_push(car(V6));V6=cdr(V6);}           {vs_push((V9)->c.c_car);V9=(V9)->c.c_cdr;}
193          vs_base=base+2;}          vs_base=base+2;}
194          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
195          vs_top=sup;          vs_top=sup;
196          princ_str("= ",VV[0]);          princ_str("= ",VV[0]);
197          (void)((*(LnkLI36))((V2)));          (void)((*(LnkLI36))((V3)));
198          princ_char(59,VV[0]);          princ_char(59,VV[0]);
199          base[1]= Cnil;          base[1]= Cnil;
200          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 197  T67:; Line 211  T67:;
211  static void L4()  static void L4()
212  {register object *base=vs_base;  {register object *base=vs_base;
213          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
214          vs_reserve(VM4);          vs_check;
215          {register object V7;          {register object V10;
216          check_arg(1);          V10=(base[0]);
         V7=(base[0]);  
217          vs_top=sup;          vs_top=sup;
218          goto TTL;          goto TTL;
219  TTL:;  TTL:;
220          if(!(((V7))==(Cnil))){          if(!(((V10))==(Cnil))){
221          goto T78;}          goto T78;}
222          princ_str("Cnil",VV[0]);          princ_str("Cnil",VV[0]);
223          base[1]= Cnil;          base[1]= Cnil;
# Line 212  TTL:; Line 225  TTL:;
225          return;          return;
226          goto T78;          goto T78;
227  T78:;  T78:;
228          if(!(((V7))==(Ct))){          if(!(((V10))==(Ct))){
229          goto T82;}          goto T82;}
230          princ_str("Ct",VV[0]);          princ_str("Ct",VV[0]);
231          base[1]= Cnil;          base[1]= Cnil;
# Line 220  T78:; Line 233  T78:;
233          return;          return;
234          goto T82;          goto T82;
235  T82:;  T82:;
236          if(!(((V7))==(VV[7]))){          if(!(((V10))==(VV[7]))){
237          goto T86;}          goto T86;}
238          princ_str("vs_base[0]",VV[0]);          princ_str("vs_base[0]",VV[0]);
239          base[1]= Cnil;          base[1]= Cnil;
# Line 228  T82:; Line 241  T82:;
241          return;          return;
242          goto T86;          goto T86;
243  T86:;  T86:;
244          if(!(type_of((V7))==t_cons)){          if(!(type_of((V10))==t_cons)){
245          goto T89;}          goto T89;}
246          if(type_of(car((V7)))==t_symbol){          if(type_of(CMPcar((V10)))==t_symbol){
247          goto T90;}          goto T90;}
248          goto T89;          goto T89;
249  T89:;  T89:;
# Line 239  T89:; Line 252  T89:;
252          return;          return;
253          goto T90;          goto T90;
254  T90:;  T90:;
255          {object V8;          {object V11;
256          V8= get(car((V7)),VV[13],Cnil);          {object V12 =(CMPcar((V10)))->s.s_plist;
257          if(((V8))!=Cnil){           object ind= VV[13];
258            while(V12!=Cnil){
259            if(V12->c.c_car==ind){
260            V11= (V12->c.c_cdr->c.c_car);
261            goto T94;
262            }else V12=V12->c.c_cdr->c.c_cdr;}
263            V11= Cnil;}
264            goto T94;
265    T94:;
266            if(((V11))!=Cnil){
267          goto T95;}          goto T95;}
268          (void)((*(LnkLI42))());          (void)((*(LnkLI42))());
269          goto T95;          goto T95;
270  T95:;  T95:;
271          base[1]= (V8);          base[1]= (V11);
272          {object V9;          {object V13;
273          V9= cdr((V7));          V13= CMPcdr((V10));
274           vs_top=base+2;           vs_top=base+2;
275           while(!endp(V9))           while(V13!=Cnil)
276           {vs_push(car(V9));V9=cdr(V9);}           {vs_push((V13)->c.c_car);V13=(V13)->c.c_cdr;}
277          vs_base=base+2;}          vs_base=base+2;}
278          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
279          return;}          return;}
# Line 259  T95:; Line 281  T95:;
281  }  }
282  /*      local entry for function SET-RETURN     */  /*      local entry for function SET-RETURN     */
283    
284  static object LI5(V11)  static object LI5(V15)
285    
286  register object V11;  register object V15;
287  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
288          goto TTL;          goto TTL;
289  TTL:;  TTL:;
290          {object V12;          {object V16;
291          V12= (((V11))==(VV[7])?Ct:Cnil);          V16= (((V15))==(VV[7])?Ct:Cnil);
292          if(((V12))==Cnil){          if(((V16))==Cnil){
293          goto T102;}          goto T102;}
294          {object V13 = (V12);          {object V17 = (V16);
295          VMR5(V13)}          VMR5(V17)}
296          goto T102;          goto T102;
297  T102:;  T102:;
298          if(!(type_of((V11))==t_cons)){          if(!(type_of((V15))==t_cons)){
299          goto T105;}          goto T105;}
300          if(!((car((V11)))==(VV[14]))){          if(!((CMPcar((V15)))==(VV[14]))){
301          goto T105;}          goto T105;}
302          if(!(number_compare(caadr((V11)),symbol_value(VV[15]))==0)){          if(!(number_compare(CMPcaadr((V15)),(VV[15]->s.s_dbind))==0)){
303          goto T105;}          goto T105;}
304          princ_str("\n   vs_top=(vs_base=base+",VV[0]);          princ_str("\n   vs_top=(vs_base=base+",VV[0]);
305          (void)((*(LnkLI36))(cdadr((V11))));          (void)((*(LnkLI36))(CMPcdadr((V15))));
306          princ_str(")+1;",VV[0]);          princ_str(")+1;",VV[0]);
307          setq(VV[16],Ct);          (VV[16]->s.s_dbind)= Ct;
308          {object V14 = Ct;          {object V18 = Ct;
309          VMR5(V14)}          VMR5(V18)}
310          goto T105;          goto T105;
311  T105:;  T105:;
312          if(!(type_of((V11))==t_cons)){          if(!(type_of((V15))==t_cons)){
313          goto T117;}          goto T117;}
314          if(!((car((V11)))==(VV[17]))){          if(!((CMPcar((V15)))==(VV[17]))){
315          goto T117;}          goto T117;}
316          V15= structure_ref(cadr((V11)),VV[17],1);          if(!((STREF(object,CMPcadr((V15)),4))==(VV[18]))){
         if(!((/* INLINE-ARGS */V15)==(VV[18]))){  
317          goto T117;}          goto T117;}
318          if((structure_ref(cadr((V11)),VV[17],3))!=Cnil){          if((STREF(object,CMPcadr((V15)),12))!=Cnil){
319          goto T117;}          goto T117;}
320          V16= structure_ref(cadr((V11)),VV[17],2);          if(!(eql(CMPcar(STREF(object,CMPcadr((V15)),8)),(VV[15]->s.s_dbind)))){
         if(!(eql(car(/* INLINE-ARGS */V16),symbol_value(VV[15])))){  
321          goto T117;}          goto T117;}
322          princ_str("\n   vs_top=(vs_base=base+",VV[0]);          princ_str("\n   vs_top=(vs_base=base+",VV[0]);
323          V17= structure_ref(cadr((V11)),VV[17],2);          (void)((*(LnkLI36))(CMPcdr(STREF(object,CMPcadr((V15)),8))));
         (void)((*(LnkLI36))(cdr(/* INLINE-ARGS */V17)));  
324          princ_str(")+1;",VV[0]);          princ_str(")+1;",VV[0]);
325          setq(VV[16],Ct);          (VV[16]->s.s_dbind)= Ct;
326          {object V18 = Ct;          {object V19 = Ct;
327          VMR5(V18)}          VMR5(V19)}
328          goto T117;          goto T117;
329  T117:;  T117:;
330          {object V19 = (*(LnkLI37))((V11));          {object V20 = (*(LnkLI37))((V15));
331          VMR5(V19)}}          VMR5(V20)}}
332          return Cnil;          return Cnil;
333  }  }
334  /*      local entry for function SET-TOP        */  /*      local entry for function SET-TOP        */
335    
336  static object LI6(V21)  static object LI6(V22)
337    
338  object V21;  object V22;
339  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
340          bds_check;          bds_check;
341          goto TTL;          goto TTL;
342  TTL:;  TTL:;
343          bds_bind(VV[19],symbol_value(VV[19]));          bds_bind(VV[19],(VV[19]->s.s_dbind));
344          princ_str("\n   ",VV[0]);          princ_str("\n   ",VV[0]);
345          V22= (*(LnkLI44))();          V23= (*(LnkLI44))();
346          (void)((*(LnkLI43))(/* INLINE-ARGS */V22));          (void)((*(LnkLI43))(/* INLINE-ARGS */V23));
347          princ_str("= ",VV[0]);          princ_str("= ",VV[0]);
348          (void)((*(LnkLI36))((V21)));          (void)((*(LnkLI36))((V22)));
349          princ_char(59,VV[0]);          princ_char(59,VV[0]);
350          princ_str("\n   vs_top=(vs_base=base+",VV[0]);          princ_str("\n   vs_top=(vs_base=base+",VV[0]);
351          V23= one_minus((VV[19]->s.s_dbind));          V24= one_minus((VV[19]->s.s_dbind));
352          (void)((*(LnkLI36))(/* INLINE-ARGS */V23));          (void)((*(LnkLI36))(/* INLINE-ARGS */V24));
353          princ_str(")+1;",VV[0]);          princ_str(")+1;",VV[0]);
354          setq(VV[16],Ct);          (VV[16]->s.s_dbind)= Ct;
355          {object V24 = Ct;          {object V25 = Ct;
356          bds_unwind1;          bds_unwind1;
357          VMR6(V24)}          VMR6(V25)}
358          base[0]=base[0];          base[0]=base[0];
359          return Cnil;          return Cnil;
360  }  }
361  /*      local entry for function WT-VS-BASE     */  /*      local entry for function WT-VS-BASE     */
362    
363  static object LI7(V26)  static object LI7(V27)
364    
365  object V26;  object V27;
366  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
367          goto TTL;          goto TTL;
368  TTL:;  TTL:;
369          princ_str("vs_base[",VV[0]);          princ_str("vs_base[",VV[0]);
370          (void)((*(LnkLI36))((V26)));          (void)((*(LnkLI36))((V27)));
371          princ_char(93,VV[0]);          princ_char(93,VV[0]);
372          {object V27 = Cnil;          {object V28 = Cnil;
373          VMR7(V27)}          VMR7(V28)}
374          return Cnil;          return Cnil;
375  }  }
376  /*      local entry for function WT-CAR */  /*      local entry for function WT-CAR */
377    
378  static object LI8(V29)  static object LI8(V30)
379    
380  object V29;  object V30;
381  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
382          goto TTL;          goto TTL;
383  TTL:;  TTL:;
384          princ_str("(V",VV[0]);          princ_str("(V",VV[0]);
385          (void)((*(LnkLI36))((V29)));          (void)((*(LnkLI36))((V30)));
386          princ_str("->c.c_car)",VV[0]);          princ_str("->c.c_car)",VV[0]);
387          {object V30 = Cnil;          {object V31 = Cnil;
388          VMR8(V30)}          VMR8(V31)}
389          return Cnil;          return Cnil;
390  }  }
391  /*      local entry for function WT-CDR */  /*      local entry for function WT-CDR */
392    
393  static object LI9(V32)  static object LI9(V33)
394    
395  object V32;  object V33;
396  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
397          goto TTL;          goto TTL;
398  TTL:;  TTL:;
399          princ_str("(V",VV[0]);          princ_str("(V",VV[0]);
400          (void)((*(LnkLI36))((V32)));          (void)((*(LnkLI36))((V33)));
401          princ_str("->c.c_cdr)",VV[0]);          princ_str("->c.c_cdr)",VV[0]);
402          {object V33 = Cnil;          {object V34 = Cnil;
403          VMR9(V33)}          VMR9(V34)}
404          return Cnil;          return Cnil;
405  }  }
406  /*      local entry for function WT-CADR        */  /*      local entry for function WT-CADR        */
407    
408  static object LI10(V35)  static object LI10(V36)
409    
410  object V35;  object V36;
411  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
412          goto TTL;          goto TTL;
413  TTL:;  TTL:;
414          princ_str("(V",VV[0]);          princ_str("(V",VV[0]);
415          (void)((*(LnkLI36))((V35)));          (void)((*(LnkLI36))((V36)));
416          princ_str("->c.c_cdr->c.c_car)",VV[0]);          princ_str("->c.c_cdr->c.c_car)",VV[0]);
417          {object V36 = Cnil;          {object V37 = Cnil;
418          VMR10(V36)}          VMR10(V37)}
419          return Cnil;          return Cnil;
420  }  }
421  /*      local entry for function WT-CVAR        */  /*      local entry for function WT-CVAR        */
422    
423  static object LI11(object V37,object first,...)  static object LI11(object V38,object first,...)
424  {        {      
425          va_list ap;          va_list ap;
426          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
427          {object V38;          {object V39;
428          object V39;          object V40;
429          va_start(ap,first);          va_start(ap,first);
430          if(narg <1) too_few_arguments();          V39= V38;
         V38= V37;  
431          narg = narg - 1;          narg = narg - 1;
432          if (narg <= 0) goto T155;          if (narg <= 0) goto T155;
433          else {          else {
434          V39= first;}          V40= first;}
435          --narg; goto T156;          --narg; goto T156;
436          goto T155;          goto T155;
437  T155:;  T155:;
438          V39= Cnil;          V40= Cnil;
439          goto T156;          goto T156;
440  T156:;  T156:;
441          if(((V39))==Cnil){          if(((V40))==Cnil){
442          goto T158;}          goto T158;}
443          princ_str("/* ",VV[0]);          princ_str("/* ",VV[0]);
444          V40= symbol_name((V39));          V41= symbol_name((V40));
445          (void)((*(LnkLI36))(/* INLINE-ARGS */V40));          (void)((*(LnkLI36))(/* INLINE-ARGS */V41));
446          princ_str(" */",VV[0]);          princ_str(" */",VV[0]);
447          goto T158;          goto T158;
448  T158:;  T158:;
449          princ_char(86,VV[0]);          princ_char(86,VV[0]);
450          (void)((*(LnkLI36))((V38)));          (void)((*(LnkLI36))((V39)));
451          {object V41 = Cnil;          {object V42 = Cnil;
452          VMR11(V41)}          VMR11(V42)}
453          va_end(ap);          va_end(ap);
454          return Cnil;}          return Cnil;}
455          }          }
456  /*      local entry for function WT-VV  */  /*      local entry for function WT-VV  */
457    
458  static object LI12(V43)  static object LI12(V44)
459    
460  object V43;  object V44;
461  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
462          goto TTL;          goto TTL;
463  TTL:;  TTL:;
464          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
465          (void)((*(LnkLI36))((V43)));          (void)((*(LnkLI36))((V44)));
466          princ_char(93,VV[0]);          princ_char(93,VV[0]);
467          {object V44 = Cnil;          {object V45 = Cnil;
468          VMR12(V44)}          VMR12(V45)}
469          return Cnil;          return Cnil;
470  }  }
471  /*      function definition for WT-FIXNUM-LOC   */  /*      function definition for WT-FIXNUM-LOC   */
# Line 455  TTL:; Line 473  TTL:;
473  static void L13()  static void L13()
474  {register object *base=vs_base;  {register object *base=vs_base;
475          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
476          vs_reserve(VM13);          vs_check;
477          {register object V45;          {register object V46;
478          check_arg(1);          V46=(base[0]);
         V45=(base[0]);  
479          vs_top=sup;          vs_top=sup;
480          goto TTL;          goto TTL;
481  TTL:;  TTL:;
482          if(!(type_of((V45))==t_cons)){          if(!(type_of((V46))==t_cons)){
483          goto T170;}          goto T170;}
484          if(!((car((V45)))==(VV[17]))){          if(!((CMPcar((V46)))==(VV[17]))){
485          goto T170;}          goto T170;}
486          V46= structure_ref(cadr((V45)),VV[17],1);          if(!((STREF(object,CMPcadr((V46)),4))==(VV[20]))){
         if(!((/* INLINE-ARGS */V46)==(VV[20]))){  
487          goto T170;}          goto T170;}
488          princ_char(86,VV[0]);          princ_char(86,VV[0]);
489          V47= structure_ref(cadr((V45)),VV[17],4);          (void)((*(LnkLI36))(STREF(object,CMPcadr((V46)),16)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V47));  
490          base[1]= Cnil;          base[1]= Cnil;
491          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
492          return;          return;
493          goto T170;          goto T170;
494  T170:;  T170:;
495          if(!(type_of((V45))==t_cons)){          if(!(type_of((V46))==t_cons)){
496          goto T179;}          goto T179;}
497          if(!((car((V45)))==(VV[21]))){          if(!((CMPcar((V46)))==(VV[21]))){
498          goto T179;}          goto T179;}
499          princ_str("(long)",VV[0]);          princ_str("(long)",VV[0]);
500          base[1]= caddr((V45));          base[1]= CMPcaddr((V46));
501          base[2]= cadddr((V45));          base[2]= CMPcadddr((V46));
502          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
503          (void) (*Lnk45)();          (void) (*Lnk45)();
504          return;          return;
505          goto T179;          goto T179;
506  T179:;  T179:;
507          if(!(type_of((V45))==t_cons)){          if(!(type_of((V46))==t_cons)){
508          goto T188;}          goto T188;}
509          if(!((car((V45)))==(VV[22]))){          if(!((CMPcar((V46)))==(VV[22]))){
510          goto T188;}          goto T188;}
511          (void)((*(LnkLI36))(caddr((V45))));          (void)((*(LnkLI36))(CMPcaddr((V46))));
512          base[1]= Cnil;          base[1]= Cnil;
513          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
514          return;          return;
515          goto T188;          goto T188;
516  T188:;  T188:;
517          if(!(type_of((V45))==t_cons)){          if(!(type_of((V46))==t_cons)){
518          goto T194;}          goto T194;}
519          {register object x= car((V45)),V48= VV[23];          {register object x= CMPcar((V46)),V47= VV[23];
520          while(!endp(V48))          while(V47!=Cnil)
521          if(eql(x,V48->c.c_car)){          if(eql(x,V47->c.c_car)){
522          goto T197;          goto T197;
523          }else V48=V48->c.c_cdr;          }else V47=V47->c.c_cdr;
524          goto T194;}          goto T194;}
525          goto T197;          goto T197;
526  T197:;  T197:;
527          princ_str("((long)(",VV[0]);          princ_str("((long)(",VV[0]);
528          base[1]= caddr((V45));          base[1]= CMPcaddr((V46));
529          base[2]= cadddr((V45));          base[2]= CMPcadddr((V46));
530          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
531          (void) (*Lnk45)();          (void) (*Lnk45)();
532          vs_top=sup;          vs_top=sup;
# Line 522  T197:; Line 537  T197:;
537          goto T194;          goto T194;
538  T194:;  T194:;
539          princ_str("fix(",VV[0]);          princ_str("fix(",VV[0]);
540          (void)((*(LnkLI36))((V45)));          (void)((*(LnkLI36))((V46)));
541          princ_char(41,VV[0]);          princ_char(41,VV[0]);
542          base[1]= Cnil;          base[1]= Cnil;
543          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
544          return;          return;
545          }          }
546  }  }
547  /*      function definition for WT-INTEGER-LOC  */  /*      local entry for function WT-INTEGER-LOC */
548    
549  static void L14()  static object LI14(object V48,object first,...)
550  {register object *base=vs_base;  {      
551          register object *sup=base+VM14; VC14          va_list ap;
552          vs_reserve(VM14);          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
553          {register object V49;          {register object V49;
554          object V50;          object V50;
555          if(vs_top-vs_base<1) too_few_arguments();          va_start(ap,first);
556          if(vs_top-vs_base>2) too_many_arguments();          V49= V48;
557          V49=(base[0]);          narg = narg - 1;
558          vs_base=vs_base+1;          if (narg <= 0) goto T207;
559          if(vs_base>=vs_top){vs_top=sup;goto T207;}          else {
560          V50=(base[1]);          V50= first;}
561          vs_top=sup;          --narg; goto T208;
         goto T208;  
562          goto T207;          goto T207;
563  T207:;  T207:;
564          V50= Cnil;          V50= Cnil;
# Line 559  T208:; Line 573  T208:;
573          goto T211;          goto T211;
574          goto T212;          goto T212;
575  T212:;  T212:;
576          V52= car((V49));          V52= CMPcar((V49));
577          goto T211;          goto T211;
578  T211:;  T211:;
579          {object V53= (V52);          {object V53= (V52);
580          if((V53!= VV[21]))goto T215;          if((V53!= VV[21]))goto T215;
581          princ_str("stoi(",VV[0]);          princ_str("stoi(",VV[0]);
582          base[3]= caddr((V49));          base[1]= CMPcaddr((V49));
583          base[4]= cadddr((V49));          base[2]= CMPcadddr((V49));
584          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+1)+2;
585          (void) (*Lnk45)();          (void) (*Lnk45)();
586          vs_top=sup;          vs_top=sup;
587          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 576  T211:; Line 590  T211:;
590  T215:;  T215:;
591          if((V53!= VV[46]))goto T222;          if((V53!= VV[46]))goto T222;
592          V51= Cnil;          V51= Cnil;
593          base[3]= caddr((V49));          base[1]= CMPcaddr((V49));
594          base[4]= cadddr((V49));          base[2]= CMPcadddr((V49));
595          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+1)+2;
596          (void) (*Lnk45)();          (void) (*Lnk45)();
597          vs_top=sup;          vs_top=sup;
598          goto T214;          goto T214;
# Line 586  T215:; Line 600  T215:;
600  T222:;  T222:;
601          if((V53!= VV[22]))goto T227;          if((V53!= VV[22]))goto T227;
602          princ_str("stoi(",VV[0]);          princ_str("stoi(",VV[0]);
603          (void)((*(LnkLI36))(caddr((V49))));          (void)((*(LnkLI36))(CMPcaddr((V49))));
604          princ_char(41,VV[0]);          princ_char(41,VV[0]);
605          goto T214;          goto T214;
606          goto T227;          goto T227;
607  T227:;  T227:;
608          if((V53!= VV[17]))goto T231;          if((V53!= VV[17]))goto T231;
609          V55= structure_ref(cadr((V49)),VV[17],1);          {object V54= STREF(object,CMPcadr((V49)),4);
         {object V54= /* INLINE-ARGS */V55;  
610          if((V54!= VV[47]))goto T232;          if((V54!= VV[47]))goto T232;
611          V51= Cnil;          V51= Cnil;
612          princ_char(86,VV[0]);          princ_char(86,VV[0]);
613          V56= structure_ref(cadr((V49)),VV[17],4);          (void)((*(LnkLI36))(STREF(object,CMPcadr((V49)),16)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V56));  
614          goto T214;          goto T214;
615          goto T232;          goto T232;
616  T232:;  T232:;
617          if((V54!= VV[20]))goto T237;          if((V54!= VV[20]))goto T237;
618          princ_str("stoi(V",VV[0]);          princ_str("stoi(V",VV[0]);
619          V57= structure_ref(cadr((V49)),VV[17],4);          (void)((*(LnkLI36))(STREF(object,CMPcadr((V49)),16)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V57));  
620          princ_char(41,VV[0]);          princ_char(41,VV[0]);
621          goto T214;          goto T214;
622          goto T237;          goto T237;
# Line 622  T231:; Line 633  T231:;
633          goto T214;          goto T214;
634  T214:;  T214:;
635          if((V51)==Cnil){          if((V51)==Cnil){
636          base[3]= Cnil;          {object V55 = Cnil;
637          vs_top=(vs_base=base+3)+1;          VMR14(V55)}}
638          return;}          if(((VV[24]->s.s_dbind))==Cnil){
         if((symbol_value(VV[24]))==Cnil){  
639          goto T247;}          goto T247;}
640          base[3]= Cnil;          {object V56 = Cnil;
641          vs_top=(vs_base=base+3)+1;          VMR14(V56)}
         return;  
642          goto T247;          goto T247;
643  T247:;  T247:;
644          base[3]= (*(LnkLI48))();          {object V57 = (*(LnkLI48))();
645          vs_top=(vs_base=base+3)+1;          VMR14(V57)}}
646          return;}          va_end(ap);
647            base[0]=base[0];
648            return Cnil;}
649          }          }
 }  
650  /*      local entry for function FIXNUM-LOC-P   */  /*      local entry for function FIXNUM-LOC-P   */
651    
652  static object LI15(V59)  static object LI15(V59)
# Line 651  TTL:; Line 661  TTL:;
661          VMR15(V60)}          VMR15(V60)}
662          goto T249;          goto T249;
663  T249:;{object V61;  T249:;{object V61;
664          if((car((V59)))==(VV[17])){          if((CMPcar((V59)))==(VV[17])){
665          goto T253;}          goto T253;}
666          V61= Cnil;          V61= Cnil;
667          goto T252;          goto T252;
668          goto T253;          goto T253;
669  T253:;  T253:;
670          V62= structure_ref(cadr((V59)),VV[17],1);          V61= ((STREF(object,CMPcadr((V59)),4))==(VV[20])?Ct:Cnil);
         V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil);  
671          goto T252;          goto T252;
672  T252:;  T252:;
673          if(V61==Cnil)goto T251;          if(V61==Cnil)goto T251;
674          {object V63 = V61;          {object V62 = V61;
675          VMR15(V63)}          VMR15(V62)}
676          goto T251;          goto T251;
677  T251:;}  T251:;}
678          if(!((car((V59)))==(VV[21]))){          if(!((CMPcar((V59)))==(VV[21]))){
679          goto T255;}          goto T255;}
680          {object V64 = Ct;          {object V63 = Ct;
681          VMR15(V64)}          VMR15(V63)}
682          goto T255;          goto T255;
683  T255:;  T255:;
684          {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);          {object V64 = ((CMPcar((V59)))==(VV[22])?Ct:Cnil);
685          VMR15(V65)}          VMR15(V64)}
686          return Cnil;          return Cnil;
687  }  }
688  /*      local entry for function WT-FIXNUM-VALUE        */  /*      local entry for function WT-FIXNUM-VALUE        */
689    
690  static object LI16(V68,V69)  static object LI16(V67,V68)
691    
692  object V68;object V69;  object V67;object V68;
693  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
694          goto TTL;          goto TTL;
695  TTL:;  TTL:;
696          if(((V68))==Cnil){          if(((V67))==Cnil){
697          goto T258;}          goto T258;}
698          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
699          (void)((*(LnkLI36))((V68)));          (void)((*(LnkLI36))((V67)));
700          princ_char(93,VV[0]);          princ_char(93,VV[0]);
701          {object V70 = Cnil;          {object V69 = Cnil;
702          VMR16(V70)}          VMR16(V69)}
703          goto T258;          goto T258;
704  T258:;  T258:;
705          princ_str("small_fixnum(",VV[0]);          princ_str("small_fixnum(",VV[0]);
706          (void)((*(LnkLI36))((V69)));          (void)((*(LnkLI36))((V68)));
707          princ_char(41,VV[0]);          princ_char(41,VV[0]);
708          {object V71 = Cnil;          {object V70 = Cnil;
709          VMR16(V71)}          VMR16(V70)}
710          return Cnil;          return Cnil;
711  }  }
712  /*      function definition for WT-CHARACTER-LOC        */  /*      function definition for WT-CHARACTER-LOC        */
# Line 705  T258:; Line 714  T258:;
714  static void L17()  static void L17()
715  {register object *base=vs_base;  {register object *base=vs_base;
716          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
717          vs_reserve(VM17);          vs_check;
718          {register object V72;          {register object V71;
719          check_arg(1);          V71=(base[0]);
         V72=(base[0]);  
720          vs_top=sup;          vs_top=sup;
721          goto TTL;          goto TTL;
722  TTL:;  TTL:;
723          if(!(type_of((V72))==t_cons)){          if(!(type_of((V71))==t_cons)){
724          goto T267;}          goto T267;}
725          if(!((car((V72)))==(VV[17]))){          if(!((CMPcar((V71)))==(VV[17]))){
726          goto T267;}          goto T267;}
727          V73= structure_ref(cadr((V72)),VV[17],1);          if(!((STREF(object,CMPcadr((V71)),4))==(VV[25]))){
         if(!((/* INLINE-ARGS */V73)==(VV[25]))){  
728          goto T267;}          goto T267;}
729          princ_char(86,VV[0]);          princ_char(86,VV[0]);
730          V74= structure_ref(cadr((V72)),VV[17],4);          (void)((*(LnkLI36))(STREF(object,CMPcadr((V71)),16)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V74));  
731          base[1]= Cnil;          base[1]= Cnil;
732          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
733          return;          return;
734          goto T267;          goto T267;
735  T267:;  T267:;
736          if(!(type_of((V72))==t_cons)){          if(!(type_of((V71))==t_cons)){
737          goto T276;}          goto T276;}
738          if(!((car((V72)))==(VV[26]))){          if(!((CMPcar((V71)))==(VV[26]))){
739          goto T276;}          goto T276;}
740          base[1]= caddr((V72));          base[1]= CMPcaddr((V71));
741          base[2]= cadddr((V72));          base[2]= CMPcadddr((V71));
742          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
743          (void) (*Lnk45)();          (void) (*Lnk45)();
744          return;          return;
745          goto T276;          goto T276;
746  T276:;  T276:;
747          if(!(type_of((V72))==t_cons)){          if(!(type_of((V71))==t_cons)){
748          goto T283;}          goto T283;}
749          if(!((car((V72)))==(VV[27]))){          if(!((CMPcar((V71)))==(VV[27]))){
750          goto T283;}          goto T283;}
751          (void)((*(LnkLI36))(caddr((V72))));          (void)((*(LnkLI36))(CMPcaddr((V71))));
752          base[1]= Cnil;          base[1]= Cnil;
753          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
754          return;          return;
755          goto T283;          goto T283;
756  T283:;  T283:;
757          princ_str("char_code(",VV[0]);          princ_str("char_code(",VV[0]);
758          (void)((*(LnkLI36))((V72)));          (void)((*(LnkLI36))((V71)));
759          princ_char(41,VV[0]);          princ_char(41,VV[0]);
760          base[1]= Cnil;          base[1]= Cnil;
761          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 758  T283:; Line 764  T283:;
764  }  }
765  /*      local entry for function CHARACTER-LOC-P        */  /*      local entry for function CHARACTER-LOC-P        */
766    
767  static object LI18(V76)  static object LI18(V73)
768    
769  register object V76;  register object V73;
770  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
771          goto TTL;          goto TTL;
772  TTL:;  TTL:;
773          if(type_of((V76))==t_cons){          if(type_of((V73))==t_cons){
774          goto T291;}          goto T291;}
775          {object V77 = Cnil;          {object V74 = Cnil;
776          VMR18(V77)}          VMR18(V74)}
777          goto T291;          goto T291;
778  T291:;{object V78;  T291:;{object V75;
779          if((car((V76)))==(VV[17])){          if((CMPcar((V73)))==(VV[17])){
780          goto T295;}          goto T295;}
781          V78= Cnil;          V75= Cnil;
782          goto T294;          goto T294;
783          goto T295;          goto T295;
784  T295:;  T295:;
785          V79= structure_ref(cadr((V76)),VV[17],1);          V75= ((STREF(object,CMPcadr((V73)),4))==(VV[25])?Ct:Cnil);
         V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil);  
786          goto T294;          goto T294;
787  T294:;  T294:;
788          if(V78==Cnil)goto T293;          if(V75==Cnil)goto T293;
789          {object V80 = V78;          {object V76 = V75;
790          VMR18(V80)}          VMR18(V76)}
791          goto T293;          goto T293;
792  T293:;}  T293:;}
793          if(!((car((V76)))==(VV[26]))){          if(!((CMPcar((V73)))==(VV[26]))){
794          goto T297;}          goto T297;}
795          {object V81 = Ct;          {object V77 = Ct;
796          VMR18(V81)}          VMR18(V77)}
797          goto T297;          goto T297;
798  T297:;  T297:;
799          {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);          {object V78 = ((CMPcar((V73)))==(VV[27])?Ct:Cnil);
800          VMR18(V82)}          VMR18(V78)}
801          return Cnil;          return Cnil;
802  }  }
803  /*      local entry for function WT-CHARACTER-VALUE     */  /*      local entry for function WT-CHARACTER-VALUE     */
804    
805  static object LI19(V85,V86)  static object LI19(V81,V82)
806    
807  object V85;object V86;  object V81;object V82;
808  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
809          goto TTL;          goto TTL;
810  TTL:;  TTL:;
811          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
812          (void)((*(LnkLI36))((V85)));          (void)((*(LnkLI36))((V81)));
813          princ_char(93,VV[0]);          princ_char(93,VV[0]);
814          {object V87 = Cnil;          {object V83 = Cnil;
815          VMR19(V87)}          VMR19(V83)}
816          return Cnil;          return Cnil;
817  }  }
818  /*      function definition for WT-LONG-FLOAT-LOC       */  /*      function definition for WT-LONG-FLOAT-LOC       */
# Line 815  TTL:; Line 820  TTL:;
820  static void L20()  static void L20()
821  {register object *base=vs_base;  {register object *base=vs_base;
822          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
823          vs_reserve(VM20);          vs_check;
824          {register object V88;          {register object V84;
825          check_arg(1);          V84=(base[0]);
         V88=(base[0]);  
826          vs_top=sup;          vs_top=sup;
827          goto TTL;          goto TTL;
828  TTL:;  TTL:;
829          if(!(type_of((V88))==t_cons)){          if(!(type_of((V84))==t_cons)){
830          goto T303;}          goto T303;}
831          if(!((car((V88)))==(VV[17]))){          if(!((CMPcar((V84)))==(VV[17]))){
832          goto T303;}          goto T303;}
833          V89= structure_ref(cadr((V88)),VV[17],1);          if(!((STREF(object,CMPcadr((V84)),4))==(VV[28]))){
         if(!((/* INLINE-ARGS */V89)==(VV[28]))){  
834          goto T303;}          goto T303;}
835          princ_char(86,VV[0]);          princ_char(86,VV[0]);
836          V90= structure_ref(cadr((V88)),VV[17],4);          (void)((*(LnkLI36))(STREF(object,CMPcadr((V84)),16)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V90));  
837          base[1]= Cnil;          base[1]= Cnil;
838          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
839          return;          return;
840          goto T303;          goto T303;
841  T303:;  T303:;
842          if(!(type_of((V88))==t_cons)){          if(!(type_of((V84))==t_cons)){
843          goto T312;}          goto T312;}
844          if(!((car((V88)))==(VV[29]))){          if(!((CMPcar((V84)))==(VV[29]))){
845          goto T312;}          goto T312;}
846          base[1]= caddr((V88));          base[1]= CMPcaddr((V84));
847          base[2]= cadddr((V88));          base[2]= CMPcadddr((V84));
848          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
849          (void) (*Lnk45)();          (void) (*Lnk45)();
850          return;          return;
851          goto T312;          goto T312;
852  T312:;  T312:;
853          if(!(type_of((V88))==t_cons)){          if(!(type_of((V84))==t_cons)){
854          goto T319;}          goto T319;}
855          if(!((car((V88)))==(VV[30]))){          if(!((CMPcar((V84)))==(VV[30]))){
856          goto T319;}          goto T319;}
857          (void)((*(LnkLI36))(caddr((V88))));          (void)((*(LnkLI36))(CMPcaddr((V84))));
858          base[1]= Cnil;          base[1]= Cnil;
859          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
860          return;          return;
861          goto T319;          goto T319;
862  T319:;  T319:;
863          princ_str("lf(",VV[0]);          princ_str("lf(",VV[0]);
864          (void)((*(LnkLI36))((V88)));          (void)((*(LnkLI36))((V84)));
865          princ_char(41,VV[0]);          princ_char(41,VV[0]);
866          base[1]= Cnil;          base[1]= Cnil;
867          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 868  T319:; Line 870  T319:;
870  }  }
871  /*      local entry for function LONG-FLOAT-LOC-P       */  /*      local entry for function LONG-FLOAT-LOC-P       */
872    
873  static object LI21(V92)  static object LI21(V86)
874    
875  register object V92;  register object V86;
876  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
877          goto TTL;          goto TTL;
878  TTL:;  TTL:;
879          if(type_of((V92))==t_cons){          if(type_of((V86))==t_cons){
880          goto T327;}          goto T327;}
881          {object V93 = Cnil;          {object V87 = Cnil;
882          VMR21(V93)}          VMR21(V87)}
883          goto T327;          goto T327;
884  T327:;{object V94;  T327:;{object V88;
885          if((car((V92)))==(VV[17])){          if((CMPcar((V86)))==(VV[17])){
886          goto T331;}          goto T331;}
887          V94= Cnil;          V88= Cnil;
888          goto T330;          goto T330;
889          goto T331;          goto T331;
890  T331:;  T331:;
891          V95= structure_ref(cadr((V92)),VV[17],1);          V88= ((STREF(object,CMPcadr((V86)),4))==(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(V88==Cnil)goto T329;
895          {object V96 = V94;          {object V89 = V88;
896          VMR21(V96)}          VMR21(V89)}
897          goto T329;          goto T329;
898  T329:;}  T329:;}
899          if(!((car((V92)))==(VV[29]))){          if(!((CMPcar((V86)))==(VV[29]))){
900          goto T333;}          goto T333;}
901          {object V97 = Ct;          {object V90 = Ct;
902          VMR21(V97)}          VMR21(V90)}
903          goto T333;          goto T333;
904  T333:;  T333:;
905          {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);          {object V91 = ((CMPcar((V86)))==(VV[30])?Ct:Cnil);
906          VMR21(V98)}          VMR21(V91)}
907          return Cnil;          return Cnil;
908  }  }
909  /*      local entry for function WT-LONG-FLOAT-VALUE    */  /*      local entry for function WT-LONG-FLOAT-VALUE    */
910    
911  static object LI22(V101,V102)  static object LI22(V94,V95)
912    
913  object V101;object V102;  object V94;object V95;
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))((V94)));
919          princ_char(93,VV[0]);          princ_char(93,VV[0]);
920          {object V103 = Cnil;          {object V96 = Cnil;
921          VMR22(V103)}          VMR22(V96)}
922          return Cnil;          return Cnil;
923  }  }
924  /*      function definition for WT-SHORT-FLOAT-LOC      */  /*      function definition for WT-SHORT-FLOAT-LOC      */
# Line 925  TTL:; Line 926  TTL:;
926  static void L23()  static void L23()
927  {register object *base=vs_base;  {register object *base=vs_base;
928          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
929          vs_reserve(VM23);          vs_check;
930          {register object V104;          {register object V97;
931          check_arg(1);          V97=(base[0]);
         V104=(base[0]);  
932          vs_top=sup;          vs_top=sup;
933          goto TTL;          goto TTL;
934  TTL:;  TTL:;
935          if(!(type_of((V104))==t_cons)){          if(!(type_of((V97))==t_cons)){
936          goto T339;}          goto T339;}
937          if(!((car((V104)))==(VV[17]))){          if(!((CMPcar((V97)))==(VV[17]))){
938          goto T339;}          goto T339;}
939          V105= structure_ref(cadr((V104)),VV[17],1);          if(!((STREF(object,CMPcadr((V97)),4))==(VV[31]))){
         if(!((/* INLINE-ARGS */V105)==(VV[31]))){  
940          goto T339;}          goto T339;}
941          princ_char(86,VV[0]);          princ_char(86,VV[0]);
942          V106= structure_ref(cadr((V104)),VV[17],4);          (void)((*(LnkLI36))(STREF(object,CMPcadr((V97)),16)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V106));  
943          base[1]= Cnil;          base[1]= Cnil;
944          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
945          return;          return;
946          goto T339;          goto T339;
947  T339:;  T339:;
948          if(!(type_of((V104))==t_cons)){          if(!(type_of((V97))==t_cons)){
949          goto T348;}          goto T348;}
950          if(!((car((V104)))==(VV[32]))){          if(!((CMPcar((V97)))==(VV[32]))){
951          goto T348;}          goto T348;}
952          base[1]= caddr((V104));          base[1]= CMPcaddr((V97));
953          base[2]= cadddr((V104));          base[2]= CMPcadddr((V97));
954          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
955          (void) (*Lnk45)();          (void) (*Lnk45)();
956          return;          return;
957          goto T348;          goto T348;
958  T348:;  T348:;
959          if(!(type_of((V104))==t_cons)){          if(!(type_of((V97))==t_cons)){
960          goto T355;}          goto T355;}
961          if(!((car((V104)))==(VV[33]))){          if(!((CMPcar((V97)))==(VV[33]))){
962          goto T355;}          goto T355;}
963          (void)((*(LnkLI36))(caddr((V104))));          (void)((*(LnkLI36))(CMPcaddr((V97))));
964          base[1]= Cnil;          base[1]= Cnil;
965          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
966          return;          return;
967          goto T355;          goto T355;
968  T355:;  T355:;
969          princ_str("sf(",VV[0]);          princ_str("sf(",VV[0]);
970          (void)((*(LnkLI36))((V104)));          (void)((*(LnkLI36))((V97)));
971          princ_char(41,VV[0]);          princ_char(41,VV[0]);
972          base[1]= Cnil;          base[1]= Cnil;
973          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 978  T355:; Line 976  T355:;
976  }  }
977  /*      local entry for function SHORT-FLOAT-LOC-P      */  /*      local entry for function SHORT-FLOAT-LOC-P      */
978    
979  static object LI24(V108)  static object LI24(V99)
980    
981  register object V108;  register object V99;
982  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
983          goto TTL;          goto TTL;
984  TTL:;  TTL:;
985          if(type_of((V108))==t_cons){          if(type_of((V99))==t_cons){
986          goto T363;}          goto T363;}
987          {object V109 = Cnil;          {object V100 = Cnil;
988          VMR24(V109)}          VMR24(V100)}
989          goto T363;          goto T363;
990  T363:;{object V110;  T363:;{object V101;
991          if((car((V108)))==(VV[17])){          if((CMPcar((V99)))==(VV[17])){
992          goto T367;}          goto T367;}
993          V110= Cnil;          V101= Cnil;
994          goto T366;          goto T366;
995          goto T367;          goto T367;
996  T367:;  T367:;
997          V111= structure_ref(cadr((V108)),VV[17],1);          V101= ((STREF(object,CMPcadr((V99)),4))==(VV[31])?Ct:Cnil);
         V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil);  
998          goto T366;          goto T366;
999  T366:;  T366:;
1000          if(V110==Cnil)goto T365;          if(V101==Cnil)goto T365;
1001          {object V112 = V110;          {object V102 = V101;
1002          VMR24(V112)}          VMR24(V102)}
1003          goto T365;          goto T365;
1004  T365:;}  T365:;}
1005          if(!((car((V108)))==(VV[32]))){          if(!((CMPcar((V99)))==(VV[32]))){
1006          goto T369;}          goto T369;}
1007          {object V113 = Ct;          {object V103 = Ct;
1008          VMR24(V113)}          VMR24(V103)}
1009          goto T369;          goto T369;
1010  T369:;  T369:;
1011          {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);          {object V104 = ((CMPcar((V99)))==(VV[33])?Ct:Cnil);
1012          VMR24(V114)}          VMR24(V104)}
1013          return Cnil;          return Cnil;
1014  }  }
1015  /*      local entry for function WT-SHORT-FLOAT-VALUE   */  /*      local entry for function WT-SHORT-FLOAT-VALUE   */
1016    
1017  static object LI25(V117,V118)  static object LI25(V107,V108)
1018    
1019  object V117;object V118;  object V107;object V108;
1020  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1021          goto TTL;          goto TTL;
1022  TTL:;  TTL:;
1023          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
1024          (void)((*(LnkLI36))((V117)));          (void)((*(LnkLI36))((V107)));
1025          princ_char(93,VV[0]);          princ_char(93,VV[0]);
1026          {object V119 = Cnil;          {object V109 = Cnil;
1027          VMR25(V119)}          VMR25(V109)}
1028          return Cnil;          return Cnil;
1029  }  }
1030  static object  LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* WFS-ERROR */  static object  LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* WFS-ERROR */

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

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