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

Diff of /gcl/cmpnew/cmptop.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmptop.h"  #include "cmptop.h"
4  init_cmptop(){do_init(VV);}  void init_cmptop(){do_init(VV);}
5  /*      function definition for T1EXPR  */  /*      function definition for T1EXPR  */
6    
7  static L1()  static void L1()
8  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
9          register object *VOL sup=base+VM1; VC1          register object *VOL sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 13  static L1() Line 13  static L1()
13          check_arg(1);          check_arg(1);
14          V1=(base[0]);          V1=(base[0]);
15          vs_top=sup;          vs_top=sup;
16    goto TTL;
17  TTL:;  TTL:;
18          bds_bind(VV[0],(V1));          bds_bind(VV[0],(V1));
19          bds_bind(VV[1],Ct);          bds_bind(VV[1],Ct);
# Line 35  TTL:; Line 36  TTL:;
36          goto T8;}          goto T8;}
37          if(!(((V2))==(VV[3]))){          if(!(((V2))==(VV[3]))){
38          goto T11;}          goto T11;}
39          V5= (VFUN_NARGS=1,(*(LnkLI253))(VV[4]));          V5= (VFUN_NARGS=1,(*(LnkLI258))(VV[4]));
40          frs_pop();          frs_pop();
41          base[3]= V5;          base[3]= V5;
42          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
43          bds_unwind1;          bds_unwind1;
44          bds_unwind1;          bds_unwind1;
45          return;          return;
46    goto T11;
47  T11:;  T11:;
48          if((get((V2),VV[5],Cnil))==Cnil){          if((get((V2),VV[5],Cnil))==Cnil){
49          goto T14;}          goto T14;}
50          if((symbol_value(VV[6]))==Cnil){          if((symbol_value(VV[6]))==Cnil){
51          goto T16;}          goto T16;}
52          (void)((VFUN_NARGS=2,(*(LnkLI254))(VV[7],(V1))));          (void)((VFUN_NARGS=2,(*(LnkLI259))(VV[7],(V1))));
53    goto T16;
54  T16:;  T16:;
55          (void)((*(LnkLI255))(Ct,(V1)));          (void)((*(LnkLI260))(Ct,(V1)));
56          V6= (*(LnkLI256))((V1));          V6= (*(LnkLI261))((V1));
57          frs_pop();          frs_pop();
58          base[3]= V6;          base[3]= V6;
59          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
60          bds_unwind1;          bds_unwind1;
61          bds_unwind1;          bds_unwind1;
62          return;          return;
63    goto T14;
64  T14:;  T14:;
65          V4= get((V2),VV[8],Cnil);          V4= get((V2),VV[8],Cnil);
66          if(((V4))==Cnil){          if(((V4))==Cnil){
67          goto T21;}          goto T21;}
68          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
69          goto T24;}          goto T24;}
70          (void)((*(LnkLI257))());          (void)((*(LnkLI262))());
71    goto T24;
72  T24:;  T24:;
73          base[3]= (V3);          base[3]= (V3);
74          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 72  T24:; Line 77  T24:;
77          bds_unwind1;          bds_unwind1;
78          bds_unwind1;          bds_unwind1;
79          return;          return;
80    goto T21;
81  T21:;  T21:;
82          if((get((V2),VV[10],Cnil))==Cnil){          if((get((V2),VV[10],Cnil))==Cnil){
83          goto T29;}          goto T29;}
84          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
85          goto T31;}          goto T31;}
86          (void)((*(LnkLI257))());          (void)((*(LnkLI262))());
87    goto T31;
88  T31:;  T31:;
89          base[3]= (*(LnkLI258))((V1));          base[3]= (*(LnkLI263))((V1));
90          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
91          (void) (*Lnk259)();          (void) (*Lnk264)();
92          frs_pop();          frs_pop();
93          bds_unwind1;          bds_unwind1;
94          bds_unwind1;          bds_unwind1;
95          return;          return;
96    goto T29;
97  T29:;  T29:;
98          if((get((V2),VV[11],Cnil))==Cnil){          if((get((V2),VV[11],Cnil))==Cnil){
99          goto T36;}          goto T36;}
100          V7= (*(LnkLI260))((V1));          V7= (*(LnkLI265))((V1));
101          frs_pop();          frs_pop();
102          base[3]= V7;          base[3]= V7;
103          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
104          bds_unwind1;          bds_unwind1;
105          bds_unwind1;          bds_unwind1;
106          return;          return;
107    goto T36;
108  T36:;  T36:;
109          base[3]= (V2);          base[3]= (V2);
110          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 110  T36:; Line 119  T36:;
119          Lcopy_list();          Lcopy_list();
120          vs_top=sup;          vs_top=sup;
121          V9= vs_base[0];          V9= vs_base[0];
122          V8= (*(LnkLI261))((V4),(V2),V9);          V8= (*(LnkLI266))((V4),(V2),V9);
123          base[3]= (V8);          base[3]= (V8);
124          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
125          (void) (*Lnk259)();          (void) (*Lnk264)();
126          frs_pop();          frs_pop();
127          bds_unwind1;          bds_unwind1;
128          bds_unwind1;          bds_unwind1;
129          return;}          return;}
130    goto T39;
131  T39:;  T39:;
132          V10= (*(LnkLI260))((V1));          V10= (*(LnkLI265))((V1));
133          frs_pop();          frs_pop();
134          base[3]= V10;          base[3]= V10;
135          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
136          bds_unwind1;          bds_unwind1;
137          bds_unwind1;          bds_unwind1;
138          return;          return;
139    goto T8;
140  T8:;  T8:;
141          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
142          goto T48;}          goto T48;}
143          V11= (*(LnkLI260))((V1));          V11= (*(LnkLI265))((V1));
144          frs_pop();          frs_pop();
145          base[3]= V11;          base[3]= V11;
146          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
147          bds_unwind1;          bds_unwind1;
148          bds_unwind1;          bds_unwind1;
149          return;          return;
150    goto T48;
151  T48:;  T48:;
152          V12= (VFUN_NARGS=2,(*(LnkLI253))(VV[12],(V2)));          V12= (VFUN_NARGS=2,(*(LnkLI258))(VV[12],(V2)));
153          frs_pop();          frs_pop();
154          base[3]= V12;          base[3]= V12;
155          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
156          bds_unwind1;          bds_unwind1;
157          bds_unwind1;          bds_unwind1;
158          return;}          return;}
159    goto T3;
160  T3:;  T3:;
161          frs_pop();          frs_pop();
162          base[3]= Cnil;          base[3]= Cnil;
# Line 160  static object LI2(V14) Line 173  static object LI2(V14)
173  object V14;  object V14;
174  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
175          bds_check;          bds_check;
176    goto TTL;
177  TTL:;  TTL:;
178          {object V15;          {object V15;
179          V15= Cnil;          V15= Cnil;
# Line 171  TTL:; Line 185  TTL:;
185          bds_bind(VV[19],Cnil);          bds_bind(VV[19],Cnil);
186          bds_bind(VV[0],Cnil);          bds_bind(VV[0],Cnil);
187          setq(VV[20],reverse(symbol_value(VV[20])));          setq(VV[20],reverse(symbol_value(VV[20])));
188          princ_str("\ninit_",VV[21]);          princ_str("\nvoid init_",VV[21]);
189          (void)((*(LnkLI262))((V14)));          (void)((*(LnkLI267))((V14)));
190          princ_str("(){",VV[21]);          princ_str("(){",VV[21]);
191          princ_str("do_init(VV);",VV[21]);          princ_str("do_init(VV);",VV[21]);
192          princ_char(125,VV[21]);          princ_char(125,VV[21]);
193          {object V16;          {object V16;
194          V16= symbol_value(VV[20]);          V16= symbol_value(VV[20]);
195          bds_bind(VV[0],car((V16)));          bds_bind(VV[0],car((V16)));
196    goto T63;
197  T63:;  T63:;
198          if(!(endp((V16)))){          if(!(endp((V16)))){
199          goto T64;}          goto T64;}
200          bds_unwind1;          bds_unwind1;
201          goto T59;          goto T59;
202    goto T64;
203  T64:;  T64:;
204          setq(VV[1],Ct);          setq(VV[1],Ct);
205          V15= get(car((VV[0]->s.s_dbind)),VV[22],Cnil);          V15= get(car((VV[0]->s.s_dbind)),VV[22],Cnil);
# Line 198  T64:; Line 214  T64:;
214          vs_base=base+9;}          vs_base=base+9;}
215          super_funcall_no_event(base[8]);          super_funcall_no_event(base[8]);
216          vs_top=sup;          vs_top=sup;
217    goto T70;
218  T70:;  T70:;
219          V16= cdr((V16));          V16= cdr((V16));
220          (VV[0]->s.s_dbind)= car((V16));          (VV[0]->s.s_dbind)= car((V16));
221          goto T63;}          goto T63;}
222    goto T59;
223  T59:;  T59:;
224          {object V18;          {object V18;
225          V18= symbol_value(VV[20]);          V18= symbol_value(VV[20]);
226          bds_bind(VV[0],car((V18)));          bds_bind(VV[0],car((V18)));
227    goto T85;
228  T85:;  T85:;
229          if(!(endp((V18)))){          if(!(endp((V18)))){
230          goto T86;}          goto T86;}
231          bds_unwind1;          bds_unwind1;
232          goto T81;          goto T81;
233    goto T86;
234  T86:;  T86:;
235          setq(VV[1],Ct);          setq(VV[1],Ct);
236          V15= get(car((VV[0]->s.s_dbind)),VV[23],Cnil);          V15= get(car((VV[0]->s.s_dbind)),VV[23],Cnil);
# Line 225  T86:; Line 245  T86:;
245          vs_base=base+9;}          vs_base=base+9;}
246          super_funcall_no_event(base[8]);          super_funcall_no_event(base[8]);
247          vs_top=sup;          vs_top=sup;
248    goto T92;
249  T92:;  T92:;
250          V18= cdr((V18));          V18= cdr((V18));
251          (VV[0]->s.s_dbind)= car((V18));          (VV[0]->s.s_dbind)= car((V18));
252          goto T85;}          goto T85;}
253    goto T81;
254  T81:;  T81:;
255          {object V20;          {object V20;
256          V20= Cnil;          V20= Cnil;
257    goto T105;
258  T105:;  T105:;
259          if(!(endp(symbol_value(VV[24])))){          if(!(endp(symbol_value(VV[24])))){
260          goto T107;}          goto T107;}
261          goto T103;          goto T103;
262    goto T107;
263  T107:;  T107:;
264          V20= car(symbol_value(VV[24]));          V20= car(symbol_value(VV[24]));
265          {object V21;          {object V21;
# Line 247  T107:; Line 271  T107:;
271           while(!endp(V22))           while(!endp(V22))
272           {vs_push(car(V22));V22=cdr(V22);}           {vs_push(car(V22));V22=cdr(V22);}
273          vs_base=base+7;}          vs_base=base+7;}
274          (void) (*Lnk245)();          (void) (*Lnk250)();
275          vs_top=sup;          vs_top=sup;
276          goto T105;}          goto T105;}
277    goto T103;
278  T103:;  T103:;
279          {object V23;          {object V23;
280          object V24;          object V24;
281          V23= symbol_value(VV[25]);          V23= symbol_value(VV[25]);
282          V24= car((V23));          V24= car((V23));
283    goto T122;
284  T122:;  T122:;
285          if(!(endp((V23)))){          if(!(endp((V23)))){
286          goto T123;}          goto T123;}
287          goto T118;          goto T118;
288    goto T123;
289  T123:;  T123:;
290          {object V25;          {object V25;
291          V25= (V24);          V25= (V24);
# Line 266  T123:; Line 293  T123:;
293           while(!endp(V25))           while(!endp(V25))
294           {vs_push(car(V25));V25=cdr(V25);}           {vs_push(car(V25));V25=cdr(V25);}
295          vs_base=base+8;}          vs_base=base+8;}
296          (void) (*Lnk263)();          (void) (*Lnk268)();
297          vs_top=sup;          vs_top=sup;
298          V23= cdr((V23));          V23= cdr((V23));
299          V24= car((V23));          V24= car((V23));
300          goto T122;}          goto T122;}
301    goto T118;
302  T118:;  T118:;
303          {object V26;          {object V26;
304          object V27;          object V27;
305          V26= (VV[13]->s.s_dbind);          V26= (VV[13]->s.s_dbind);
306          V27= car((V26));          V27= car((V26));
307    goto T138;
308  T138:;  T138:;
309          if(!(endp((V26)))){          if(!(endp((V26)))){
310          goto T139;}          goto T139;}
311          goto T134;          goto T134;
312    goto T139;
313  T139:;  T139:;
314          (void)((*(LnkLI264))((V27)));          (void)((*(LnkLI269))((V27)));
315          V26= cdr((V26));          V26= cdr((V26));
316          V27= car((V26));          V27= car((V26));
317          goto T138;}          goto T138;}
318    goto T134;
319  T134:;  T134:;
320          {object V28;          {object V28;
321          object V29;          object V29;
322          V28= symbol_value(VV[26]);          V28= symbol_value(VV[26]);
323          V29= car((V28));          V29= car((V28));
324    goto T153;
325  T153:;  T153:;
326          if(!(endp((V28)))){          if(!(endp((V28)))){
327          goto T154;}          goto T154;}
328          goto T149;          goto T149;
329    goto T154;
330  T154:;  T154:;
331          princ_str("\nstatic LC",VV[27]);          princ_str("\nstatic void LC",VV[27]);
332          V30= structure_ref((V29),VV[28],3);          V30= structure_ref((V29),VV[28],3);
333          (void)((*(LnkLI265))(/* INLINE-ARGS */V30));          (void)((*(LnkLI270))(/* INLINE-ARGS */V30));
334          princ_str("();",VV[27]);          princ_str("();",VV[27]);
335          V28= cdr((V28));          V28= cdr((V28));
336          V29= car((V28));          V29= car((V28));
337          goto T153;}          goto T153;}
338    goto T149;
339  T149:;  T149:;
340          {object V31;          {object V31;
341          object V32;          object V32;
342          V31= symbol_value(VV[29]);          V31= symbol_value(VV[29]);
343          V32= car((V31));          V32= car((V31));
344    goto T171;
345  T171:;  T171:;
346          if(!(endp((V31)))){          if(!(endp((V31)))){
347          goto T172;}          goto T172;}
348          goto T167;          goto T167;
349    goto T172;
350  T172:;  T172:;
351          princ_str("\n#define VM",VV[27]);          princ_str("\n#define VM",VV[27]);
352          (void)((*(LnkLI265))(car((V32))));          (void)((*(LnkLI270))(car((V32))));
353          princ_char(32,VV[27]);          princ_char(32,VV[27]);
354          (void)((*(LnkLI265))(cdr((V32))));          (void)((*(LnkLI270))(cdr((V32))));
355          V31= cdr((V31));          V31= cdr((V31));
356          V32= car((V31));          V32= car((V31));
357          goto T171;}          goto T171;}
358    goto T167;
359  T167:;  T167:;
360          (void)((*(LnkLI266))(Cnil));          (void)((*(LnkLI271))(Cnil));
361          {object V33;          {object V33;
362          object V34;          object V34;
363          base[8]= (VV[18]->s.s_dbind);          base[8]= (VV[18]->s.s_dbind);
# Line 331  T167:; Line 368  T167:;
368          vs_top=sup;          vs_top=sup;
369          V33= vs_base[0];          V33= vs_base[0];
370          V34= small_fixnum(0);          V34= small_fixnum(0);
371    goto T194;
372  T194:;  T194:;
373          if(!(number_compare((V34),(V33))>=0)){          if(!(number_compare((V34),(V33))>=0)){
374          goto T195;}          goto T195;}
375          goto T187;          goto T187;
376    goto T195;
377  T195:;  T195:;
378          (void)((*(LnkLI266))(Cnil));          (void)((*(LnkLI271))(Cnil));
379          V34= one_plus((V34));          V34= one_plus((V34));
380          goto T194;}          goto T194;}
381    goto T187;
382  T187:;  T187:;
383          princ_str("\nstatic char * VVi[",VV[27]);          princ_str("\nstatic char * VVi[",VV[27]);
384          V35= number_plus(small_fixnum(1),symbol_value(VV[30]));          V35= number_plus(small_fixnum(1),symbol_value(VV[30]));
385          (void)((*(LnkLI265))(/* INLINE-ARGS */V35));          (void)((*(LnkLI270))(/* INLINE-ARGS */V35));
386          princ_str("]={",VV[27]);          princ_str("]={",VV[27]);
387          princ_str("\n#define Cdata VV[",VV[27]);          princ_str("\n#define Cdata VV[",VV[27]);
388          (void)((*(LnkLI265))(symbol_value(VV[30])));          (void)((*(LnkLI270))(symbol_value(VV[30])));
389          princ_char(93,VV[27]);          princ_char(93,VV[27]);
390          if((VV[17]->s.s_dbind)!=Cnil){          if((VV[17]->s.s_dbind)!=Cnil){
391          goto T211;}          goto T211;}
392          princ_char(10,VV[27]);          princ_char(10,VV[27]);
393          (void)((*(LnkLI265))(small_fixnum(0)));          (void)((*(LnkLI270))(small_fixnum(0)));
394    goto T211;
395  T211:;  T211:;
396          {register object V36;          {register object V36;
397          V36= nreverse((VV[17]->s.s_dbind));          V36= nreverse((VV[17]->s.s_dbind));
398    goto T217;
399  T217:;  T217:;
400          if(((V36))!=Cnil){          if(((V36))!=Cnil){
401          goto T218;}          goto T218;}
402          princ_str("\n};",VV[27]);          princ_str("\n};",VV[27]);
403          goto T214;          goto T214;
404    goto T218;
405  T218:;  T218:;
406          princ_str("\n(char *)(",VV[27]);          princ_str("\n(char *)(",VV[27]);
407          (void)((*(LnkLI265))(caar((V36))));          (void)((*(LnkLI270))(caar((V36))));
408          (void)((*(LnkLI265))(cadar((V36))));          (void)((*(LnkLI270))(cadar((V36))));
409          if((cdr((V36)))==Cnil){          if((cdr((V36)))==Cnil){
410          goto T230;}          goto T230;}
411          V37= VV[31];          V37= VV[31];
412          goto T228;          goto T228;
413    goto T230;
414  T230:;  T230:;
415          V37= VV[32];          V37= VV[32];
416    goto T228;
417  T228:;  T228:;
418          (void)((*(LnkLI265))(V37));          (void)((*(LnkLI270))(V37));
419          V36= cdr((V36));          V36= cdr((V36));
420          goto T217;}          goto T217;}
421    goto T214;
422  T214:;  T214:;
423          princ_str("\n#define VV ((object *)VVi)",VV[27]);          princ_str("\n#define VV ((object *)VVi)",VV[27]);
424          vs_base=vs_top;          vs_base=vs_top;
425          (void) (*Lnk267)();          (void) (*Lnk272)();
426          vs_top=sup;          vs_top=sup;
427          {object V38;          {object V38;
428          object V39;          object V39;
429          V38= (VV[13]->s.s_dbind);          V38= (VV[13]->s.s_dbind);
430          V39= car((V38));          V39= car((V38));
431    goto T241;
432  T241:;  T241:;
433          if(!(endp((V38)))){          if(!(endp((V38)))){
434          goto T242;}          goto T242;}
# Line 394  T241:; Line 441  T241:;
441          bds_unwind1;          bds_unwind1;
442          bds_unwind1;          bds_unwind1;
443          VMR2(V40)}          VMR2(V40)}
444    goto T242;
445  T242:;  T242:;
446          {register object V41;          {register object V41;
447          register object V42;          register object V42;
# Line 402  T242:; Line 450  T242:;
450          if(!(((V42))==(VV[33]))){          if(!(((V42))==(VV[33]))){
451          goto T251;}          goto T251;}
452          princ_str("\nstatic object *Lclptr",VV[27]);          princ_str("\nstatic object *Lclptr",VV[27]);
453          (void)((*(LnkLI265))((V41)));          (void)((*(LnkLI270))((V41)));
454          princ_char(59,VV[27]);          princ_char(59,VV[27]);
455          V42= VV[34];          V42= VV[34];
456          goto T249;          goto T249;
457    goto T251;
458  T251:;  T251:;
459          if(((V42))==Cnil){          if(((V42))==Cnil){
460          goto T260;}          goto T260;}
461          V42= (*(LnkLI268))((V42));          V42= (*(LnkLI273))((V42));
462          goto T258;          goto T258;
463    goto T260;
464  T260:;  T260:;
465          V42= VV[35];          V42= VV[35];
466    goto T258;
467  T258:;  T258:;
468    goto T249;
469  T249:;  T249:;
470          princ_str("\nstatic ",VV[27]);          princ_str("\nstatic ",VV[27]);
471          (void)((*(LnkLI265))((V42)));          if(!(equal((V42),VV[36]))){
472            goto T267;}
473            V43= VV[37];
474            goto T265;
475    goto T267;
476    T267:;
477            V43= (V42);
478    goto T265;
479    T265:;
480            (void)((*(LnkLI270))(V43));
481          princ_str(" LnkT",VV[27]);          princ_str(" LnkT",VV[27]);
482          (void)((*(LnkLI265))((V41)));          (void)((*(LnkLI270))((V41)));
483          princ_str("() ;",VV[27]);          princ_str("() ;",VV[27]);
484          princ_str("\nstatic ",VV[27]);          princ_str("\nstatic ",VV[27]);
485          (void)((*(LnkLI265))((V42)));          if(!(equal((V42),VV[38]))){
486            goto T276;}
487            V44= VV[39];
488            goto T274;
489    goto T276;
490    T276:;
491            V44= (V42);
492    goto T274;
493    T274:;
494            (void)((*(LnkLI270))(V44));
495          princ_str(" (*Lnk",VV[27]);          princ_str(" (*Lnk",VV[27]);
496          (void)((*(LnkLI265))((V41)));          (void)((*(LnkLI270))((V41)));
497          princ_str(")() = LnkT",VV[27]);          princ_str(")() = LnkT",VV[27]);
498          (void)((*(LnkLI265))((V41)));          (void)((*(LnkLI270))((V41)));
499          princ_char(59,VV[27]);}          princ_char(59,VV[27]);}
500          V38= cdr((V38));          V38= cdr((V38));
501          V39= car((V38));          V39= car((V38));
502          goto T241;}}          goto T241;}}
503            base[0]=base[0];
504            return Cnil;
505  }  }
506  /*      local entry for function MAYBE-EVAL     */  /*      local entry for function MAYBE-EVAL     */
507    
508  static object LI3(V45,V46)  static object LI3(V47,V48)
509    
510  object V45;register object V46;  object V47;register object V48;
511  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
512    goto TTL;
513  TTL:;  TTL:;
514          if((V45)!=Cnil){          if((V47)!=Cnil){
515          goto T280;}          goto T288;}
516          if(type_of(car((V46)))==t_symbol){          if(type_of(car((V48)))==t_symbol){
517          goto T281;}          goto T289;}
518          goto T280;          goto T288;
519  T281:;  goto T289;
520          V45= get(car((V46)),VV[36],Cnil);  T289:;
521  T280:;          V47= get(car((V48)),VV[40],Cnil);
522          if(((V45))==Cnil){  goto T288;
523          goto T286;}  T288:;
524          if((VV[37])==(symbol_value(VV[38]))){          if(((V47))==Cnil){
525          goto T284;}          goto T294;}
526  T286:;          if((VV[41])==(symbol_value(VV[42]))){
527          if(!(type_of(symbol_value(VV[38]))==t_cons)){          goto T292;}
528          goto T285;}  goto T294;
529          {register object x= VV[39],V47= symbol_value(VV[38]);  T294:;
530          while(!endp(V47))          if(!(type_of(symbol_value(VV[42]))==t_cons)){
531          if(eql(x,V47->c.c_car)){          goto T293;}
532          goto T292;          {register object x= VV[43],V49= symbol_value(VV[42]);
533          }else V47=V47->c.c_cdr;          while(!endp(V49))
534          goto T285;}          if(eql(x,V49->c.c_car)){
535  T292:;          goto T300;
536  T284:;          }else V49=V49->c.c_cdr;
         if(((V46))==Cnil){  
537          goto T293;}          goto T293;}
538          base[0]= (V46);  goto T300;
539    T300:;
540    goto T292;
541    T292:;
542            if(((V48))==Cnil){
543            goto T301;}
544            base[0]= (V48);
545          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
546          (void) (*Lnk269)();          (void) (*Lnk274)();
547          vs_top=sup;          vs_top=sup;
548    goto T301;
549    T301:;
550            {object V50 = Ct;
551            VMR3(V50)}
552    goto T293;
553  T293:;  T293:;
554          {object V48 = Ct;          {object V51 = Cnil;
555          VMR3(V48)}          VMR3(V51)}
556  T285:;          base[0]=base[0];
557          {object V49 = Cnil;          return Cnil;
         VMR3(V49)}  
558  }  }
559  /*      function definition for T1EVAL-WHEN     */  /*      function definition for T1EVAL-WHEN     */
560    
561  static L4()  static void L4()
562  {register object *base=vs_base;  {register object *base=vs_base;
563          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
564          vs_reserve(VM4);          vs_reserve(VM4);
565          bds_check;          bds_check;
566          {register object V50;          {register object V52;
567          check_arg(1);          check_arg(1);
568          V50=(base[0]);          V52=(base[0]);
569          vs_top=sup;          vs_top=sup;
570    goto TTL;
571  TTL:;  TTL:;
         {register object V51;  
         register object V52;  
         V51= Cnil;  
         V52= Cnil;  
         if(!(endp((V50)))){  
         goto T299;}  
         (void)((*(LnkLI270))(VV[40],small_fixnum(1),small_fixnum(0)));  
 T299:;  
572          {register object V53;          {register object V53;
573          register object V54;          register object V54;
574          V53= car((V50));          V53= Cnil;
575          V54= car((V53));          V54= Cnil;
576  T306:;          if(!(endp((V52)))){
         if(!(endp((V53)))){  
577          goto T307;}          goto T307;}
578          goto T302;          (void)((*(LnkLI275))(VV[44],small_fixnum(1),small_fixnum(0)));
579    goto T307;
580  T307:;  T307:;
581          {object V55= (V54);          {register object V55;
582          if((V55!= VV[271]))goto T312;          register object V56;
583          V51= Ct;          V55= car((V52));
584          goto T311;          V56= car((V55));
585  T312:;  goto T314;
         if((V55!= VV[39]))goto T314;  
         V52= Ct;  
         goto T311;  
586  T314:;  T314:;
587          if((V55!= VV[272]))goto T316;          if(!(endp((V55)))){
588          goto T311;          goto T315;}
589  T316:;          goto T310;
590          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[41],(V54))));}  goto T315;
591  T311:;  T315:;
592          V53= cdr((V53));          {object V57= (V56);
593          V54= car((V53));          if((V57!= VV[276]))goto T320;
594          goto T306;}          V53= Ct;
595  T302:;          goto T319;
596          base[1]= car((V50));  goto T320;
597          bds_bind(VV[38],base[1]);  T320:;
598          if(((V51))==Cnil){          if((V57!= VV[43]))goto T322;
599          goto T324;}          V54= Ct;
600          base[2]= (*(LnkLI273))(cdr((V50)));          goto T319;
601    goto T322;
602    T322:;
603            if((V57!= VV[277]))goto T324;
604            goto T319;
605    goto T324;
606    T324:;
607            (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[45],(V56))));}
608    goto T319;
609    T319:;
610            V55= cdr((V55));
611            V56= car((V55));
612            goto T314;}
613    goto T310;
614    T310:;
615            base[1]= car((V52));
616            bds_bind(VV[42],base[1]);
617            if(((V53))==Cnil){
618            goto T332;}
619            base[2]= (*(LnkLI278))(cdr((V52)));
620          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
621          bds_unwind1;          bds_unwind1;
622          return;          return;
623  T324:;  goto T332;
624          if(((V52))==Cnil){  T332:;
625          goto T327;}          if(((V54))==Cnil){
626          base[2]= make_cons(VV[42],cdr((V50)));          goto T335;}
627            base[2]= make_cons(VV[46],cdr((V52)));
628          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
629          (void) (*Lnk269)();          (void) (*Lnk274)();
630          bds_unwind1;          bds_unwind1;
631          return;          return;
632  T327:;  goto T335;
633    T335:;
634          base[2]= Cnil;          base[2]= Cnil;
635          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
636          bds_unwind1;          bds_unwind1;
# Line 546  T327:; Line 639  T327:;
639  }  }
640  /*      local entry for function T1PROGN        */  /*      local entry for function T1PROGN        */
641    
642  static object LI5(V57)  static object LI5(V59)
643    
644  object V57;  object V59;
645  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
646          bds_check;          bds_check;
647    goto TTL;
648  TTL:;  TTL:;
649          if(!(equal(car((V57)),VV[43]))){          if(!(equal(car((V59)),VV[47]))){
650          goto T331;}          goto T339;}
651          bds_bind(VV[44],Ct);          bds_bind(VV[48],Ct);
652          {object V58 = (*(LnkLI273))(cdr((V57)));          {object V60 = (*(LnkLI278))(cdr((V59)));
653          bds_unwind1;          bds_unwind1;
654          VMR5(V58)}          VMR5(V60)}
655  T331:;  goto T339;
656          {register object V59;  T339:;
657          register object V60;          {register object V61;
658          V59= (V57);          register object V62;
659          V60= car((V59));          V61= (V59);
660  T336:;          V62= car((V61));
661          if(!(endp((V59)))){  goto T344;
662          goto T337;}  T344:;
663          {object V61 = Cnil;          if(!(endp((V61)))){
664          VMR5(V61)}          goto T345;}
665  T337:;          {object V63 = Cnil;
666          base[1]= (V60);          VMR5(V63)}
667    goto T345;
668    T345:;
669            base[1]= (V62);
670          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
671          (void) (*Lnk259)();          (void) (*Lnk264)();
672          vs_top=sup;          vs_top=sup;
673          V59= cdr((V59));          V61= cdr((V61));
674          V60= car((V59));          V62= car((V61));
675          goto T336;}          goto T344;}
676            base[0]=base[0];
677            return Cnil;
678  }  }
679  /*      local entry for function CMPFIX-ARGS    */  /*      local entry for function CMPFIX-ARGS    */
680    
681  static object LI6(V64,V65)  static object LI6(V66,V67)
682    
683  object V64;object V65;  object V66;object V67;
684  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
685    goto TTL;
686  TTL:;  TTL:;
687          {register object V66;          {register object V68;
688          register object V67;          register object V69;
689          V66= Cnil;          V68= Cnil;
690          base[1]= cadr((V64));          base[1]= cadr((V66));
691          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
692          Lcopy_list();          Lcopy_list();
693          vs_top=sup;          vs_top=sup;
694          V67= vs_base[0];          V69= vs_base[0];
695          {register object V68;          {register object V70;
696          register object V69;          register object V71;
697          V68= (V65);          V70= (V67);
698          V69= car((V68));          V71= car((V70));
699  T355:;  goto T363;
700          if(!(endp((V68)))){  T363:;
701          goto T356;}          if(!(endp((V70)))){
702          goto T351;          goto T364;}
703  T356:;          goto T359;
704          {register object x= car((V69)),V70= (V67);  goto T364;
705          while(!endp(V70))  T364:;
706          if(eql(x,V70->c.c_car)){          {register object x= car((V71)),V72= (V69);
707          V66= V70;          while(!endp(V72))
708          goto T361;          if(eql(x,V72->c.c_car)){
709          }else V70=V70->c.c_cdr;          V68= V72;
710          V66= Cnil;}          goto T369;
711  T361:;          }else V72=V72->c.c_cdr;
712          if((V66)==Cnil){          V68= Cnil;}
713          goto T362;}  goto T369;
714          {register object V71;  T369:;
715          register object V72;          if((V68)==Cnil){
716          V71= (V66);          goto T370;}
717          V72= cadr((V69));          {register object V73;
718          if(type_of((V71))!=t_cons)FEwrong_type_argument(Scons,(V71));          register object V74;
719          ((V71))->c.c_car = (V72);}          V73= (V68);
720  T362:;          V74= cadr((V71));
721          V68= cdr((V68));          if(type_of((V73))!=t_cons)FEwrong_type_argument(Scons,(V73));
722          V69= car((V68));          ((V73))->c.c_car = (V74);}
723          goto T355;}  goto T370;
724  T351:;  T370:;
725          {register object x= VV[45],V73= (V67);          V70= cdr((V70));
726          while(!endp(V73))          V71= car((V70));
727          if(eql(x,V73->c.c_car)){          goto T363;}
728          V66= V73;  goto T359;
729          goto T375;  T359:;
730          }else V73=V73->c.c_cdr;          {register object x= VV[49],V75= (V69);
731          V66= Cnil;}          while(!endp(V75))
732  T375:;          if(eql(x,V75->c.c_car)){
733          if(((V66))==Cnil){          V68= V75;
734          goto T373;}          goto T383;
735          {object V75;          }else V75=V75->c.c_cdr;
736          V75= append((V65),cdr((V66)));          V68= Cnil;}
737          if(type_of(V66)!=t_cons)FEwrong_type_argument(Scons,V66);  goto T383;
738          (V66)->c.c_cdr = (V75);  T383:;
739          goto T371;}          if(((V68))==Cnil){
740  T373:;          goto T381;}
741          V76= make_cons(VV[45],(V65));          {object V77;
742          V67= append((V67),/* INLINE-ARGS */V76);          V77= append((V67),cdr((V68)));
743  T371:;          if(type_of(V68)!=t_cons)FEwrong_type_argument(Scons,V68);
744          {object V77 = listA(3,car((V64)),(V67),cddr((V64)));          (V68)->c.c_cdr = (V77);
745          VMR6(V77)}}          goto T379;}
746    goto T381;
747    T381:;
748            V78= make_cons(VV[49],(V67));
749            V69= append((V69),/* INLINE-ARGS */V78);
750    goto T379;
751    T379:;
752            {object V79 = listA(3,car((V66)),(V69),cddr((V66)));
753            VMR6(V79)}}
754            base[0]=base[0];
755            return Cnil;
756  }  }
757  /*      local entry for function T1DEFUN        */  /*      local entry for function T1DEFUN        */
758    
759  static object LI7(V79)  static object LI7(V81)
760    
761  object V79;  object V81;
762  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
763          bds_check;          bds_check;
764    goto TTL;
765  TTL:;  TTL:;
766          {object V80;          {object V82;
767          V80= symbol_value(VV[46]);          V82= symbol_value(VV[50]);
         bds_bind(VV[48],Cnil);  
         if(endp((V79))){  
         goto T381;}  
         if(!(endp(cdr((V79))))){  
         goto T380;}  
 T381:;  
         V82 = make_fixnum(length((V79)));  
         (void)((*(LnkLI270))(VV[47],small_fixnum(2),V82));  
 T380:;  
         if(type_of(car((V79)))==t_symbol){  
         goto T385;}  
         (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[49],car((V79)))));  
 T385:;  
         V83= make_cons(VV[47],(V79));  
         (void)((*(LnkLI255))(Cnil,/* INLINE-ARGS */V83));  
 T390:;  
         setq(VV[6],Ct);  
         setq(VV[50],Cnil);  
         {register object V84;  
         object V85;  
         object V86;  
         register object V87;{object V88;  
         V88= get(car((V79)),VV[56],Cnil);  
         if(V88==Cnil)goto T397;  
         V85= V88;  
         goto T396;  
 T397:;}  
         setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));  
         V85= symbol_value(VV[57]);  
 T396:;  
         V87= car((V79));  
         bds_bind(VV[51],Cnil);  
768          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
769          bds_bind(VV[53],Cnil);          if(endp((V81))){
770          bds_bind(VV[54],Cnil);          goto T389;}
771          V84= Cnil;          if(!(endp(cdr((V81))))){
772            goto T388;}
773    goto T389;
774    T389:;
775            V84 = make_fixnum(length((V81)));
776            (void)((*(LnkLI275))(VV[51],small_fixnum(2),V84));
777    goto T388;
778    T388:;
779            if(type_of(car((V81)))==t_symbol){
780            goto T393;}
781            (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[53],car((V81)))));
782    goto T393;
783    T393:;
784            V85= make_cons(VV[51],(V81));
785            (void)((*(LnkLI260))(Cnil,/* INLINE-ARGS */V85));
786    goto T398;
787    T398:;
788            setq(VV[6],Ct);
789            setq(VV[54],Cnil);
790            {register object V86;
791            object V87;
792            object V88;
793            register object V89;{object V90;
794            V90= get(car((V81)),VV[60],Cnil);
795            if(V90==Cnil)goto T405;
796            V87= V90;
797            goto T404;
798    goto T405;
799    T405:;}
800            setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
801            V87= symbol_value(VV[61]);
802    goto T404;
803    T404:;
804            V89= car((V81));
805          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
806            bds_bind(VV[56],Cnil);
807            bds_bind(VV[57],Cnil);
808            bds_bind(VV[58],Cnil);
809          V86= Cnil;          V86= Cnil;
810          V84= (VFUN_NARGS=2,(*(LnkLI274))(cdr((V79)),(V87)));          bds_bind(VV[59],Cnil);
811          if(!(eql((V80),symbol_value(VV[46])))){          V88= Cnil;
812          goto T404;}          V86= (VFUN_NARGS=2,(*(LnkLI279))(cdr((V81)),(V89)));
813          goto T403;          if(!(eql((V82),symbol_value(VV[50])))){
814  T404:;          goto T412;}
815          (void)(structure_set(cadr((V84)),VV[58],4,Ct));          goto T411;
816  T403:;  goto T412;
817          V89= structure_ref(cadr((V84)),VV[58],1);  T412:;
818          (void)((*(LnkLI275))(/* INLINE-ARGS */V89));          (void)(structure_set(cadr((V86)),VV[62],4,Ct));
819          if((get((V87),VV[59],Cnil))==Cnil){  goto T411;
820          goto T407;}  T411:;
821          {object V90;          V91= structure_ref(cadr((V86)),VV[62],1);
822          V90= make_fixnum(length(car(caddr((V84)))));          (void)((*(LnkLI280))(/* INLINE-ARGS */V91));
823          (void)(sputprop((V87),VV[59],(V90)));          if((get((V89),VV[63],Cnil))==Cnil){
824          base[6]= (V90);          goto T415;}
825          base[7]= VV[61];          {object V92;
826            V92= make_fixnum(length(car(caddr((V86)))));
827            (void)(sputprop((V89),VV[63],(V92)));
828            base[6]= (V92);
829            base[7]= VV[65];
830          base[8]= Ct;          base[8]= Ct;
831          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
832          Lmake_list();          Lmake_list();
833          vs_top=sup;          vs_top=sup;
834          V91= vs_base[0];          V93= vs_base[0];
835          V92= list(4,VV[60],(V87),V91,Ct);          V94= list(4,VV[64],(V89),V93,Ct);
836          (void)((*(LnkLI276))(/* INLINE-ARGS */V92));}          (void)((*(LnkLI281))(/* INLINE-ARGS */V94));}
837  T407:;  goto T415;
838          if((get((V87),VV[62],Cnil))==Cnil){  T415:;
839          goto T418;}          if((get((V89),VV[66],Cnil))==Cnil){
840          {object V93;          goto T426;}
841          register object V94;          {object V95;
         V93= caddr((V84));  
         V94= Cnil;  
         if((cadr((V93)))==Cnil){  
         goto T423;}  
         goto T418;  
 T423:;  
         if((caddr((V93)))==Cnil){  
         goto T425;}  
         goto T418;  
 T425:;  
         if((cadddr((V93)))==Cnil){  
         goto T427;}  
         goto T418;  
 T427:;  
         if((length(car((V93))))<(64)){  
         goto T429;}  
         goto T418;  
 T429:;  
         {register object V95;  
842          register object V96;          register object V96;
843          object V97;          V95= caddr((V86));
844          V95= car((V93));          V96= Cnil;
845          V96= get((V87),VV[63],Cnil);          if((cadr((V95)))==Cnil){
846          V97= Cnil;          goto T431;}
847  T436:;          goto T426;
848          if(!(endp((V95)))){  goto T431;
849    T431:;
850            if((caddr((V95)))==Cnil){
851            goto T433;}
852            goto T426;
853    goto T433;
854    T433:;
855            if((cadddr((V95)))==Cnil){
856            goto T435;}
857            goto T426;
858    goto T435;
859    T435:;
860            if((length(car((V95))))<(64)){
861          goto T437;}          goto T437;}
862          if(endp((V96))){          goto T426;
863          goto T440;}  goto T437;
864          goto T432;  T437:;
865  T440:;          {register object V97;
866          if(((V94))==Cnil){          register object V98;
867          goto T443;}          object V99;
868          V79= (*(LnkLI277))((V79),(V94));          V97= car((V95));
869            V98= get((V89),VV[67],Cnil);
870            V99= Cnil;
871    goto T444;
872    T444:;
873            if(!(endp((V97)))){
874            goto T445;}
875            if(endp((V98))){
876            goto T448;}
877            goto T440;
878    goto T448;
879    T448:;
880            if(((V96))==Cnil){
881            goto T451;}
882            V81= (*(LnkLI282))((V81),(V96));
883          bds_unwind1;          bds_unwind1;
884          bds_unwind1;          bds_unwind1;
885          bds_unwind1;          bds_unwind1;
886          bds_unwind1;          bds_unwind1;
887          bds_unwind1;          bds_unwind1;
888          goto T390;          goto T398;
889  T443:;  goto T451;
890          if(((V97))==Cnil){  T451:;
891          goto T431;}          if(((V99))==Cnil){
892          goto T432;          goto T439;}
893  T437:;          goto T440;
894          {register object V98;  goto T445;
895          V98= car((V95));  T445:;
896          if(!(equal(car((V96)),VV[64]))){          {register object V100;
897          goto T450;}          V100= car((V97));
898          goto T432;          if(!(equal(car((V98)),VV[68]))){
899  T450:;          goto T458;}
900          V99= structure_ref((V98),VV[65],1);          goto T440;
901          if((/* INLINE-ARGS */V99)==(VV[66])){  goto T458;
902          goto T456;}  T458:;
903          V100= structure_ref((V98),VV[65],1);          V101= structure_ref((V100),VV[69],1);
904          if(!((/* INLINE-ARGS */V100)==(VV[67]))){          if((/* INLINE-ARGS */V101)==(VV[70])){
905          goto T455;}          goto T464;}
906          if(!((car((V96)))==(Ct))){          V102= structure_ref((V100),VV[69],1);
907          goto T455;}          if(!((/* INLINE-ARGS */V102)==(VV[71]))){
908  T456:;          goto T463;}
909          if((structure_ref((V98),VV[65],3))!=Cnil){          if(!((car((V98)))==(Ct))){
910          goto T455;}          goto T463;}
911          V101= structure_ref((V98),VV[65],4);  goto T464;
912          if(!((/* INLINE-ARGS */V101)==(VV[68]))){  T464:;
913          goto T454;}          if((structure_ref((V100),VV[69],3))!=Cnil){
914  T455:;          goto T463;}
915          V102= structure_ref((V98),VV[65],0);          V103= structure_ref((V100),VV[69],4);
916            if(!((/* INLINE-ARGS */V103)==(VV[72]))){
917            goto T462;}
918    goto T463;
919    T463:;
920            V104= structure_ref((V100),VV[69],0);
921          vs_base=vs_top;          vs_base=vs_top;
922          Lgensym();          Lgensym();
923          vs_top=sup;          vs_top=sup;
924          V103= vs_base[0];          V105= vs_base[0];
925          V104= list(2,/* INLINE-ARGS */V102,V103);          V106= list(2,/* INLINE-ARGS */V104,V105);
926          V94= make_cons(/* INLINE-ARGS */V104,(V94));          V96= make_cons(/* INLINE-ARGS */V106,(V96));
927  T454:;  goto T462;
928          V105= car((V96));  T462:;
929          V106= structure_ref((V98),VV[65],5);          V107= car((V98));
930          if(((*(LnkLI278))(/* INLINE-ARGS */V105,/* INLINE-ARGS */V106))==Cnil){          V108= structure_ref((V100),VV[69],5);
931          goto T453;}          if(((*(LnkLI283))(/* INLINE-ARGS */V107,/* INLINE-ARGS */V108))==Cnil){
932          {register object x= car((V96)),V107= VV[69];          goto T461;}
933          while(!endp(V107))          {register object x= car((V98)),V109= VV[73];
         if(eql(x,V107->c.c_car)){  
         goto T448;  
         }else V107=V107->c.c_cdr;}  
         V108= structure_ref((V98),VV[65],4);  
         if((/* INLINE-ARGS */V108)==(VV[70])){  
         goto T448;}  
         if((symbol_value(VV[71]))!=Cnil){  
         goto T448;}  
         V110= structure_ref(cadr((V84)),VV[58],0);  
         {register object x= (V98),V109= /* INLINE-ARGS */V110;  
934          while(!endp(V109))          while(!endp(V109))
935          if(eql(x,V109->c.c_car)){          if(eql(x,V109->c.c_car)){
936          goto T477;          goto T456;
937          }else V109=V109->c.c_cdr;          }else V109=V109->c.c_cdr;}
938          goto T448;}          V110= structure_ref((V100),VV[69],4);
939  T477:;          if((/* INLINE-ARGS */V110)==(VV[74])){
940  T453:;          goto T456;}
941          if(((V94))!=Cnil){          if((symbol_value(VV[75]))!=Cnil){
942          goto T478;}          goto T456;}
943          V111= structure_ref((V98),VV[65],0);          V112= structure_ref(cadr((V86)),VV[62],0);
944          (void)((VFUN_NARGS=3,(*(LnkLI254))(VV[72],(V87),/* INLINE-ARGS */V111)));          {register object x= (V100),V111= /* INLINE-ARGS */V112;
945  T478:;          while(!endp(V111))
946          V97= Ct;}          if(eql(x,V111->c.c_car)){
947  T448:;          goto T485;
948          V95= cdr((V95));          }else V111=V111->c.c_cdr;
949          V96= cdr((V96));          goto T456;}
950          goto T436;}  goto T485;
951  T432:;  T485:;
952          goto T418;  goto T461;
953  T431:;  T461:;
954          if(!(type_of((V85))==t_fixnum||          if(((V96))!=Cnil){
955  type_of((V85))==t_bignum||          goto T486;}
956  type_of((V85))==t_ratio||          V113= structure_ref((V100),VV[69],0);
957  type_of((V85))==t_shortfloat||          (void)((VFUN_NARGS=3,(*(LnkLI259))(VV[76],(V89),/* INLINE-ARGS */V113)));
958  type_of((V85))==t_longfloat||  goto T486;
959  type_of((V85))==t_complex)){  T486:;
960          goto T418;}}          V99= Ct;}
961          V112= get((V87),VV[63],Cnil);  goto T456;
962          V113= get((V87),VV[74],Cnil);  T456:;
963          V114= get((V87),VV[63],Cnil);          V97= cdr((V97));
964          V115= list(5,(V87),V112,V113,small_fixnum(3),(*(LnkLI279))((V85),V114));          V98= cdr((V98));
965          setq(VV[73],make_cons(/* INLINE-ARGS */V115,symbol_value(VV[73])));          goto T444;}
966          goto T416;  goto T440;
967  T418:;  T440:;
968          {object V116;          goto T426;
969          V117= get((V87),VV[74],Cnil);  goto T439;
970          V116= ((V117)==(Ct)?Ct:Cnil);  T439:;
971          if(((V116))==Cnil){          if(!(type_of((V87))==t_fixnum||
972          goto T416;}}  type_of((V87))==t_bignum||
973  T416:;  type_of((V87))==t_ratio||
974          if((cadddr((V84)))==Cnil){  type_of((V87))==t_shortfloat||
975          goto T494;}  type_of((V87))==t_longfloat||
976          V86= cadddr((V84));  type_of((V87))==t_complex)){
977  T494:;          goto T426;}}
978          (void)((*(LnkLI280))());          V114= get((V89),VV[67],Cnil);
979          V118= list(6,VV[47],(V87),(V85),(V84),(V86),(VV[55]->s.s_dbind));          V115= get((V89),VV[78],Cnil);
980          setq(VV[20],make_cons(/* INLINE-ARGS */V118,symbol_value(VV[20])));          V116= get((V89),VV[67],Cnil);
981          V119= make_cons((V87),(V85));          V117= list(5,(V89),V114,V115,small_fixnum(3),(*(LnkLI284))((V87),V116));
982          setq(VV[75],make_cons(/* INLINE-ARGS */V119,symbol_value(VV[75])));          setq(VV[77],make_cons(/* INLINE-ARGS */V117,symbol_value(VV[77])));
983          V120= symbol_value(VV[75]);          goto T424;
984    goto T426;
985    T426:;
986            {object V118;
987            V119= get((V89),VV[78],Cnil);
988            V118= ((V119)==(Ct)?Ct:Cnil);
989            if(((V118))==Cnil){
990            goto T424;}}
991    goto T424;
992    T424:;
993            if((cadddr((V86)))==Cnil){
994            goto T502;}
995            V88= cadddr((V86));
996    goto T502;
997    T502:;
998            (void)((*(LnkLI285))());
999            V120= list(6,VV[51],(V89),(V87),(V86),(V88),(VV[59]->s.s_dbind));
1000            setq(VV[20],make_cons(/* INLINE-ARGS */V120,symbol_value(VV[20])));
1001            V121= make_cons((V89),(V87));
1002            setq(VV[79],make_cons(/* INLINE-ARGS */V121,symbol_value(VV[79])));
1003            V122= symbol_value(VV[79]);
1004          bds_unwind1;          bds_unwind1;
1005          bds_unwind1;          bds_unwind1;
1006          bds_unwind1;          bds_unwind1;
1007          bds_unwind1;          bds_unwind1;
1008          bds_unwind1;}          bds_unwind1;}
1009          {object V121 = Cnil;          {object V123 = Cnil;
1010          bds_unwind1;          bds_unwind1;
1011          VMR7(V121)}}          VMR7(V123)}}
1012            base[0]=base[0];
1013            return Cnil;
1014  }  }
1015  /*      local entry for function MAKE-INLINE-STRING     */  /*      local entry for function MAKE-INLINE-STRING     */
1016    
1017  static object LI8(V124,V125)  static object LI8(V126,V127)
1018    
1019  object V124;object V125;  object V126;object V127;
1020  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1021    goto TTL;
1022  TTL:;  TTL:;
1023          if(((V125))!=Cnil){          if(((V127))!=Cnil){
1024          goto T503;}          goto T511;}
1025          base[0]= Cnil;          base[0]= Cnil;
1026          base[1]= VV[76];          base[1]= VV[80];
1027          base[2]= (V124);          base[2]= (V126);
1028          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1029          Lformat();          Lformat();
1030          vs_top=sup;          vs_top=sup;
1031          {object V126 = vs_base[0];          {object V128 = vs_base[0];
1032          VMR8(V126)}          VMR8(V128)}
1033  T503:;  goto T511;
1034          {register object V127;  T511:;
1035          V127= (VFUN_NARGS=7,(*(LnkLI281))(small_fixnum(100),VV[77],VV[78],VV[79],small_fixnum(0),VV[80],Ct));          {register object V129;
1036          base[0]= (V127);          V129= (VFUN_NARGS=7,(*(LnkLI286))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));
1037          base[1]= VV[81];          base[0]= (V129);
1038          base[2]= (V124);          base[1]= VV[85];
1039            base[2]= (V126);
1040          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1041          Lformat();          Lformat();
1042          vs_top=sup;          vs_top=sup;
1043          {register object V128;          {register object V130;
1044          register long V129;          register long V131;
1045          V129= 0;          V131= 0;
1046          V128= (V125);          V130= (V127);
1047  T516:;  goto T524;
1048          if(!(endp(cdr((V128))))){  T524:;
1049          goto T517;}          if(!(endp(cdr((V130))))){
1050          base[0]= (V127);          goto T525;}
1051          base[1]= VV[82];          base[0]= (V129);
1052          base[2]= make_fixnum(V129);          base[1]= VV[86];
1053            base[2]= make_fixnum(V131);
1054          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1055          Lformat();          Lformat();
1056          vs_top=sup;          vs_top=sup;
1057          goto T513;          goto T521;
1058  T517:;  goto T525;
1059          base[0]= (V127);  T525:;
1060          base[1]= VV[83];          base[0]= (V129);
1061          base[2]= make_fixnum(V129);          base[1]= VV[87];
1062            base[2]= make_fixnum(V131);
1063          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1064          Lformat();          Lformat();
1065          vs_top=sup;          vs_top=sup;
1066          V128= cdr((V128));          V130= cdr((V130));
1067          V129= (V129)+1;          V131= (V131)+1;
1068          goto T516;}          goto T524;}
1069  T513:;  goto T521;
1070          {object V130 = (V127);  T521:;
1071          VMR8(V130)}}          {object V132 = (V129);
1072            VMR8(V132)}}
1073            base[0]=base[0];
1074            return Cnil;
1075  }  }
1076  /*      local entry for function CS-PUSH        */  /*      local entry for function CS-PUSH        */
1077    
# Line 930  static object LI9(va_alist) Line 1080  static object LI9(va_alist)
1080  {        {      
1081          va_list ap;          va_list ap;
1082          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
1083          {object V131;          {object V133;
1084            Vcs[0]=Vcs[0];
1085            va_start(ap);
1086          narg = narg - 0;          narg = narg - 0;
1087          if (narg <= 0) goto T532;          if (narg <= 0) goto T540;
1088          else {          else {
1089          va_start(ap);          V133= va_arg(ap,object);}
1090          V131= va_arg(ap,object);}          --narg; goto T541;
1091          --narg; goto T533;  goto T540;
1092  T532:;  T540:;
1093          V131= Cnil;          V133= Cnil;
1094  T533:;  goto T541;
         {object V132;  
         setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));  
         V132= symbol_value(VV[84]);  
         if(((V131))==Cnil){  
         goto T541;}  
         V133= make_cons((V131),(V132));  
         goto T539;  
1095  T541:;  T541:;
1096          V133= (V132);          {object V134;
1097  T539:;          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1098          setq(VV[14],make_cons(V133,symbol_value(VV[14])));          V134= symbol_value(VV[88]);
1099          {object V134 = (V132);          if(((V133))==Cnil){
1100          VMR9(V134)}}}          goto T549;}
1101            V135= make_cons((V133),(V134));
1102            goto T547;
1103    goto T549;
1104    T549:;
1105            V135= (V134);
1106    goto T547;
1107    T547:;
1108            setq(VV[14],make_cons(V135,symbol_value(VV[14])));
1109            {object V136 = (V134);
1110            VMR9(V136)}}
1111            va_end(ap);
1112            return Cnil;}
1113          }          }
1114  /*      local entry for function F-TYPE */  /*      local entry for function F-TYPE */
1115    
1116  static long LI10(V136)  static long LI10(V138)
1117    
1118  register object V136;  register object V138;
1119  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
1120    goto TTL;
1121  TTL:;  TTL:;
1122          base[0]= (V136);          base[0]= (V138);
1123          base[1]= VV[65];          base[1]= VV[69];
1124          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1125          (void) (*Lnk282)();          (void) (*Lnk287)();
1126          vs_top=sup;          vs_top=sup;
1127          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1128          goto T543;}          goto T551;}
1129          V136= structure_ref((V136),VV[65],5);          V138= structure_ref((V138),VV[69],5);
1130  T543:;  goto T551;
1131          if(((V136))==Cnil){  T551:;
1132          goto T550;}          if(((V138))==Cnil){
1133          base[0]= (V136);          goto T558;}
1134          base[1]= VV[85];          base[0]= (V138);
1135            base[1]= VV[89];
1136          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1137          (void) (*Lnk283)();          (void) (*Lnk288)();
1138          vs_top=sup;          vs_top=sup;
1139          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1140          goto T550;}          goto T558;}
1141          {long V137 = 1;          {long V139 = 1;
1142          VMR10(V137)}          VMR10(V139)}
1143  T550:;  goto T558;
1144          {long V138 = 0;  T558:;
1145          VMR10(V138)}          {long V140 = 0;
1146            VMR10(V140)}
1147            base[0]=base[0];
1148  }  }
1149  /*      local entry for function PROCLAIMED-ARGD        */  /*      local entry for function PROCLAIMED-ARGD        */
1150    
1151  static long LI11(V141,V142)  static long LI11(V143,V144)
1152    
1153  register object V141;object V142;  register object V143;object V144;
1154  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
1155    goto TTL;
1156  TTL:;  TTL:;
1157          {register long V143;          {register long V145;
1158          register long V144;          register long V146;
1159          register object V145;          register object V147;
1160          register object V146;          register object V148;
1161          V143= length((V141));          V145= length((V143));
1162          V144= 8;          V146= 8;
1163          V145= make_fixnum((*(LnkLI284))((V142)));          V147= make_fixnum((*(LnkLI289))((V144)));
1164          V146= Ct;          V148= Ct;
1165  T560:;  goto T568;
1166          if(eql(small_fixnum(0),(V145))){  T568:;
1167          goto T562;}          if(eql(small_fixnum(0),(V147))){
1168          V143= (V143)+(((fix((V145))) << (V144)));          goto T570;}
1169  T562:;          V145= (V145)+(((fix((V147))) << (V146)));
1170          if(((V146))==Cnil){  goto T570;
1171          goto T566;}  T570:;
1172          V144= 10;          if(((V148))==Cnil){
1173          V146= Cnil;          goto T574;}
1174  T566:;          V146= 10;
1175          if(((V141))!=Cnil){          V148= Cnil;
1176          goto T572;}  goto T574;
1177          {long V147 = V143;  T574:;
1178          VMR11(V147)}          if(((V143))!=Cnil){
1179  T572:;          goto T580;}
1180          V144= (V144)+(2);          {long V149 = V145;
1181          {register object V149;          VMR11(V149)}
1182          V149= car((V141));  goto T580;
1183          V141= cdr((V141));  T580:;
1184          V148= (V149);}          V146= (V146)+(2);
1185          V145= make_fixnum((*(LnkLI284))(V148));          {register object V151;
1186          goto T560;}          V151= car((V143));
1187            V143= cdr((V143));
1188            V150= (V151);}
1189            V147= make_fixnum((*(LnkLI289))(V150));
1190            goto T568;}
1191  }  }
1192  /*      local entry for function WT-IF-PROCLAIMED       */  /*      local entry for function WT-IF-PROCLAIMED       */
1193    
1194  static object LI12(V153,V154,V155)  static object LI12(V155,V156,V157)
1195    
1196  register object V153;object V154;object V155;  register object V155;object V156;object V157;
1197  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1198    goto TTL;
1199  TTL:;  TTL:;
1200          if(((VFUN_NARGS=1,(*(LnkLI286))((V153))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI291))((V155))))==Cnil){
1201          goto T584;}          goto T592;}
1202          {register object x= (V153),V156= symbol_value(VV[73]);          {register object x= (V155),V158= symbol_value(VV[77]);
1203          while(!endp(V156))          while(!endp(V158))
1204          if(type_of(V156->c.c_car)==t_cons &&eql(x,V156->c.c_car->c.c_car)){          if(type_of(V158->c.c_car)==t_cons &&eql(x,V158->c.c_car->c.c_car)){
         goto T588;  
         }else V156=V156->c.c_cdr;  
         goto T587;}  
 T588:;  
         V157= list(2,VV[87],(V153));  
         V158= (*(LnkLI288))(VV[88],(V154));  
         V159= get((V153),VV[63],Cnil);  
         V160= get((V153),VV[74],Cnil);  
         V161 = make_fixnum((*(LnkLI289))(V159,V160));  
         V162= list(4,VV[86],/* INLINE-ARGS */V157,/* INLINE-ARGS */V158,V161);  
         (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V162)));  
         {object V163 = Ct;  
         VMR12(V163)}  
 T587:;  
         {register object V164;  
         register object V165;  
         object V166;  
         V164= make_fixnum(length(car(caddr((V155)))));  
         V167= get((V153),VV[63],Cnil);  
         V165= make_fixnum(length(V167));  
         V169= get((V153),VV[63],Cnil);  
         {register object x= VV[64],V168= V169;  
         while(!endp(V168))  
         if(eql(x,V168->c.c_car)){  
         V166= V168;  
1205          goto T596;          goto T596;
1206          }else V168=V168->c.c_cdr;          }else V158=V158->c.c_cdr;
1207          V166= Cnil;}          goto T595;}
1208    goto T596;
1209  T596:;  T596:;
1210          if(((V166))==Cnil){          V159= list(2,VV[91],(V155));
1211          goto T599;}          V160= (*(LnkLI293))(VV[92],(V156));
1212          base[0]= (V164);          V161= get((V155),VV[67],Cnil);
1213            V162= get((V155),VV[78],Cnil);
1214            V163 = make_fixnum((*(LnkLI294))(V161,V162));
1215            V164= list(4,VV[90],/* INLINE-ARGS */V159,/* INLINE-ARGS */V160,V163);
1216            (void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V164)));
1217            {object V165 = Ct;
1218            VMR12(V165)}
1219    goto T595;
1220    T595:;
1221            {register object V166;
1222            register object V167;
1223            object V168;
1224            V166= make_fixnum(length(car(caddr((V157)))));
1225            V169= get((V155),VV[67],Cnil);
1226            V167= make_fixnum(length(V169));
1227            V171= get((V155),VV[67],Cnil);
1228            {register object x= VV[68],V170= V171;
1229            while(!endp(V170))
1230            if(eql(x,V170->c.c_car)){
1231            V168= V170;
1232            goto T604;
1233            }else V170=V170->c.c_cdr;
1234            V168= Cnil;}
1235    goto T604;
1236    T604:;
1237            if(((V168))==Cnil){
1238            goto T607;}
1239            base[0]= (V166);
1240          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1241          Lmonotonically_nonincreasing();          Lmonotonically_nonincreasing();
1242          vs_top=sup;          vs_top=sup;
1243          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1244          goto T601;}          goto T609;}
1245          goto T592;          goto T600;
1246  T601:;{object V170;  goto T609;
1247          V171 = make_fixnum(length((V166)));  T609:;{object V172;
1248          V170= number_minus((V165),V171);          V173 = make_fixnum(length((V168)));
1249          if(V170==Cnil)goto T604;          V172= number_minus((V167),V173);
1250          goto T592;          if(V172==Cnil)goto T612;
1251  T604:;}          goto T600;
1252          V172 = make_fixnum(length((V166)));  goto T612;
1253          V173= number_minus((V165),V172);  T612:;}
1254          (void)((VFUN_NARGS=4,(*(LnkLI254))(VV[89],(V153),/* INLINE-ARGS */V173,(V164))));          V174 = make_fixnum(length((V168)));
1255          goto T592;          V175= number_minus((V167),V174);
1256  T599:;          (void)((VFUN_NARGS=4,(*(LnkLI259))(VV[93],(V155),/* INLINE-ARGS */V175,(V166))));
1257          if(eql((V164),(V165))){          goto T600;
1258          goto T607;}  goto T607;
         (void)((VFUN_NARGS=4,(*(LnkLI254))(VV[90],(V153),(V165),(V164))));  
         goto T592;  
1259  T607:;  T607:;
1260          (void)((VFUN_NARGS=2,(*(LnkLI254))(VV[91],(V153))));}          if(eql((V166),(V167))){
1261            goto T615;}
1262            (void)((VFUN_NARGS=4,(*(LnkLI259))(VV[94],(V155),(V167),(V166))));
1263            goto T600;
1264    goto T615;
1265    T615:;
1266            (void)((VFUN_NARGS=2,(*(LnkLI259))(VV[95],(V155))));}
1267    goto T600;
1268    T600:;
1269            {object V176 = Cnil;
1270            VMR12(V176)}
1271    goto T592;
1272  T592:;  T592:;
1273          {object V174 = Cnil;          {object V177 = Cnil;
1274          VMR12(V174)}          VMR12(V177)}
1275  T584:;          base[0]=base[0];
1276          {object V175 = Cnil;          return Cnil;
         VMR12(V175)}  
1277  }  }
1278  /*      local entry for function VOLATILE       */  /*      local entry for function VOLATILE       */
1279    
1280  static object LI13(V177)  static object LI13(V179)
1281    
1282  object V177;  object V179;
1283  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1284    goto TTL;
1285  TTL:;  TTL:;
1286          if((structure_ref((V177),VV[58],4))==Cnil){          if((structure_ref((V179),VV[62],4))==Cnil){
1287          goto T610;}          goto T618;}
1288          {object V178 = VV[92];          {object V180 = VV[96];
1289          VMR13(V178)}          VMR13(V180)}
1290  T610:;  goto T618;
1291          {object V179 = VV[93];  T618:;
1292          VMR13(V179)}          {object V181 = VV[97];
1293            VMR13(V181)}
1294            return Cnil;
1295  }  }
1296  /*      local entry for function REGISTER       */  /*      local entry for function REGISTER       */
1297    
1298  static object LI14(V181)  static object LI14(V183)
1299    
1300  object V181;  object V183;
1301  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1302    goto TTL;
1303  TTL:;  TTL:;
1304          if(!(equal(symbol_value(VV[16]),VV[94]))){          if(!(equal(symbol_value(VV[16]),VV[98]))){
1305          goto T613;}          goto T621;}
1306          {long V182= fix(structure_ref((V181),VV[65],6));          {long V184= fix(structure_ref((V183),VV[69],6));
1307          if(!((/* INLINE-ARGS */V182)>=(fix(symbol_value(VV[95]))))){          if(!((/* INLINE-ARGS */V184)>=(fix(symbol_value(VV[99]))))){
1308          goto T613;}}          goto T621;}}
1309          {object V183 = VV[96];          {object V185 = VV[100];
1310          VMR14(V183)}          VMR14(V185)}
1311  T613:;  goto T621;
1312          {object V184 = VV[97];  T621:;
1313          VMR14(V184)}          {object V186 = VV[101];
1314            VMR14(V186)}
1315            return Cnil;
1316  }  }
1317  /*      local entry for function VARARG-P       */  /*      local entry for function VARARG-P       */
1318    
1319  static object LI15(V186)  static object LI15(V188)
1320    
1321  object V186;  object V188;
1322  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1323    goto TTL;
1324  TTL:;  TTL:;
1325          V187= get((V186),VV[74],Cnil);          V189= get((V188),VV[78],Cnil);
1326          if(equal(V187,Ct)){          if(equal(V189,Ct)){
1327          goto T617;}          goto T625;}
1328          {object V188 = Cnil;          {object V190 = Cnil;
         VMR15(V188)}  
 T617:;  
         {register object V189;  
         V189= get((V186),VV[63],Cnil);  
 T622:;  
         if(((V189))!=Cnil){  
         goto T623;}  
         {object V190 = Ct;  
1329          VMR15(V190)}          VMR15(V190)}
1330  T623:;  goto T625;
1331          if(!(type_of((V189))==t_cons)){  T625:;
1332          goto T628;}          {register object V191;
1333          goto T627;          V191= get((V188),VV[67],Cnil);
1334  T628:;  goto T630;
1335          {object V191 = Cnil;  T630:;
1336          VMR15(V191)}          if(((V191))!=Cnil){
 T627:;  
         if(!((car((V189)))==(Ct))){  
1337          goto T631;}          goto T631;}
1338          goto T630;          {object V192 = Ct;
 T631:;  
         if(!((car((V189)))==(VV[64]))){  
         goto T633;}  
         goto T630;  
 T633:;  
         {object V192 = Cnil;  
1339          VMR15(V192)}          VMR15(V192)}
1340  T630:;  goto T631;
1341          V189= cdr((V189));  T631:;
1342          goto T622;}          if(!(type_of((V191))==t_cons)){
1343            goto T636;}
1344            goto T635;
1345    goto T636;
1346    T636:;
1347            {object V193 = Cnil;
1348            VMR15(V193)}
1349    goto T635;
1350    T635:;
1351            if(!((car((V191)))==(Ct))){
1352            goto T639;}
1353            goto T638;
1354    goto T639;
1355    T639:;
1356            if(!((car((V191)))==(VV[68]))){
1357            goto T641;}
1358            goto T638;
1359    goto T641;
1360    T641:;
1361            {object V194 = Cnil;
1362            VMR15(V194)}
1363    goto T638;
1364    T638:;
1365            V191= cdr((V191));
1366            goto T630;}
1367            return Cnil;
1368  }  }
1369  /*      local entry for function MAXARGS        */  /*      local entry for function MAXARGS        */
1370    
1371  static object LI16(V194)  static object LI16(V196)
1372    
1373  register object V194;  register object V196;
1374  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1375    goto TTL;
1376  TTL:;  TTL:;
1377          if((cadr(cddddr((V194))))!=Cnil){          if((cadr(cddddr((V196))))!=Cnil){
1378          goto T638;}          goto T646;}
1379          if((caddr((V194)))==Cnil){          if((caddr((V196)))==Cnil){
1380          goto T639;}          goto T647;}
1381  T638:;  goto T646;
1382          {object V195 = small_fixnum(64);  T646:;
1383          VMR16(V195)}          {object V197 = small_fixnum(64);
1384  T639:;          VMR16(V197)}
1385          base[0]= make_fixnum(length(car((V194))));  goto T647;
1386          base[1]= make_fixnum(length(cadr((V194))));  T647:;
1387          V196 = make_fixnum(length(car(cddddr((V194)))));          base[0]= make_fixnum(length(car((V196))));
1388          base[2]= number_times(small_fixnum(2),V196);          base[1]= make_fixnum(length(cadr((V196))));
1389            V198 = make_fixnum(length(car(cddddr((V196)))));
1390            base[2]= number_times(small_fixnum(2),V198);
1391          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1392          Lplus();          Lplus();
1393          vs_top=sup;          vs_top=sup;
1394          {object V197 = vs_base[0];          {object V199 = vs_base[0];
1395          VMR16(V197)}          VMR16(V199)}
1396            base[0]=base[0];
1397            return Cnil;
1398  }  }
1399  /*      local entry for function ADD-ADDRESS    */  /*      local entry for function ADD-ADDRESS    */
1400    
1401  static object LI17(V200,V201)  static object LI17(V202,V203)
1402    
1403  object V200;object V201;  object V202;object V203;
1404  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1405    goto TTL;
1406  TTL:;  TTL:;
1407          V202= list(2,(V200),(V201));          V204= list(2,(V202),(V203));
1408          setq(VV[17],make_cons(/* INLINE-ARGS */V202,symbol_value(VV[17])));          setq(VV[17],make_cons(/* INLINE-ARGS */V204,symbol_value(VV[17])));
1409          {object V203;          {object V205;
1410          V203= symbol_value(VV[18]);          V205= symbol_value(VV[18]);
1411          setq(VV[18],number_plus(symbol_value(VV[18]),small_fixnum(1)));          setq(VV[18],number_plus(symbol_value(VV[18]),small_fixnum(1)));
1412          {object V204 = (V203);          {object V206 = (V205);
1413          VMR17(V204)}}          VMR17(V206)}}
1414            return Cnil;
1415  }  }
1416  /*      local entry for function T2DEFUN        */  /*      local entry for function T2DEFUN        */
1417    
1418  static object LI18(V210,V211,V212,V213,V214)  static object LI18(V212,V213,V214,V215,V216)
1419    
1420  register object V210;register object V211;register object V212;object V213;object V214;  register object V212;register object V213;register object V214;object V215;object V216;
1421  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1422    goto TTL;
1423  TTL:;  TTL:;
1424          if((get((V210),VV[98],Cnil))==Cnil){          if((get((V212),VV[102],Cnil))==Cnil){
1425          goto T650;}          goto T658;}
1426          {object V215 = Cnil;          {object V217 = Cnil;
1427          VMR18(V215)}          VMR18(V217)}
1428  T650:;  goto T658;
1429          if(((V213))==Cnil){  T658:;
1430          goto T653;}          if(((V215))==Cnil){
1431          V216= list(4,VV[99],list(2,VV[87],(V210)),(V213),VV[100]);          goto T661;}
1432          (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V216)));          V218= list(4,VV[103],list(2,VV[91],(V212)),(V215),VV[104]);
1433  T653:;          (void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V218)));
1434          {object V217;  goto T661;
1435          V217= (*(LnkLI290))((V210),(V211),(V212));  T661:;
1436          if(((V217))==Cnil){          {object V219;
1437          goto T659;}          V219= (*(LnkLI295))((V212),(V213),(V214));
1438          goto T656;          if(((V219))==Cnil){
1439  T659:;          goto T667;}
1440          if(((*(LnkLI291))((V210)))==Cnil){          goto T664;
1441          goto T662;}  goto T667;
1442          {object V218;  T667:;
1443          V218= cadddr(caddr((V212)));          if(((*(LnkLI296))((V212)))==Cnil){
1444            goto T670;}
1445            {object V220;
1446            V220= cadddr(caddr((V214)));
1447          princ_str("\nstatic object LI",VV[27]);          princ_str("\nstatic object LI",VV[27]);
1448          (void)((*(LnkLI265))((V211)));          (void)((*(LnkLI270))((V213)));
1449          princ_str("();",VV[27]);          princ_str("();",VV[27]);
1450          if(((V218))==Cnil){          if(((V220))==Cnil){
1451          goto T670;}          goto T678;}
1452          V219= list(2,VV[87],(V210));          V221= list(2,VV[91],(V212));
1453          V220= (*(LnkLI288))(VV[102],(V211));          V222= (*(LnkLI293))(VV[106],(V213));
1454          V221 = make_fixnum(length(car(caddr((V212)))));          V223 = make_fixnum(length(car(caddr((V214)))));
1455          V222= (*(LnkLI292))(caddr((V212)));          V224= (*(LnkLI297))(caddr((V214)));
1456          V223= (*(LnkLI285))(/* INLINE-ARGS */V222,small_fixnum(8));          V225= (*(LnkLI290))(/* INLINE-ARGS */V224,small_fixnum(8));
1457          V224= number_plus(V221,/* INLINE-ARGS */V223);          V226= number_plus(V223,/* INLINE-ARGS */V225);
1458          base[0]= Cnil;          base[0]= Cnil;
1459          base[1]= VV[103];          base[1]= VV[107];
1460          base[2]= (V211);          base[2]= (V213);
1461          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1462          Lformat();          Lformat();
1463          vs_top=sup;          vs_top=sup;
1464          V225= vs_base[0];          V227= vs_base[0];
1465          V226= list(5,VV[101],/* INLINE-ARGS */V219,/* INLINE-ARGS */V220,/* INLINE-ARGS */V224,(*(LnkLI288))(V225,VV[104]));          V228= list(5,VV[105],/* INLINE-ARGS */V221,/* INLINE-ARGS */V222,/* INLINE-ARGS */V226,(*(LnkLI293))(V227,VV[108]));
1466          (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V226)));          (void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V228)));
1467          goto T656;          goto T664;
1468    goto T678;
1469    T678:;
1470            V229= list(2,VV[91],(V212));
1471            V230= (*(LnkLI293))(VV[110],(V213));
1472            V231 = make_fixnum(length(car(caddr((V214)))));
1473            V232= (*(LnkLI297))(caddr((V214)));
1474            V233= (*(LnkLI290))(/* INLINE-ARGS */V232,small_fixnum(8));
1475            V234= list(4,VV[109],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,number_plus(V231,/* INLINE-ARGS */V233));
1476            (void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V234)));
1477            goto T664;}
1478    goto T670;
1479  T670:;  T670:;
1480          V227= list(2,VV[87],(V210));          if(!(type_of((V213))==t_fixnum||
1481          V228= (*(LnkLI288))(VV[106],(V211));  type_of((V213))==t_bignum||
1482          V229 = make_fixnum(length(car(caddr((V212)))));  type_of((V213))==t_ratio||
1483          V230= (*(LnkLI292))(caddr((V212)));  type_of((V213))==t_shortfloat||
1484          V231= (*(LnkLI285))(/* INLINE-ARGS */V230,small_fixnum(8));  type_of((V213))==t_longfloat||
1485          V232= list(4,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,number_plus(V229,/* INLINE-ARGS */V231));  type_of((V213))==t_complex)){
1486          (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V232)));          goto T685;}
1487          goto T656;}          princ_str("\nstatic void L",VV[27]);
1488  T662:;          (void)((*(LnkLI270))((V213)));
         if(!(type_of((V211))==t_fixnum||  
 type_of((V211))==t_bignum||  
 type_of((V211))==t_ratio||  
 type_of((V211))==t_shortfloat||  
 type_of((V211))==t_longfloat||  
 type_of((V211))==t_complex)){  
         goto T677;}  
         princ_str("\nstatic L",VV[27]);  
         (void)((*(LnkLI265))((V211)));  
1489          princ_str("();",VV[27]);          princ_str("();",VV[27]);
1490          V233= list(2,VV[87],(V210));          V235= list(2,VV[91],(V212));
1491          V234= list(3,VV[107],/* INLINE-ARGS */V233,(*(LnkLI288))(VV[108],(V211)));          V236= list(3,VV[111],/* INLINE-ARGS */V235,(*(LnkLI293))(VV[112],(V213)));
1492          (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V234)));          (void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V236)));
1493          goto T656;          goto T664;
1494  T677:;  goto T685;
1495    T685:;
1496          princ_char(10,VV[27]);          princ_char(10,VV[27]);
1497          (void)((*(LnkLI265))((V211)));          (void)((*(LnkLI270))((V213)));
1498          princ_str("();",VV[27]);          princ_str("();",VV[27]);
1499          V235= list(2,VV[87],(V210));          V237= list(2,VV[91],(V212));
1500          V236= list(3,VV[107],/* INLINE-ARGS */V235,(*(LnkLI288))(VV[109],(V211)));          V238= list(3,VV[111],/* INLINE-ARGS */V237,(*(LnkLI293))(VV[113],(V213)));
1501          (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V236)));}          (void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V238)));}
1502  T656:;  goto T664;
1503          if(!(number_compare(symbol_value(VV[110]),small_fixnum(2))<0)){  T664:;
1504          goto T688;}          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){
1505          {object V237 = sputprop((V210),VV[111],Ct);          goto T696;}
1506          VMR18(V237)}          {object V239 = sputprop((V212),VV[115],Ct);
1507  T688:;          VMR18(V239)}
1508          {object V238 = Cnil;  goto T696;
1509          VMR18(V238)}  T696:;
1510            {object V240 = Cnil;
1511            VMR18(V240)}
1512            base[0]=base[0];
1513            return Cnil;
1514  }  }
1515  /*      local entry for function ADD-DEBUG      */  /*      local entry for function ADD-DEBUG      */
1516    
1517  static object LI19(V241,V242)  static object LI19(V243,V244)
1518    
1519  object V241;object V242;  object V243;object V244;
1520  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1521    goto TTL;
1522  TTL:;  TTL:;
1523          {object V243 = putprop((V241),(V242),VV[112]);          {object V245 = putprop((V243),(V244),VV[116]);
1524          VMR19(V243)}          VMR19(V245)}
1525            return Cnil;
1526  }  }
1527  /*      local entry for function T3DEFUN        */  /*      local entry for function T3DEFUN        */
1528    
1529  static object LI20(V249,V250,V251,V252,V253)  static object LI20(V251,V252,V253,V254,V255)
1530    
1531  register object V249;register object V250;register object V251;object V252;object V253;  register object V251;register object V252;register object V253;object V254;object V255;
1532  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1533          bds_check;          bds_check;
1534    goto TTL;
1535  TTL:;  TTL:;
1536          {register object V254;          {register object V256;
1537          V254= Cnil;          V256= Cnil;
1538          bds_bind(VV[0],list(2,VV[47],(V249)));          bds_bind(VV[0],list(2,VV[51],(V251)));
1539          bds_bind(VV[16],(*(LnkLI293))(cadr((V251))));          bds_bind(VV[16],(*(LnkLI298))(cadr((V253))));
1540          bds_bind(VV[113],Cnil);          bds_bind(VV[117],Cnil);
1541          {register object V255;          {register object V257;
1542          register object V256;          register object V258;
1543          V255= symbol_value(VV[73]);          V257= symbol_value(VV[77]);
1544          V256= car((V255));          V258= car((V257));
1545  T700:;  goto T708;
1546          if(!(endp((V255)))){  T708:;
1547          goto T701;}          if(!(endp((V257)))){
1548          goto T695;          goto T709;}
1549  T701:;{object V257;          goto T703;
1550          base[4]= cadddr((V256));  goto T709;
1551    T709:;{object V259;
1552            base[4]= cadddr((V258));
1553          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1554          (void) (*Lnk294)();          (void) (*Lnk299)();
1555          vs_top=sup;          vs_top=sup;
1556          V257= vs_base[0];          V259= vs_base[0];
1557          if(V257==Cnil)goto T706;          if(V259==Cnil)goto T714;
1558          goto T705;          goto T713;
1559  T706:;}  goto T714;
1560          base[4]= VV[114];  T714:;}
1561            base[4]= VV[118];
1562          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1563          Lerror();          Lerror();
1564          vs_top=sup;          vs_top=sup;
1565  T705:;  goto T713;
         if((car((V256)))==((V249))){  
         goto T711;}  
         goto T710;  
 T711:;  
         if((cadr(cddddr((V256))))==Cnil){  
         goto T713;}  
         goto T710;  
1566  T713:;  T713:;
1567          V254= (V256);          if((car((V258)))==((V251))){
1568          if(((V254))==Cnil){          goto T719;}
1569          goto T695;}          goto T718;
1570          goto T696;  goto T719;
1571  T710:;  T719:;
1572          V255= cdr((V255));          if((cadr(cddddr((V258))))==Cnil){
         V256= car((V255));  
         goto T700;}  
 T696:;  
         if(((VFUN_NARGS=1,(*(LnkLI286))((V249))))!=Cnil){  
1573          goto T721;}          goto T721;}
1574          V258= list(4,(V249),(V250),cadr((V254)),caddr((V254)));          goto T718;
1575          setq(VV[25],make_cons(/* INLINE-ARGS */V258,symbol_value(VV[25])));  goto T721;
1576  T721:;  T721:;
1577          V259= structure_ref(cadr((V251)),VV[58],1);          V256= (V258);
1578          (void)((*(LnkLI295))(/* INLINE-ARGS */V259,small_fixnum(0)));          if(((V256))==Cnil){
1579          base[3]= VV[115];          goto T703;}
1580          {object V260= caddr((V254));          goto T704;
1581          if((V260!= VV[85]))goto T728;  goto T718;
1582          base[4]= VV[116];  T718:;
1583          goto T727;          V257= cdr((V257));
1584  T728:;          V258= car((V257));
1585          if((V260!= VV[138]))goto T729;          goto T708;}
1586          base[4]= VV[117];  goto T704;
1587          goto T727;  T704:;
1588            if(((VFUN_NARGS=1,(*(LnkLI291))((V251))))!=Cnil){
1589            goto T729;}
1590            V260= list(4,(V251),(V252),cadr((V256)),caddr((V256)));
1591            setq(VV[25],make_cons(/* INLINE-ARGS */V260,symbol_value(VV[25])));
1592    goto T729;
1593  T729:;  T729:;
1594          if((V260!= VV[139]))goto T730;          V261= structure_ref(cadr((V253)),VV[62],1);
1595          base[4]= VV[118];          (void)((*(LnkLI300))(/* INLINE-ARGS */V261,small_fixnum(0)));
1596          goto T727;          base[3]= VV[119];
1597  T730:;          {object V262= caddr((V256));
1598          if((V260!= VV[140]))goto T731;          if((V262!= VV[89]))goto T736;
1599          base[4]= VV[119];          base[4]= VV[120];
1600          goto T727;          goto T735;
1601  T731:;  goto T736;
1602          base[4]= VV[120];}  T736:;
1603  T727:;          if((V262!= VV[142]))goto T737;
1604          base[5]= (V249);          base[4]= VV[121];
1605          base[6]= (V250);          goto T735;
1606          base[7]= (V251);  goto T737;
1607          base[8]= (V253);  T737:;
1608          base[9]= (V254);          if((V262!= VV[143]))goto T738;
1609            base[4]= VV[122];
1610            goto T735;
1611    goto T738;
1612    T738:;
1613            if((V262!= VV[144]))goto T739;
1614            base[4]= VV[123];
1615            goto T735;
1616    goto T739;
1617    T739:;
1618            base[4]= VV[124];}
1619    goto T735;
1620    T735:;
1621            base[5]= (V251);
1622            base[6]= (V252);
1623            base[7]= (V253);
1624            base[8]= (V255);
1625            base[9]= (V256);
1626          vs_top=(vs_base=base+3)+7;          vs_top=(vs_base=base+3)+7;
1627          (void) (*Lnk296)();          (void) (*Lnk301)();
1628          vs_top=sup;          vs_top=sup;
1629          goto T693;          goto T701;
1630  T695:;  goto T703;
1631          if(((*(LnkLI291))((V249)))==Cnil){  T703:;
1632          goto T738;}          if(((*(LnkLI296))((V251)))==Cnil){
1633          V261= structure_ref(cadr((V251)),VV[58],1);          goto T746;}
1634          (void)((*(LnkLI295))(/* INLINE-ARGS */V261,small_fixnum(0)));          V263= structure_ref(cadr((V253)),VV[62],1);
1635          base[3]= VV[121];          (void)((*(LnkLI300))(/* INLINE-ARGS */V263,small_fixnum(0)));
1636          base[4]= VV[120];          base[3]= VV[125];
1637          base[5]= (V249);          base[4]= VV[124];
1638          base[6]= (V250);          base[5]= (V251);
1639          base[7]= (V251);          base[6]= (V252);
1640          base[8]= (V253);          base[7]= (V253);
1641            base[8]= (V255);
1642          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1643          (void) (*Lnk296)();          (void) (*Lnk301)();
1644          vs_top=sup;          vs_top=sup;
1645          goto T693;          goto T701;
1646  T738:;  goto T746;
1647          V262= structure_ref(cadr((V251)),VV[58],1);  T746:;
1648          (void)((*(LnkLI295))(/* INLINE-ARGS */V262,small_fixnum(2)));          V264= structure_ref(cadr((V253)),VV[62],1);
1649          base[3]= VV[122];          (void)((*(LnkLI300))(/* INLINE-ARGS */V264,small_fixnum(2)));
1650          base[4]= VV[123];          base[3]= VV[126];
1651          base[5]= (V249);          base[4]= VV[127];
1652          base[6]= (V250);          base[5]= (V251);
1653          base[7]= (V251);          base[6]= (V252);
1654          base[8]= (V253);          base[7]= (V253);
1655            base[8]= (V255);
1656          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1657          (void) (*Lnk296)();          (void) (*Lnk301)();
1658          vs_top=sup;          vs_top=sup;
1659  T693:;  goto T701;
1660          (void)((*(LnkLI297))((V250)));  T701:;
1661          {object V263 = (*(LnkLI298))((V249),(V251));          (void)((*(LnkLI302))((V252)));
1662            {object V265 = (*(LnkLI303))((V251),(V253));
1663          bds_unwind1;          bds_unwind1;
1664          bds_unwind1;          bds_unwind1;
1665          bds_unwind1;          bds_unwind1;
1666          VMR20(V263)}}          VMR20(V265)}}
1667            base[0]=base[0];
1668            return Cnil;
1669  }  }
1670  /*      function definition for T3DEFUN-AUX     */  /*      function definition for T3DEFUN-AUX     */
1671    
1672  static L21()  static void L21()
1673  {register object *base=vs_base;  {register object *base=vs_base;
1674          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1675          vs_reserve(VM21);          vs_reserve(VM21);
1676          bds_check;          bds_check;
1677          {object V264;          {object V266;
1678          object V265;          object V267;
1679          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1680          V264=(base[0]);          V266=(base[0]);
1681          bds_bind(VV[124],base[1]);          bds_bind(VV[128],base[1]);
1682          vs_base=vs_base+2;          vs_base=vs_base+2;
1683          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1684          {object *p=vs_top;          {object *p=vs_top;
1685           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1686          V265=(base[2]);          V267=(base[2]);
1687          vs_top=sup;          vs_top=sup;
1688          bds_bind(VV[14],Cnil);          bds_bind(VV[14],Cnil);
1689          bds_bind(VV[125],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
1690          bds_bind(VV[126],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
1691          bds_bind(VV[127],small_fixnum(0));          bds_bind(VV[131],small_fixnum(0));
1692          bds_bind(VV[128],small_fixnum(0));          bds_bind(VV[132],small_fixnum(0));
1693          bds_bind(VV[129],Cnil);          bds_bind(VV[133],Cnil);
1694          bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));
1695          bds_bind(VV[131],(VV[124]->s.s_dbind));          bds_bind(VV[135],(VV[128]->s.s_dbind));
1696          setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));
1697          bds_bind(VV[132],symbol_value(VV[133]));          bds_bind(VV[136],symbol_value(VV[137]));
1698          bds_bind(VV[134],Cnil);          bds_bind(VV[138],Cnil);
1699          bds_bind(VV[135],Cnil);          bds_bind(VV[139],Cnil);
1700          bds_bind(VV[136],Cnil);          bds_bind(VV[140],Cnil);
1701          bds_bind(VV[137],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
1702          base[16]= (V264);          base[16]= (V266);
1703          {object V266;          {object V268;
1704          V266= (V265);          V268= (V267);
1705           vs_top=base+17;           vs_top=base+17;
1706           while(!endp(V266))           while(!endp(V268))
1707           {vs_push(car(V266));V266=cdr(V266);}           {vs_push(car(V268));V268=cdr(V268);}
1708          vs_base=base+17;}          vs_base=base+17;}
1709          super_funcall_no_event(base[16]);          super_funcall_no_event(base[16]);
1710          bds_unwind1;          bds_unwind1;
# Line 1492  static L21() Line 1726  static L21()
1726  }  }
1727  /*      local entry for function T3DEFUN-LOCAL-ENTRY    */  /*      local entry for function T3DEFUN-LOCAL-ENTRY    */
1728    
1729  static object LI22(V272,V273,V274,V275,V276)  static object LI22(V274,V275,V276,V277,V278)
1730    
1731  object V272;object V273;object V274;object V275;object V276;  object V274;object V275;object V276;object V277;object V278;
1732  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1733          bds_check;          bds_check;
1734    goto TTL;
1735  TTL:;  TTL:;
1736          {object V277;          {object V279;
         object V278;  
         V277= Cnil;  
         V278= caaddr((V274));  
         {register object V279;  
1737          object V280;          object V280;
1738          V280= cadr((V276));          V279= Cnil;
1739          V279= (V278);          V280= caaddr((V276));
1740  T765:;          {register object V281;
1741          if(!(endp((V279)))){          object V282;
1742          goto T766;}          V282= cadr((V278));
1743          goto T762;          V281= (V280);
1744  T766:;  goto T773;
1745          V281= structure_ref(car((V279)),VV[65],1);  T773:;
1746          if(!((/* INLINE-ARGS */V281)==(VV[67]))){          if(!(endp((V281)))){
1747          goto T772;}          goto T774;}
         V282= car((V279));  
         V283= structure_ref(car((V279)),VV[65],4);  
         V284= make_cons(/* INLINE-ARGS */V282,/* INLINE-ARGS */V283);  
         V277= make_cons(/* INLINE-ARGS */V284,(V277));  
1748          goto T770;          goto T770;
1749  T772:;  goto T774;
1750          V285= car((V279));  T774:;
1751          {object V287= car((V280));          V283= structure_ref(car((V281)),VV[69],1);
1752          if((V287!= VV[85]))goto T776;          if(!((/* INLINE-ARGS */V283)==(VV[71]))){
1753          V286= VV[85];          goto T780;}
1754          goto T775;          V284= car((V281));
1755  T776:;          V285= structure_ref(car((V281)),VV[69],4);
1756          if((V287!= VV[138]))goto T777;          V286= make_cons(/* INLINE-ARGS */V284,/* INLINE-ARGS */V285);
1757          V286= VV[138];          V279= make_cons(/* INLINE-ARGS */V286,(V279));
1758          goto T775;          goto T778;
1759  T777:;  goto T780;
1760          if((V287!= VV[139]))goto T778;  T780:;
1761          V286= VV[139];          V287= car((V281));
1762          goto T775;          {object V289= car((V282));
1763            if((V289!= VV[89]))goto T784;
1764            V288= VV[89];
1765            goto T783;
1766    goto T784;
1767    T784:;
1768            if((V289!= VV[142]))goto T785;
1769            V288= VV[142];
1770            goto T783;
1771    goto T785;
1772    T785:;
1773            if((V289!= VV[143]))goto T786;
1774            V288= VV[143];
1775            goto T783;
1776    goto T786;
1777    T786:;
1778            if((V289!= VV[144]))goto T787;
1779            V288= VV[144];
1780            goto T783;
1781    goto T787;
1782    T787:;
1783            V288= VV[74];}
1784    goto T783;
1785    T783:;
1786            (void)(structure_set(/* INLINE-ARGS */V287,VV[69],1,V288));
1787    goto T778;
1788  T778:;  T778:;
1789          if((V287!= VV[140]))goto T779;          V290= car((V281));
1790          V286= VV[140];          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1791          goto T775;          (void)(structure_set(/* INLINE-ARGS */V290,VV[69],4,symbol_value(VV[88])));
1792  T779:;          V281= cdr((V281));
1793          V286= VV[70];}          V282= cdr((V282));
1794  T775:;          goto T773;}
1795          (void)(structure_set(/* INLINE-ARGS */V285,VV[65],1,V286));  goto T770;
1796  T770:;  T770:;
1797          V288= car((V279));          (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[145],(V274))));
         setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));  
         (void)(structure_set(/* INLINE-ARGS */V288,VV[65],4,symbol_value(VV[84])));  
         V279= cdr((V279));  
         V280= cdr((V280));  
         goto T765;}  
 T762:;  
         (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[141],(V272))));  
1798          princ_str("\nstatic ",VV[27]);          princ_str("\nstatic ",VV[27]);
1799          V289= (*(LnkLI268))(caddr((V276)));          V291= (*(LnkLI273))(caddr((V278)));
1800          (void)((*(LnkLI265))(/* INLINE-ARGS */V289));          (void)((*(LnkLI270))(/* INLINE-ARGS */V291));
1801          princ_str("LI",VV[27]);          princ_str("LI",VV[27]);
1802          (void)((*(LnkLI265))((V273)));          (void)((*(LnkLI270))((V275)));
1803          princ_str("();",VV[27]);          princ_str("();",VV[27]);
1804          princ_str("\nstatic ",VV[21]);          princ_str("\nstatic ",VV[21]);
1805          V290= (*(LnkLI268))(caddr((V276)));          V292= (*(LnkLI273))(caddr((V278)));
1806          (void)((*(LnkLI262))(/* INLINE-ARGS */V290));          (void)((*(LnkLI267))(/* INLINE-ARGS */V292));
1807          princ_str("LI",VV[21]);          princ_str("LI",VV[21]);
1808          (void)((*(LnkLI262))((V273)));          (void)((*(LnkLI267))((V275)));
1809          princ_char(40,VV[21]);          princ_char(40,VV[21]);
1810          (void)((*(LnkLI300))((V278),cadr((V276))));          (void)((*(LnkLI305))((V280),cadr((V278))));
1811          {object V291;          {object V293;
1812          V291= symbol_value(VV[132]);          V293= symbol_value(VV[136]);
1813          if((symbol_value(VV[143]))==Cnil){          if((symbol_value(VV[147]))==Cnil){
1814          goto T803;}          goto T811;}
1815          base[1]= make_cons((V272),(V278));          base[1]= make_cons((V274),(V280));
1816          goto T801;          goto T809;
1817  T803:;  goto T811;
1818    T811:;
1819          base[1]= Cnil;          base[1]= Cnil;
1820  T801:;  goto T809;
1821          bds_bind(VV[142],base[1]);  T809:;
1822          bds_bind(VV[130],symbol_value(VV[130]));          bds_bind(VV[146],base[1]);
1823            bds_bind(VV[134],symbol_value(VV[134]));
1824          princ_str("\n{  ",VV[21]);          princ_str("\n{  ",VV[21]);
1825          V292= structure_ref(cadr((V274)),VV[58],1);          V294= structure_ref(cadr((V276)),VV[62],1);
1826          (void)((*(LnkLI301))(/* INLINE-ARGS */V292,(V273),VV[144]));          (void)((*(LnkLI306))(/* INLINE-ARGS */V294,(V275),VV[148]));
1827          princ_str(" VMB",VV[21]);          princ_str(" VMB",VV[21]);
1828          (void)((*(LnkLI262))((V291)));          (void)((*(LnkLI267))((V293)));
1829          princ_str(" VMS",VV[21]);          princ_str(" VMS",VV[21]);
1830          (void)((*(LnkLI262))((V291)));          (void)((*(LnkLI267))((V293)));
1831          princ_str(" VMV",VV[21]);          princ_str(" VMV",VV[21]);
1832          (void)((*(LnkLI262))((V291)));          (void)((*(LnkLI267))((V293)));
1833          if(((V275))==Cnil){          if(((V277))==Cnil){
1834          goto T815;}          goto T823;}
1835          princ_str("\n   bds_check;",VV[21]);          princ_str("\n   bds_check;",VV[21]);
1836  T815:;  goto T823;
1837          if((symbol_value(VV[145]))==Cnil){  T823:;
1838          goto T819;}          if((symbol_value(VV[149]))==Cnil){
1839            goto T827;}
1840          princ_str("\n   ihs_check;",VV[21]);          princ_str("\n   ihs_check;",VV[21]);
1841  T819:;  goto T827;
1842          if(((VV[142]->s.s_dbind))==Cnil){  T827:;
1843          goto T823;}          if(((VV[146]->s.s_dbind))==Cnil){
1844          (VV[130]->s.s_dbind)= make_cons(VV[146],(VV[130]->s.s_dbind));          goto T831;}
1845            (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
1846            princ_str("\ngoto TTL;",VV[21]);
1847          princ_str("\nTTL:;",VV[21]);          princ_str("\nTTL:;",VV[21]);
1848  T823:;  goto T831;
1849          {register object V293;  T831:;
1850          register object V294;          {register object V295;
1851          V293= (V277);          register object V296;
1852          V294= car((V293));          V295= (V279);
1853  T833:;          V296= car((V295));
1854          if(!(endp((V293)))){  goto T843;
1855          goto T834;}  T843:;
1856          goto T829;          if(!(endp((V295)))){
1857  T834:;          goto T844;}
1858            goto T839;
1859    goto T844;
1860    T844:;
1861          princ_str("\n   bds_bind(VV[",VV[21]);          princ_str("\n   bds_bind(VV[",VV[21]);
1862          (void)((*(LnkLI262))(cdr((V294))));          (void)((*(LnkLI267))(cdr((V296))));
1863          princ_str("],V",VV[21]);          princ_str("],V",VV[21]);
1864          V295= structure_ref(car((V294)),VV[65],4);          V297= structure_ref(car((V296)),VV[69],4);
1865          (void)((*(LnkLI262))(/* INLINE-ARGS */V295));          (void)((*(LnkLI267))(/* INLINE-ARGS */V297));
1866          princ_str(");",VV[21]);          princ_str(");",VV[21]);
1867          (VV[130]->s.s_dbind)= make_cons(VV[147],(VV[130]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind));
1868          (void)(structure_set(car((V294)),VV[65],1,VV[67]));          (void)(structure_set(car((V296)),VV[69],1,VV[71]));
1869          (void)(structure_set(car((V294)),VV[65],4,cdr((V294))));          (void)(structure_set(car((V296)),VV[69],4,cdr((V296))));
1870          V293= cdr((V293));          V295= cdr((V295));
1871          V294= car((V293));          V296= car((V295));
1872          goto T833;}          goto T843;}
1873  T829:;  goto T839;
1874          base[3]= caddr(cddr((V274)));  T839:;
1875            base[3]= caddr(cddr((V276)));
1876          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1877          (void) (*Lnk302)();          (void) (*Lnk307)();
1878          vs_top=sup;          vs_top=sup;
1879            if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
1880            goto T867;}
1881            if((symbol_value(VV[138]))!=Cnil){
1882            goto T867;}
1883            if((symbol_value(VV[140]))!=Cnil){
1884            goto T867;}
1885            goto T865;
1886    goto T867;
1887    T867:;
1888            princ_str("\n   base[0]=base[0];",VV[21]);
1889    goto T865;
1890    T865:;
1891            V298= (*(LnkLI273))(caddr((V278)));
1892            if(!(equal(VV[152],/* INLINE-ARGS */V298))){
1893            goto T874;}
1894            princ_str("\n   return Cnil;",VV[21]);
1895    goto T874;
1896    T874:;
1897          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
1898          {object V296 = (*(LnkLI303))((V291),caddr((V276)));          {object V299 = (*(LnkLI308))((V293),caddr((V278)));
1899          bds_unwind1;          bds_unwind1;
1900          bds_unwind1;          bds_unwind1;
1901          VMR22(V296)}}}          VMR22(V299)}}}
1902            base[0]=base[0];
1903            return Cnil;
1904  }  }
1905  /*      local entry for function SET-UP-VAR-CVS */  /*      local entry for function SET-UP-VAR-CVS */
1906    
1907  static object LI23(V298)  static object LI23(V301)
1908    
1909  object V298;  object V301;
1910  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1911    goto TTL;
1912  TTL:;  TTL:;
1913          if((symbol_value(VV[148]))==Cnil){          if((symbol_value(VV[153]))==Cnil){
1914          goto T858;}          goto T881;}
1915          V299= (*(LnkLI304))();          V302= (*(LnkLI309))();
1916          {object V300 = structure_set((V298),VV[65],2,/* INLINE-ARGS */V299);          {object V303 = structure_set((V301),VV[69],2,/* INLINE-ARGS */V302);
1917          VMR23(V300)}          VMR23(V303)}
1918  T858:;  goto T881;
1919          V301= (*(LnkLI305))();  T881:;
1920          {object V302 = structure_set((V298),VV[65],2,/* INLINE-ARGS */V301);          V304= (*(LnkLI310))();
1921          VMR23(V302)}          {object V305 = structure_set((V301),VV[69],2,/* INLINE-ARGS */V304);
1922            VMR23(V305)}
1923            return Cnil;
1924  }  }
1925  /*      local entry for function T3DEFUN-VARARG */  /*      local entry for function T3DEFUN-VARARG */
1926    
1927  static object LI24(V307,V308,V309,V310)  static object LI24(V310,V311,V312,V313)
1928    
1929  object V307;object V308;object V309;object V310;  object V310;object V311;object V312;object V313;
1930  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1931          bds_check;          bds_check;
1932    goto TTL;
1933  TTL:;  TTL:;
1934          {object V311;          {object V314;
1935          register object V312;          register object V315;
         object V313;  
         object V314;  
         object V315;  
1936          object V316;          object V316;
1937          object V317;          object V317;
1938          object V318;          object V318;
1939          V311= Cnil;          object V319;
1940          bds_bind(VV[148],Cnil);          object V320;
1941          base[1]= Cnil;          object V321;
         V312= Cnil;  
         V313= Ct;  
1942          V314= Cnil;          V314= Cnil;
1943          bds_bind(VV[149],small_fixnum(0));          bds_bind(VV[153],Cnil);
1944            base[1]= Cnil;
1945          V315= Cnil;          V315= Cnil;
1946          V316= caddr((V309));          V316= Ct;
1947          V317= Cnil;{object V319;          V317= Cnil;
1948          V319= caddr((V316));          bds_bind(VV[154],small_fixnum(0));
1949          if(V319==Cnil)goto T868;          V318= Cnil;
1950          V318= V319;          V319= caddr((V312));
1951          goto T867;          V320= Cnil;{object V322;
1952  T868:;}{object V320;          V322= caddr((V319));
1953          V320= cadr((V316));          if(V322==Cnil)goto T891;
1954          if(V320==Cnil)goto T870;          V321= V322;
1955          V318= V320;          goto T890;
1956          goto T867;  goto T891;
1957  T870:;}  T891:;}{object V323;
1958          V318= cadddr((V316));          V323= cadr((V319));
1959  T867:;          if(V323==Cnil)goto T893;
1960          {object V321;          V321= V323;
1961          register object V322;          goto T890;
1962          V321= car((V316));  goto T893;
1963          V322= car((V321));  T893:;}
1964  T876:;          V321= cadddr((V319));
1965          if(!(endp((V321)))){  goto T890;
1966          goto T877;}  T890:;
1967          goto T872;          {object V324;
1968  T877:;          register object V325;
1969          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));          V324= car((V319));
1970          V323= list(2,VV[150],symbol_value(VV[84]));          V325= car((V324));
1971          V311= make_cons(/* INLINE-ARGS */V323,(V311));  goto T899;
1972          V321= cdr((V321));  T899:;
1973          V322= car((V321));          if(!(endp((V324)))){
1974          goto T876;}          goto T900;}
1975  T872:;          goto T895;
1976          (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[151],(V307))));  goto T900;
1977    T900:;
1978            setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1979            V326= list(2,VV[155],symbol_value(VV[88]));
1980            V314= make_cons(/* INLINE-ARGS */V326,(V314));
1981            V324= cdr((V324));
1982            V325= car((V324));
1983            goto T899;}
1984    goto T895;
1985    T895:;
1986            (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[156],(V310))));
1987          princ_str("\nstatic object LI",VV[27]);          princ_str("\nstatic object LI",VV[27]);
1988          (void)((*(LnkLI265))((V308)));          (void)((*(LnkLI270))((V311)));
1989          princ_str("();",VV[27]);          princ_str("();",VV[27]);
1990          princ_str("\nstatic object LI",VV[21]);          princ_str("\nstatic object LI",VV[21]);
1991          (void)((*(LnkLI262))((V308)));          (void)((*(LnkLI267))((V311)));
1992          princ_char(40,VV[21]);          princ_char(40,VV[21]);
1993          (void)((*(LnkLI306))((V311)));          (void)((*(LnkLI311))((V314)));
1994          if(((V318))==Cnil){          if(((V321))==Cnil){
1995          goto T899;}          goto T922;}
1996          if(((V311))==Cnil){          if(((V314))==Cnil){
1997          goto T902;}          goto T925;}
1998          princ_char(44,VV[21]);          princ_char(44,VV[21]);
1999  T902:;  goto T925;
2000    T925:;
2001          princ_str("va_alist",VV[21]);          princ_str("va_alist",VV[21]);
2002  T899:;  goto T922;
2003    T922:;
2004          princ_char(41,VV[21]);          princ_char(41,VV[21]);
2005          if(((V311))==Cnil){          if(((V314))==Cnil){
2006          goto T909;}          goto T932;}
2007          princ_str("\n   object ",VV[21]);          princ_str("\n   object ",VV[21]);
2008          (void)((*(LnkLI306))((V311)));          (void)((*(LnkLI311))((V314)));
2009          princ_char(59,VV[21]);          princ_char(59,VV[21]);
2010  T909:;  goto T932;
2011          if(((V318))==Cnil){  T932:;
2012          goto T916;}          if(((V321))==Cnil){
2013            goto T939;}
2014          princ_str("\n   va_dcl ",VV[21]);          princ_str("\n   va_dcl ",VV[21]);
2015  T916:;  goto T939;
2016          {object V324;  T939:;
2017          V324= symbol_value(VV[132]);          {object V327;
2018          if(symbol_value(VV[143])==Cnil){          V327= symbol_value(VV[136]);
2019            if(symbol_value(VV[147])==Cnil){
2020          base[5]= Cnil;          base[5]= Cnil;
2021          goto T921;}          goto T944;}
2022          if((caddr((V316)))==Cnil){          if((caddr((V319)))==Cnil){
2023          goto T922;}          goto T945;}
2024          base[5]= Cnil;          base[5]= Cnil;
2025          goto T921;          goto T944;
2026  T922:;  goto T945;
2027          {object V325;  T945:;
2028          object V326;          {object V328;
2029          V325= car((V316));          object V329;
2030          V326= car((V325));          V328= car((V319));
2031  T929:;          V329= car((V328));
2032          if(!(endp((V325)))){  goto T952;
2033          goto T930;}  T952:;
2034          goto T924;          if(!(endp((V328)))){
2035  T930:;          goto T953;}
2036          if((structure_ref((V326),VV[65],3))==Cnil){          goto T947;
2037          goto T934;}  goto T953;
2038          goto T925;  T953:;
2039  T934:;          if((structure_ref((V329),VV[69],3))==Cnil){
2040          V325= cdr((V325));          goto T957;}
2041          V326= car((V325));          goto T948;
2042          goto T929;}  goto T957;
2043  T925:;  T957:;
2044            V328= cdr((V328));
2045            V329= car((V328));
2046            goto T952;}
2047    goto T948;
2048    T948:;
2049          base[5]= Cnil;          base[5]= Cnil;
2050          goto T921;          goto T944;
2051  T924:;  goto T947;
2052          if((cadr((V316)))==Cnil){  T947:;
2053          goto T942;}          if((cadr((V319)))==Cnil){
2054            goto T965;}
2055          base[5]= Cnil;          base[5]= Cnil;
2056          goto T921;          goto T944;
2057  T942:;  goto T965;
2058          if((car(cddddr((V316))))==Cnil){  T965:;
2059          goto T944;}          if((car(cddddr((V319))))==Cnil){
2060            goto T967;}
2061          base[5]= Cnil;          base[5]= Cnil;
2062          goto T921;          goto T944;
2063    goto T967;
2064    T967:;
2065            base[5]= make_cons((V310),car((V319)));
2066    goto T944;
2067  T944:;  T944:;
2068          base[5]= make_cons((V307),car((V316)));          bds_bind(VV[146],base[5]);
2069  T921:;          bds_bind(VV[134],symbol_value(VV[134]));
         bds_bind(VV[142],base[5]);  
         bds_bind(VV[130],symbol_value(VV[130]));  
2070          princ_str("\n{  ",VV[21]);          princ_str("\n{  ",VV[21]);
2071          if(((V318))==Cnil){          if(((V321))==Cnil){
2072          goto T948;}          goto T971;}
2073          princ_str("\n   va_list ap;",VV[21]);          princ_str("\n   va_list ap;",VV[21]);
2074  T948:;  goto T971;
2075    T971:;
2076          princ_str("\n   int narg = VFUN_NARGS;",VV[21]);          princ_str("\n   int narg = VFUN_NARGS;",VV[21]);
2077          V327= structure_ref(cadr((V309)),VV[58],1);          V330= structure_ref(cadr((V312)),VV[62],1);
2078          (void)((*(LnkLI301))(/* INLINE-ARGS */V327,(V308),VV[144]));          (void)((*(LnkLI306))(/* INLINE-ARGS */V330,(V311),VV[148]));
2079          princ_str(" VMB",VV[21]);          princ_str(" VMB",VV[21]);
2080          (void)((*(LnkLI262))((V324)));          (void)((*(LnkLI267))((V327)));
2081          princ_str(" VMS",VV[21]);          princ_str(" VMS",VV[21]);
2082          (void)((*(LnkLI262))((V324)));          (void)((*(LnkLI267))((V327)));
2083          princ_str(" VMV",VV[21]);          princ_str(" VMV",VV[21]);
2084          (void)((*(LnkLI262))((V324)));          (void)((*(LnkLI267))((V327)));
2085          if(((V310))==Cnil){          if(((V313))==Cnil){
2086          goto T962;}          goto T985;}
2087          princ_str("\n   bds_check;",VV[21]);          princ_str("\n   bds_check;",VV[21]);
2088  T962:;  goto T985;
2089          if((symbol_value(VV[145]))==Cnil){  T985:;
2090          goto T966;}          if((symbol_value(VV[149]))==Cnil){
2091            goto T989;}
2092          princ_str("\n   ihs_check;",VV[21]);          princ_str("\n   ihs_check;",VV[21]);
2093  T966:;  goto T989;
2094          if((V318)!=Cnil){  T989:;
2095          goto T970;}          if((V321)!=Cnil){
2096            goto T993;}
2097          princ_str("\n   if ( narg!= ",VV[21]);          princ_str("\n   if ( narg!= ",VV[21]);
2098          V328 = make_fixnum(length((V311)));          V331 = make_fixnum(length((V314)));
2099          (void)((*(LnkLI262))(V328));          (void)((*(LnkLI267))(V331));
2100          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[21]);          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[21]);
2101          V329 = make_fixnum(length((V311)));          V332 = make_fixnum(length((V314)));
2102          (void)((*(LnkLI262))(V329));          (void)((*(LnkLI267))(V332));
2103          princ_str("));",VV[21]);          princ_str("));",VV[21]);
2104  T970:;  goto T993;
2105          {object V330;  T993:;
2106          object V331;          {object V333;
2107          V330= car((V316));          object V334;
2108          V331= car((V330));          V333= car((V319));
2109  T981:;          V334= car((V333));
2110          if(!(endp((V330)))){  goto T1004;
2111          goto T982;}  T1004:;
2112          goto T977;          if(!(endp((V333)))){
2113  T982:;          goto T1005;}
2114          base[9]= (V331);          goto T1000;
2115          vs_top=(vs_base=base+9)+1;  goto T1005;
2116          L25(base);  T1005:;
2117          vs_top=sup;          base[9]= (V334);
         V330= cdr((V330));  
         V331= car((V330));  
         goto T981;}  
 T977:;  
         {object V332;  
         object V333;  
         V332= cadr((V316));  
         V333= car((V332));  
 T997:;  
         if(!(endp((V332)))){  
         goto T998;}  
         goto T993;  
 T998:;  
         base[9]= car((V333));  
2118          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2119          L25(base);          L25(base);
2120          vs_top=sup;          vs_top=sup;
2121          if((caddr((V333)))==Cnil){          V333= cdr((V333));
2122            V334= car((V333));
2123          goto T1004;}          goto T1004;}
2124          base[9]= caddr((V333));  goto T1000;
2125          vs_top=(vs_base=base+9)+1;  T1000:;
2126          L25(base);          {object V335;
2127          vs_top=sup;          object V336;
2128  T1004:;          V335= cadr((V319));
2129          V332= cdr((V332));          V336= car((V335));
2130          V333= car((V332));  goto T1020;
         goto T997;}  
 T993:;  
         if((caddr((V316)))==Cnil){  
         goto T1013;}  
         base[7]= caddr((V316));  
         vs_top=(vs_base=base+7)+1;  
         L25(base);  
         vs_top=sup;  
 T1013:;  
         {object V334;  
         object V335;  
         V334= car(cddddr((V316)));  
         V335= car((V334));  
2131  T1020:;  T1020:;
2132          if(!(endp((V334)))){          if(!(endp((V335)))){
2133          goto T1021;}          goto T1021;}
2134          goto T976;          goto T1016;
2135    goto T1021;
2136  T1021:;  T1021:;
2137          base[9]= cadr((V335));          base[9]= car((V336));
2138          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2139          L25(base);          L25(base);
2140          vs_top=sup;          vs_top=sup;
2141          if((cadddr((V335)))==Cnil){          if((caddr((V336)))==Cnil){
2142          goto T1027;}          goto T1027;}
2143          base[9]= cadddr((V335));          base[9]= caddr((V336));
2144          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2145          L25(base);          L25(base);
2146          vs_top=sup;          vs_top=sup;
2147    goto T1027;
2148  T1027:;  T1027:;
2149          V334= cdr((V334));          V335= cdr((V335));
2150          V335= car((V334));          V336= car((V335));
2151          goto T1020;}          goto T1020;}
2152  T976:;  goto T1016;
2153          if((symbol_value(VV[152]))!=Cnil){  T1016:;
2154          goto T1038;}          if((caddr((V319)))==Cnil){
         if((symbol_value(VV[153]))==Cnil){  
2155          goto T1036;}          goto T1036;}
2156  T1038:;          base[7]= caddr((V319));
2157          if((car((V316)))==Cnil){          vs_top=(vs_base=base+7)+1;
2158          goto T1036;}          L25(base);
2159          princ_str("\n   if(narg <",VV[21]);          vs_top=sup;
2160          V336 = make_fixnum(length(car((V316))));  goto T1036;
         (void)((*(LnkLI262))(V336));  
         princ_str(") too_few_arguments();",VV[21]);  
2161  T1036:;  T1036:;
2162          {object V337;          {object V337;
2163          object V338;          object V338;
2164          V337= car((V316));          V337= car(cddddr((V319)));
2165          V338= car((V337));          V338= car((V337));
2166  T1050:;  goto T1043;
2167    T1043:;
2168          if(!(endp((V337)))){          if(!(endp((V337)))){
2169          goto T1051;}          goto T1044;}
2170          goto T1046;          goto T999;
2171  T1051:;  goto T1044;
2172          (void)((*(LnkLI307))((V338)));  T1044:;
2173            base[9]= cadr((V338));
2174            vs_top=(vs_base=base+9)+1;
2175            L25(base);
2176            vs_top=sup;
2177            if((cadddr((V338)))==Cnil){
2178            goto T1050;}
2179            base[9]= cadddr((V338));
2180            vs_top=(vs_base=base+9)+1;
2181            L25(base);
2182            vs_top=sup;
2183    goto T1050;
2184    T1050:;
2185          V337= cdr((V337));          V337= cdr((V337));
2186          V338= car((V337));          V338= car((V337));
2187          goto T1050;}          goto T1043;}
2188  T1046:;  goto T999;
2189          {object V339;  T999:;
2190          object V340;          if(((VV[153]->s.s_dbind))==Cnil){
2191          V339= cadr((V316));          goto T1061;}
2192          V340= car((V339));          goto T1059;
2193  T1065:;  goto T1061;
         if(!(endp((V339)))){  
         goto T1066;}  
         goto T1061;  
 T1066:;  
         (void)((*(LnkLI307))(car((V340))));  
         V339= cdr((V339));  
         V340= car((V339));  
         goto T1065;}  
2194  T1061:;  T1061:;
2195          if((caddr((V316)))==Cnil){          princ_str("\n   Vcs[0]=Vcs[0];",VV[21]);
2196    goto T1059;
2197    T1059:;
2198            if((cadr((V319)))!=Cnil){
2199            goto T1065;}
2200            if((caddr((V319)))!=Cnil){
2201            goto T1065;}
2202            if((cadddr((V319)))==Cnil){
2203            goto T1064;}
2204    goto T1065;
2205    T1065:;
2206            if(((V320))!=Cnil){
2207            goto T1064;}
2208            V320= Ct;
2209            princ_str("\n   va_start(ap);",VV[21]);
2210    goto T1064;
2211    T1064:;
2212            if((symbol_value(VV[157]))!=Cnil){
2213            goto T1078;}
2214            if((symbol_value(VV[158]))==Cnil){
2215          goto T1076;}          goto T1076;}
2216          (void)((*(LnkLI307))(caddr((V316))));  goto T1078;
2217    T1078:;
2218            if((car((V319)))==Cnil){
2219            goto T1076;}
2220            princ_str("\n   if(narg <",VV[21]);
2221            V339 = make_fixnum(length(car((V319))));
2222            (void)((*(LnkLI267))(V339));
2223            princ_str(") too_few_arguments();",VV[21]);
2224    goto T1076;
2225  T1076:;  T1076:;
2226          if(((VV[148]->s.s_dbind))==Cnil){          {object V340;
2227          goto T1082;}          object V341;
2228          V314= symbol_value(VV[125]);          V340= car((V319));
2229          goto T1080;          V341= car((V340));
2230  T1082:;  goto T1090;
2231          V314= symbol_value(VV[137]);  T1090:;
2232  T1080:;          if(!(endp((V340)))){
2233          {object V341;          goto T1091;}
2234          object V342;          goto T1086;
2235          V341= car(cddddr((V316)));  goto T1091;
2236          V342= car((V341));  T1091:;
2237  T1088:;          (void)((*(LnkLI312))((V341)));
2238          if(!(endp((V341)))){          V340= cdr((V340));
2239          goto T1089;}          V341= car((V340));
2240          goto T1084;          goto T1090;}
2241  T1089:;  goto T1086;
2242          (void)((*(LnkLI307))(cadr((V342))));  T1086:;
2243          V341= cdr((V341));          {object V342;
2244          V342= car((V341));          object V343;
2245          goto T1088;}          V342= cadr((V319));
2246  T1084:;          V343= car((V342));
2247          {object V343;  goto T1105;
2248          object V344;  T1105:;
2249          V343= car(cddddr((V316)));          if(!(endp((V342)))){
2250          V344= car((V343));          goto T1106;}
2251  T1103:;          goto T1101;
2252          if(!(endp((V343)))){  goto T1106;
2253          goto T1104;}  T1106:;
2254          goto T1099;          (void)((*(LnkLI312))(car((V343))));
2255  T1104:;          V342= cdr((V342));
2256          (void)((*(LnkLI307))(cadddr((V344))));          V343= car((V342));
2257          V343= cdr((V343));          goto T1105;}
2258          V344= car((V343));  goto T1101;
2259          goto T1103;}  T1101:;
2260  T1099:;          if((caddr((V319)))==Cnil){
2261          {object V345;          goto T1116;}
2262          object V346;          (void)((*(LnkLI312))(caddr((V319))));
2263          V346= car((V316));  goto T1116;
2264          V345= (V311);  T1116:;
2265  T1117:;          if(((VV[153]->s.s_dbind))==Cnil){
2266          if(((V345))!=Cnil){          goto T1122;}
2267          goto T1118;}          V317= symbol_value(VV[129]);
2268          goto T1114;          goto T1120;
2269  T1118:;  goto T1122;
2270          (void)((*(LnkLI308))(car((V346)),car((V345))));  T1122:;
2271          V345= cdr((V345));          V317= symbol_value(VV[141]);
2272    goto T1120;
2273    T1120:;
2274            {object V344;
2275            object V345;
2276            V344= car(cddddr((V319)));
2277            V345= car((V344));
2278    goto T1128;
2279    T1128:;
2280            if(!(endp((V344)))){
2281            goto T1129;}
2282            goto T1124;
2283    goto T1129;
2284    T1129:;
2285            (void)((*(LnkLI312))(cadr((V345))));
2286            V344= cdr((V344));
2287            V345= car((V344));
2288            goto T1128;}
2289    goto T1124;
2290    T1124:;
2291            {object V346;
2292            object V347;
2293            V346= car(cddddr((V319)));
2294            V347= car((V346));
2295    goto T1143;
2296    T1143:;
2297            if(!(endp((V346)))){
2298            goto T1144;}
2299            goto T1139;
2300    goto T1144;
2301    T1144:;
2302            (void)((*(LnkLI312))(cadddr((V347))));
2303          V346= cdr((V346));          V346= cdr((V346));
2304          goto T1117;}          V347= car((V346));
2305  T1114:;          goto T1143;}
2306          if((cadr((V316)))==Cnil){  goto T1139;
2307          goto T1127;}  T1139:;
         bds_bind(VV[129],symbol_value(VV[129]));  
         bds_bind(VV[130],(VV[130]->s.s_dbind));  
         bds_bind(VV[128],symbol_value(VV[128]));  
         princ_str("\n   narg = narg - ",VV[21]);  
         V347 = make_fixnum(length((V311)));  
         (void)((*(LnkLI262))(V347));  
         princ_char(59,VV[21]);  
2308          {object V348;          {object V348;
2309          object V349;          object V349;
2310          V348= cadr((V316));          V349= car((V319));
2311          V349= car((V348));          V348= (V314);
2312  T1138:;  goto T1157;
2313          if(!(endp((V348)))){  T1157:;
2314          goto T1139;}          if(((V348))!=Cnil){
2315            goto T1158;}
2316            goto T1154;
2317    goto T1158;
2318    T1158:;
2319            (void)((*(LnkLI313))(car((V349)),car((V348))));
2320            V348= cdr((V348));
2321            V349= cdr((V349));
2322            goto T1157;}
2323    goto T1154;
2324    T1154:;
2325            if((cadr((V319)))==Cnil){
2326            goto T1167;}
2327            bds_bind(VV[133],symbol_value(VV[133]));
2328            bds_bind(VV[134],(VV[134]->s.s_dbind));
2329            bds_bind(VV[132],symbol_value(VV[132]));
2330            princ_str("\n   narg = narg - ",VV[21]);
2331            V350 = make_fixnum(length((V314)));
2332            (void)((*(LnkLI267))(V350));
2333            princ_char(59,VV[21]);
2334            {object V351;
2335            object V352;
2336            V351= cadr((V319));
2337            V352= car((V351));
2338    goto T1178;
2339    T1178:;
2340            if(!(endp((V351)))){
2341            goto T1179;}
2342          bds_unwind1;          bds_unwind1;
2343          bds_unwind1;          bds_unwind1;
2344          bds_unwind1;          bds_unwind1;
2345          goto T1130;          goto T1170;
2346  T1139:;  goto T1179;
2347          setq(VV[154],number_plus(symbol_value(VV[154]),small_fixnum(1)));  T1179:;
2348          V350= make_cons(symbol_value(VV[154]),Cnil);          setq(VV[159],number_plus(symbol_value(VV[159]),small_fixnum(1)));
2349          V312= make_cons(/* INLINE-ARGS */V350,(V312));          V353= make_cons(symbol_value(VV[159]),Cnil);
2350            V315= make_cons(/* INLINE-ARGS */V353,(V315));
2351          princ_str("\n   if (",VV[21]);          princ_str("\n   if (",VV[21]);
2352          if((cdr((V312)))==Cnil){          if((cdr((V315)))==Cnil){
2353          goto T1151;}          goto T1191;}
2354          V351= VV[155];          V354= VV[160];
2355          goto T1149;          goto T1189;
2356  T1151:;  goto T1191;
2357          V351= VV[156];  T1191:;
2358  T1149:;          V354= VV[161];
2359          (void)((*(LnkLI262))(V351));  goto T1189;
2360    T1189:;
2361            (void)((*(LnkLI267))(V354));
2362          princ_str("narg <= 0) ",VV[21]);          princ_str("narg <= 0) ",VV[21]);
2363          if(type_of(car((V312)))!=t_cons)FEwrong_type_argument(Scons,car((V312)));          if(type_of(car((V315)))!=t_cons)FEwrong_type_argument(Scons,car((V315)));
2364          (car((V312)))->c.c_cdr = Ct;          (car((V315)))->c.c_cdr = Ct;
2365          (void)(car((V312)));          (void)(car((V315)));
2366          princ_str("goto T",VV[21]);          princ_str("goto T",VV[21]);
2367          (void)((*(LnkLI262))(car(car((V312)))));          (void)((*(LnkLI267))(car(car((V315)))));
2368          princ_char(59,VV[21]);          princ_char(59,VV[21]);
2369          princ_str("\n   else {",VV[21]);          princ_str("\n   else {",VV[21]);
2370          if(((V317))!=Cnil){          if(((V320))!=Cnil){
2371          goto T1161;}          goto T1201;}
2372          V317= Ct;          V320= Ct;
2373          princ_str("\n   va_start(ap);",VV[21]);          princ_str("\n   va_start(ap);",VV[21]);
2374  T1161:;  goto T1201;
2375          V352= car((V349));  T1201:;
2376          V353= make_cons(VV[157],Cnil);          V355= car((V352));
2377          (void)((*(LnkLI308))(/* INLINE-ARGS */V352,/* INLINE-ARGS */V353));          V356= make_cons(VV[162],Cnil);
2378            (void)((*(LnkLI313))(/* INLINE-ARGS */V355,/* INLINE-ARGS */V356));
2379          princ_char(125,VV[21]);          princ_char(125,VV[21]);
2380          if((caddr((V349)))==Cnil){          if((caddr((V352)))==Cnil){
2381          goto T1170;}          goto T1210;}
2382          (void)((*(LnkLI308))(caddr((V349)),Ct));          (void)((*(LnkLI313))(caddr((V352)),Ct));
2383    goto T1210;
2384    T1210:;
2385            V351= cdr((V351));
2386            V352= car((V351));
2387            goto T1178;}
2388    goto T1170;
2389  T1170:;  T1170:;
2390          V348= cdr((V348));          V315= nreverse((V315));
2391          V349= car((V348));          {object V357;
2392          goto T1138;}          setq(VV[159],number_plus(symbol_value(VV[159]),small_fixnum(1)));
2393  T1130:;          V357= make_cons(symbol_value(VV[159]),Cnil);
         V312= nreverse((V312));  
         {object V354;  
         setq(VV[154],number_plus(symbol_value(VV[154]),small_fixnum(1)));  
         V354= make_cons(symbol_value(VV[154]),Cnil);  
2394          princ_str("\n   --narg; ",VV[21]);          princ_str("\n   --narg; ",VV[21]);
2395          if(type_of((V354))!=t_cons)FEwrong_type_argument(Scons,(V354));          if(type_of((V357))!=t_cons)FEwrong_type_argument(Scons,(V357));
2396          ((V354))->c.c_cdr = Ct;          ((V357))->c.c_cdr = Ct;
2397          princ_str("goto T",VV[21]);          princ_str("goto T",VV[21]);
2398          (void)((*(LnkLI262))(car((V354))));          (void)((*(LnkLI267))(car((V357))));
2399            princ_char(59,VV[21]);
2400            {object V358;
2401            object V359;
2402            V358= cadr((V319));
2403            V359= car((V358));
2404    goto T1233;
2405    T1233:;
2406            if(!(endp((V358)))){
2407            goto T1234;}
2408            goto T1229;
2409    goto T1234;
2410    T1234:;
2411            if((cdr(car((V315))))==Cnil){
2412            goto T1238;}
2413            princ_str("\ngoto T",VV[21]);
2414            (void)((*(LnkLI267))(car(car((V315)))));
2415          princ_char(59,VV[21]);          princ_char(59,VV[21]);
         {object V355;  
         object V356;  
         V355= cadr((V316));  
         V356= car((V355));  
 T1193:;  
         if(!(endp((V355)))){  
         goto T1194;}  
         goto T1189;  
 T1194:;  
         if((cdr(car((V312))))==Cnil){  
         goto T1198;}  
2416          princ_str("\nT",VV[21]);          princ_str("\nT",VV[21]);
2417          (void)((*(LnkLI262))(car(car((V312)))));          (void)((*(LnkLI267))(car(car((V315)))));
2418          princ_str(":;",VV[21]);          princ_str(":;",VV[21]);
2419  T1198:;  goto T1238;
2420          {object V357;  T1238:;
2421          V357= car((V312));          {object V360;
2422          V312= cdr((V312));}          V360= car((V315));
2423          (void)((*(LnkLI309))(car((V356)),cadr((V356))));          V315= cdr((V315));}
2424          if((caddr((V356)))==Cnil){          (void)((*(LnkLI314))(car((V359)),cadr((V359))));
2425          goto T1209;}          if((caddr((V359)))==Cnil){
2426          (void)((*(LnkLI308))(caddr((V356)),Cnil));          goto T1253;}
2427  T1209:;          (void)((*(LnkLI313))(caddr((V359)),Cnil));
2428          V355= cdr((V355));  goto T1253;
2429          V356= car((V355));  T1253:;
2430          goto T1193;}          V358= cdr((V358));
2431  T1189:;          V359= car((V358));
2432          if((cdr((V354)))==Cnil){          goto T1233;}
2433          goto T1127;}  goto T1229;
2434    T1229:;
2435            if((cdr((V357)))==Cnil){
2436            goto T1167;}
2437            princ_str("\ngoto T",VV[21]);
2438            (void)((*(LnkLI267))(car((V357))));
2439            princ_char(59,VV[21]);
2440          princ_str("\nT",VV[21]);          princ_str("\nT",VV[21]);
2441          (void)((*(LnkLI262))(car((V354))));          (void)((*(LnkLI267))(car((V357))));
2442          princ_str(":;",VV[21]);}          princ_str(":;",VV[21]);}
2443  T1127:;  goto T1167;
2444          if((caddr((V316)))==Cnil){  T1167:;
2445          goto T1222;}          if((caddr((V319)))==Cnil){
2446          V315= (VFUN_NARGS=0,(*(LnkLI310))());          goto T1270;}
2447          {object V358;          V318= (VFUN_NARGS=0,(*(LnkLI315))());
2448          V358= cadr((V316));          {object V361;
2449          if(((V358))==Cnil){          V361= cadr((V319));
2450          goto T1230;}          if(((V361))==Cnil){
2451          goto T1227;          goto T1278;}
2452  T1230:;          goto T1275;
2453    goto T1278;
2454    T1278:;
2455          princ_str("\n   narg= narg - ",VV[21]);          princ_str("\n   narg= narg - ",VV[21]);
2456          V359 = make_fixnum(length(car((V316))));          V362 = make_fixnum(length(car((V319))));
2457          (void)((*(LnkLI262))(V359));          (void)((*(LnkLI267))(V362));
2458          princ_char(59,VV[21]);}          princ_char(59,VV[21]);}
2459  T1227:;  goto T1275;
2460          if(((V317))!=Cnil){  T1275:;
2461          goto T1235;}          if(((V320))!=Cnil){
2462          V317= Ct;          goto T1283;}
2463            V320= Ct;
2464          princ_str("\n   va_start(ap);",VV[21]);          princ_str("\n   va_start(ap);",VV[21]);
2465  T1235:;  goto T1283;
2466    T1283:;
2467          princ_str("\n   V",VV[21]);          princ_str("\n   V",VV[21]);
2468          (void)((*(LnkLI262))((V315)));          (void)((*(LnkLI267))((V318)));
2469          princ_str(" = ",VV[21]);          princ_str(" = ",VV[21]);
2470          V360= structure_ref(caddr((V316)),VV[65],5);          V363= structure_ref(caddr((V319)),VV[69],5);
2471          if(!((/* INLINE-ARGS */V360)==(VV[159]))){          if(!((/* INLINE-ARGS */V363)==(VV[164]))){
2472          goto T1246;}          goto T1294;}
2473          base[7]= Ct;          base[7]= Ct;
2474          goto T1245;          goto T1293;
2475  T1246:;  goto T1294;
2476          base[7]= symbol_value(VV[158]);  T1294:;
2477  T1245:;          base[7]= symbol_value(VV[163]);
2478          bds_bind(VV[158],base[7]);  goto T1293;
2479          if((cadddr((V316)))==Cnil){  T1293:;
2480          goto T1250;}          bds_bind(VV[163],base[7]);
2481          if(((VV[158]->s.s_dbind))==Cnil){          if((cadddr((V319)))==Cnil){
2482          goto T1253;}          goto T1298;}
2483            if(((VV[163]->s.s_dbind))==Cnil){
2484            goto T1301;}
2485          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[21]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[21]);
2486          goto T1248;          goto T1296;
2487  T1253:;  goto T1301;
2488    T1301:;
2489          princ_str("make_list(narg);",VV[21]);          princ_str("make_list(narg);",VV[21]);
2490          goto T1248;          goto T1296;
2491  T1250:;  goto T1298;
2492          if(((VV[158]->s.s_dbind))==Cnil){  T1298:;
2493          goto T1258;}          if(((VV[163]->s.s_dbind))==Cnil){
2494            goto T1306;}
2495          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[21]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[21]);
2496          goto T1248;          goto T1296;
2497  T1258:;  goto T1306;
2498    T1306:;
2499          princ_str("list_vector(narg,ap);",VV[21]);          princ_str("list_vector(narg,ap);",VV[21]);
2500  T1248:;  goto T1296;
2501          V361= caddr((V316));  T1296:;
2502          V362= list(2,VV[150],(V315));          V364= caddr((V319));
2503          V363= (*(LnkLI308))(/* INLINE-ARGS */V361,/* INLINE-ARGS */V362);          V365= list(2,VV[155],(V318));
2504          bds_unwind1;          V366= (*(LnkLI313))(/* INLINE-ARGS */V364,/* INLINE-ARGS */V365);
2505  T1222:;          bds_unwind1;
2506          if((cadddr((V316)))==Cnil){  goto T1270;
2507          goto T1262;}  T1270:;
2508          {object V364;          if((cadddr((V319)))==Cnil){
2509          V364= caddr((V316));          goto T1310;}
2510          if(((V364))==Cnil){          {object V367;
2511          goto T1268;}          V367= caddr((V319));
2512          goto T1265;          if(((V367))==Cnil){
2513  T1268:;          goto T1316;}
2514          {object V365;          goto T1313;
2515          V365= cadr((V316));  goto T1316;
2516          if(((V365))==Cnil){  T1316:;
2517          goto T1272;}          {object V368;
2518          goto T1265;          V368= cadr((V319));
2519  T1272:;          if(((V368))==Cnil){
2520            goto T1320;}
2521            goto T1313;
2522    goto T1320;
2523    T1320:;
2524          princ_str("\n   narg= narg - ",VV[21]);          princ_str("\n   narg= narg - ",VV[21]);
2525          V366 = make_fixnum(length(car((V316))));          V369 = make_fixnum(length(car((V319))));
2526          (void)((*(LnkLI262))(V366));          (void)((*(LnkLI267))(V369));
2527          princ_char(59,VV[21]);}}          princ_char(59,VV[21]);}}
2528  T1265:;  goto T1313;
2529          if(((V317))!=Cnil){  T1313:;
2530          goto T1277;}          if(((V320))!=Cnil){
2531          V317= Ct;          goto T1325;}
2532            V320= Ct;
2533          princ_str("\n   va_start(ap);",VV[21]);          princ_str("\n   va_start(ap);",VV[21]);
2534  T1277:;  goto T1325;
2535          {object V367;  T1325:;
2536          object V368= car(cddddr((V316)));          {object V370;
2537          if(endp(V368)){          object V371= car(cddddr((V319)));
2538          V313= Cnil;          if(endp(V371)){
2539          goto T1284;}          V316= Cnil;
2540          base[7]=V367=MMcons(Cnil,Cnil);          goto T1332;}
2541  T1285:;          base[7]=V370=MMcons(Cnil,Cnil);
2542          (V367->c.c_car)= caddr((V368->c.c_car));  goto T1333;
2543          if(endp(V368=MMcdr(V368))){  T1333:;
2544          V313= base[7];          (V370->c.c_car)= caddr((V371->c.c_car));
2545          goto T1284;}          if(endp(V371=MMcdr(V371))){
2546          V367=MMcdr(V367)=MMcons(Cnil,Cnil);          V316= base[7];
2547          goto T1285;}          goto T1332;}
2548  T1284:;          V370=MMcdr(V370)=MMcons(Cnil,Cnil);
2549          {object V369;          goto T1333;}
2550          object V370;  goto T1332;
2551          V370= make_fixnum(length(car(cddddr((V316)))));  T1332:;
2552          V369= Cnil;          {object V372;
         {register object V371;  
         object V372;  
2553          object V373;          object V373;
2554          V371= (V313);          V373= make_fixnum(length(car(cddddr((V319)))));
2555          V372= car(cddddr((V316)));          V372= Cnil;
2556          V373= car((V372));          {register object V374;
2557  T1293:;          object V375;
2558          if(((V371))!=Cnil){          object V376;
2559          goto T1294;}          V374= (V316);
2560          goto T1288;          V375= car(cddddr((V319)));
2561  T1294:;          V376= car((V375));
2562          if(!((caar((V371)))==(VV[160]))){  goto T1341;
2563          goto T1299;}  T1341:;
2564          if((caddr(car((V371))))==(Cnil)){          if(((V374))!=Cnil){
2565          goto T1298;}          goto T1342;}
2566  T1299:;          goto T1336;
2567          V369= Ct;  goto T1342;
2568  T1298:;  T1342:;
2569          if(!((caar((V371)))==(VV[160]))){          if(!((caar((V374)))==(VV[165]))){
2570          goto T1305;}          goto T1347;}
2571          {object V374;          if((caddr(car((V374))))==(Cnil)){
2572          V374= caddr(car((V371)));          goto T1346;}
2573          if(!(((V374))==(Cnil))){  goto T1347;
2574          goto T1311;}  T1347:;
2575          goto T1309;          V372= Ct;
2576  T1311:;  goto T1346;
2577          if(type_of((V374))==t_cons){  T1346:;
2578          goto T1313;}          if(!((caar((V374)))==(VV[165]))){
2579          goto T1305;          goto T1353;}
2580  T1313:;          {object V377;
2581          {register object x= car((V374)),V375= VV[161];          V377= caddr(car((V374)));
2582          while(!endp(V375))          if(!(((V377))==(Cnil))){
2583          if(eql(x,V375->c.c_car)){          goto T1359;}
2584          goto T1309;          goto T1357;
2585          }else V375=V375->c.c_cdr;  goto T1359;
2586          goto T1305;}}  T1359:;
2587  T1309:;          if(type_of((V377))==t_cons){
2588          V376= structure_ref(cadddr((V373)),VV[65],1);          goto T1361;}
2589          if((/* INLINE-ARGS */V376)==(VV[162])){          goto T1353;
2590          goto T1304;}  goto T1361;
2591  T1305:;  T1361:;
2592          V369= Ct;          {register object x= car((V377)),V378= VV[166];
2593          if(type_of(V371)!=t_cons)FEwrong_type_argument(Scons,V371);          while(!endp(V378))
2594          (V371)->c.c_car = small_fixnum(0);          if(eql(x,V378->c.c_car)){
2595  T1304:;          goto T1357;
2596          V371= cdr((V371));          }else V378=V378->c.c_cdr;
2597          V372= cdr((V372));          goto T1353;}}
2598          V373= car((V372));  goto T1357;
2599          goto T1293;}  T1357:;
2600  T1288:;          V379= structure_ref(cadddr((V376)),VV[69],1);
2601          if(!((length((V313)))>(15))){          if((/* INLINE-ARGS */V379)==(VV[167])){
2602          goto T1326;}          goto T1352;}
2603          V369= Ct;  goto T1353;
2604  T1326:;  T1353:;
2605            V372= Ct;
2606            if(type_of(V374)!=t_cons)FEwrong_type_argument(Scons,V374);
2607            (V374)->c.c_car = small_fixnum(0);
2608    goto T1352;
2609    T1352:;
2610            V374= cdr((V374));
2611            V375= cdr((V375));
2612            V376= car((V375));
2613            goto T1341;}
2614    goto T1336;
2615    T1336:;
2616            if(!((length((V316)))>(15))){
2617            goto T1374;}
2618            V372= Ct;
2619    goto T1374;
2620    T1374:;
2621          princ_str("\n   {",VV[21]);          princ_str("\n   {",VV[21]);
2622          vs_base=vs_top;          vs_base=vs_top;
2623          (void) (*Lnk311)();          (void) (*Lnk316)();
2624          vs_top=sup;          vs_top=sup;
2625          bds_bind(VV[21],symbol_value(VV[27]));          bds_bind(VV[21],symbol_value(VV[27]));
2626          if(((V369))==Cnil){          if(((V372))==Cnil){
2627          goto T1334;}          goto T1382;}
2628          princ_char(10,VV[27]);          princ_char(10,VV[27]);
2629          princ_str("static object VK",VV[21]);          princ_str("static object VK",VV[21]);
2630          (void)((*(LnkLI262))((V308)));          (void)((*(LnkLI267))((V311)));
2631          princ_str("defaults[",VV[21]);          princ_str("defaults[",VV[21]);
2632          V379 = make_fixnum(length((V313)));          V382 = make_fixnum(length((V316)));
2633          (void)((*(LnkLI262))(V379));          (void)((*(LnkLI267))(V382));
2634          princ_str("]={",VV[21]);          princ_str("]={",VV[21]);
2635          {object V380;          {object V383;
2636          register object V381;          register object V384;
2637          V380= (V313);          V383= (V316);
2638          V381= Cnil;          V384= Cnil;
2639  T1346:;  goto T1394;
2640          if(((V380))!=Cnil){  T1394:;
2641          goto T1347;}          if(((V383))!=Cnil){
2642          goto T1344;          goto T1395;}
2643  T1347:;          goto T1392;
2644    goto T1395;
2645    T1395:;
2646          princ_str("(void *)",VV[21]);          princ_str("(void *)",VV[21]);
2647          if(!(eql(car((V380)),small_fixnum(0)))){          if(!(eql(car((V383)),small_fixnum(0)))){
2648          goto T1355;}          goto T1403;}
2649          princ_str("-1",VV[21]);          princ_str("-1",VV[21]);
2650          goto T1353;          goto T1401;
2651  T1355:;  goto T1403;
2652          V381= caddr(car((V380)));  T1403:;
2653          if(!(((V381))==(Cnil))){          V384= caddr(car((V383)));
2654          goto T1359;}          if(!(((V384))==(Cnil))){
2655            goto T1407;}
2656          princ_str("-2",VV[21]);          princ_str("-2",VV[21]);
2657          goto T1353;          goto T1401;
2658  T1359:;  goto T1407;
2659          if(!(type_of((V381))==t_cons)){  T1407:;
2660          goto T1364;}          if(!(type_of((V384))==t_cons)){
2661          if(!((car((V381)))==(VV[163]))){          goto T1412;}
2662          goto T1364;}          if(!((car((V384)))==(VV[168]))){
2663          (void)((*(LnkLI262))(cadr((V381))));          goto T1412;}
2664          goto T1353;          (void)((*(LnkLI267))(cadr((V384))));
2665  T1364:;          goto T1401;
2666          if(!(type_of((V381))==t_cons)){  goto T1412;
2667          goto T1370;}  T1412:;
2668          if(!((car((V381)))==(VV[164]))){          if(!(type_of((V384))==t_cons)){
2669          goto T1370;}          goto T1418;}
2670          V382= (*(LnkLI312))(caddr((V381)));          if(!((car((V384)))==(VV[169]))){
2671          (void)((*(LnkLI262))(/* INLINE-ARGS */V382));          goto T1418;}
2672          goto T1353;          V385= (*(LnkLI317))(caddr((V384)));
2673  T1370:;          (void)((*(LnkLI267))(/* INLINE-ARGS */V385));
2674          (void)((*(LnkLI313))());          goto T1401;
2675  T1353:;  goto T1418;
2676          if((cdr((V380)))==Cnil){  T1418:;
2677          goto T1375;}          (void)((*(LnkLI318))());
2678    goto T1401;
2679    T1401:;
2680            if((cdr((V383)))==Cnil){
2681            goto T1423;}
2682          princ_char(44,VV[21]);          princ_char(44,VV[21]);
2683  T1375:;  goto T1423;
2684          V380= cdr((V380));  T1423:;
2685          goto T1346;}          V383= cdr((V383));
2686  T1344:;          goto T1394;}
2687    goto T1392;
2688    T1392:;
2689          princ_str("};",VV[21]);          princ_str("};",VV[21]);
2690  T1334:;  goto T1382;
2691    T1382:;
2692          princ_char(10,VV[27]);          princ_char(10,VV[27]);
2693          princ_str("static struct { short n,allow_other_keys;",VV[21]);          princ_str("static struct { short n,allow_other_keys;",VV[21]);
2694          princ_str("object *defaults;",VV[21]);          princ_str("object *defaults;",VV[21]);
2695          princ_str("\n    KEYTYPE keys[",VV[21]);          princ_str("\n    KEYTYPE keys[",VV[21]);
2696          (void)((*(LnkLI262))((number_compare((V370),small_fixnum(1))>=0?((V370)):small_fixnum(1))));          (void)((*(LnkLI267))((number_compare((V373),small_fixnum(1))>=0?((V373)):small_fixnum(1))));
2697          princ_str("];",VV[21]);          princ_str("];",VV[21]);
2698          princ_str("} LI",VV[21]);          princ_str("} LI",VV[21]);
2699          (void)((*(LnkLI262))((V308)));          (void)((*(LnkLI267))((V311)));
2700          princ_str("key=",VV[21]);          princ_str("key=",VV[21]);
2701          princ_char(123,VV[21]);          princ_char(123,VV[21]);
2702          V383 = make_fixnum(length(car(cddddr((V316)))));          V386 = make_fixnum(length(car(cddddr((V319)))));
2703          (void)((*(LnkLI262))(V383));          (void)((*(LnkLI267))(V386));
2704          princ_char(44,VV[21]);          princ_char(44,VV[21]);
2705          if((cadr(cddddr((V316))))==Cnil){          if((cadr(cddddr((V319))))==Cnil){
2706          goto T1402;}          goto T1450;}
2707          V384= small_fixnum(1);          V387= small_fixnum(1);
2708          goto T1400;          goto T1448;
2709  T1402:;  goto T1450;
2710          V384= small_fixnum(0);  T1450:;
2711  T1400:;          V387= small_fixnum(0);
2712          (void)((*(LnkLI262))(V384));  goto T1448;
2713    T1448:;
2714            (void)((*(LnkLI267))(V387));
2715          princ_char(44,VV[21]);          princ_char(44,VV[21]);
2716          if(((V369))==Cnil){          if(((V372))==Cnil){
2717          goto T1407;}          goto T1455;}
2718          princ_str("VK",VV[21]);          princ_str("VK",VV[21]);
2719          (void)((*(LnkLI262))((V308)));          (void)((*(LnkLI267))((V311)));
2720          princ_str("defaults",VV[21]);          princ_str("defaults",VV[21]);
2721          goto T1405;          goto T1453;
2722  T1407:;  goto T1455;
2723    T1455:;
2724          princ_str("Cstd_key_defaults",VV[21]);          princ_str("Cstd_key_defaults",VV[21]);
2725  T1405:;  goto T1453;
2726          if((car(cddddr((V316))))==Cnil){  T1453:;
2727          goto T1413;}          if((car(cddddr((V319))))==Cnil){
2728            goto T1461;}
2729          princ_str(",{",VV[21]);          princ_str(",{",VV[21]);
2730          {object V385;          {object V388;
2731          V385= reverse(car(cddddr((V316))));          V388= reverse(car(cddddr((V319))));
2732  T1421:;  goto T1469;
2733          if(((V385))!=Cnil){  T1469:;
2734          goto T1422;}          if(((V388))!=Cnil){
2735          goto T1418;          goto T1470;}
2736  T1422:;          goto T1466;
2737    goto T1470;
2738    T1470:;
2739          princ_str("(void *)",VV[21]);          princ_str("(void *)",VV[21]);
2740          V386= (*(LnkLI314))(caar((V385)));          V389= (*(LnkLI319))(caar((V388)));
2741          (void)((*(LnkLI262))(/* INLINE-ARGS */V386));          (void)((*(LnkLI267))(/* INLINE-ARGS */V389));
2742          if((cdr((V385)))==Cnil){          if((cdr((V388)))==Cnil){
2743          goto T1430;}          goto T1478;}
2744          princ_char(44,VV[21]);          princ_char(44,VV[21]);
2745  T1430:;  goto T1478;
2746          V385= cdr((V385));  T1478:;
2747          goto T1421;}          V388= cdr((V388));
2748  T1418:;          goto T1469;}
2749    goto T1466;
2750    T1466:;
2751          princ_char(125,VV[21]);          princ_char(125,VV[21]);
2752  T1413:;  goto T1461;
2753    T1461:;
2754          princ_str("};",VV[21]);          princ_str("};",VV[21]);
2755          bds_unwind1;          bds_unwind1;
2756          if((caddr((V316)))==Cnil){          if((caddr((V319)))==Cnil){
2757          goto T1441;}          goto T1489;}
2758          princ_str("\n   parse_key_rest(",VV[21]);          princ_str("\n   parse_key_rest(",VV[21]);
2759          V387= list(2,VV[150],(V315));          V390= list(2,VV[155],(V318));
2760          (void)((*(LnkLI262))(/* INLINE-ARGS */V387));          (void)((*(LnkLI267))(/* INLINE-ARGS */V390));
2761          princ_char(44,VV[21]);          princ_char(44,VV[21]);
2762          goto T1439;          goto T1487;
2763  T1441:;  goto T1489;
2764    T1489:;
2765          princ_str("\n   parse_key_new(",VV[21]);          princ_str("\n   parse_key_new(",VV[21]);
2766  T1439:;  goto T1487;
2767          if(!(eql(small_fixnum(0),symbol_value(VV[137])))){  T1487:;
2768          goto T1447;}          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){
2769          setq(VV[137],small_fixnum(1));          goto T1495;}
2770  T1447:;          setq(VV[141],small_fixnum(1));
2771    goto T1495;
2772    T1495:;
2773          princ_str("narg,",VV[21]);          princ_str("narg,",VV[21]);
2774          if(((VV[148]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2775          goto T1455;}          goto T1503;}
2776          V388= VV[165];          V391= VV[170];
2777          goto T1453;          goto T1501;
2778  T1455:;  goto T1503;
2779          V388= VV[166];  T1503:;
2780  T1453:;          V391= VV[171];
2781          (void)((*(LnkLI262))(V388));  goto T1501;
2782    T1501:;
2783            (void)((*(LnkLI267))(V391));
2784          princ_char(43,VV[21]);          princ_char(43,VV[21]);
2785          (void)((*(LnkLI262))((V314)));          (void)((*(LnkLI267))((V317)));
2786          princ_str(",&LI",VV[21]);          princ_str(",(struct key *)&LI",VV[21]);
2787          (void)((*(LnkLI262))((V308)));          (void)((*(LnkLI267))((V311)));
2788          princ_str("key,ap);",VV[21]);}          princ_str("key,ap);",VV[21]);}
2789  T1262:;  goto T1310;
2790          {object V389;  T1310:;
         register object V390;  
         V389= car(cddddr((V316)));  
         V390= car((V389));  
 T1466:;  
         if(!(endp((V389)))){  
         goto T1467;}  
         goto T1462;  
 T1467:;  
2791          {object V392;          {object V392;
2792          V392= car((V313));          register object V393;
2793          V313= cdr((V313));          V392= car(cddddr((V319)));
2794          V391= (V392);}          V393= car((V392));
2795          if(eql(small_fixnum(0),V391)){  goto T1514;
2796          goto T1473;}  T1514:;
2797          (void)((*(LnkLI315))(cadr((V390))));          if(!(endp((V392)))){
2798          goto T1471;          goto T1515;}
2799  T1473:;          goto T1510;
2800    goto T1515;
2801    T1515:;
2802            {object V395;
2803            V395= car((V316));
2804            V316= cdr((V316));
2805            V394= (V395);}
2806            if(eql(small_fixnum(0),V394)){
2807            goto T1521;}
2808            (void)((*(LnkLI320))(cadr((V393))));
2809            goto T1519;
2810    goto T1521;
2811    T1521:;
2812          princ_str("\n   if(",VV[21]);          princ_str("\n   if(",VV[21]);
2813          V393= structure_ref(cadr((V390)),VV[65],2);          V396= structure_ref(cadr((V393)),VV[69],2);
2814          (void)((*(LnkLI316))(/* INLINE-ARGS */V393));          (void)((*(LnkLI321))(/* INLINE-ARGS */V396));
2815          princ_str("==0){",VV[21]);          princ_str("==0){",VV[21]);
2816          bds_bind(VV[129],symbol_value(VV[129]));          bds_bind(VV[133],symbol_value(VV[133]));
2817          bds_bind(VV[130],(VV[130]->s.s_dbind));          bds_bind(VV[134],(VV[134]->s.s_dbind));
2818          bds_bind(VV[128],symbol_value(VV[128]));          bds_bind(VV[132],symbol_value(VV[132]));
2819          V394= (*(LnkLI309))(cadr((V390)),caddr((V390)));          V397= (*(LnkLI314))(cadr((V393)),caddr((V393)));
2820          bds_unwind1;          bds_unwind1;
2821          bds_unwind1;          bds_unwind1;
2822          bds_unwind1;          bds_unwind1;
2823          V395= structure_ref(cadddr((V390)),VV[65],1);          V398= structure_ref(cadddr((V393)),VV[69],1);
2824          if((/* INLINE-ARGS */V395)==(VV[162])){          if((/* INLINE-ARGS */V398)==(VV[167])){
2825          goto T1485;}          goto T1533;}
2826          (void)((*(LnkLI308))(cadddr((V390)),Cnil));          (void)((*(LnkLI313))(cadddr((V393)),Cnil));
2827  T1485:;  goto T1533;
2828    T1533:;
2829          princ_str("\n   }else{",VV[21]);          princ_str("\n   }else{",VV[21]);
2830          (void)((*(LnkLI315))(cadr((V390))));          (void)((*(LnkLI320))(cadr((V393))));
2831          V396= structure_ref(cadddr((V390)),VV[65],1);          V399= structure_ref(cadddr((V393)),VV[69],1);
2832          if((/* INLINE-ARGS */V396)==(VV[162])){          if((/* INLINE-ARGS */V399)==(VV[167])){
2833          goto T1491;}          goto T1539;}
2834          (void)((*(LnkLI308))(cadddr((V390)),Ct));          (void)((*(LnkLI313))(cadddr((V393)),Ct));
2835  T1491:;  goto T1539;
2836    T1539:;
2837          princ_char(125,VV[21]);          princ_char(125,VV[21]);
2838  T1471:;  goto T1519;
2839          V389= cdr((V389));  T1519:;
2840          V390= car((V389));          V392= cdr((V392));
2841          goto T1466;}          V393= car((V392));
2842  T1462:;          goto T1514;}
2843          if(((VV[142]->s.s_dbind))==Cnil){  goto T1510;
2844          goto T1500;}  T1510:;
2845          (VV[130]->s.s_dbind)= make_cons(VV[146],(VV[130]->s.s_dbind));          if(((VV[146]->s.s_dbind))==Cnil){
2846            goto T1548;}
2847            (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
2848            princ_str("\ngoto TTL;",VV[21]);
2849          princ_str("\nTTL:;",VV[21]);          princ_str("\nTTL:;",VV[21]);
2850  T1500:;  goto T1548;
2851          base[7]= caddr(cddr((V309)));  T1548:;
2852            base[7]= caddr(cddr((V312)));
2853          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2854          (void) (*Lnk302)();          (void) (*Lnk307)();
2855          vs_top=sup;          vs_top=sup;
2856            if(((V320))==Cnil){
2857            goto T1558;}
2858            V320= Cnil;
2859            princ_str("\n   va_end(ap);",VV[21]);
2860    goto T1558;
2861    T1558:;
2862            if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
2863            goto T1566;}
2864            if((symbol_value(VV[138]))!=Cnil){
2865            goto T1566;}
2866            if((symbol_value(VV[140]))!=Cnil){
2867            goto T1566;}
2868            goto T1564;
2869    goto T1566;
2870    T1566:;
2871            princ_str("\n   base[0]=base[0];",VV[21]);
2872    goto T1564;
2873    T1564:;
2874            princ_str("\n   return Cnil;",VV[21]);
2875          princ_char(125,VV[21]);          princ_char(125,VV[21]);
2876          if((base[1])==Cnil){          if((base[1])==Cnil){
2877          goto T1510;}          goto T1577;}
2878          princ_str("\n   }",VV[21]);          princ_str("\n   }",VV[21]);
2879  T1510:;  goto T1577;
2880          (void)((*(LnkLI317))());  T1577:;
2881          V397= get((V307),VV[74],Cnil);          (void)((*(LnkLI322))());
2882          {object V398 = (*(LnkLI303))((V324),V397);          V400= get((V310),VV[78],Cnil);
2883            {object V401 = (*(LnkLI308))((V327),V400);
2884          bds_unwind1;          bds_unwind1;
2885          bds_unwind1;          bds_unwind1;
2886          bds_unwind1;          bds_unwind1;
2887          bds_unwind1;          bds_unwind1;
2888          VMR24(V398)}}}          VMR24(V401)}}}
2889            base[0]=base[0];
2890            return Cnil;
2891  }  }
2892  /*      local entry for function T3DEFUN-NORMAL */  /*      local entry for function T3DEFUN-NORMAL */
2893    
2894  static object LI26(V403,V404,V405,V406)  static object LI26(V406,V407,V408,V409)
2895    
2896  object V403;register object V404;object V405;object V406;  object V406;register object V407;object V408;object V409;
2897  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2898    goto TTL;
2899  TTL:;  TTL:;
2900          (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[167],(V403))));          (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[172],(V406))));
2901          if(!(type_of((V404))==t_fixnum||          if(!(type_of((V407))==t_fixnum||
2902  type_of((V404))==t_bignum||  type_of((V407))==t_bignum||
2903  type_of((V404))==t_ratio||  type_of((V407))==t_ratio||
2904  type_of((V404))==t_shortfloat||  type_of((V407))==t_shortfloat||
2905  type_of((V404))==t_longfloat||  type_of((V407))==t_longfloat||
2906  type_of((V404))==t_complex)){  type_of((V407))==t_complex)){
2907          goto T1519;}          goto T1586;}
2908          princ_str("\nstatic L",VV[21]);          princ_str("\nstatic void L",VV[21]);
2909          (void)((*(LnkLI262))((V404)));          (void)((*(LnkLI267))((V407)));
2910          princ_str("()",VV[21]);          princ_str("()",VV[21]);
2911          goto T1517;          goto T1584;
2912  T1519:;  goto T1586;
2913    T1586:;
2914          princ_char(10,VV[21]);          princ_char(10,VV[21]);
2915          (void)((*(LnkLI262))((V404)));          (void)((*(LnkLI267))((V407)));
2916          princ_str("()",VV[21]);          princ_str("()",VV[21]);
2917  T1517:;  goto T1584;
2918    T1584:;
2919          princ_str("\n{",VV[21]);          princ_str("\n{",VV[21]);
2920          princ_str("register object *",VV[21]);          princ_str("register object *",VV[21]);
2921          (void)((*(LnkLI262))(symbol_value(VV[16])));          (void)((*(LnkLI267))(symbol_value(VV[16])));
2922          princ_str("base=vs_base;",VV[21]);          princ_str("base=vs_base;",VV[21]);
2923          V407= structure_ref(cadr((V405)),VV[58],1);          V410= structure_ref(cadr((V408)),VV[62],1);
2924          (void)((*(LnkLI301))(/* INLINE-ARGS */V407,(V404),VV[144]));          (void)((*(LnkLI306))(/* INLINE-ARGS */V410,(V407),VV[148]));
2925          princ_str("\n   register object *",VV[21]);          princ_str("\n   register object *",VV[21]);
2926          (void)((*(LnkLI262))(symbol_value(VV[16])));          (void)((*(LnkLI267))(symbol_value(VV[16])));
2927          princ_str("sup=base+VM",VV[21]);          princ_str("sup=base+VM",VV[21]);
2928          (void)((*(LnkLI262))(symbol_value(VV[132])));          (void)((*(LnkLI267))(symbol_value(VV[136])));
2929          princ_char(59,VV[21]);          princ_char(59,VV[21]);
2930          princ_str(" VC",VV[21]);          princ_str(" VC",VV[21]);
2931          (void)((*(LnkLI262))(symbol_value(VV[132])));          (void)((*(LnkLI267))(symbol_value(VV[136])));
2932          if((symbol_value(VV[152]))==Cnil){          if((symbol_value(VV[157]))==Cnil){
2933          goto T1544;}          goto T1611;}
2934          princ_str("\n   vs_reserve(VM",VV[21]);          princ_str("\n   vs_reserve(VM",VV[21]);
2935          (void)((*(LnkLI262))(symbol_value(VV[132])));          (void)((*(LnkLI267))(symbol_value(VV[136])));
2936          princ_str(");",VV[21]);          princ_str(");",VV[21]);
2937          goto T1542;          goto T1609;
2938  T1544:;  goto T1611;
2939    T1611:;
2940          princ_str("\n   vs_check;",VV[21]);          princ_str("\n   vs_check;",VV[21]);
2941  T1542:;  goto T1609;
2942          if(((V406))==Cnil){  T1609:;
2943          goto T1550;}          if(((V409))==Cnil){
2944            goto T1617;}
2945          princ_str("\n   bds_check;",VV[21]);          princ_str("\n   bds_check;",VV[21]);
2946  T1550:;  goto T1617;
2947          if((symbol_value(VV[145]))==Cnil){  T1617:;
2948          goto T1554;}          if((symbol_value(VV[149]))==Cnil){
2949            goto T1621;}
2950          princ_str("\n   ihs_check;",VV[21]);          princ_str("\n   ihs_check;",VV[21]);
2951  T1554:;  goto T1621;
2952          (void)((VFUN_NARGS=3,(*(LnkLI318))(caddr((V405)),caddr(cddr((V405))),(V403))));  T1621:;
2953            (void)((VFUN_NARGS=3,(*(LnkLI323))(caddr((V408)),caddr(cddr((V408))),(V406))));
2954          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
2955          V408= make_cons(symbol_value(VV[132]),symbol_value(VV[126]));          V411= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));
2956          setq(VV[29],make_cons(/* INLINE-ARGS */V408,symbol_value(VV[29])));          setq(VV[29],make_cons(/* INLINE-ARGS */V411,symbol_value(VV[29])));
2957          princ_str("\n#define VC",VV[27]);          princ_str("\n#define VC",VV[27]);
2958          (void)((*(LnkLI265))(symbol_value(VV[132])));          (void)((*(LnkLI270))(symbol_value(VV[136])));
2959          {object V409 = (*(LnkLI319))();          {object V412 = (*(LnkLI324))();
2960          VMR25(V409)}          VMR25(V412)}
2961            return Cnil;
2962  }  }
2963  /*      local entry for function WT-V*-MACROS   */  /*      local entry for function WT-V*-MACROS   */
2964    
2965  static object LI27(V412,V413)  static object LI27(V415,V416)
2966    
2967  register object V412;object V413;  register object V415;object V416;
2968  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
2969    goto TTL;
2970  TTL:;  TTL:;
2971          V414= make_cons((V412),symbol_value(VV[126]));          V417= make_cons((V415),symbol_value(VV[130]));
2972          setq(VV[29],make_cons(/* INLINE-ARGS */V414,symbol_value(VV[29])));          setq(VV[29],make_cons(/* INLINE-ARGS */V417,symbol_value(VV[29])));
2973          if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
2974          goto T1570;}          goto T1637;}
2975          if((symbol_value(VV[134]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
2976          goto T1570;}          goto T1637;}
2977          if((symbol_value(VV[136]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
2978          goto T1570;}          goto T1637;}
2979          princ_str("\n#define VMB",VV[27]);          princ_str("\n#define VMB",VV[27]);
2980          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
2981          goto T1568;          goto T1635;
2982  T1570:;  goto T1637;
2983    T1637:;
2984          princ_str("\n#define VMB",VV[27]);          princ_str("\n#define VMB",VV[27]);
2985          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
2986          princ_char(32,VV[27]);          princ_char(32,VV[27]);
2987          princ_str("register object *",VV[27]);          princ_str("register object *",VV[27]);
2988          (void)((*(LnkLI265))(symbol_value(VV[16])));          (void)((*(LnkLI270))(symbol_value(VV[16])));
2989          princ_str("base=vs_top;",VV[27]);          princ_str("base=vs_top;",VV[27]);
2990  T1568:;  goto T1635;
2991          (void)((*(LnkLI319))());  T1635:;
2992          if((symbol_value(VV[134]))==Cnil){          (void)((*(LnkLI324))());
2993          goto T1587;}          if((symbol_value(VV[138]))==Cnil){
2994            goto T1654;}
2995          princ_str("\n#define VMS",VV[27]);          princ_str("\n#define VMS",VV[27]);
2996          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
2997          princ_char(32,VV[27]);          princ_char(32,VV[27]);
2998          princ_str(" register object *",VV[27]);          princ_str(" register object *",VV[27]);
2999          (void)((*(LnkLI265))(symbol_value(VV[16])));          (void)((*(LnkLI270))(symbol_value(VV[16])));
3000          princ_str("sup=vs_top+",VV[27]);          princ_str("sup=vs_top+",VV[27]);
3001          (void)((*(LnkLI265))(symbol_value(VV[126])));          (void)((*(LnkLI270))(symbol_value(VV[130])));
3002          princ_str(";vs_top=sup;",VV[27]);          princ_str(";vs_top=sup;",VV[27]);
3003          goto T1585;          goto T1652;
3004  T1587:;  goto T1654;
3005          if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){  T1654:;
3006          goto T1598;}          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3007            goto T1665;}
3008          princ_str("\n#define VMS",VV[27]);          princ_str("\n#define VMS",VV[27]);
3009          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3010          goto T1585;          goto T1652;
3011  T1598:;  goto T1665;
3012    T1665:;
3013          princ_str("\n#define VMS",VV[27]);          princ_str("\n#define VMS",VV[27]);
3014          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3015          princ_str(" vs_top += ",VV[27]);          princ_str(" vs_top += ",VV[27]);
3016          (void)((*(LnkLI265))(symbol_value(VV[126])));          (void)((*(LnkLI270))(symbol_value(VV[130])));
3017          princ_char(59,VV[27]);          princ_char(59,VV[27]);
3018  T1585:;  goto T1652;
3019          if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){  T1652:;
3020          goto T1609;}          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3021            goto T1676;}
3022          princ_str("\n#define VMV",VV[27]);          princ_str("\n#define VMV",VV[27]);
3023          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3024          goto T1607;          goto T1674;
3025  T1609:;  goto T1676;
3026          if((symbol_value(VV[152]))==Cnil){  T1676:;
3027          goto T1614;}          if((symbol_value(VV[157]))==Cnil){
3028            goto T1681;}
3029          princ_str("\n#define VMV",VV[27]);          princ_str("\n#define VMV",VV[27]);
3030          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3031          princ_str(" vs_reserve(",VV[27]);          princ_str(" vs_reserve(",VV[27]);
3032          (void)((*(LnkLI265))(symbol_value(VV[126])));          (void)((*(LnkLI270))(symbol_value(VV[130])));
3033          princ_str(");",VV[27]);          princ_str(");",VV[27]);
3034          goto T1607;          goto T1674;
3035  T1614:;  goto T1681;
3036    T1681:;
3037          princ_str("\n#define VMV",VV[27]);          princ_str("\n#define VMV",VV[27]);
3038          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3039          princ_str(" vs_check;",VV[27]);          princ_str(" vs_check;",VV[27]);
3040  T1607:;  goto T1674;
3041          if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){  T1674:;
3042          goto T1625;}          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3043            goto T1692;}
3044          princ_str("\n#define VMR",VV[27]);          princ_str("\n#define VMR",VV[27]);
3045          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3046          princ_str("(VMT",VV[27]);          princ_str("(VMT",VV[27]);
3047          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3048          princ_str(") return(VMT",VV[27]);          princ_str(") return(VMT",VV[27]);
3049          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3050          princ_str(");",VV[27]);          princ_str(");",VV[27]);
3051          {object V415 = Cnil;          {object V418 = Cnil;
3052          VMR26(V415)}          VMR26(V418)}
3053  T1625:;  goto T1692;
3054    T1692:;
3055          princ_str("\n#define VMR",VV[27]);          princ_str("\n#define VMR",VV[27]);
3056          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3057          princ_str("(VMT",VV[27]);          princ_str("(VMT",VV[27]);
3058          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3059          princ_str(") vs_top=base ; return(VMT",VV[27]);          princ_str(") vs_top=base ; return(VMT",VV[27]);
3060          (void)((*(LnkLI265))((V412)));          (void)((*(LnkLI270))((V415)));
3061          princ_str(");",VV[27]);          princ_str(");",VV[27]);
3062          {object V416 = Cnil;          {object V419 = Cnil;
3063          VMR26(V416)}          VMR26(V419)}
3064            return Cnil;
3065  }  }
3066  /*      local entry for function WT-REQUIREDS   */  /*      local entry for function WT-REQUIREDS   */
3067    
3068  static object LI28(V419,V420)  static object LI28(V422,V423)
3069    
3070  object V419;object V420;  object V422;object V423;
3071  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
3072    goto TTL;
3073  TTL:;  TTL:;
3074          {register object V421;          {register object V424;
3075          V421= (V419);          V424= (V422);
3076  T1643:;  goto T1710;
3077          if(!(endp((V421)))){  T1710:;
3078          goto T1644;}          if(!(endp((V424)))){
3079          goto T1641;          goto T1711;}
3080  T1644:;          goto T1708;
3081          {register object V422;  goto T1711;
3082          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));  T1711:;
3083          V422= symbol_value(VV[84]);          {register object V425;
3084          (void)(structure_set(car((V421)),VV[65],4,(V422)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
3085            V425= symbol_value(VV[88]);
3086            (void)(structure_set(car((V424)),VV[69],4,(V425)));
3087          princ_char(86,VV[21]);          princ_char(86,VV[21]);
3088          (void)((*(LnkLI262))((V422)));}          (void)((*(LnkLI267))((V425)));}
3089          if(endp(cdr((V421)))){          if(endp(cdr((V424)))){
3090          goto T1654;}          goto T1721;}
3091          princ_char(44,VV[21]);          princ_char(44,VV[21]);
3092  T1654:;  goto T1721;
3093          V421= cdr((V421));  T1721:;
3094          goto T1643;}          V424= cdr((V424));
3095  T1641:;          goto T1710;}
3096    goto T1708;
3097    T1708:;
3098          princ_str(")\n",VV[21]);          princ_str(")\n",VV[21]);
3099          if(((V419))==Cnil){          if(((V422))==Cnil){
3100          goto T1664;}          goto T1731;}
3101          princ_char(10,VV[21]);          princ_char(10,VV[21]);
3102          {register object V423;          {register object V426;
3103          register object V424;          register object V427;
3104          register object V425;          register object V428;
3105          V423= (V419);          V426= (V422);
3106          V424= (V420);          V427= (V423);
3107          V425= Cnil;          V428= Cnil;
3108  T1668:;  goto T1735;
3109          if(!(endp((V423)))){  T1735:;
3110          goto T1669;}          if(!(endp((V426)))){
3111            goto T1736;}
3112          princ_char(59,VV[21]);          princ_char(59,VV[21]);
3113          {object V426 = Cnil;          {object V429 = Cnil;
3114          VMR27(V426)}          VMR27(V429)}
3115  T1669:;  goto T1736;
3116          if(((V425))==Cnil){  T1736:;
3117          goto T1674;}          if(((V428))==Cnil){
3118            goto T1741;}
3119          princ_char(59,VV[21]);          princ_char(59,VV[21]);
3120  T1674:;  goto T1741;
3121          (void)((*(LnkLI262))(symbol_value(VV[16])));  T1741:;
3122          V427= (*(LnkLI320))(car((V423)));          (void)((*(LnkLI267))(symbol_value(VV[16])));
3123          (void)((*(LnkLI262))(/* INLINE-ARGS */V427));          V430= (*(LnkLI325))(car((V426)));
3124          V428= (*(LnkLI268))(car((V424)));          (void)((*(LnkLI267))(/* INLINE-ARGS */V430));
3125          (void)((*(LnkLI262))(/* INLINE-ARGS */V428));          V431= (*(LnkLI273))(car((V427)));
3126          V425= car((V424));          (void)((*(LnkLI267))(/* INLINE-ARGS */V431));
3127            V428= car((V427));
3128          princ_char(86,VV[21]);          princ_char(86,VV[21]);
3129          V429= structure_ref(car((V423)),VV[65],4);          V432= structure_ref(car((V426)),VV[69],4);
3130          (void)((*(LnkLI262))(/* INLINE-ARGS */V429));          (void)((*(LnkLI267))(/* INLINE-ARGS */V432));
3131          V423= cdr((V423));          V426= cdr((V426));
3132          V424= cdr((V424));          V427= cdr((V427));
3133          goto T1668;}          goto T1735;}
3134  T1664:;  goto T1731;
3135          {object V430 = Cnil;  T1731:;
3136          VMR27(V430)}          {object V433 = Cnil;
3137            VMR27(V433)}
3138            return Cnil;
3139  }  }
3140  /*      local entry for function ADD-DEBUG-INFO */  /*      local entry for function ADD-DEBUG-INFO */
3141    
3142  static object LI29(V433,V434)  static object LI29(V436,V437)
3143    
3144  object V433;object V434;  object V436;object V437;
3145  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
3146    goto TTL;
3147  TTL:;  TTL:;
3148          {object V435;          {object V438;
3149          V435= Cnil;          V438= Cnil;
3150          {object V436;          {object V439;
3151          V436= (number_compare(symbol_value(VV[110]),small_fixnum(2))>=0?Ct:Cnil);          V439= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil);
3152          if(((V436))==Cnil){          if(((V439))==Cnil){
3153          goto T1694;}          goto T1761;}
3154          {object V437 = (V436);          {object V440 = (V439);
3155          VMR28(V437)}          VMR28(V440)}
3156  T1694:;  goto T1761;
3157          if((get((V433),VV[111],Cnil))!=Cnil){  T1761:;
3158          goto T1697;}          if((get((V436),VV[115],Cnil))!=Cnil){
3159          {object V438 = (VFUN_NARGS=2,(*(LnkLI321))(VV[168],(V433)));          goto T1764;}
3160          VMR28(V438)}          {object V441 = (VFUN_NARGS=2,(*(LnkLI326))(VV[173],(V436)));
3161  T1697:;          VMR28(V441)}
3162          (void)(remprop((V433),VV[111]));  goto T1764;
3163          {register object V439;  T1764:;
3164          V439= small_fixnum(0);          (void)(remprop((V436),VV[115]));
3165          {register object V440;          {register object V442;
3166          register object V441;          V442= small_fixnum(0);
3167          V440= structure_ref(cadr((V434)),VV[58],1);          {register object V443;
3168          V441= car((V440));          register object V444;
3169  T1704:;          V443= structure_ref(cadr((V437)),VV[62],1);
3170          if(!(endp((V440)))){          V444= car((V443));
3171          goto T1705;}  goto T1771;
3172          goto T1700;  T1771:;
3173  T1705:;          if(!(endp((V443)))){
3174          V442= structure_ref((V441),VV[65],2);          goto T1772;}
3175          if(!(type_of(/* INLINE-ARGS */V442)==t_cons)){          goto T1767;
3176          goto T1709;}  goto T1772;
3177          V443= structure_ref((V441),VV[65],2);  T1772:;
3178          if(!(type_of(cdr(/* INLINE-ARGS */V443))==t_fixnum)){          V445= structure_ref((V444),VV[69],2);
3179          goto T1709;}          if(!(type_of(/* INLINE-ARGS */V445)==t_cons)){
3180          V444= structure_ref((V441),VV[65],2);          goto T1776;}
3181          {object V445= cdr(/* INLINE-ARGS */V444);          V446= structure_ref((V444),VV[69],2);
3182          V439= (number_compare((V439),V445)>=0?((V439)):V445);}          if(!(type_of(cdr(/* INLINE-ARGS */V446))==t_fixnum)){
3183  T1709:;          goto T1776;}
3184          V440= cdr((V440));          V447= structure_ref((V444),VV[69],2);
3185          V441= car((V440));          {object V448= cdr(/* INLINE-ARGS */V447);
3186          goto T1704;}          V442= (number_compare((V442),V448)>=0?((V442)):V448);}
3187  T1700:;  goto T1776;
3188          base[0]= one_plus((V439));  T1776:;
3189            V443= cdr((V443));
3190            V444= car((V443));
3191            goto T1771;}
3192    goto T1767;
3193    T1767:;
3194            base[0]= one_plus((V442));
3195          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3196          Lmake_list();          Lmake_list();
3197          vs_top=sup;          vs_top=sup;
3198          V435= vs_base[0];          V438= vs_base[0];
3199          {register object V446;          {register object V449;
3200          register object V447;          register object V450;
3201          V446= structure_ref(cadr((V434)),VV[58],1);          V449= structure_ref(cadr((V437)),VV[62],1);
3202          V447= car((V446));          V450= car((V449));
3203  T1727:;  goto T1794;
3204          if(!(endp((V446)))){  T1794:;
3205          goto T1728;}          if(!(endp((V449)))){
3206          goto T1723;          goto T1795;}
3207  T1728:;          goto T1790;
3208          V448= structure_ref((V447),VV[65],2);  goto T1795;
3209          if(!(type_of(/* INLINE-ARGS */V448)==t_cons)){  T1795:;
3210          goto T1732;}          V451= structure_ref((V450),VV[69],2);
3211          V449= structure_ref((V447),VV[65],2);          if(!(type_of(/* INLINE-ARGS */V451)==t_cons)){
3212          if(!(type_of(cdr(/* INLINE-ARGS */V449))==t_fixnum)){          goto T1799;}
3213          goto T1732;}          V452= structure_ref((V450),VV[69],2);
3214          {object V450;          if(!(type_of(cdr(/* INLINE-ARGS */V452))==t_fixnum)){
3215          register object V452;          goto T1799;}
3216          V453= structure_ref((V447),VV[65],2);          {object V453;
3217          V450= cdr(/* INLINE-ARGS */V453);          register object V455;
3218          V452= structure_ref((V447),VV[65],0);          V456= structure_ref((V450),VV[69],2);
3219          if(type_of(nthcdr(fixint((V450)),V435))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V450)),V435));          V453= cdr(/* INLINE-ARGS */V456);
3220          (nthcdr(fixint((V450)),V435))->c.c_car = (V452);          V455= structure_ref((V450),VV[69],0);
3221          (void)(nthcdr(fixint((V450)),V435));}          if(type_of(nthcdr(fixint((V453)),V438))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V453)),V438));
3222  T1732:;          (nthcdr(fixint((V453)),V438))->c.c_car = (V455);
3223          V446= cdr((V446));          (void)(nthcdr(fixint((V453)),V438));}
3224          V447= car((V446));  goto T1799;
3225          goto T1727;}  T1799:;
3226  T1723:;          V449= cdr((V449));
3227          (void)(sputprop((V433),VV[112],(V435)));          V450= car((V449));
3228          {object V454;          goto T1794;}
3229          V454= get((V433),VV[112],Cnil);  goto T1790;
3230          if(((V454))==Cnil){  T1790:;
3231          goto T1748;}          (void)(sputprop((V436),VV[116],(V438)));
3232          if((cdr((V454)))!=Cnil){          {object V457;
3233          goto T1747;}          V457= get((V436),VV[116],Cnil);
3234          if((car((V454)))==Cnil){          if(((V457))==Cnil){
3235          goto T1748;}          goto T1815;}
3236  T1747:;          if((cdr((V457)))!=Cnil){
3237          V455= list(2,VV[87],(V433));          goto T1814;}
3238          V456= list(3,VV[112],/* INLINE-ARGS */V455,list(2,VV[87],(V454)));          if((car((V457)))==Cnil){
3239          {object V457 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V456));          goto T1815;}
3240          VMR28(V457)}  goto T1814;
3241  T1748:;  T1814:;
3242          {object V458 = Cnil;          V458= list(2,VV[91],(V436));
3243          VMR28(V458)}}}}}          V459= list(3,VV[116],/* INLINE-ARGS */V458,list(2,VV[91],(V457)));
3244            {object V460 = (VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V459));
3245            VMR28(V460)}
3246    goto T1815;
3247    T1815:;
3248            {object V461 = Cnil;
3249            VMR28(V461)}}}}}
3250            base[0]=base[0];
3251            return Cnil;
3252  }  }
3253  /*      local entry for function ANALYZE-REGS   */  /*      local entry for function ANALYZE-REGS   */
3254    
3255  static long LI30(V461,V462)  static long LI30(V464,V465)
3256    
3257  object V461;object V462;  object V464;object V465;
3258  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
3259    goto TTL;
3260  TTL:;  TTL:;
3261          {object V463;          {object V466;
3262          V463= number_minus(symbol_value(VV[169]),(V462));          V466= number_minus(symbol_value(VV[174]),(V465));
3263          if(!(number_compare(small_fixnum(0),symbol_value(VV[170]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[175]))==0)){
3264          goto T1756;}          goto T1823;}
3265          V464= (VFUN_NARGS=1,(*(LnkLI323))((V461)));          V467= (VFUN_NARGS=1,(*(LnkLI328))((V464)));
3266          {long V465 = (*(LnkLI322))(/* INLINE-ARGS */V464,(V463));          {long V468 = (*(LnkLI327))(/* INLINE-ARGS */V467,(V466));
3267          VMR29(V465)}          VMR29(V468)}
3268  T1756:;  goto T1823;
3269          {register object V466;  T1823:;
3270          register object V467;          {register object V469;
3271          V466= Cnil;          register object V470;
3272          V467= Cnil;          V469= Cnil;
3273          {register object V468;          V470= Cnil;
3274          register object V469;          {register object V471;
3275          V468= (V461);          register object V472;
3276          V469= car((V468));          V471= (V464);
3277  T1762:;          V472= car((V471));
3278          if(!(endp((V468)))){  goto T1829;
3279          goto T1763;}  T1829:;
3280          goto T1758;          if(!(endp((V471)))){
3281  T1763:;          goto T1830;}
3282          V471= structure_ref((V469),VV[65],5);          goto T1825;
3283          {register object x= /* INLINE-ARGS */V471,V470= VV[171];  goto T1830;
3284          while(!endp(V470))  T1830:;
3285          if(x==(V470->c.c_car)){          V474= structure_ref((V472),VV[69],5);
3286          goto T1770;          {register object x= /* INLINE-ARGS */V474,V473= VV[176];
         }else V470=V470->c.c_cdr;  
         goto T1769;}  
 T1770:;{object V472;  
         {register object x= (V469),V473= (V467);  
3287          while(!endp(V473))          while(!endp(V473))
3288          if(eql(x,V473->c.c_car)){          if(x==(V473->c.c_car)){
3289          V472= V473;          goto T1837;
         goto T1772;  
3290          }else V473=V473->c.c_cdr;          }else V473=V473->c.c_cdr;
3291          V472= Cnil;}          goto T1836;}
3292  T1772:;  goto T1837;
3293          if(V472==Cnil)goto T1771;  T1837:;{object V475;
3294          goto T1767;          {register object x= (V472),V476= (V470);
3295  T1771:;}          while(!endp(V476))
3296          V467= make_cons((V469),(V467));          if(eql(x,V476->c.c_car)){
3297          goto T1767;          V475= V476;
3298  T1769:;{object V474;          goto T1839;
3299          {register object x= (V469),V475= (V466);          }else V476=V476->c.c_cdr;
3300          while(!endp(V475))          V475= Cnil;}
3301          if(x==(V475->c.c_car)){  goto T1839;
3302          V474= V475;  T1839:;
3303          goto T1775;          if(V475==Cnil)goto T1838;
3304          }else V475=V475->c.c_cdr;          goto T1834;
3305          V474= Cnil;}  goto T1838;
3306  T1775:;  T1838:;}
3307          if(V474==Cnil)goto T1774;          V470= make_cons((V472),(V470));
3308          goto T1767;          goto T1834;
3309  T1774:;}  goto T1836;
3310          V467= make_cons((V469),(V467));  T1836:;{object V477;
3311  T1767:;          {register object x= (V472),V478= (V469);
3312          V468= cdr((V468));          while(!endp(V478))
3313          V469= car((V468));          if(x==(V478->c.c_car)){
3314          goto T1762;}          V477= V478;
3315  T1758:;          goto T1842;
3316          (void)((*(LnkLI322))((V466),(V463)));          }else V478=V478->c.c_cdr;
3317          {long V476 = (*(LnkLI322))((V467),symbol_value(VV[170]));          V477= Cnil;}
3318          VMR29(V476)}}}  goto T1842;
3319    T1842:;
3320            if(V477==Cnil)goto T1841;
3321            goto T1834;
3322    goto T1841;
3323    T1841:;}
3324            V470= make_cons((V472),(V470));
3325    goto T1834;
3326    T1834:;
3327            V471= cdr((V471));
3328            V472= car((V471));
3329            goto T1829;}
3330    goto T1825;
3331    T1825:;
3332            (void)((*(LnkLI327))((V469),(V466)));
3333            {long V479 = (*(LnkLI327))((V470),symbol_value(VV[175]));
3334            VMR29(V479)}}}
3335            base[0]=base[0];
3336  }  }
3337  /*      local entry for function ANALYZE-REGS1  */  /*      local entry for function ANALYZE-REGS1  */
3338    
3339  static long LI31(V479,V480)  static long LI31(V482,V483)
3340    
3341  object V479;object V480;  object V482;object V483;
3342  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
3343    goto TTL;
3344  TTL:;  TTL:;
3345          {register long V481;          {register long V484;
         register long V482;  
         long V483;  
         long V484;  
3346          register long V485;          register long V485;
3347          V481= 0;          long V486;
3348          V482= 3;          long V487;
3349          V483= 100000;          register long V488;
3350          V484= fix((V480));          V484= 0;
3351          V485= 0;          V485= 3;
3352          V479= (VFUN_NARGS=1,(*(LnkLI323))((V479)));          V486= 100000;
3353  T1791:;          V487= fix((V483));
3354          {register object V486;          V488= 0;
3355          object V487;          V482= (VFUN_NARGS=1,(*(LnkLI328))((V482)));
3356          V486= (V479);  goto T1858;
3357          V487= car((V486));  T1858:;
3358  T1797:;          {register object V489;
3359          if(!(endp((V486)))){          object V490;
3360          goto T1798;}          V489= (V482);
3361          goto T1793;          V490= car((V489));
3362  T1798:;  goto T1864;
3363          V481= fix(structure_ref((V487),VV[65],6));  T1864:;
3364          if(!((V481)>=(V482))){          if(!(endp((V489)))){
3365          goto T1804;}          goto T1865;}
3366          V485= (V485)+(1);          goto T1860;
3367          if(!((V481)<(V483))){  goto T1865;
3368          goto T1809;}  T1865:;
3369          V483= V481;          V484= fix(structure_ref((V490),VV[69],6));
3370  T1809:;          if(!((V484)>=(V485))){
3371          if(!((V485)>(V484))){          goto T1871;}
3372          goto T1804;}          V488= (V488)+(1);
3373          goto T1792;          if(!((V484)<(V486))){
3374  T1804:;          goto T1876;}
3375          V486= cdr((V486));          V486= V484;
3376          V487= car((V486));  goto T1876;
3377          goto T1797;}  T1876:;
3378  T1793:;          if(!((V488)>(V487))){
3379          if(!((V485)<(V484))){          goto T1871;}
3380          goto T1820;}          goto T1859;
3381          V482= (V482)-(1);  goto T1871;
3382  T1820:;  T1871:;
3383          {register object V488;          V489= cdr((V489));
3384          register object V489;          V490= car((V489));
3385          V488= (V479);          goto T1864;}
3386          V489= car((V488));  goto T1860;
3387  T1828:;  T1860:;
3388          if(!(endp((V488)))){          if(!((V488)<(V487))){
3389          goto T1829;}          goto T1887;}
3390          goto T1824;          V485= (V485)-(1);
3391  T1829:;  goto T1887;
3392          {long V490= fix(structure_ref((V489),VV[65],6));  T1887:;
3393          if(!((/* INLINE-ARGS */V490)<(V482))){          {register object V491;
3394          goto T1833;}}          register object V492;
3395          (void)(structure_set((V489),VV[65],6,small_fixnum(0)));          V491= (V482);
3396  T1833:;          V492= car((V491));
3397          V488= cdr((V488));  goto T1895;
3398          V489= car((V488));  T1895:;
3399          goto T1828;}          if(!(endp((V491)))){
3400  T1824:;          goto T1896;}
3401          {long V491 = V482;          goto T1891;
3402          VMR30(V491)}  goto T1896;
3403  T1792:;  T1896:;
3404          V485= 0;          {long V493= fix(structure_ref((V492),VV[69],6));
3405          V482= (V483)+(1);          if(!((/* INLINE-ARGS */V493)<(V485))){
3406          V483= 1000000;          goto T1900;}}
3407          goto T1791;}          (void)(structure_set((V492),VV[69],6,small_fixnum(0)));
3408    goto T1900;
3409    T1900:;
3410            V491= cdr((V491));
3411            V492= car((V491));
3412            goto T1895;}
3413    goto T1891;
3414    T1891:;
3415            {long V494 = V485;
3416            VMR30(V494)}
3417    goto T1859;
3418    T1859:;
3419            V488= 0;
3420            V485= (V486)+(1);
3421            V486= 1000000;
3422            goto T1858;}
3423            base[0]=base[0];
3424  }  }
3425  /*      local entry for function WT-GLOBAL-ENTRY        */  /*      local entry for function WT-GLOBAL-ENTRY        */
3426    
3427  static object LI32(V496,V497,V498,V499)  static object LI32(V499,V500,V501,V502)
3428    
3429  object V496;object V497;object V498;object V499;  object V499;object V500;object V501;object V502;
3430  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
3431    goto TTL;
3432  TTL:;  TTL:;
3433          if((get((V496),VV[98],Cnil))==Cnil){          if((get((V499),VV[102],Cnil))==Cnil){
3434          goto T1848;}          goto T1915;}
3435          {object V500 = Cnil;          {object V503 = Cnil;
3436          VMR31(V500)}          VMR31(V503)}
3437  T1848:;  goto T1915;
3438          (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[174],(V496))));  T1915:;
3439          princ_str("\nstatic L",VV[21]);          (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[179],(V499))));
3440          (void)((*(LnkLI262))((V497)));          princ_str("\nstatic void L",VV[21]);
3441            (void)((*(LnkLI267))((V500)));
3442          princ_str("()",VV[21]);          princ_str("()",VV[21]);
3443          princ_str("\n{  register object *base=vs_base;",VV[21]);          princ_str("\n{  register object *base=vs_base;",VV[21]);
3444          if((symbol_value(VV[152]))!=Cnil){          if((symbol_value(VV[157]))!=Cnil){
3445          goto T1859;}          goto T1926;}
3446          if((symbol_value(VV[153]))==Cnil){          if((symbol_value(VV[158]))==Cnil){
3447          goto T1858;}          goto T1925;}
3448  T1859:;  goto T1926;
3449    T1926:;
3450          princ_str("\n   check_arg(",VV[21]);          princ_str("\n   check_arg(",VV[21]);
3451          V501 = make_fixnum(length((V498)));          V504 = make_fixnum(length((V501)));
3452          (void)((*(LnkLI262))(V501));          (void)((*(LnkLI267))(V504));
3453          princ_str(");",VV[21]);          princ_str(");",VV[21]);
3454  T1858:;  goto T1925;
3455    T1925:;
3456          princ_str("\n   base[0]=",VV[21]);          princ_str("\n   base[0]=",VV[21]);
3457          {object V503= (V499);          {object V506= (V502);
3458          if((V503!= VV[85]))goto T1870;          if((V506!= VV[89]))goto T1937;
3459          if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
3460          goto T1872;}          goto T1939;}
3461          V502= VV[175];          V505= VV[180];
3462          goto T1869;          goto T1936;
3463  T1872:;  goto T1939;
3464          V502= VV[176];  T1939:;
3465          goto T1869;          V505= VV[181];
3466  T1870:;          goto T1936;
3467          if((V503!= VV[138]))goto T1874;  goto T1937;
3468          V502= VV[177];  T1937:;
3469          goto T1869;          if((V506!= VV[142]))goto T1941;
3470  T1874:;          V505= VV[182];
3471          if((V503!= VV[139]))goto T1875;          goto T1936;
3472          V502= VV[178];  goto T1941;
3473          goto T1869;  T1941:;
3474  T1875:;          if((V506!= VV[143]))goto T1942;
3475          if((V503!= VV[140]))goto T1876;          V505= VV[183];
3476          V502= VV[179];          goto T1936;
3477          goto T1869;  goto T1942;
3478  T1876:;  T1942:;
3479          V502= VV[180];}          if((V506!= VV[144]))goto T1943;
3480  T1869:;          V505= VV[184];
3481          (void)((*(LnkLI262))(V502));          goto T1936;
3482    goto T1943;
3483    T1943:;
3484            V505= VV[185];}
3485    goto T1936;
3486    T1936:;
3487            (void)((*(LnkLI267))(V505));
3488          princ_str("(LI",VV[21]);          princ_str("(LI",VV[21]);
3489          (void)((*(LnkLI262))((V497)));          (void)((*(LnkLI267))((V500)));
3490          princ_char(40,VV[21]);          princ_char(40,VV[21]);
3491          {register object V504;          {register object V507;
3492          register long V505;          register long V508;
3493          V505= 0;          V508= 0;
3494          V504= (V498);          V507= (V501);
3495  T1883:;  goto T1950;
3496          if(!(endp((V504)))){  T1950:;
3497          goto T1884;}          if(!(endp((V507)))){
3498          goto T1880;          goto T1951;}
3499  T1884:;          goto T1947;
3500          {object V507= car((V504));  goto T1951;
3501          if((V507!= VV[85]))goto T1891;  T1951:;
3502          V506= VV[181];          {object V510= car((V507));
3503          goto T1890;          if((V510!= VV[89]))goto T1958;
3504  T1891:;          V509= VV[186];
3505          if((V507!= VV[138]))goto T1892;          goto T1957;
3506          V506= VV[182];  goto T1958;
3507          goto T1890;  T1958:;
3508  T1892:;          if((V510!= VV[142]))goto T1959;
3509          if((V507!= VV[139]))goto T1893;          V509= VV[187];
3510          V506= VV[183];          goto T1957;
3511          goto T1890;  goto T1959;
3512  T1893:;  T1959:;
3513          if((V507!= VV[140]))goto T1894;          if((V510!= VV[143]))goto T1960;
3514          V506= VV[184];          V509= VV[188];
3515          goto T1890;          goto T1957;
3516  T1894:;  goto T1960;
3517          V506= VV[185];}  T1960:;
3518  T1890:;          if((V510!= VV[144]))goto T1961;
3519          (void)((*(LnkLI262))(V506));          V509= VV[189];
3520            goto T1957;
3521    goto T1961;
3522    T1961:;
3523            V509= VV[190];}
3524    goto T1957;
3525    T1957:;
3526            (void)((*(LnkLI267))(V509));
3527          princ_str("(base[",VV[21]);          princ_str("(base[",VV[21]);
3528          V508 = make_fixnum(V505);          V511 = make_fixnum(V508);
3529          (void)((*(LnkLI262))(V508));          (void)((*(LnkLI267))(V511));
3530          princ_str("])",VV[21]);          princ_str("])",VV[21]);
3531          if(endp(cdr((V504)))){          if(endp(cdr((V507)))){
3532          goto T1898;}          goto T1965;}
3533          princ_char(44,VV[21]);          princ_char(44,VV[21]);
3534  T1898:;  goto T1965;
3535          V504= cdr((V504));  T1965:;
3536          V505= (V505)+1;          V507= cdr((V507));
3537          goto T1883;}          V508= (V508)+1;
3538  T1880:;          goto T1950;}
3539    goto T1947;
3540    T1947:;
3541          princ_str("));",VV[21]);          princ_str("));",VV[21]);
3542          princ_str("\n   vs_top=(vs_base=base)+1;",VV[21]);          princ_str("\n   vs_top=(vs_base=base)+1;",VV[21]);
3543          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
3544          {object V509 = Cnil;          {object V512 = Cnil;
3545          VMR31(V509)}          VMR31(V512)}
3546            return Cnil;
3547  }  }
3548  /*      local entry for function REP-TYPE       */  /*      local entry for function REP-TYPE       */
3549    
3550  static object LI33(V511)  static object LI33(V514)
3551    
3552  object V511;  object V514;
3553  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
3554    goto TTL;
3555  TTL:;  TTL:;
3556          {object V512= (V511);          {object V515= (V514);
3557          if((V512!= VV[85]))goto T1911;          if((V515!= VV[89]))goto T1978;
3558          {object V513 = VV[186];          {object V516 = VV[191];
         VMR32(V513)}  
 T1911:;  
         if((V512!= VV[249]))goto T1912;  
         {object V514 = VV[187];  
         VMR32(V514)}  
 T1912:;  
         if((V512!= VV[138]))goto T1913;  
         {object V515 = VV[188];  
         VMR32(V515)}  
 T1913:;  
         if((V512!= VV[140]))goto T1914;  
         {object V516 = VV[189];  
3559          VMR32(V516)}          VMR32(V516)}
3560  T1914:;  goto T1978;
3561          if((V512!= VV[139]))goto T1915;  T1978:;
3562          {object V517 = VV[190];          if((V515!= VV[254]))goto T1979;
3563            {object V517 = VV[192];
3564          VMR32(V517)}          VMR32(V517)}
3565  T1915:;  goto T1979;
3566          {object V518 = VV[191];  T1979:;
3567          VMR32(V518)}}          if((V515!= VV[142]))goto T1980;
3568            {object V518 = VV[193];
3569            VMR32(V518)}
3570    goto T1980;
3571    T1980:;
3572            if((V515!= VV[144]))goto T1981;
3573            {object V519 = VV[194];
3574            VMR32(V519)}
3575    goto T1981;
3576    T1981:;
3577            if((V515!= VV[143]))goto T1982;
3578            {object V520 = VV[195];
3579            VMR32(V520)}
3580    goto T1982;
3581    T1982:;
3582            {object V521 = VV[196];
3583            VMR32(V521)}}
3584            return Cnil;
3585  }  }
3586  /*      local entry for function T1DEFMACRO     */  /*      local entry for function T1DEFMACRO     */
3587    
3588  static object LI34(V520)  static object LI34(V523)
3589    
3590  register object V520;  register object V523;
3591  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
3592          bds_check;          bds_check;
3593    goto TTL;
3594  TTL:;  TTL:;
3595          if(endp((V520))){          if(endp((V523))){
3596          goto T1917;}          goto T1984;}
3597          if(!(endp(cdr((V520))))){          if(!(endp(cdr((V523))))){
3598          goto T1916;}          goto T1983;}
3599  T1917:;  goto T1984;
3600          V521 = make_fixnum(length((V520)));  T1984:;
3601          (void)((*(LnkLI270))(VV[192],small_fixnum(2),V521));          V524 = make_fixnum(length((V523)));
3602  T1916:;          (void)((*(LnkLI275))(VV[197],small_fixnum(2),V524));
3603          if(type_of(car((V520)))==t_symbol){  goto T1983;
3604          goto T1921;}  T1983:;
3605          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[193],car((V520)))));          if(type_of(car((V523)))==t_symbol){
3606  T1921:;          goto T1988;}
3607          V522= make_cons(VV[192],(V520));          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[198],car((V523)))));
3608          (void)((*(LnkLI255))(Ct,/* INLINE-ARGS */V522));  goto T1988;
3609    T1988:;
3610            V525= make_cons(VV[197],(V523));
3611            (void)((*(LnkLI260))(Ct,/* INLINE-ARGS */V525));
3612          setq(VV[6],Ct);          setq(VV[6],Ct);
3613          {register object V523;          {register object V526;
3614          object V524;          object V527;
3615          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
3616          V524= symbol_value(VV[57]);          V527= symbol_value(VV[61]);
         bds_bind(VV[51],Cnil);  
         bds_bind(VV[52],Cnil);  
         bds_bind(VV[53],Cnil);  
         bds_bind(VV[54],Cnil);  
         bds_bind(VV[48],Cnil);  
3617          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
3618          V523= Cnil;          bds_bind(VV[56],Cnil);
3619          V523= (*(LnkLI324))(car((V520)),cadr((V520)),cddr((V520)));          bds_bind(VV[57],Cnil);
3620          (void)((*(LnkLI280))());          bds_bind(VV[58],Cnil);
3621          V525= list(7,VV[192],car((V520)),(V524),cddr((V523)),car((V523)),cadr((V523)),(VV[55]->s.s_dbind));          bds_bind(VV[52],Cnil);
3622          setq(VV[20],make_cons(/* INLINE-ARGS */V525,symbol_value(VV[20])));          bds_bind(VV[59],Cnil);
3623          {object V526 = symbol_value(VV[20]);          V526= Cnil;
3624            V526= (*(LnkLI329))(car((V523)),cadr((V523)),cddr((V523)));
3625            (void)((*(LnkLI285))());
3626            V528= list(7,VV[197],car((V523)),(V527),cddr((V526)),car((V526)),cadr((V526)),(VV[59]->s.s_dbind));
3627            setq(VV[20],make_cons(/* INLINE-ARGS */V528,symbol_value(VV[20])));
3628            {object V529 = symbol_value(VV[20]);
3629          bds_unwind1;          bds_unwind1;
3630          bds_unwind1;          bds_unwind1;
3631          bds_unwind1;          bds_unwind1;
3632          bds_unwind1;          bds_unwind1;
3633          bds_unwind1;          bds_unwind1;
3634          bds_unwind1;          bds_unwind1;
3635          VMR33(V526)}}          VMR33(V529)}}
3636            base[0]=base[0];
3637            return Cnil;
3638  }  }
3639  /*      local entry for function T2DEFMACRO     */  /*      local entry for function T2DEFMACRO     */
3640    
3641  static object LI35(V533,V534,V535,V536,V537,V538)  static object LI35(V536,V537,V538,V539,V540,V541)
3642    
3643  object V533;object V534;object V535;object V536;object V537;object V538;  object V536;object V537;object V538;object V539;object V540;object V541;
3644  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
3645    goto TTL;
3646  TTL:;  TTL:;
3647          if(((V536))==Cnil){          if(((V539))==Cnil){
3648          goto T1933;}          goto T2000;}
3649          V539= list(4,VV[99],list(2,VV[87],(V533)),(V536),VV[194]);          V542= list(4,VV[103],list(2,VV[91],(V536)),(V539),VV[199]);
3650          (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V539)));          (void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V542)));
3651  T1933:;  goto T2000;
3652          if(((V537))==Cnil){  T2000:;
3653          goto T1936;}          if(((V540))==Cnil){
3654          V540= list(2,VV[87],(V533));          goto T2003;}
3655          V541= list(4,VV[99],/* INLINE-ARGS */V540,list(2,VV[87],(V537)),VV[195]);          V543= list(2,VV[91],(V536));
3656          (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V541)));          V544= list(4,VV[103],/* INLINE-ARGS */V543,list(2,VV[91],(V540)),VV[200]);
3657  T1936:;          (void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V544)));
3658          princ_str("\nstatic L",VV[27]);  goto T2003;
3659          (void)((*(LnkLI265))((V534)));  T2003:;
3660            princ_str("\nstatic void L",VV[27]);
3661            (void)((*(LnkLI270))((V537)));
3662          princ_str("();",VV[27]);          princ_str("();",VV[27]);
3663          V542= list(2,VV[87],(V533));          V545= list(2,VV[91],(V536));
3664          V543= list(3,VV[196],/* INLINE-ARGS */V542,(*(LnkLI288))(VV[197],(V534)));          V546= list(3,VV[201],/* INLINE-ARGS */V545,(*(LnkLI293))(VV[202],(V537)));
3665          {object V544 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V543));          {object V547 = (VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V546));
3666          VMR34(V544)}          VMR34(V547)}
3667            return Cnil;
3668  }  }
3669  /*      local entry for function T3DEFMACRO     */  /*      local entry for function T3DEFMACRO     */
3670    
3671  static object LI36(V551,V552,V553,V554,V555,V556)  static object LI36(V554,V555,V556,V557,V558,V559)
3672    
3673  object V551;object V552;register object V553;object V554;object V555;object V556;  object V554;object V555;register object V556;object V557;object V558;object V559;
3674  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
3675          bds_check;          bds_check;
3676    goto TTL;
3677  TTL:;  TTL:;
3678          if((get((V551),VV[198],Cnil))==Cnil){          if((get((V554),VV[203],Cnil))==Cnil){
3679          goto T1945;}          goto T2012;}
3680          bds_bind(VV[16],VV[199]);          bds_bind(VV[16],VV[204]);
3681          goto T1943;          goto T2010;
3682  T1945:;  goto T2012;
3683          bds_bind(VV[16],VV[200]);  T2012:;
3684  T1943:;          bds_bind(VV[16],VV[205]);
3685          bds_bind(VV[124],VV[123]);  goto T2010;
3686    T2010:;
3687            bds_bind(VV[128],VV[127]);
3688          bds_bind(VV[14],Cnil);          bds_bind(VV[14],Cnil);
3689          bds_bind(VV[125],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
3690          bds_bind(VV[126],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
3691          bds_bind(VV[127],small_fixnum(0));          bds_bind(VV[131],small_fixnum(0));
3692          bds_bind(VV[128],small_fixnum(0));          bds_bind(VV[132],small_fixnum(0));
3693          bds_bind(VV[129],Cnil);          bds_bind(VV[133],Cnil);
3694          bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));
3695          bds_bind(VV[131],(VV[124]->s.s_dbind));          bds_bind(VV[135],(VV[128]->s.s_dbind));
3696          setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));
3697          bds_bind(VV[132],symbol_value(VV[133]));          bds_bind(VV[136],symbol_value(VV[137]));
3698          bds_bind(VV[134],Cnil);          bds_bind(VV[138],Cnil);
3699          bds_bind(VV[135],Cnil);          bds_bind(VV[139],Cnil);
3700          bds_bind(VV[136],Cnil);          bds_bind(VV[140],Cnil);
3701          bds_bind(VV[137],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
3702          (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[201],(V551))));          (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[206],(V554))));
3703          princ_str("\nstatic L",VV[21]);          princ_str("\nstatic void L",VV[21]);
3704          (void)((*(LnkLI262))((V552)));          (void)((*(LnkLI267))((V555)));
3705          princ_str("()",VV[21]);          princ_str("()",VV[21]);
3706          princ_str("\n{register object *",VV[21]);          princ_str("\n{register object *",VV[21]);
3707          (void)((*(LnkLI262))((VV[16]->s.s_dbind)));          (void)((*(LnkLI267))((VV[16]->s.s_dbind)));
3708          princ_str("base=vs_base;",VV[21]);          princ_str("base=vs_base;",VV[21]);
3709          V557= structure_ref(car(cddddr((V553))),VV[58],1);          V560= structure_ref(car(cddddr((V556))),VV[62],1);
3710          (void)((*(LnkLI301))(/* INLINE-ARGS */V557,(V552),VV[144]));          (void)((*(LnkLI306))(/* INLINE-ARGS */V560,(V555),VV[148]));
3711          princ_str("\n   register object *",VV[21]);          princ_str("\n   register object *",VV[21]);
3712          (void)((*(LnkLI262))((VV[16]->s.s_dbind)));          (void)((*(LnkLI267))((VV[16]->s.s_dbind)));
3713          princ_str("sup=base+VM",VV[21]);          princ_str("sup=base+VM",VV[21]);
3714          (void)((*(LnkLI262))((VV[132]->s.s_dbind)));          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));
3715          princ_char(59,VV[21]);          princ_char(59,VV[21]);
3716          princ_str(" VC",VV[21]);          princ_str(" VC",VV[21]);
3717          (void)((*(LnkLI262))((VV[132]->s.s_dbind)));          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));
3718          if((symbol_value(VV[152]))==Cnil){          if((symbol_value(VV[157]))==Cnil){
3719          goto T1971;}          goto T2038;}
3720          princ_str("\n   vs_reserve(VM",VV[21]);          princ_str("\n   vs_reserve(VM",VV[21]);
3721          (void)((*(LnkLI262))((VV[132]->s.s_dbind)));          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));
3722          princ_str(");",VV[21]);          princ_str(");",VV[21]);
3723          goto T1969;          goto T2036;
3724  T1971:;  goto T2038;
3725    T2038:;
3726          princ_str("\n   vs_check;",VV[21]);          princ_str("\n   vs_check;",VV[21]);
3727  T1969:;  goto T2036;
3728          if(((V556))==Cnil){  T2036:;
3729          goto T1977;}          if(((V559))==Cnil){
3730            goto T2044;}
3731          princ_str("\n   bds_check;",VV[21]);          princ_str("\n   bds_check;",VV[21]);
3732  T1977:;  goto T2044;
3733          if((symbol_value(VV[145]))==Cnil){  T2044:;
3734          goto T1981;}          if((symbol_value(VV[149]))==Cnil){
3735            goto T2048;}
3736          princ_str("\n   ihs_check;",VV[21]);          princ_str("\n   ihs_check;",VV[21]);
3737  T1981:;  goto T2048;
3738          base[15]= car((V553));  T2048:;
3739          base[16]= cadr((V553));          base[15]= car((V556));
3740          base[17]= caddr((V553));          base[16]= cadr((V556));
3741          base[18]= cadddr((V553));          base[17]= caddr((V556));
3742            base[18]= cadddr((V556));
3743          vs_top=(vs_base=base+15)+4;          vs_top=(vs_base=base+15)+4;
3744          (void) (*Lnk325)();          (void) (*Lnk330)();
3745          vs_top=sup;          vs_top=sup;
3746          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
3747          V558= make_cons((VV[132]->s.s_dbind),(VV[126]->s.s_dbind));          V561= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));
3748          setq(VV[29],make_cons(/* INLINE-ARGS */V558,symbol_value(VV[29])));          setq(VV[29],make_cons(/* INLINE-ARGS */V561,symbol_value(VV[29])));
3749          princ_str("\n#define VC",VV[27]);          princ_str("\n#define VC",VV[27]);
3750          (void)((*(LnkLI265))((VV[132]->s.s_dbind)));          (void)((*(LnkLI270))((VV[136]->s.s_dbind)));
3751          {object V559 = (*(LnkLI319))();          {object V562 = (*(LnkLI324))();
3752          bds_unwind1;          bds_unwind1;
3753          bds_unwind1;          bds_unwind1;
3754          bds_unwind1;          bds_unwind1;
# Line 3192  T1981:; Line 3764  T1981:;
3764          bds_unwind1;          bds_unwind1;
3765          bds_unwind1;          bds_unwind1;
3766          bds_unwind1;          bds_unwind1;
3767          VMR35(V559)}          VMR35(V562)}
3768            base[0]=base[0];
3769            return Cnil;
3770  }  }
3771  /*      local entry for function T1ORDINARY     */  /*      local entry for function T1ORDINARY     */
3772    
3773  static object LI37(V561)  static object LI37(V564)
3774    
3775  register object V561;  register object V564;
3776  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
3777          bds_check;          bds_check;
3778    goto TTL;
3779  TTL:;  TTL:;
3780          {register object V562;          {register object V565;
3781          V562= Cnil;          V565= Cnil;
3782          setq(VV[6],Ct);          setq(VV[6],Ct);
3783          if((symbol_value(VV[44]))==Cnil){          if((symbol_value(VV[48]))==Cnil){
3784          goto T2001;}          goto T2068;}
3785          (void)((*(LnkLI255))(Cnil,(V561)));          (void)((*(LnkLI260))(Cnil,(V564)));
3786          {object V563;          {object V566;
3787          base[0]= VV[202];          base[0]= VV[207];
3788          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3789          Lgensym();          Lgensym();
3790          vs_top=sup;          vs_top=sup;
3791          V563= vs_base[0];          V566= vs_base[0];
3792          V564= listA(3,VV[60],(V563),VV[203]);          V567= listA(3,VV[64],(V566),VV[208]);
3793          (void)((*(LnkLI276))(/* INLINE-ARGS */V564));          (void)((*(LnkLI281))(/* INLINE-ARGS */V567));
3794          base[0]= list(5,VV[47],(V563),Cnil,(V561),Cnil);          base[0]= list(5,VV[51],(V566),Cnil,(V564),Cnil);
3795          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3796          (void) (*Lnk259)();          (void) (*Lnk264)();
3797          vs_top=sup;          vs_top=sup;
3798          V565= list(2,VV[204],make_cons((V563),Cnil));          V568= list(2,VV[209],make_cons((V566),Cnil));
3799          setq(VV[20],make_cons(/* INLINE-ARGS */V565,symbol_value(VV[20])));          setq(VV[20],make_cons(/* INLINE-ARGS */V568,symbol_value(VV[20])));
3800          {object V566 = symbol_value(VV[20]);          {object V569 = symbol_value(VV[20]);
3801          VMR36(V566)}}          VMR36(V569)}}
3802  T2001:;  goto T2068;
3803          {object V567;  T2068:;
3804          if(type_of((V561))==t_cons){          {object V570;
3805          goto T2011;}          if(type_of((V564))==t_cons){
3806          V567= Cnil;          goto T2078;}
3807          goto T2010;          V570= Cnil;
3808  T2011:;          goto T2077;
3809          if(type_of(car((V561)))==t_symbol){  goto T2078;
3810          goto T2013;}  T2078:;
3811          V567= Cnil;          if(type_of(car((V564)))==t_symbol){
3812          goto T2010;          goto T2080;}
3813  T2013:;          V570= Cnil;
3814          if(!((car((V561)))==(VV[205]))){          goto T2077;
3815          goto T2017;}  goto T2080;
3816          goto T2015;  T2080:;
3817  T2017:;          if(!((car((V564)))==(VV[210]))){
3818          base[0]= car((V561));          goto T2084;}
3819            goto T2082;
3820    goto T2084;
3821    T2084:;
3822            base[0]= car((V564));
3823          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3824          Lspecial_form_p();          Lspecial_form_p();
3825          vs_top=sup;          vs_top=sup;
3826          V568= vs_base[0];          V571= vs_base[0];
3827          if((V568)==Cnil){          if((V571)==Cnil){
3828          goto T2015;}          goto T2082;}
3829          V567= Cnil;          V570= Cnil;
3830          goto T2010;          goto T2077;
3831  T2015:;  goto T2082;
3832          {register object V569;  T2082:;
3833          register long V570;          {register object V572;
3834          V569= cdr((V561));          register long V573;
3835          V570= 1;          V572= cdr((V564));
3836  T2024:;          V573= 1;
3837          if((V570)>=(1000)){  goto T2091;
3838          goto T2026;}  T2091:;
3839          if(type_of((V569))==t_cons){          if((V573)>=(1000)){
3840          goto T2025;}          goto T2093;}
3841  T2026:;          if(type_of((V572))==t_cons){
3842          V567= Cnil;          goto T2092;}
3843          goto T2010;  goto T2093;
3844  T2025:;  T2093:;
3845          if(!(type_of(car((V569)))==t_cons)){          V570= Cnil;
3846          goto T2031;}          goto T2077;
3847          if(!((caar((V569)))==(VV[60]))){  goto T2092;
3848          goto T2031;}  T2092:;
3849          V562= cadr(car((V569)));          if(!(type_of(car((V572)))==t_cons)){
3850          if(!(type_of((V562))==t_cons)){          goto T2098;}
3851          goto T2031;}          if(!((caar((V572)))==(VV[64]))){
3852          if(!((car((V562)))==(VV[206]))){          goto T2098;}
3853          goto T2031;}          V565= cadr(car((V572)));
3854          {register object V571;          if(!(type_of((V565))==t_cons)){
3855            goto T2098;}
3856            if(!((car((V565)))==(VV[211]))){
3857            goto T2098;}
3858            {register object V574;
3859          vs_base=vs_top;          vs_base=vs_top;
3860          Lgensym();          Lgensym();
3861          vs_top=sup;          vs_top=sup;
3862          V571= vs_base[0];          V574= vs_base[0];
3863          base[0]= listA(3,VV[47],(V571),cdr((V562)));          base[0]= listA(3,VV[51],(V574),cdr((V565)));
3864          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3865          (void) (*Lnk259)();          (void) (*Lnk264)();
3866          vs_top=sup;          vs_top=sup;
3867          base[1]= (V561);          base[1]= (V564);
3868          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
3869          base[3]= make_fixnum(V570);          base[3]= make_fixnum(V573);
3870          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3871          Lsubseq();          Lsubseq();
3872          vs_top=sup;          vs_top=sup;
3873          base[0]= vs_base[0];          base[0]= vs_base[0];
3874          V572= list(2,VV[207],list(2,VV[87],(V571)));          V575= list(2,VV[212],list(2,VV[91],(V574)));
3875          base[1]= make_cons(/* INLINE-ARGS */V572,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V575,Cnil);
3876          V573 = make_fixnum(V570);          V576 = make_fixnum(V573);
3877          V574= number_plus(small_fixnum(1),V573);          V577= number_plus(small_fixnum(1),V576);
3878          base[2]= nthcdr(fixint(/* INLINE-ARGS */V574),(V561));          base[2]= nthcdr(fixint(/* INLINE-ARGS */V577),(V564));
3879          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3880          Lappend();          Lappend();
3881          vs_top=sup;          vs_top=sup;
3882          V561= vs_base[0];          V564= vs_base[0];
3883          goto TTL;}          goto TTL;}
3884  T2031:;  goto T2098;
3885          if(type_of((V569))==t_cons){  T2098:;
3886          goto T2054;}          if(type_of((V572))==t_cons){
3887          V569= Cnil;          goto T2121;}
3888          goto T2053;          V572= Cnil;
3889  T2054:;          goto T2120;
3890          V569= cdr((V569));  goto T2121;
3891  T2053:;  T2121:;
3892          V570= (1)+(V570);          V572= cdr((V572));
3893          goto T2024;}  goto T2120;
3894  T2010:;  T2120:;
3895          if(((V567))==Cnil){          V573= (1)+(V573);
3896          goto T2059;}          goto T2091;}
3897          {object V575 = (V567);  goto T2077;
3898          VMR36(V575)}  T2077:;
3899  T2059:;          if(((V570))==Cnil){
3900          (void)((*(LnkLI255))(Cnil,(V561)));          goto T2126;}
3901          bds_bind(VV[51],Cnil);          {object V578 = (V570);
3902            VMR36(V578)}
3903    goto T2126;
3904    T2126:;
3905            (void)((*(LnkLI260))(Cnil,(V564)));
3906            bds_bind(VV[55],Cnil);
3907            bds_bind(VV[56],Cnil);
3908            bds_bind(VV[57],Cnil);
3909            bds_bind(VV[58],Cnil);
3910          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
3911          bds_bind(VV[53],Cnil);          V579= list(2,VV[209],(V564));
3912          bds_bind(VV[54],Cnil);          setq(VV[20],make_cons(/* INLINE-ARGS */V579,symbol_value(VV[20])));
3913          bds_bind(VV[48],Cnil);          {object V580 = Cnil;
         V576= list(2,VV[204],(V561));  
         setq(VV[20],make_cons(/* INLINE-ARGS */V576,symbol_value(VV[20])));  
         {object V577 = Cnil;  
3914          bds_unwind1;          bds_unwind1;
3915          bds_unwind1;          bds_unwind1;
3916          bds_unwind1;          bds_unwind1;
3917          bds_unwind1;          bds_unwind1;
3918          bds_unwind1;          bds_unwind1;
3919          VMR36(V577)}}}          VMR36(V580)}}}
3920            base[0]=base[0];
3921            return Cnil;
3922  }  }
3923  /*      local entry for function T2ORDINARY     */  /*      local entry for function T2ORDINARY     */
3924    
3925  static object LI38(V579)  static object LI38(V582)
3926    
3927  object V579;  object V582;
3928  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
3929    goto TTL;
3930  TTL:;  TTL:;
3931          {object V580;          {object V583;
3932          V580= (type_of((V579))!=t_cons?Ct:Cnil);          V583= (type_of((V582))!=t_cons?Ct:Cnil);
3933          if(((V580))==Cnil){          if(((V583))==Cnil){
3934          goto T2066;}          goto T2133;}
3935          {object V581 = (V580);          {object V584 = (V583);
3936          VMR37(V581)}          VMR37(V584)}
3937  T2066:;  goto T2133;
3938          {object V582;  T2133:;
3939          base[0]= (V579);          {object V585;
3940            base[0]= (V582);
3941          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3942          Lconstantp();          Lconstantp();
3943          vs_top=sup;          vs_top=sup;
3944          V582= vs_base[0];          V585= vs_base[0];
3945          if(((V582))==Cnil){          if(((V585))==Cnil){
3946          goto T2071;}          goto T2138;}
3947          {object V583 = (V582);          {object V586 = (V585);
3948          VMR37(V583)}          VMR37(V586)}
3949  T2071:;  goto T2138;
3950          {object V584 = (VFUN_NARGS=1,(*(LnkLI287))((V579)));  T2138:;
3951          VMR37(V584)}}}          {object V587 = (VFUN_NARGS=1,(*(LnkLI292))((V582)));
3952            VMR37(V587)}}}
3953            base[0]=base[0];
3954            return Cnil;
3955  }  }
3956  /*      local entry for function ADD-LOAD-TIME-SHARP-COMMA      */  /*      local entry for function ADD-LOAD-TIME-SHARP-COMMA      */
3957    
3958  static object LI39()  static object LI39()
3959    
3960  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
3961    goto TTL;
3962  TTL:;  TTL:;
3963          {register object V585;          {register object V588;
3964          register object V586;          register object V589;
3965          V585= reverse(symbol_value(VV[48]));          V588= reverse(symbol_value(VV[52]));
3966          V586= car((V585));          V589= car((V588));
3967  T2076:;  goto T2143;
3968          if(!(endp((V585)))){  T2143:;
3969          goto T2077;}          if(!(endp((V588)))){
3970          {object V587 = Cnil;          goto T2144;}
3971          VMR38(V587)}          {object V590 = Cnil;
3972  T2077:;          VMR38(V590)}
3973          if(!(type_of((V586))!=t_cons)){  goto T2144;
3974          goto T2081;}  T2144:;
3975          (void)((*(LnkLI326))());          if(!(type_of((V589))!=t_cons)){
3976  T2081:;          goto T2148;}
3977          V588= make_cons(VV[208],(V586));          (void)((*(LnkLI331))());
3978          setq(VV[20],make_cons(/* INLINE-ARGS */V588,symbol_value(VV[20])));  goto T2148;
3979          V585= cdr((V585));  T2148:;
3980          V586= car((V585));          V591= make_cons(VV[213],(V589));
3981          goto T2076;}          setq(VV[20],make_cons(/* INLINE-ARGS */V591,symbol_value(VV[20])));
3982            V588= cdr((V588));
3983            V589= car((V588));
3984            goto T2143;}
3985            base[0]=base[0];
3986            return Cnil;
3987  }  }
3988  /*      local entry for function T2SHARP-COMMA  */  /*      local entry for function T2SHARP-COMMA  */
3989    
3990  static object LI40(V591,V592)  static object LI40(V594,V595)
3991    
3992  object V591;object V592;  object V594;object V595;
3993  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
3994    goto TTL;
3995  TTL:;  TTL:;
3996          V593= list(3,VV[209],(V591),(V592));          V596= list(3,VV[214],(V594),(V595));
3997          {object V594 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V593));          {object V597 = (VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V596));
3998          VMR39(V594)}          VMR39(V597)}
3999            return Cnil;
4000  }  }
4001  /*      local entry for function T2DECLARE      */  /*      local entry for function T2DECLARE      */
4002    
4003  static object LI41(V596)  static object LI41(V599)
4004    
4005  object V596;  object V599;
4006  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
4007    goto TTL;
4008  TTL:;  TTL:;
4009          {object V597 = (*(LnkLI326))();          {object V600 = (*(LnkLI331))();
4010          VMR40(V597)}          VMR40(V600)}
4011            return Cnil;
4012  }  }
4013  /*      local entry for function T1DEFINE-STRUCTURE     */  /*      local entry for function T1DEFINE-STRUCTURE     */
4014    
4015  static object LI42(V599)  static object LI42(V602)
4016    
4017  object V599;  object V602;
4018  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
4019    goto TTL;
4020  TTL:;  TTL:;
4021          V600= (*(LnkLI255))(Cnil,Cnil);          V603= (*(LnkLI260))(Cnil,Cnil);
4022          V601= make_cons(((/* INLINE-ARGS */V600)==Cnil?Ct:Cnil),Cnil);          V604= make_cons(((/* INLINE-ARGS */V603)==Cnil?Ct:Cnil),Cnil);
4023          V602= append((V599),/* INLINE-ARGS */V601);          V605= append((V602),/* INLINE-ARGS */V604);
4024          V603= make_cons(VV[210],/* INLINE-ARGS */V602);          V606= make_cons(VV[215],/* INLINE-ARGS */V605);
4025          (void)((*(LnkLI255))(Ct,/* INLINE-ARGS */V603));          (void)((*(LnkLI260))(Ct,/* INLINE-ARGS */V606));
4026          V604= make_cons(VV[210],(V599));          V607= make_cons(VV[215],(V602));
4027          {object V605 = (*(LnkLI260))(/* INLINE-ARGS */V604);          {object V608 = (*(LnkLI265))(/* INLINE-ARGS */V607);
4028          VMR41(V605)}          VMR41(V608)}
4029            return Cnil;
4030  }  }
4031  /*      local entry for function SET-DBIND      */  /*      local entry for function SET-DBIND      */
4032    
4033  static object LI43(V608,V609)  static object LI43(V611,V612)
4034    
4035  object V608;object V609;  object V611;object V612;
4036  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
4037    goto TTL;
4038  TTL:;  TTL:;
4039          princ_str("\n   VV[",VV[21]);          princ_str("\n   VV[",VV[21]);
4040          (void)((*(LnkLI262))((V609)));          (void)((*(LnkLI267))((V612)));
4041          princ_str("]->s.s_dbind = ",VV[21]);          princ_str("]->s.s_dbind = ",VV[21]);
4042          (void)((*(LnkLI262))((V608)));          (void)((*(LnkLI267))((V611)));
4043          princ_char(59,VV[21]);          princ_char(59,VV[21]);
4044          {object V610 = Cnil;          {object V613 = Cnil;
4045          VMR42(V610)}          VMR42(V613)}
4046            return Cnil;
4047  }  }
4048  /*      local entry for function T1CLINES       */  /*      local entry for function T1CLINES       */
4049    
4050  static object LI44(V612)  static object LI44(V615)
4051    
4052  object V612;  object V615;
4053  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
4054    goto TTL;
4055  TTL:;  TTL:;
4056          {register object V613;          {register object V616;
4057          register object V614;          register object V617;
4058          V613= (V612);          V616= (V615);
4059          V614= car((V613));          V617= car((V616));
4060  T2102:;  goto T2169;
4061          if(!(endp((V613)))){  T2169:;
4062          goto T2103;}          if(!(endp((V616)))){
4063          goto T2098;          goto T2170;}
4064  T2103:;          goto T2165;
4065          if(type_of((V614))==t_string){  goto T2170;
4066          goto T2107;}  T2170:;
4067          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[211],(V614))));          if(type_of((V617))==t_string){
4068  T2107:;          goto T2174;}
4069          V613= cdr((V613));          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[216],(V617))));
4070          V614= car((V613));  goto T2174;
4071          goto T2102;}  T2174:;
4072  T2098:;          V616= cdr((V616));
4073          V615= list(2,VV[212],(V612));          V617= car((V616));
4074          setq(VV[20],make_cons(/* INLINE-ARGS */V615,symbol_value(VV[20])));          goto T2169;}
4075          {object V616 = symbol_value(VV[20]);  goto T2165;
4076          VMR43(V616)}  T2165:;
4077            V618= list(2,VV[217],(V615));
4078            setq(VV[20],make_cons(/* INLINE-ARGS */V618,symbol_value(VV[20])));
4079            {object V619 = symbol_value(VV[20]);
4080            VMR43(V619)}
4081            base[0]=base[0];
4082            return Cnil;
4083  }  }
4084  /*      local entry for function T3CLINES       */  /*      local entry for function T3CLINES       */
4085    
4086  static object LI45(V618)  static object LI45(V621)
4087    
4088  object V618;  object V621;
4089  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
4090    goto TTL;
4091  TTL:;  TTL:;
4092          {register object V619;          {register object V622;
4093          register object V620;          register object V623;
4094          V619= (V618);          V622= (V621);
4095          V620= car((V619));          V623= car((V622));
4096  T2119:;  goto T2186;
4097          if(!(endp((V619)))){  T2186:;
4098          goto T2120;}          if(!(endp((V622)))){
4099          {object V621 = Cnil;          goto T2187;}
4100          VMR44(V621)}          {object V624 = Cnil;
4101  T2120:;          VMR44(V624)}
4102    goto T2187;
4103    T2187:;
4104          princ_char(10,VV[21]);          princ_char(10,VV[21]);
4105          (void)((*(LnkLI262))((V620)));          (void)((*(LnkLI267))((V623)));
4106          V619= cdr((V619));          V622= cdr((V622));
4107          V620= car((V619));          V623= car((V622));
4108          goto T2119;}          goto T2186;}
4109            base[0]=base[0];
4110            return Cnil;
4111  }  }
4112  /*      local entry for function T1DEFCFUN      */  /*      local entry for function T1DEFCFUN      */
4113    
4114  static object LI46(V623)  static object LI46(V626)
4115    
4116  register object V623;  register object V626;
4117  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
4118    goto TTL;
4119  TTL:;  TTL:;
         {register object V624;  
         V624= Cnil;  
         if(endp((V623))){  
         goto T2134;}  
         if(!(endp(cdr((V623))))){  
         goto T2133;}  
 T2134:;  
         V625 = make_fixnum(length((V623)));  
         (void)((*(LnkLI270))(VV[213],small_fixnum(2),V625));  
 T2133:;  
         if(type_of(car((V623)))==t_string){  
         goto T2138;}  
         (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[214],car((V623)))));  
 T2138:;  
         {object V626= cadr((V623));  
         if(type_of(V626)==t_fixnum||  
 type_of(V626)==t_bignum||  
 type_of(V626)==t_ratio||  
 type_of(V626)==t_shortfloat||  
 type_of(V626)==t_longfloat||  
 type_of(V626)==t_complex){  
         goto T2141;}}  
         (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[215],cadr((V623)))));  
 T2141:;  
4120          {register object V627;          {register object V627;
4121          register object V628;          V627= Cnil;
4122          V627= cddr((V623));          if(endp((V626))){
4123          V628= car((V627));          goto T2201;}
4124  T2148:;          if(!(endp(cdr((V626))))){
4125          if(!(endp((V627)))){          goto T2200;}
4126          goto T2149;}  goto T2201;
4127          goto T2144;  T2201:;
4128  T2149:;          V628 = make_fixnum(length((V626)));
4129          if(!(type_of((V628))==t_string)){          (void)((*(LnkLI275))(VV[218],small_fixnum(2),V628));
4130          goto T2155;}  goto T2200;
4131          V624= make_cons((V628),(V624));  T2200:;
4132          goto T2153;          if(type_of(car((V626)))==t_string){
4133  T2155:;          goto T2205;}
4134          if(!(type_of((V628))==t_cons)){          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[219],car((V626)))));
4135          goto T2159;}  goto T2205;
4136          if(!(type_of(car((V628)))==t_symbol)){  T2205:;
4137          goto T2162;}          {object V629= cadr((V626));
4138          base[2]= car((V628));          if(type_of(V629)==t_fixnum||
4139    type_of(V629)==t_bignum||
4140    type_of(V629)==t_ratio||
4141    type_of(V629)==t_shortfloat||
4142    type_of(V629)==t_longfloat||
4143    type_of(V629)==t_complex){
4144            goto T2208;}}
4145            (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[220],cadr((V626)))));
4146    goto T2208;
4147    T2208:;
4148            {register object V630;
4149            register object V631;
4150            V630= cddr((V626));
4151            V631= car((V630));
4152    goto T2215;
4153    T2215:;
4154            if(!(endp((V630)))){
4155            goto T2216;}
4156            goto T2211;
4157    goto T2216;
4158    T2216:;
4159            if(!(type_of((V631))==t_string)){
4160            goto T2222;}
4161            V627= make_cons((V631),(V627));
4162            goto T2220;
4163    goto T2222;
4164    T2222:;
4165            if(!(type_of((V631))==t_cons)){
4166            goto T2226;}
4167            if(!(type_of(car((V631)))==t_symbol)){
4168            goto T2229;}
4169            base[2]= car((V631));
4170          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4171          Lspecial_form_p();          Lspecial_form_p();
4172          vs_top=sup;          vs_top=sup;
4173          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4174          goto T2164;}          goto T2231;}
4175          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[216],car((V628)))));          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[221],car((V631)))));
4176  T2164:;  goto T2231;
4177          V629= car((V628));  T2231:;
4178          V630= (*(LnkLI327))(cdr((V628)));          V632= car((V631));
4179          V631= make_cons(/* INLINE-ARGS */V629,/* INLINE-ARGS */V630);          V633= (*(LnkLI332))(cdr((V631)));
4180          V632= make_cons(/* INLINE-ARGS */V631,Cnil);          V634= make_cons(/* INLINE-ARGS */V632,/* INLINE-ARGS */V633);
4181          V624= make_cons(/* INLINE-ARGS */V632,(V624));          V635= make_cons(/* INLINE-ARGS */V634,Cnil);
4182          goto T2153;          V627= make_cons(/* INLINE-ARGS */V635,(V627));
4183  T2162:;          goto T2220;
4184          if(!(type_of(car((V628)))==t_cons)){  goto T2229;
4185          goto T2170;}  T2229:;
4186          if(!(type_of(caar((V628)))==t_symbol)){          if(!(type_of(car((V631)))==t_cons)){
4187          goto T2170;}          goto T2237;}
4188          if(!((caar((V628)))==(VV[87]))){          if(!(type_of(caar((V631)))==t_symbol)){
4189          goto T2177;}          goto T2237;}
4190          if(!(endp(cdar((V628))))){          if(!((caar((V631)))==(VV[91]))){
4191          goto T2179;}          goto T2244;}
4192          goto T2170;          if(!(endp(cdar((V631))))){
4193  T2179:;          goto T2246;}
4194          if(!(((endp(cddar((V628)))?Ct:Cnil))==Cnil)){          goto T2237;
4195          goto T2181;}  goto T2246;
4196          goto T2170;  T2246:;
4197  T2181:;          if(!(((endp(cddar((V631)))?Ct:Cnil))==Cnil)){
4198          if(!(endp(cdr((V628))))){          goto T2248;}
4199          goto T2183;}          goto T2237;
4200          goto T2170;  goto T2248;
4201  T2183:;  T2248:;
4202          if(((endp(cddr((V628)))?Ct:Cnil))==Cnil){          if(!(endp(cdr((V631))))){
4203          goto T2170;}          goto T2250;}
4204          goto T2175;          goto T2237;
4205  T2177:;  goto T2250;
4206          base[2]= caar((V628));  T2250:;
4207            if(((endp(cddr((V631)))?Ct:Cnil))==Cnil){
4208            goto T2237;}
4209            goto T2242;
4210    goto T2244;
4211    T2244:;
4212            base[2]= caar((V631));
4213          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4214          Lspecial_form_p();          Lspecial_form_p();
4215          vs_top=sup;          vs_top=sup;
4216          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4217          goto T2170;}          goto T2237;}
4218  T2175:;  goto T2242;
4219          V633= caar((V628));  T2242:;
4220          if(!((caar((V628)))==(VV[87]))){          V636= caar((V631));
4221          goto T2189;}          if(!((caar((V631)))==(VV[91]))){
4222          V635= (*(LnkLI312))(cadar((V628)));          goto T2256;}
4223          V634= make_cons(/* INLINE-ARGS */V635,Cnil);          V638= (*(LnkLI317))(cadar((V631)));
4224          goto T2187;          V637= make_cons(/* INLINE-ARGS */V638,Cnil);
4225  T2189:;          goto T2254;
4226          V634= (*(LnkLI327))(cdar((V628)));  goto T2256;
4227  T2187:;  T2256:;
4228          V636= make_cons(/* INLINE-ARGS */V633,V634);          V637= (*(LnkLI332))(cdar((V631)));
4229          V637= (*(LnkLI327))(cdr((V628)));  goto T2254;
4230          V638= make_cons(/* INLINE-ARGS */V636,/* INLINE-ARGS */V637);  T2254:;
4231          V624= make_cons(/* INLINE-ARGS */V638,(V624));          V639= make_cons(/* INLINE-ARGS */V636,V637);
4232          goto T2153;          V640= (*(LnkLI332))(cdr((V631)));
4233  T2170:;          V641= make_cons(/* INLINE-ARGS */V639,/* INLINE-ARGS */V640);
4234          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[217],(V628))));          V627= make_cons(/* INLINE-ARGS */V641,(V627));
4235          goto T2153;          goto T2220;
4236  T2159:;  goto T2237;
4237          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[218],(V628))));  T2237:;
4238  T2153:;          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[222],(V631))));
4239          V627= cdr((V627));          goto T2220;
4240          V628= car((V627));  goto T2226;
4241          goto T2148;}  T2226:;
4242  T2144:;          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[223],(V631))));
4243          V639= car((V623));  goto T2220;
4244          V640= cadr((V623));  T2220:;
4245          V641= list(4,VV[213],/* INLINE-ARGS */V639,/* INLINE-ARGS */V640,reverse((V624)));          V630= cdr((V630));
4246          setq(VV[20],make_cons(/* INLINE-ARGS */V641,symbol_value(VV[20])));          V631= car((V630));
4247          {object V642 = symbol_value(VV[20]);          goto T2215;}
4248          VMR45(V642)}}  goto T2211;
4249    T2211:;
4250            V642= car((V626));
4251            V643= cadr((V626));
4252            V644= list(4,VV[218],/* INLINE-ARGS */V642,/* INLINE-ARGS */V643,reverse((V627)));
4253            setq(VV[20],make_cons(/* INLINE-ARGS */V644,symbol_value(VV[20])));
4254            {object V645 = symbol_value(VV[20]);
4255            VMR45(V645)}}
4256            base[0]=base[0];
4257            return Cnil;
4258  }  }
4259  /*      local entry for function T3DEFCFUN      */  /*      local entry for function T3DEFCFUN      */
4260    
4261  static object LI47(V646,V647,V648)  static object LI47(V649,V650,V651)
4262    
4263  object V646;object V647;object V648;  object V649;object V650;object V651;
4264  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
4265    goto TTL;
4266  TTL:;  TTL:;
4267          {object V649;          {object V652;
4268          V649= Cnil;          V652= Cnil;
4269          (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[219],VV[213])));          (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[224],VV[218])));
4270          princ_char(10,VV[21]);          princ_char(10,VV[21]);
4271          (void)((*(LnkLI262))((V646)));          (void)((*(LnkLI267))((V649)));
4272          princ_str("\n{",VV[21]);          princ_str("\n{",VV[21]);
4273          princ_str("\nobject *vs=vs_top;",VV[21]);          princ_str("\nobject *vs=vs_top;",VV[21]);
4274          princ_str("\nobject *old_top=vs_top+",VV[21]);          princ_str("\nobject *old_top=vs_top+",VV[21]);
4275          (void)((*(LnkLI262))((V647)));          (void)((*(LnkLI267))((V650)));
4276          princ_char(59,VV[21]);          princ_char(59,VV[21]);
4277          if(!(number_compare((V647),small_fixnum(0))>0)){          if(!(number_compare((V650),small_fixnum(0))>0)){
4278          goto T2210;}          goto T2277;}
4279          princ_str("\n   vs_top=old_top;",VV[21]);          princ_str("\n   vs_top=old_top;",VV[21]);
4280  T2210:;  goto T2277;
4281    T2277:;
4282          princ_str("\n{",VV[21]);          princ_str("\n{",VV[21]);
4283          {object V650;          {object V653;
4284          register object V651;          register object V654;
4285          V650= (V648);          V653= (V651);
4286          V651= car((V650));          V654= car((V653));
4287  T2220:;  goto T2287;
4288          if(!(endp((V650)))){  T2287:;
4289          goto T2221;}          if(!(endp((V653)))){
4290          goto T2216;          goto T2288;}
4291  T2221:;          goto T2283;
4292          if(!(type_of((V651))==t_string)){  goto T2288;
4293          goto T2227;}  T2288:;
4294            if(!(type_of((V654))==t_string)){
4295            goto T2294;}
4296          princ_char(10,VV[21]);          princ_char(10,VV[21]);
4297          (void)((*(LnkLI262))((V651)));          (void)((*(LnkLI267))((V654)));
4298          goto T2225;          goto T2292;
4299  T2227:;  goto T2294;
4300          if(!((caar((V651)))==(VV[87]))){  T2294:;
4301          goto T2232;}          if(!((caar((V654)))==(VV[91]))){
4302            goto T2299;}
4303          princ_char(10,VV[21]);          princ_char(10,VV[21]);
4304          (void)((*(LnkLI262))(cadadr((V651))));          (void)((*(LnkLI267))(cadadr((V654))));
4305          {object V652= caadr((V651));          {object V655= caadr((V654));
4306          if((V652!= VV[70]))goto T2237;          if((V655!= VV[74]))goto T2304;
4307          princ_str("=VV[",VV[21]);          princ_str("=VV[",VV[21]);
4308          (void)((*(LnkLI262))(cadar((V651))));          (void)((*(LnkLI267))(cadar((V654))));
4309          princ_str("];",VV[21]);          princ_str("];",VV[21]);
4310          goto T2225;          goto T2292;
4311  T2237:;  goto T2304;
4312    T2304:;
4313          princ_str("=object_to_",VV[21]);          princ_str("=object_to_",VV[21]);
4314          base[1]= symbol_name(caadr((V651)));          base[1]= symbol_name(caadr((V654)));
4315          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4316          Lstring_downcase();          Lstring_downcase();
4317          vs_top=sup;          vs_top=sup;
4318          V653= vs_base[0];          V656= vs_base[0];
4319          (void)((*(LnkLI262))(V653));          (void)((*(LnkLI267))(V656));
4320          princ_str("(VV[",VV[21]);          princ_str("(VV[",VV[21]);
4321          (void)((*(LnkLI262))(cadar((V651))));          (void)((*(LnkLI267))(cadar((V654))));
4322          princ_str("]);",VV[21]);          princ_str("]);",VV[21]);
4323          goto T2225;}          goto T2292;}
4324  T2232:;  goto T2299;
4325    T2299:;
4326          princ_str("\n{vs_base=vs_top=old_top;",VV[21]);          princ_str("\n{vs_base=vs_top=old_top;",VV[21]);
4327          {register object V654;          {register object V657;
4328          register object V655;          register object V658;
4329          V654= cdar((V651));          V657= cdar((V654));
4330          V655= car((V654));          V658= car((V657));
4331  T2254:;  goto T2321;
4332          if(!(endp((V654)))){  T2321:;
4333          goto T2255;}          if(!(endp((V657)))){
4334          goto T2250;          goto T2322;}
4335  T2255:;          goto T2317;
4336    goto T2322;
4337    T2322:;
4338          princ_str("\nvs_push(",VV[21]);          princ_str("\nvs_push(",VV[21]);
4339          {object V656= car((V655));          {object V659= car((V658));
4340          if((V656!= VV[70]))goto T2262;          if((V659!= VV[74]))goto T2329;
4341          (void)((*(LnkLI262))(cadr((V655))));          (void)((*(LnkLI267))(cadr((V658))));
4342          goto T2261;          goto T2328;
4343  T2262:;  goto T2329;
4344          if((V656!= VV[328]))goto T2264;  T2329:;
4345            if((V659!= VV[333]))goto T2331;
4346          princ_str("code_char((int)",VV[21]);          princ_str("code_char((int)",VV[21]);
4347          (void)((*(LnkLI262))(cadr((V655))));          (void)((*(LnkLI267))(cadr((V658))));
4348          princ_char(41,VV[21]);          princ_char(41,VV[21]);
4349          goto T2261;          goto T2328;
4350  T2264:;  goto T2331;
4351          if((V656!= VV[329]))goto T2268;  T2331:;
4352          if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){          if((V659!= VV[334]))goto T2335;
4353          goto T2269;}          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4354            goto T2336;}
4355          princ_str("CMP",VV[21]);          princ_str("CMP",VV[21]);
4356  T2269:;  goto T2336;
4357    T2336:;
4358          princ_str("make_fixnum((int)",VV[21]);          princ_str("make_fixnum((int)",VV[21]);
4359          (void)((*(LnkLI262))(cadr((V655))));          (void)((*(LnkLI267))(cadr((V658))));
4360          princ_char(41,VV[21]);          princ_char(41,VV[21]);
4361          goto T2261;          goto T2328;
4362  T2268:;  goto T2335;
4363          if((V656!= VV[330]))goto T2276;  T2335:;
4364            if((V659!= VV[335]))goto T2343;
4365          princ_str("make_shortfloat((double)",VV[21]);          princ_str("make_shortfloat((double)",VV[21]);
4366          (void)((*(LnkLI262))(cadr((V655))));          (void)((*(LnkLI267))(cadr((V658))));
4367          princ_char(41,VV[21]);          princ_char(41,VV[21]);
4368          goto T2261;          goto T2328;
4369  T2276:;  goto T2343;
4370          if((V656!= VV[331]))goto T2280;  T2343:;
4371            if((V659!= VV[336]))goto T2347;
4372          princ_str("make_longfloat((double)",VV[21]);          princ_str("make_longfloat((double)",VV[21]);
4373          (void)((*(LnkLI262))(cadr((V655))));          (void)((*(LnkLI267))(cadr((V658))));
4374          princ_char(41,VV[21]);          princ_char(41,VV[21]);
4375          goto T2261;          goto T2328;
4376  T2280:;}  goto T2347;
4377  T2261:;  T2347:;}
4378    goto T2328;
4379    T2328:;
4380          princ_str(");",VV[21]);          princ_str(");",VV[21]);
4381          V654= cdr((V654));          V657= cdr((V657));
4382          V655= car((V654));          V658= car((V657));
4383          goto T2254;}          goto T2321;}
4384  T2250:;  goto T2317;
4385          {register object x= caar((V651)),V657= symbol_value(VV[75]);  T2317:;
4386          while(!endp(V657))          {register object x= caar((V654)),V660= symbol_value(VV[79]);
4387          if(type_of(V657->c.c_car)==t_cons &&eql(x,V657->c.c_car->c.c_car)){          while(!endp(V660))
4388          V649= (V657->c.c_car);          if(type_of(V660->c.c_car)==t_cons &&eql(x,V660->c.c_car->c.c_car)){
4389          goto T2295;          V652= (V660->c.c_car);
4390          }else V657=V657->c.c_cdr;          goto T2362;
4391          V649= Cnil;}          }else V660=V660->c.c_cdr;
4392  T2295:;          V652= Cnil;}
4393          if(((V649))==Cnil){  goto T2362;
4394          goto T2293;}  T2362:;
4395          if((symbol_value(VV[145]))==Cnil){          if(((V652))==Cnil){
4396          goto T2297;}          goto T2360;}
4397            if((symbol_value(VV[149]))==Cnil){
4398            goto T2364;}
4399          princ_str("\nihs_push(VV[",VV[21]);          princ_str("\nihs_push(VV[",VV[21]);
4400          V658= (*(LnkLI314))(caar((V651)));          V661= (*(LnkLI319))(caar((V654)));
4401          (void)((*(LnkLI262))(/* INLINE-ARGS */V658));          (void)((*(LnkLI267))(/* INLINE-ARGS */V661));
4402          princ_str("]);",VV[21]);          princ_str("]);",VV[21]);
4403          princ_str("\nL",VV[21]);          princ_str("\nL",VV[21]);
4404          (void)((*(LnkLI262))(cdr((V649))));          (void)((*(LnkLI267))(cdr((V652))));
4405          princ_str("();",VV[21]);          princ_str("();",VV[21]);
4406          princ_str("\nihs_pop();",VV[21]);          princ_str("\nihs_pop();",VV[21]);
4407          goto T2291;          goto T2358;
4408  T2297:;  goto T2364;
4409    T2364:;
4410          princ_str("\nL",VV[21]);          princ_str("\nL",VV[21]);
4411          (void)((*(LnkLI262))(cdr((V649))));          (void)((*(LnkLI267))(cdr((V652))));
4412          princ_str("();",VV[21]);          princ_str("();",VV[21]);
4413          goto T2291;          goto T2358;
4414  T2293:;  goto T2360;
4415          if((symbol_value(VV[145]))==Cnil){  T2360:;
4416          goto T2312;}          if((symbol_value(VV[149]))==Cnil){
4417            goto T2379;}
4418          princ_str("\nsuper_funcall(VV[",VV[21]);          princ_str("\nsuper_funcall(VV[",VV[21]);
4419          V659= (*(LnkLI314))(caar((V651)));          V662= (*(LnkLI319))(caar((V654)));
4420          (void)((*(LnkLI262))(/* INLINE-ARGS */V659));          (void)((*(LnkLI267))(/* INLINE-ARGS */V662));
4421          princ_str("]);",VV[21]);          princ_str("]);",VV[21]);
4422          goto T2291;          goto T2358;
4423  T2312:;  goto T2379;
4424          if((symbol_value(VV[152]))==Cnil){  T2379:;
4425          goto T2318;}          if((symbol_value(VV[157]))==Cnil){
4426            goto T2385;}
4427          princ_str("\nsuper_funcall_no_event(VV[",VV[21]);          princ_str("\nsuper_funcall_no_event(VV[",VV[21]);
4428          V660= (*(LnkLI314))(caar((V651)));          V663= (*(LnkLI319))(caar((V654)));
4429          (void)((*(LnkLI262))(/* INLINE-ARGS */V660));          (void)((*(LnkLI267))(/* INLINE-ARGS */V663));
4430          princ_str("]);",VV[21]);          princ_str("]);",VV[21]);
4431          goto T2291;          goto T2358;
4432  T2318:;  goto T2385;
4433    T2385:;
4434          princ_str("\nCMPfuncall(VV[",VV[21]);          princ_str("\nCMPfuncall(VV[",VV[21]);
4435          V661= (*(LnkLI314))(caar((V651)));          V664= (*(LnkLI319))(caar((V654)));
4436          (void)((*(LnkLI262))(/* INLINE-ARGS */V661));          (void)((*(LnkLI267))(/* INLINE-ARGS */V664));
4437          princ_str("]->s.s_gfdef);",VV[21]);          princ_str("]->s.s_gfdef);",VV[21]);
4438  T2291:;  goto T2358;
4439          if(endp(cdr((V651)))){  T2358:;
4440          goto T2326;}          if(endp(cdr((V654)))){
4441            goto T2393;}
4442          princ_char(10,VV[21]);          princ_char(10,VV[21]);
4443          (void)((*(LnkLI262))(cadadr((V651))));          (void)((*(LnkLI267))(cadadr((V654))));
4444          {object V662= caadr((V651));          {object V665= caadr((V654));
4445          if((V662!= VV[70]))goto T2333;          if((V665!= VV[74]))goto T2400;
4446          princ_str("=vs_base[0];",VV[21]);          princ_str("=vs_base[0];",VV[21]);
4447          goto T2332;          goto T2399;
4448  T2333:;  goto T2400;
4449    T2400:;
4450          princ_str("=object_to_",VV[21]);          princ_str("=object_to_",VV[21]);
4451          base[1]= symbol_name(caadr((V651)));          base[1]= symbol_name(caadr((V654)));
4452          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4453          Lstring_downcase();          Lstring_downcase();
4454          vs_top=sup;          vs_top=sup;
4455          V663= vs_base[0];          V666= vs_base[0];
4456          (void)((*(LnkLI262))(V663));          (void)((*(LnkLI267))(V666));
4457          princ_str("(vs_base[0]);",VV[21]);}          princ_str("(vs_base[0]);",VV[21]);}
4458  T2332:;  goto T2399;
4459          {register object V664;  T2399:;
4460          register object V665;          {register object V667;
4461          V664= cddr((V651));          register object V668;
4462          V665= car((V664));          V667= cddr((V654));
4463  T2343:;          V668= car((V667));
4464          if(!(endp((V664)))){  goto T2410;
4465          goto T2344;}  T2410:;
4466          goto T2326;          if(!(endp((V667)))){
4467  T2344:;          goto T2411;}
4468            goto T2393;
4469    goto T2411;
4470    T2411:;
4471          princ_str("\nvs_base++;",VV[21]);          princ_str("\nvs_base++;",VV[21]);
4472          princ_char(10,VV[21]);          princ_char(10,VV[21]);
4473          (void)((*(LnkLI262))(cadr((V665))));          (void)((*(LnkLI267))(cadr((V668))));
4474          {object V666= car((V665));          {object V669= car((V668));
4475          if((V666!= VV[70]))goto T2354;          if((V669!= VV[74]))goto T2421;
4476          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[21]);          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[21]);
4477          goto T2353;          goto T2420;
4478  T2354:;  goto T2421;
4479    T2421:;
4480          princ_str("=object_to_",VV[21]);          princ_str("=object_to_",VV[21]);
4481          base[3]= symbol_name(car((V665)));          base[3]= symbol_name(car((V668)));
4482          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4483          Lstring_downcase();          Lstring_downcase();
4484          vs_top=sup;          vs_top=sup;
4485          V667= vs_base[0];          V670= vs_base[0];
4486          (void)((*(LnkLI262))(V667));          (void)((*(LnkLI267))(V670));
4487          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[21]);}          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[21]);}
4488  T2353:;  goto T2420;
4489          V664= cdr((V664));  T2420:;
4490          V665= car((V664));          V667= cdr((V667));
4491          goto T2343;}          V668= car((V667));
4492  T2326:;          goto T2410;}
4493    goto T2393;
4494    T2393:;
4495          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
4496  T2225:;  goto T2292;
4497          V650= cdr((V650));  T2292:;
4498          V651= car((V650));          V653= cdr((V653));
4499          goto T2220;}          V654= car((V653));
4500  T2216:;          goto T2287;}
4501    goto T2283;
4502    T2283:;
4503          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
4504          princ_str("\nvs_top=vs;",VV[21]);          princ_str("\nvs_top=vs;",VV[21]);
4505          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
4506          {object V668 = Cnil;          {object V671 = Cnil;
4507          VMR46(V668)}}          VMR46(V671)}}
4508            base[0]=base[0];
4509            return Cnil;
4510  }  }
4511  /*      local entry for function T1DEFENTRY     */  /*      local entry for function T1DEFENTRY     */
4512    
4513  static object LI48(V670)  static object LI48(V673)
4514    
4515  register object V670;  register object V673;
4516  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
4517    goto TTL;
4518  TTL:;  TTL:;
4519          {register object V671;          {register object V674;
4520          register object V672;          register object V675;
4521          object V673;          object V676;
         register object V674;  
         V671= Cnil;  
         V672= Cnil;  
         setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));  
         V673= symbol_value(VV[57]);  
         V674= Cnil;  
         if(endp((V670))){  
         goto T2383;}  
         if(endp(cdr((V670)))){  
         goto T2383;}  
         if(!(endp(cddr((V670))))){  
         goto T2382;}  
 T2383:;  
         V675 = make_fixnum(length((V670)));  
         (void)((*(LnkLI270))(VV[220],small_fixnum(3),V675));  
 T2382:;  
         if(type_of(car((V670)))==t_symbol){  
         goto T2389;}  
         (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[221],car((V670)))));  
 T2389:;  
         {register object V676;  
4522          register object V677;          register object V677;
4523          V676= cadr((V670));          V674= Cnil;
4524          V677= car((V676));          V675= Cnil;
4525  T2396:;          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
4526          if(!(endp((V676)))){          V676= symbol_value(VV[61]);
4527          goto T2397;}          V677= Cnil;
4528          goto T2392;          if(endp((V673))){
4529  T2397:;          goto T2450;}
4530          {register object x= (V677),V678= VV[222];          if(endp(cdr((V673)))){
4531          while(!endp(V678))          goto T2450;}
4532          if(eql(x,V678->c.c_car)){          if(!(endp(cddr((V673))))){
4533          goto T2401;          goto T2449;}
4534          }else V678=V678->c.c_cdr;}  goto T2450;
4535          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[223],(V677))));  T2450:;
4536  T2401:;          V678 = make_fixnum(length((V673)));
4537          V676= cdr((V676));          (void)((*(LnkLI275))(VV[225],small_fixnum(3),V678));
4538          V677= car((V676));  goto T2449;
4539          goto T2396;}  T2449:;
4540  T2392:;          if(type_of(car((V673)))==t_symbol){
4541          V674= caddr((V670));          goto T2456;}
4542          if(!(type_of((V674))==t_symbol)){          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[226],car((V673)))));
4543          goto T2413;}  goto T2456;
4544          V671= VV[70];  T2456:;
4545          base[1]= symbol_name((V674));          {register object V679;
4546            register object V680;
4547            V679= cadr((V673));
4548            V680= car((V679));
4549    goto T2463;
4550    T2463:;
4551            if(!(endp((V679)))){
4552            goto T2464;}
4553            goto T2459;
4554    goto T2464;
4555    T2464:;
4556            {register object x= (V680),V681= VV[227];
4557            while(!endp(V681))
4558            if(eql(x,V681->c.c_car)){
4559            goto T2468;
4560            }else V681=V681->c.c_cdr;}
4561            (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[228],(V680))));
4562    goto T2468;
4563    T2468:;
4564            V679= cdr((V679));
4565            V680= car((V679));
4566            goto T2463;}
4567    goto T2459;
4568    T2459:;
4569            V677= caddr((V673));
4570            if(!(type_of((V677))==t_symbol)){
4571            goto T2480;}
4572            V674= VV[74];
4573            base[1]= symbol_name((V677));
4574          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4575          Lstring_downcase();          Lstring_downcase();
4576          vs_top=sup;          vs_top=sup;
4577          V672= vs_base[0];          V675= vs_base[0];
4578          goto T2411;          goto T2478;
4579  T2413:;  goto T2480;
4580          if(!(type_of((V674))==t_string)){  T2480:;
4581          goto T2420;}          if(!(type_of((V677))==t_string)){
4582          V671= VV[70];          goto T2487;}
4583          V672= (V674);          V674= VV[74];
4584          goto T2411;          V675= (V677);
4585  T2420:;          goto T2478;
4586          if(!(type_of((V674))==t_cons)){  goto T2487;
4587          goto T2426;}  T2487:;
4588          {register object x= car((V674)),V679= VV[224];          if(!(type_of((V677))==t_cons)){
4589          while(!endp(V679))          goto T2493;}
4590          if(eql(x,V679->c.c_car)){          {register object x= car((V677)),V682= VV[229];
4591          goto T2430;          while(!endp(V682))
4592          }else V679=V679->c.c_cdr;          if(eql(x,V682->c.c_car)){
4593          goto T2426;}          goto T2497;
4594  T2430:;          }else V682=V682->c.c_cdr;
4595          if(!(type_of(cdr((V674)))==t_cons)){          goto T2493;}
4596          goto T2426;}  goto T2497;
4597          if(type_of(cadr((V674)))==t_symbol){  T2497:;
4598          goto T2433;}          if(!(type_of(cdr((V677)))==t_cons)){
4599          if(!(type_of(cadr((V674)))==t_string)){          goto T2493;}
4600          goto T2426;}          if(type_of(cadr((V677)))==t_symbol){
4601  T2433:;          goto T2500;}
4602          if(!(endp(cddr((V674))))){          if(!(type_of(cadr((V677)))==t_string)){
4603          goto T2426;}          goto T2493;}
4604          if(!(type_of(cadr((V674)))==t_symbol)){  goto T2500;
4605          goto T2441;}  T2500:;
4606          base[1]= symbol_name(cadr((V674)));          if(!(endp(cddr((V677))))){
4607            goto T2493;}
4608            if(!(type_of(cadr((V677)))==t_symbol)){
4609            goto T2508;}
4610            base[1]= symbol_name(cadr((V677)));
4611          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4612          Lstring_downcase();          Lstring_downcase();
4613          vs_top=sup;          vs_top=sup;
4614          V672= vs_base[0];          V675= vs_base[0];
4615          goto T2439;          goto T2506;
4616  T2441:;  goto T2508;
4617          V672= cadr((V674));  T2508:;
4618  T2439:;          V675= cadr((V677));
4619          V671= car((V674));  goto T2506;
4620          goto T2411;  T2506:;
4621  T2426:;          V674= car((V677));
4622          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[225],(V674))));          goto T2478;
4623  T2411:;  goto T2493;
4624          V680= list(6,VV[220],car((V670)),(V673),cadr((V670)),(V671),(V672));  T2493:;
4625          setq(VV[20],make_cons(/* INLINE-ARGS */V680,symbol_value(VV[20])));          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[230],(V677))));
4626          V681= make_cons(car((V670)),(V673));  goto T2478;
4627          setq(VV[75],make_cons(/* INLINE-ARGS */V681,symbol_value(VV[75])));  T2478:;
4628          {object V682 = symbol_value(VV[75]);          V683= list(6,VV[225],car((V673)),(V676),cadr((V673)),(V674),(V675));
4629          VMR47(V682)}}          setq(VV[20],make_cons(/* INLINE-ARGS */V683,symbol_value(VV[20])));
4630            V684= make_cons(car((V673)),(V676));
4631            setq(VV[79],make_cons(/* INLINE-ARGS */V684,symbol_value(VV[79])));
4632            {object V685 = symbol_value(VV[79]);
4633            VMR47(V685)}}
4634            base[0]=base[0];
4635            return Cnil;
4636  }  }
4637  /*      local entry for function T2DEFENTRY     */  /*      local entry for function T2DEFENTRY     */
4638    
4639  static object LI49(V688,V689,V690,V691,V692)  static object LI49(V691,V692,V693,V694,V695)
4640    
4641  object V688;object V689;object V690;object V691;object V692;  object V691;object V692;object V693;object V694;object V695;
4642  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
4643    goto TTL;
4644  TTL:;  TTL:;
4645          princ_str("\nstatic L",VV[27]);          princ_str("\nstatic void L",VV[27]);
4646          (void)((*(LnkLI265))((V689)));          (void)((*(LnkLI270))((V692)));
4647          princ_str("();",VV[27]);          princ_str("();",VV[27]);
4648          V693= list(2,VV[87],(V688));          V696= list(2,VV[91],(V691));
4649          V694= list(3,VV[107],/* INLINE-ARGS */V693,(*(LnkLI288))(VV[226],(V689)));          V697= list(3,VV[111],/* INLINE-ARGS */V696,(*(LnkLI293))(VV[231],(V692)));
4650          {object V695 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V694));          {object V698 = (VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V697));
4651          VMR48(V695)}          VMR48(V698)}
4652            return Cnil;
4653  }  }
4654  /*      local entry for function T3DEFENTRY     */  /*      local entry for function T3DEFENTRY     */
4655    
4656  static object LI50(V701,V702,V703,V704,V705)  static object LI50(V704,V705,V706,V707,V708)
4657    
4658  object V701;object V702;object V703;register object V704;object V705;  object V704;object V705;object V706;register object V707;object V708;
4659  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4660    goto TTL;
4661  TTL:;  TTL:;
4662          (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[227],(V701))));          (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[232],(V704))));
4663          princ_str("\nstatic L",VV[21]);          princ_str("\nstatic void L",VV[21]);
4664          (void)((*(LnkLI262))((V702)));          (void)((*(LnkLI267))((V705)));
4665          princ_str("()",VV[21]);          princ_str("()",VV[21]);
4666          princ_str("\n{  object *old_base=vs_base;",VV[21]);          princ_str("\n{  object *old_base=vs_base;",VV[21]);
4667          {object V706= (V704);          {object V709= (V707);
4668          if((V706!= VV[228]))goto T2460;          if((V709!= VV[233]))goto T2527;
4669          goto T2459;          goto T2526;
4670  T2460:;  goto T2527;
4671          if((V706!= VV[332]))goto T2461;  T2527:;
4672            if((V709!= VV[337]))goto T2528;
4673          princ_str("\n   char *x;",VV[21]);          princ_str("\n   char *x;",VV[21]);
4674          goto T2459;          goto T2526;
4675  T2461:;  goto T2528;
4676    T2528:;
4677          princ_str("\n   ",VV[21]);          princ_str("\n   ",VV[21]);
4678          base[0]= symbol_name((V704));          base[0]= symbol_name((V707));
4679          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4680          Lstring_downcase();          Lstring_downcase();
4681          vs_top=sup;          vs_top=sup;
4682          V707= vs_base[0];          V710= vs_base[0];
4683          (void)((*(LnkLI262))(V707));          (void)((*(LnkLI267))(V710));
4684          princ_str(" x;",VV[21]);}          princ_str(" x;",VV[21]);}
4685  T2459:;  goto T2526;
4686          if((symbol_value(VV[152]))==Cnil){  T2526:;
4687          goto T2468;}          if((symbol_value(VV[157]))==Cnil){
4688            goto T2535;}
4689          princ_str("\n   check_arg(",VV[21]);          princ_str("\n   check_arg(",VV[21]);
4690          V708 = make_fixnum(length((V703)));          V711 = make_fixnum(length((V706)));
4691          (void)((*(LnkLI262))(V708));          (void)((*(LnkLI267))(V711));
4692          princ_str(");",VV[21]);          princ_str(");",VV[21]);
4693  T2468:;  goto T2535;
4694          if(((V704))==(VV[228])){  T2535:;
4695          goto T2474;}          if(((V707))==(VV[233])){
4696            goto T2541;}
4697          princ_str("\n   x=",VV[21]);          princ_str("\n   x=",VV[21]);
4698  T2474:;  goto T2541;
4699    T2541:;
4700          princ_str("\n   ",VV[21]);          princ_str("\n   ",VV[21]);
4701          (void)((*(LnkLI262))((V705)));          (void)((*(LnkLI267))((V708)));
4702          princ_char(40,VV[21]);          princ_char(40,VV[21]);
4703          if(endp((V703))){          if(endp((V706))){
4704          goto T2482;}          goto T2549;}
4705          {register object V709;          {register object V712;
4706          register long V710;          register long V713;
4707          V710= 0;          V713= 0;
4708          V709= (V703);          V712= (V706);
4709  T2487:;  goto T2554;
4710          {object V711= car((V709));  T2554:;
4711          if((V711!= VV[70]))goto T2491;          {object V714= car((V712));
4712            if((V714!= VV[74]))goto T2558;
4713          princ_str("\n   vs_base[",VV[21]);          princ_str("\n   vs_base[",VV[21]);
4714          V712 = make_fixnum(V710);          V715 = make_fixnum(V713);
4715          (void)((*(LnkLI262))(V712));          (void)((*(LnkLI267))(V715));
4716          princ_char(93,VV[21]);          princ_char(93,VV[21]);
4717          goto T2490;          goto T2557;
4718  T2491:;  goto T2558;
4719    T2558:;
4720          princ_str("\n   object_to_",VV[21]);          princ_str("\n   object_to_",VV[21]);
4721          base[0]= symbol_name(car((V709)));          base[0]= symbol_name(car((V712)));
4722          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4723          Lstring_downcase();          Lstring_downcase();
4724          vs_top=sup;          vs_top=sup;
4725          V713= vs_base[0];          V716= vs_base[0];
4726          (void)((*(LnkLI262))(V713));          (void)((*(LnkLI267))(V716));
4727          princ_str("(vs_base[",VV[21]);          princ_str("(vs_base[",VV[21]);
4728          V714 = make_fixnum(V710);          V717 = make_fixnum(V713);
4729          (void)((*(LnkLI262))(V714));          (void)((*(LnkLI267))(V717));
4730          princ_str("])",VV[21]);}          princ_str("])",VV[21]);}
4731  T2490:;  goto T2557;
4732          if(!(endp(cdr((V709))))){  T2557:;
4733          goto T2502;}          if(!(endp(cdr((V712))))){
4734          goto T2482;          goto T2569;}
4735  T2502:;          goto T2549;
4736    goto T2569;
4737    T2569:;
4738          princ_char(44,VV[21]);          princ_char(44,VV[21]);
4739          V709= cdr((V709));          V712= cdr((V712));
4740          V710= (V710)+1;          V713= (V713)+1;
4741          goto T2487;}          goto T2554;}
4742  T2482:;  goto T2549;
4743    T2549:;
4744          princ_str(");",VV[21]);          princ_str(");",VV[21]);
4745          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[21]);          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[21]);
4746          princ_str("\n   vs_base[0]=",VV[21]);          princ_str("\n   vs_base[0]=",VV[21]);
4747          {object V715= (V704);          {object V718= (V707);
4748          if((V715!= VV[228]))goto T2518;          if((V718!= VV[233]))goto T2585;
4749          princ_str("Cnil",VV[21]);          princ_str("Cnil",VV[21]);
4750          goto T2517;          goto T2584;
4751  T2518:;  goto T2585;
4752          if((V715!= VV[70]))goto T2520;  T2585:;
4753            if((V718!= VV[74]))goto T2587;
4754          princ_char(120,VV[21]);          princ_char(120,VV[21]);
4755          goto T2517;          goto T2584;
4756  T2520:;  goto T2587;
4757          if((V715!= VV[328]))goto T2522;  T2587:;
4758            if((V718!= VV[333]))goto T2589;
4759          princ_str("code_char(x)",VV[21]);          princ_str("code_char(x)",VV[21]);
4760          goto T2517;          goto T2584;
4761  T2522:;  goto T2589;
4762          if((V715!= VV[329]))goto T2524;  T2589:;
4763          if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){          if((V718!= VV[334]))goto T2591;
4764          goto T2525;}          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4765            goto T2592;}
4766          princ_str("CMP",VV[21]);          princ_str("CMP",VV[21]);
4767  T2525:;  goto T2592;
4768    T2592:;
4769          princ_str("make_fixnum(x)",VV[21]);          princ_str("make_fixnum(x)",VV[21]);
4770          goto T2517;          goto T2584;
4771  T2524:;  goto T2591;
4772          if((V715!= VV[332]))goto T2530;  T2591:;
4773            if((V718!= VV[337]))goto T2597;
4774          princ_str("make_simple_string(x)",VV[21]);          princ_str("make_simple_string(x)",VV[21]);
4775          goto T2517;          goto T2584;
4776  T2530:;  goto T2597;
4777          if((V715!= VV[330]))goto T2532;  T2597:;
4778            if((V718!= VV[335]))goto T2599;
4779          princ_str("make_shortfloat(x)",VV[21]);          princ_str("make_shortfloat(x)",VV[21]);
4780          goto T2517;          goto T2584;
4781  T2532:;  goto T2599;
4782          if((V715!= VV[331]))goto T2534;  T2599:;
4783            if((V718!= VV[336]))goto T2601;
4784          princ_str("make_longfloat(x)",VV[21]);          princ_str("make_longfloat(x)",VV[21]);
4785          goto T2517;          goto T2584;
4786  T2534:;}  goto T2601;
4787  T2517:;  T2601:;}
4788    goto T2584;
4789    T2584:;
4790          princ_char(59,VV[21]);          princ_char(59,VV[21]);
4791          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
4792          {object V716 = Cnil;          {object V719 = Cnil;
4793          VMR49(V716)}          VMR49(V719)}
4794            base[0]=base[0];
4795            return Cnil;
4796  }  }
4797  /*      local entry for function T1DEFLA        */  /*      local entry for function T1DEFLA        */
4798    
4799  static object LI51(V718)  static object LI51(V721)
4800    
4801  object V718;  object V721;
4802  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4803    goto TTL;
4804  TTL:;  TTL:;
4805          {object V719 = Cnil;          {object V722 = Cnil;
4806          VMR50(V719)}          VMR50(V722)}
4807            return Cnil;
4808  }  }
4809  /*      local entry for function PARSE-CVSPECS  */  /*      local entry for function PARSE-CVSPECS  */
4810    
4811  static object LI52(V721)  static object LI52(V724)
4812    
4813  object V721;  object V724;
4814  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
4815    goto TTL;
4816  TTL:;  TTL:;
4817          {register object V722;          {register object V725;
4818          V722= Cnil;          V725= Cnil;
4819          {register object V723;          {register object V726;
4820          register object V724;          register object V727;
4821          V723= (V721);          V726= (V724);
4822          V724= car((V723));          V727= car((V726));
4823  T2543:;  goto T2610;
4824          if(!(endp((V723)))){  T2610:;
4825          goto T2544;}          if(!(endp((V726)))){
4826          {object V725 = reverse((V722));          goto T2611;}
4827          VMR51(V725)}          {object V728 = reverse((V725));
4828  T2544:;          VMR51(V728)}
4829          if(!(type_of((V724))==t_symbol)){  goto T2611;
4830          goto T2550;}  T2611:;
4831          base[1]= symbol_name((V724));          if(!(type_of((V727))==t_symbol)){
4832            goto T2617;}
4833            base[1]= symbol_name((V727));
4834          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4835          Lstring_downcase();          Lstring_downcase();
4836          vs_top=sup;          vs_top=sup;
4837          V726= vs_base[0];          V729= vs_base[0];
4838          V727= list(2,VV[70],V726);          V730= list(2,VV[74],V729);
4839          V722= make_cons(/* INLINE-ARGS */V727,(V722));          V725= make_cons(/* INLINE-ARGS */V730,(V725));
4840          goto T2548;          goto T2615;
4841  T2550:;  goto T2617;
4842          if(!(type_of((V724))==t_string)){  T2617:;
4843          goto T2556;}          if(!(type_of((V727))==t_string)){
4844          V728= list(2,VV[70],(V724));          goto T2623;}
4845          V722= make_cons(/* INLINE-ARGS */V728,(V722));          V731= list(2,VV[74],(V727));
4846          goto T2548;          V725= make_cons(/* INLINE-ARGS */V731,(V725));
4847  T2556:;          goto T2615;
4848          if(!(type_of((V724))==t_cons)){  goto T2623;
4849          goto T2560;}  T2623:;
4850          {register object x= car((V724)),V729= VV[229];          if(!(type_of((V727))==t_cons)){
4851          while(!endp(V729))          goto T2627;}
4852          if(eql(x,V729->c.c_car)){          {register object x= car((V727)),V732= VV[234];
4853          goto T2563;          while(!endp(V732))
4854          }else V729=V729->c.c_cdr;          if(eql(x,V732->c.c_car)){
4855          goto T2560;}          goto T2630;
4856  T2563:;          }else V732=V732->c.c_cdr;
4857          {register object V730;          goto T2627;}
4858          register object V731;  goto T2630;
4859          V730= cdr((V724));  T2630:;
4860          V731= car((V730));          {register object V733;
4861  T2567:;          register object V734;
4862          if(!(endp((V730)))){          V733= cdr((V727));
4863          goto T2568;}          V734= car((V733));
4864          goto T2548;  goto T2634;
4865  T2568:;  T2634:;
4866          V732= car((V724));          if(!(endp((V733)))){
4867          if(!(type_of((V731))==t_symbol)){          goto T2635;}
4868          goto T2576;}          goto T2615;
4869          base[3]= symbol_name((V731));  goto T2635;
4870    T2635:;
4871            V735= car((V727));
4872            if(!(type_of((V734))==t_symbol)){
4873            goto T2643;}
4874            base[3]= symbol_name((V734));
4875          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4876          Lstring_downcase();          Lstring_downcase();
4877          vs_top=sup;          vs_top=sup;
4878          V733= vs_base[0];          V736= vs_base[0];
4879          goto T2574;          goto T2641;
4880  T2576:;  goto T2643;
4881          if(!(type_of((V731))==t_string)){  T2643:;
4882          goto T2580;}          if(!(type_of((V734))==t_string)){
4883          V733= (V731);          goto T2647;}
4884          goto T2574;          V736= (V734);
4885  T2580:;          goto T2641;
4886          V733= (VFUN_NARGS=2,(*(LnkLI253))(VV[230],(V731)));  goto T2647;
4887  T2574:;  T2647:;
4888          V734= list(2,/* INLINE-ARGS */V732,V733);          V736= (VFUN_NARGS=2,(*(LnkLI258))(VV[235],(V734)));
4889          V722= make_cons(/* INLINE-ARGS */V734,(V722));  goto T2641;
4890          V730= cdr((V730));  T2641:;
4891          V731= car((V730));          V737= list(2,/* INLINE-ARGS */V735,V736);
4892          goto T2567;}          V725= make_cons(/* INLINE-ARGS */V737,(V725));
4893  T2560:;          V733= cdr((V733));
4894          (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[231],(V724))));          V734= car((V733));
4895  T2548:;          goto T2634;}
4896          V723= cdr((V723));  goto T2627;
4897          V724= car((V723));  T2627:;
4898          goto T2543;}}          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[236],(V727))));
4899    goto T2615;
4900    T2615:;
4901            V726= cdr((V726));
4902            V727= car((V726));
4903            goto T2610;}}
4904            base[0]=base[0];
4905            return Cnil;
4906  }  }
4907  /*      local entry for function T3LOCAL-DCFUN  */  /*      local entry for function T3LOCAL-DCFUN  */
4908    
4909  static object LI53(V740,V741,V742,V743,V744)  static object LI53(V743,V744,V745,V746,V747)
4910    
4911  object V740;object V741;object V742;register object V743;register object V744;  object V743;object V744;object V745;register object V746;register object V747;
4912  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
4913          bds_check;          bds_check;
4914    goto TTL;
4915  TTL:;  TTL:;
4916          {object V745;          {object V748;
4917          register object V746;          register object V749;
4918          object V747;          object V750;
4919          if(((V740))==Cnil){          if(((V743))==Cnil){
4920          goto T2594;}          goto T2661;}
4921          V745= small_fixnum(0);          V748= small_fixnum(0);
4922          goto T2592;          goto T2659;
4923  T2594:;  goto T2661;
4924          V745= structure_ref((V743),VV[28],4);  T2661:;
4925  T2592:;          V748= structure_ref((V746),VV[28],4);
4926          V746= Cnil;  goto T2659;
4927          bds_bind(VV[16],(*(LnkLI293))(cadr((V744))));  T2659:;
4928          bds_bind(VV[113],Cnil);          V749= Cnil;
4929          V747= caaddr((V744));          bds_bind(VV[16],(*(LnkLI298))(cadr((V747))));
4930          if((structure_ref((V743),VV[28],0))==Cnil){          bds_bind(VV[117],Cnil);
4931          goto T2602;}          V750= caaddr((V747));
4932          V748= structure_ref((V743),VV[28],0);          if((structure_ref((V746),VV[28],0))==Cnil){
4933          goto T2600;          goto T2669;}
4934  T2602:;          V751= structure_ref((V746),VV[28],0);
4935          V748= Cnil;          goto T2667;
4936  T2600:;  goto T2669;
4937          (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[232],V748)));  T2669:;
4938          princ_str("\nstatic ",VV[21]);          V751= Cnil;
4939          if(((V740))==Cnil){  goto T2667;
4940          goto T2609;}  T2667:;
4941          V749= VV[233];          (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[237],V751)));
4942          goto T2607;          princ_str("\nstatic void ",VV[21]);
4943  T2609:;          if(((V743))==Cnil){
4944          V749= VV[234];          goto T2676;}
4945  T2607:;          V752= VV[238];
4946          (void)((*(LnkLI262))(V749));          goto T2674;
4947          V750= structure_ref((V743),VV[28],3);  goto T2676;
4948          (void)((*(LnkLI262))(/* INLINE-ARGS */V750));  T2676:;
4949            V752= VV[239];
4950    goto T2674;
4951    T2674:;
4952            (void)((*(LnkLI267))(V752));
4953            V753= structure_ref((V746),VV[28],3);
4954            (void)((*(LnkLI267))(/* INLINE-ARGS */V753));
4955          princ_char(40,VV[21]);          princ_char(40,VV[21]);
4956          princ_str("base0",VV[21]);          princ_str("base0",VV[21]);
4957          if(((V747))==Cnil){          if(((V750))==Cnil){
4958          goto T2618;}          goto T2685;}
4959          V751= VV[235];          V754= VV[240];
4960          goto T2616;          goto T2683;
4961  T2618:;  goto T2685;
4962          V751= VV[236];  T2685:;
4963  T2616:;          V754= VV[241];
4964          (void)((*(LnkLI262))(V751));  goto T2683;
4965          V752= structure_ref(cadr((V744)),VV[58],1);  T2683:;
4966          (void)((*(LnkLI295))(/* INLINE-ARGS */V752,small_fixnum(2)));          (void)((*(LnkLI267))(V754));
4967          (void)((*(LnkLI300))(caaddr((V744)),Cnil));          V755= structure_ref(cadr((V747)),VV[62],1);
4968            (void)((*(LnkLI300))(/* INLINE-ARGS */V755,small_fixnum(2)));
4969            (void)((*(LnkLI305))(caaddr((V747)),Cnil));
4970          princ_str("register object *",VV[21]);          princ_str("register object *",VV[21]);
4971          (void)((*(LnkLI262))((VV[16]->s.s_dbind)));          (void)((*(LnkLI267))((VV[16]->s.s_dbind)));
4972          princ_str("base0;",VV[21]);          princ_str("base0;",VV[21]);
4973          bds_bind(VV[237],(V742));          bds_bind(VV[242],(V745));
4974          bds_bind(VV[124],VV[120]);          bds_bind(VV[128],VV[124]);
4975          bds_bind(VV[14],Cnil);          bds_bind(VV[14],Cnil);
4976          bds_bind(VV[125],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
4977          bds_bind(VV[126],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
4978          bds_bind(VV[127],one_plus((V745)));          bds_bind(VV[131],one_plus((V748)));
4979          bds_bind(VV[128],(V742));          bds_bind(VV[132],(V745));
4980          bds_bind(VV[129],(V741));          bds_bind(VV[133],(V744));
4981          bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));
4982          bds_bind(VV[131],(VV[124]->s.s_dbind));          bds_bind(VV[135],(VV[128]->s.s_dbind));
4983          setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));
4984          bds_bind(VV[132],symbol_value(VV[133]));          bds_bind(VV[136],symbol_value(VV[137]));
4985          bds_bind(VV[134],Cnil);          bds_bind(VV[138],Cnil);
4986          bds_bind(VV[135],Cnil);          bds_bind(VV[139],Cnil);
4987          bds_bind(VV[136],Cnil);          bds_bind(VV[140],Cnil);
4988          bds_bind(VV[137],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
4989          V746= (VV[132]->s.s_dbind);          V749= (VV[136]->s.s_dbind);
4990          princ_str("\n{",VV[21]);          princ_str("\n{",VV[21]);
4991          V753= structure_ref(cadr((V744)),VV[58],1);          V756= structure_ref(cadr((V747)),VV[62],1);
4992          V754= structure_ref((V743),VV[28],3);          V757= structure_ref((V746),VV[28],3);
4993          (void)((*(LnkLI301))(/* INLINE-ARGS */V753,/* INLINE-ARGS */V754,VV[238]));          (void)((*(LnkLI306))(/* INLINE-ARGS */V756,/* INLINE-ARGS */V757,VV[243]));
4994          princ_str("\n   VMB",VV[21]);          princ_str("\n   VMB",VV[21]);
4995          (void)((*(LnkLI262))((V746)));          (void)((*(LnkLI267))((V749)));
4996          princ_str(" VMS",VV[21]);          princ_str(" VMS",VV[21]);
4997          (void)((*(LnkLI262))((V746)));          (void)((*(LnkLI267))((V749)));
4998          princ_str(" VMV",VV[21]);          princ_str(" VMV",VV[21]);
4999          (void)((*(LnkLI262))((V746)));          (void)((*(LnkLI267))((V749)));
5000          if((symbol_value(VV[145]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5001          goto T2642;}          goto T2709;}
5002          princ_str("\n   ihs_check;",VV[21]);          princ_str("\n   ihs_check;",VV[21]);
5003  T2642:;  goto T2709;
5004          base[19]= caddr(cddr((V744)));  T2709:;
5005            base[19]= caddr(cddr((V747)));
5006          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
5007          (void) (*Lnk302)();          (void) (*Lnk307)();
5008          vs_top=sup;          vs_top=sup;
5009            if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){
5010            goto T2717;}
5011            if(((VV[138]->s.s_dbind))!=Cnil){
5012            goto T2717;}
5013            if(((VV[140]->s.s_dbind))!=Cnil){
5014            goto T2717;}
5015            goto T2715;
5016    goto T2717;
5017    T2717:;
5018            princ_str("\n   base[0]=base[0];",VV[21]);
5019    goto T2715;
5020    T2715:;
5021          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
5022          (void)((*(LnkLI303))((V746),Ct));          (void)((*(LnkLI308))((V749),Ct));
5023          V755= structure_ref((V743),VV[28],3);          V758= structure_ref((V746),VV[28],3);
5024          {object V756 = (*(LnkLI297))(/* INLINE-ARGS */V755);          {object V759 = (*(LnkLI302))(/* INLINE-ARGS */V758);
5025          bds_unwind1;          bds_unwind1;
5026          bds_unwind1;          bds_unwind1;
5027          bds_unwind1;          bds_unwind1;
# Line 4280  T2642:; Line 5039  T2642:;
5039          bds_unwind1;          bds_unwind1;
5040          bds_unwind1;          bds_unwind1;
5041          bds_unwind1;          bds_unwind1;
5042          VMR52(V756)}}          VMR52(V759)}}
5043            base[0]=base[0];
5044            return Cnil;
5045  }  }
5046  /*      local entry for function T3LOCAL-FUN    */  /*      local entry for function T3LOCAL-FUN    */
5047    
5048  static object LI54(V762,V763,V764,V765,V766)  static object LI54(V765,V766,V767,V768,V769)
5049    
5050  object V762;object V763;object V764;object V765;object V766;  object V765;object V766;object V767;object V768;object V769;
5051  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
5052          bds_check;          bds_check;
5053    goto TTL;
5054  TTL:;  TTL:;
5055          {long V767;          {long V770;
5056          if(((V762))==Cnil){          if(((V765))==Cnil){
5057          goto T2653;}          goto T2729;}
5058          V767= 0;          V770= 0;
5059          goto T2651;          goto T2727;
5060  T2653:;  goto T2729;
5061          V767= fix(structure_ref((V765),VV[28],4));  T2729:;
5062  T2651:;          V770= fix(structure_ref((V768),VV[28],4));
5063          bds_bind(VV[16],(*(LnkLI293))(cadr((V766))));  goto T2727;
5064          bds_bind(VV[113],Cnil);  T2727:;
5065          if(!(((V762))==(VV[239]))){          bds_bind(VV[16],(*(LnkLI298))(cadr((V769))));
5066          goto T2656;}          bds_bind(VV[117],Cnil);
5067          {object V768 = (*(LnkLI238))((V762),(V763),(V764),(V765),(V766));          if(!(((V765))==(VV[244]))){
5068          bds_unwind1;          goto T2732;}
5069          bds_unwind1;          {object V771 = (*(LnkLI243))((V765),(V766),(V767),(V768),(V769));
5070          VMR53(V768)}          bds_unwind1;
5071  T2656:;          bds_unwind1;
5072          if((structure_ref((V765),VV[28],0))==Cnil){          VMR53(V771)}
5073          goto T2662;}  goto T2732;
5074          V769= structure_ref((V765),VV[28],0);  T2732:;
5075          goto T2660;          if((structure_ref((V768),VV[28],0))==Cnil){
5076  T2662:;          goto T2738;}
5077          V769= Cnil;          V772= structure_ref((V768),VV[28],0);
5078  T2660:;          goto T2736;
5079          (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[240],V769)));  goto T2738;
5080          princ_str("\nstatic ",VV[27]);  T2738:;
5081          if(((V762))==Cnil){          V772= Cnil;
5082          goto T2669;}  goto T2736;
5083          V770= VV[241];  T2736:;
5084          goto T2667;          (void)((VFUN_NARGS=2,(*(LnkLI304))(VV[245],V772)));
5085  T2669:;          princ_str("\nstatic void ",VV[27]);
5086          V770= VV[242];          if(((V765))==Cnil){
5087  T2667:;          goto T2745;}
5088          (void)((*(LnkLI265))(V770));          V773= VV[246];
5089          V771= structure_ref((V765),VV[28],3);          goto T2743;
5090          (void)((*(LnkLI265))(/* INLINE-ARGS */V771));  goto T2745;
5091    T2745:;
5092            V773= VV[247];
5093    goto T2743;
5094    T2743:;
5095            (void)((*(LnkLI270))(V773));
5096            V774= structure_ref((V768),VV[28],3);
5097            (void)((*(LnkLI270))(/* INLINE-ARGS */V774));
5098          princ_str("();",VV[27]);          princ_str("();",VV[27]);
5099          princ_str("\nstatic ",VV[21]);          princ_str("\nstatic void ",VV[21]);
5100          if(((V762))==Cnil){          if(((V765))==Cnil){
5101          goto T2678;}          goto T2754;}
5102          V772= VV[243];          V775= VV[248];
5103          goto T2676;          goto T2752;
5104  T2678:;  goto T2754;
5105          V772= VV[244];  T2754:;
5106  T2676:;          V775= VV[249];
5107          (void)((*(LnkLI262))(V772));  goto T2752;
5108          V773= structure_ref((V765),VV[28],3);  T2752:;
5109          (void)((*(LnkLI262))(/* INLINE-ARGS */V773));          (void)((*(LnkLI267))(V775));
5110            V776= structure_ref((V768),VV[28],3);
5111            (void)((*(LnkLI267))(/* INLINE-ARGS */V776));
5112          princ_char(40,VV[21]);          princ_char(40,VV[21]);
5113          {register object V774;          {register object V777;
5114          register long V775;          register long V778;
5115          V774= make_fixnum(V767);          V777= make_fixnum(V770);
5116          V775= 0;          V778= 0;
5117  T2686:;  goto T2762;
5118          V776 = make_fixnum(V775);  T2762:;
5119          if(!(number_compare(V776,(V774))>=0)){          V779 = make_fixnum(V778);
5120          goto T2687;}          if(!(number_compare(V779,(V777))>=0)){
5121            goto T2763;}
5122          princ_str("base",VV[21]);          princ_str("base",VV[21]);
5123          V777 = make_fixnum(V775);          V780 = make_fixnum(V778);
5124          (void)((*(LnkLI262))(V777));          (void)((*(LnkLI267))(V780));
5125          princ_char(41,VV[21]);          princ_char(41,VV[21]);
5126          goto T2682;          goto T2758;
5127  T2687:;  goto T2763;
5128    T2763:;
5129          princ_str("base",VV[21]);          princ_str("base",VV[21]);
5130          V778 = make_fixnum(V775);          V781 = make_fixnum(V778);
5131          (void)((*(LnkLI262))(V778));          (void)((*(LnkLI267))(V781));
5132          princ_char(44,VV[21]);          princ_char(44,VV[21]);
5133          V775= (V775)+1;          V778= (V778)+1;
5134          goto T2686;}          goto T2762;}
5135  T2682:;  goto T2758;
5136    T2758:;
5137          princ_str("\nregister object ",VV[21]);          princ_str("\nregister object ",VV[21]);
5138          {register object V779;          {register object V782;
5139          register long V780;          register long V783;
5140          V779= make_fixnum(V767);          V782= make_fixnum(V770);
5141          V780= 0;          V783= 0;
5142  T2707:;  goto T2783;
5143          V781 = make_fixnum(V780);  T2783:;
5144          if(!(number_compare(V781,(V779))>=0)){          V784 = make_fixnum(V783);
5145          goto T2708;}          if(!(number_compare(V784,(V782))>=0)){
5146            goto T2784;}
5147          princ_char(42,VV[21]);          princ_char(42,VV[21]);
5148          (void)((*(LnkLI262))((VV[16]->s.s_dbind)));          (void)((*(LnkLI267))((VV[16]->s.s_dbind)));
5149          princ_str("base",VV[21]);          princ_str("base",VV[21]);
5150          V782 = make_fixnum(V780);          V785 = make_fixnum(V783);
5151          (void)((*(LnkLI262))(V782));          (void)((*(LnkLI267))(V785));
5152          princ_char(59,VV[21]);          princ_char(59,VV[21]);
5153          goto T2703;          goto T2779;
5154  T2708:;  goto T2784;
5155    T2784:;
5156          princ_char(42,VV[21]);          princ_char(42,VV[21]);
5157          (void)((*(LnkLI262))((VV[16]->s.s_dbind)));          (void)((*(LnkLI267))((VV[16]->s.s_dbind)));
5158          princ_str("base",VV[21]);          princ_str("base",VV[21]);
5159          V783 = make_fixnum(V780);          V786 = make_fixnum(V783);
5160          (void)((*(LnkLI262))(V783));          (void)((*(LnkLI267))(V786));
5161          princ_char(44,VV[21]);          princ_char(44,VV[21]);
5162          V780= (V780)+1;          V783= (V783)+1;
5163          goto T2707;}          goto T2783;}
5164  T2703:;  goto T2779;
5165          V784= structure_ref(cadr((V766)),VV[58],1);  T2779:;
5166          (void)((*(LnkLI295))(/* INLINE-ARGS */V784,small_fixnum(2)));          V787= structure_ref(cadr((V769)),VV[62],1);
5167          bds_bind(VV[124],VV[123]);          (void)((*(LnkLI300))(/* INLINE-ARGS */V787,small_fixnum(2)));
5168          bds_bind(VV[237],(V764));          bds_bind(VV[128],VV[127]);
5169            bds_bind(VV[242],(V767));
5170          bds_bind(VV[14],Cnil);          bds_bind(VV[14],Cnil);
5171          bds_bind(VV[125],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
5172          bds_bind(VV[126],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5173          V785 = make_fixnum(V767);          V788 = make_fixnum(V770);
5174          bds_bind(VV[127],one_plus(V785));          bds_bind(VV[131],one_plus(V788));
5175          bds_bind(VV[128],(V764));          bds_bind(VV[132],(V767));
5176          bds_bind(VV[129],(V763));          bds_bind(VV[133],(V766));
5177          bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));
5178          bds_bind(VV[131],(VV[124]->s.s_dbind));          bds_bind(VV[135],(VV[128]->s.s_dbind));
5179          setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));
5180          bds_bind(VV[132],symbol_value(VV[133]));          bds_bind(VV[136],symbol_value(VV[137]));
5181          bds_bind(VV[134],Cnil);          bds_bind(VV[138],Cnil);
5182          bds_bind(VV[135],Cnil);          bds_bind(VV[139],Cnil);
5183          bds_bind(VV[136],Cnil);          bds_bind(VV[140],Cnil);
5184          bds_bind(VV[137],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
5185          princ_str("\n{  register object *",VV[21]);          princ_str("\n{  register object *",VV[21]);
5186          (void)((*(LnkLI262))((VV[16]->s.s_dbind)));          (void)((*(LnkLI267))((VV[16]->s.s_dbind)));
5187          princ_str("base=vs_base;",VV[21]);          princ_str("base=vs_base;",VV[21]);
5188          princ_str("\n   register object *",VV[21]);          princ_str("\n   register object *",VV[21]);
5189          (void)((*(LnkLI262))((VV[16]->s.s_dbind)));          (void)((*(LnkLI267))((VV[16]->s.s_dbind)));
5190          princ_str("sup=base+VM",VV[21]);          princ_str("sup=base+VM",VV[21]);
5191          (void)((*(LnkLI262))((VV[132]->s.s_dbind)));          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));
5192          princ_char(59,VV[21]);          princ_char(59,VV[21]);
5193          V786= structure_ref(cadr((V766)),VV[58],1);          V789= structure_ref(cadr((V769)),VV[62],1);
5194          V787= structure_ref((V765),VV[28],3);          V790= structure_ref((V768),VV[28],3);
5195          (void)((*(LnkLI301))(/* INLINE-ARGS */V786,/* INLINE-ARGS */V787,VV[245]));          (void)((*(LnkLI306))(/* INLINE-ARGS */V789,/* INLINE-ARGS */V790,VV[250]));
5196          princ_str(" VC",VV[21]);          princ_str(" VC",VV[21]);
5197          (void)((*(LnkLI262))((VV[132]->s.s_dbind)));          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));
5198          if((symbol_value(VV[152]))==Cnil){          if((symbol_value(VV[157]))==Cnil){
5199          goto T2748;}          goto T2824;}
5200          princ_str("\n   vs_reserve(VM",VV[21]);          princ_str("\n   vs_reserve(VM",VV[21]);
5201          (void)((*(LnkLI262))((VV[132]->s.s_dbind)));          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));
5202          princ_str(");",VV[21]);          princ_str(");",VV[21]);
5203          goto T2746;          goto T2822;
5204  T2748:;  goto T2824;
5205    T2824:;
5206          princ_str("\n   vs_check;",VV[21]);          princ_str("\n   vs_check;",VV[21]);
5207  T2746:;  goto T2822;
5208          if((symbol_value(VV[145]))==Cnil){  T2822:;
5209          goto T2754;}          if((symbol_value(VV[149]))==Cnil){
5210            goto T2830;}
5211          princ_str("\n   ihs_check;",VV[21]);          princ_str("\n   ihs_check;",VV[21]);
5212  T2754:;  goto T2830;
5213          if(((V762))==Cnil){  T2830:;
5214          goto T2760;}          if(((V765))==Cnil){
5215          (void)((VFUN_NARGS=2,(*(LnkLI318))(caddr((V766)),caddr(cddr((V766))))));          goto T2836;}
5216          goto T2758;          (void)((VFUN_NARGS=2,(*(LnkLI323))(caddr((V769)),caddr(cddr((V769))))));
5217  T2760:;          goto T2834;
5218          (void)((VFUN_NARGS=3,(*(LnkLI318))(caddr((V766)),caddr(cddr((V766))),(V765))));  goto T2836;
5219  T2758:;  T2836:;
5220            (void)((VFUN_NARGS=3,(*(LnkLI323))(caddr((V769)),caddr(cddr((V769))),(V768))));
5221    goto T2834;
5222    T2834:;
5223          princ_str("\n}",VV[21]);          princ_str("\n}",VV[21]);
5224          V788= make_cons((VV[132]->s.s_dbind),(VV[126]->s.s_dbind));          V791= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));
5225          setq(VV[29],make_cons(/* INLINE-ARGS */V788,symbol_value(VV[29])));          setq(VV[29],make_cons(/* INLINE-ARGS */V791,symbol_value(VV[29])));
5226          princ_str("\n#define VC",VV[27]);          princ_str("\n#define VC",VV[27]);
5227          (void)((*(LnkLI265))((VV[132]->s.s_dbind)));          (void)((*(LnkLI270))((VV[136]->s.s_dbind)));
5228          V789= (*(LnkLI319))();          V792= (*(LnkLI324))();
5229          bds_unwind1;          bds_unwind1;
5230          bds_unwind1;          bds_unwind1;
5231          bds_unwind1;          bds_unwind1;
# Line 4459  T2758:; Line 5241  T2758:;
5241          bds_unwind1;          bds_unwind1;
5242          bds_unwind1;          bds_unwind1;
5243          bds_unwind1;          bds_unwind1;
5244          V790= structure_ref((V765),VV[28],3);          V793= structure_ref((V768),VV[28],3);
5245          {object V791 = (*(LnkLI297))(/* INLINE-ARGS */V790);          {object V794 = (*(LnkLI302))(/* INLINE-ARGS */V793);
5246          bds_unwind1;          bds_unwind1;
5247          bds_unwind1;          bds_unwind1;
5248          VMR53(V791)}}          VMR53(V794)}}
5249            base[0]=base[0];
5250            return Cnil;
5251  }  }
5252  /*      local entry for function WT-CVARS       */  /*      local entry for function WT-CVARS       */
5253    
5254  static object LI55()  static object LI55()
5255    
5256  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
5257    goto TTL;
5258  TTL:;  TTL:;
         {register object V792;  
         V792= Cnil;  
         {register object V793;  
         register object V794;  
         V793= symbol_value(VV[14]);  
         V794= car((V793));  
 T2774:;  
         if(!(endp((V793)))){  
         goto T2775;}  
         goto T2770;  
 T2775:;  
5259          {register object V795;          {register object V795;
5260          if(!(type_of((V794))==t_cons)){          V795= Cnil;
         goto T2782;}  
5261          {register object V796;          {register object V796;
5262          V796= car((V794));          register object V797;
5263          V794= cdr((V794));          V796= symbol_value(VV[14]);
5264          V795= (V796);          V797= car((V796));
5265          goto T2780;}  goto T2850;
5266  T2782:;  T2850:;
5267          V795= Ct;          if(!(endp((V796)))){
5268  T2780:;          goto T2851;}
5269          if(!(((V792))==((V795)))){          goto T2846;
5270          goto T2789;}  goto T2851;
5271    T2851:;
5272            {register object V798;
5273            if(!(type_of((V797))==t_cons)){
5274            goto T2858;}
5275            {register object V799;
5276            V799= car((V797));
5277            V797= cdr((V797));
5278            V798= (V799);
5279            goto T2856;}
5280    goto T2858;
5281    T2858:;
5282            V798= Ct;
5283    goto T2856;
5284    T2856:;
5285            if(!(((V795))==((V798)))){
5286            goto T2865;}
5287          base[1]= symbol_value(VV[27]);          base[1]= symbol_value(VV[27]);
5288          base[2]= VV[246];          base[2]= VV[251];
5289          base[3]= (V794);          base[3]= (V797);
5290          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5291          Lformat();          Lformat();
5292          vs_top=sup;          vs_top=sup;
5293          goto T2787;          goto T2863;
5294  T2789:;  goto T2865;
5295          if(!(((V792))==Cnil)){  T2865:;
5296          goto T2795;}          if(!(((V795))==Cnil)){
5297          goto T2794;          goto T2871;}
5298  T2795:;          goto T2870;
5299    goto T2871;
5300    T2871:;
5301          base[1]= symbol_value(VV[27]);          base[1]= symbol_value(VV[27]);
5302          base[2]= VV[247];          base[2]= VV[252];
5303          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5304          Lformat();          Lformat();
5305          vs_top=sup;          vs_top=sup;
5306  T2794:;  goto T2870;
5307          V792= (V795);  T2870:;
5308            V795= (V798);
5309          base[1]= symbol_value(VV[27]);          base[1]= symbol_value(VV[27]);
5310          base[2]= VV[248];          base[2]= VV[253];
5311          base[3]= (*(LnkLI268))((V792));          base[3]= (*(LnkLI273))((V795));
5312          base[4]= (V794);          base[4]= (V797);
5313          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5314          Lformat();          Lformat();
5315          vs_top=sup;          vs_top=sup;
5316  T2787:;  goto T2863;
5317          if(!(((V792))==(VV[249]))){  T2863:;
5318          goto T2779;}          if(!(((V795))==(VV[254]))){
5319            goto T2855;}
5320          base[1]= symbol_value(VV[27]);          base[1]= symbol_value(VV[27]);
5321          base[2]= VV[250];          base[2]= VV[255];
5322          base[3]= (V794);          base[3]= (V797);
5323          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5324          Lformat();          Lformat();
5325          vs_top=sup;}          vs_top=sup;}
5326  T2779:;  goto T2855;
5327          V793= cdr((V793));  T2855:;
5328          V794= car((V793));          V796= cdr((V796));
5329          goto T2774;}          V797= car((V796));
5330  T2770:;          goto T2850;}
5331    goto T2846;
5332    T2846:;
5333          if(symbol_value(VV[14])==Cnil){          if(symbol_value(VV[14])==Cnil){
5334          goto T2815;}          goto T2891;}
5335          base[0]= symbol_value(VV[27]);          base[0]= symbol_value(VV[27]);
5336          base[1]= VV[251];          base[1]= VV[256];
5337          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5338          Lformat();          Lformat();
5339          vs_top=sup;          vs_top=sup;
5340  T2815:;  goto T2891;
5341          if(eql(symbol_value(VV[137]),small_fixnum(0))){  T2891:;
5342          goto T2819;}          if(eql(symbol_value(VV[141]),small_fixnum(0))){
5343            goto T2895;}
5344          base[0]= symbol_value(VV[27]);          base[0]= symbol_value(VV[27]);
5345          base[1]= VV[252];          base[1]= VV[257];
5346          base[2]= symbol_value(VV[137]);          base[2]= symbol_value(VV[141]);
5347          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5348          Lformat();          Lformat();
5349          vs_top=sup;          vs_top=sup;
5350          {object V797 = vs_base[0];          {object V800 = vs_base[0];
5351          VMR54(V797)}          VMR54(V800)}
5352  T2819:;  goto T2895;
5353          {object V798 = Cnil;  T2895:;
5354          VMR54(V798)}}          {object V801 = Cnil;
5355            VMR54(V801)}}
5356            base[0]=base[0];
5357            return Cnil;
5358  }  }
5359  /*      local function DO-DECL  */  /*      local function DO-DECL  */
5360    
5361  static L25(base0)  static void L25(base0)
5362  register object *base0;  register object *base0;
5363  {       register object *base=vs_base;  {       register object *base=vs_base;
5364          register object *sup=base+VM55; VC55          register object *sup=base+VM55; VC55
5365          vs_reserve(VM55);          vs_reserve(VM55);
5366          {object V799;          {object V802;
5367          check_arg(1);          check_arg(1);
5368          V799=(base[0]);          V802=(base[0]);
5369          vs_top=sup;          vs_top=sup;
5370    goto TTL;
5371  TTL:;  TTL:;
5372          V800= structure_ref((V799),VV[65],4);          V803= structure_ref((V802),VV[69],4);
5373          if(eql(/* INLINE-ARGS */V800,VV[68])){          if(eql(/* INLINE-ARGS */V803,VV[72])){
5374          goto T2825;}          goto T2901;}
5375          goto T2824;          goto T2900;
5376  T2825:;  goto T2901;
5377          (VV[148]->s.s_dbind)= Ct;  T2901:;
5378  T2824:;          (VV[153]->s.s_dbind)= Ct;
5379          {object V801;  goto T2900;
5380          V801= (*(LnkLI333))((V799));  T2900:;
5381          if(((V801))==Cnil){          {object V804;
5382          goto T2830;}          V804= (*(LnkLI338))((V802));
5383          {object V802;          if(((V804))==Cnil){
5384          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));          goto T2906;}
5385          V802= symbol_value(VV[84]);          {object V805;
5386          (void)(structure_set((V799),VV[65],1,(V801)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
5387          (void)(structure_set((V799),VV[65],4,(V802)));          V805= symbol_value(VV[88]);
5388            (void)(structure_set((V802),VV[69],1,(V804)));
5389            (void)(structure_set((V802),VV[69],4,(V805)));
5390          princ_str("\n   ",VV[21]);          princ_str("\n   ",VV[21]);
5391          if((base0[1])!=Cnil){          if((base0[1])!=Cnil){
5392          goto T2837;}          goto T2913;}
5393          princ_char(123,VV[21]);          princ_char(123,VV[21]);
5394          base0[1]= Ct;          base0[1]= Ct;
5395  T2837:;  goto T2913;
5396          base[1]= (V799);  T2913:;
5397            base[1]= (V802);
5398          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5399          (void) (*Lnk334)();          (void) (*Lnk339)();
5400          return;}          return;}
5401  T2830:;  goto T2906;
5402    T2906:;
5403          base[1]= Cnil;          base[1]= Cnil;
5404          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5405          return;}          return;}
5406          }          }
5407  }  }
5408  static LnkT334(){ call_or_link(VV[334],&Lnk334);} /* WT-VAR-DECL */  static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* WT-VAR-DECL */
5409  static object  LnkTLI333(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[333],&LnkLI333,1,ap);} /* C2VAR-KIND */  static object  LnkTLI338(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[338],(void **)&LnkLI338,1,ap);} /* C2VAR-KIND */
5410  static object  LnkTLI238(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[238],&LnkLI238,5,ap);} /* T3LOCAL-DCFUN */  static object  LnkTLI243(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[243],(void **)&LnkLI243,5,ap);} /* T3LOCAL-DCFUN */
5411  static object  LnkTLI327(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[327],&LnkLI327,1,ap);} /* PARSE-CVSPECS */  static object  LnkTLI332(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[332],(void **)&LnkLI332,1,ap);} /* PARSE-CVSPECS */
5412  static object  LnkTLI326(){return call_proc0(VV[326],&LnkLI326);} /* WFS-ERROR */  static object  LnkTLI331(){return call_proc0(VV[331],(void **)&LnkLI331);} /* WFS-ERROR */
5413  static LnkT325(){ call_or_link(VV[325],&Lnk325);} /* C2DM */  static void LnkT330(){ call_or_link(VV[330],(void **)&Lnk330);} /* C2DM */
5414  static object  LnkTLI324(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[324],&LnkLI324,3,ap);} /* C1DM */  static object  LnkTLI329(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[329],(void **)&LnkLI329,3,ap);} /* C1DM */
5415  static object  LnkTLI323(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[323],&LnkLI323,ap);} /* REMOVE-DUPLICATES */  static object  LnkTLI328(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[328],(void **)&LnkLI328,ap);} /* REMOVE-DUPLICATES */
5416  static long  LnkTLI322(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[322],&LnkLI322,258,ap);} /* ANALYZE-REGS1 */  static long  LnkTLI327(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[327],(void **)&LnkLI327,258,ap);} /* ANALYZE-REGS1 */
5417  static object  LnkTLI321(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[321],&LnkLI321,ap);} /* WARN */  static object  LnkTLI326(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[326],(void **)&LnkLI326,ap);} /* WARN */
5418  static object  LnkTLI320(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[320],&LnkLI320,1,ap);} /* REGISTER */  static object  LnkTLI325(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[325],(void **)&LnkLI325,1,ap);} /* REGISTER */
5419  static object  LnkTLI319(){return call_proc0(VV[319],&LnkLI319);} /* WT-CVARS */  static object  LnkTLI324(){return call_proc0(VV[324],(void **)&LnkLI324);} /* WT-CVARS */
5420  static object  LnkTLI318(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[318],&LnkLI318,ap);} /* C2LAMBDA-EXPR */  static object  LnkTLI323(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[323],(void **)&LnkLI323,ap);} /* C2LAMBDA-EXPR */
5421  static object  LnkTLI317(){return call_proc0(VV[317],&LnkLI317);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI322(){return call_proc0(VV[322],(void **)&LnkLI322);} /* CLOSE-INLINE-BLOCKS */
5422  static object  LnkTLI316(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[316],&LnkLI316,1,ap);} /* WT-VS */  static object  LnkTLI321(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[321],(void **)&LnkLI321,1,ap);} /* WT-VS */
5423  static object  LnkTLI315(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[315],&LnkLI315,1,ap);} /* C2BIND */  static object  LnkTLI320(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[320],(void **)&LnkLI320,1,ap);} /* C2BIND */
5424  static object  LnkTLI314(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[314],&LnkLI314,1,ap);} /* ADD-SYMBOL */  static object  LnkTLI319(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[319],(void **)&LnkLI319,1,ap);} /* ADD-SYMBOL */
5425  static object  LnkTLI313(){return call_proc0(VV[313],&LnkLI313);} /* BABOON */  static object  LnkTLI318(){return call_proc0(VV[318],(void **)&LnkLI318);} /* BABOON */
5426  static object  LnkTLI312(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[312],&LnkLI312,1,ap);} /* ADD-OBJECT */  static object  LnkTLI317(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[317],(void **)&LnkLI317,1,ap);} /* ADD-OBJECT */
5427  static LnkT311(){ call_or_link(VV[311],&Lnk311);} /* INC-INLINE-BLOCKS */  static void LnkT316(){ call_or_link(VV[316],(void **)&Lnk316);} /* INC-INLINE-BLOCKS */
5428  static object  LnkTLI310(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[310],&LnkLI310,ap);} /* CS-PUSH */  static object  LnkTLI315(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[315],(void **)&LnkLI315,ap);} /* CS-PUSH */
5429  static object  LnkTLI309(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[309],&LnkLI309,2,ap);} /* C2BIND-INIT */  static object  LnkTLI314(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[314],(void **)&LnkLI314,2,ap);} /* C2BIND-INIT */
5430  static object  LnkTLI308(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[308],&LnkLI308,2,ap);} /* C2BIND-LOC */  static object  LnkTLI313(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[313],(void **)&LnkLI313,2,ap);} /* C2BIND-LOC */
5431  static object  LnkTLI307(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[307],&LnkLI307,1,ap);} /* SET-UP-VAR-CVS */  static object  LnkTLI312(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[312],(void **)&LnkLI312,1,ap);} /* SET-UP-VAR-CVS */
5432  static object  LnkTLI306(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[306],&LnkLI306,1,ap);} /* WT-LIST */  static object  LnkTLI311(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[311],(void **)&LnkLI311,1,ap);} /* WT-LIST */
5433  static object  LnkTLI305(){return call_proc0(VV[305],&LnkLI305);} /* CVS-PUSH */  static object  LnkTLI310(){return call_proc0(VV[310],(void **)&LnkLI310);} /* CVS-PUSH */
5434  static object  LnkTLI304(){return call_proc0(VV[304],&LnkLI304);} /* VS-PUSH */  static object  LnkTLI309(){return call_proc0(VV[309],(void **)&LnkLI309);} /* VS-PUSH */
5435  static object  LnkTLI303(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[303],&LnkLI303,2,ap);} /* WT-V*-MACROS */  static object  LnkTLI308(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[308],(void **)&LnkLI308,2,ap);} /* WT-V*-MACROS */
5436  static LnkT302(){ call_or_link(VV[302],&Lnk302);} /* C2EXPR */  static void LnkT307(){ call_or_link(VV[307],(void **)&Lnk307);} /* C2EXPR */
5437  static object  LnkTLI301(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[301],&LnkLI301,3,ap);} /* ASSIGN-DOWN-VARS */  static object  LnkTLI306(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[306],(void **)&LnkLI306,3,ap);} /* ASSIGN-DOWN-VARS */
5438  static object  LnkTLI300(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[300],&LnkLI300,2,ap);} /* WT-REQUIREDS */  static object  LnkTLI305(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[305],(void **)&LnkLI305,2,ap);} /* WT-REQUIREDS */
5439  static object  LnkTLI299(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[299],&LnkLI299,ap);} /* WT-COMMENT */  static object  LnkTLI304(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[304],(void **)&LnkLI304,ap);} /* WT-COMMENT */
5440  static object  LnkTLI298(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[298],&LnkLI298,2,ap);} /* ADD-DEBUG-INFO */  static object  LnkTLI303(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[303],(void **)&LnkLI303,2,ap);} /* ADD-DEBUG-INFO */
5441  static object  LnkTLI297(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[297],&LnkLI297,1,ap);} /* WT-DOWNWARD-CLOSURE-MACRO */  static object  LnkTLI302(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[302],(void **)&LnkLI302,1,ap);} /* WT-DOWNWARD-CLOSURE-MACRO */
5442  static LnkT296(){ call_or_link(VV[296],&Lnk296);} /* T3DEFUN-AUX */  static void LnkT301(){ call_or_link(VV[301],(void **)&Lnk301);} /* T3DEFUN-AUX */
5443  static long  LnkTLI295(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[295],&LnkLI295,258,ap);} /* ANALYZE-REGS */  static long  LnkTLI300(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[300],(void **)&LnkLI300,258,ap);} /* ANALYZE-REGS */
5444  static LnkT294(){ call_or_link(VV[294],&Lnk294);} /* FIXNUMP */  static void LnkT299(){ call_or_link(VV[299],(void **)&Lnk299);} /* FIXNUMP */
5445  static object  LnkTLI293(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[293],&LnkLI293,1,ap);} /* VOLATILE */  static object  LnkTLI298(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[298],(void **)&LnkLI298,1,ap);} /* VOLATILE */
5446  static object  LnkTLI292(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[292],&LnkLI292,1,ap);} /* MAXARGS */  static object  LnkTLI297(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[297],(void **)&LnkLI297,1,ap);} /* MAXARGS */
5447  static object  LnkTLI291(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[291],&LnkLI291,1,ap);} /* VARARG-P */  static object  LnkTLI296(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[296],(void **)&LnkLI296,1,ap);} /* VARARG-P */
5448  static object  LnkTLI290(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[290],&LnkLI290,3,ap);} /* WT-IF-PROCLAIMED */  static object  LnkTLI295(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[295],(void **)&LnkLI295,3,ap);} /* WT-IF-PROCLAIMED */
5449  static long  LnkTLI289(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[289],&LnkLI289,258,ap);} /* PROCLAIMED-ARGD */  static long  LnkTLI294(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[294],(void **)&LnkLI294,258,ap);} /* PROCLAIMED-ARGD */
5450  static object  LnkTLI288(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[288],&LnkLI288,2,ap);} /* ADD-ADDRESS */  static object  LnkTLI293(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[293],(void **)&LnkLI293,2,ap);} /* ADD-ADDRESS */
5451  static object  LnkTLI287(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[287],&LnkLI287,ap);} /* ADD-INIT */  static object  LnkTLI292(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[292],(void **)&LnkLI292,ap);} /* ADD-INIT */
5452  static object  LnkTLI286(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[286],&LnkLI286,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */  static object  LnkTLI291(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[291],(void **)&LnkLI291,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */
5453  static object  LnkTLI285(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[285],&LnkLI285,2,ap);} /* SHIFT<< */  static object  LnkTLI290(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[290],(void **)&LnkLI290,2,ap);} /* SHIFT<< */
5454  static long  LnkTLI284(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[284],&LnkLI284,257,ap);} /* F-TYPE */  static long  LnkTLI289(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[289],(void **)&LnkLI289,257,ap);} /* F-TYPE */
5455  static LnkT283(){ call_or_link(VV[283],&Lnk283);} /* SUBTYPEP */  static void LnkT288(){ call_or_link(VV[288],(void **)&Lnk288);} /* SUBTYPEP */
5456  static LnkT282(){ call_or_link(VV[282],&Lnk282);} /* STRUCTURE-SUBTYPE-P */  static void LnkT287(){ call_or_link(VV[287],(void **)&Lnk287);} /* STRUCTURE-SUBTYPE-P */
5457  static object  LnkTLI281(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[281],&LnkLI281,ap);} /* MAKE-ARRAY */  static object  LnkTLI286(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[286],(void **)&LnkLI286,ap);} /* MAKE-ARRAY */
5458  static object  LnkTLI280(){return call_proc0(VV[280],&LnkLI280);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI285(){return call_proc0(VV[285],(void **)&LnkLI285);} /* ADD-LOAD-TIME-SHARP-COMMA */
5459  static object  LnkTLI279(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[279],&LnkLI279,2,ap);} /* MAKE-INLINE-STRING */  static object  LnkTLI284(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[284],(void **)&LnkLI284,2,ap);} /* MAKE-INLINE-STRING */
5460  static object  LnkTLI278(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[278],&LnkLI278,2,ap);} /* TYPE-AND */  static object  LnkTLI283(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[283],(void **)&LnkLI283,2,ap);} /* TYPE-AND */
5461  static object  LnkTLI277(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[277],&LnkLI277,2,ap);} /* CMPFIX-ARGS */  static object  LnkTLI282(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[282],(void **)&LnkLI282,2,ap);} /* CMPFIX-ARGS */
5462  static object  LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,1,ap);} /* PROCLAIM */  static object  LnkTLI281(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[281],(void **)&LnkLI281,1,ap);} /* PROCLAIM */
5463  static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,1,ap);} /* CHECK-DOWNWARD */  static object  LnkTLI280(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[280],(void **)&LnkLI280,1,ap);} /* CHECK-DOWNWARD */
5464  static object  LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],&LnkLI274,ap);} /* C1LAMBDA-EXPR */  static object  LnkTLI279(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[279],(void **)&LnkLI279,ap);} /* C1LAMBDA-EXPR */
5465  static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[273],&LnkLI273,1,ap);} /* T1PROGN */  static object  LnkTLI278(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[278],(void **)&LnkLI278,1,ap);} /* T1PROGN */
5466  static object  LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],&LnkLI270,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],(void **)&LnkLI275,3,ap);} /* TOO-FEW-ARGS */
5467  static LnkT269(){ call_or_link(VV[269],&Lnk269);} /* CMP-EVAL */  static void LnkT274(){ call_or_link(VV[274],(void **)&Lnk274);} /* CMP-EVAL */
5468  static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[268],&LnkLI268,1,ap);} /* REP-TYPE */  static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[273],(void **)&LnkLI273,1,ap);} /* REP-TYPE */
5469  static LnkT267(){ call_or_link(VV[267],&Lnk267);} /* WT-DATA-FILE */  static void LnkT272(){ call_or_link(VV[272],(void **)&Lnk272);} /* WT-DATA-FILE */
5470  static object  LnkTLI266(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[266],&LnkLI266,1,ap);} /* PUSH-DATA-INCF */  static object  LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],(void **)&LnkLI271,1,ap);} /* PUSH-DATA-INCF */
5471  static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[265],&LnkLI265,1,ap);} /* WT-H1 */  static object  LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],(void **)&LnkLI270,1,ap);} /* WT-H1 */
5472  static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[264],&LnkLI264,1,ap);} /* WT-FUNCTION-LINK */  static object  LnkTLI269(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[269],(void **)&LnkLI269,1,ap);} /* WT-FUNCTION-LINK */
5473  static LnkT263(){ call_or_link(VV[263],&Lnk263);} /* WT-GLOBAL-ENTRY */  static void LnkT268(){ call_or_link(VV[268],(void **)&Lnk268);} /* WT-GLOBAL-ENTRY */
5474  static LnkT245(){ call_or_link(VV[245],&Lnk245);} /* T3LOCAL-FUN */  static void LnkT250(){ call_or_link(VV[250],(void **)&Lnk250);} /* T3LOCAL-FUN */
5475  static object  LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* WT1 */  static object  LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[267],(void **)&LnkLI267,1,ap);} /* WT1 */
5476  static object  LnkTLI261(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[261],&LnkLI261,3,ap);} /* CMP-EXPAND-MACRO */  static object  LnkTLI266(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[266],(void **)&LnkLI266,3,ap);} /* CMP-EXPAND-MACRO */
5477  static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* T1ORDINARY */  static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[265],(void **)&LnkLI265,1,ap);} /* T1ORDINARY */
5478  static LnkT259(){ call_or_link(VV[259],&Lnk259);} /* T1EXPR */  static void LnkT264(){ call_or_link(VV[264],(void **)&Lnk264);} /* T1EXPR */
5479  static object  LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[258],&LnkLI258,1,ap);} /* CMP-MACROEXPAND-1 */  static object  LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[263],(void **)&LnkLI263,1,ap);} /* CMP-MACROEXPAND-1 */
5480  static object  LnkTLI257(){return call_proc0(VV[257],&LnkLI257);} /* PRINT-CURRENT-FORM */  static object  LnkTLI262(){return call_proc0(VV[262],(void **)&LnkLI262);} /* PRINT-CURRENT-FORM */
5481  static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* WT-DATA-PACKAGE-OPERATION */  static object  LnkTLI261(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[261],(void **)&LnkLI261,1,ap);} /* WT-DATA-PACKAGE-OPERATION */
5482  static object  LnkTLI255(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[255],&LnkLI255,2,ap);} /* MAYBE-EVAL */  static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],(void **)&LnkLI260,2,ap);} /* MAYBE-EVAL */
5483  static object  LnkTLI254(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[254],&LnkLI254,ap);} /* CMPWARN */  static object  LnkTLI259(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[259],(void **)&LnkLI259,ap);} /* CMPWARN */
5484  static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[253],&LnkLI253,ap);} /* CMPERR */  static object  LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[258],(void **)&LnkLI258,ap);} /* CMPERR */
5485    
5486  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5487  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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