/[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.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Sun Feb 9 22:35:14 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmploc.h"  #include "cmploc.h"
4  void init_cmploc(){do_init(VV);}  void init_cmploc(){do_init(VV);}
5    /*      function definition for WT-FIRST-VAR-ARG        */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            check_arg(0);
12            vs_top=sup;
13    goto TTL;
14    TTL:;
15            princ_str("first",VV[0]);
16            base[0]= Cnil;
17            vs_top=(vs_base=base+0)+1;
18            return;
19    }
20  /*      local entry for function WT-NEXT-VAR-ARG        */  /*      local entry for function WT-NEXT-VAR-ARG        */
21    
22  static object LI1()  static object LI2()
23    
24  {        VMB1 VMS1 VMV1  {        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;
29          VMR1(V1)}          VMR2(V1)}
30          return Cnil;          return Cnil;
31  }  }
32  /*      function definition for SET-LOC */  /*      function definition for SET-LOC */
33    
34  static void L2()  static void L3()
35  {register object *base=vs_base;  {register object *base=vs_base;
36          register object *sup=base+VM2; VC2          register object *sup=base+VM3; VC3
37          vs_reserve(VM2);          vs_reserve(VM3);
38          {register object V2;          {register object V2;
39          check_arg(1);          check_arg(1);
40          V2=(base[0]);          V2=(base[0]);
# Line 29  TTL:; Line 44  TTL:;
44          {register object V3;          {register object V3;
45          V3= Cnil;          V3= Cnil;
46          if(!((symbol_value(VV[1]))==(VV[2]))){          if(!((symbol_value(VV[1]))==(VV[2]))){
47          goto T4;}          goto T5;}
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 T4;  goto T5;
52  T4:;  T5:;
53          if(!((symbol_value(VV[1]))==(VV[3]))){          if(!((symbol_value(VV[1]))==(VV[3]))){
54          goto T7;}          goto T8;}
55          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
56          goto T10;}          goto T11;}
57          {register object x= car((V2)),V4= VV[4];          {register object x= car((V2)),V4= VV[4];
58          while(!endp(V4))          while(!endp(V4))
59          if(eql(x,V4->c.c_car)){          if(eql(x,V4->c.c_car)){
60          goto T14;          goto T15;
61          }else V4=V4->c.c_cdr;          }else V4=V4->c.c_cdr;
62          goto T10;}          goto T11;}
63  goto T14;  goto T15;
64  T14:;  T15:;
65          if((cadr((V2)))==Cnil){          if((cadr((V2)))==Cnil){
66          goto T10;}          goto T11;}
67          princ_str("\n   (void)(",VV[0]);          princ_str("\n   (void)(",VV[0]);
68          base[1]= Ct;          base[1]= Ct;
69          base[2]= caddr((V2));          base[2]= caddr((V2));
# Line 60  T14:; Line 75  T14:;
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 T10;  goto T11;
79  T10:;  T11:;
80          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
81          goto T24;}          goto T25;}
82          if(!((car((V2)))==(VV[5]))){          if(!((car((V2)))==(VV[5]))){
83          goto T24;}          goto T25;}
84          princ_str("\n   (void)",VV[0]);          princ_str("\n   (void)",VV[0]);
85          (void)((*(LnkLI36))((V2)));          (void)((*(LnkLI36))((V2)));
86          princ_char(59,VV[0]);          princ_char(59,VV[0]);
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 T24;  goto T25;
91  T24:;  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 T7;  goto T8;
96  T7:;  T8:;
97          if(!((symbol_value(VV[1]))==(VV[6]))){          if(!((symbol_value(VV[1]))==(VV[6]))){
98          goto T32;}          goto T33;}
99          if(((V2))==(VV[7])){          if(((V2))==(VV[7])){
100          goto T35;}          goto T36;}
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 T35;  goto T36;
105  T35:;  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 T32;  goto T33;
110  T32:;  T33:;
111          if(!((symbol_value(VV[1]))==(VV[8]))){          if(!((symbol_value(VV[1]))==(VV[8]))){
112          goto T38;}          goto T39;}
113          base[1]= (V2);          base[1]= (V2);
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 T38;  goto T39;
118  T38:;  T39:;
119          if(!((symbol_value(VV[1]))==(VV[9]))){          if(!((symbol_value(VV[1]))==(VV[9]))){
120          goto T42;}          goto T43;}
121          base[1]= (V2);          base[1]= (V2);
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 T42;  goto T43;
126  T42:;  T43:;
127          if(!((symbol_value(VV[1]))==(VV[10]))){          if(!((symbol_value(VV[1]))==(VV[10]))){
128          goto T46;}          goto T47;}
129          base[1]= (V2);          base[1]= (V2);
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 T46;  goto T47;
134  T46:;  T47:;
135          if(!((symbol_value(VV[1]))==(VV[11]))){          if(!((symbol_value(VV[1]))==(VV[11]))){
136          goto T50;}          goto T51;}
137          base[1]= (V2);          base[1]= (V2);
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 T50;  goto T51;
142  T50:;  T51:;
143          if(!(type_of(symbol_value(VV[1]))==t_cons)){          if(!(type_of(symbol_value(VV[1]))==t_cons)){
         goto T53;}  
         if(type_of(car(symbol_value(VV[1])))==t_symbol){  
144          goto T54;}          goto T54;}
145  goto T53;          if(type_of(car(symbol_value(VV[1])))==t_symbol){
146  T53:;          goto T55;}
147    goto T54;
148    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 T54;  goto T55;
153  T54:;  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){
156          goto T59;}          goto T60;}
157          base[1]= (V3);          base[1]= (V3);
158          base[2]= (V2);          base[2]= (V2);
159          {object V5;          {object V5;
# Line 149  T54:; Line 164  T54:;
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 T59;  goto T60;
168  T59:;  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){
171          goto T66;}          goto T67;}
172          princ_str("\n   ",VV[0]);          princ_str("\n   ",VV[0]);
173          base[1]= (V3);          base[1]= (V3);
174          {object V6;          {object V6;
# Line 170  T59:; Line 185  T59:;
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 T66;  goto T67;
189  T66:;  T67:;
190          base[1]= (*(LnkLI42))();          base[1]= (*(LnkLI42))();
191          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
192          return;}          return;}
# Line 179  T66:; Line 194  T66:;
194  }  }
195  /*      function definition for WT-LOC  */  /*      function definition for WT-LOC  */
196    
197  static void L3()  static void L4()
198  {register object *base=vs_base;  {register object *base=vs_base;
199          register object *sup=base+VM3; VC3          register object *sup=base+VM4; VC4
200          vs_reserve(VM3);          vs_reserve(VM4);
201          {register object V7;          {register object V7;
202          check_arg(1);          check_arg(1);
203          V7=(base[0]);          V7=(base[0]);
# Line 190  static void L3() Line 205  static void L3()
205  goto TTL;  goto TTL;
206  TTL:;  TTL:;
207          if(!(((V7))==(Cnil))){          if(!(((V7))==(Cnil))){
208          goto T77;}          goto T78;}
209          princ_str("Cnil",VV[0]);          princ_str("Cnil",VV[0]);
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 T77;  goto T78;
214  T77:;  T78:;
215          if(!(((V7))==(Ct))){          if(!(((V7))==(Ct))){
216          goto T81;}          goto T82;}
217          princ_str("Ct",VV[0]);          princ_str("Ct",VV[0]);
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 T81;  goto T82;
222  T81:;  T82:;
223          if(!(((V7))==(VV[7]))){          if(!(((V7))==(VV[7]))){
224          goto T85;}          goto T86;}
225          princ_str("vs_base[0]",VV[0]);          princ_str("vs_base[0]",VV[0]);
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 T85;  goto T86;
230  T85:;  T86:;
231          if(!(type_of((V7))==t_cons)){          if(!(type_of((V7))==t_cons)){
         goto T88;}  
         if(type_of(car((V7)))==t_symbol){  
232          goto T89;}          goto T89;}
233  goto T88;          if(type_of(car((V7)))==t_symbol){
234  T88:;          goto T90;}
235    goto T89;
236    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 T89;  goto T90;
241  T89:;  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 T94;}          goto T95;}
246          (void)((*(LnkLI42))());          (void)((*(LnkLI42))());
247  goto T94;  goto T95;
248  T94:;  T95:;
249          base[1]= (V8);          base[1]= (V8);
250          {object V9;          {object V9;
251          V9= cdr((V7));          V9= cdr((V7));
# Line 244  T94:; Line 259  T94:;
259  }  }
260  /*      local entry for function SET-RETURN     */  /*      local entry for function SET-RETURN     */
261    
262  static object LI4(V11)  static object LI5(V11)
263    
264  register object V11;  register object V11;
265  {        VMB4 VMS4 VMV4  {        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);
270          if(((V12))==Cnil){          if(((V12))==Cnil){
271          goto T101;}          goto T102;}
272          {object V13 = (V12);          {object V13 = (V12);
273          VMR4(V13)}          VMR5(V13)}
274  goto T101;  goto T102;
275  T101:;  T102:;
276          if(!(type_of((V11))==t_cons)){          if(!(type_of((V11))==t_cons)){
277          goto T104;}          goto T105;}
278          if(!((car((V11)))==(VV[14]))){          if(!((car((V11)))==(VV[14]))){
279          goto T104;}          goto T105;}
280          if(!(number_compare(caadr((V11)),symbol_value(VV[15]))==0)){          if(!(number_compare(caadr((V11)),symbol_value(VV[15]))==0)){
281          goto T104;}          goto T105;}
282          princ_str("\n   vs_top=(vs_base=base+",VV[0]);          princ_str("\n   vs_top=(vs_base=base+",VV[0]);
283          (void)((*(LnkLI36))(cdadr((V11))));          (void)((*(LnkLI36))(cdadr((V11))));
284          princ_str(")+1;",VV[0]);          princ_str(")+1;",VV[0]);
285          setq(VV[16],Ct);          setq(VV[16],Ct);
286          {object V14 = Ct;          {object V14 = Ct;
287          VMR4(V14)}          VMR5(V14)}
288  goto T104;  goto T105;
289  T104:;  T105:;
290          if(!(type_of((V11))==t_cons)){          if(!(type_of((V11))==t_cons)){
291          goto T116;}          goto T117;}
292          if(!((car((V11)))==(VV[17]))){          if(!((car((V11)))==(VV[17]))){
293          goto T116;}          goto T117;}
294          V15= structure_ref(cadr((V11)),VV[17],1);          V15= structure_ref(cadr((V11)),VV[17],1);
295          if(!((/* INLINE-ARGS */V15)==(VV[18]))){          if(!((/* INLINE-ARGS */V15)==(VV[18]))){
296          goto T116;}          goto T117;}
297          if((structure_ref(cadr((V11)),VV[17],3))!=Cnil){          if((structure_ref(cadr((V11)),VV[17],3))!=Cnil){
298          goto T116;}          goto T117;}
299          V16= structure_ref(cadr((V11)),VV[17],2);          V16= structure_ref(cadr((V11)),VV[17],2);
300          if(!(eql(car(/* INLINE-ARGS */V16),symbol_value(VV[15])))){          if(!(eql(car(/* INLINE-ARGS */V16),symbol_value(VV[15])))){
301          goto T116;}          goto T117;}
302          princ_str("\n   vs_top=(vs_base=base+",VV[0]);          princ_str("\n   vs_top=(vs_base=base+",VV[0]);
303          V17= structure_ref(cadr((V11)),VV[17],2);          V17= structure_ref(cadr((V11)),VV[17],2);
304          (void)((*(LnkLI36))(cdr(/* INLINE-ARGS */V17)));          (void)((*(LnkLI36))(cdr(/* INLINE-ARGS */V17)));
305          princ_str(")+1;",VV[0]);          princ_str(")+1;",VV[0]);
306          setq(VV[16],Ct);          setq(VV[16],Ct);
307          {object V18 = Ct;          {object V18 = Ct;
308          VMR4(V18)}          VMR5(V18)}
309  goto T116;  goto T117;
310  T116:;  T117:;
311          {object V19 = (*(LnkLI37))((V11));          {object V19 = (*(LnkLI37))((V11));
312          VMR4(V19)}}          VMR5(V19)}}
313          return Cnil;          return Cnil;
314  }  }
315  /*      local entry for function SET-TOP        */  /*      local entry for function SET-TOP        */
316    
317  static object LI5(V21)  static object LI6(V21)
318    
319  object V21;  object V21;
320  {        VMB5 VMS5 VMV5  {        VMB6 VMS6 VMV6
321          bds_check;          bds_check;
322  goto TTL;  goto TTL;
323  TTL:;  TTL:;
# Line 320  TTL:; Line 335  TTL:;
335          setq(VV[16],Ct);          setq(VV[16],Ct);
336          {object V24 = Ct;          {object V24 = Ct;
337          bds_unwind1;          bds_unwind1;
338          VMR5(V24)}          VMR6(V24)}
339          base[0]=base[0];          base[0]=base[0];
340          return Cnil;          return Cnil;
341  }  }
342  /*      local entry for function WT-VS-BASE     */  /*      local entry for function WT-VS-BASE     */
343    
344  static object LI6(V26)  static object LI7(V26)
345    
346  object V26;  object V26;
347  {        VMB6 VMS6 VMV6  {        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)));
352          princ_char(93,VV[0]);          princ_char(93,VV[0]);
353          {object V27 = Cnil;          {object V27 = Cnil;
354          VMR6(V27)}          VMR7(V27)}
355          return Cnil;          return Cnil;
356  }  }
357  /*      local entry for function WT-CAR */  /*      local entry for function WT-CAR */
358    
359  static object LI7(V29)  static object LI8(V29)
360    
361  object V29;  object V29;
362  {        VMB7 VMS7 VMV7  {        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)));
367          princ_str("->c.c_car)",VV[0]);          princ_str("->c.c_car)",VV[0]);
368          {object V30 = Cnil;          {object V30 = Cnil;
369          VMR7(V30)}          VMR8(V30)}
370          return Cnil;          return Cnil;
371  }  }
372  /*      local entry for function WT-CDR */  /*      local entry for function WT-CDR */
373    
374  static object LI8(V32)  static object LI9(V32)
375    
376  object V32;  object V32;
377  {        VMB8 VMS8 VMV8  {        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)));
382          princ_str("->c.c_cdr)",VV[0]);          princ_str("->c.c_cdr)",VV[0]);
383          {object V33 = Cnil;          {object V33 = Cnil;
384          VMR8(V33)}          VMR9(V33)}
385          return Cnil;          return Cnil;
386  }  }
387  /*      local entry for function WT-CADR        */  /*      local entry for function WT-CADR        */
388    
389  static object LI9(V35)  static object LI10(V35)
390    
391  object V35;  object V35;
392  {        VMB9 VMS9 VMV9  {        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)));
397          princ_str("->c.c_cdr->c.c_car)",VV[0]);          princ_str("->c.c_cdr->c.c_car)",VV[0]);
398          {object V36 = Cnil;          {object V36 = Cnil;
399          VMR9(V36)}          VMR10(V36)}
400          return Cnil;          return Cnil;
401  }  }
402  /*      local entry for function WT-CVAR        */  /*      local entry for function WT-CVAR        */
403    
404  static object LI10(V37,va_alist)  static object LI11(object V37,object first,...)
         object V37;  
         va_dcl  
405  {        {      
406          va_list ap;          va_list ap;
407          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
408          {object V38;          {object V38;
409          object V39;          object V39;
410          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
411          va_start(ap);          va_start(ap,first);
412          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
413          V38= V37;          V38= V37;
414          narg = narg - 1;          narg = narg - 1;
415          if (narg <= 0) goto T154;          if (narg <= 0) goto T155;
416          else {          else {
417          V39= va_arg(ap,object);}          V39= first;}
418          --narg; goto T155;          --narg; goto T156;
 goto T154;  
 T154:;  
         V39= Cnil;  
419  goto T155;  goto T155;
420  T155:;  T155:;
421            V39= Cnil;
422    goto T156;
423    T156:;
424          if(((V39))==Cnil){          if(((V39))==Cnil){
425          goto T157;}          goto T158;}
426          princ_str("/* ",VV[0]);          princ_str("/* ",VV[0]);
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 T157;  goto T158;
431  T157:;  T158:;
432          princ_char(86,VV[0]);          princ_char(86,VV[0]);
433          (void)((*(LnkLI36))((V38)));          (void)((*(LnkLI36))((V38)));
434          {object V41 = Cnil;          {object V41 = Cnil;
435          VMR10(V41)}          VMR11(V41)}
436          va_end(ap);          va_end(ap);
437          return Cnil;}          return Cnil;}
438          }          }
439  /*      local entry for function WT-VV  */  /*      local entry for function WT-VV  */
440    
441  static object LI11(V43)  static object LI12(V43)
442    
443  object V43;  object V43;
444  {        VMB11 VMS11 VMV11  {        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)));
449          princ_char(93,VV[0]);          princ_char(93,VV[0]);
450          {object V44 = Cnil;          {object V44 = Cnil;
451          VMR11(V44)}          VMR12(V44)}
452          return Cnil;          return Cnil;
453  }  }
454  /*      function definition for WT-FIXNUM-LOC   */  /*      function definition for WT-FIXNUM-LOC   */
455    
456  static void L12()  static void L13()
457  {register object *base=vs_base;  {register object *base=vs_base;
458          register object *sup=base+VM12; VC12          register object *sup=base+VM13; VC13
459          vs_reserve(VM12);          vs_reserve(VM13);
460          {register object V45;          {register object V45;
461          check_arg(1);          check_arg(1);
462          V45=(base[0]);          V45=(base[0]);
# Line 451  static void L12() Line 464  static void L12()
464  goto TTL;  goto TTL;
465  TTL:;  TTL:;
466          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
467          goto T169;}          goto T170;}
468          if(!((car((V45)))==(VV[17]))){          if(!((car((V45)))==(VV[17]))){
469          goto T169;}          goto T170;}
470          V46= structure_ref(cadr((V45)),VV[17],1);          V46= structure_ref(cadr((V45)),VV[17],1);
471          if(!((/* INLINE-ARGS */V46)==(VV[20]))){          if(!((/* INLINE-ARGS */V46)==(VV[20]))){
472          goto T169;}          goto T170;}
473          princ_char(86,VV[0]);          princ_char(86,VV[0]);
474          V47= structure_ref(cadr((V45)),VV[17],4);          V47= structure_ref(cadr((V45)),VV[17],4);
475          (void)((*(LnkLI36))(/* INLINE-ARGS */V47));          (void)((*(LnkLI36))(/* INLINE-ARGS */V47));
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 T169;  goto T170;
480  T169:;  T170:;
481          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
482          goto T178;}          goto T179;}
483          if(!((car((V45)))==(VV[21]))){          if(!((car((V45)))==(VV[21]))){
484          goto T178;}          goto T179;}
485          princ_str("(long)",VV[0]);          princ_str("(long)",VV[0]);
486          base[1]= caddr((V45));          base[1]= caddr((V45));
487          base[2]= cadddr((V45));          base[2]= cadddr((V45));
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 T178;  goto T179;
492  T178:;  T179:;
493          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
494          goto T187;}          goto T188;}
495          if(!((car((V45)))==(VV[22]))){          if(!((car((V45)))==(VV[22]))){
496          goto T187;}          goto T188;}
497          (void)((*(LnkLI36))(caddr((V45))));          (void)((*(LnkLI36))(caddr((V45))));
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 T187;  goto T188;
502  T187:;  T188:;
503          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
504          goto T193;}          goto T194;}
505          {register object x= car((V45)),V48= VV[23];          {register object x= car((V45)),V48= VV[23];
506          while(!endp(V48))          while(!endp(V48))
507          if(eql(x,V48->c.c_car)){          if(eql(x,V48->c.c_car)){
508          goto T196;          goto T197;
509          }else V48=V48->c.c_cdr;          }else V48=V48->c.c_cdr;
510          goto T193;}          goto T194;}
511  goto T196;  goto T197;
512  T196:;  T197:;
513          princ_str("((long)(",VV[0]);          princ_str("((long)(",VV[0]);
514          base[1]= caddr((V45));          base[1]= caddr((V45));
515          base[2]= cadddr((V45));          base[2]= cadddr((V45));
# Line 507  T196:; Line 520  T196:;
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 T193;  goto T194;
524  T193:;  T194:;
525          princ_str("fix(",VV[0]);          princ_str("fix(",VV[0]);
526          (void)((*(LnkLI36))((V45)));          (void)((*(LnkLI36))((V45)));
527          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 519  T193:; Line 532  T193:;
532  }  }
533  /*      function definition for WT-INTEGER-LOC  */  /*      function definition for WT-INTEGER-LOC  */
534    
535  static void L13()  static void L14()
536  {register object *base=vs_base;  {register object *base=vs_base;
537          register object *sup=base+VM13; VC13          register object *sup=base+VM14; VC14
538          vs_reserve(VM13);          vs_reserve(VM14);
539          {register object V49;          {register object V49;
540          object V50;          object V50;
541          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
542          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
543          V49=(base[0]);          V49=(base[0]);
544          vs_base=vs_base+1;          vs_base=vs_base+1;
545          if(vs_base>=vs_top){vs_top=sup;goto T206;}          if(vs_base>=vs_top){vs_top=sup;goto T207;}
546          V50=(base[1]);          V50=(base[1]);
547          vs_top=sup;          vs_top=sup;
548          goto T207;          goto T208;
 goto T206;  
 T206:;  
         V50= Cnil;  
549  goto T207;  goto T207;
550  T207:;  T207:;
551            V50= Cnil;
552    goto T208;
553    T208:;
554          {object V51;          {object V51;
555          object V52;          object V52;
556          V51= Ct;          V51= Ct;
557          if(type_of((V49))==t_cons){          if(type_of((V49))==t_cons){
558          goto T211;}          goto T212;}
559          V52= Cnil;          V52= Cnil;
560          goto T210;          goto T211;
561    goto T212;
562    T212:;
563            V52= car((V49));
564  goto T211;  goto T211;
565  T211:;  T211:;
         V52= car((V49));  
 goto T210;  
 T210:;  
566          {object V53= (V52);          {object V53= (V52);
567          if((V53!= VV[21]))goto T214;          if((V53!= VV[21]))goto T215;
568          princ_str("stoi(",VV[0]);          princ_str("stoi(",VV[0]);
569          base[3]= caddr((V49));          base[3]= caddr((V49));
570          base[4]= cadddr((V49));          base[4]= cadddr((V49));
# Line 559  T210:; Line 572  T210:;
572          (void) (*Lnk45)();          (void) (*Lnk45)();
573          vs_top=sup;          vs_top=sup;
574          princ_char(41,VV[0]);          princ_char(41,VV[0]);
575          goto T213;          goto T214;
576  goto T214;  goto T215;
577  T214:;  T215:;
578          if((V53!= VV[46]))goto T221;          if((V53!= VV[46]))goto T222;
579          V51= Cnil;          V51= Cnil;
580          base[3]= caddr((V49));          base[3]= caddr((V49));
581          base[4]= cadddr((V49));          base[4]= cadddr((V49));
582          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
583          (void) (*Lnk45)();          (void) (*Lnk45)();
584          vs_top=sup;          vs_top=sup;
585          goto T213;          goto T214;
586  goto T221;  goto T222;
587  T221:;  T222:;
588          if((V53!= VV[22]))goto T226;          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 T213;          goto T214;
593  goto T226;  goto T227;
594  T226:;  T227:;
595          if((V53!= VV[17]))goto T230;          if((V53!= VV[17]))goto T231;
596          V55= structure_ref(cadr((V49)),VV[17],1);          V55= structure_ref(cadr((V49)),VV[17],1);
597          {object V54= /* INLINE-ARGS */V55;          {object V54= /* INLINE-ARGS */V55;
598          if((V54!= VV[47]))goto T231;          if((V54!= VV[47]))goto T232;
599          V51= Cnil;          V51= Cnil;
600          princ_char(86,VV[0]);          princ_char(86,VV[0]);
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 T213;          goto T214;
604  goto T231;  goto T232;
605  T231:;  T232:;
606          if((V54!= VV[20]))goto T236;          if((V54!= VV[20]))goto T237;
607          princ_str("stoi(V",VV[0]);          princ_str("stoi(V",VV[0]);
608          V57= structure_ref(cadr((V49)),VV[17],4);          V57= structure_ref(cadr((V49)),VV[17],4);
609          (void)((*(LnkLI36))(/* INLINE-ARGS */V57));          (void)((*(LnkLI36))(/* INLINE-ARGS */V57));
610          princ_char(41,VV[0]);          princ_char(41,VV[0]);
611          goto T213;          goto T214;
612  goto T236;  goto T237;
613  T236:;  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 T213;}          goto T214;}
618  goto T230;  goto T231;
619  T230:;  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 T213;  goto T214;
624  T213:;  T214:;
625          if((V51)==Cnil){          if((V51)==Cnil){
626          base[3]= Cnil;          base[3]= Cnil;
627          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
628          return;}          return;}
629          if((symbol_value(VV[24]))==Cnil){          if((symbol_value(VV[24]))==Cnil){
630          goto T246;}          goto T247;}
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 T246;  goto T247;
635  T246:;  T247:;
636          base[3]= (*(LnkLI48))();          base[3]= (*(LnkLI48))();
637          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
638          return;}          return;}
# Line 627  T246:; Line 640  T246:;
640  }  }
641  /*      local entry for function FIXNUM-LOC-P   */  /*      local entry for function FIXNUM-LOC-P   */
642    
643  static object LI14(V59)  static object LI15(V59)
644    
645  register object V59;  register object V59;
646  {        VMB14 VMS14 VMV14  {        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 T248;}          goto T249;}
651          {object V60 = Cnil;          {object V60 = Cnil;
652          VMR14(V60)}          VMR15(V60)}
653  goto T248;  goto T249;
654  T248:;{object V61;  T249:;{object V61;
655          if((car((V59)))==(VV[17])){          if((car((V59)))==(VV[17])){
656          goto T252;}          goto T253;}
657          V61= Cnil;          V61= Cnil;
658          goto T251;          goto T252;
659  goto T252;  goto T253;
660  T252:;  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 T251;  goto T252;
664  T251:;  T252:;
665          if(V61==Cnil)goto T250;          if(V61==Cnil)goto T251;
666          {object V63 = V61;          {object V63 = V61;
667          VMR14(V63)}          VMR15(V63)}
668  goto T250;  goto T251;
669  T250:;}  T251:;}
670          if(!((car((V59)))==(VV[21]))){          if(!((car((V59)))==(VV[21]))){
671          goto T254;}          goto T255;}
672          {object V64 = Ct;          {object V64 = Ct;
673          VMR14(V64)}          VMR15(V64)}
674  goto T254;  goto T255;
675  T254:;  T255:;
676          {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);          {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);
677          VMR14(V65)}          VMR15(V65)}
678          return Cnil;          return Cnil;
679  }  }
680  /*      local entry for function WT-FIXNUM-VALUE        */  /*      local entry for function WT-FIXNUM-VALUE        */
681    
682  static object LI15(V68,V69)  static object LI16(V68,V69)
683    
684  object V68;object V69;  object V68;object V69;
685  {        VMB15 VMS15 VMV15  {        VMB16 VMS16 VMV16
686  goto TTL;  goto TTL;
687  TTL:;  TTL:;
688          if(((V68))==Cnil){          if(((V68))==Cnil){
689          goto T257;}          goto T258;}
690          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
691          (void)((*(LnkLI36))((V68)));          (void)((*(LnkLI36))((V68)));
692          princ_char(93,VV[0]);          princ_char(93,VV[0]);
693          {object V70 = Cnil;          {object V70 = Cnil;
694          VMR15(V70)}          VMR16(V70)}
695  goto T257;  goto T258;
696  T257:;  T258:;
697          princ_str("small_fixnum(",VV[0]);          princ_str("small_fixnum(",VV[0]);
698          (void)((*(LnkLI36))((V69)));          (void)((*(LnkLI36))((V69)));
699          princ_char(41,VV[0]);          princ_char(41,VV[0]);
700          {object V71 = Cnil;          {object V71 = Cnil;
701          VMR15(V71)}          VMR16(V71)}
702          return Cnil;          return Cnil;
703  }  }
704  /*      function definition for WT-CHARACTER-LOC        */  /*      function definition for WT-CHARACTER-LOC        */
705    
706  static void L16()  static void L17()
707  {register object *base=vs_base;  {register object *base=vs_base;
708          register object *sup=base+VM16; VC16          register object *sup=base+VM17; VC17
709          vs_reserve(VM16);          vs_reserve(VM17);
710          {register object V72;          {register object V72;
711          check_arg(1);          check_arg(1);
712          V72=(base[0]);          V72=(base[0]);
# Line 701  static void L16() Line 714  static void L16()
714  goto TTL;  goto TTL;
715  TTL:;  TTL:;
716          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
717          goto T266;}          goto T267;}
718          if(!((car((V72)))==(VV[17]))){          if(!((car((V72)))==(VV[17]))){
719          goto T266;}          goto T267;}
720          V73= structure_ref(cadr((V72)),VV[17],1);          V73= structure_ref(cadr((V72)),VV[17],1);
721          if(!((/* INLINE-ARGS */V73)==(VV[25]))){          if(!((/* INLINE-ARGS */V73)==(VV[25]))){
722          goto T266;}          goto T267;}
723          princ_char(86,VV[0]);          princ_char(86,VV[0]);
724          V74= structure_ref(cadr((V72)),VV[17],4);          V74= structure_ref(cadr((V72)),VV[17],4);
725          (void)((*(LnkLI36))(/* INLINE-ARGS */V74));          (void)((*(LnkLI36))(/* INLINE-ARGS */V74));
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 T266;  goto T267;
730  T266:;  T267:;
731          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
732          goto T275;}          goto T276;}
733          if(!((car((V72)))==(VV[26]))){          if(!((car((V72)))==(VV[26]))){
734          goto T275;}          goto T276;}
735          base[1]= caddr((V72));          base[1]= caddr((V72));
736          base[2]= cadddr((V72));          base[2]= cadddr((V72));
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 T275;  goto T276;
741  T275:;  T276:;
742          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
743          goto T282;}          goto T283;}
744          if(!((car((V72)))==(VV[27]))){          if(!((car((V72)))==(VV[27]))){
745          goto T282;}          goto T283;}
746          (void)((*(LnkLI36))(caddr((V72))));          (void)((*(LnkLI36))(caddr((V72))));
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 T282;  goto T283;
751  T282:;  T283:;
752          princ_str("char_code(",VV[0]);          princ_str("char_code(",VV[0]);
753          (void)((*(LnkLI36))((V72)));          (void)((*(LnkLI36))((V72)));
754          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 746  T282:; Line 759  T282:;
759  }  }
760  /*      local entry for function CHARACTER-LOC-P        */  /*      local entry for function CHARACTER-LOC-P        */
761    
762  static object LI17(V76)  static object LI18(V76)
763    
764  register object V76;  register object V76;
765  {        VMB17 VMS17 VMV17  {        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 T290;}          goto T291;}
770          {object V77 = Cnil;          {object V77 = Cnil;
771          VMR17(V77)}          VMR18(V77)}
772  goto T290;  goto T291;
773  T290:;{object V78;  T291:;{object V78;
774          if((car((V76)))==(VV[17])){          if((car((V76)))==(VV[17])){
775          goto T294;}          goto T295;}
776          V78= Cnil;          V78= Cnil;
777          goto T293;          goto T294;
778  goto T294;  goto T295;
779  T294:;  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 T293;  goto T294;
783  T293:;  T294:;
784          if(V78==Cnil)goto T292;          if(V78==Cnil)goto T293;
785          {object V80 = V78;          {object V80 = V78;
786          VMR17(V80)}          VMR18(V80)}
787  goto T292;  goto T293;
788  T292:;}  T293:;}
789          if(!((car((V76)))==(VV[26]))){          if(!((car((V76)))==(VV[26]))){
790          goto T296;}          goto T297;}
791          {object V81 = Ct;          {object V81 = Ct;
792          VMR17(V81)}          VMR18(V81)}
793  goto T296;  goto T297;
794  T296:;  T297:;
795          {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);          {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);
796          VMR17(V82)}          VMR18(V82)}
797          return Cnil;          return Cnil;
798  }  }
799  /*      local entry for function WT-CHARACTER-VALUE     */  /*      local entry for function WT-CHARACTER-VALUE     */
800    
801  static object LI18(V85,V86)  static object LI19(V85,V86)
802    
803  object V85;object V86;  object V85;object V86;
804  {        VMB18 VMS18 VMV18  {        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)));
809          princ_char(93,VV[0]);          princ_char(93,VV[0]);
810          {object V87 = Cnil;          {object V87 = Cnil;
811          VMR18(V87)}          VMR19(V87)}
812          return Cnil;          return Cnil;
813  }  }
814  /*      function definition for WT-LONG-FLOAT-LOC       */  /*      function definition for WT-LONG-FLOAT-LOC       */
815    
816  static void L19()  static void L20()
817  {register object *base=vs_base;  {register object *base=vs_base;
818          register object *sup=base+VM19; VC19          register object *sup=base+VM20; VC20
819          vs_reserve(VM19);          vs_reserve(VM20);
820          {register object V88;          {register object V88;
821          check_arg(1);          check_arg(1);
822          V88=(base[0]);          V88=(base[0]);
# Line 811  static void L19() Line 824  static void L19()
824  goto TTL;  goto TTL;
825  TTL:;  TTL:;
826          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
827          goto T302;}          goto T303;}
828          if(!((car((V88)))==(VV[17]))){          if(!((car((V88)))==(VV[17]))){
829          goto T302;}          goto T303;}
830          V89= structure_ref(cadr((V88)),VV[17],1);          V89= structure_ref(cadr((V88)),VV[17],1);
831          if(!((/* INLINE-ARGS */V89)==(VV[28]))){          if(!((/* INLINE-ARGS */V89)==(VV[28]))){
832          goto T302;}          goto T303;}
833          princ_char(86,VV[0]);          princ_char(86,VV[0]);
834          V90= structure_ref(cadr((V88)),VV[17],4);          V90= structure_ref(cadr((V88)),VV[17],4);
835          (void)((*(LnkLI36))(/* INLINE-ARGS */V90));          (void)((*(LnkLI36))(/* INLINE-ARGS */V90));
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 T302;  goto T303;
840  T302:;  T303:;
841          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
842          goto T311;}          goto T312;}
843          if(!((car((V88)))==(VV[29]))){          if(!((car((V88)))==(VV[29]))){
844          goto T311;}          goto T312;}
845          base[1]= caddr((V88));          base[1]= caddr((V88));
846          base[2]= cadddr((V88));          base[2]= cadddr((V88));
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 T311;  goto T312;
851  T311:;  T312:;
852          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
853          goto T318;}          goto T319;}
854          if(!((car((V88)))==(VV[30]))){          if(!((car((V88)))==(VV[30]))){
855          goto T318;}          goto T319;}
856          (void)((*(LnkLI36))(caddr((V88))));          (void)((*(LnkLI36))(caddr((V88))));
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 T318;  goto T319;
861  T318:;  T319:;
862          princ_str("lf(",VV[0]);          princ_str("lf(",VV[0]);
863          (void)((*(LnkLI36))((V88)));          (void)((*(LnkLI36))((V88)));
864          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 856  T318:; Line 869  T318:;
869  }  }
870  /*      local entry for function LONG-FLOAT-LOC-P       */  /*      local entry for function LONG-FLOAT-LOC-P       */
871    
872  static object LI20(V92)  static object LI21(V92)
873    
874  register object V92;  register object V92;
875  {        VMB20 VMS20 VMV20  {        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 T326;}          goto T327;}
880          {object V93 = Cnil;          {object V93 = Cnil;
881          VMR20(V93)}          VMR21(V93)}
882  goto T326;  goto T327;
883  T326:;{object V94;  T327:;{object V94;
884          if((car((V92)))==(VV[17])){          if((car((V92)))==(VV[17])){
885          goto T330;}          goto T331;}
886          V94= Cnil;          V94= Cnil;
887          goto T329;          goto T330;
888  goto T330;  goto T331;
889  T330:;  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 T329;  goto T330;
893  T329:;  T330:;
894          if(V94==Cnil)goto T328;          if(V94==Cnil)goto T329;
895          {object V96 = V94;          {object V96 = V94;
896          VMR20(V96)}          VMR21(V96)}
897  goto T328;  goto T329;
898  T328:;}  T329:;}
899          if(!((car((V92)))==(VV[29]))){          if(!((car((V92)))==(VV[29]))){
900          goto T332;}          goto T333;}
901          {object V97 = Ct;          {object V97 = Ct;
902          VMR20(V97)}          VMR21(V97)}
903  goto T332;  goto T333;
904  T332:;  T333:;
905          {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);          {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);
906          VMR20(V98)}          VMR21(V98)}
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 LI21(V101,V102)  static object LI22(V101,V102)
912    
913  object V101;object V102;  object V101;object V102;
914  {        VMB21 VMS21 VMV21  {        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)));
919          princ_char(93,VV[0]);          princ_char(93,VV[0]);
920          {object V103 = Cnil;          {object V103 = Cnil;
921          VMR21(V103)}          VMR22(V103)}
922          return Cnil;          return Cnil;
923  }  }
924  /*      function definition for WT-SHORT-FLOAT-LOC      */  /*      function definition for WT-SHORT-FLOAT-LOC      */
925    
926  static void L22()  static void L23()
927  {register object *base=vs_base;  {register object *base=vs_base;
928          register object *sup=base+VM22; VC22          register object *sup=base+VM23; VC23
929          vs_reserve(VM22);          vs_reserve(VM23);
930          {register object V104;          {register object V104;
931          check_arg(1);          check_arg(1);
932          V104=(base[0]);          V104=(base[0]);
# Line 921  static void L22() Line 934  static void L22()
934  goto TTL;  goto TTL;
935  TTL:;  TTL:;
936          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
937          goto T338;}          goto T339;}
938          if(!((car((V104)))==(VV[17]))){          if(!((car((V104)))==(VV[17]))){
939          goto T338;}          goto T339;}
940          V105= structure_ref(cadr((V104)),VV[17],1);          V105= structure_ref(cadr((V104)),VV[17],1);
941          if(!((/* INLINE-ARGS */V105)==(VV[31]))){          if(!((/* INLINE-ARGS */V105)==(VV[31]))){
942          goto T338;}          goto T339;}
943          princ_char(86,VV[0]);          princ_char(86,VV[0]);
944          V106= structure_ref(cadr((V104)),VV[17],4);          V106= structure_ref(cadr((V104)),VV[17],4);
945          (void)((*(LnkLI36))(/* INLINE-ARGS */V106));          (void)((*(LnkLI36))(/* INLINE-ARGS */V106));
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 T338;  goto T339;
950  T338:;  T339:;
951          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
952          goto T347;}          goto T348;}
953          if(!((car((V104)))==(VV[32]))){          if(!((car((V104)))==(VV[32]))){
954          goto T347;}          goto T348;}
955          base[1]= caddr((V104));          base[1]= caddr((V104));
956          base[2]= cadddr((V104));          base[2]= cadddr((V104));
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 T347;  goto T348;
961  T347:;  T348:;
962          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
963          goto T354;}          goto T355;}
964          if(!((car((V104)))==(VV[33]))){          if(!((car((V104)))==(VV[33]))){
965          goto T354;}          goto T355;}
966          (void)((*(LnkLI36))(caddr((V104))));          (void)((*(LnkLI36))(caddr((V104))));
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 T354;  goto T355;
971  T354:;  T355:;
972          princ_str("sf(",VV[0]);          princ_str("sf(",VV[0]);
973          (void)((*(LnkLI36))((V104)));          (void)((*(LnkLI36))((V104)));
974          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 966  T354:; Line 979  T354:;
979  }  }
980  /*      local entry for function SHORT-FLOAT-LOC-P      */  /*      local entry for function SHORT-FLOAT-LOC-P      */
981    
982  static object LI23(V108)  static object LI24(V108)
983    
984  register object V108;  register object V108;
985  {        VMB23 VMS23 VMV23  {        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 T362;}          goto T363;}
990          {object V109 = Cnil;          {object V109 = Cnil;
991          VMR23(V109)}          VMR24(V109)}
992  goto T362;  goto T363;
993  T362:;{object V110;  T363:;{object V110;
994          if((car((V108)))==(VV[17])){          if((car((V108)))==(VV[17])){
995          goto T366;}          goto T367;}
996          V110= Cnil;          V110= Cnil;
997          goto T365;          goto T366;
998  goto T366;  goto T367;
999  T366:;  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 T365;  goto T366;
1003  T365:;  T366:;
1004          if(V110==Cnil)goto T364;          if(V110==Cnil)goto T365;
1005          {object V112 = V110;          {object V112 = V110;
1006          VMR23(V112)}          VMR24(V112)}
1007  goto T364;  goto T365;
1008  T364:;}  T365:;}
1009          if(!((car((V108)))==(VV[32]))){          if(!((car((V108)))==(VV[32]))){
1010          goto T368;}          goto T369;}
1011          {object V113 = Ct;          {object V113 = Ct;
1012          VMR23(V113)}          VMR24(V113)}
1013  goto T368;  goto T369;
1014  T368:;  T369:;
1015          {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);          {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);
1016          VMR23(V114)}          VMR24(V114)}
1017          return Cnil;          return Cnil;
1018  }  }
1019  /*      local entry for function WT-SHORT-FLOAT-VALUE   */  /*      local entry for function WT-SHORT-FLOAT-VALUE   */
1020    
1021  static object LI24(V117,V118)  static object LI25(V117,V118)
1022    
1023  object V117;object V118;  object V117;object V118;
1024  {        VMB24 VMS24 VMV24  {        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)));
1029          princ_char(93,VV[0]);          princ_char(93,VV[0]);
1030          {object V119 = Cnil;          {object V119 = Cnil;
1031          VMR24(V119)}          VMR25(V119)}
1032          return Cnil;          return Cnil;
1033  }  }
1034  static object  LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* WFS-ERROR */  static object  LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* WFS-ERROR */
1035  static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* WT-INLINE-LOC */  static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* WT-INLINE-LOC */
1036  static object  LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* VS-PUSH */  static object  LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* VS-PUSH */
1037  static object  LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,1,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)&LnkLI43,1,first,ap);va_end(ap);return V1;} /* WT-VS */
1038  static object  LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* BABOON */  static object  LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* BABOON */
1039  static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */  static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */
1040  static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* SET-RETURN-LONG-FLOAT */  static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* SET-RETURN-LONG-FLOAT */
1041  static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* SET-RETURN-CHARACTER */  static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* SET-RETURN-CHARACTER */
1042  static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* SET-RETURN-FIXNUM */  static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* SET-RETURN-FIXNUM */
1043  static object  LnkTLI37(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[37],(void **)&LnkLI37,1,ap);va_end(ap);return V1;} /* SET-TOP */  static object  LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)&LnkLI37,1,first,ap);va_end(ap);return V1;} /* SET-TOP */
1044  static object  LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,1,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)&LnkLI36,1,first,ap);va_end(ap);return V1;} /* WT1 */
1045  static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* WT-INLINE */  static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* WT-INLINE */
1046  static object  LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* SET-RETURN */  static object  LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)&LnkLI34,1,first,ap);va_end(ap);return V1;} /* SET-RETURN */
1047    
1048  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1049  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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