/[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.11 by mjthomas, Tue Jul 8 06:50:01 2003 UTC revision 1.12 by camm, Tue Jul 15 18:03:36 2003 UTC
# Line 52  T11:; Line 52  T11:;
52          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[7],(V1))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[7],(V1))));
53          goto T16;          goto T16;
54  T16:;  T16:;
55          (void)((*(LnkLI267))(Ct,(V1)));          {object V6;
56          V6= (*(LnkLI268))((V1));          base[3]= (V2);
57            vs_top=(vs_base=base+3)+1;
58            Lmacro_function();
59            vs_top=sup;
60            V4= vs_base[0];
61            if(((V4))==Cnil){
62            goto T21;}
63            base[3]= cdr((V1));
64            vs_top=(vs_base=base+3)+1;
65            Lcopy_list();
66            vs_top=sup;
67            V7= vs_base[0];
68            V6= (*(LnkLI267))((V4),(V2),V7);
69            goto T19;
70            goto T21;
71    T21:;
72            V6= (V1);
73            goto T19;
74    T19:;
75            (void)((*(LnkLI268))(Ct,(V6)));
76            V8= (*(LnkLI269))((V6));
77          frs_pop();          frs_pop();
78          base[3]= V6;          base[3]= V8;
79          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
80          bds_unwind1;          bds_unwind1;
81          bds_unwind1;          bds_unwind1;
82          return;          return;}
83          goto T14;          goto T14;
84  T14:;  T14:;
85          V4= get((V2),VV[8],Cnil);          V4= get((V2),VV[8],Cnil);
86          if(((V4))==Cnil){          if(((V4))==Cnil){
87          goto T21;}          goto T29;}
88          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
89          goto T24;}          goto T32;}
90          (void)((*(LnkLI269))());          (void)((*(LnkLI270))());
91          goto T24;          goto T32;
92  T24:;  T32:;
93          base[3]= (V3);          base[3]= (V3);
94          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
95          super_funcall_no_event((V4));          super_funcall_no_event((V4));
# Line 77  T24:; Line 97  T24:;
97          bds_unwind1;          bds_unwind1;
98          bds_unwind1;          bds_unwind1;
99          return;          return;
100          goto T21;          goto T29;
101  T21:;  T29:;
102          if((get((V2),VV[10],Cnil))==Cnil){          if((get((V2),VV[10],Cnil))==Cnil){
103          goto T29;}          goto T37;}
104          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
105          goto T31;}          goto T39;}
106          (void)((*(LnkLI269))());          (void)((*(LnkLI270))());
107          goto T31;          goto T39;
108  T31:;  T39:;
109          base[3]= (*(LnkLI270))((V1));          base[3]= (*(LnkLI271))((V1));
110          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
111          (void) (*Lnk271)();          (void) (*Lnk272)();
112          frs_pop();          frs_pop();
113          bds_unwind1;          bds_unwind1;
114          bds_unwind1;          bds_unwind1;
115          return;          return;
116          goto T29;          goto T37;
117  T29:;  T37:;
118          if((get((V2),VV[11],Cnil))==Cnil){          if((get((V2),VV[11],Cnil))==Cnil){
119          goto T36;}          goto T44;}
120          V7= (*(LnkLI272))((V1));          V9= (*(LnkLI273))((V1));
121          frs_pop();          frs_pop();
122          base[3]= V7;          base[3]= V9;
123          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
124          bds_unwind1;          bds_unwind1;
125          bds_unwind1;          bds_unwind1;
126          return;          return;
127          goto T36;          goto T44;
128  T36:;  T44:;
129          base[3]= (V2);          base[3]= (V2);
130          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
131          Lmacro_function();          Lmacro_function();
132          vs_top=sup;          vs_top=sup;
133          V4= vs_base[0];          V4= vs_base[0];
134          if(((V4))==Cnil){          if(((V4))==Cnil){
135          goto T39;}          goto T47;}
136          {object V8;          {object V10;
137          base[3]= cdr((V1));          base[3]= cdr((V1));
138          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
139          Lcopy_list();          Lcopy_list();
140          vs_top=sup;          vs_top=sup;
141          V9= vs_base[0];          V11= vs_base[0];
142          V8= (*(LnkLI273))((V4),(V2),V9);          V10= (*(LnkLI267))((V4),(V2),V11);
143          base[3]= (V8);          base[3]= (V10);
144          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
145          (void) (*Lnk271)();          (void) (*Lnk272)();
146          frs_pop();          frs_pop();
147          bds_unwind1;          bds_unwind1;
148          bds_unwind1;          bds_unwind1;
149          return;}          return;}
150          goto T39;          goto T47;
151  T39:;  T47:;
152          V10= (*(LnkLI272))((V1));          V12= (*(LnkLI273))((V1));
153          frs_pop();          frs_pop();
154          base[3]= V10;          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;
# Line 139  T39:; Line 159  T39:;
159          goto T8;          goto T8;
160  T8:;  T8:;
161          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
162          goto T48;}          goto T56;}
163          V11= (*(LnkLI272))((V1));          V13= (*(LnkLI273))((V1));
164          frs_pop();          frs_pop();
165          base[3]= V11;          base[3]= V13;
166          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
167          bds_unwind1;          bds_unwind1;
168          bds_unwind1;          bds_unwind1;
169          return;          return;
170          goto T48;          goto T56;
171  T48:;  T56:;
172          V12= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2)));          V14= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2)));
173          frs_pop();          frs_pop();
174          base[3]= V12;          base[3]= V14;
175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
176          bds_unwind1;          bds_unwind1;
177          bds_unwind1;          bds_unwind1;
# Line 172  static void L2() Line 192  static void L2()
192  {register object *base=vs_base;  {register object *base=vs_base;
193          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
194          vs_reserve(VM2);          vs_reserve(VM2);
195          {object V13;          {object V15;
196          check_arg(1);          check_arg(1);
197          V13=(base[0]);          V15=(base[0]);
198          vs_top=sup;          vs_top=sup;
199          goto TTL;          goto TTL;
200  TTL:;  TTL:;
201          if(!(equal((V13),VV[13]))){          if(!(equal((V15),VV[13]))){
202          goto T51;}          goto T59;}
203          base[1]= VV[14];          base[1]= VV[14];
204          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
205          return;          return;
206          goto T51;          goto T59;
207  T51:;  T59:;
208          if(!(equal((V13),VV[15]))){          if(!(equal((V15),VV[15]))){
209          goto T54;}          goto T62;}
210          base[1]= VV[16];          base[1]= VV[16];
211          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
212          return;          return;
213          goto T54;          goto T62;
214  T54:;  T62:;
215          base[1]= (V13);          base[1]= (V15);
216          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
217          return;          return;
218          }          }
219  }  }
220  /*      local entry for function CTOP-WRITE     */  /*      local entry for function CTOP-WRITE     */
221    
222  static object LI3(V15)  static object LI3(V17)
223    
224  object V15;  object V17;
225  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
226          bds_check;          bds_check;
227          goto TTL;          goto TTL;
228  TTL:;  TTL:;
229          {object V16;          {object V18;
230          V16= Cnil;          V18= Cnil;
231          bds_bind(VV[17],Cnil);          bds_bind(VV[17],Cnil);
232          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
233          bds_bind(VV[20],VV[19]);          bds_bind(VV[20],VV[19]);
# Line 217  TTL:; Line 237  TTL:;
237          bds_bind(VV[0],Cnil);          bds_bind(VV[0],Cnil);
238          setq(VV[24],reverse(symbol_value(VV[24])));          setq(VV[24],reverse(symbol_value(VV[24])));
239          princ_str("\nvoid init_",VV[25]);          princ_str("\nvoid init_",VV[25]);
240          (void)((*(LnkLI274))((V15)));          (void)((*(LnkLI274))((V17)));
241          princ_str("(){",VV[25]);          princ_str("(){",VV[25]);
242          princ_str("do_init(VV);",VV[25]);          princ_str("do_init(VV);",VV[25]);
243          princ_char(125,VV[25]);          princ_char(125,VV[25]);
         {object V17;  
         V17= symbol_value(VV[24]);  
         bds_bind(VV[0],car((V17)));  
         goto T69;  
 T69:;  
         if(!(endp_prop((V17)))){  
         goto T70;}  
         bds_unwind1;  
         goto T65;  
         goto T70;  
 T70:;  
         setq(VV[1],Ct);  
         V16= get(car((VV[0]->s.s_dbind)),VV[26],Cnil);  
         if(((V16))==Cnil){  
         goto T76;}  
         base[8]= (V16);  
         {object V18;  
         V18= cdr((VV[0]->s.s_dbind));  
          vs_top=base+9;  
          while(!endp(V18))  
          {vs_push(car(V18));V18=cdr(V18);}  
         vs_base=base+9;}  
         super_funcall_no_event(base[8]);  
         vs_top=sup;  
         goto T76;  
 T76:;  
         V17= cdr((V17));  
         (VV[0]->s.s_dbind)= car((V17));  
         goto T69;}  
         goto T65;  
 T65:;  
244          {object V19;          {object V19;
245          V19= symbol_value(VV[24]);          V19= symbol_value(VV[24]);
246          bds_bind(VV[0],car((V19)));          bds_bind(VV[0],car((V19)));
247          goto T91;          goto T77;
248  T91:;  T77:;
249          if(!(endp_prop((V19)))){          if(!(endp_prop((V19)))){
250          goto T92;}          goto T78;}
251          bds_unwind1;          bds_unwind1;
252          goto T87;          goto T73;
253          goto T92;          goto T78;
254  T92:;  T78:;
255          setq(VV[1],Ct);          setq(VV[1],Ct);
256          V16= get(car((VV[0]->s.s_dbind)),VV[27],Cnil);          V18= get(car((VV[0]->s.s_dbind)),VV[26],Cnil);
257          if(((V16))==Cnil){          if(((V18))==Cnil){
258          goto T98;}          goto T84;}
259          base[8]= (V16);          base[8]= (V18);
260          {object V20;          {object V20;
261          V20= cdr((VV[0]->s.s_dbind));          V20= cdr((VV[0]->s.s_dbind));
262           vs_top=base+9;           vs_top=base+9;
# Line 276  T92:; Line 265  T92:;
265          vs_base=base+9;}          vs_base=base+9;}
266          super_funcall_no_event(base[8]);          super_funcall_no_event(base[8]);
267          vs_top=sup;          vs_top=sup;
268          goto T98;          goto T84;
269  T98:;  T84:;
270          V19= cdr((V19));          V19= cdr((V19));
271          (VV[0]->s.s_dbind)= car((V19));          (VV[0]->s.s_dbind)= car((V19));
272          goto T91;}          goto T77;}
273          goto T87;          goto T73;
274  T87:;  T73:;
275          {object V21;          {object V21;
276          V21= Cnil;          V21= symbol_value(VV[24]);
277          goto T111;          bds_bind(VV[0],car((V21)));
278  T111:;          goto T99;
279          if(!(endp_prop(symbol_value(VV[28])))){  T99:;
280          goto T113;}          if(!(endp_prop((V21)))){
281          goto T109;          goto T100;}
282          goto T113;          bds_unwind1;
283  T113:;          goto T95;
284          V21= car(symbol_value(VV[28]));          goto T100;
285    T100:;
286            setq(VV[1],Ct);
287            V18= get(car((VV[0]->s.s_dbind)),VV[27],Cnil);
288            if(((V18))==Cnil){
289            goto T106;}
290            base[8]= (V18);
291          {object V22;          {object V22;
292          V22= car(symbol_value(VV[28]));          V22= cdr((VV[0]->s.s_dbind));
293          setq(VV[28],cdr(symbol_value(VV[28])));}           vs_top=base+9;
294             while(!endp(V22))
295             {vs_push(car(V22));V22=cdr(V22);}
296            vs_base=base+9;}
297            super_funcall_no_event(base[8]);
298            vs_top=sup;
299            goto T106;
300    T106:;
301            V21= cdr((V21));
302            (VV[0]->s.s_dbind)= car((V21));
303            goto T99;}
304            goto T95;
305    T95:;
306          {object V23;          {object V23;
307          V23= (V21);          V23= Cnil;
308            goto T119;
309    T119:;
310            if(!(endp_prop(symbol_value(VV[28])))){
311            goto T121;}
312            goto T117;
313            goto T121;
314    T121:;
315            V23= car(symbol_value(VV[28]));
316            {object V24;
317            V24= car(symbol_value(VV[28]));
318            setq(VV[28],cdr(symbol_value(VV[28])));}
319            {object V25;
320            V25= (V23);
321           vs_top=base+7;           vs_top=base+7;
322           while(!endp(V23))           while(!endp(V25))
323           {vs_push(car(V23));V23=cdr(V23);}           {vs_push(car(V25));V25=cdr(V25);}
324          vs_base=base+7;}          vs_base=base+7;}
325          (void) (*Lnk257)();          (void) (*Lnk257)();
326          vs_top=sup;          vs_top=sup;
327          goto T111;}          goto T119;}
328          goto T109;          goto T117;
329  T109:;  T117:;
         {object V24;  
         object V25;  
         V24= symbol_value(VV[29]);  
         V25= car((V24));  
         goto T128;  
 T128:;  
         if(!(endp_prop((V24)))){  
         goto T129;}  
         goto T124;  
         goto T129;  
 T129:;  
330          {object V26;          {object V26;
331          V26= (V25);          object V27;
332            V26= symbol_value(VV[29]);
333            V27= car((V26));
334            goto T136;
335    T136:;
336            if(!(endp_prop((V26)))){
337            goto T137;}
338            goto T132;
339            goto T137;
340    T137:;
341            {object V28;
342            V28= (V27);
343           vs_top=base+8;           vs_top=base+8;
344           while(!endp(V26))           while(!endp(V28))
345           {vs_push(car(V26));V26=cdr(V26);}           {vs_push(car(V28));V28=cdr(V28);}
346          vs_base=base+8;}          vs_base=base+8;}
347          (void) (*Lnk275)();          (void) (*Lnk275)();
348          vs_top=sup;          vs_top=sup;
349          V24= cdr((V24));          V26= cdr((V26));
350          V25= car((V24));          V27= car((V26));
351          goto T128;}          goto T136;}
352          goto T124;          goto T132;
353  T124:;  T132:;
         {object V27;  
         object V28;  
         V27= (VV[17]->s.s_dbind);  
         V28= car((V27));  
         goto T144;  
 T144:;  
         if(!(endp_prop((V27)))){  
         goto T145;}  
         goto T140;  
         goto T145;  
 T145:;  
         (void)((*(LnkLI276))((V28)));  
         V27= cdr((V27));  
         V28= car((V27));  
         goto T144;}  
         goto T140;  
 T140:;  
354          {object V29;          {object V29;
355          object V30;          object V30;
356          V29= symbol_value(VV[30]);          V29= (VV[17]->s.s_dbind);
357          V30= car((V29));          V30= car((V29));
358          goto T159;          goto T152;
359  T159:;  T152:;
360          if(!(endp_prop((V29)))){          if(!(endp_prop((V29)))){
361          goto T160;}          goto T153;}
362          goto T155;          goto T148;
363          goto T160;          goto T153;
364  T160:;  T153:;
365          princ_str("\nstatic void LC",VV[31]);          (void)((*(LnkLI276))((V30)));
         V31= structure_ref((V30),VV[32],3);  
         (void)((*(LnkLI277))(/* INLINE-ARGS */V31));  
         princ_str("();",VV[31]);  
366          V29= cdr((V29));          V29= cdr((V29));
367          V30= car((V29));          V30= car((V29));
368          goto T159;}          goto T152;}
369          goto T155;          goto T148;
370  T155:;  T148:;
371          {object V32;          {object V31;
372          object V33;          object V32;
373          V32= symbol_value(VV[33]);          V31= symbol_value(VV[30]);
374          V33= car((V32));          V32= car((V31));
375          goto T177;          goto T167;
376  T177:;  T167:;
377          if(!(endp_prop((V32)))){          if(!(endp_prop((V31)))){
378          goto T178;}          goto T168;}
379          goto T173;          goto T163;
380          goto T178;          goto T168;
381  T178:;  T168:;
382            princ_str("\nstatic void LC",VV[31]);
383            V33= structure_ref((V32),VV[32],3);
384            (void)((*(LnkLI277))(/* INLINE-ARGS */V33));
385            princ_str("();",VV[31]);
386            V31= cdr((V31));
387            V32= car((V31));
388            goto T167;}
389            goto T163;
390    T163:;
391            {object V34;
392            object V35;
393            V34= symbol_value(VV[33]);
394            V35= car((V34));
395            goto T185;
396    T185:;
397            if(!(endp_prop((V34)))){
398            goto T186;}
399            goto T181;
400            goto T186;
401    T186:;
402          princ_str("\n#define VM",VV[31]);          princ_str("\n#define VM",VV[31]);
403          (void)((*(LnkLI277))(car((V33))));          (void)((*(LnkLI277))(car((V35))));
404          princ_char(32,VV[31]);          princ_char(32,VV[31]);
405          (void)((*(LnkLI277))(cdr((V33))));          (void)((*(LnkLI277))(cdr((V35))));
406          V32= cdr((V32));          V34= cdr((V34));
407          V33= car((V32));          V35= car((V34));
408          goto T177;}          goto T185;}
409          goto T173;          goto T181;
410  T173:;  T181:;
411          (void)((*(LnkLI278))(Cnil));          (void)((*(LnkLI278))(Cnil));
412          {object V34;          {object V36;
413          object V35;          object V37;
414          base[8]= (VV[22]->s.s_dbind);          base[8]= (VV[22]->s.s_dbind);
415          base[9]= symbol_value(VV[34]);          base[9]= symbol_value(VV[34]);
416          base[10]= small_fixnum(1);          base[10]= small_fixnum(1);
417          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
418          Lminus();          Lminus();
419          vs_top=sup;          vs_top=sup;
420          V34= vs_base[0];          V36= vs_base[0];
421          V35= small_fixnum(0);          V37= small_fixnum(0);
422          goto T200;          goto T208;
423  T200:;  T208:;
424          if(!(number_compare((V35),(V34))>=0)){          if(!(number_compare((V37),(V36))>=0)){
425          goto T201;}          goto T209;}
         goto T193;  
426          goto T201;          goto T201;
427  T201:;          goto T209;
428    T209:;
429          (void)((*(LnkLI278))(Cnil));          (void)((*(LnkLI278))(Cnil));
430          V35= one_plus((V35));          V37= one_plus((V37));
431          goto T200;}          goto T208;}
432          goto T193;          goto T201;
433  T193:;  T201:;
434          princ_str("\nstatic char * VVi[",VV[31]);          princ_str("\nstatic char * VVi[",VV[31]);
435          V36= number_plus(small_fixnum(1),symbol_value(VV[34]));          V38= number_plus(small_fixnum(1),symbol_value(VV[34]));
436          (void)((*(LnkLI277))(/* INLINE-ARGS */V36));          (void)((*(LnkLI277))(/* INLINE-ARGS */V38));
437          princ_str("]={",VV[31]);          princ_str("]={",VV[31]);
438          princ_str("\n#define Cdata VV[",VV[31]);          princ_str("\n#define Cdata VV[",VV[31]);
439          (void)((*(LnkLI277))(symbol_value(VV[34])));          (void)((*(LnkLI277))(symbol_value(VV[34])));
440          princ_char(93,VV[31]);          princ_char(93,VV[31]);
441          if((VV[21]->s.s_dbind)!=Cnil){          if((VV[21]->s.s_dbind)!=Cnil){
442          goto T217;}          goto T225;}
443          princ_char(10,VV[31]);          princ_char(10,VV[31]);
444          (void)((*(LnkLI277))(small_fixnum(0)));          (void)((*(LnkLI277))(small_fixnum(0)));
445          goto T217;          goto T225;
446  T217:;  T225:;
447          {register object V37;          {register object V39;
448          V37= nreverse((VV[21]->s.s_dbind));          V39= nreverse((VV[21]->s.s_dbind));
449          goto T223;          goto T231;
450  T223:;  T231:;
451          if(((V37))!=Cnil){          if(((V39))!=Cnil){
452          goto T224;}          goto T232;}
453          princ_str("\n};",VV[31]);          princ_str("\n};",VV[31]);
454          goto T220;          goto T228;
455          goto T224;          goto T232;
456  T224:;  T232:;
457          princ_str("\n(char *)(",VV[31]);          princ_str("\n(char *)(",VV[31]);
458          (void)((*(LnkLI277))(caar((V37))));          (void)((*(LnkLI277))(caar((V39))));
459          (void)((*(LnkLI277))(cadar((V37))));          (void)((*(LnkLI277))(cadar((V39))));
460          if((cdr((V37)))==Cnil){          if((cdr((V39)))==Cnil){
461          goto T236;}          goto T244;}
462          V38= VV[35];          V40= VV[35];
463          goto T234;          goto T242;
464          goto T236;          goto T244;
465  T236:;  T244:;
466          V38= VV[36];          V40= VV[36];
467          goto T234;          goto T242;
468  T234:;  T242:;
469          (void)((*(LnkLI277))(V38));          (void)((*(LnkLI277))(V40));
470          V37= cdr((V37));          V39= cdr((V39));
471          goto T223;}          goto T231;}
472          goto T220;          goto T228;
473  T220:;  T228:;
474          princ_str("\n#define VV ((object *)VVi)",VV[31]);          princ_str("\n#define VV ((object *)VVi)",VV[31]);
475          vs_base=vs_top;          vs_base=vs_top;
476          (void) (*Lnk279)();          (void) (*Lnk279)();
477          vs_top=sup;          vs_top=sup;
478          {object V39;          {object V41;
479          object V40;          object V42;
480          V39= (VV[17]->s.s_dbind);          V41= (VV[17]->s.s_dbind);
481          V40= car((V39));          V42= car((V41));
482          goto T247;          goto T255;
483  T247:;  T255:;
484          if(!(endp_prop((V39)))){          if(!(endp_prop((V41)))){
485          goto T248;}          goto T256;}
486          {object V41 = Cnil;          {object V43 = Cnil;
487          bds_unwind1;          bds_unwind1;
488          bds_unwind1;          bds_unwind1;
489          bds_unwind1;          bds_unwind1;
# Line 471  T247:; Line 491  T247:;
491          bds_unwind1;          bds_unwind1;
492          bds_unwind1;          bds_unwind1;
493          bds_unwind1;          bds_unwind1;
494          VMR3(V41)}          VMR3(V43)}
495          goto T248;          goto T256;
496  T248:;  T256:;
497          {register object V42;          {register object V44;
         register object V43;  
         object V44;  
498          register object V45;          register object V45;
499          V42= cadr((V40));          object V46;
500          V43= caddr((V40));          register object V47;
501          V44= cadddr((V40));          V44= cadr((V42));
502          V45= Cnil;          V45= caddr((V42));
503          if(!(((V43))==(VV[37]))){          V46= cadddr((V42));
504          goto T258;}          V47= Cnil;
505            if(!(((V45))==(VV[37]))){
506            goto T266;}
507          princ_str("\nstatic object *Lclptr",VV[31]);          princ_str("\nstatic object *Lclptr",VV[31]);
508          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V44)));
509          princ_char(59,VV[31]);          princ_char(59,VV[31]);
510          V45= VV[38];          V47= VV[38];
511          goto T256;          goto T264;
512          goto T258;          goto T266;
513  T258:;  T266:;
514          if(((V43))==Cnil){          if(((V45))==Cnil){
515          goto T267;}          goto T275;}
516          V45= (*(LnkLI280))((V43));          V47= (*(LnkLI280))((V45));
517          goto T265;          goto T273;
518          goto T267;          goto T275;
519  T267:;  T275:;
520          V45= VV[39];          V47= VV[39];
521          goto T265;          goto T273;
522  T265:;  T273:;
523          goto T256;          goto T264;
524  T256:;  T264:;
525          if(((V43))==Cnil){          if(((V45))==Cnil){
526          goto T270;}          goto T278;}
527          if(((V43))==(VV[37])){          if(((V45))==(VV[37])){
528          goto T270;}          goto T278;}
529          if(((V44))!=Cnil){          if(((V46))!=Cnil){
530          goto T269;}          goto T277;}
531          if((Ct)==((V43))){          if((Ct)==((V45))){
532          goto T270;}          goto T278;}
533          goto T269;          goto T277;
534  T269:;  T277:;
535          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
536          base[8]= (V45);          base[8]= (V47);
537          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
538          (void) (*Lnk281)();          (void) (*Lnk281)();
539          vs_top=sup;          vs_top=sup;
540          V46= vs_base[0];          V48= vs_base[0];
541          (void)((*(LnkLI277))(V46));          (void)((*(LnkLI277))(V48));
542          princ_str(" LnkT",VV[31]);          princ_str(" LnkT",VV[31]);
543          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V44)));
544          princ_str("(object,...);",VV[31]);          princ_str("(object,...);",VV[31]);
545          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
546          base[8]= (V45);          base[8]= (V47);
547          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
548          (void) (*Lnk281)();          (void) (*Lnk281)();
549          vs_top=sup;          vs_top=sup;
550          V47= vs_base[0];          V49= vs_base[0];
551          (void)((*(LnkLI277))(V47));          (void)((*(LnkLI277))(V49));
552          princ_str(" (*Lnk",VV[31]);          princ_str(" (*Lnk",VV[31]);
553          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V44)));
554          princ_str(")() = (",VV[31]);          princ_str(")() = (",VV[31]);
555          base[8]= (V45);          base[8]= (V47);
556          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
557          (void) (*Lnk281)();          (void) (*Lnk281)();
558          vs_top=sup;          vs_top=sup;
559          V48= vs_base[0];          V50= vs_base[0];
560          (void)((*(LnkLI277))(V48));          (void)((*(LnkLI277))(V50));
561          princ_str("(*)()) LnkT",VV[31]);          princ_str("(*)()) LnkT",VV[31]);
562          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V44)));
563          princ_char(59,VV[31]);          princ_char(59,VV[31]);
564          goto T252;          goto T260;
565          goto T270;          goto T278;
566  T270:;  T278:;
567          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
568          base[8]= (V45);          base[8]= (V47);
569          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
570          (void) (*Lnk281)();          (void) (*Lnk281)();
571          vs_top=sup;          vs_top=sup;
572          V49= vs_base[0];          V51= vs_base[0];
573          (void)((*(LnkLI277))(V49));          (void)((*(LnkLI277))(V51));
574          princ_str(" LnkT",VV[31]);          princ_str(" LnkT",VV[31]);
575          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V44)));
576          princ_str("();",VV[31]);          princ_str("();",VV[31]);
577          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
578          base[8]= (V45);          base[8]= (V47);
579          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
580          (void) (*Lnk281)();          (void) (*Lnk281)();
581          vs_top=sup;          vs_top=sup;
582          V50= vs_base[0];          V52= vs_base[0];
583          (void)((*(LnkLI277))(V50));          (void)((*(LnkLI277))(V52));
584          princ_str(" (*Lnk",VV[31]);          princ_str(" (*Lnk",VV[31]);
585          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V44)));
586          princ_str(")() = LnkT",VV[31]);          princ_str(")() = LnkT",VV[31]);
587          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V44)));
588          princ_char(59,VV[31]);}          princ_char(59,VV[31]);}
589          goto T252;          goto T260;
590  T252:;  T260:;
591          V39= cdr((V39));          V41= cdr((V41));
592          V40= car((V39));          V42= car((V41));
593          goto T247;}}          goto T255;}}
594          base[0]=base[0];          base[0]=base[0];
595          return Cnil;          return Cnil;
596  }  }
597  /*      local entry for function MAYBE-EVAL     */  /*      local entry for function MAYBE-EVAL     */
598    
599  static object LI4(V53,V54)  static object LI4(V55,V56)
600    
601  object V53;register object V54;  object V55;register object V56;
602  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
603          goto TTL;          goto TTL;
604  TTL:;  TTL:;
605          if((V53)!=Cnil){          if((V55)!=Cnil){
606          goto T321;}          goto T329;}
607          if(type_of(car((V54)))==t_symbol){          if(type_of(car((V56)))==t_symbol){
608          goto T322;}          goto T330;}
609          goto T321;          goto T329;
610          goto T322;          goto T330;
611  T322:;  T330:;
612          V53= get(car((V54)),VV[40],Cnil);          V55= get(car((V56)),VV[40],Cnil);
613          goto T321;          goto T329;
614  T321:;  T329:;
615          if(((V53))==Cnil){          if(((V55))==Cnil){
616          goto T327;}          goto T335;}
617          if((VV[41])==(symbol_value(VV[42]))){          if((VV[41])==(symbol_value(VV[42]))){
618          goto T325;}          goto T333;}
619          goto T327;          goto T335;
620  T327:;  T335:;
621          if(!(type_of(symbol_value(VV[42]))==t_cons)){          if(!(type_of(symbol_value(VV[42]))==t_cons)){
622          goto T326;}          goto T334;}
623          {register object x= VV[43],V55= symbol_value(VV[42]);          {register object x= VV[43],V57= symbol_value(VV[42]);
624          while(!endp(V55))          while(!endp(V57))
625          if(eql(x,V55->c.c_car)){          if(eql(x,V57->c.c_car)){
626          goto T333;          goto T341;
627          }else V55=V55->c.c_cdr;          }else V57=V57->c.c_cdr;
628          goto T326;}          goto T334;}
629            goto T341;
630    T341:;
631          goto T333;          goto T333;
632  T333:;  T333:;
633          goto T325;          if(((V56))==Cnil){
634  T325:;          goto T342;}
635          if(((V54))==Cnil){          base[0]= (V56);
         goto T334;}  
         base[0]= (V54);  
636          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
637          (void) (*Lnk282)();          (void) (*Lnk282)();
638          vs_top=sup;          vs_top=sup;
639            goto T342;
640    T342:;
641            {object V58 = Ct;
642            VMR4(V58)}
643          goto T334;          goto T334;
644  T334:;  T334:;
645          {object V56 = Ct;          {object V59 = Cnil;
646          VMR4(V56)}          VMR4(V59)}
         goto T326;  
 T326:;  
         {object V57 = Cnil;  
         VMR4(V57)}  
647          base[0]=base[0];          base[0]=base[0];
648          return Cnil;          return Cnil;
649  }  }
# Line 634  static void L5() Line 654  static void L5()
654          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
655          vs_reserve(VM5);          vs_reserve(VM5);
656          bds_check;          bds_check;
657          {register object V58;          {register object V60;
658          check_arg(1);          check_arg(1);
659          V58=(base[0]);          V60=(base[0]);
660          vs_top=sup;          vs_top=sup;
661          goto TTL;          goto TTL;
662  TTL:;  TTL:;
         {register object V59;  
         register object V60;  
         V59= Cnil;  
         V60= Cnil;  
         if(!(endp_prop((V58)))){  
         goto T340;}  
         (void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0)));  
         goto T340;  
 T340:;  
663          {register object V61;          {register object V61;
664          register object V62;          register object V62;
665          V61= car((V58));          V61= Cnil;
666          V62= car((V61));          V62= Cnil;
667          goto T347;          if(!(endp_prop((V60)))){
 T347:;  
         if(!(endp_prop((V61)))){  
668          goto T348;}          goto T348;}
669          goto T343;          (void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0)));
670          goto T348;          goto T348;
671  T348:;  T348:;
672          {object V63= (V62);          {register object V63;
673          if((V63!= VV[284]))goto T353;          register object V64;
674          V59= Ct;          V63= car((V60));
675          goto T352;          V64= car((V63));
         goto T353;  
 T353:;  
         if((V63!= VV[285]))goto T355;  
         V59= Ct;  
         goto T352;  
676          goto T355;          goto T355;
677  T355:;  T355:;
678          if((V63!= VV[43]))goto T357;          if(!(endp_prop((V63)))){
679          V60= Ct;          goto T356;}
680          goto T352;          goto T351;
681          goto T357;          goto T356;
682  T357:;  T356:;
683          if((V63!= VV[286]))goto T359;          {object V65= (V64);
684          V60= Ct;          if((V65!= VV[284]))goto T361;
685          goto T352;          V61= Ct;
686          goto T359;          goto T360;
 T359:;  
         if((V63!= VV[287]))goto T361;  
         goto T352;  
687          goto T361;          goto T361;
688  T361:;  T361:;
689          if((V63!= VV[288]))goto T362;          if((V65!= VV[285]))goto T363;
690          goto T352;          V61= Ct;
691          goto T362;          goto T360;
692  T362:;          goto T363;
693          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));}  T363:;
694          goto T352;          if((V65!= VV[43]))goto T365;
695  T352:;          V62= Ct;
696          V61= cdr((V61));          goto T360;
697          V62= car((V61));          goto T365;
698          goto T347;}  T365:;
699          goto T343;          if((V65!= VV[286]))goto T367;
700  T343:;          V62= Ct;
701          base[1]= car((V58));          goto T360;
702            goto T367;
703    T367:;
704            if((V65!= VV[287]))goto T369;
705            goto T360;
706            goto T369;
707    T369:;
708            if((V65!= VV[288]))goto T370;
709            goto T360;
710            goto T370;
711    T370:;
712            (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V64))));}
713            goto T360;
714    T360:;
715            V63= cdr((V63));
716            V64= car((V63));
717            goto T355;}
718            goto T351;
719    T351:;
720            base[1]= car((V60));
721          bds_bind(VV[42],base[1]);          bds_bind(VV[42],base[1]);
722          if(((V59))==Cnil){          if(((V61))==Cnil){
723          goto T370;}          goto T378;}
724          base[2]= (*(LnkLI289))(cdr((V58)));          base[2]= (*(LnkLI289))(cdr((V60)));
725          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
726          bds_unwind1;          bds_unwind1;
727          return;          return;
728          goto T370;          goto T378;
729  T370:;  T378:;
730          if(((V60))==Cnil){          if(((V62))==Cnil){
731          goto T373;}          goto T381;}
732          base[2]= make_cons(VV[46],cdr((V58)));          base[2]= make_cons(VV[46],cdr((V60)));
733          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
734          (void) (*Lnk282)();          (void) (*Lnk282)();
735          bds_unwind1;          bds_unwind1;
736          return;          return;
737          goto T373;          goto T381;
738  T373:;  T381:;
739          base[2]= Cnil;          base[2]= Cnil;
740          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
741          bds_unwind1;          bds_unwind1;
# Line 724  T373:; Line 744  T373:;
744  }  }
745  /*      local entry for function T1PROGN        */  /*      local entry for function T1PROGN        */
746    
747  static object LI6(V65)  static object LI6(V67)
748    
749  object V65;  object V67;
750  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
751          bds_check;          bds_check;
752          goto TTL;          goto TTL;
753  TTL:;  TTL:;
754          if(!(equal(car((V65)),VV[47]))){          if(!(equal(car((V67)),VV[47]))){
755          goto T377;}          goto T385;}
756          bds_bind(VV[48],Ct);          bds_bind(VV[48],Ct);
757          {object V66 = (*(LnkLI289))(cdr((V65)));          {object V68 = (*(LnkLI289))(cdr((V67)));
758          bds_unwind1;          bds_unwind1;
759          VMR6(V66)}          VMR6(V68)}
760          goto T377;          goto T385;
761  T377:;  T385:;
762          {register object V67;          {register object V69;
763          register object V68;          register object V70;
764          V67= (V65);          V69= (V67);
765          V68= car((V67));          V70= car((V69));
766          goto T382;          goto T390;
767  T382:;  T390:;
768          if(!(endp_prop((V67)))){          if(!(endp_prop((V69)))){
769          goto T383;}          goto T391;}
770          {object V69 = Cnil;          {object V71 = Cnil;
771          VMR6(V69)}          VMR6(V71)}
772          goto T383;          goto T391;
773  T383:;  T391:;
774          base[1]= (V68);          base[1]= (V70);
775          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
776          (void) (*Lnk271)();          (void) (*Lnk272)();
777          vs_top=sup;          vs_top=sup;
778          V67= cdr((V67));          V69= cdr((V69));
779          V68= car((V67));          V70= car((V69));
780          goto T382;}          goto T390;}
781          base[0]=base[0];          base[0]=base[0];
782          return Cnil;          return Cnil;
783  }  }
784  /*      local entry for function CMPFIX-ARGS    */  /*      local entry for function CMPFIX-ARGS    */
785    
786  static object LI7(V72,V73)  static object LI7(V74,V75)
787    
788  object V72;object V73;  object V74;object V75;
789  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
790          goto TTL;          goto TTL;
791  TTL:;  TTL:;
792          {register object V74;          {register object V76;
793          register object V75;          register object V77;
794          V74= Cnil;          V76= Cnil;
795          base[1]= cadr((V72));          base[1]= cadr((V74));
796          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
797          Lcopy_list();          Lcopy_list();
798          vs_top=sup;          vs_top=sup;
799          V75= vs_base[0];          V77= vs_base[0];
800          {register object V76;          {register object V78;
801          register object V77;          register object V79;
802          V76= (V73);          V78= (V75);
803          V77= car((V76));          V79= car((V78));
804          goto T401;          goto T409;
805  T401:;  T409:;
806          if(!(endp_prop((V76)))){          if(!(endp_prop((V78)))){
807          goto T402;}          goto T410;}
808          goto T397;          goto T405;
809          goto T402;          goto T410;
810  T402:;  T410:;
811          {register object x= car((V77)),V78= (V75);          {register object x= car((V79)),V80= (V77);
812          while(!endp(V78))          while(!endp(V80))
813          if(eql(x,V78->c.c_car)){          if(eql(x,V80->c.c_car)){
814          V74= V78;          V76= V80;
815          goto T407;          goto T415;
816          }else V78=V78->c.c_cdr;          }else V80=V80->c.c_cdr;
817          V74= Cnil;}          V76= Cnil;}
818          goto T407;          goto T415;
819  T407:;  T415:;
820          if((V74)==Cnil){          if((V76)==Cnil){
821          goto T408;}          goto T416;}
822          {register object V79;          {register object V81;
823          register object V80;          register object V82;
824          V79= (V74);          V81= (V76);
825          V80= cadr((V77));          V82= cadr((V79));
826          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));          if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81));
827          ((V79))->c.c_car = (V80);}          ((V81))->c.c_car = (V82);}
828          goto T408;          goto T416;
829  T408:;  T416:;
830          V76= cdr((V76));          V78= cdr((V78));
831          V77= car((V76));          V79= car((V78));
832          goto T401;}          goto T409;}
833          goto T397;          goto T405;
834  T397:;  T405:;
835          {register object x= VV[49],V81= (V75);          {register object x= VV[49],V83= (V77);
836          while(!endp(V81))          while(!endp(V83))
837          if(eql(x,V81->c.c_car)){          if(eql(x,V83->c.c_car)){
838          V74= V81;          V76= V83;
839          goto T421;          goto T429;
840          }else V81=V81->c.c_cdr;          }else V83=V83->c.c_cdr;
841          V74= Cnil;}          V76= Cnil;}
842          goto T421;          goto T429;
843  T421:;  T429:;
844          if(((V74))==Cnil){          if(((V76))==Cnil){
845          goto T419;}          goto T427;}
846          {object V83;          {object V85;
847          V83= append((V73),cdr((V74)));          V85= append((V75),cdr((V76)));
848          if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74);          if(type_of(V76)!=t_cons)FEwrong_type_argument(Scons,V76);
849          (V74)->c.c_cdr = (V83);          (V76)->c.c_cdr = (V85);
850          goto T417;}          goto T425;}
851          goto T419;          goto T427;
852  T419:;  T427:;
853          V84= make_cons(VV[49],(V73));          V86= make_cons(VV[49],(V75));
854          V75= append((V75),/* INLINE-ARGS */V84);          V77= append((V77),/* INLINE-ARGS */V86);
855          goto T417;          goto T425;
856  T417:;  T425:;
857          {object V85 = listA(3,car((V72)),(V75),cddr((V72)));          {object V87 = listA(3,car((V74)),(V77),cddr((V74)));
858          VMR7(V85)}}          VMR7(V87)}}
859          base[0]=base[0];          base[0]=base[0];
860          return Cnil;          return Cnil;
861  }  }
862  /*      local entry for function T1DEFUN        */  /*      local entry for function T1DEFUN        */
863    
864  static object LI8(V87)  static object LI8(V89)
865    
866  object V87;  object V89;
867  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
868          bds_check;          bds_check;
869          goto TTL;          goto TTL;
870  TTL:;  TTL:;
871          {object V88;          {object V90;
872          V88= symbol_value(VV[50]);          V90= symbol_value(VV[50]);
873          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
874          if(endp_prop((V87))){          if(endp_prop((V89))){
875          goto T427;}          goto T435;}
876          if(!(endp_prop(cdr((V87))))){          if(!(endp_prop(cdr((V89))))){
877          goto T426;}          goto T434;}
878          goto T427;          goto T435;
879  T427:;  T435:;
880          V90 = make_fixnum((long)length((V87)));          V92 = make_fixnum((long)length((V89)));
881          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V90));          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V92));
882          goto T426;          goto T434;
883  T426:;  T434:;
884          if(type_of(car((V87)))==t_symbol){          if(type_of(car((V89)))==t_symbol){
885          goto T431;}          goto T439;}
886          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V89)))));
887          goto T431;          goto T439;
888  T431:;  T439:;
889          V91= make_cons(VV[51],(V87));          V93= make_cons(VV[51],(V89));
890          (void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91));          (void)((*(LnkLI268))(Cnil,/* INLINE-ARGS */V93));
891          goto T436;          goto T444;
892  T436:;  T444:;
893          setq(VV[6],Ct);          setq(VV[6],Ct);
894          setq(VV[54],Cnil);          setq(VV[54],Cnil);
895          {register object V92;          {register object V94;
896          object V93;          object V95;
897          object V94;          object V96;
898          register object V95;{object V96;          register object V97;{object V98;
899          V96= get(car((V87)),VV[60],Cnil);          V98= get(car((V89)),VV[60],Cnil);
900          if(V96==Cnil)goto T443;          if(V98==Cnil)goto T451;
901          V93= V96;          V95= V98;
902          goto T442;          goto T450;
903          goto T443;          goto T451;
904  T443:;}  T451:;}
905          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
906          V93= symbol_value(VV[61]);          V95= symbol_value(VV[61]);
907          goto T442;          goto T450;
908  T442:;  T450:;
909          V95= car((V87));          V97= car((V89));
910          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
911          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
912          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
913          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
         V92= Cnil;  
         bds_bind(VV[59],Cnil);  
914          V94= Cnil;          V94= Cnil;
915          V92= (VFUN_NARGS=2,(*(LnkLI290))(cdr((V87)),(V95)));          bds_bind(VV[59],Cnil);
916          if(!(eql((V88),symbol_value(VV[50])))){          V96= Cnil;
917          goto T450;}          V94= (VFUN_NARGS=2,(*(LnkLI290))(cdr((V89)),(V97)));
918          goto T449;          if(!(eql((V90),symbol_value(VV[50])))){
919          goto T450;          goto T458;}
920  T450:;          goto T457;
921          (void)(structure_set(cadr((V92)),VV[62],4,Ct));          goto T458;
922          goto T449;  T458:;
923  T449:;          (void)(structure_set(cadr((V94)),VV[62],4,Ct));
924          V97= structure_ref(cadr((V92)),VV[62],1);          goto T457;
925          (void)((*(LnkLI291))(/* INLINE-ARGS */V97));  T457:;
926          if((get((V95),VV[63],Cnil))==Cnil){          V99= structure_ref(cadr((V94)),VV[62],1);
927          goto T453;}          (void)((*(LnkLI291))(/* INLINE-ARGS */V99));
928          {object V98;          if((get((V97),VV[63],Cnil))==Cnil){
929          V98= make_fixnum((long)length(car(caddr((V92)))));          goto T461;}
930          (void)(sputprop((V95),VV[63],(V98)));          {object V100;
931          base[6]= (V98);          V100= make_fixnum((long)length(car(caddr((V94)))));
932            (void)(sputprop((V97),VV[63],(V100)));
933            base[6]= (V100);
934          base[7]= VV[65];          base[7]= VV[65];
935          base[8]= Ct;          base[8]= Ct;
936          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
937          Lmake_list();          Lmake_list();
938          vs_top=sup;          vs_top=sup;
939          V99= vs_base[0];          V101= vs_base[0];
940          V100= list(4,VV[64],(V95),V99,Ct);          V102= list(4,VV[64],(V97),V101,Ct);
941          (void)((*(LnkLI292))(/* INLINE-ARGS */V100));}          (void)((*(LnkLI292))(/* INLINE-ARGS */V102));}
942          goto T453;          goto T461;
943  T453:;  T461:;
944          if((get((V95),VV[66],Cnil))==Cnil){          if((get((V97),VV[66],Cnil))==Cnil){
945          goto T464;}          goto T472;}
946          {object V101;          {object V103;
         register object V102;  
         V101= caddr((V92));  
         V102= Cnil;  
         if((cadr((V101)))==Cnil){  
         goto T469;}  
         goto T464;  
         goto T469;  
 T469:;  
         if((caddr((V101)))==Cnil){  
         goto T471;}  
         goto T464;  
         goto T471;  
 T471:;  
         if((cadddr((V101)))==Cnil){  
         goto T473;}  
         goto T464;  
         goto T473;  
 T473:;  
         if(((long)length(car((V101))))<(64)){  
         goto T475;}  
         goto T464;  
         goto T475;  
 T475:;  
         {register object V103;  
947          register object V104;          register object V104;
948          object V105;          V103= caddr((V94));
949          V103= car((V101));          V104= Cnil;
950          V104= get((V95),VV[67],Cnil);          if((cadr((V103)))==Cnil){
951          V105= Cnil;          goto T477;}
952          goto T482;          goto T472;
953  T482:;          goto T477;
954          if(!(endp_prop((V103)))){  T477:;
955            if((caddr((V103)))==Cnil){
956            goto T479;}
957            goto T472;
958            goto T479;
959    T479:;
960            if((cadddr((V103)))==Cnil){
961            goto T481;}
962            goto T472;
963            goto T481;
964    T481:;
965            if(((long)length(car((V103))))<(64)){
966          goto T483;}          goto T483;}
967          if(endp_prop((V104))){          goto T472;
968          goto T486;}          goto T483;
969          goto T478;  T483:;
970            {register object V105;
971            register object V106;
972            object V107;
973            V105= car((V103));
974            V106= get((V97),VV[67],Cnil);
975            V107= Cnil;
976            goto T490;
977    T490:;
978            if(!(endp_prop((V105)))){
979            goto T491;}
980            if(endp_prop((V106))){
981            goto T494;}
982          goto T486;          goto T486;
983  T486:;          goto T494;
984          if(((V102))==Cnil){  T494:;
985          goto T489;}          if(((V104))==Cnil){
986          V87= (*(LnkLI293))((V87),(V102));          goto T497;}
987            V89= (*(LnkLI293))((V89),(V104));
988          bds_unwind1;          bds_unwind1;
989          bds_unwind1;          bds_unwind1;
990          bds_unwind1;          bds_unwind1;
991          bds_unwind1;          bds_unwind1;
992          bds_unwind1;          bds_unwind1;
993          goto T436;          goto T444;
994          goto T489;          goto T497;
995  T489:;  T497:;
996          if(((V105))==Cnil){          if(((V107))==Cnil){
997          goto T477;}          goto T485;}
998          goto T478;          goto T486;
999          goto T483;          goto T491;
1000  T483:;  T491:;
1001          {register object V106;          {register object V108;
1002          V106= car((V103));          V108= car((V105));
1003          if(!(equal(car((V104)),VV[68]))){          if(!(equal(car((V106)),VV[68]))){
1004          goto T496;}          goto T504;}
1005          goto T478;          goto T486;
1006          goto T496;          goto T504;
1007  T496:;  T504:;
1008          V107= structure_ref((V106),VV[69],1);          V109= structure_ref((V108),VV[69],1);
1009          if((/* INLINE-ARGS */V107)==(VV[70])){          if((/* INLINE-ARGS */V109)==(VV[70])){
1010          goto T502;}          goto T510;}
1011          V108= structure_ref((V106),VV[69],1);          V110= structure_ref((V108),VV[69],1);
1012          if(!((/* INLINE-ARGS */V108)==(VV[71]))){          if(!((/* INLINE-ARGS */V110)==(VV[71]))){
1013          goto T501;}          goto T509;}
1014          if(!((car((V104)))==(Ct))){          if(!((car((V106)))==(Ct))){
1015          goto T501;}          goto T509;}
1016          goto T502;          goto T510;
1017  T502:;  T510:;
1018          if((structure_ref((V106),VV[69],3))!=Cnil){          if((structure_ref((V108),VV[69],3))!=Cnil){
1019          goto T501;}          goto T509;}
1020          V109= structure_ref((V106),VV[69],4);          V111= structure_ref((V108),VV[69],4);
1021          if(!((/* INLINE-ARGS */V109)==(VV[72]))){          if(!((/* INLINE-ARGS */V111)==(VV[72]))){
1022          goto T500;}          goto T508;}
1023          goto T501;          goto T509;
1024  T501:;  T509:;
1025          {object V110;          {object V112;
1026          V111= structure_ref((V106),VV[69],0);          V113= structure_ref((V108),VV[69],0);
1027          vs_base=vs_top;          vs_base=vs_top;
1028          Lgensym();          Lgensym();
1029          vs_top=sup;          vs_top=sup;
1030          V112= vs_base[0];          V114= vs_base[0];
1031          V110= list(2,/* INLINE-ARGS */V111,V112);          V112= list(2,/* INLINE-ARGS */V113,V114);
1032          V102= make_cons((V110),(V102));}          V104= make_cons((V112),(V104));}
1033          goto T500;          goto T508;
1034  T500:;  T508:;
1035          V113= car((V104));          V115= car((V106));
1036          V114= structure_ref((V106),VV[69],5);          V116= structure_ref((V108),VV[69],5);
1037          if(((*(LnkLI294))(/* INLINE-ARGS */V113,/* INLINE-ARGS */V114))==Cnil){          if(((*(LnkLI294))(/* INLINE-ARGS */V115,/* INLINE-ARGS */V116))==Cnil){
1038          goto T499;}          goto T507;}
1039          {register object x= car((V104)),V115= VV[73];          {register object x= car((V106)),V117= VV[73];
         while(!endp(V115))  
         if(eql(x,V115->c.c_car)){  
         goto T494;  
         }else V115=V115->c.c_cdr;}  
         V116= structure_ref((V106),VV[69],4);  
         if((/* INLINE-ARGS */V116)==(VV[74])){  
         goto T494;}  
         if((symbol_value(VV[75]))!=Cnil){  
         goto T494;}  
         V118= structure_ref(cadr((V92)),VV[62],0);  
         {register object x= (V106),V117= /* INLINE-ARGS */V118;  
1040          while(!endp(V117))          while(!endp(V117))
1041          if(eql(x,V117->c.c_car)){          if(eql(x,V117->c.c_car)){
1042          goto T524;          goto T502;
1043          }else V117=V117->c.c_cdr;          }else V117=V117->c.c_cdr;}
1044          goto T494;}          V118= structure_ref((V108),VV[69],4);
1045          goto T524;          if((/* INLINE-ARGS */V118)==(VV[74])){
1046  T524:;          goto T502;}
1047          goto T499;          if((symbol_value(VV[75]))!=Cnil){
1048  T499:;          goto T502;}
1049          if(((V102))!=Cnil){          V120= structure_ref(cadr((V94)),VV[62],0);
1050          goto T525;}          {register object x= (V108),V119= /* INLINE-ARGS */V120;
1051          V119= structure_ref((V106),VV[69],0);          while(!endp(V119))
1052          (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119)));          if(eql(x,V119->c.c_car)){
1053          goto T525;          goto T532;
1054  T525:;          }else V119=V119->c.c_cdr;
1055          V105= Ct;}          goto T502;}
1056          goto T494;          goto T532;
1057  T494:;  T532:;
1058          V103= cdr((V103));          goto T507;
1059          V104= cdr((V104));  T507:;
1060          goto T482;}          if(((V104))!=Cnil){
1061          goto T478;          goto T533;}
1062  T478:;          V121= structure_ref((V108),VV[69],0);
1063          goto T464;          (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V97),/* INLINE-ARGS */V121)));
1064          goto T477;          goto T533;
1065  T477:;  T533:;
1066          if(!(type_of((V93))==t_fixnum||          V107= Ct;}
1067  type_of((V93))==t_bignum||          goto T502;
1068  type_of((V93))==t_ratio||  T502:;
1069  type_of((V93))==t_shortfloat||          V105= cdr((V105));
1070  type_of((V93))==t_longfloat||          V106= cdr((V106));
1071  type_of((V93))==t_complex)){          goto T490;}
1072          goto T464;}}          goto T486;
1073          {object V120;  T486:;
1074          V121= get((V95),VV[67],Cnil);          goto T472;
1075          V122= get((V95),VV[77],Cnil);          goto T485;
1076          V123= get((V95),VV[67],Cnil);  T485:;
1077          V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI295))((V93),V123));          if(!(type_of((V95))==t_fixnum||
1078          setq(VV[78],make_cons((V120),symbol_value(VV[78])));  type_of((V95))==t_bignum||
1079          goto T462;}  type_of((V95))==t_ratio||
1080          goto T464;  type_of((V95))==t_shortfloat||
1081  T464:;  type_of((V95))==t_longfloat||
1082          {object V124;  type_of((V95))==t_complex)){
1083          V125= get((V95),VV[77],Cnil);          goto T472;}}
1084          V124= ((V125)==(Ct)?Ct:Cnil);          {object V122;
1085          if(((V124))==Cnil){          V123= get((V97),VV[67],Cnil);
1086          goto T462;}}          V124= get((V97),VV[77],Cnil);
1087          goto T462;          V125= get((V97),VV[67],Cnil);
1088  T462:;          V122= list(5,(V97),V123,V124,small_fixnum(3),(*(LnkLI295))((V95),V125));
1089          if((cadddr((V92)))==Cnil){          setq(VV[78],make_cons((V122),symbol_value(VV[78])));
1090          goto T542;}          goto T470;}
1091          V94= cadddr((V92));          goto T472;
1092          goto T542;  T472:;
 T542:;  
         (void)((*(LnkLI296))());  
1093          {object V126;          {object V126;
1094          V126= list(6,VV[51],(V95),(V93),(V92),(V94),(VV[59]->s.s_dbind));          V127= get((V97),VV[77],Cnil);
1095          setq(VV[24],make_cons((V126),symbol_value(VV[24])));}          V126= ((V127)==(Ct)?Ct:Cnil);
1096          {object V127;          if(((V126))==Cnil){
1097          V127= make_cons((V95),(V93));          goto T470;}}
1098          setq(VV[79],make_cons((V127),symbol_value(VV[79])));          goto T470;
1099          V128= symbol_value(VV[79]);  T470:;
1100            if((cadddr((V94)))==Cnil){
1101            goto T550;}
1102            V96= cadddr((V94));
1103            goto T550;
1104    T550:;
1105            (void)((*(LnkLI296))());
1106            {object V128;
1107            V128= list(6,VV[51],(V97),(V95),(V94),(V96),(VV[59]->s.s_dbind));
1108            setq(VV[24],make_cons((V128),symbol_value(VV[24])));}
1109            {object V129;
1110            V129= make_cons((V97),(V95));
1111            setq(VV[79],make_cons((V129),symbol_value(VV[79])));
1112            V130= symbol_value(VV[79]);
1113          bds_unwind1;          bds_unwind1;
1114          bds_unwind1;          bds_unwind1;
1115          bds_unwind1;          bds_unwind1;
1116          bds_unwind1;          bds_unwind1;
1117          bds_unwind1;}}          bds_unwind1;}}
1118          {object V129 = Cnil;          {object V131 = Cnil;
1119          bds_unwind1;          bds_unwind1;
1120          VMR8(V129)}}          VMR8(V131)}}
1121          base[0]=base[0];          base[0]=base[0];
1122          return Cnil;          return Cnil;
1123  }  }
1124  /*      local entry for function MAKE-INLINE-STRING     */  /*      local entry for function MAKE-INLINE-STRING     */
1125    
1126  static object LI9(V132,V133)  static object LI9(V134,V135)
1127    
1128  object V132;object V133;  object V134;object V135;
1129  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1130          goto TTL;          goto TTL;
1131  TTL:;  TTL:;
1132          if(((V133))!=Cnil){          if(((V135))!=Cnil){
1133          goto T553;}          goto T561;}
1134          base[0]= Cnil;          base[0]= Cnil;
1135          base[1]= VV[80];          base[1]= VV[80];
1136          base[2]= (V132);          base[2]= (V134);
1137          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1138          Lformat();          Lformat();
1139          vs_top=sup;          vs_top=sup;
1140          {object V134 = vs_base[0];          {object V136 = vs_base[0];
1141          VMR9(V134)}          VMR9(V136)}
1142          goto T553;          goto T561;
1143  T553:;  T561:;
1144          {register object V135;          {register object V137;
1145          V135= (VFUN_NARGS=7,(*(LnkLI297))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));          V137= (VFUN_NARGS=7,(*(LnkLI297))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));
1146          base[0]= (V135);          base[0]= (V137);
1147          base[1]= VV[85];          base[1]= VV[85];
1148          base[2]= (V132);          base[2]= (V134);
1149          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1150          Lformat();          Lformat();
1151          vs_top=sup;          vs_top=sup;
1152          {register object V136;          {register object V138;
1153          register long V137;          register long V139;
1154          V137= 0;          V139= 0;
1155          V136= (V133);          V138= (V135);
1156          goto T566;          goto T574;
1157  T566:;  T574:;
1158          if(!(endp_prop(cdr((V136))))){          if(!(endp_prop(cdr((V138))))){
1159          goto T567;}          goto T575;}
1160          base[0]= (V135);          base[0]= (V137);
1161          base[1]= VV[86];          base[1]= VV[86];
1162          base[2]= make_fixnum(V137);          base[2]= make_fixnum(V139);
1163          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1164          Lformat();          Lformat();
1165          vs_top=sup;          vs_top=sup;
1166          goto T563;          goto T571;
1167          goto T567;          goto T575;
1168  T567:;  T575:;
1169          base[0]= (V135);          base[0]= (V137);
1170          base[1]= VV[87];          base[1]= VV[87];
1171          base[2]= make_fixnum(V137);          base[2]= make_fixnum(V139);
1172          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1173          Lformat();          Lformat();
1174          vs_top=sup;          vs_top=sup;
1175          V136= cdr((V136));          V138= cdr((V138));
1176          V137= (long)(V137)+1;          V139= (long)(V139)+1;
1177          goto T566;}          goto T574;}
1178          goto T563;          goto T571;
1179  T563:;  T571:;
1180          {object V138 = (V135);          {object V140 = (V137);
1181          VMR9(V138)}}          VMR9(V140)}}
1182          base[0]=base[0];          base[0]=base[0];
1183          return Cnil;          return Cnil;
1184  }  }
# Line 1168  static object LI10(object first,...) Line 1188  static object LI10(object first,...)
1188  {        {      
1189          va_list ap;          va_list ap;
1190          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
1191          {object V139;          {object V141;
1192          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1193          va_start(ap,first);          va_start(ap,first);
1194          narg = narg - 0;          narg = narg - 0;
1195          if (narg <= 0) goto T582;          if (narg <= 0) goto T590;
1196          else {          else {
1197          V139= first;}          V141= first;}
1198          --narg; goto T583;          --narg; goto T591;
         goto T582;  
 T582:;  
         V139= Cnil;  
         goto T583;  
 T583:;  
         {object V140;  
         setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));  
         V140= symbol_value(VV[88]);  
         {object V141;  
         if(((V139))==Cnil){  
         goto T590;}  
         V141= make_cons((V139),(V140));  
         goto T588;  
1199          goto T590;          goto T590;
1200  T590:;  T590:;
1201          V141= (V140);          V141= Cnil;
1202          goto T588;          goto T591;
1203  T588:;  T591:;
1204          setq(VV[18],make_cons((V141),symbol_value(VV[18])));}          {object V142;
1205          {object V142 = (V140);          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1206          VMR10(V142)}}          V142= symbol_value(VV[88]);
1207            {object V143;
1208            if(((V141))==Cnil){
1209            goto T598;}
1210            V143= make_cons((V141),(V142));
1211            goto T596;
1212            goto T598;
1213    T598:;
1214            V143= (V142);
1215            goto T596;
1216    T596:;
1217            setq(VV[18],make_cons((V143),symbol_value(VV[18])));}
1218            {object V144 = (V142);
1219            VMR10(V144)}}
1220          va_end(ap);          va_end(ap);
1221          base[0]=base[0];          base[0]=base[0];
1222          return Cnil;}          return Cnil;}
1223          }          }
1224  /*      local entry for function F-TYPE */  /*      local entry for function F-TYPE */
1225    
1226  static object LI11(V144)  static object LI11(V146)
1227    
1228  register object V144;  register object V146;
1229  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
1230          goto TTL;          goto TTL;
1231  TTL:;  TTL:;
1232          base[0]= (V144);          base[0]= (V146);
1233          base[1]= VV[69];          base[1]= VV[69];
1234          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1235          (void) (*Lnk298)();          (void) (*Lnk298)();
1236          vs_top=sup;          vs_top=sup;
1237          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1238          goto T593;}          goto T601;}
1239          V144= structure_ref((V144),VV[69],5);          V146= structure_ref((V146),VV[69],5);
1240          goto T593;          goto T601;
1241  T593:;  T601:;
1242          if(((V144))==Cnil){          if(((V146))==Cnil){
1243          goto T600;}          goto T608;}
1244          base[0]= (V144);          base[0]= (V146);
1245          base[1]= VV[89];          base[1]= VV[89];
1246          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1247          (void) (*Lnk299)();          (void) (*Lnk299)();
1248          vs_top=sup;          vs_top=sup;
1249          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1250          goto T600;}          goto T608;}
1251          {long V145 = 1;          {long V147 = 1;
1252          VMR11((object)V145)}          VMR11((object)V147)}
1253          goto T600;          goto T608;
1254  T600:;  T608:;
1255          {long V146 = 0;          {long V148 = 0;
1256          VMR11((object)V146)}          VMR11((object)V148)}
1257          base[0]=base[0];          base[0]=base[0];
1258  }  }
1259  /*      local entry for function PROCLAIMED-ARGD        */  /*      local entry for function PROCLAIMED-ARGD        */
1260    
1261  static object LI12(V149,V150)  static object LI12(V151,V152)
1262    
1263  register object V149;object V150;  register object V151;object V152;
1264  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1265          goto TTL;          goto TTL;
1266  TTL:;  TTL:;
1267          {register long V151;          {register long V153;
1268          register long V152;          register long V154;
1269          register object V153;          register object V155;
1270          register object V154;          register object V156;
1271          V151= (long)length((V149));          V153= (long)length((V151));
1272          V152= 8;          V154= 8;
1273          V153= make_fixnum((long)(*(LnkLI300))((V150)));          V155= make_fixnum((long)(*(LnkLI300))((V152)));
1274          V154= Ct;          V156= Ct;
1275          goto T610;          goto T618;
1276  T610:;  T618:;
1277          if(eql(small_fixnum(0),(V153))){          if(eql(small_fixnum(0),(V155))){
1278          goto T612;}          goto T620;}
1279          V151= (long)(V151)+((long)((fix((V153))) << (V152)));          V153= (long)(V153)+((long)((fix((V155))) << (V154)));
1280          goto T612;          goto T620;
1281  T612:;  T620:;
1282          if(((V154))==Cnil){          if(((V156))==Cnil){
1283          goto T616;}          goto T624;}
1284          V152= 10;          V154= 10;
1285          V154= Cnil;          V156= Cnil;
1286          goto T616;          goto T624;
1287  T616:;  T624:;
1288          if(((V149))!=Cnil){          if(((V151))!=Cnil){
1289          goto T622;}          goto T630;}
1290          {long V155 = V151;          {long V157 = V153;
1291          VMR12((object)V155)}          VMR12((object)V157)}
1292          goto T622;          goto T630;
1293  T622:;  T630:;
1294          V152= (long)(V152)+(2);          V154= (long)(V154)+(2);
1295          {register object V157;          {register object V159;
1296          V157= car((V149));          V159= car((V151));
1297          V149= cdr((V149));          V151= cdr((V151));
1298          V156= (V157);}          V158= (V159);}
1299          V153= make_fixnum((long)(*(LnkLI300))(V156));          V155= make_fixnum((long)(*(LnkLI300))(V158));
1300          goto T610;}          goto T618;}
1301  }  }
1302  /*      local entry for function WT-IF-PROCLAIMED       */  /*      local entry for function WT-IF-PROCLAIMED       */
1303    
1304  static object LI13(V161,V162,V163)  static object LI13(V163,V164,V165)
1305    
1306  register object V161;object V162;object V163;  register object V163;object V164;object V165;
1307  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1308          goto TTL;          goto TTL;
1309  TTL:;  TTL:;
1310          if(((VFUN_NARGS=1,(*(LnkLI302))((V161))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI302))((V163))))==Cnil){
1311          goto T634;}          goto T642;}
1312          {register object x= (V161),V164= symbol_value(VV[78]);          {register object x= (V163),V166= symbol_value(VV[78]);
1313          while(!endp(V164))          while(!endp(V166))
1314          if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){          if(type_of(V166->c.c_car)==t_cons &&eql(x,V166->c.c_car->c.c_car)){
         goto T638;  
         }else V164=V164->c.c_cdr;  
         goto T637;}  
         goto T638;  
 T638:;  
         V165= list(2,VV[91],(V161));  
         V166= (*(LnkLI304))(VV[92],(V162));  
         V167= get((V161),VV[67],Cnil);  
         V168= get((V161),VV[77],Cnil);  
         V169 = make_fixnum((long)(*(LnkLI305))(V167,V168));  
         V170= list(4,VV[90],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,V169);  
         (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V170)));  
         {object V171 = Ct;  
         VMR13(V171)}  
         goto T637;  
 T637:;  
         {register object V172;  
         register object V173;  
         object V174;  
         V172= make_fixnum((long)length(car(caddr((V163)))));  
         V175= get((V161),VV[67],Cnil);  
         V173= make_fixnum((long)length(V175));  
         V177= get((V161),VV[67],Cnil);  
         {register object x= VV[68],V176= V177;  
         while(!endp(V176))  
         if(eql(x,V176->c.c_car)){  
         V174= V176;  
1315          goto T646;          goto T646;
1316          }else V176=V176->c.c_cdr;          }else V166=V166->c.c_cdr;
1317          V174= Cnil;}          goto T645;}
1318          goto T646;          goto T646;
1319  T646:;  T646:;
1320          if(((V174))==Cnil){          V167= list(2,VV[91],(V163));
1321          goto T649;}          V168= (*(LnkLI304))(VV[92],(V164));
1322          base[0]= (V172);          V169= get((V163),VV[67],Cnil);
1323            V170= get((V163),VV[77],Cnil);
1324            V171 = make_fixnum((long)(*(LnkLI305))(V169,V170));
1325            V172= list(4,VV[90],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,V171);
1326            (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V172)));
1327            {object V173 = Ct;
1328            VMR13(V173)}
1329            goto T645;
1330    T645:;
1331            {register object V174;
1332            register object V175;
1333            object V176;
1334            V174= make_fixnum((long)length(car(caddr((V165)))));
1335            V177= get((V163),VV[67],Cnil);
1336            V175= make_fixnum((long)length(V177));
1337            V179= get((V163),VV[67],Cnil);
1338            {register object x= VV[68],V178= V179;
1339            while(!endp(V178))
1340            if(eql(x,V178->c.c_car)){
1341            V176= V178;
1342            goto T654;
1343            }else V178=V178->c.c_cdr;
1344            V176= Cnil;}
1345            goto T654;
1346    T654:;
1347            if(((V176))==Cnil){
1348            goto T657;}
1349            base[0]= (V174);
1350          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1351          Lmonotonically_nonincreasing();          Lmonotonically_nonincreasing();
1352          vs_top=sup;          vs_top=sup;
1353          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1354          goto T651;}          goto T659;}
1355          goto T642;          goto T650;
1356          goto T651;          goto T659;
1357  T651:;{object V178;  T659:;{object V180;
1358          V179 = make_fixnum((long)length((V174)));          V181 = make_fixnum((long)length((V176)));
1359          V178= number_minus((V173),V179);          V180= number_minus((V175),V181);
1360          if(V178==Cnil)goto T654;          if(V180==Cnil)goto T662;
1361          goto T642;          goto T650;
1362          goto T654;          goto T662;
1363  T654:;}  T662:;}
1364          V180 = make_fixnum((long)length((V174)));          V182 = make_fixnum((long)length((V176)));
1365          V181= number_minus((V173),V180);          V183= number_minus((V175),V182);
1366          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172))));          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V163),/* INLINE-ARGS */V183,(V174))));
1367          goto T642;          goto T650;
         goto T649;  
 T649:;  
         if(eql((V172),(V173))){  
         goto T657;}  
         (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172))));  
         goto T642;  
1368          goto T657;          goto T657;
1369  T657:;  T657:;
1370          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));}          if(eql((V174),(V175))){
1371            goto T665;}
1372            (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V163),(V175),(V174))));
1373            goto T650;
1374            goto T665;
1375    T665:;
1376            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V163))));}
1377            goto T650;
1378    T650:;
1379            {object V184 = Cnil;
1380            VMR13(V184)}
1381          goto T642;          goto T642;
1382  T642:;  T642:;
1383          {object V182 = Cnil;          {object V185 = Cnil;
1384          VMR13(V182)}          VMR13(V185)}
         goto T634;  
 T634:;  
         {object V183 = Cnil;  
         VMR13(V183)}  
1385          base[0]=base[0];          base[0]=base[0];
1386          return Cnil;          return Cnil;
1387  }  }
1388  /*      local entry for function VOLATILE       */  /*      local entry for function VOLATILE       */
1389    
1390  static object LI14(V185)  static object LI14(V187)
1391    
1392  object V185;  object V187;
1393  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1394          goto TTL;          goto TTL;
1395  TTL:;  TTL:;
1396          if((structure_ref((V185),VV[62],4))==Cnil){          if((structure_ref((V187),VV[62],4))==Cnil){
1397          goto T660;}          goto T668;}
1398          {object V186 = VV[96];          {object V188 = VV[96];
1399          VMR14(V186)}          VMR14(V188)}
1400          goto T660;          goto T668;
1401  T660:;  T668:;
1402          {object V187 = VV[97];          {object V189 = VV[97];
1403          VMR14(V187)}          VMR14(V189)}
1404          return Cnil;          return Cnil;
1405  }  }
1406  /*      local entry for function REGISTER       */  /*      local entry for function REGISTER       */
1407    
1408  static object LI15(V189)  static object LI15(V191)
1409    
1410  object V189;  object V191;
1411  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1412          goto TTL;          goto TTL;
1413  TTL:;  TTL:;
1414          if(!(equal(symbol_value(VV[20]),VV[98]))){          if(!(equal(symbol_value(VV[20]),VV[98]))){
1415          goto T663;}          goto T671;}
1416          {long V190= fix(structure_ref((V189),VV[69],6));          {long V192= fix(structure_ref((V191),VV[69],6));
1417          if(!((/* INLINE-ARGS */V190)>=(fix(symbol_value(VV[99]))))){          if(!((/* INLINE-ARGS */V192)>=(fix(symbol_value(VV[99]))))){
1418          goto T663;}}          goto T671;}}
1419          {object V191 = VV[100];          {object V193 = VV[100];
1420          VMR15(V191)}          VMR15(V193)}
1421          goto T663;          goto T671;
1422  T663:;  T671:;
1423          {object V192 = VV[101];          {object V194 = VV[101];
1424          VMR15(V192)}          VMR15(V194)}
1425          return Cnil;          return Cnil;
1426  }  }
1427  /*      local entry for function VARARG-P       */  /*      local entry for function VARARG-P       */
1428    
1429  static object LI16(V194)  static object LI16(V196)
1430    
1431  object V194;  object V196;
1432  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1433          goto TTL;          goto TTL;
1434  TTL:;  TTL:;
1435          V195= get((V194),VV[77],Cnil);          V197= get((V196),VV[77],Cnil);
1436          if(equal(V195,Ct)){          if(equal(V197,Ct)){
1437          goto T667;}          goto T675;}
1438          {object V196 = Cnil;          {object V198 = Cnil;
         VMR16(V196)}  
         goto T667;  
 T667:;  
         {register object V197;  
         V197= get((V194),VV[67],Cnil);  
         goto T672;  
 T672:;  
         if(((V197))!=Cnil){  
         goto T673;}  
         {object V198 = Ct;  
1439          VMR16(V198)}          VMR16(V198)}
1440          goto T673;          goto T675;
1441  T673:;  T675:;
1442          if(!(type_of((V197))==t_cons)){          {register object V199;
1443          goto T678;}          V199= get((V196),VV[67],Cnil);
         goto T677;  
         goto T678;  
 T678:;  
         {object V199 = Cnil;  
         VMR16(V199)}  
         goto T677;  
 T677:;  
         if(!((car((V197)))==(Ct))){  
         goto T681;}  
1444          goto T680;          goto T680;
1445    T680:;
1446            if(((V199))!=Cnil){
1447            goto T681;}
1448            {object V200 = Ct;
1449            VMR16(V200)}
1450          goto T681;          goto T681;
1451  T681:;  T681:;
1452          if(!((car((V197)))==(VV[68]))){          if(!(type_of((V199))==t_cons)){
1453          goto T683;}          goto T686;}
1454          goto T680;          goto T685;
1455          goto T683;          goto T686;
1456  T683:;  T686:;
1457          {object V200 = Cnil;          {object V201 = Cnil;
1458          VMR16(V200)}          VMR16(V201)}
1459          goto T680;          goto T685;
1460  T680:;  T685:;
1461          V197= cdr((V197));          if(!((car((V199)))==(Ct))){
1462          goto T672;}          goto T689;}
1463            goto T688;
1464            goto T689;
1465    T689:;
1466            if(!((car((V199)))==(VV[68]))){
1467            goto T691;}
1468            goto T688;
1469            goto T691;
1470    T691:;
1471            {object V202 = Cnil;
1472            VMR16(V202)}
1473            goto T688;
1474    T688:;
1475            V199= cdr((V199));
1476            goto T680;}
1477          return Cnil;          return Cnil;
1478  }  }
1479  /*      local entry for function MAXARGS        */  /*      local entry for function MAXARGS        */
1480    
1481  static object LI17(V202)  static object LI17(V204)
1482    
1483  register object V202;  register object V204;
1484  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1485          goto TTL;          goto TTL;
1486  TTL:;  TTL:;
1487          if((cadddr((V202)))!=Cnil){          if((cadddr((V204)))!=Cnil){
1488          goto T688;}          goto T696;}
1489          if((caddr((V202)))==Cnil){          if((caddr((V204)))==Cnil){
1490          goto T689;}          goto T697;}
1491          goto T688;          goto T696;
1492  T688:;  T696:;
1493          {object V203 = small_fixnum(64);          {object V205 = small_fixnum(64);
1494          VMR17(V203)}          VMR17(V205)}
1495          goto T689;          goto T697;
1496  T689:;  T697:;
1497          base[0]= make_fixnum((long)length(car((V202))));          base[0]= make_fixnum((long)length(car((V204))));
1498          base[1]= make_fixnum((long)length(cadr((V202))));          base[1]= make_fixnum((long)length(cadr((V204))));
1499          V204 = make_fixnum((long)length(car(cddddr((V202)))));          V206 = make_fixnum((long)length(car(cddddr((V204)))));
1500          base[2]= number_times(small_fixnum(2),V204);          base[2]= number_times(small_fixnum(2),V206);
1501          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1502          Lplus();          Lplus();
1503          vs_top=sup;          vs_top=sup;
1504          {object V205 = vs_base[0];          {object V207 = vs_base[0];
1505          VMR17(V205)}          VMR17(V207)}
1506          base[0]=base[0];          base[0]=base[0];
1507          return Cnil;          return Cnil;
1508  }  }
1509  /*      local entry for function ADD-ADDRESS    */  /*      local entry for function ADD-ADDRESS    */
1510    
1511  static object LI18(V208,V209)  static object LI18(V210,V211)
1512    
1513  object V208;object V209;  object V210;object V211;
1514  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1515          goto TTL;          goto TTL;
1516  TTL:;  TTL:;
1517          {object V210;          {object V212;
1518          V210= list(2,(V208),(V209));          V212= list(2,(V210),(V211));
1519          setq(VV[21],make_cons((V210),symbol_value(VV[21])));}          setq(VV[21],make_cons((V212),symbol_value(VV[21])));}
1520          {object V211;          {object V213;
1521          V211= symbol_value(VV[22]);          V213= symbol_value(VV[22]);
1522          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
1523          {object V212 = (V211);          {object V214 = (V213);
1524          VMR18(V212)}}          VMR18(V214)}}
1525          base[0]=base[0];          base[0]=base[0];
1526          return Cnil;          return Cnil;
1527  }  }
1528  /*      local entry for function T2DEFUN        */  /*      local entry for function T2DEFUN        */
1529    
1530  static object LI19(V218,V219,V220,V221,V222)  static object LI19(V220,V221,V222,V223,V224)
1531    
1532  register object V218;register object V219;register object V220;object V221;object V222;  register object V220;register object V221;register object V222;object V223;object V224;
1533  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1534          goto TTL;          goto TTL;
1535  TTL:;  TTL:;
1536          if((get((V218),VV[102],Cnil))==Cnil){          if((get((V220),VV[102],Cnil))==Cnil){
1537          goto T701;}          goto T709;}
1538          {object V223 = Cnil;          {object V225 = Cnil;
1539          VMR19(V223)}          VMR19(V225)}
1540          goto T701;          goto T709;
1541  T701:;  T709:;
1542          if(((V221))==Cnil){          if(((V223))==Cnil){
1543          goto T704;}          goto T712;}
1544          V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]);          V226= list(4,VV[103],list(2,VV[91],(V220)),(V223),VV[104]);
1545          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V224)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V226)));
1546          goto T704;          goto T712;
1547  T704:;  T712:;
1548          {object V225;          {object V227;
1549          V225= (*(LnkLI306))((V218),(V219),(V220));          V227= (*(LnkLI306))((V220),(V221),(V222));
1550          if(((V225))==Cnil){          if(((V227))==Cnil){
1551          goto T710;}          goto T718;}
1552          goto T707;          goto T715;
1553          goto T710;          goto T718;
1554  T710:;  T718:;
1555          if(((*(LnkLI307))((V218)))==Cnil){          if(((*(LnkLI307))((V220)))==Cnil){
1556          goto T713;}          goto T721;}
1557          {object V226;          {object V228;
1558          V226= cadddr(caddr((V220)));          V228= cadddr(caddr((V222)));
1559          if(((V226))==Cnil){          if(((V228))==Cnil){
1560          goto T717;}          goto T725;}
1561          V227= list(2,VV[91],(V218));          V229= list(2,VV[91],(V220));
1562          V228= (*(LnkLI304))(VV[106],(V219));          V230= (*(LnkLI304))(VV[106],(V221));
1563          V229 = make_fixnum((long)length(car(caddr((V220)))));          V231 = make_fixnum((long)length(car(caddr((V222)))));
1564          V230= (*(LnkLI308))(caddr((V220)));          V232= (*(LnkLI308))(caddr((V222)));
1565          V231= (*(LnkLI301))(/* INLINE-ARGS */V230,small_fixnum(8));          V233= (*(LnkLI301))(/* INLINE-ARGS */V232,small_fixnum(8));
1566          V232= number_plus(V229,/* INLINE-ARGS */V231);          V234= number_plus(V231,/* INLINE-ARGS */V233);
1567          base[0]= Cnil;          base[0]= Cnil;
1568          base[1]= VV[107];          base[1]= VV[107];
1569          base[2]= (V219);          base[2]= (V221);
1570          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1571          Lformat();          Lformat();
1572          vs_top=sup;          vs_top=sup;
1573          V233= vs_base[0];          V235= vs_base[0];
1574          V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI304))(V233,VV[108]));          V236= list(5,VV[105],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,/* INLINE-ARGS */V234,(*(LnkLI304))(V235,VV[108]));
1575          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V234)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V236)));
1576          goto T707;          goto T715;
1577          goto T717;          goto T725;
1578  T717:;  T725:;
1579          V235= list(2,VV[91],(V218));          V237= list(2,VV[91],(V220));
1580          V236= (*(LnkLI304))(VV[110],(V219));          V238= (*(LnkLI304))(VV[110],(V221));
1581          V237 = make_fixnum((long)length(car(caddr((V220)))));          V239 = make_fixnum((long)length(car(caddr((V222)))));
1582          V238= (*(LnkLI308))(caddr((V220)));          V240= (*(LnkLI308))(caddr((V222)));
1583          V239= (*(LnkLI301))(/* INLINE-ARGS */V238,small_fixnum(8));          V241= (*(LnkLI301))(/* INLINE-ARGS */V240,small_fixnum(8));
1584          V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239));          V242= list(4,VV[109],/* INLINE-ARGS */V237,/* INLINE-ARGS */V238,number_plus(V239,/* INLINE-ARGS */V241));
1585          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V240)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V242)));
1586          goto T707;}          goto T715;}
1587          goto T713;          goto T721;
1588  T713:;  T721:;
1589          if(!(type_of((V219))==t_fixnum||          if(!(type_of((V221))==t_fixnum||
1590  type_of((V219))==t_bignum||  type_of((V221))==t_bignum||
1591  type_of((V219))==t_ratio||  type_of((V221))==t_ratio||
1592  type_of((V219))==t_shortfloat||  type_of((V221))==t_shortfloat||
1593  type_of((V219))==t_longfloat||  type_of((V221))==t_longfloat||
1594  type_of((V219))==t_complex)){  type_of((V221))==t_complex)){
1595          goto T724;}          goto T732;}
1596          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
1597          (void)((*(LnkLI277))((V219)));          (void)((*(LnkLI277))((V221)));
1598          princ_str("();",VV[31]);          princ_str("();",VV[31]);
1599          V241= list(2,VV[91],(V218));          V243= list(2,VV[91],(V220));
1600          V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI304))(VV[112],(V219)));          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI304))(VV[112],(V221)));
1601          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V242)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V244)));
1602          goto T707;          goto T715;
1603          goto T724;          goto T732;
1604  T724:;  T732:;
1605          princ_char(10,VV[31]);          princ_char(10,VV[31]);
1606          (void)((*(LnkLI277))((V219)));          (void)((*(LnkLI277))((V221)));
1607          princ_str("();",VV[31]);          princ_str("();",VV[31]);
1608          V243= list(2,VV[91],(V218));          V245= list(2,VV[91],(V220));
1609          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI304))(VV[113],(V219)));          V246= list(3,VV[111],/* INLINE-ARGS */V245,(*(LnkLI304))(VV[113],(V221)));
1610          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V244)));}          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V246)));}
1611          goto T707;          goto T715;
1612  T707:;  T715:;
1613          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){
1614          goto T735;}          goto T743;}
1615          {object V245 = sputprop((V218),VV[115],Ct);          {object V247 = sputprop((V220),VV[115],Ct);
1616          VMR19(V245)}          VMR19(V247)}
1617          goto T735;          goto T743;
1618  T735:;  T743:;
1619          {object V246 = Cnil;          {object V248 = Cnil;
1620          VMR19(V246)}          VMR19(V248)}
1621          base[0]=base[0];          base[0]=base[0];
1622          return Cnil;          return Cnil;
1623  }  }
1624  /*      local entry for function ADD-DEBUG      */  /*      local entry for function ADD-DEBUG      */
1625    
1626  static object LI20(V249,V250)  static object LI20(V251,V252)
1627    
1628  object V249;object V250;  object V251;object V252;
1629  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1630          goto TTL;          goto TTL;
1631  TTL:;  TTL:;
1632          {object V251 = putprop((V249),(V250),VV[116]);          {object V253 = putprop((V251),(V252),VV[116]);
1633          VMR20(V251)}          VMR20(V253)}
1634          return Cnil;          return Cnil;
1635  }  }
1636  /*      local entry for function T3DEFUN        */  /*      local entry for function T3DEFUN        */
1637    
1638  static object LI21(V257,V258,V259,V260,V261)  static object LI21(V259,V260,V261,V262,V263)
1639    
1640  register object V257;register object V258;register object V259;object V260;object V261;  register object V259;register object V260;register object V261;object V262;object V263;
1641  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1642          bds_check;          bds_check;
1643          goto TTL;          goto TTL;
1644  TTL:;  TTL:;
1645          {register object V262;          {register object V264;
1646          V262= Cnil;          V264= Cnil;
1647          bds_bind(VV[0],list(2,VV[51],(V257)));          bds_bind(VV[0],list(2,VV[51],(V259)));
1648          bds_bind(VV[20],(*(LnkLI309))(cadr((V259))));          bds_bind(VV[20],(*(LnkLI309))(cadr((V261))));
1649          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
1650          {register object V263;          {register object V265;
1651          register object V264;          register object V266;
1652          V263= symbol_value(VV[78]);          V265= symbol_value(VV[78]);
1653          V264= car((V263));          V266= car((V265));
1654          goto T747;          goto T755;
1655  T747:;  T755:;
1656          if(!(endp_prop((V263)))){          if(!(endp_prop((V265)))){
1657          goto T748;}          goto T756;}
1658          goto T742;          goto T750;
1659          goto T748;          goto T756;
1660  T748:;{object V265;  T756:;{object V267;
1661          base[4]= cadddr((V264));          base[4]= cadddr((V266));
1662          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1663          (void) (*Lnk310)();          (void) (*Lnk310)();
1664          vs_top=sup;          vs_top=sup;
1665          V265= vs_base[0];          V267= vs_base[0];
1666          if(V265==Cnil)goto T753;          if(V267==Cnil)goto T761;
1667          goto T752;          goto T760;
1668          goto T753;          goto T761;
1669  T753:;}  T761:;}
1670          base[4]= VV[118];          base[4]= VV[118];
1671          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1672          Lerror();          Lerror();
1673          vs_top=sup;          vs_top=sup;
         goto T752;  
 T752:;  
         if((car((V264)))==((V257))){  
         goto T758;}  
         goto T757;  
         goto T758;  
 T758:;  
         if((cadr(cddddr((V264))))==Cnil){  
         goto T760;}  
         goto T757;  
1674          goto T760;          goto T760;
1675  T760:;  T760:;
1676          V262= (V264);          if((car((V266)))==((V259))){
1677          if(((V262))==Cnil){          goto T766;}
1678          goto T742;}          goto T765;
1679          goto T743;          goto T766;
1680          goto T757;  T766:;
1681  T757:;          if((cadr(cddddr((V266))))==Cnil){
         V263= cdr((V263));  
         V264= car((V263));  
         goto T747;}  
         goto T743;  
 T743:;  
         if(((VFUN_NARGS=1,(*(LnkLI302))((V257))))!=Cnil){  
1682          goto T768;}          goto T768;}
1683          {object V266;          goto T765;
         V266= list(4,(V257),(V258),cadr((V262)),caddr((V262)));  
         setq(VV[29],make_cons((V266),symbol_value(VV[29])));}  
1684          goto T768;          goto T768;
1685  T768:;  T768:;
1686          V267= structure_ref(cadr((V259)),VV[62],1);          V264= (V266);
1687          (void)((*(LnkLI311))(/* INLINE-ARGS */V267,small_fixnum(0)));          if(((V264))==Cnil){
1688          base[3]= VV[119];          goto T750;}
1689          {object V268= caddr((V262));          goto T751;
1690          if((V268!= VV[89]))goto T776;          goto T765;
1691          base[4]= VV[120];  T765:;
1692          goto T775;          V265= cdr((V265));
1693            V266= car((V265));
1694            goto T755;}
1695            goto T751;
1696    T751:;
1697            if(((VFUN_NARGS=1,(*(LnkLI302))((V259))))!=Cnil){
1698            goto T776;}
1699            {object V268;
1700            V268= list(4,(V259),(V260),cadr((V264)),caddr((V264)));
1701            setq(VV[29],make_cons((V268),symbol_value(VV[29])));}
1702          goto T776;          goto T776;
1703  T776:;  T776:;
1704          if((V268!= VV[142]))goto T777;          V269= structure_ref(cadr((V261)),VV[62],1);
1705            (void)((*(LnkLI311))(/* INLINE-ARGS */V269,small_fixnum(0)));
1706            base[3]= VV[119];
1707            {object V270= caddr((V264));
1708            if((V270!= VV[89]))goto T784;
1709            base[4]= VV[120];
1710            goto T783;
1711            goto T784;
1712    T784:;
1713            if((V270!= VV[142]))goto T785;
1714          base[4]= VV[121];          base[4]= VV[121];
1715          goto T775;          goto T783;
1716          goto T777;          goto T785;
1717  T777:;  T785:;
1718          if((V268!= VV[143]))goto T778;          if((V270!= VV[143]))goto T786;
1719          base[4]= VV[122];          base[4]= VV[122];
1720          goto T775;          goto T783;
1721          goto T778;          goto T786;
1722  T778:;  T786:;
1723          if((V268!= VV[144]))goto T779;          if((V270!= VV[144]))goto T787;
1724          base[4]= VV[123];          base[4]= VV[123];
1725          goto T775;          goto T783;
1726          goto T779;          goto T787;
1727  T779:;  T787:;
1728          base[4]= VV[124];}          base[4]= VV[124];}
1729          goto T775;          goto T783;
1730  T775:;  T783:;
1731          base[5]= (V257);          base[5]= (V259);
1732          base[6]= (V258);          base[6]= (V260);
1733          base[7]= (V259);          base[7]= (V261);
1734          base[8]= (V261);          base[8]= (V263);
1735          base[9]= (V262);          base[9]= (V264);
1736          vs_top=(vs_base=base+3)+7;          vs_top=(vs_base=base+3)+7;
1737          (void) (*Lnk312)();          (void) (*Lnk312)();
1738          vs_top=sup;          vs_top=sup;
1739          goto T740;          goto T748;
1740          goto T742;          goto T750;
1741  T742:;  T750:;
1742          if(((*(LnkLI307))((V257)))==Cnil){          if(((*(LnkLI307))((V259)))==Cnil){
1743          goto T786;}          goto T794;}
1744          V269= structure_ref(cadr((V259)),VV[62],1);          V271= structure_ref(cadr((V261)),VV[62],1);
1745          (void)((*(LnkLI311))(/* INLINE-ARGS */V269,small_fixnum(0)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V271,small_fixnum(0)));
1746          base[3]= VV[125];          base[3]= VV[125];
1747          base[4]= VV[124];          base[4]= VV[124];
1748          base[5]= (V257);          base[5]= (V259);
1749          base[6]= (V258);          base[6]= (V260);
1750          base[7]= (V259);          base[7]= (V261);
1751          base[8]= (V261);          base[8]= (V263);
1752          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1753          (void) (*Lnk312)();          (void) (*Lnk312)();
1754          vs_top=sup;          vs_top=sup;
1755          goto T740;          goto T748;
1756          goto T786;          goto T794;
1757  T786:;  T794:;
1758          V270= structure_ref(cadr((V259)),VV[62],1);          V272= structure_ref(cadr((V261)),VV[62],1);
1759          (void)((*(LnkLI311))(/* INLINE-ARGS */V270,small_fixnum(2)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V272,small_fixnum(2)));
1760          base[3]= VV[126];          base[3]= VV[126];
1761          base[4]= VV[127];          base[4]= VV[127];
1762          base[5]= (V257);          base[5]= (V259);
1763          base[6]= (V258);          base[6]= (V260);
1764          base[7]= (V259);          base[7]= (V261);
1765          base[8]= (V261);          base[8]= (V263);
1766          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1767          (void) (*Lnk312)();          (void) (*Lnk312)();
1768          vs_top=sup;          vs_top=sup;
1769          goto T740;          goto T748;
1770  T740:;  T748:;
1771          (void)((*(LnkLI313))((V258)));          (void)((*(LnkLI313))((V260)));
1772          {object V271 = (*(LnkLI314))((V257),(V259));          {object V273 = (*(LnkLI314))((V259),(V261));
1773          bds_unwind1;          bds_unwind1;
1774          bds_unwind1;          bds_unwind1;
1775          bds_unwind1;          bds_unwind1;
1776          VMR21(V271)}}          VMR21(V273)}}
1777          base[0]=base[0];          base[0]=base[0];
1778          return Cnil;          return Cnil;
1779  }  }
# Line 1764  static void L22() Line 1784  static void L22()
1784          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1785          vs_reserve(VM22);          vs_reserve(VM22);
1786          bds_check;          bds_check;
1787          {object V272;          {object V274;
1788          object V273;          object V275;
1789          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1790          V272=(base[0]);          V274=(base[0]);
1791          bds_bind(VV[128],base[1]);          bds_bind(VV[128],base[1]);
1792          vs_base=vs_base+2;          vs_base=vs_base+2;
1793          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1794          {object *p=vs_top;          {object *p=vs_top;
1795           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1796          V273=(base[2]);          V275=(base[2]);
1797          vs_top=sup;          vs_top=sup;
1798          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
1799          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
# Line 1789  static void L22() Line 1809  static void L22()
1809          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
1810          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
1811          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
1812          base[16]= (V272);          base[16]= (V274);
1813          {object V274;          {object V276;
1814          V274= (V273);          V276= (V275);
1815           vs_top=base+17;           vs_top=base+17;
1816           while(!endp(V274))           while(!endp(V276))
1817           {vs_push(car(V274));V274=cdr(V274);}           {vs_push(car(V276));V276=cdr(V276);}
1818          vs_base=base+17;}          vs_base=base+17;}
1819          super_funcall_no_event(base[16]);          super_funcall_no_event(base[16]);
1820          bds_unwind1;          bds_unwind1;
# Line 1816  static void L22() Line 1836  static void L22()
1836  }  }
1837  /*      local entry for function T3DEFUN-LOCAL-ENTRY    */  /*      local entry for function T3DEFUN-LOCAL-ENTRY    */
1838    
1839  static object LI23(V280,V281,V282,V283,V284)  static object LI23(V282,V283,V284,V285,V286)
1840    
1841  object V280;object V281;object V282;object V283;object V284;  object V282;object V283;object V284;object V285;object V286;
1842  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1843          bds_check;          bds_check;
1844          goto TTL;          goto TTL;
1845  TTL:;  TTL:;
1846          {object V285;          {object V287;
         object V286;  
         V285= Cnil;  
         V286= caaddr((V282));  
         {register object V287;  
1847          object V288;          object V288;
1848          V288= cadr((V284));          V287= Cnil;
1849          V287= (V286);          V288= caaddr((V284));
1850          goto T813;          {register object V289;
1851  T813:;          object V290;
1852          if(!(endp_prop((V287)))){          V290= cadr((V286));
1853          goto T814;}          V289= (V288);
1854          goto T810;          goto T821;
1855          goto T814;  T821:;
1856  T814:;          if(!(endp_prop((V289)))){
1857          V289= structure_ref(car((V287)),VV[69],1);          goto T822;}
1858          if(!((/* INLINE-ARGS */V289)==(VV[71]))){          goto T818;
1859          goto T820;}          goto T822;
1860          {object V290;  T822:;
1861          V291= car((V287));          V291= structure_ref(car((V289)),VV[69],1);
1862          V292= structure_ref(car((V287)),VV[69],4);          if(!((/* INLINE-ARGS */V291)==(VV[71]))){
1863          V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292);          goto T828;}
1864          V285= make_cons((V290),(V285));          {object V292;
1865          goto T818;}          V293= car((V289));
1866          goto T820;          V294= structure_ref(car((V289)),VV[69],4);
1867  T820:;          V292= make_cons(/* INLINE-ARGS */V293,/* INLINE-ARGS */V294);
1868          V293= car((V287));          V287= make_cons((V292),(V287));
1869          {object V295= car((V288));          goto T826;}
         if((V295!= VV[89]))goto T825;  
         V294= VV[89];  
         goto T824;  
         goto T825;  
 T825:;  
         if((V295!= VV[142]))goto T826;  
         V294= VV[142];  
         goto T824;  
         goto T826;  
 T826:;  
         if((V295!= VV[143]))goto T827;  
         V294= VV[143];  
         goto T824;  
         goto T827;  
 T827:;  
         if((V295!= VV[144]))goto T828;  
         V294= VV[144];  
         goto T824;  
1870          goto T828;          goto T828;
1871  T828:;  T828:;
1872          V294= VV[74];}          V295= car((V289));
1873          goto T824;          {object V297= car((V290));
1874  T824:;          if((V297!= VV[89]))goto T833;
1875          (void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294));          V296= VV[89];
1876            goto T832;
1877            goto T833;
1878    T833:;
1879            if((V297!= VV[142]))goto T834;
1880            V296= VV[142];
1881            goto T832;
1882            goto T834;
1883    T834:;
1884            if((V297!= VV[143]))goto T835;
1885            V296= VV[143];
1886            goto T832;
1887            goto T835;
1888    T835:;
1889            if((V297!= VV[144]))goto T836;
1890            V296= VV[144];
1891            goto T832;
1892            goto T836;
1893    T836:;
1894            V296= VV[74];}
1895            goto T832;
1896    T832:;
1897            (void)(structure_set(/* INLINE-ARGS */V295,VV[69],1,V296));
1898            goto T826;
1899    T826:;
1900            V298= car((V289));
1901            setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1902            (void)(structure_set(/* INLINE-ARGS */V298,VV[69],4,symbol_value(VV[88])));
1903            V289= cdr((V289));
1904            V290= cdr((V290));
1905            goto T821;}
1906          goto T818;          goto T818;
1907  T818:;  T818:;
1908          V296= car((V287));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[145],(V282))));
         setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));  
         (void)(structure_set(/* INLINE-ARGS */V296,VV[69],4,symbol_value(VV[88])));  
         V287= cdr((V287));  
         V288= cdr((V288));  
         goto T813;}  
         goto T810;  
 T810:;  
         (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[145],(V280))));  
1909          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
1910          base[1]= (*(LnkLI280))(caddr((V284)));          base[1]= (*(LnkLI280))(caddr((V286)));
1911          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1912          (void) (*Lnk281)();          (void) (*Lnk281)();
1913          vs_top=sup;          vs_top=sup;
1914          V297= vs_base[0];          V299= vs_base[0];
1915          (void)((*(LnkLI277))(V297));          (void)((*(LnkLI277))(V299));
1916          princ_str("LI",VV[31]);          princ_str("LI",VV[31]);
1917          (void)((*(LnkLI277))((V281)));          (void)((*(LnkLI277))((V283)));
1918          princ_str("();",VV[31]);          princ_str("();",VV[31]);
1919          princ_str("\nstatic ",VV[25]);          princ_str("\nstatic ",VV[25]);
1920          base[1]= (*(LnkLI280))(caddr((V284)));          base[1]= (*(LnkLI280))(caddr((V286)));
1921          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1922          (void) (*Lnk281)();          (void) (*Lnk281)();
1923          vs_top=sup;          vs_top=sup;
1924          V298= vs_base[0];          V300= vs_base[0];
1925          (void)((*(LnkLI274))(V298));          (void)((*(LnkLI274))(V300));
1926          princ_str("LI",VV[25]);          princ_str("LI",VV[25]);
1927          (void)((*(LnkLI274))((V281)));          (void)((*(LnkLI274))((V283)));
1928          princ_char(40,VV[25]);          princ_char(40,VV[25]);
1929          (void)((*(LnkLI316))((V286),cadr((V284))));          (void)((*(LnkLI316))((V288),cadr((V286))));
1930          {object V299;          {object V301;
1931          V299= symbol_value(VV[136]);          V301= symbol_value(VV[136]);
1932          if((symbol_value(VV[147]))==Cnil){          if((symbol_value(VV[147]))==Cnil){
1933          goto T856;}          goto T864;}
1934          base[1]= make_cons((V280),(V286));          base[1]= make_cons((V282),(V288));
1935          goto T854;          goto T862;
1936          goto T856;          goto T864;
1937  T856:;  T864:;
1938          base[1]= Cnil;          base[1]= Cnil;
1939          goto T854;          goto T862;
1940  T854:;  T862:;
1941          bds_bind(VV[146],base[1]);          bds_bind(VV[146],base[1]);
1942          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],symbol_value(VV[134]));
1943          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[25]);
1944          V300= structure_ref(cadr((V282)),VV[62],1);          V302= structure_ref(cadr((V284)),VV[62],1);
1945          (void)((*(LnkLI317))(/* INLINE-ARGS */V300,(V281),VV[148]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V302,(V283),VV[148]));
1946          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[25]);
1947          (void)((*(LnkLI274))((V299)));          (void)((*(LnkLI274))((V301)));
1948          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
1949          (void)((*(LnkLI274))((V299)));          (void)((*(LnkLI274))((V301)));
1950          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
1951          (void)((*(LnkLI274))((V299)));          (void)((*(LnkLI274))((V301)));
1952          if(((V283))==Cnil){          if(((V285))==Cnil){
1953          goto T868;}          goto T876;}
1954          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
1955          goto T868;          goto T876;
1956  T868:;  T876:;
1957          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
1958          goto T872;}          goto T880;}
1959          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
1960          goto T872;          goto T880;
1961  T872:;  T880:;
1962          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[146]->s.s_dbind))==Cnil){
1963          goto T876;}          goto T884;}
1964          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
1965          princ_str("\n   goto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[25]);
1966          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[25]);
         goto T876;  
 T876:;  
         {register object V302;  
         register object V303;  
         V302= (V285);  
         V303= car((V302));  
         goto T888;  
 T888:;  
         if(!(endp_prop((V302)))){  
         goto T889;}  
1967          goto T884;          goto T884;
1968          goto T889;  T884:;
1969  T889:;          {register object V304;
1970            register object V305;
1971            V304= (V287);
1972            V305= car((V304));
1973            goto T896;
1974    T896:;
1975            if(!(endp_prop((V304)))){
1976            goto T897;}
1977            goto T892;
1978            goto T897;
1979    T897:;
1980          princ_str("\n   bds_bind(VV[",VV[25]);          princ_str("\n   bds_bind(VV[",VV[25]);
1981          (void)((*(LnkLI274))(cdr((V303))));          (void)((*(LnkLI274))(cdr((V305))));
1982          princ_str("],V",VV[25]);          princ_str("],V",VV[25]);
1983          V304= structure_ref(car((V303)),VV[69],4);          V306= structure_ref(car((V305)),VV[69],4);
1984          (void)((*(LnkLI274))(/* INLINE-ARGS */V304));          (void)((*(LnkLI274))(/* INLINE-ARGS */V306));
1985          princ_str(");",VV[25]);          princ_str(");",VV[25]);
1986          (VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind));
1987          (void)(structure_set(car((V303)),VV[69],1,VV[71]));          (void)(structure_set(car((V305)),VV[69],1,VV[71]));
1988          (void)(structure_set(car((V303)),VV[69],4,cdr((V303))));          (void)(structure_set(car((V305)),VV[69],4,cdr((V305))));
1989          V302= cdr((V302));          V304= cdr((V304));
1990          V303= car((V302));          V305= car((V304));
1991          goto T888;}          goto T896;}
1992          goto T884;          goto T892;
1993  T884:;  T892:;
1994          base[3]= caddr(cddr((V282)));          base[3]= caddr(cddr((V284)));
1995          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1996          (void) (*Lnk318)();          (void) (*Lnk318)();
1997          vs_top=sup;          vs_top=sup;
1998          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
1999          goto T912;}          goto T920;}
2000          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
2001          goto T912;}          goto T920;}
2002          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
2003          goto T912;}          goto T920;}
2004          goto T910;          goto T918;
2005          goto T912;          goto T920;
2006  T912:;  T920:;
2007          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
2008          goto T910;          goto T918;
2009  T910:;  T918:;
2010          V306= (*(LnkLI280))(caddr((V284)));          V308= (*(LnkLI280))(caddr((V286)));
2011          if(!(equal(VV[152],/* INLINE-ARGS */V306))){          if(!(equal(VV[152],/* INLINE-ARGS */V308))){
2012          goto T919;}          goto T927;}
2013          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[25]);
2014          goto T919;          goto T927;
2015  T919:;  T927:;
2016          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
2017          {object V307 = (*(LnkLI319))((V299),caddr((V284)));          {object V309 = (*(LnkLI319))((V301),caddr((V286)));
2018          bds_unwind1;          bds_unwind1;
2019          bds_unwind1;          bds_unwind1;
2020          VMR23(V307)}}}          VMR23(V309)}}}
2021          base[0]=base[0];          base[0]=base[0];
2022          return Cnil;          return Cnil;
2023  }  }
2024  /*      local entry for function SET-UP-VAR-CVS */  /*      local entry for function SET-UP-VAR-CVS */
2025    
2026  static object LI24(V309)  static object LI24(V311)
2027    
2028  object V309;  object V311;
2029  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2030          goto TTL;          goto TTL;
2031  TTL:;  TTL:;
2032          if((symbol_value(VV[153]))==Cnil){          if((symbol_value(VV[153]))==Cnil){
2033          goto T926;}          goto T934;}
2034          V310= (*(LnkLI320))();          V312= (*(LnkLI320))();
2035          {object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310);          {object V313 = structure_set((V311),VV[69],2,/* INLINE-ARGS */V312);
         VMR24(V311)}  
         goto T926;  
 T926:;  
         V312= (*(LnkLI321))();  
         {object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312);  
2036          VMR24(V313)}          VMR24(V313)}
2037            goto T934;
2038    T934:;
2039            V314= (*(LnkLI321))();
2040            {object V315 = structure_set((V311),VV[69],2,/* INLINE-ARGS */V314);
2041            VMR24(V315)}
2042          return Cnil;          return Cnil;
2043  }  }
2044  /*      local entry for function T3DEFUN-VARARG */  /*      local entry for function T3DEFUN-VARARG */
2045    
2046  static object LI25(V318,V319,V320,V321)  static object LI25(V320,V321,V322,V323)
2047    
2048  object V318;object V319;object V320;object V321;  object V320;object V321;object V322;object V323;
2049  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2050          bds_check;          bds_check;
2051          goto TTL;          goto TTL;
2052  TTL:;  TTL:;
2053          {object V322;          {object V324;
2054          register object V323;          register object V325;
         object V324;  
         object V325;  
2055          object V326;          object V326;
2056          object V327;          object V327;
2057          object V328;          object V328;
2058          object V329;          object V329;
2059          V322= Cnil;          object V330;
2060            object V331;
2061            V324= Cnil;
2062          bds_bind(VV[153],Cnil);          bds_bind(VV[153],Cnil);
2063          base[1]= Cnil;          base[1]= Cnil;
         V323= Cnil;  
         V324= Ct;  
2064          V325= Cnil;          V325= Cnil;
2065            V326= Ct;
2066            V327= Cnil;
2067          bds_bind(VV[154],small_fixnum(0));          bds_bind(VV[154],small_fixnum(0));
2068          V326= Cnil;          V328= Cnil;
2069          V327= caddr((V320));          V329= caddr((V322));
2070          V328= Cnil;{object V330;          V330= Cnil;{object V332;
2071          V330= caddr((V327));          V332= caddr((V329));
2072          if(V330==Cnil)goto T936;          if(V332==Cnil)goto T944;
2073          V329= V330;          V331= V332;
2074          goto T935;          goto T943;
         goto T936;  
 T936:;}{object V331;  
         V331= cadr((V327));  
         if(V331==Cnil)goto T938;  
         V329= V331;  
         goto T935;  
         goto T938;  
 T938:;}  
         V329= cadddr((V327));  
         goto T935;  
 T935:;  
         {object V332;  
         register object V333;  
         V332= car((V327));  
         V333= car((V332));  
2075          goto T944;          goto T944;
2076  T944:;  T944:;}{object V333;
2077          if(!(endp_prop((V332)))){          V333= cadr((V329));
2078          goto T945;}          if(V333==Cnil)goto T946;
2079          goto T940;          V331= V333;
2080          goto T945;          goto T943;
2081  T945:;          goto T946;
2082    T946:;}
2083            V331= cadddr((V329));
2084            goto T943;
2085    T943:;
2086          {object V334;          {object V334;
2087            register object V335;
2088            V334= car((V329));
2089            V335= car((V334));
2090            goto T952;
2091    T952:;
2092            if(!(endp_prop((V334)))){
2093            goto T953;}
2094            goto T948;
2095            goto T953;
2096    T953:;
2097            {object V336;
2098          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
2099          V334= list(2,VV[155],symbol_value(VV[88]));          V336= list(2,VV[155],symbol_value(VV[88]));
2100          V322= make_cons((V334),(V322));}          V324= make_cons((V336),(V324));}
2101          V332= cdr((V332));          V334= cdr((V334));
2102          V333= car((V332));          V335= car((V334));
2103          goto T944;}          goto T952;}
2104          goto T940;          goto T948;
2105  T940:;  T948:;
2106          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[156],(V318))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[156],(V320))));
2107          {object V335;          {object V337;
2108          V335= VV[157];          V337= VV[157];
2109          princ_str("\nstatic object LI",VV[25]);          princ_str("\nstatic object LI",VV[25]);
2110          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V321)));
2111          princ_char(40,VV[25]);          princ_char(40,VV[25]);
2112          if(((V322))==Cnil){          if(((V324))==Cnil){
2113          goto T964;}          goto T972;}
2114          {object V336;          {object V338;
2115          V336= (V322);          V338= (V324);
2116          goto T968;          goto T976;
2117  T968:;  T976:;
2118          if(((V336))!=Cnil){          if(((V338))!=Cnil){
2119          goto T969;}          goto T977;}
2120          goto T964;          goto T972;
2121          goto T969;          goto T977;
2122  T969:;  T977:;
2123          princ_str("object ",VV[25]);          princ_str("object ",VV[25]);
2124          (void)((*(LnkLI274))(car((V336))));          (void)((*(LnkLI274))(car((V338))));
2125          V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[159]));          V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[159]));
2126          if(!((cdr((V336)))==Cnil)){          if(!((cdr((V338)))==Cnil)){
         goto T979;}  
         goto T978;  
         goto T979;  
 T979:;  
         princ_char(44,VV[25]);  
         V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[160]));  
         goto T978;  
 T978:;  
         V336= cdr((V336));  
         goto T968;}  
         goto T964;  
 T964:;  
         if(((V329))==Cnil){  
2127          goto T987;}          goto T987;}
2128          if(((V322))==Cnil){          goto T986;
         goto T990;}  
         princ_char(44,VV[25]);  
         V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[161]));  
         goto T990;  
 T990:;  
         princ_str("object first,...",VV[25]);  
         V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[162]));  
2129          goto T987;          goto T987;
2130  T987:;  T987:;
2131            princ_char(44,VV[25]);
2132            V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[160]));
2133            goto T986;
2134    T986:;
2135            V338= cdr((V338));
2136            goto T976;}
2137            goto T972;
2138    T972:;
2139            if(((V331))==Cnil){
2140            goto T995;}
2141            if(((V324))==Cnil){
2142            goto T998;}
2143            princ_char(44,VV[25]);
2144            V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[161]));
2145            goto T998;
2146    T998:;
2147            princ_str("object first,...",VV[25]);
2148            V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[162]));
2149            goto T995;
2150    T995:;
2151          princ_char(41,VV[25]);          princ_char(41,VV[25]);
2152          princ_str("\nstatic object LI",VV[31]);          princ_str("\nstatic object LI",VV[31]);
2153          (void)((*(LnkLI277))((V319)));          (void)((*(LnkLI277))((V321)));
2154          princ_char(40,VV[31]);          princ_char(40,VV[31]);
2155          (void)((*(LnkLI277))((V335)));          (void)((*(LnkLI277))((V337)));
2156          princ_str(");",VV[31]);}          princ_str(");",VV[31]);}
2157          {object V337;          {object V339;
2158          V337= symbol_value(VV[136]);          V339= symbol_value(VV[136]);
2159          if(symbol_value(VV[147])==Cnil){          if(symbol_value(VV[147])==Cnil){
2160          base[5]= Cnil;          base[5]= Cnil;
2161          goto T1007;}          goto T1015;}
2162          if((caddr((V327)))==Cnil){          if((caddr((V329)))==Cnil){
2163          goto T1008;}          goto T1016;}
2164          base[5]= Cnil;          base[5]= Cnil;
         goto T1007;  
         goto T1008;  
 T1008:;  
         {object V338;  
         object V339;  
         V338= car((V327));  
         V339= car((V338));  
2165          goto T1015;          goto T1015;
 T1015:;  
         if(!(endp_prop((V338)))){  
         goto T1016;}  
         goto T1010;  
2166          goto T1016;          goto T1016;
2167  T1016:;  T1016:;
2168          if((structure_ref((V339),VV[69],3))==Cnil){          {object V340;
2169          goto T1020;}          object V341;
2170          goto T1011;          V340= car((V329));
2171          goto T1020;          V341= car((V340));
2172  T1020:;          goto T1023;
2173          V338= cdr((V338));  T1023:;
2174          V339= car((V338));          if(!(endp_prop((V340)))){
2175          goto T1015;}          goto T1024;}
2176          goto T1011;          goto T1018;
2177  T1011:;          goto T1024;
2178          base[5]= Cnil;  T1024:;
2179          goto T1007;          if((structure_ref((V341),VV[69],3))==Cnil){
         goto T1010;  
 T1010:;  
         if((cadr((V327)))==Cnil){  
2180          goto T1028;}          goto T1028;}
2181          base[5]= Cnil;          goto T1019;
         goto T1007;  
2182          goto T1028;          goto T1028;
2183  T1028:;  T1028:;
2184          if((car(cddddr((V327))))==Cnil){          V340= cdr((V340));
2185          goto T1030;}          V341= car((V340));
2186            goto T1023;}
2187            goto T1019;
2188    T1019:;
2189            base[5]= Cnil;
2190            goto T1015;
2191            goto T1018;
2192    T1018:;
2193            if((cadr((V329)))==Cnil){
2194            goto T1036;}
2195          base[5]= Cnil;          base[5]= Cnil;
2196          goto T1007;          goto T1015;
2197          goto T1030;          goto T1036;
2198  T1030:;  T1036:;
2199          base[5]= make_cons((V318),car((V327)));          if((car(cddddr((V329))))==Cnil){
2200          goto T1007;          goto T1038;}
2201  T1007:;          base[5]= Cnil;
2202            goto T1015;
2203            goto T1038;
2204    T1038:;
2205            base[5]= make_cons((V320),car((V329)));
2206            goto T1015;
2207    T1015:;
2208          bds_bind(VV[146],base[5]);          bds_bind(VV[146],base[5]);
2209          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],symbol_value(VV[134]));
2210          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[25]);
2211          if(((V329))==Cnil){          if(((V331))==Cnil){
2212          goto T1034;}          goto T1042;}
2213          princ_str("\n   va_list ap;",VV[25]);          princ_str("\n   va_list ap;",VV[25]);
2214          goto T1034;          goto T1042;
2215  T1034:;  T1042:;
2216          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);
2217          V340= structure_ref(cadr((V320)),VV[62],1);          V342= structure_ref(cadr((V322)),VV[62],1);
2218          (void)((*(LnkLI317))(/* INLINE-ARGS */V340,(V319),VV[148]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V342,(V321),VV[148]));
2219          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[25]);
2220          (void)((*(LnkLI274))((V337)));          (void)((*(LnkLI274))((V339)));
2221          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
2222          (void)((*(LnkLI274))((V337)));          (void)((*(LnkLI274))((V339)));
2223          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
2224          (void)((*(LnkLI274))((V337)));          (void)((*(LnkLI274))((V339)));
2225          if(((V321))==Cnil){          if(((V323))==Cnil){
2226          goto T1048;}          goto T1056;}
2227          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
2228          goto T1048;          goto T1056;
2229  T1048:;  T1056:;
2230          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
2231          goto T1052;}          goto T1060;}
2232          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
2233          goto T1052;          goto T1060;
2234  T1052:;  T1060:;
2235          if((V329)!=Cnil){          if((V331)!=Cnil){
2236          goto T1056;}          goto T1064;}
2237          princ_str("\n   if ( narg!= ",VV[25]);          princ_str("\n   if ( narg!= ",VV[25]);
2238          V341 = make_fixnum((long)length((V322)));          V343 = make_fixnum((long)length((V324)));
2239          (void)((*(LnkLI274))(V341));          (void)((*(LnkLI274))(V343));
2240          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]);          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]);
2241          V342 = make_fixnum((long)length((V322)));          V344 = make_fixnum((long)length((V324)));
2242          (void)((*(LnkLI274))(V342));          (void)((*(LnkLI274))(V344));
2243          princ_str("));",VV[25]);          princ_str("));",VV[25]);
2244          goto T1056;          goto T1064;
2245  T1056:;  T1064:;
         {object V343;  
         object V344;  
         V343= car((V327));  
         V344= car((V343));  
         goto T1067;  
 T1067:;  
         if(!(endp_prop((V343)))){  
         goto T1068;}  
         goto T1063;  
         goto T1068;  
 T1068:;  
         base[9]= (V344);  
         vs_top=(vs_base=base+9)+1;  
         L26(base);  
         vs_top=sup;  
         V343= cdr((V343));  
         V344= car((V343));  
         goto T1067;}  
         goto T1063;  
 T1063:;  
2246          {object V345;          {object V345;
2247          object V346;          object V346;
2248          V345= cadr((V327));          V345= car((V329));
2249          V346= car((V345));          V346= car((V345));
2250          goto T1083;          goto T1075;
2251  T1083:;  T1075:;
2252          if(!(endp_prop((V345)))){          if(!(endp_prop((V345)))){
2253          goto T1084;}          goto T1076;}
2254          goto T1079;          goto T1071;
2255          goto T1084;          goto T1076;
2256  T1084:;  T1076:;
2257          base[9]= car((V346));          base[9]= (V346);
2258          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2259          L26(base);          L26(base);
2260          vs_top=sup;          vs_top=sup;
         if((caddr((V346)))==Cnil){  
         goto T1090;}  
         base[9]= caddr((V346));  
         vs_top=(vs_base=base+9)+1;  
         L26(base);  
         vs_top=sup;  
         goto T1090;  
 T1090:;  
2261          V345= cdr((V345));          V345= cdr((V345));
2262          V346= car((V345));          V346= car((V345));
2263          goto T1083;}          goto T1075;}
2264          goto T1079;          goto T1071;
2265  T1079:;  T1071:;
         if((caddr((V327)))==Cnil){  
         goto T1099;}  
         base[7]= caddr((V327));  
         vs_top=(vs_base=base+7)+1;  
         L26(base);  
         vs_top=sup;  
         goto T1099;  
 T1099:;  
2266          {object V347;          {object V347;
2267          object V348;          object V348;
2268          V347= car(cddddr((V327)));          V347= cadr((V329));
2269          V348= car((V347));          V348= car((V347));
2270          goto T1106;          goto T1091;
2271  T1106:;  T1091:;
2272          if(!(endp_prop((V347)))){          if(!(endp_prop((V347)))){
2273            goto T1092;}
2274            goto T1087;
2275            goto T1092;
2276    T1092:;
2277            base[9]= car((V348));
2278            vs_top=(vs_base=base+9)+1;
2279            L26(base);
2280            vs_top=sup;
2281            if((caddr((V348)))==Cnil){
2282            goto T1098;}
2283            base[9]= caddr((V348));
2284            vs_top=(vs_base=base+9)+1;
2285            L26(base);
2286            vs_top=sup;
2287            goto T1098;
2288    T1098:;
2289            V347= cdr((V347));
2290            V348= car((V347));
2291            goto T1091;}
2292            goto T1087;
2293    T1087:;
2294            if((caddr((V329)))==Cnil){
2295          goto T1107;}          goto T1107;}
2296          goto T1062;          base[7]= caddr((V329));
2297            vs_top=(vs_base=base+7)+1;
2298            L26(base);
2299            vs_top=sup;
2300          goto T1107;          goto T1107;
2301  T1107:;  T1107:;
2302          base[9]= cadr((V348));          {object V349;
2303            object V350;
2304            V349= car(cddddr((V329)));
2305            V350= car((V349));
2306            goto T1114;
2307    T1114:;
2308            if(!(endp_prop((V349)))){
2309            goto T1115;}
2310            goto T1070;
2311            goto T1115;
2312    T1115:;
2313            base[9]= cadr((V350));
2314          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2315          L26(base);          L26(base);
2316          vs_top=sup;          vs_top=sup;
2317          if((cadddr((V348)))==Cnil){          if((cadddr((V350)))==Cnil){
2318          goto T1113;}          goto T1121;}
2319          base[9]= cadddr((V348));          base[9]= cadddr((V350));
2320          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2321          L26(base);          L26(base);
2322          vs_top=sup;          vs_top=sup;
2323          goto T1113;          goto T1121;
2324  T1113:;  T1121:;
2325          V347= cdr((V347));          V349= cdr((V349));
2326          V348= car((V347));          V350= car((V349));
2327          goto T1106;}          goto T1114;}
2328          goto T1062;          goto T1070;
2329  T1062:;  T1070:;
2330          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2331          goto T1124;}          goto T1132;}
2332          goto T1122;          goto T1130;
2333          goto T1124;          goto T1132;
2334  T1124:;  T1132:;
2335          princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);          princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);
2336          goto T1122;          goto T1130;
2337  T1122:;  T1130:;
2338          if((cadr((V327)))!=Cnil){          if((cadr((V329)))!=Cnil){
2339          goto T1128;}          goto T1136;}
2340          if((caddr((V327)))!=Cnil){          if((caddr((V329)))!=Cnil){
2341          goto T1128;}          goto T1136;}
2342          if((cadddr((V327)))==Cnil){          if((cadddr((V329)))==Cnil){
2343          goto T1127;}          goto T1135;}
2344          goto T1128;          goto T1136;
2345  T1128:;  T1136:;
2346          if(((V328))!=Cnil){          if(((V330))!=Cnil){
2347          goto T1127;}          goto T1135;}
2348          V328= Ct;          V330= Ct;
2349          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2350          goto T1127;          goto T1135;
2351  T1127:;  T1135:;
2352          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[163]))!=Cnil){
2353          goto T1141;}          goto T1149;}
2354          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
2355          goto T1139;}          goto T1147;}
         goto T1141;  
 T1141:;  
         if((car((V327)))==Cnil){  
         goto T1139;}  
         princ_str("\n   if(narg <",VV[25]);  
         V349 = make_fixnum((long)length(car((V327))));  
         (void)((*(LnkLI274))(V349));  
         princ_str(") too_few_arguments();",VV[25]);  
         goto T1139;  
 T1139:;  
         {object V350;  
         object V351;  
         V350= car((V327));  
         V351= car((V350));  
         goto T1153;  
 T1153:;  
         if(!(endp_prop((V350)))){  
         goto T1154;}  
         goto T1149;  
         goto T1154;  
 T1154:;  
         (void)((*(LnkLI323))((V351)));  
         V350= cdr((V350));  
         V351= car((V350));  
         goto T1153;}  
2356          goto T1149;          goto T1149;
2357  T1149:;  T1149:;
2358            if((car((V329)))==Cnil){
2359            goto T1147;}
2360            princ_str("\n   if(narg <",VV[25]);
2361            V351 = make_fixnum((long)length(car((V329))));
2362            (void)((*(LnkLI274))(V351));
2363            princ_str(") too_few_arguments();",VV[25]);
2364            goto T1147;
2365    T1147:;
2366          {object V352;          {object V352;
2367          object V353;          object V353;
2368          V352= cadr((V327));          V352= car((V329));
2369          V353= car((V352));          V353= car((V352));
2370          goto T1168;          goto T1161;
2371  T1168:;  T1161:;
2372          if(!(endp_prop((V352)))){          if(!(endp_prop((V352)))){
2373          goto T1169;}          goto T1162;}
2374          goto T1164;          goto T1157;
2375          goto T1169;          goto T1162;
2376  T1169:;  T1162:;
2377          (void)((*(LnkLI323))(car((V353))));          (void)((*(LnkLI323))((V353)));
2378          V352= cdr((V352));          V352= cdr((V352));
2379          V353= car((V352));          V353= car((V352));
2380          goto T1168;}          goto T1161;}
2381          goto T1164;          goto T1157;
2382  T1164:;  T1157:;
         if((caddr((V327)))==Cnil){  
         goto T1179;}  
         (void)((*(LnkLI323))(caddr((V327))));  
         goto T1179;  
 T1179:;  
         if(((VV[153]->s.s_dbind))==Cnil){  
         goto T1185;}  
         V325= symbol_value(VV[129]);  
         goto T1183;  
         goto T1185;  
 T1185:;  
         V325= symbol_value(VV[141]);  
         goto T1183;  
 T1183:;  
2383          {object V354;          {object V354;
2384          object V355;          object V355;
2385          V354= car(cddddr((V327)));          V354= cadr((V329));
2386          V355= car((V354));          V355= car((V354));
2387          goto T1191;          goto T1176;
2388  T1191:;  T1176:;
2389          if(!(endp_prop((V354)))){          if(!(endp_prop((V354)))){
2390          goto T1192;}          goto T1177;}
2391          goto T1187;          goto T1172;
2392          goto T1192;          goto T1177;
2393  T1192:;  T1177:;
2394          (void)((*(LnkLI323))(cadr((V355))));          (void)((*(LnkLI323))(car((V355))));
2395          V354= cdr((V354));          V354= cdr((V354));
2396          V355= car((V354));          V355= car((V354));
2397          goto T1191;}          goto T1176;}
2398            goto T1172;
2399    T1172:;
2400            if((caddr((V329)))==Cnil){
2401            goto T1187;}
2402            (void)((*(LnkLI323))(caddr((V329))));
2403          goto T1187;          goto T1187;
2404  T1187:;  T1187:;
2405            if(((VV[153]->s.s_dbind))==Cnil){
2406            goto T1193;}
2407            V327= symbol_value(VV[129]);
2408            goto T1191;
2409            goto T1193;
2410    T1193:;
2411            V327= symbol_value(VV[141]);
2412            goto T1191;
2413    T1191:;
2414          {object V356;          {object V356;
2415          object V357;          object V357;
2416          V356= car(cddddr((V327)));          V356= car(cddddr((V329)));
2417          V357= car((V356));          V357= car((V356));
2418          goto T1206;          goto T1199;
2419  T1206:;  T1199:;
2420          if(!(endp_prop((V356)))){          if(!(endp_prop((V356)))){
2421          goto T1207;}          goto T1200;}
2422          goto T1202;          goto T1195;
2423          goto T1207;          goto T1200;
2424  T1207:;  T1200:;
2425          (void)((*(LnkLI323))(cadddr((V357))));          (void)((*(LnkLI323))(cadr((V357))));
2426          V356= cdr((V356));          V356= cdr((V356));
2427          V357= car((V356));          V357= car((V356));
2428          goto T1206;}          goto T1199;}
2429          goto T1202;          goto T1195;
2430  T1202:;  T1195:;
2431          {object V358;          {object V358;
2432          object V359;          object V359;
2433          V359= car((V327));          V358= car(cddddr((V329)));
2434          V358= (V322);          V359= car((V358));
2435          goto T1220;          goto T1214;
2436  T1220:;  T1214:;
2437          if(((V358))!=Cnil){          if(!(endp_prop((V358)))){
2438          goto T1221;}          goto T1215;}
2439          goto T1217;          goto T1210;
2440          goto T1221;          goto T1215;
2441  T1221:;  T1215:;
2442          (void)((*(LnkLI324))(car((V359)),car((V358))));          (void)((*(LnkLI323))(cadddr((V359))));
2443          V358= cdr((V358));          V358= cdr((V358));
2444          V359= cdr((V359));          V359= car((V358));
2445          goto T1220;}          goto T1214;}
2446          goto T1217;          goto T1210;
2447  T1217:;  T1210:;
2448          if((cadr((V327)))==Cnil){          {object V360;
2449          goto T1230;}          object V361;
2450            V361= car((V329));
2451            V360= (V324);
2452            goto T1228;
2453    T1228:;
2454            if(((V360))!=Cnil){
2455            goto T1229;}
2456            goto T1225;
2457            goto T1229;
2458    T1229:;
2459            (void)((*(LnkLI324))(car((V361)),car((V360))));
2460            V360= cdr((V360));
2461            V361= cdr((V361));
2462            goto T1228;}
2463            goto T1225;
2464    T1225:;
2465            if((cadr((V329)))==Cnil){
2466            goto T1238;}
2467          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2468          bds_bind(VV[134],(VV[134]->s.s_dbind));          bds_bind(VV[134],(VV[134]->s.s_dbind));
2469          bds_bind(VV[132],symbol_value(VV[132]));          bds_bind(VV[132],symbol_value(VV[132]));
2470          princ_str("\n   narg = narg - ",VV[25]);          princ_str("\n   narg = narg - ",VV[25]);
2471          V360 = make_fixnum((long)length((V322)));          V362 = make_fixnum((long)length((V324)));
2472          (void)((*(LnkLI274))(V360));          (void)((*(LnkLI274))(V362));
2473          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2474          {object V361;          {object V363;
2475          V361= Ct;          V363= Ct;
2476          {object V362;          {object V364;
2477          object V363;          object V365;
2478          V362= cadr((V327));          V364= cadr((V329));
2479          V363= car((V362));          V365= car((V364));
2480          goto T1241;          goto T1249;
2481  T1241:;  T1249:;
2482          if(!(endp_prop((V362)))){          if(!(endp_prop((V364)))){
2483          goto T1242;}          goto T1250;}
2484          bds_unwind1;          bds_unwind1;
2485          bds_unwind1;          bds_unwind1;
2486          bds_unwind1;          bds_unwind1;
2487          goto T1233;          goto T1241;
2488          goto T1242;          goto T1250;
2489  T1242:;  T1250:;
2490          {object V364;          {object V366;
2491          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));
2492          V364= make_cons(symbol_value(VV[165]),Cnil);          V366= make_cons(symbol_value(VV[165]),Cnil);
2493          V323= make_cons((V364),(V323));}          V325= make_cons((V366),(V325));}
2494          princ_str("\n   if (",VV[25]);          princ_str("\n   if (",VV[25]);
2495          if((cdr((V323)))==Cnil){          if((cdr((V325)))==Cnil){
2496          goto T1255;}          goto T1263;}
2497          V365= VV[166];          V367= VV[166];
2498          goto T1253;          goto T1261;
2499          goto T1255;          goto T1263;
2500  T1255:;  T1263:;
2501          V365= VV[167];          V367= VV[167];
2502          goto T1253;          goto T1261;
2503  T1253:;  T1261:;
2504          (void)((*(LnkLI274))(V365));          (void)((*(LnkLI274))(V367));
2505          princ_str("narg <= 0) ",VV[25]);          princ_str("narg <= 0) ",VV[25]);
2506          if(type_of(car((V323)))!=t_cons)FEwrong_type_argument(Scons,car((V323)));          if(type_of(car((V325)))!=t_cons)FEwrong_type_argument(Scons,car((V325)));
2507          (car((V323)))->c.c_cdr = Ct;          (car((V325)))->c.c_cdr = Ct;
2508          (void)(car((V323)));          (void)(car((V325)));
2509          princ_str("goto T",VV[25]);          princ_str("goto T",VV[25]);
2510          (void)((*(LnkLI274))(car(car((V323)))));          (void)((*(LnkLI274))(car(car((V325)))));
2511          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2512          princ_str("\n   else {",VV[25]);          princ_str("\n   else {",VV[25]);
2513          if(((V328))!=Cnil){          if(((V330))!=Cnil){
2514          goto T1265;}          goto T1273;}
2515          V328= Ct;          V330= Ct;
2516          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2517          goto T1265;          goto T1273;
2518  T1265:;  T1273:;
2519          V366= car((V363));          V368= car((V365));
2520          if(((V361))==Cnil){          if(((V363))==Cnil){
2521          goto T1274;}          goto T1282;}
2522          V367= make_cons(VV[168],Cnil);          V369= make_cons(VV[168],Cnil);
2523          goto T1272;          goto T1280;
2524          goto T1274;          goto T1282;
2525  T1274:;  T1282:;
2526          V367= make_cons(VV[169],Cnil);          V369= make_cons(VV[169],Cnil);
         goto T1272;  
 T1272:;  
         (void)((*(LnkLI324))(/* INLINE-ARGS */V366,V367));  
         V361= Cnil;  
         princ_char(125,VV[25]);  
         if((caddr((V363)))==Cnil){  
         goto T1280;}  
         (void)((*(LnkLI324))(caddr((V363)),Ct));  
2527          goto T1280;          goto T1280;
2528  T1280:;  T1280:;
2529          V362= cdr((V362));          (void)((*(LnkLI324))(/* INLINE-ARGS */V368,V369));
2530          V363= car((V362));          V363= Cnil;
2531          goto T1241;}}          princ_char(125,VV[25]);
2532          goto T1233;          if((caddr((V365)))==Cnil){
2533  T1233:;          goto T1288;}
2534          V323= nreverse((V323));          (void)((*(LnkLI324))(caddr((V365)),Ct));
2535          {object V368;          goto T1288;
2536    T1288:;
2537            V364= cdr((V364));
2538            V365= car((V364));
2539            goto T1249;}}
2540            goto T1241;
2541    T1241:;
2542            V325= nreverse((V325));
2543            {object V370;
2544          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));
2545          V368= make_cons(symbol_value(VV[165]),Cnil);          V370= make_cons(symbol_value(VV[165]),Cnil);
2546          princ_str("\n   --narg; ",VV[25]);          princ_str("\n   --narg; ",VV[25]);
2547          if(type_of((V368))!=t_cons)FEwrong_type_argument(Scons,(V368));          if(type_of((V370))!=t_cons)FEwrong_type_argument(Scons,(V370));
2548          ((V368))->c.c_cdr = Ct;          ((V370))->c.c_cdr = Ct;
2549          princ_str("goto T",VV[25]);          princ_str("goto T",VV[25]);
2550          (void)((*(LnkLI274))(car((V368))));          (void)((*(LnkLI274))(car((V370))));
2551          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2552          {object V369;          {object V371;
2553          object V370;          object V372;
2554          V369= cadr((V327));          V371= cadr((V329));
2555          V370= car((V369));          V372= car((V371));
2556          goto T1303;          goto T1311;
2557  T1303:;  T1311:;
2558          if(!(endp_prop((V369)))){          if(!(endp_prop((V371)))){
2559          goto T1304;}          goto T1312;}
2560          goto T1299;          goto T1307;
2561          goto T1304;          goto T1312;
2562  T1304:;  T1312:;
2563          if((cdr(car((V323))))==Cnil){          if((cdr(car((V325))))==Cnil){
2564          goto T1308;}          goto T1316;}
2565          princ_str("\n   goto T",VV[25]);          princ_str("\n   goto T",VV[25]);
2566          (void)((*(LnkLI274))(car(car((V323)))));          (void)((*(LnkLI274))(car(car((V325)))));
2567          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2568          princ_str("\nT",VV[25]);          princ_str("\nT",VV[25]);
2569          (void)((*(LnkLI274))(car(car((V323)))));          (void)((*(LnkLI274))(car(car((V325)))));
2570          princ_str(":;",VV[25]);          princ_str(":;",VV[25]);
2571          goto T1308;          goto T1316;
2572  T1308:;  T1316:;
2573          {object V371;          {object V373;
2574          V371= car((V323));          V373= car((V325));
2575          V323= cdr((V323));}          V325= cdr((V325));}
2576          (void)((*(LnkLI325))(car((V370)),cadr((V370))));          (void)((*(LnkLI325))(car((V372)),cadr((V372))));
2577          if((caddr((V370)))==Cnil){          if((caddr((V372)))==Cnil){
2578          goto T1323;}          goto T1331;}
2579          (void)((*(LnkLI324))(caddr((V370)),Cnil));          (void)((*(LnkLI324))(caddr((V372)),Cnil));
2580          goto T1323;          goto T1331;
2581  T1323:;  T1331:;
2582          V369= cdr((V369));          V371= cdr((V371));
2583          V370= car((V369));          V372= car((V371));
2584          goto T1303;}          goto T1311;}
2585          goto T1299;          goto T1307;
2586  T1299:;  T1307:;
2587          if((cdr((V368)))==Cnil){          if((cdr((V370)))==Cnil){
2588          goto T1230;}          goto T1238;}
2589          princ_str("\n   goto T",VV[25]);          princ_str("\n   goto T",VV[25]);
2590          (void)((*(LnkLI274))(car((V368))));          (void)((*(LnkLI274))(car((V370))));
2591          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2592          princ_str("\nT",VV[25]);          princ_str("\nT",VV[25]);
2593          (void)((*(LnkLI274))(car((V368))));          (void)((*(LnkLI274))(car((V370))));
2594          princ_str(":;",VV[25]);}          princ_str(":;",VV[25]);}
2595          goto T1230;          goto T1238;
2596  T1230:;  T1238:;
2597          if((caddr((V327)))==Cnil){          if((caddr((V329)))==Cnil){
         goto T1340;}  
         V326= (VFUN_NARGS=0,(*(LnkLI326))());  
         {object V372;  
         V372= cadr((V327));  
         if(((V372))==Cnil){  
2598          goto T1348;}          goto T1348;}
2599          goto T1345;          V328= (VFUN_NARGS=0,(*(LnkLI326))());
2600          goto T1348;          {object V374;
2601  T1348:;          V374= cadr((V329));
2602            if(((V374))==Cnil){
2603            goto T1356;}
2604            goto T1353;
2605            goto T1356;
2606    T1356:;
2607          princ_str("\n   narg= narg - ",VV[25]);          princ_str("\n   narg= narg - ",VV[25]);
2608          V373 = make_fixnum((long)length(car((V327))));          V375 = make_fixnum((long)length(car((V329))));
2609          (void)((*(LnkLI274))(V373));          (void)((*(LnkLI274))(V375));
2610          princ_char(59,VV[25]);}          princ_char(59,VV[25]);}
         goto T1345;  
 T1345:;  
         if(((V328))!=Cnil){  
         goto T1353;}  
         V328= Ct;  
         princ_str("\n   va_start(ap,first);",VV[25]);  
2611          goto T1353;          goto T1353;
2612  T1353:;  T1353:;
2613            if(((V330))!=Cnil){
2614            goto T1361;}
2615            V330= Ct;
2616            princ_str("\n   va_start(ap,first);",VV[25]);
2617            goto T1361;
2618    T1361:;
2619          princ_str("\n   V",VV[25]);          princ_str("\n   V",VV[25]);
2620          (void)((*(LnkLI274))((V326)));          (void)((*(LnkLI274))((V328)));
2621          princ_str(" = ",VV[25]);          princ_str(" = ",VV[25]);
2622          V374= structure_ref(caddr((V327)),VV[69],5);          V376= structure_ref(caddr((V329)),VV[69],5);
2623          if(!((/* INLINE-ARGS */V374)==(VV[171]))){          if(!((/* INLINE-ARGS */V376)==(VV[171]))){
2624          goto T1364;}          goto T1372;}
2625          base[7]= Ct;          base[7]= Ct;
2626          goto T1363;          goto T1371;
2627          goto T1364;          goto T1372;
2628  T1364:;  T1372:;
2629          base[7]= symbol_value(VV[170]);          base[7]= symbol_value(VV[170]);
2630          goto T1363;          goto T1371;
2631  T1363:;  T1371:;
2632          bds_bind(VV[170],base[7]);          bds_bind(VV[170],base[7]);
2633          if((cadddr((V327)))==Cnil){          if((cadddr((V329)))==Cnil){
2634          goto T1368;}          goto T1376;}
2635          if(((VV[170]->s.s_dbind))==Cnil){          if(((VV[170]->s.s_dbind))==Cnil){
2636          goto T1371;}          goto T1379;}
2637          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);
2638          goto T1366;          goto T1374;
2639          goto T1371;          goto T1379;
2640  T1371:;  T1379:;
2641          princ_str("make_list(narg);",VV[25]);          princ_str("make_list(narg);",VV[25]);
2642          goto T1366;          goto T1374;
         goto T1368;  
 T1368:;  
         if(((VV[170]->s.s_dbind))==Cnil){  
         goto T1376;}  
         princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]);  
         goto T1366;  
2643          goto T1376;          goto T1376;
2644  T1376:;  T1376:;
2645            if(((VV[170]->s.s_dbind))==Cnil){
2646            goto T1384;}
2647            princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]);
2648            goto T1374;
2649            goto T1384;
2650    T1384:;
2651          princ_str("list_vector_new(narg,first,ap);",VV[25]);          princ_str("list_vector_new(narg,first,ap);",VV[25]);
2652          goto T1366;          goto T1374;
2653  T1366:;  T1374:;
2654          V375= caddr((V327));          V377= caddr((V329));
2655          V376= list(2,VV[155],(V326));          V378= list(2,VV[155],(V328));
2656          V377= (*(LnkLI324))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376);          V379= (*(LnkLI324))(/* INLINE-ARGS */V377,/* INLINE-ARGS */V378);
2657          bds_unwind1;          bds_unwind1;
2658          goto T1340;          goto T1348;
2659  T1340:;  T1348:;
2660          if((cadddr((V327)))==Cnil){          if((cadddr((V329)))==Cnil){
2661          goto T1380;}          goto T1388;}
2662          {object V378;          {object V380;
2663          V378= caddr((V327));          V380= caddr((V329));
2664          if(((V378))==Cnil){          if(((V380))==Cnil){
2665          goto T1386;}          goto T1394;}
2666          goto T1383;          goto T1391;
2667          goto T1386;          goto T1394;
2668  T1386:;  T1394:;
2669          {object V379;          {object V381;
2670          V379= cadr((V327));          V381= cadr((V329));
2671          if(((V379))==Cnil){          if(((V381))==Cnil){
2672          goto T1390;}          goto T1398;}
2673          goto T1383;          goto T1391;
2674          goto T1390;          goto T1398;
2675  T1390:;  T1398:;
2676          princ_str("\n   narg= narg - ",VV[25]);          princ_str("\n   narg= narg - ",VV[25]);
2677          V380 = make_fixnum((long)length(car((V327))));          V382 = make_fixnum((long)length(car((V329))));
2678          (void)((*(LnkLI274))(V380));          (void)((*(LnkLI274))(V382));
2679          princ_char(59,VV[25]);}}          princ_char(59,VV[25]);}}
2680          goto T1383;          goto T1391;
2681  T1383:;  T1391:;
2682          if(((V328))!=Cnil){          if(((V330))!=Cnil){
2683          goto T1395;}          goto T1403;}
2684          V328= Ct;          V330= Ct;
2685          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
         goto T1395;  
 T1395:;  
         {object V381;  
         object V382= car(cddddr((V327)));  
         if(endp(V382)){  
         V324= Cnil;  
         goto T1402;}  
         base[7]=V381=MMcons(Cnil,Cnil);  
2686          goto T1403;          goto T1403;
2687  T1403:;  T1403:;
         (V381->c.c_car)= caddr((V382->c.c_car));  
         V382=MMcdr(V382);  
         if(endp(V382)){  
         V324= base[7];  
         goto T1402;}  
         V381=MMcdr(V381)=MMcons(Cnil,Cnil);  
         goto T1403;}  
         goto T1402;  
 T1402:;  
2688          {object V383;          {object V383;
2689          object V384;          object V384= car(cddddr((V329)));
2690          V384= make_fixnum((long)length(car(cddddr((V327)))));          if(endp(V384)){
2691          V383= Cnil;          V326= Cnil;
2692          {register object V385;          goto T1410;}
2693          object V386;          base[7]=V383=MMcons(Cnil,Cnil);
         object V387;  
         V385= (V324);  
         V386= car(cddddr((V327)));  
         V387= car((V386));  
2694          goto T1411;          goto T1411;
2695  T1411:;  T1411:;
2696          if(((V385))!=Cnil){          (V383->c.c_car)= caddr((V384->c.c_car));
2697          goto T1412;}          V384=MMcdr(V384);
2698          goto T1406;          if(endp(V384)){
2699          goto T1412;          V326= base[7];
2700  T1412:;          goto T1410;}
2701          if(!((caar((V385)))==(VV[172]))){          V383=MMcdr(V383)=MMcons(Cnil,Cnil);
2702          goto T1417;}          goto T1411;}
2703          if((caddr(car((V385))))==(Cnil)){          goto T1410;
2704          goto T1416;}  T1410:;
2705          goto T1417;          {object V385;
2706  T1417:;          object V386;
2707          V383= Ct;          V386= make_fixnum((long)length(car(cddddr((V329)))));
2708          goto T1416;          V385= Cnil;
2709  T1416:;          {register object V387;
2710          if(!((caar((V385)))==(VV[172]))){          object V388;
2711          goto T1423;}          object V389;
2712          {object V388;          V387= (V326);
2713          V388= caddr(car((V385)));          V388= car(cddddr((V329)));
2714          if(!(((V388))==(Cnil))){          V389= car((V388));
2715          goto T1429;}          goto T1419;
2716          goto T1427;  T1419:;
2717          goto T1429;          if(((V387))!=Cnil){
2718  T1429:;          goto T1420;}
2719          if(type_of((V388))==t_cons){          goto T1414;
2720            goto T1420;
2721    T1420:;
2722            if(!((caar((V387)))==(VV[172]))){
2723            goto T1425;}
2724            if((caddr(car((V387))))==(Cnil)){
2725            goto T1424;}
2726            goto T1425;
2727    T1425:;
2728            V385= Ct;
2729            goto T1424;
2730    T1424:;
2731            if(!((caar((V387)))==(VV[172]))){
2732          goto T1431;}          goto T1431;}
2733          goto T1423;          {object V390;
2734            V390= caddr(car((V387)));
2735            if(!(((V390))==(Cnil))){
2736            goto T1437;}
2737            goto T1435;
2738            goto T1437;
2739    T1437:;
2740            if(type_of((V390))==t_cons){
2741            goto T1439;}
2742            goto T1431;
2743            goto T1439;
2744    T1439:;
2745            {register object x= car((V390)),V391= VV[173];
2746            while(!endp(V391))
2747            if(eql(x,V391->c.c_car)){
2748            goto T1435;
2749            }else V391=V391->c.c_cdr;
2750            goto T1431;}}
2751            goto T1435;
2752    T1435:;
2753            V392= structure_ref(cadddr((V389)),VV[69],1);
2754            if((/* INLINE-ARGS */V392)==(VV[174])){
2755            goto T1430;}
2756          goto T1431;          goto T1431;
2757  T1431:;  T1431:;
2758          {register object x= car((V388)),V389= VV[173];          V385= Ct;
2759          while(!endp(V389))          if(type_of(V387)!=t_cons)FEwrong_type_argument(Scons,V387);
2760          if(eql(x,V389->c.c_car)){          (V387)->c.c_car = small_fixnum(0);
2761          goto T1427;          goto T1430;
2762          }else V389=V389->c.c_cdr;  T1430:;
2763          goto T1423;}}          V387= cdr((V387));
2764          goto T1427;          V388= cdr((V388));
2765  T1427:;          V389= car((V388));
2766          V390= structure_ref(cadddr((V387)),VV[69],1);          goto T1419;}
2767          if((/* INLINE-ARGS */V390)==(VV[174])){          goto T1414;
2768          goto T1422;}  T1414:;
2769          goto T1423;          if(!(((long)length((V326)))>(15))){
2770  T1423:;          goto T1452;}
2771          V383= Ct;          V385= Ct;
2772          if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385);          goto T1452;
2773          (V385)->c.c_car = small_fixnum(0);  T1452:;
         goto T1422;  
 T1422:;  
         V385= cdr((V385));  
         V386= cdr((V386));  
         V387= car((V386));  
         goto T1411;}  
         goto T1406;  
 T1406:;  
         if(!(((long)length((V324)))>(15))){  
         goto T1444;}  
         V383= Ct;  
         goto T1444;  
 T1444:;  
2774          princ_str("\n   {",VV[25]);          princ_str("\n   {",VV[25]);
2775          vs_base=vs_top;          vs_base=vs_top;
2776          (void) (*Lnk327)();          (void) (*Lnk327)();
2777          vs_top=sup;          vs_top=sup;
2778          bds_bind(VV[25],symbol_value(VV[31]));          bds_bind(VV[25],symbol_value(VV[31]));
2779          if(((V383))==Cnil){          if(((V385))==Cnil){
2780          goto T1452;}          goto T1460;}
2781          princ_char(10,VV[31]);          princ_char(10,VV[31]);
2782          princ_str("static object VK",VV[25]);          princ_str("static object VK",VV[25]);
2783          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V321)));
2784          princ_str("defaults[",VV[25]);          princ_str("defaults[",VV[25]);
2785          V393 = make_fixnum((long)length((V324)));          V395 = make_fixnum((long)length((V326)));
2786          (void)((*(LnkLI274))(V393));          (void)((*(LnkLI274))(V395));
2787          princ_str("]={",VV[25]);          princ_str("]={",VV[25]);
2788          {object V394;          {object V396;
2789          register object V395;          register object V397;
2790          V394= (V324);          V396= (V326);
2791          V395= Cnil;          V397= Cnil;
2792          goto T1464;          goto T1472;
2793  T1464:;  T1472:;
2794          if(((V394))!=Cnil){          if(((V396))!=Cnil){
         goto T1465;}  
         goto T1462;  
         goto T1465;  
 T1465:;  
         princ_str("(void *)",VV[25]);  
         if(!(eql(car((V394)),small_fixnum(0)))){  
2795          goto T1473;}          goto T1473;}
2796          princ_str("-1",VV[25]);          goto T1470;
         goto T1471;  
2797          goto T1473;          goto T1473;
2798  T1473:;  T1473:;
2799          V395= caddr(car((V394)));          princ_str("(void *)",VV[25]);
2800          if(!(((V395))==(Cnil))){          if(!(eql(car((V396)),small_fixnum(0)))){
2801          goto T1477;}          goto T1481;}
2802            princ_str("-1",VV[25]);
2803            goto T1479;
2804            goto T1481;
2805    T1481:;
2806            V397= caddr(car((V396)));
2807            if(!(((V397))==(Cnil))){
2808            goto T1485;}
2809          princ_str("-2",VV[25]);          princ_str("-2",VV[25]);
2810          goto T1471;          goto T1479;
2811          goto T1477;          goto T1485;
2812  T1477:;  T1485:;
2813          if(!(type_of((V395))==t_cons)){          if(!(type_of((V397))==t_cons)){
2814          goto T1482;}          goto T1490;}
2815          if(!((car((V395)))==(VV[175]))){          if(!((car((V397)))==(VV[175]))){
2816          goto T1482;}          goto T1490;}
2817          (void)((*(LnkLI274))(cadr((V395))));          (void)((*(LnkLI274))(cadr((V397))));
2818          goto T1471;          goto T1479;
2819          goto T1482;          goto T1490;
2820  T1482:;  T1490:;
2821          if(!(type_of((V395))==t_cons)){          if(!(type_of((V397))==t_cons)){
2822          goto T1488;}          goto T1496;}
2823          if(!((car((V395)))==(VV[176]))){          if(!((car((V397)))==(VV[176]))){
2824          goto T1488;}          goto T1496;}
2825          V396= (*(LnkLI328))(caddr((V395)));          V398= (*(LnkLI328))(caddr((V397)));
2826          (void)((*(LnkLI274))(/* INLINE-ARGS */V396));          (void)((*(LnkLI274))(/* INLINE-ARGS */V398));
2827          goto T1471;          goto T1479;
2828          goto T1488;          goto T1496;
2829  T1488:;  T1496:;
2830          (void)((*(LnkLI329))());          (void)((*(LnkLI329))());
2831          goto T1471;          goto T1479;
2832  T1471:;  T1479:;
2833          if((cdr((V394)))==Cnil){          if((cdr((V396)))==Cnil){
2834          goto T1493;}          goto T1501;}
2835          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2836          goto T1493;          goto T1501;
2837  T1493:;  T1501:;
2838          V394= cdr((V394));          V396= cdr((V396));
2839          goto T1464;}          goto T1472;}
2840          goto T1462;          goto T1470;
2841  T1462:;  T1470:;
2842          princ_str("};",VV[25]);          princ_str("};",VV[25]);
2843          goto T1452;          goto T1460;
2844  T1452:;  T1460:;
2845          princ_char(10,VV[31]);          princ_char(10,VV[31]);
2846          princ_str("static struct { short n,allow_other_keys;",VV[25]);          princ_str("static struct { short n,allow_other_keys;",VV[25]);
2847          princ_str("object *defaults;",VV[25]);          princ_str("object *defaults;",VV[25]);
2848          princ_str("\n    KEYTYPE keys[",VV[25]);          princ_str("\n    KEYTYPE keys[",VV[25]);
2849          (void)((*(LnkLI274))((number_compare((V384),small_fixnum(1))>=0?((V384)):small_fixnum(1))));          (void)((*(LnkLI274))((number_compare((V386),small_fixnum(1))>=0?((V386)):small_fixnum(1))));
2850          princ_str("];",VV[25]);          princ_str("];",VV[25]);
2851          princ_str("} LI",VV[25]);          princ_str("} LI",VV[25]);
2852          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V321)));
2853          princ_str("key=",VV[25]);          princ_str("key=",VV[25]);
2854          princ_char(123,VV[25]);          princ_char(123,VV[25]);
2855          V397 = make_fixnum((long)length(car(cddddr((V327)))));          V399 = make_fixnum((long)length(car(cddddr((V329)))));
2856          (void)((*(LnkLI274))(V397));          (void)((*(LnkLI274))(V399));
2857          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2858          if((cadr(cddddr((V327))))==Cnil){          if((cadr(cddddr((V329))))==Cnil){
2859          goto T1520;}          goto T1528;}
2860          V398= small_fixnum(1);          V400= small_fixnum(1);
2861          goto T1518;          goto T1526;
2862          goto T1520;          goto T1528;
2863  T1520:;  T1528:;
2864          V398= small_fixnum(0);          V400= small_fixnum(0);
2865          goto T1518;          goto T1526;
2866  T1518:;  T1526:;
2867          (void)((*(LnkLI274))(V398));          (void)((*(LnkLI274))(V400));
2868          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2869          if(((V383))==Cnil){          if(((V385))==Cnil){
2870          goto T1525;}          goto T1533;}
2871          princ_str("VK",VV[25]);          princ_str("VK",VV[25]);
2872          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V321)));
2873          princ_str("defaults",VV[25]);          princ_str("defaults",VV[25]);
2874          goto T1523;          goto T1531;
2875          goto T1525;          goto T1533;
2876  T1525:;  T1533:;
2877          princ_str("Cstd_key_defaults",VV[25]);          princ_str("Cstd_key_defaults",VV[25]);
2878          goto T1523;          goto T1531;
2879  T1523:;  T1531:;
2880          if((car(cddddr((V327))))==Cnil){          if((car(cddddr((V329))))==Cnil){
2881          goto T1531;}          goto T1539;}
2882          princ_str(",{",VV[25]);          princ_str(",{",VV[25]);
2883          {object V399;          {object V401;
2884          V399= reverse(car(cddddr((V327))));          V401= reverse(car(cddddr((V329))));
2885          goto T1539;          goto T1547;
2886  T1539:;  T1547:;
2887          if(((V399))!=Cnil){          if(((V401))!=Cnil){
         goto T1540;}  
         goto T1536;  
         goto T1540;  
 T1540:;  
         princ_str("(void *)",VV[25]);  
         V400= (*(LnkLI330))(caar((V399)));  
         (void)((*(LnkLI274))(/* INLINE-ARGS */V400));  
         if((cdr((V399)))==Cnil){  
2888          goto T1548;}          goto T1548;}
2889          princ_char(44,VV[25]);          goto T1544;
2890          goto T1548;          goto T1548;
2891  T1548:;  T1548:;
2892          V399= cdr((V399));          princ_str("(void *)",VV[25]);
2893          goto T1539;}          V402= (*(LnkLI330))(caar((V401)));
2894          goto T1536;          (void)((*(LnkLI274))(/* INLINE-ARGS */V402));
2895  T1536:;          if((cdr((V401)))==Cnil){
2896            goto T1556;}
2897            princ_char(44,VV[25]);
2898            goto T1556;
2899    T1556:;
2900            V401= cdr((V401));
2901            goto T1547;}
2902            goto T1544;
2903    T1544:;
2904          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2905          goto T1531;          goto T1539;
2906  T1531:;  T1539:;
2907          princ_str("};",VV[25]);          princ_str("};",VV[25]);
2908          bds_unwind1;          bds_unwind1;
2909          if((caddr((V327)))==Cnil){          if((caddr((V329)))==Cnil){
2910          goto T1559;}          goto T1567;}
2911          princ_str("\n   parse_key_rest_new(",VV[25]);          princ_str("\n   parse_key_rest_new(",VV[25]);
2912          V401= list(2,VV[155],(V326));          V403= list(2,VV[155],(V328));
2913          (void)((*(LnkLI274))(/* INLINE-ARGS */V401));          (void)((*(LnkLI274))(/* INLINE-ARGS */V403));
2914          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2915          goto T1557;          goto T1565;
2916          goto T1559;          goto T1567;
2917  T1559:;  T1567:;
2918          princ_str("\n   parse_key_new_new(",VV[25]);          princ_str("\n   parse_key_new_new(",VV[25]);
         goto T1557;  
 T1557:;  
         if(!(eql(small_fixnum(0),symbol_value(VV[141])))){  
         goto T1565;}  
         setq(VV[141],small_fixnum(1));  
2919          goto T1565;          goto T1565;
2920  T1565:;  T1565:;
2921          princ_str("narg,",VV[25]);          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){
         if(((VV[153]->s.s_dbind))==Cnil){  
2922          goto T1573;}          goto T1573;}
2923          V402= VV[177];          setq(VV[141],small_fixnum(1));
         goto T1571;  
2924          goto T1573;          goto T1573;
2925  T1573:;  T1573:;
2926          V402= VV[178];          princ_str("narg,",VV[25]);
2927          goto T1571;          if(((VV[153]->s.s_dbind))==Cnil){
2928  T1571:;          goto T1581;}
2929          (void)((*(LnkLI274))(V402));          V404= VV[177];
2930            goto T1579;
2931            goto T1581;
2932    T1581:;
2933            V404= VV[178];
2934            goto T1579;
2935    T1579:;
2936            (void)((*(LnkLI274))(V404));
2937          princ_char(43,VV[25]);          princ_char(43,VV[25]);
2938          (void)((*(LnkLI274))((V325)));          (void)((*(LnkLI274))((V327)));
2939          princ_str(",(struct key *)&LI",VV[25]);          princ_str(",(struct key *)(void *)&LI",VV[25]);
2940          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V321)));
2941          princ_str("key,first,ap);",VV[25]);}          princ_str("key,first,ap);",VV[25]);}
2942          goto T1380;          goto T1388;
2943  T1380:;  T1388:;
2944          {object V403;          {object V405;
2945          register object V404;          register object V406;
2946          V403= car(cddddr((V327)));          V405= car(cddddr((V329)));
2947          V404= car((V403));          V406= car((V405));
2948          goto T1584;          goto T1592;
2949  T1584:;  T1592:;
2950          if(!(endp_prop((V403)))){          if(!(endp_prop((V405)))){
2951          goto T1585;}          goto T1593;}
2952          goto T1580;          goto T1588;
2953          goto T1585;          goto T1593;
2954  T1585:;  T1593:;
2955          {object V406;          {object V408;
2956          V406= car((V324));          V408= car((V326));
2957          V324= cdr((V324));          V326= cdr((V326));
2958          V405= (V406);}          V407= (V408);}
2959          if(eql(small_fixnum(0),V405)){          if(eql(small_fixnum(0),V407)){
2960          goto T1591;}          goto T1599;}
2961          (void)((*(LnkLI331))(cadr((V404))));          (void)((*(LnkLI331))(cadr((V406))));
2962          goto T1589;          goto T1597;
2963          goto T1591;          goto T1599;
2964  T1591:;  T1599:;
2965          princ_str("\n   if(",VV[25]);          princ_str("\n   if(",VV[25]);
2966          V407= structure_ref(cadr((V404)),VV[69],2);          V409= structure_ref(cadr((V406)),VV[69],2);
2967          (void)((*(LnkLI332))(/* INLINE-ARGS */V407));          (void)((*(LnkLI332))(/* INLINE-ARGS */V409));
2968          princ_str("==0){",VV[25]);          princ_str("==0){",VV[25]);
2969          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2970          bds_bind(VV[134],(VV[134]->s.s_dbind));          bds_bind(VV[134],(VV[134]->s.s_dbind));
2971          bds_bind(VV[132],symbol_value(VV[132]));          bds_bind(VV[132],symbol_value(VV[132]));
2972          V408= (*(LnkLI325))(cadr((V404)),caddr((V404)));          V410= (*(LnkLI325))(cadr((V406)),caddr((V406)));
2973          bds_unwind1;          bds_unwind1;
2974          bds_unwind1;          bds_unwind1;
2975          bds_unwind1;          bds_unwind1;
2976          V409= structure_ref(cadddr((V404)),VV[69],1);          V411= structure_ref(cadddr((V406)),VV[69],1);
2977          if((/* INLINE-ARGS */V409)==(VV[174])){          if((/* INLINE-ARGS */V411)==(VV[174])){
2978          goto T1603;}          goto T1611;}
2979          (void)((*(LnkLI324))(cadddr((V404)),Cnil));          (void)((*(LnkLI324))(cadddr((V406)),Cnil));
2980          goto T1603;          goto T1611;
2981  T1603:;  T1611:;
2982          princ_str("\n   }else{",VV[25]);          princ_str("\n   }else{",VV[25]);
2983          (void)((*(LnkLI331))(cadr((V404))));          (void)((*(LnkLI331))(cadr((V406))));
2984          V410= structure_ref(cadddr((V404)),VV[69],1);          V412= structure_ref(cadddr((V406)),VV[69],1);
2985          if((/* INLINE-ARGS */V410)==(VV[174])){          if((/* INLINE-ARGS */V412)==(VV[174])){
2986          goto T1609;}          goto T1617;}
2987          (void)((*(LnkLI324))(cadddr((V404)),Ct));          (void)((*(LnkLI324))(cadddr((V406)),Ct));
2988          goto T1609;          goto T1617;
2989  T1609:;  T1617:;
2990          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2991          goto T1589;          goto T1597;
2992  T1589:;  T1597:;
2993          V403= cdr((V403));          V405= cdr((V405));
2994          V404= car((V403));          V406= car((V405));
2995          goto T1584;}          goto T1592;}
2996          goto T1580;          goto T1588;
2997  T1580:;  T1588:;
2998          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[146]->s.s_dbind))==Cnil){
2999          goto T1618;}          goto T1626;}
3000          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
3001          princ_str("\n   goto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[25]);
3002          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[25]);
3003          goto T1618;          goto T1626;
3004  T1618:;  T1626:;
3005          base[7]= caddr(cddr((V320)));          base[7]= caddr(cddr((V322)));
3006          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3007          (void) (*Lnk318)();          (void) (*Lnk318)();
3008          vs_top=sup;          vs_top=sup;
3009          if(((V328))==Cnil){          if(((V330))==Cnil){
3010          goto T1628;}          goto T1636;}
3011          V328= Cnil;          V330= Cnil;
3012          princ_str("\n   va_end(ap);",VV[25]);          princ_str("\n   va_end(ap);",VV[25]);
3013          goto T1628;          goto T1636;
3014  T1628:;  T1636:;
3015          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3016          goto T1636;}          goto T1644;}
3017          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
3018          goto T1636;}          goto T1644;}
3019          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
3020          goto T1636;}          goto T1644;}
3021          goto T1634;          goto T1642;
3022          goto T1636;          goto T1644;
3023  T1636:;  T1644:;
3024          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
3025          goto T1634;          goto T1642;
3026  T1634:;  T1642:;
3027          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[25]);
3028          princ_char(125,VV[25]);          princ_char(125,VV[25]);
3029          if((base[1])==Cnil){          if((base[1])==Cnil){
3030          goto T1647;}          goto T1655;}
3031          princ_str("\n   }",VV[25]);          princ_str("\n   }",VV[25]);
3032          goto T1647;          goto T1655;
3033  T1647:;  T1655:;
3034          (void)((*(LnkLI333))());          (void)((*(LnkLI333))());
3035          V412= get((V318),VV[77],Cnil);          V414= get((V320),VV[77],Cnil);
3036          {object V413 = (*(LnkLI319))((V337),V412);          {object V415 = (*(LnkLI319))((V339),V414);
3037          bds_unwind1;          bds_unwind1;
3038          bds_unwind1;          bds_unwind1;
3039          bds_unwind1;          bds_unwind1;
3040          bds_unwind1;          bds_unwind1;
3041          VMR25(V413)}}}          VMR25(V415)}}}
3042          base[0]=base[0];          base[0]=base[0];
3043          return Cnil;          return Cnil;
3044  }  }
3045  /*      local entry for function T3DEFUN-NORMAL */  /*      local entry for function T3DEFUN-NORMAL */
3046    
3047  static object LI27(V418,V419,V420,V421)  static object LI27(V420,V421,V422,V423)
3048    
3049  object V418;register object V419;object V420;object V421;  object V420;register object V421;object V422;object V423;
3050  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
3051          goto TTL;          goto TTL;
3052  TTL:;  TTL:;
3053          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[179],(V418))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[179],(V420))));
3054          if(!(type_of((V419))==t_fixnum||          if(!(type_of((V421))==t_fixnum||
3055  type_of((V419))==t_bignum||  type_of((V421))==t_bignum||
3056  type_of((V419))==t_ratio||  type_of((V421))==t_ratio||
3057  type_of((V419))==t_shortfloat||  type_of((V421))==t_shortfloat||
3058  type_of((V419))==t_longfloat||  type_of((V421))==t_longfloat||
3059  type_of((V419))==t_complex)){  type_of((V421))==t_complex)){
3060          goto T1656;}          goto T1664;}
3061          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
3062          (void)((*(LnkLI274))((V419)));          (void)((*(LnkLI274))((V421)));
3063          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3064          goto T1654;          goto T1662;
3065          goto T1656;          goto T1664;
3066  T1656:;  T1664:;
3067          princ_char(10,VV[25]);          princ_char(10,VV[25]);
3068          (void)((*(LnkLI274))((V419)));          (void)((*(LnkLI274))((V421)));
3069          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3070          goto T1654;          goto T1662;
3071  T1654:;  T1662:;
3072          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
3073          princ_str("register object *",VV[25]);          princ_str("register object *",VV[25]);
3074          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3075          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[25]);
3076          V422= structure_ref(cadr((V420)),VV[62],1);          V424= structure_ref(cadr((V422)),VV[62],1);
3077          (void)((*(LnkLI317))(/* INLINE-ARGS */V422,(V419),VV[148]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V424,(V421),VV[148]));
3078          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[25]);
3079          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3080          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[25]);
# Line 3063  T1654:; Line 3083  T1654:;
3083          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
3084          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI274))(symbol_value(VV[136])));
3085          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3086          goto T1681;}          goto T1689;}
3087          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
3088          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI274))(symbol_value(VV[136])));
3089          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3090          goto T1679;          goto T1687;
3091          goto T1681;          goto T1689;
3092  T1681:;  T1689:;
3093          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
         goto T1679;  
 T1679:;  
         if(((V421))==Cnil){  
         goto T1687;}  
         princ_str("\n   bds_check;",VV[25]);  
3094          goto T1687;          goto T1687;
3095  T1687:;  T1687:;
3096            if(((V423))==Cnil){
3097            goto T1695;}
3098            princ_str("\n   bds_check;",VV[25]);
3099            goto T1695;
3100    T1695:;
3101          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
3102          goto T1691;}          goto T1699;}
3103          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
3104          goto T1691;          goto T1699;
3105  T1691:;  T1699:;
3106          (void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V420)),caddr(cddr((V420))),(V418))));          (void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V422)),caddr(cddr((V422))),(V420))));
3107          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
3108          {object V423;          {object V425;
3109          V423= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));          V425= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));
3110          setq(VV[33],make_cons((V423),symbol_value(VV[33])));}          setq(VV[33],make_cons((V425),symbol_value(VV[33])));}
3111          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
3112          (void)((*(LnkLI277))(symbol_value(VV[136])));          (void)((*(LnkLI277))(symbol_value(VV[136])));
3113          {object V424 = (*(LnkLI335))();          {object V426 = (*(LnkLI335))();
3114          VMR26(V424)}          VMR26(V426)}
3115          base[0]=base[0];          base[0]=base[0];
3116          return Cnil;          return Cnil;
3117  }  }
3118  /*      local entry for function WT-V*-MACROS   */  /*      local entry for function WT-V*-MACROS   */
3119    
3120  static object LI28(V427,V428)  static object LI28(V429,V430)
3121    
3122  register object V427;object V428;  register object V429;object V430;
3123  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
3124          goto TTL;          goto TTL;
3125  TTL:;  TTL:;
3126          {object V429;          {object V431;
3127          V429= make_cons((V427),symbol_value(VV[130]));          V431= make_cons((V429),symbol_value(VV[130]));
3128          setq(VV[33],make_cons((V429),symbol_value(VV[33])));}          setq(VV[33],make_cons((V431),symbol_value(VV[33])));}
3129          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3130          goto T1709;}          goto T1717;}
3131          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
3132          goto T1709;}          goto T1717;}
3133          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
3134          goto T1709;}          goto T1717;}
3135          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[31]);
3136          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3137          goto T1707;          goto T1715;
3138          goto T1709;          goto T1717;
3139  T1709:;  T1717:;
3140          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[31]);
3141          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3142          princ_char(32,VV[31]);          princ_char(32,VV[31]);
3143          princ_str("register object *",VV[31]);          princ_str("register object *",VV[31]);
3144          (void)((*(LnkLI277))(symbol_value(VV[20])));          (void)((*(LnkLI277))(symbol_value(VV[20])));
3145          princ_str("base=vs_top;",VV[31]);          princ_str("base=vs_top;",VV[31]);
3146          goto T1707;          goto T1715;
3147  T1707:;  T1715:;
3148          (void)((*(LnkLI335))());          (void)((*(LnkLI335))());
3149          if((symbol_value(VV[138]))==Cnil){          if((symbol_value(VV[138]))==Cnil){
3150          goto T1726;}          goto T1734;}
3151          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3152          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3153          princ_char(32,VV[31]);          princ_char(32,VV[31]);
3154          princ_str(" register object *",VV[31]);          princ_str(" register object *",VV[31]);
3155          (void)((*(LnkLI277))(symbol_value(VV[20])));          (void)((*(LnkLI277))(symbol_value(VV[20])));
3156          princ_str("sup=vs_top+",VV[31]);          princ_str("sup=vs_top+",VV[31]);
3157          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3158          princ_str(";vs_top=sup;",VV[31]);          princ_str(";vs_top=sup;",VV[31]);
3159          goto T1724;          goto T1732;
3160          goto T1726;          goto T1734;
3161  T1726:;  T1734:;
3162          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3163          goto T1737;}          goto T1745;}
3164          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3165          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3166          goto T1724;          goto T1732;
3167          goto T1737;          goto T1745;
3168  T1737:;  T1745:;
3169          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3170          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3171          princ_str(" vs_top += ",VV[31]);          princ_str(" vs_top += ",VV[31]);
3172          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3173          princ_char(59,VV[31]);          princ_char(59,VV[31]);
3174          goto T1724;          goto T1732;
3175  T1724:;  T1732:;
3176          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3177          goto T1748;}          goto T1756;}
3178          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3179          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3180          goto T1746;          goto T1754;
3181          goto T1748;          goto T1756;
3182  T1748:;  T1756:;
3183          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3184          goto T1753;}          goto T1761;}
3185          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3186          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3187          princ_str(" vs_reserve(",VV[31]);          princ_str(" vs_reserve(",VV[31]);
3188          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3189          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3190          goto T1746;          goto T1754;
3191          goto T1753;          goto T1761;
3192  T1753:;  T1761:;
3193          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3194          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3195          princ_str(" vs_check;",VV[31]);          princ_str(" vs_check;",VV[31]);
3196          goto T1746;          goto T1754;
3197  T1746:;  T1754:;
3198          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3199          goto T1764;}          goto T1772;}
3200          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[31]);
3201          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3202          princ_str("(VMT",VV[31]);          princ_str("(VMT",VV[31]);
3203          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3204          princ_str(") return(VMT",VV[31]);          princ_str(") return(VMT",VV[31]);
3205          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3206          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3207          {object V430 = Cnil;          {object V432 = Cnil;
3208          VMR27(V430)}          VMR27(V432)}
3209          goto T1764;          goto T1772;
3210  T1764:;  T1772:;
3211          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[31]);
3212          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3213          princ_str("(VMT",VV[31]);          princ_str("(VMT",VV[31]);
3214          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3215          princ_str(") vs_top=base ; return(VMT",VV[31]);          princ_str(") vs_top=base ; return(VMT",VV[31]);
3216          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V429)));
3217          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3218          {object V431 = Cnil;          {object V433 = Cnil;
3219          VMR27(V431)}          VMR27(V433)}
3220          base[0]=base[0];          base[0]=base[0];
3221          return Cnil;          return Cnil;
3222  }  }
3223  /*      local entry for function WT-REQUIREDS   */  /*      local entry for function WT-REQUIREDS   */
3224    
3225  static object LI29(V434,V435)  static object LI29(V436,V437)
3226    
3227  object V434;object V435;  object V436;object V437;
3228  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
3229          goto TTL;          goto TTL;
3230  TTL:;  TTL:;
3231          {register object V436;          {register object V438;
3232          V436= (V434);          V438= (V436);
3233          goto T1782;          goto T1790;
3234  T1782:;  T1790:;
3235          if(!(endp_prop((V436)))){          if(!(endp_prop((V438)))){
3236          goto T1783;}          goto T1791;}
3237          goto T1780;          goto T1788;
3238          goto T1783;          goto T1791;
3239  T1783:;  T1791:;
3240          {register object V437;          {register object V439;
3241          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
3242          V437= symbol_value(VV[88]);          V439= symbol_value(VV[88]);
3243          (void)(structure_set(car((V436)),VV[69],4,(V437)));          (void)(structure_set(car((V438)),VV[69],4,(V439)));
3244          princ_char(86,VV[25]);          princ_char(86,VV[25]);
3245          (void)((*(LnkLI274))((V437)));}          (void)((*(LnkLI274))((V439)));}
3246          if(endp_prop(cdr((V436)))){          if(endp_prop(cdr((V438)))){
3247          goto T1793;}          goto T1801;}
3248          princ_char(44,VV[25]);          princ_char(44,VV[25]);
3249          goto T1793;          goto T1801;
3250  T1793:;  T1801:;
3251          V436= cdr((V436));          V438= cdr((V438));
3252          goto T1782;}          goto T1790;}
3253          goto T1780;          goto T1788;
3254  T1780:;  T1788:;
3255          princ_str(")\n",VV[25]);          princ_str(")\n",VV[25]);
3256          if(((V434))==Cnil){          if(((V436))==Cnil){
3257          goto T1803;}          goto T1811;}
3258          princ_char(10,VV[25]);          princ_char(10,VV[25]);
3259          {register object V438;          {register object V440;
3260          register object V439;          register object V441;
3261          register object V440;          register object V442;
3262          V438= (V434);          V440= (V436);
3263          V439= (V435);          V441= (V437);
3264          V440= Cnil;          V442= Cnil;
3265          goto T1807;          goto T1815;
3266  T1807:;  T1815:;
3267          if(!(endp_prop((V438)))){          if(!(endp_prop((V440)))){
3268          goto T1808;}          goto T1816;}
3269          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3270          {object V441 = Cnil;          {object V443 = Cnil;
3271          VMR28(V441)}          VMR28(V443)}
3272          goto T1808;          goto T1816;
3273  T1808:;  T1816:;
3274          if(((V440))==Cnil){          if(((V442))==Cnil){
3275          goto T1813;}          goto T1821;}
3276          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3277          goto T1813;          goto T1821;
3278  T1813:;  T1821:;
3279          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3280          V442= (*(LnkLI336))(car((V438)));          V444= (*(LnkLI336))(car((V440)));
         (void)((*(LnkLI274))(/* INLINE-ARGS */V442));  
         V443= (*(LnkLI280))(car((V439)));  
         (void)((*(LnkLI274))(/* INLINE-ARGS */V443));  
         V440= car((V439));  
         princ_char(86,VV[25]);  
         V444= structure_ref(car((V438)),VV[69],4);  
3281          (void)((*(LnkLI274))(/* INLINE-ARGS */V444));          (void)((*(LnkLI274))(/* INLINE-ARGS */V444));
3282          V438= cdr((V438));          V445= (*(LnkLI280))(car((V441)));
3283          V439= cdr((V439));          (void)((*(LnkLI274))(/* INLINE-ARGS */V445));
3284          goto T1807;}          V442= car((V441));
3285          goto T1803;          princ_char(86,VV[25]);
3286  T1803:;          V446= structure_ref(car((V440)),VV[69],4);
3287          {object V445 = Cnil;          (void)((*(LnkLI274))(/* INLINE-ARGS */V446));
3288          VMR28(V445)}          V440= cdr((V440));
3289            V441= cdr((V441));
3290            goto T1815;}
3291            goto T1811;
3292    T1811:;
3293            {object V447 = Cnil;
3294            VMR28(V447)}
3295          return Cnil;          return Cnil;
3296  }  }
3297  /*      local entry for function ADD-DEBUG-INFO */  /*      local entry for function ADD-DEBUG-INFO */
3298    
3299  static object LI30(V448,V449)  static object LI30(V450,V451)
3300    
3301  object V448;object V449;  object V450;object V451;
3302  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
3303          goto TTL;          goto TTL;
3304  TTL:;  TTL:;
3305          {object V450;          {object V452;
3306          V450= Cnil;          V452= Cnil;
3307          {object V451;          {object V453;
3308          V451= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil);          V453= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil);
3309          if(((V451))==Cnil){          if(((V453))==Cnil){
3310          goto T1833;}          goto T1841;}
3311          {object V452 = (V451);          {object V454 = (V453);
3312          VMR29(V452)}          VMR29(V454)}
3313          goto T1833;          goto T1841;
3314  T1833:;  T1841:;
3315          if((get((V448),VV[115],Cnil))!=Cnil){          if((get((V450),VV[115],Cnil))!=Cnil){
         goto T1836;}  
         {object V453 = (VFUN_NARGS=2,(*(LnkLI337))(VV[180],(V448)));  
         VMR29(V453)}  
         goto T1836;  
 T1836:;  
         (void)(remprop((V448),VV[115]));  
         {register object V454;  
         V454= small_fixnum(0);  
         {register object V455;  
         register object V456;  
         V455= structure_ref(cadr((V449)),VV[62],1);  
         V456= car((V455));  
         goto T1843;  
 T1843:;  
         if(!(endp_prop((V455)))){  
3316          goto T1844;}          goto T1844;}
3317          goto T1839;          {object V455 = (VFUN_NARGS=2,(*(LnkLI337))(VV[180],(V450)));
3318            VMR29(V455)}
3319          goto T1844;          goto T1844;
3320  T1844:;  T1844:;
3321          V457= structure_ref((V456),VV[69],2);          (void)(remprop((V450),VV[115]));
3322          if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){          {register object V456;
3323          goto T1848;}          V456= small_fixnum(0);
3324          V458= structure_ref((V456),VV[69],2);          {register object V457;
3325          if(!(type_of(cdr(/* INLINE-ARGS */V458))==t_fixnum)){          register object V458;
3326          goto T1848;}          V457= structure_ref(cadr((V451)),VV[62],1);
3327          V459= structure_ref((V456),VV[69],2);          V458= car((V457));
3328          {object V460= cdr(/* INLINE-ARGS */V459);          goto T1851;
3329          V454= (number_compare((V454),V460)>=0?((V454)):V460);}  T1851:;
3330          goto T1848;          if(!(endp_prop((V457)))){
3331  T1848:;          goto T1852;}
3332          V455= cdr((V455));          goto T1847;
3333          V456= car((V455));          goto T1852;
3334          goto T1843;}  T1852:;
3335          goto T1839;          V459= structure_ref((V458),VV[69],2);
3336  T1839:;          if(!(type_of(/* INLINE-ARGS */V459)==t_cons)){
3337          base[0]= one_plus((V454));          goto T1856;}
3338            V460= structure_ref((V458),VV[69],2);
3339            if(!(type_of(cdr(/* INLINE-ARGS */V460))==t_fixnum)){
3340            goto T1856;}
3341            V461= structure_ref((V458),VV[69],2);
3342            {object V462= cdr(/* INLINE-ARGS */V461);
3343            V456= (number_compare((V456),V462)>=0?((V456)):V462);}
3344            goto T1856;
3345    T1856:;
3346            V457= cdr((V457));
3347            V458= car((V457));
3348            goto T1851;}
3349            goto T1847;
3350    T1847:;
3351            base[0]= one_plus((V456));
3352          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3353          Lmake_list();          Lmake_list();
3354          vs_top=sup;          vs_top=sup;
3355          V450= vs_base[0];          V452= vs_base[0];
3356          {register object V461;          {register object V463;
3357          register object V462;          register object V464;
3358          V461= structure_ref(cadr((V449)),VV[62],1);          V463= structure_ref(cadr((V451)),VV[62],1);
3359          V462= car((V461));          V464= car((V463));
3360          goto T1866;          goto T1874;
3361  T1866:;  T1874:;
3362          if(!(endp_prop((V461)))){          if(!(endp_prop((V463)))){
3363          goto T1867;}          goto T1875;}
3364          goto T1862;          goto T1870;
3365          goto T1867;          goto T1875;
3366  T1867:;  T1875:;
3367          V463= structure_ref((V462),VV[69],2);          V465= structure_ref((V464),VV[69],2);
3368          if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V465)==t_cons)){
3369          goto T1871;}          goto T1879;}
3370          V464= structure_ref((V462),VV[69],2);          V466= structure_ref((V464),VV[69],2);
3371          if(!(type_of(cdr(/* INLINE-ARGS */V464))==t_fixnum)){          if(!(type_of(cdr(/* INLINE-ARGS */V466))==t_fixnum)){
3372          goto T1871;}          goto T1879;}
3373          {object V465;          {object V467;
3374          register object V467;          register object V469;
3375          V468= structure_ref((V462),VV[69],2);          V470= structure_ref((V464),VV[69],2);
3376          V465= cdr(/* INLINE-ARGS */V468);          V467= cdr(/* INLINE-ARGS */V470);
3377          V467= structure_ref((V462),VV[69],0);          V469= structure_ref((V464),VV[69],0);
3378          if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450));          if(type_of(nthcdr(fixint((V467)),V452))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V467)),V452));
3379          (nthcdr(fixint((V465)),V450))->c.c_car = (V467);          (nthcdr(fixint((V467)),V452))->c.c_car = (V469);
3380          (void)(nthcdr(fixint((V465)),V450));}          (void)(nthcdr(fixint((V467)),V452));}
3381          goto T1871;          goto T1879;
3382  T1871:;  T1879:;
3383          V461= cdr((V461));          V463= cdr((V463));
3384          V462= car((V461));          V464= car((V463));
3385          goto T1866;}          goto T1874;}
3386          goto T1862;          goto T1870;
3387  T1862:;  T1870:;
3388          (void)(sputprop((V448),VV[116],(V450)));          (void)(sputprop((V450),VV[116],(V452)));
3389          {object V469;          {object V471;
3390          V469= get((V448),VV[116],Cnil);          V471= get((V450),VV[116],Cnil);
3391          if(((V469))==Cnil){          if(((V471))==Cnil){
3392          goto T1887;}          goto T1895;}
3393          if((cdr((V469)))!=Cnil){          if((cdr((V471)))!=Cnil){
3394          goto T1886;}          goto T1894;}
3395          if((car((V469)))==Cnil){          if((car((V471)))==Cnil){
3396          goto T1887;}          goto T1895;}
3397          goto T1886;          goto T1894;
3398  T1886:;  T1894:;
3399          V470= list(2,VV[91],(V448));          V472= list(2,VV[91],(V450));
3400          V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469)));          V473= list(3,VV[116],/* INLINE-ARGS */V472,list(2,VV[91],(V471)));
3401          {object V472 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V471));          {object V474 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V473));
3402          VMR29(V472)}          VMR29(V474)}
3403          goto T1887;          goto T1895;
3404  T1887:;  T1895:;
3405          {object V473 = Cnil;          {object V475 = Cnil;
3406          VMR29(V473)}}}}}          VMR29(V475)}}}}}
3407          base[0]=base[0];          base[0]=base[0];
3408          return Cnil;          return Cnil;
3409  }  }
3410  /*      local entry for function ANALYZE-REGS   */  /*      local entry for function ANALYZE-REGS   */
3411    
3412  static object LI31(V476,V477)  static object LI31(V478,V479)
3413    
3414  object V476;object V477;  object V478;object V479;
3415  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
3416          goto TTL;          goto TTL;
3417  TTL:;  TTL:;
3418          {object V478;          {object V480;
3419          V478= number_minus(symbol_value(VV[181]),(V477));          V480= number_minus(symbol_value(VV[181]),(V479));
3420          if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){
3421          goto T1895;}          goto T1903;}
3422          V479= (VFUN_NARGS=1,(*(LnkLI339))((V476)));          V481= (VFUN_NARGS=1,(*(LnkLI339))((V478)));
3423          {long V480 = (long)(*(LnkLI338))(/* INLINE-ARGS */V479,(V478));          {long V482 = (long)(*(LnkLI338))(/* INLINE-ARGS */V481,(V480));
3424          VMR30((object)V480)}          VMR30((object)V482)}
3425          goto T1895;          goto T1903;
3426  T1895:;  T1903:;
         {register object V481;  
         register object V482;  
         V481= Cnil;  
         V482= Cnil;  
3427          {register object V483;          {register object V483;
3428          register object V484;          register object V484;
3429          V483= (V476);          V483= Cnil;
3430          V484= car((V483));          V484= Cnil;
3431          goto T1901;          {register object V485;
3432  T1901:;          register object V486;
3433          if(!(endp_prop((V483)))){          V485= (V478);
3434          goto T1902;}          V486= car((V485));
         goto T1897;  
         goto T1902;  
 T1902:;  
         V486= structure_ref((V484),VV[69],5);  
         {register object x= /* INLINE-ARGS */V486,V485= VV[183];  
         while(!endp(V485))  
         if(x==(V485->c.c_car)){  
3435          goto T1909;          goto T1909;
3436          }else V485=V485->c.c_cdr;  T1909:;
3437          goto T1908;}          if(!(endp_prop((V485)))){
3438          goto T1909;          goto T1910;}
3439  T1909:;{object V487;          goto T1905;
         {register object x= (V484),V488= (V482);  
         while(!endp(V488))  
         if(eql(x,V488->c.c_car)){  
         V487= V488;  
         goto T1911;  
         }else V488=V488->c.c_cdr;  
         V487= Cnil;}  
         goto T1911;  
 T1911:;  
         if(V487==Cnil)goto T1910;  
         goto T1906;  
3440          goto T1910;          goto T1910;
3441  T1910:;}  T1910:;
3442          {register object V489;          V488= structure_ref((V486),VV[69],5);
3443          V489= (V484);          {register object x= /* INLINE-ARGS */V488,V487= VV[183];
3444          V482= make_cons((V489),(V482));          while(!endp(V487))
3445          goto T1906;}          if(x==(V487->c.c_car)){
3446          goto T1908;          goto T1917;
3447  T1908:;{object V490;          }else V487=V487->c.c_cdr;
3448          {register object x= (V484),V491= (V481);          goto T1916;}
3449          while(!endp(V491))          goto T1917;
3450          if(x==(V491->c.c_car)){  T1917:;{object V489;
3451          V490= V491;          {register object x= (V486),V490= (V484);
3452          goto T1915;          while(!endp(V490))
3453          }else V491=V491->c.c_cdr;          if(eql(x,V490->c.c_car)){
3454          V490= Cnil;}          V489= V490;
3455          goto T1915;          goto T1919;
3456  T1915:;          }else V490=V490->c.c_cdr;
3457          if(V490==Cnil)goto T1914;          V489= Cnil;}
3458          goto T1906;          goto T1919;
3459    T1919:;
3460            if(V489==Cnil)goto T1918;
3461            goto T1914;
3462            goto T1918;
3463    T1918:;}
3464            {register object V491;
3465            V491= (V486);
3466            V484= make_cons((V491),(V484));
3467            goto T1914;}
3468            goto T1916;
3469    T1916:;{object V492;
3470            {register object x= (V486),V493= (V483);
3471            while(!endp(V493))
3472            if(x==(V493->c.c_car)){
3473            V492= V493;
3474            goto T1923;
3475            }else V493=V493->c.c_cdr;
3476            V492= Cnil;}
3477            goto T1923;
3478    T1923:;
3479            if(V492==Cnil)goto T1922;
3480          goto T1914;          goto T1914;
3481  T1914:;}          goto T1922;
3482          {register object V492;  T1922:;}
3483          V492= (V484);          {register object V494;
3484          V482= make_cons((V492),(V482));}          V494= (V486);
3485          goto T1906;          V484= make_cons((V494),(V484));}
3486  T1906:;          goto T1914;
3487          V483= cdr((V483));  T1914:;
3488          V484= car((V483));          V485= cdr((V485));
3489          goto T1901;}          V486= car((V485));
3490          goto T1897;          goto T1909;}
3491  T1897:;          goto T1905;
3492          (void)((*(LnkLI338))((V481),(V478)));  T1905:;
3493          {long V493 = (long)(*(LnkLI338))((V482),symbol_value(VV[182]));          (void)((*(LnkLI338))((V483),(V480)));
3494          VMR30((object)V493)}}}          {long V495 = (long)(*(LnkLI338))((V484),symbol_value(VV[182]));
3495            VMR30((object)V495)}}}
3496          base[0]=base[0];          base[0]=base[0];
3497  }  }
3498  /*      local entry for function ANALYZE-REGS1  */  /*      local entry for function ANALYZE-REGS1  */
3499    
3500  static object LI32(V496,V497)  static object LI32(V498,V499)
3501    
3502  object V496;object V497;  object V498;object V499;
3503  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
3504          goto TTL;          goto TTL;
3505  TTL:;  TTL:;
3506          {register long V498;          {register long V500;
3507          register long V499;          register long V501;
3508          long V500;          long V502;
3509          long V501;          long V503;
3510          register long V502;          register long V504;
3511          V498= 0;          V500= 0;
3512          V499= 3;          V501= 3;
3513          V500= 100000;          V502= 100000;
3514          V501= fix((V497));          V503= fix((V499));
3515          V502= 0;          V504= 0;
3516          V496= (VFUN_NARGS=1,(*(LnkLI339))((V496)));          V498= (VFUN_NARGS=1,(*(LnkLI339))((V498)));
3517          goto T1932;          goto T1940;
3518  T1932:;  T1940:;
         {register object V503;  
         object V504;  
         V503= (V496);  
         V504= car((V503));  
         goto T1938;  
 T1938:;  
         if(!(endp_prop((V503)))){  
         goto T1939;}  
         goto T1934;  
         goto T1939;  
 T1939:;  
         V498= fix(structure_ref((V504),VV[69],6));  
         if(!((V498)>=(V499))){  
         goto T1945;}  
         V502= (long)(V502)+(1);  
         if(!((V498)<(V500))){  
         goto T1950;}  
         V500= V498;  
         goto T1950;  
 T1950:;  
         if(!((V502)>(V501))){  
         goto T1945;}  
         goto T1933;  
         goto T1945;  
 T1945:;  
         V503= cdr((V503));  
         V504= car((V503));  
         goto T1938;}  
         goto T1934;  
 T1934:;  
         if(!((V502)<(V501))){  
         goto T1961;}  
         V499= (long)(V499)-(1);  
         goto T1961;  
 T1961:;  
3519          {register object V505;          {register object V505;
3520          register object V506;          object V506;
3521          V505= (V496);          V505= (V498);
3522          V506= car((V505));          V506= car((V505));
3523          goto T1969;          goto T1946;
3524  T1969:;  T1946:;
3525          if(!(endp_prop((V505)))){          if(!(endp_prop((V505)))){
3526          goto T1970;}          goto T1947;}
3527          goto T1965;          goto T1942;
3528          goto T1970;          goto T1947;
3529  T1970:;  T1947:;
3530          {long V507= fix(structure_ref((V506),VV[69],6));          V500= fix(structure_ref((V506),VV[69],6));
3531          if(!((/* INLINE-ARGS */V507)<(V499))){          if(!((V500)>=(V501))){
3532          goto T1974;}}          goto T1953;}
3533          (void)(structure_set((V506),VV[69],6,small_fixnum(0)));          V504= (long)(V504)+(1);
3534          goto T1974;          if(!((V500)<(V502))){
3535  T1974:;          goto T1958;}
3536            V502= V500;
3537            goto T1958;
3538    T1958:;
3539            if(!((V504)>(V503))){
3540            goto T1953;}
3541            goto T1941;
3542            goto T1953;
3543    T1953:;
3544          V505= cdr((V505));          V505= cdr((V505));
3545          V506= car((V505));          V506= car((V505));
3546            goto T1946;}
3547            goto T1942;
3548    T1942:;
3549            if(!((V504)<(V503))){
3550          goto T1969;}          goto T1969;}
3551          goto T1965;          V501= (long)(V501)-(1);
3552  T1965:;          goto T1969;
3553          {long V508 = V499;  T1969:;
3554          VMR31((object)V508)}          {register object V507;
3555          goto T1933;          register object V508;
3556  T1933:;          V507= (V498);
3557          V502= 0;          V508= car((V507));
3558          V499= (long)(V500)+(1);          goto T1977;
3559          V500= 1000000;  T1977:;
3560          goto T1932;}          if(!(endp_prop((V507)))){
3561            goto T1978;}
3562            goto T1973;
3563            goto T1978;
3564    T1978:;
3565            {long V509= fix(structure_ref((V508),VV[69],6));
3566            if(!((/* INLINE-ARGS */V509)<(V501))){
3567            goto T1982;}}
3568            (void)(structure_set((V508),VV[69],6,small_fixnum(0)));
3569            goto T1982;
3570    T1982:;
3571            V507= cdr((V507));
3572            V508= car((V507));
3573            goto T1977;}
3574            goto T1973;
3575    T1973:;
3576            {long V510 = V501;
3577            VMR31((object)V510)}
3578            goto T1941;
3579    T1941:;
3580            V504= 0;
3581            V501= (long)(V502)+(1);
3582            V502= 1000000;
3583            goto T1940;}
3584          base[0]=base[0];          base[0]=base[0];
3585  }  }
3586  /*      local entry for function WT-GLOBAL-ENTRY        */  /*      local entry for function WT-GLOBAL-ENTRY        */
3587    
3588  static object LI33(V513,V514,V515,V516)  static object LI33(V515,V516,V517,V518)
3589    
3590  object V513;object V514;object V515;object V516;  object V515;object V516;object V517;object V518;
3591  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
3592          goto TTL;          goto TTL;
3593  TTL:;  TTL:;
3594          if((get((V513),VV[102],Cnil))==Cnil){          if((get((V515),VV[102],Cnil))==Cnil){
3595          goto T1989;}          goto T1997;}
3596          {object V517 = Cnil;          {object V519 = Cnil;
3597          VMR32(V517)}          VMR32(V519)}
3598          goto T1989;          goto T1997;
3599  T1989:;  T1997:;
3600          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[186],(V513))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[186],(V515))));
3601          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
3602          (void)((*(LnkLI274))((V514)));          (void)((*(LnkLI274))((V516)));
3603          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3604          princ_str("\n{  register object *base=vs_base;",VV[25]);          princ_str("\n{  register object *base=vs_base;",VV[25]);
3605          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[163]))!=Cnil){
3606          goto T2000;}          goto T2008;}
3607          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
3608          goto T1999;}          goto T2007;}
3609          goto T2000;          goto T2008;
3610  T2000:;  T2008:;
3611          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[25]);
3612          V518 = make_fixnum((long)length((V515)));          V520 = make_fixnum((long)length((V517)));
3613          (void)((*(LnkLI274))(V518));          (void)((*(LnkLI274))(V520));
3614          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3615          goto T1999;          goto T2007;
3616  T1999:;  T2007:;
3617          princ_str("\n   base[0]=",VV[25]);          princ_str("\n   base[0]=",VV[25]);
3618          {object V520= (V516);          {object V522= (V518);
3619          if((V520!= VV[89]))goto T2011;          if((V522!= VV[89]))goto T2019;
3620          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
3621          goto T2013;}          goto T2021;}
3622          V519= VV[187];          V521= VV[187];
3623          goto T2010;          goto T2018;
3624          goto T2013;          goto T2021;
3625  T2013:;  T2021:;
3626          V519= VV[188];          V521= VV[188];
3627          goto T2010;          goto T2018;
3628          goto T2011;          goto T2019;
3629  T2011:;  T2019:;
3630          if((V520!= VV[142]))goto T2015;          if((V522!= VV[142]))goto T2023;
3631          V519= VV[189];          V521= VV[189];
3632          goto T2010;          goto T2018;
3633          goto T2015;          goto T2023;
3634  T2015:;  T2023:;
3635          if((V520!= VV[143]))goto T2016;          if((V522!= VV[143]))goto T2024;
3636          V519= VV[190];          V521= VV[190];
3637          goto T2010;          goto T2018;
         goto T2016;  
 T2016:;  
         if((V520!= VV[144]))goto T2017;  
         V519= VV[191];  
         goto T2010;  
         goto T2017;  
 T2017:;  
         V519= VV[192];}  
         goto T2010;  
 T2010:;  
         (void)((*(LnkLI274))(V519));  
         princ_str("(LI",VV[25]);  
         (void)((*(LnkLI274))((V514)));  
         princ_char(40,VV[25]);  
         {register object V521;  
         register long V522;  
         V522= 0;  
         V521= (V515);  
3638          goto T2024;          goto T2024;
3639  T2024:;  T2024:;
3640          if(!(endp_prop((V521)))){          if((V522!= VV[144]))goto T2025;
3641          goto T2025;}          V521= VV[191];
3642          goto T2021;          goto T2018;
3643          goto T2025;          goto T2025;
3644  T2025:;  T2025:;
3645          {object V524= car((V521));          V521= VV[192];}
3646          if((V524!= VV[89]))goto T2032;          goto T2018;
3647          V523= VV[193];  T2018:;
3648          goto T2031;          (void)((*(LnkLI274))(V521));
3649            princ_str("(LI",VV[25]);
3650            (void)((*(LnkLI274))((V516)));
3651            princ_char(40,VV[25]);
3652            {register object V523;
3653            register long V524;
3654            V524= 0;
3655            V523= (V517);
3656          goto T2032;          goto T2032;
3657  T2032:;  T2032:;
3658          if((V524!= VV[142]))goto T2033;          if(!(endp_prop((V523)))){
3659          V523= VV[194];          goto T2033;}
3660          goto T2031;          goto T2029;
3661          goto T2033;          goto T2033;
3662  T2033:;  T2033:;
3663          if((V524!= VV[143]))goto T2034;          {object V526= car((V523));
3664          V523= VV[195];          if((V526!= VV[89]))goto T2040;
3665          goto T2031;          V525= VV[193];
3666          goto T2034;          goto T2039;
3667  T2034:;          goto T2040;
3668          if((V524!= VV[144]))goto T2035;  T2040:;
3669          V523= VV[196];          if((V526!= VV[142]))goto T2041;
3670          goto T2031;          V525= VV[194];
3671          goto T2035;          goto T2039;
3672  T2035:;          goto T2041;
3673          V523= VV[197];}  T2041:;
3674          goto T2031;          if((V526!= VV[143]))goto T2042;
3675  T2031:;          V525= VV[195];
3676          (void)((*(LnkLI274))(V523));          goto T2039;
3677          princ_str("(base[",VV[25]);          goto T2042;
3678          V525 = make_fixnum(V522);  T2042:;
3679            if((V526!= VV[144]))goto T2043;
3680            V525= VV[196];
3681            goto T2039;
3682            goto T2043;
3683    T2043:;
3684            V525= VV[197];}
3685            goto T2039;
3686    T2039:;
3687          (void)((*(LnkLI274))(V525));          (void)((*(LnkLI274))(V525));
3688            princ_str("(base[",VV[25]);
3689            V527 = make_fixnum(V524);
3690            (void)((*(LnkLI274))(V527));
3691          princ_str("])",VV[25]);          princ_str("])",VV[25]);
3692          if(endp_prop(cdr((V521)))){          if(endp_prop(cdr((V523)))){
3693          goto T2039;}          goto T2047;}
3694          princ_char(44,VV[25]);          princ_char(44,VV[25]);
3695          goto T2039;          goto T2047;
3696  T2039:;  T2047:;
3697          V521= cdr((V521));          V523= cdr((V523));
3698          V522= (long)(V522)+1;          V524= (long)(V524)+1;
3699          goto T2024;}          goto T2032;}
3700          goto T2021;          goto T2029;
3701  T2021:;  T2029:;
3702          princ_str("));",VV[25]);          princ_str("));",VV[25]);
3703          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);
3704          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
3705          {object V526 = Cnil;          {object V528 = Cnil;
3706          VMR32(V526)}          VMR32(V528)}
3707          return Cnil;          return Cnil;
3708  }  }
3709  /*      local entry for function REP-TYPE       */  /*      local entry for function REP-TYPE       */
3710    
3711  static object LI34(V528)  static object LI34(V530)
3712    
3713  object V528;  object V530;
3714  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
3715          goto TTL;          goto TTL;
3716  TTL:;  TTL:;
3717          {object V529= (V528);          {object V531= (V530);
3718          if((V529!= VV[89]))goto T2052;          if((V531!= VV[89]))goto T2060;
3719          {object V530 = VV[198];          {object V532 = VV[198];
         VMR33(V530)}  
         goto T2052;  
 T2052:;  
         if((V529!= VV[261]))goto T2053;  
         {object V531 = VV[199];  
         VMR33(V531)}  
         goto T2053;  
 T2053:;  
         if((V529!= VV[142]))goto T2054;  
         {object V532 = VV[200];  
3720          VMR33(V532)}          VMR33(V532)}
3721          goto T2054;          goto T2060;
3722  T2054:;  T2060:;
3723          if((V529!= VV[144]))goto T2055;          if((V531!= VV[261]))goto T2061;
3724          {object V533 = VV[201];          {object V533 = VV[199];
3725          VMR33(V533)}          VMR33(V533)}
3726          goto T2055;          goto T2061;
3727  T2055:;  T2061:;
3728          if((V529!= VV[143]))goto T2056;          if((V531!= VV[142]))goto T2062;
3729          {object V534 = VV[202];          {object V534 = VV[200];
3730          VMR33(V534)}          VMR33(V534)}
3731          goto T2056;          goto T2062;
3732  T2056:;  T2062:;
3733          {object V535 = VV[203];          if((V531!= VV[144]))goto T2063;
3734          VMR33(V535)}}          {object V535 = VV[201];
3735            VMR33(V535)}
3736            goto T2063;
3737    T2063:;
3738            if((V531!= VV[143]))goto T2064;
3739            {object V536 = VV[202];
3740            VMR33(V536)}
3741            goto T2064;
3742    T2064:;
3743            {object V537 = VV[203];
3744            VMR33(V537)}}
3745          return Cnil;          return Cnil;
3746  }  }
3747  /*      local entry for function T1DEFMACRO     */  /*      local entry for function T1DEFMACRO     */
3748    
3749  static object LI35(V537)  static object LI35(V539)
3750    
3751  register object V537;  register object V539;
3752  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
3753          bds_check;          bds_check;
3754          goto TTL;          goto TTL;
3755  TTL:;  TTL:;
3756          if(endp_prop((V537))){          if(endp_prop((V539))){
3757          goto T2058;}          goto T2066;}
3758          if(!(endp_prop(cdr((V537))))){          if(!(endp_prop(cdr((V539))))){
3759          goto T2057;}          goto T2065;}
3760          goto T2058;          goto T2066;
3761  T2058:;  T2066:;
3762          V538 = make_fixnum((long)length((V537)));          V540 = make_fixnum((long)length((V539)));
3763          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V538));          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V540));
3764          goto T2057;          goto T2065;
3765  T2057:;  T2065:;
3766          if(type_of(car((V537)))==t_symbol){          if(type_of(car((V539)))==t_symbol){
3767          goto T2062;}          goto T2070;}
3768          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V539)))));
3769          goto T2062;          goto T2070;
3770  T2062:;  T2070:;
3771          V539= make_cons(VV[204],(V537));          V541= make_cons(VV[204],(V539));
3772          (void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539));          (void)((*(LnkLI268))(Ct,/* INLINE-ARGS */V541));
3773          setq(VV[6],Ct);          setq(VV[6],Ct);
3774          {register object V540;          {register object V542;
3775          object V541;          object V543;
3776          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
3777          V541= symbol_value(VV[61]);          V543= symbol_value(VV[61]);
3778          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
3779          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
3780          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
3781          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
3782          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
3783          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
3784          V540= Cnil;          V542= Cnil;
3785          V540= (*(LnkLI340))(car((V537)),cadr((V537)),cddr((V537)));          V542= (*(LnkLI340))(car((V539)),cadr((V539)),cddr((V539)));
3786          (void)((*(LnkLI296))());          (void)((*(LnkLI296))());
3787          {object V542;          {object V544;
3788          V542= list(7,VV[204],car((V537)),(V541),cddr((V540)),car((V540)),cadr((V540)),(VV[59]->s.s_dbind));          V544= list(7,VV[204],car((V539)),(V543),cddr((V542)),car((V542)),cadr((V542)),(VV[59]->s.s_dbind));
3789          setq(VV[24],make_cons((V542),symbol_value(VV[24])));          setq(VV[24],make_cons((V544),symbol_value(VV[24])));
3790          {object V543 = symbol_value(VV[24]);          {object V545 = symbol_value(VV[24]);
3791          bds_unwind1;          bds_unwind1;
3792          bds_unwind1;          bds_unwind1;
3793          bds_unwind1;          bds_unwind1;
3794          bds_unwind1;          bds_unwind1;
3795          bds_unwind1;          bds_unwind1;
3796          bds_unwind1;          bds_unwind1;
3797          VMR34(V543)}}}          VMR34(V545)}}}
3798          base[0]=base[0];          base[0]=base[0];
3799          return Cnil;          return Cnil;
3800  }  }
3801  /*      local entry for function T2DEFMACRO     */  /*      local entry for function T2DEFMACRO     */
3802    
3803  static object LI36(V550,V551,V552,V553,V554,V555)  static object LI36(V552,V553,V554,V555,V556,V557)
3804    
3805  object V550;object V551;object V552;object V553;object V554;object V555;  object V552;object V553;object V554;object V555;object V556;object V557;
3806  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
3807          goto TTL;          goto TTL;
3808  TTL:;  TTL:;
3809          if(((V553))==Cnil){          if(((V555))==Cnil){
3810          goto T2075;}          goto T2083;}
3811          V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]);          V558= list(4,VV[103],list(2,VV[91],(V552)),(V555),VV[206]);
         (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V556)));  
         goto T2075;  
 T2075:;  
         if(((V554))==Cnil){  
         goto T2078;}  
         V557= list(2,VV[91],(V550));  
         V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]);  
3812          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V558)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V558)));
3813          goto T2078;          goto T2083;
3814  T2078:;  T2083:;
3815            if(((V556))==Cnil){
3816            goto T2086;}
3817            V559= list(2,VV[91],(V552));
3818            V560= list(4,VV[103],/* INLINE-ARGS */V559,list(2,VV[91],(V556)),VV[207]);
3819            (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V560)));
3820            goto T2086;
3821    T2086:;
3822          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
3823          (void)((*(LnkLI277))((V551)));          (void)((*(LnkLI277))((V553)));
3824          princ_str("();",VV[31]);          princ_str("();",VV[31]);
3825          V559= list(2,VV[91],(V550));          V561= list(2,VV[91],(V552));
3826          V560= list(3,VV[208],/* INLINE-ARGS */V559,(*(LnkLI304))(VV[209],(V551)));          V562= list(3,VV[208],/* INLINE-ARGS */V561,(*(LnkLI304))(VV[209],(V553)));
3827          {object V561 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V560));          {object V563 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V562));
3828          VMR35(V561)}          VMR35(V563)}
3829          return Cnil;          return Cnil;
3830  }  }
3831  /*      local entry for function T3DEFMACRO     */  /*      local entry for function T3DEFMACRO     */
3832    
3833  static object LI37(V568,V569,V570,V571,V572,V573)  static object LI37(V570,V571,V572,V573,V574,V575)
3834    
3835  object V568;object V569;register object V570;object V571;object V572;object V573;  object V570;object V571;register object V572;object V573;object V574;object V575;
3836  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
3837          bds_check;          bds_check;
3838          goto TTL;          goto TTL;
3839  TTL:;  TTL:;
3840          if((get((V568),VV[210],Cnil))==Cnil){          if((get((V570),VV[210],Cnil))==Cnil){
3841          goto T2087;}          goto T2095;}
3842          bds_bind(VV[20],VV[211]);          bds_bind(VV[20],VV[211]);
3843          goto T2085;          goto T2093;
3844          goto T2087;          goto T2095;
3845  T2087:;  T2095:;
3846          bds_bind(VV[20],VV[212]);          bds_bind(VV[20],VV[212]);
3847          goto T2085;          goto T2093;
3848  T2085:;  T2093:;
3849          bds_bind(VV[128],VV[127]);          bds_bind(VV[128],VV[127]);
3850          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
3851          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
# Line 3841  T2085:; Line 3861  T2085:;
3861          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
3862          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
3863          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
3864          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[213],(V568))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[213],(V570))));
3865          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
3866          (void)((*(LnkLI274))((V569)));          (void)((*(LnkLI274))((V571)));
3867          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3868          princ_str("\n{register object *",VV[25]);          princ_str("\n{register object *",VV[25]);
3869          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
3870          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[25]);
3871          V574= structure_ref(car(cddddr((V570))),VV[62],1);          V576= structure_ref(car(cddddr((V572))),VV[62],1);
3872          (void)((*(LnkLI317))(/* INLINE-ARGS */V574,(V569),VV[148]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V576,(V571),VV[148]));
3873          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[25]);
3874          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
3875          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[25]);
# Line 3858  T2085:; Line 3878  T2085:;
3878          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
3879          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
3880          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3881          goto T2113;}          goto T2121;}
3882          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
3883          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
3884          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3885          goto T2111;          goto T2119;
3886          goto T2113;          goto T2121;
3887  T2113:;  T2121:;
3888          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
         goto T2111;  
 T2111:;  
         if(((V573))==Cnil){  
         goto T2119;}  
         princ_str("\n   bds_check;",VV[25]);  
3889          goto T2119;          goto T2119;
3890  T2119:;  T2119:;
3891            if(((V575))==Cnil){
3892            goto T2127;}
3893            princ_str("\n   bds_check;",VV[25]);
3894            goto T2127;
3895    T2127:;
3896          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
3897          goto T2123;}          goto T2131;}
3898          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
3899          goto T2123;          goto T2131;
3900  T2123:;  T2131:;
3901          base[15]= car((V570));          base[15]= car((V572));
3902          base[16]= cadr((V570));          base[16]= cadr((V572));
3903          base[17]= caddr((V570));          base[17]= caddr((V572));
3904          base[18]= cadddr((V570));          base[18]= cadddr((V572));
3905          vs_top=(vs_base=base+15)+4;          vs_top=(vs_base=base+15)+4;
3906          (void) (*Lnk341)();          (void) (*Lnk341)();
3907          vs_top=sup;          vs_top=sup;
3908          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
3909          {object V575;          {object V577;
3910          V575= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));          V577= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));
3911          setq(VV[33],make_cons((V575),symbol_value(VV[33])));}          setq(VV[33],make_cons((V577),symbol_value(VV[33])));}
3912          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
3913          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));
3914          {object V576 = (*(LnkLI335))();          {object V578 = (*(LnkLI335))();
3915          bds_unwind1;          bds_unwind1;
3916          bds_unwind1;          bds_unwind1;
3917          bds_unwind1;          bds_unwind1;
# Line 3907  T2123:; Line 3927  T2123:;
3927          bds_unwind1;          bds_unwind1;
3928          bds_unwind1;          bds_unwind1;
3929          bds_unwind1;          bds_unwind1;
3930          VMR36(V576)}          VMR36(V578)}
3931          base[0]=base[0];          base[0]=base[0];
3932          return Cnil;          return Cnil;
3933  }  }
3934  /*      local entry for function T1ORDINARY     */  /*      local entry for function T1ORDINARY     */
3935    
3936  static object LI38(V578)  static object LI38(V580)
3937    
3938  register object V578;  register object V580;
3939  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
3940          bds_check;          bds_check;
3941          goto TTL;          goto TTL;
3942  TTL:;  TTL:;
3943          {register object V579;          {register object V581;
3944          V579= Cnil;          V581= Cnil;
3945          setq(VV[6],Ct);          setq(VV[6],Ct);
3946          if((symbol_value(VV[48]))==Cnil){          if((symbol_value(VV[48]))==Cnil){
3947          goto T2144;}          goto T2152;}
3948          (void)((*(LnkLI267))(Cnil,(V578)));          (void)((*(LnkLI268))(Cnil,(V580)));
3949          {object V580;          {object V582;
3950          base[0]= VV[214];          base[0]= VV[214];
3951          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3952          Lgensym();          Lgensym();
3953          vs_top=sup;          vs_top=sup;
3954          V580= vs_base[0];          V582= vs_base[0];
3955          V581= listA(3,VV[64],(V580),VV[215]);          V583= listA(3,VV[64],(V582),VV[215]);
3956          (void)((*(LnkLI292))(/* INLINE-ARGS */V581));          (void)((*(LnkLI292))(/* INLINE-ARGS */V583));
3957          base[0]= list(5,VV[51],(V580),Cnil,(V578),Cnil);          base[0]= list(5,VV[51],(V582),Cnil,(V580),Cnil);
3958          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3959          (void) (*Lnk271)();          (void) (*Lnk272)();
3960          vs_top=sup;          vs_top=sup;
         {object V582;  
         V582= list(2,VV[216],make_cons((V580),Cnil));  
         setq(VV[24],make_cons((V582),symbol_value(VV[24])));  
         {object V583 = symbol_value(VV[24]);  
         VMR37(V583)}}}  
         goto T2144;  
 T2144:;  
3961          {object V584;          {object V584;
3962          if(type_of((V578))==t_cons){          V584= list(2,VV[216],make_cons((V582),Cnil));
3963          goto T2155;}          setq(VV[24],make_cons((V584),symbol_value(VV[24])));
3964          V584= Cnil;          {object V585 = symbol_value(VV[24]);
3965          goto T2154;          VMR37(V585)}}}
3966          goto T2155;          goto T2152;
3967  T2155:;  T2152:;
3968          if(type_of(car((V578)))==t_symbol){          {object V586;
3969          goto T2157;}          if(type_of((V580))==t_cons){
3970          V584= Cnil;          goto T2163;}
3971          goto T2154;          V586= Cnil;
3972          goto T2157;          goto T2162;
3973  T2157:;          goto T2163;
3974          if(!((car((V578)))==(VV[217]))){  T2163:;
3975          goto T2161;}          if(type_of(car((V580)))==t_symbol){
3976          goto T2159;          goto T2165;}
3977          goto T2161;          V586= Cnil;
3978  T2161:;          goto T2162;
3979          base[0]= car((V578));          goto T2165;
3980          vs_top=(vs_base=base+0)+1;  T2165:;
3981          Lspecial_form_p();          if(!((car((V580)))==(VV[217]))){
         vs_top=sup;  
         V585= vs_base[0];  
         if((V585)==Cnil){  
         goto T2159;}  
         V584= Cnil;  
         goto T2154;  
         goto T2159;  
 T2159:;  
         {register object V586;  
         register long V587;  
         V586= cdr((V578));  
         V587= 1;  
         goto T2168;  
 T2168:;  
         if((V587)>=(1000)){  
         goto T2170;}  
         if(type_of((V586))==t_cons){  
3982          goto T2169;}          goto T2169;}
3983          goto T2170;          goto T2167;
 T2170:;  
         V584= Cnil;  
         goto T2154;  
3984          goto T2169;          goto T2169;
3985  T2169:;  T2169:;
3986          if(!(type_of(car((V586)))==t_cons)){          base[0]= car((V580));
3987          goto T2175;}          vs_top=(vs_base=base+0)+1;
3988          if(!((caar((V586)))==(VV[64]))){          Lspecial_form_p();
3989          goto T2175;}          vs_top=sup;
3990          V579= cadr(car((V586)));          V587= vs_base[0];
3991          if(!(type_of((V579))==t_cons)){          if((V587)==Cnil){
3992          goto T2175;}          goto T2167;}
3993          if(!((car((V579)))==(VV[218]))){          V586= Cnil;
3994          goto T2175;}          goto T2162;
3995            goto T2167;
3996    T2167:;
3997          {register object V588;          {register object V588;
3998            register long V589;
3999            V588= cdr((V580));
4000            V589= 1;
4001            goto T2176;
4002    T2176:;
4003            if((V589)>=(1000)){
4004            goto T2178;}
4005            if(type_of((V588))==t_cons){
4006            goto T2177;}
4007            goto T2178;
4008    T2178:;
4009            V586= Cnil;
4010            goto T2162;
4011            goto T2177;
4012    T2177:;
4013            if(!(type_of(car((V588)))==t_cons)){
4014            goto T2183;}
4015            if(!((caar((V588)))==(VV[64]))){
4016            goto T2183;}
4017            V581= cadr(car((V588)));
4018            if(!(type_of((V581))==t_cons)){
4019            goto T2183;}
4020            if(!((car((V581)))==(VV[218]))){
4021            goto T2183;}
4022            {register object V590;
4023          vs_base=vs_top;          vs_base=vs_top;
4024          Lgensym();          Lgensym();
4025          vs_top=sup;          vs_top=sup;
4026          V588= vs_base[0];          V590= vs_base[0];
4027          base[0]= listA(3,VV[51],(V588),cdr((V579)));          base[0]= listA(3,VV[51],(V590),cdr((V581)));
4028          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4029          (void) (*Lnk271)();          (void) (*Lnk272)();
4030          vs_top=sup;          vs_top=sup;
4031          base[1]= (V578);          base[1]= (V580);
4032          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
4033          base[3]= make_fixnum(V587);          base[3]= make_fixnum(V589);
4034          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
4035          Lsubseq();          Lsubseq();
4036          vs_top=sup;          vs_top=sup;
4037          base[0]= vs_base[0];          base[0]= vs_base[0];
4038          V589= list(2,VV[219],list(2,VV[91],(V588)));          V591= list(2,VV[219],list(2,VV[91],(V590)));
4039          base[1]= make_cons(/* INLINE-ARGS */V589,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V591,Cnil);
4040          V590 = make_fixnum(V587);          V592 = make_fixnum(V589);
4041          V591= number_plus(small_fixnum(1),V590);          V593= number_plus(small_fixnum(1),V592);
4042          base[2]= nthcdr(fixint(/* INLINE-ARGS */V591),(V578));          base[2]= nthcdr(fixint(/* INLINE-ARGS */V593),(V580));
4043          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4044          Lappend();          Lappend();
4045          vs_top=sup;          vs_top=sup;
4046          V578= vs_base[0];          V580= vs_base[0];
4047          goto TTL;}          goto TTL;}
4048          goto T2175;          goto T2183;
4049  T2175:;  T2183:;
4050          if(type_of((V586))==t_cons){          if(type_of((V588))==t_cons){
4051          goto T2198;}          goto T2206;}
4052          V586= Cnil;          V588= Cnil;
4053          goto T2197;          goto T2205;
4054          goto T2198;          goto T2206;
4055  T2198:;  T2206:;
4056          V586= cdr((V586));          V588= cdr((V588));
4057          goto T2197;          goto T2205;
4058  T2197:;  T2205:;
4059          V587= (long)(1)+(V587);          V589= (long)(1)+(V589);
4060          goto T2168;}          goto T2176;}
4061          goto T2154;          goto T2162;
4062  T2154:;  T2162:;
4063          if(((V584))==Cnil){          if(((V586))==Cnil){
4064          goto T2203;}          goto T2211;}
4065          {object V592 = (V584);          {object V594 = (V586);
4066          VMR37(V592)}          VMR37(V594)}
4067          goto T2203;          goto T2211;
4068  T2203:;  T2211:;
4069          (void)((*(LnkLI267))(Cnil,(V578)));          (void)((*(LnkLI268))(Cnil,(V580)));
4070          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
4071          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
4072          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
4073          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
4074          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
4075          {object V593;          {object V595;
4076          V593= list(2,VV[216],(V578));          V595= list(2,VV[216],(V580));
4077          setq(VV[24],make_cons((V593),symbol_value(VV[24])));}          setq(VV[24],make_cons((V595),symbol_value(VV[24])));}
4078          {object V594 = Cnil;          {object V596 = Cnil;
4079          bds_unwind1;          bds_unwind1;
4080          bds_unwind1;          bds_unwind1;
4081          bds_unwind1;          bds_unwind1;
4082          bds_unwind1;          bds_unwind1;
4083          bds_unwind1;          bds_unwind1;
4084          VMR37(V594)}}}          VMR37(V596)}}}
4085          base[0]=base[0];          base[0]=base[0];
4086          return Cnil;          return Cnil;
4087  }  }
4088  /*      local entry for function T2ORDINARY     */  /*      local entry for function T2ORDINARY     */
4089    
4090  static object LI39(V596)  static object LI39(V598)
4091    
4092  object V596;  object V598;
4093  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
4094          goto TTL;          goto TTL;
4095  TTL:;  TTL:;
         {object V597;  
         V597= (type_of((V596))!=t_cons?Ct:Cnil);  
         if(((V597))==Cnil){  
         goto T2211;}  
         {object V598 = (V597);  
         VMR38(V598)}  
         goto T2211;  
 T2211:;  
4096          {object V599;          {object V599;
4097          base[0]= (V596);          V599= (type_of((V598))!=t_cons?Ct:Cnil);
         vs_top=(vs_base=base+0)+1;  
         Lconstantp();  
         vs_top=sup;  
         V599= vs_base[0];  
4098          if(((V599))==Cnil){          if(((V599))==Cnil){
4099          goto T2216;}          goto T2219;}
4100          {object V600 = (V599);          {object V600 = (V599);
4101          VMR38(V600)}          VMR38(V600)}
4102          goto T2216;          goto T2219;
4103  T2216:;  T2219:;
4104          {object V601 = (VFUN_NARGS=1,(*(LnkLI303))((V596)));          {object V601;
4105          VMR38(V601)}}}          base[0]= (V598);
4106            vs_top=(vs_base=base+0)+1;
4107            Lconstantp();
4108            vs_top=sup;
4109            V601= vs_base[0];
4110            if(((V601))==Cnil){
4111            goto T2224;}
4112            {object V602 = (V601);
4113            VMR38(V602)}
4114            goto T2224;
4115    T2224:;
4116            {object V603 = (VFUN_NARGS=1,(*(LnkLI303))((V598)));
4117            VMR38(V603)}}}
4118          base[0]=base[0];          base[0]=base[0];
4119          return Cnil;          return Cnil;
4120  }  }
# Line 4105  static object LI40() Line 4125  static object LI40()
4125  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
4126          goto TTL;          goto TTL;
4127  TTL:;  TTL:;
4128          {register object V602;          {register object V604;
4129          register object V603;          register object V605;
4130          V602= reverse(symbol_value(VV[52]));          V604= reverse(symbol_value(VV[52]));
4131          V603= car((V602));          V605= car((V604));
4132          goto T2221;          goto T2229;
4133  T2221:;  T2229:;
4134          if(!(endp_prop((V602)))){          if(!(endp_prop((V604)))){
4135          goto T2222;}          goto T2230;}
4136          {object V604 = Cnil;          {object V606 = Cnil;
4137          VMR39(V604)}          VMR39(V606)}
4138          goto T2222;          goto T2230;
4139  T2222:;  T2230:;
4140          if(!(type_of((V603))!=t_cons)){          if(!(type_of((V605))!=t_cons)){
4141          goto T2226;}          goto T2234;}
4142          (void)((*(LnkLI342))());          (void)((*(LnkLI342))());
4143          goto T2226;          goto T2234;
4144  T2226:;  T2234:;
4145          {register object V605;          {register object V607;
4146          V605= make_cons(VV[220],(V603));          V607= make_cons(VV[220],(V605));
4147          setq(VV[24],make_cons((V605),symbol_value(VV[24])));}          setq(VV[24],make_cons((V607),symbol_value(VV[24])));}
4148          V602= cdr((V602));          V604= cdr((V604));
4149          V603= car((V602));          V605= car((V604));
4150          goto T2221;}          goto T2229;}
4151          base[0]=base[0];          base[0]=base[0];
4152          return Cnil;          return Cnil;
4153  }  }
4154  /*      local entry for function T2SHARP-COMMA  */  /*      local entry for function T2SHARP-COMMA  */
4155    
4156  static object LI41(V608,V609)  static object LI41(V610,V611)
4157    
4158  object V608;object V609;  object V610;object V611;
4159  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
4160          goto TTL;          goto TTL;
4161  TTL:;  TTL:;
4162          V610= list(3,VV[221],(V608),(V609));          V612= list(3,VV[221],(V610),(V611));
4163          {object V611 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V610));          {object V613 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V612));
4164          VMR40(V611)}          VMR40(V613)}
4165          return Cnil;          return Cnil;
4166  }  }
4167  /*      local entry for function T2DECLARE      */  /*      local entry for function T2DECLARE      */
4168    
4169  static object LI42(V613)  static object LI42(V615)
4170    
4171  object V613;  object V615;
4172  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
4173          goto TTL;          goto TTL;
4174  TTL:;  TTL:;
4175          {object V614 = (*(LnkLI342))();          {object V616 = (*(LnkLI342))();
4176          VMR41(V614)}          VMR41(V616)}
4177          return Cnil;          return Cnil;
4178  }  }
4179  /*      local entry for function T1DEFINE-STRUCTURE     */  /*      local entry for function T1DEFINE-STRUCTURE     */
4180    
4181  static object LI43(V616)  static object LI43(V618)
4182    
4183  object V616;  object V618;
4184  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
4185          goto TTL;          goto TTL;
4186  TTL:;  TTL:;
4187          V617= (*(LnkLI267))(Cnil,Cnil);          V619= (*(LnkLI268))(Cnil,Cnil);
4188          V618= make_cons(((/* INLINE-ARGS */V617)==Cnil?Ct:Cnil),Cnil);          V620= make_cons(((/* INLINE-ARGS */V619)==Cnil?Ct:Cnil),Cnil);
4189          V619= append((V616),/* INLINE-ARGS */V618);          V621= append((V618),/* INLINE-ARGS */V620);
4190          V620= make_cons(VV[222],/* INLINE-ARGS */V619);          V622= make_cons(VV[222],/* INLINE-ARGS */V621);
4191          (void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V620));          (void)((*(LnkLI268))(Ct,/* INLINE-ARGS */V622));
4192          V621= make_cons(VV[222],(V616));          V623= make_cons(VV[222],(V618));
4193          {object V622 = (*(LnkLI272))(/* INLINE-ARGS */V621);          {object V624 = (*(LnkLI273))(/* INLINE-ARGS */V623);
4194          VMR42(V622)}          VMR42(V624)}
4195          return Cnil;          return Cnil;
4196  }  }
4197  /*      local entry for function SET-DBIND      */  /*      local entry for function SET-DBIND      */
4198    
4199  static object LI44(V625,V626)  static object LI44(V627,V628)
4200    
4201  object V625;object V626;  object V627;object V628;
4202  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
4203          goto TTL;          goto TTL;
4204  TTL:;  TTL:;
4205          princ_str("\n   VV[",VV[25]);          princ_str("\n   VV[",VV[25]);
4206          (void)((*(LnkLI274))((V626)));          (void)((*(LnkLI274))((V628)));
4207          princ_str("]->s.s_dbind = ",VV[25]);          princ_str("]->s.s_dbind = ",VV[25]);
4208          (void)((*(LnkLI274))((V625)));          (void)((*(LnkLI274))((V627)));
4209          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4210          {object V627 = Cnil;          {object V629 = Cnil;
4211          VMR43(V627)}          VMR43(V629)}
4212          return Cnil;          return Cnil;
4213  }  }
4214  /*      local entry for function T1CLINES       */  /*      local entry for function T1CLINES       */
4215    
4216  static object LI45(V629)  static object LI45(V631)
4217    
4218  object V629;  object V631;
4219  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
4220          goto TTL;          goto TTL;
4221  TTL:;  TTL:;
4222          {register object V630;          {register object V632;
4223          register object V631;          register object V633;
4224          V630= (V629);          V632= (V631);
4225          V631= car((V630));          V633= car((V632));
4226          goto T2248;          goto T2256;
4227  T2248:;  T2256:;
4228          if(!(endp_prop((V630)))){          if(!(endp_prop((V632)))){
4229          goto T2249;}          goto T2257;}
4230          goto T2244;          goto T2252;
4231          goto T2249;          goto T2257;
4232  T2249:;  T2257:;
4233          if(type_of((V631))==t_string){          if(type_of((V633))==t_string){
4234          goto T2253;}          goto T2261;}
4235          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V633))));
4236          goto T2253;          goto T2261;
4237  T2253:;  T2261:;
4238          V630= cdr((V630));          V632= cdr((V632));
4239          V631= car((V630));          V633= car((V632));
4240          goto T2248;}          goto T2256;}
4241          goto T2244;          goto T2252;
4242  T2244:;  T2252:;
4243          {object V632;          {object V634;
4244          V632= list(2,VV[224],(V629));          V634= list(2,VV[224],(V631));
4245          setq(VV[24],make_cons((V632),symbol_value(VV[24])));          setq(VV[24],make_cons((V634),symbol_value(VV[24])));
4246          {object V633 = symbol_value(VV[24]);          {object V635 = symbol_value(VV[24]);
4247          VMR44(V633)}}          VMR44(V635)}}
4248          base[0]=base[0];          base[0]=base[0];
4249          return Cnil;          return Cnil;
4250  }  }
4251  /*      local entry for function T3CLINES       */  /*      local entry for function T3CLINES       */
4252    
4253  static object LI46(V635)  static object LI46(V637)
4254    
4255  object V635;  object V637;
4256  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
4257          goto TTL;          goto TTL;
4258  TTL:;  TTL:;
4259          {register object V636;          {register object V638;
4260          register object V637;          register object V639;
4261          V636= (V635);          V638= (V637);
4262          V637= car((V636));          V639= car((V638));
4263          goto T2266;          goto T2274;
4264  T2266:;  T2274:;
4265          if(!(endp_prop((V636)))){          if(!(endp_prop((V638)))){
4266          goto T2267;}          goto T2275;}
4267          {object V638 = Cnil;          {object V640 = Cnil;
4268          VMR45(V638)}          VMR45(V640)}
4269          goto T2267;          goto T2275;
4270  T2267:;  T2275:;
4271          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4272          (void)((*(LnkLI274))((V637)));          (void)((*(LnkLI274))((V639)));
4273          V636= cdr((V636));          V638= cdr((V638));
4274          V637= car((V636));          V639= car((V638));
4275          goto T2266;}          goto T2274;}
4276          base[0]=base[0];          base[0]=base[0];
4277          return Cnil;          return Cnil;
4278  }  }
4279  /*      local entry for function T1DEFCFUN      */  /*      local entry for function T1DEFCFUN      */
4280    
4281  static object LI47(V640)  static object LI47(V642)
4282    
4283  object V640;  object V642;
4284  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
4285          goto TTL;          goto TTL;
4286  TTL:;  TTL:;
4287          {register object V641;          {register object V643;
4288          V641= Cnil;          V643= Cnil;
4289          if(endp_prop((V640))){          if(endp_prop((V642))){
4290          goto T2281;}          goto T2289;}
4291          if(!(endp_prop(cdr((V640))))){          if(!(endp_prop(cdr((V642))))){
4292          goto T2280;}          goto T2288;}
4293          goto T2281;          goto T2289;
4294  T2281:;  T2289:;
4295          V642 = make_fixnum((long)length((V640)));          V644 = make_fixnum((long)length((V642)));
4296          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V642));          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V644));
         goto T2280;  
 T2280:;  
         if(type_of(car((V640)))==t_string){  
         goto T2285;}  
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640)))));  
         goto T2285;  
 T2285:;  
         {object V643= cadr((V640));  
         if(type_of(V643)==t_fixnum||  
 type_of(V643)==t_bignum||  
 type_of(V643)==t_ratio||  
 type_of(V643)==t_shortfloat||  
 type_of(V643)==t_longfloat||  
 type_of(V643)==t_complex){  
         goto T2288;}}  
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640)))));  
4297          goto T2288;          goto T2288;
4298  T2288:;  T2288:;
4299          {register object V644;          if(type_of(car((V642)))==t_string){
4300          register object V645;          goto T2293;}
4301          V644= cddr((V640));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V642)))));
4302          V645= car((V644));          goto T2293;
4303          goto T2295;  T2293:;
4304  T2295:;          {object V645= cadr((V642));
4305          if(!(endp_prop((V644)))){          if(type_of(V645)==t_fixnum||
4306          goto T2296;}  type_of(V645)==t_bignum||
4307          goto T2291;  type_of(V645)==t_ratio||
4308    type_of(V645)==t_shortfloat||
4309    type_of(V645)==t_longfloat||
4310    type_of(V645)==t_complex){
4311            goto T2296;}}
4312            (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V642)))));
4313          goto T2296;          goto T2296;
4314  T2296:;  T2296:;
         if(!(type_of((V645))==t_string)){  
         goto T2302;}  
4315          {register object V646;          {register object V646;
4316          V646= (V645);          register object V647;
4317          V641= make_cons((V646),(V641));          V646= cddr((V642));
4318          goto T2300;}          V647= car((V646));
4319          goto T2302;          goto T2303;
4320  T2302:;  T2303:;
4321          if(!(type_of((V645))==t_cons)){          if(!(endp_prop((V646)))){
4322          goto T2307;}          goto T2304;}
4323          if(!(type_of(car((V645)))==t_symbol)){          goto T2299;
4324            goto T2304;
4325    T2304:;
4326            if(!(type_of((V647))==t_string)){
4327          goto T2310;}          goto T2310;}
4328          base[2]= car((V645));          {register object V648;
4329            V648= (V647);
4330            V643= make_cons((V648),(V643));
4331            goto T2308;}
4332            goto T2310;
4333    T2310:;
4334            if(!(type_of((V647))==t_cons)){
4335            goto T2315;}
4336            if(!(type_of(car((V647)))==t_symbol)){
4337            goto T2318;}
4338            base[2]= car((V647));
4339          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4340          Lspecial_form_p();          Lspecial_form_p();
4341          vs_top=sup;          vs_top=sup;
4342          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4343          goto T2312;}          goto T2320;}
4344          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V647)))));
4345          goto T2312;          goto T2320;
4346  T2312:;  T2320:;
4347          {register object V647;          {register object V649;
4348          V648= car((V645));          V650= car((V647));
4349          V649= (*(LnkLI343))(cdr((V645)));          V651= (*(LnkLI343))(cdr((V647)));
4350          V650= make_cons(/* INLINE-ARGS */V648,/* INLINE-ARGS */V649);          V652= make_cons(/* INLINE-ARGS */V650,/* INLINE-ARGS */V651);
4351          V647= make_cons(/* INLINE-ARGS */V650,Cnil);          V649= make_cons(/* INLINE-ARGS */V652,Cnil);
4352          V641= make_cons((V647),(V641));          V643= make_cons((V649),(V643));
4353          goto T2300;}          goto T2308;}
4354          goto T2310;          goto T2318;
4355  T2310:;  T2318:;
4356          if(!(type_of(car((V645)))==t_cons)){          if(!(type_of(car((V647)))==t_cons)){
4357          goto T2319;}          goto T2327;}
4358          if(!(type_of(caar((V645)))==t_symbol)){          if(!(type_of(caar((V647)))==t_symbol)){
4359          goto T2319;}          goto T2327;}
4360          if(!((caar((V645)))==(VV[91]))){          if(!((caar((V647)))==(VV[91]))){
4361          goto T2326;}          goto T2334;}
4362          if(!(endp_prop(cdar((V645))))){          if(!(endp_prop(cdar((V647))))){
4363          goto T2328;}          goto T2336;}
4364          goto T2319;          goto T2327;
4365          goto T2328;          goto T2336;
4366  T2328:;  T2336:;
4367          if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){          if(!(((endp_prop(cddar((V647)))?Ct:Cnil))==Cnil)){
4368          goto T2330;}          goto T2338;}
4369          goto T2319;          goto T2327;
4370          goto T2330;          goto T2338;
4371  T2330:;  T2338:;
4372          if(!(endp_prop(cdr((V645))))){          if(!(endp_prop(cdr((V647))))){
4373          goto T2332;}          goto T2340;}
4374          goto T2319;          goto T2327;
4375            goto T2340;
4376    T2340:;
4377            if(((endp_prop(cddr((V647)))?Ct:Cnil))==Cnil){
4378            goto T2327;}
4379          goto T2332;          goto T2332;
4380  T2332:;          goto T2334;
4381          if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){  T2334:;
4382          goto T2319;}          base[2]= caar((V647));
         goto T2324;  
         goto T2326;  
 T2326:;  
         base[2]= caar((V645));  
4383          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4384          Lspecial_form_p();          Lspecial_form_p();
4385          vs_top=sup;          vs_top=sup;
4386          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4387          goto T2319;}          goto T2327;}
4388          goto T2324;          goto T2332;
4389  T2324:;  T2332:;
4390          {register object V651;          {register object V653;
4391          V652= caar((V645));          V654= caar((V647));
4392          if(!((caar((V645)))==(VV[91]))){          if(!((caar((V647)))==(VV[91]))){
4393          goto T2338;}          goto T2346;}
4394          V654= (*(LnkLI328))(cadar((V645)));          V656= (*(LnkLI328))(cadar((V647)));
4395          V653= make_cons(/* INLINE-ARGS */V654,Cnil);          V655= make_cons(/* INLINE-ARGS */V656,Cnil);
4396          goto T2336;          goto T2344;
4397          goto T2338;          goto T2346;
4398  T2338:;  T2346:;
4399          V653= (*(LnkLI343))(cdar((V645)));          V655= (*(LnkLI343))(cdar((V647)));
4400          goto T2336;          goto T2344;
4401  T2336:;  T2344:;
4402          V655= make_cons(/* INLINE-ARGS */V652,V653);          V657= make_cons(/* INLINE-ARGS */V654,V655);
4403          V656= (*(LnkLI343))(cdr((V645)));          V658= (*(LnkLI343))(cdr((V647)));
4404          V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656);          V653= make_cons(/* INLINE-ARGS */V657,/* INLINE-ARGS */V658);
4405          V641= make_cons((V651),(V641));          V643= make_cons((V653),(V643));
4406          goto T2300;}          goto T2308;}
4407          goto T2319;          goto T2327;
4408  T2319:;  T2327:;
4409          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V647))));
4410          goto T2300;          goto T2308;
4411          goto T2307;          goto T2315;
4412  T2307:;  T2315:;
4413          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V647))));
4414          goto T2300;          goto T2308;
4415  T2300:;  T2308:;
4416          V644= cdr((V644));          V646= cdr((V646));
4417          V645= car((V644));          V647= car((V646));
4418          goto T2295;}          goto T2303;}
4419          goto T2291;          goto T2299;
4420  T2291:;  T2299:;
4421          {object V657;          {object V659;
4422          V658= car((V640));          V660= car((V642));
4423          V659= cadr((V640));          V661= cadr((V642));
4424          V657= list(4,VV[225],/* INLINE-ARGS */V658,/* INLINE-ARGS */V659,reverse((V641)));          V659= list(4,VV[225],/* INLINE-ARGS */V660,/* INLINE-ARGS */V661,reverse((V643)));
4425          setq(VV[24],make_cons((V657),symbol_value(VV[24])));          setq(VV[24],make_cons((V659),symbol_value(VV[24])));
4426          {object V660 = symbol_value(VV[24]);          {object V662 = symbol_value(VV[24]);
4427          VMR46(V660)}}}          VMR46(V662)}}}
4428          base[0]=base[0];          base[0]=base[0];
4429          return Cnil;          return Cnil;
4430  }  }
4431  /*      local entry for function T3DEFCFUN      */  /*      local entry for function T3DEFCFUN      */
4432    
4433  static object LI48(V664,V665,V666)  static object LI48(V666,V667,V668)
4434    
4435  object V664;object V665;object V666;  object V666;object V667;object V668;
4436  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
4437          goto TTL;          goto TTL;
4438  TTL:;  TTL:;
4439          {object V667;          {object V669;
4440          V667= Cnil;          V669= Cnil;
4441          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[231],VV[225])));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[231],VV[225])));
4442          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4443          (void)((*(LnkLI274))((V664)));          (void)((*(LnkLI274))((V666)));
4444          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
4445          princ_str("\nobject *vs=vs_top;",VV[25]);          princ_str("\nobject *vs=vs_top;",VV[25]);
4446          princ_str("\nobject *old_top=vs_top+",VV[25]);          princ_str("\nobject *old_top=vs_top+",VV[25]);
4447          (void)((*(LnkLI274))((V665)));          (void)((*(LnkLI274))((V667)));
4448          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4449          if(!(number_compare((V665),small_fixnum(0))>0)){          if(!(number_compare((V667),small_fixnum(0))>0)){
4450          goto T2361;}          goto T2369;}
4451          princ_str("\n   vs_top=old_top;",VV[25]);          princ_str("\n   vs_top=old_top;",VV[25]);
4452          goto T2361;          goto T2369;
4453  T2361:;  T2369:;
4454          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
4455          {object V668;          {object V670;
4456          register object V669;          register object V671;
4457          V668= (V666);          V670= (V668);
4458          V669= car((V668));          V671= car((V670));
4459          goto T2371;          goto T2379;
4460  T2371:;  T2379:;
4461          if(!(endp_prop((V668)))){          if(!(endp_prop((V670)))){
4462          goto T2372;}          goto T2380;}
4463          goto T2367;          goto T2375;
4464          goto T2372;          goto T2380;
4465  T2372:;  T2380:;
4466          if(!(type_of((V669))==t_string)){          if(!(type_of((V671))==t_string)){
4467          goto T2378;}          goto T2386;}
4468          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4469          (void)((*(LnkLI274))((V669)));          (void)((*(LnkLI274))((V671)));
4470          goto T2376;          goto T2384;
4471          goto T2378;          goto T2386;
4472  T2378:;  T2386:;
4473          if(!((caar((V669)))==(VV[91]))){          if(!((caar((V671)))==(VV[91]))){
4474          goto T2383;}          goto T2391;}
4475          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4476          (void)((*(LnkLI274))(cadadr((V669))));          (void)((*(LnkLI274))(cadadr((V671))));
4477          {object V670= caadr((V669));          {object V672= caadr((V671));
4478          if((V670!= VV[74]))goto T2388;          if((V672!= VV[74]))goto T2396;
4479          princ_str("=VV[",VV[25]);          princ_str("=VV[",VV[25]);
4480          (void)((*(LnkLI274))(cadar((V669))));          (void)((*(LnkLI274))(cadar((V671))));
4481          princ_str("];",VV[25]);          princ_str("];",VV[25]);
4482          goto T2376;          goto T2384;
4483          goto T2388;          goto T2396;
4484  T2388:;  T2396:;
4485          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4486          base[1]= symbol_name(caadr((V669)));          base[1]= symbol_name(caadr((V671)));
4487          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4488          Lstring_downcase();          Lstring_downcase();
4489          vs_top=sup;          vs_top=sup;
4490          V671= vs_base[0];          V673= vs_base[0];
4491          (void)((*(LnkLI274))(V671));          (void)((*(LnkLI274))(V673));
4492          princ_str("(VV[",VV[25]);          princ_str("(VV[",VV[25]);
4493          (void)((*(LnkLI274))(cadar((V669))));          (void)((*(LnkLI274))(cadar((V671))));
4494          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4495          goto T2376;}          goto T2384;}
4496          goto T2383;          goto T2391;
4497  T2383:;  T2391:;
4498          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);
4499          {register object V672;          {register object V674;
4500          register object V673;          register object V675;
4501          V672= cdar((V669));          V674= cdar((V671));
4502          V673= car((V672));          V675= car((V674));
         goto T2405;  
 T2405:;  
         if(!(endp_prop((V672)))){  
         goto T2406;}  
         goto T2401;  
         goto T2406;  
 T2406:;  
         princ_str("\nvs_push(",VV[25]);  
         {object V674= car((V673));  
         if((V674!= VV[74]))goto T2413;  
         (void)((*(LnkLI274))(cadr((V673))));  
         goto T2412;  
4503          goto T2413;          goto T2413;
4504  T2413:;  T2413:;
4505          if((V674!= VV[344]))goto T2415;          if(!(endp_prop((V674)))){
4506            goto T2414;}
4507            goto T2409;
4508            goto T2414;
4509    T2414:;
4510            princ_str("\nvs_push(",VV[25]);
4511            {object V676= car((V675));
4512            if((V676!= VV[74]))goto T2421;
4513            (void)((*(LnkLI274))(cadr((V675))));
4514            goto T2420;
4515            goto T2421;
4516    T2421:;
4517            if((V676!= VV[344]))goto T2423;
4518          princ_str("code_char((long)",VV[25]);          princ_str("code_char((long)",VV[25]);
4519          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V675))));
4520          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4521          goto T2412;          goto T2420;
4522          goto T2415;          goto T2423;
4523  T2415:;  T2423:;
4524          if((V674!= VV[345]))goto T2419;          if((V676!= VV[345]))goto T2427;
4525          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4526          goto T2420;}          goto T2428;}
4527          princ_str("CMP",VV[25]);          princ_str("CMP",VV[25]);
4528          goto T2420;          goto T2428;
4529  T2420:;  T2428:;
4530          princ_str("make_fixnum((long)",VV[25]);          princ_str("make_fixnum((long)",VV[25]);
4531          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V675))));
4532          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4533          goto T2412;          goto T2420;
         goto T2419;  
 T2419:;  
         if((V674!= VV[346]))goto T2427;  
         princ_str("make_shortfloat((double)",VV[25]);  
         (void)((*(LnkLI274))(cadr((V673))));  
         princ_char(41,VV[25]);  
         goto T2412;  
4534          goto T2427;          goto T2427;
4535  T2427:;  T2427:;
4536          if((V674!= VV[347]))goto T2431;          if((V676!= VV[346]))goto T2435;
4537            princ_str("make_shortfloat((double)",VV[25]);
4538            (void)((*(LnkLI274))(cadr((V675))));
4539            princ_char(41,VV[25]);
4540            goto T2420;
4541            goto T2435;
4542    T2435:;
4543            if((V676!= VV[347]))goto T2439;
4544          princ_str("make_longfloat((double)",VV[25]);          princ_str("make_longfloat((double)",VV[25]);
4545          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V675))));
4546          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4547          goto T2412;          goto T2420;
4548          goto T2431;          goto T2439;
4549  T2431:;}  T2439:;}
4550          goto T2412;          goto T2420;
4551  T2412:;  T2420:;
4552          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4553          V672= cdr((V672));          V674= cdr((V674));
4554          V673= car((V672));          V675= car((V674));
4555          goto T2405;}          goto T2413;}
4556          goto T2401;          goto T2409;
4557  T2401:;  T2409:;
4558          {register object x= caar((V669)),V675= symbol_value(VV[79]);          {register object x= caar((V671)),V677= symbol_value(VV[79]);
4559          while(!endp(V675))          while(!endp(V677))
4560          if(type_of(V675->c.c_car)==t_cons &&eql(x,V675->c.c_car->c.c_car)){          if(type_of(V677->c.c_car)==t_cons &&eql(x,V677->c.c_car->c.c_car)){
4561          V667= (V675->c.c_car);          V669= (V677->c.c_car);
4562          goto T2446;          goto T2454;
4563          }else V675=V675->c.c_cdr;          }else V677=V677->c.c_cdr;
4564          V667= Cnil;}          V669= Cnil;}
4565          goto T2446;          goto T2454;
4566  T2446:;  T2454:;
4567          if(((V667))==Cnil){          if(((V669))==Cnil){
4568          goto T2444;}          goto T2452;}
4569          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
4570          goto T2448;}          goto T2456;}
4571          princ_str("\nihs_push(VV[",VV[25]);          princ_str("\nihs_push(VV[",VV[25]);
4572          V676= (*(LnkLI330))(caar((V669)));          V678= (*(LnkLI330))(caar((V671)));
4573          (void)((*(LnkLI274))(/* INLINE-ARGS */V676));          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));
4574          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4575          princ_str("\nL",VV[25]);          princ_str("\nL",VV[25]);
4576          (void)((*(LnkLI274))(cdr((V667))));          (void)((*(LnkLI274))(cdr((V669))));
4577          princ_str("();",VV[25]);          princ_str("();",VV[25]);
4578          princ_str("\nihs_pop();",VV[25]);          princ_str("\nihs_pop();",VV[25]);
4579          goto T2442;          goto T2450;
4580          goto T2448;          goto T2456;
4581  T2448:;  T2456:;
4582          princ_str("\nL",VV[25]);          princ_str("\nL",VV[25]);
4583          (void)((*(LnkLI274))(cdr((V667))));          (void)((*(LnkLI274))(cdr((V669))));
4584          princ_str("();",VV[25]);          princ_str("();",VV[25]);
4585          goto T2442;          goto T2450;
4586          goto T2444;          goto T2452;
4587  T2444:;  T2452:;
4588          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
4589          goto T2463;}          goto T2471;}
4590          princ_str("\nsuper_funcall(VV[",VV[25]);          princ_str("\nsuper_funcall(VV[",VV[25]);
4591          V677= (*(LnkLI330))(caar((V669)));          V679= (*(LnkLI330))(caar((V671)));
4592          (void)((*(LnkLI274))(/* INLINE-ARGS */V677));          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));
4593          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4594          goto T2442;          goto T2450;
4595          goto T2463;          goto T2471;
4596  T2463:;  T2471:;
4597          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
4598          goto T2469;}          goto T2477;}
4599          princ_str("\nsuper_funcall_no_event(VV[",VV[25]);          princ_str("\nsuper_funcall_no_event(VV[",VV[25]);
4600          V678= (*(LnkLI330))(caar((V669)));          V680= (*(LnkLI330))(caar((V671)));
4601          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));          (void)((*(LnkLI274))(/* INLINE-ARGS */V680));
4602          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4603          goto T2442;          goto T2450;
4604          goto T2469;          goto T2477;
4605  T2469:;  T2477:;
4606          princ_str("\nCMPfuncall(VV[",VV[25]);          princ_str("\nCMPfuncall(VV[",VV[25]);
4607          V679= (*(LnkLI330))(caar((V669)));          V681= (*(LnkLI330))(caar((V671)));
4608          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));          (void)((*(LnkLI274))(/* INLINE-ARGS */V681));
4609          princ_str("]->s.s_gfdef);",VV[25]);          princ_str("]->s.s_gfdef);",VV[25]);
4610          goto T2442;          goto T2450;
4611  T2442:;  T2450:;
4612          if(endp_prop(cdr((V669)))){          if(endp_prop(cdr((V671)))){
4613          goto T2477;}          goto T2485;}
4614          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4615          (void)((*(LnkLI274))(cadadr((V669))));          (void)((*(LnkLI274))(cadadr((V671))));
4616          {object V680= caadr((V669));          {object V682= caadr((V671));
4617          if((V680!= VV[74]))goto T2484;          if((V682!= VV[74]))goto T2492;
4618          princ_str("=vs_base[0];",VV[25]);          princ_str("=vs_base[0];",VV[25]);
4619          goto T2483;          goto T2491;
4620          goto T2484;          goto T2492;
4621  T2484:;  T2492:;
4622          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4623          base[1]= symbol_name(caadr((V669)));          base[1]= symbol_name(caadr((V671)));
4624          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4625          Lstring_downcase();          Lstring_downcase();
4626          vs_top=sup;          vs_top=sup;
4627          V681= vs_base[0];          V683= vs_base[0];
4628          (void)((*(LnkLI274))(V681));          (void)((*(LnkLI274))(V683));
4629          princ_str("(vs_base[0]);",VV[25]);}          princ_str("(vs_base[0]);",VV[25]);}
4630          goto T2483;          goto T2491;
4631  T2483:;  T2491:;
4632          {register object V682;          {register object V684;
4633          register object V683;          register object V685;
4634          V682= cddr((V669));          V684= cddr((V671));
4635          V683= car((V682));          V685= car((V684));
4636          goto T2494;          goto T2502;
4637  T2494:;  T2502:;
4638          if(!(endp_prop((V682)))){          if(!(endp_prop((V684)))){
4639          goto T2495;}          goto T2503;}
4640          goto T2477;          goto T2485;
4641          goto T2495;          goto T2503;
4642  T2495:;  T2503:;
4643          princ_str("\nvs_base++;",VV[25]);          princ_str("\nvs_base++;",VV[25]);
4644          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4645          (void)((*(LnkLI274))(cadr((V683))));          (void)((*(LnkLI274))(cadr((V685))));
4646          {object V684= car((V683));          {object V686= car((V685));
4647          if((V684!= VV[74]))goto T2505;          if((V686!= VV[74]))goto T2513;
4648          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);
4649          goto T2504;          goto T2512;
4650          goto T2505;          goto T2513;
4651  T2505:;  T2513:;
4652          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4653          base[3]= symbol_name(car((V683)));          base[3]= symbol_name(car((V685)));
4654          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4655          Lstring_downcase();          Lstring_downcase();
4656          vs_top=sup;          vs_top=sup;
4657          V685= vs_base[0];          V687= vs_base[0];
4658          (void)((*(LnkLI274))(V685));          (void)((*(LnkLI274))(V687));
4659          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}
4660          goto T2504;          goto T2512;
4661  T2504:;  T2512:;
4662          V682= cdr((V682));          V684= cdr((V684));
4663          V683= car((V682));          V685= car((V684));
4664          goto T2494;}          goto T2502;}
4665          goto T2477;          goto T2485;
4666  T2477:;  T2485:;
4667          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4668          goto T2376;          goto T2384;
4669  T2376:;  T2384:;
4670          V668= cdr((V668));          V670= cdr((V670));
4671          V669= car((V668));          V671= car((V670));
4672          goto T2371;}          goto T2379;}
4673          goto T2367;          goto T2375;
4674  T2367:;  T2375:;
4675          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4676          princ_str("\nvs_top=vs;",VV[25]);          princ_str("\nvs_top=vs;",VV[25]);
4677          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4678          {object V686 = Cnil;          {object V688 = Cnil;
4679          VMR47(V686)}}          VMR47(V688)}}
4680          base[0]=base[0];          base[0]=base[0];
4681          return Cnil;          return Cnil;
4682  }  }
4683  /*      local entry for function T1DEFENTRY     */  /*      local entry for function T1DEFENTRY     */
4684    
4685  static object LI49(V688)  static object LI49(V690)
4686    
4687  register object V688;  register object V690;
4688  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
4689          goto TTL;          goto TTL;
4690  TTL:;  TTL:;
4691          {register object V689;          {register object V691;
         register object V690;  
         object V691;  
4692          register object V692;          register object V692;
4693          V689= Cnil;          object V693;
4694          V690= Cnil;          register object V694;
4695          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          V691= Cnil;
         V691= symbol_value(VV[61]);  
4696          V692= Cnil;          V692= Cnil;
4697          if(endp_prop((V688))){          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
4698          goto T2534;}          V693= symbol_value(VV[61]);
4699          if(endp_prop(cdr((V688)))){          V694= Cnil;
4700          goto T2534;}          if(endp_prop((V690))){
4701          if(!(endp_prop(cddr((V688))))){          goto T2542;}
4702          goto T2533;}          if(endp_prop(cdr((V690)))){
4703          goto T2534;          goto T2542;}
4704  T2534:;          if(!(endp_prop(cddr((V690))))){
4705          V693 = make_fixnum((long)length((V688)));          goto T2541;}
4706          (void)((*(LnkLI283))(VV[232],small_fixnum(3),V693));          goto T2542;
4707          goto T2533;  T2542:;
4708  T2533:;          V695 = make_fixnum((long)length((V690)));
4709          if(type_of(car((V688)))==t_symbol){          (void)((*(LnkLI283))(VV[232],small_fixnum(3),V695));
4710          goto T2540;}          goto T2541;
4711          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688)))));  T2541:;
4712          goto T2540;          if(type_of(car((V690)))==t_symbol){
 T2540:;  
         {register object V694;  
         register object V695;  
         V694= cadr((V688));  
         V695= car((V694));  
         goto T2547;  
 T2547:;  
         if(!(endp_prop((V694)))){  
4713          goto T2548;}          goto T2548;}
4714          goto T2543;          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V690)))));
4715          goto T2548;          goto T2548;
4716  T2548:;  T2548:;
4717          {register object x= (V695),V696= VV[234];          {register object V696;
4718          while(!endp(V696))          register object V697;
4719          if(eql(x,V696->c.c_car)){          V696= cadr((V690));
4720          goto T2552;          V697= car((V696));
4721          }else V696=V696->c.c_cdr;}          goto T2555;
4722          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695))));  T2555:;
4723          goto T2552;          if(!(endp_prop((V696)))){
4724  T2552:;          goto T2556;}
4725          V694= cdr((V694));          goto T2551;
4726          V695= car((V694));          goto T2556;
4727          goto T2547;}  T2556:;
4728          goto T2543;          {register object x= (V697),V698= VV[234];
4729  T2543:;          while(!endp(V698))
4730          V692= caddr((V688));          if(eql(x,V698->c.c_car)){
4731          if(!(type_of((V692))==t_symbol)){          goto T2560;
4732          goto T2564;}          }else V698=V698->c.c_cdr;}
4733          V689= VV[74];          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V697))));
4734          base[1]= symbol_name((V692));          goto T2560;
4735    T2560:;
4736            V696= cdr((V696));
4737            V697= car((V696));
4738            goto T2555;}
4739            goto T2551;
4740    T2551:;
4741            V694= caddr((V690));
4742            if(!(type_of((V694))==t_symbol)){
4743            goto T2572;}
4744            V691= VV[74];
4745            base[1]= symbol_name((V694));
4746          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4747          Lstring_downcase();          Lstring_downcase();
4748          vs_top=sup;          vs_top=sup;
4749          V690= vs_base[0];          V692= vs_base[0];
4750          goto T2562;          goto T2570;
4751          goto T2564;          goto T2572;
4752  T2564:;  T2572:;
4753          if(!(type_of((V692))==t_string)){          if(!(type_of((V694))==t_string)){
4754          goto T2571;}          goto T2579;}
4755          V689= VV[74];          V691= VV[74];
4756          V690= (V692);          V692= (V694);
4757          goto T2562;          goto T2570;
4758          goto T2571;          goto T2579;
4759  T2571:;  T2579:;
4760          if(!(type_of((V692))==t_cons)){          if(!(type_of((V694))==t_cons)){
4761          goto T2577;}          goto T2585;}
4762          {register object x= car((V692)),V697= VV[236];          {register object x= car((V694)),V699= VV[236];
4763          while(!endp(V697))          while(!endp(V699))
4764          if(eql(x,V697->c.c_car)){          if(eql(x,V699->c.c_car)){
4765          goto T2581;          goto T2589;
4766          }else V697=V697->c.c_cdr;          }else V699=V699->c.c_cdr;
4767          goto T2577;}          goto T2585;}
4768          goto T2581;          goto T2589;
4769  T2581:;  T2589:;
4770          if(!(type_of(cdr((V692)))==t_cons)){          if(!(type_of(cdr((V694)))==t_cons)){
4771          goto T2577;}          goto T2585;}
4772          if(type_of(cadr((V692)))==t_symbol){          if(type_of(cadr((V694)))==t_symbol){
         goto T2584;}  
         if(!(type_of(cadr((V692)))==t_string)){  
         goto T2577;}  
         goto T2584;  
 T2584:;  
         if(!(endp_prop(cddr((V692))))){  
         goto T2577;}  
         if(!(type_of(cadr((V692)))==t_symbol)){  
4773          goto T2592;}          goto T2592;}
4774          base[1]= symbol_name(cadr((V692)));          if(!(type_of(cadr((V694)))==t_string)){
4775            goto T2585;}
4776            goto T2592;
4777    T2592:;
4778            if(!(endp_prop(cddr((V694))))){
4779            goto T2585;}
4780            if(!(type_of(cadr((V694)))==t_symbol)){
4781            goto T2600;}
4782            base[1]= symbol_name(cadr((V694)));
4783          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4784          Lstring_downcase();          Lstring_downcase();
4785          vs_top=sup;          vs_top=sup;
4786          V690= vs_base[0];          V692= vs_base[0];
4787          goto T2590;          goto T2598;
4788          goto T2592;          goto T2600;
4789  T2592:;  T2600:;
4790          V690= cadr((V692));          V692= cadr((V694));
4791          goto T2590;          goto T2598;
4792  T2590:;  T2598:;
4793          V689= car((V692));          V691= car((V694));
4794          goto T2562;          goto T2570;
4795          goto T2577;          goto T2585;
4796  T2577:;  T2585:;
4797          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V694))));
4798          goto T2562;          goto T2570;
4799  T2562:;  T2570:;
4800          {object V698;          {object V700;
4801          V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690));          V700= list(6,VV[232],car((V690)),(V693),cadr((V690)),(V691),(V692));
4802          setq(VV[24],make_cons((V698),symbol_value(VV[24])));}          setq(VV[24],make_cons((V700),symbol_value(VV[24])));}
4803          {object V699;          {object V701;
4804          V699= make_cons(car((V688)),(V691));          V701= make_cons(car((V690)),(V693));
4805          setq(VV[79],make_cons((V699),symbol_value(VV[79])));          setq(VV[79],make_cons((V701),symbol_value(VV[79])));
4806          {object V700 = symbol_value(VV[79]);          {object V702 = symbol_value(VV[79]);
4807          VMR48(V700)}}}          VMR48(V702)}}}
4808          base[0]=base[0];          base[0]=base[0];
4809          return Cnil;          return Cnil;
4810  }  }
4811  /*      local entry for function T2DEFENTRY     */  /*      local entry for function T2DEFENTRY     */
4812    
4813  static object LI50(V706,V707,V708,V709,V710)  static object LI50(V708,V709,V710,V711,V712)
4814    
4815  object V706;object V707;object V708;object V709;object V710;  object V708;object V709;object V710;object V711;object V712;
4816  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4817          goto TTL;          goto TTL;
4818  TTL:;  TTL:;
4819          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
4820          (void)((*(LnkLI277))((V707)));          (void)((*(LnkLI277))((V709)));
4821          princ_str("();",VV[31]);          princ_str("();",VV[31]);
4822          V711= list(2,VV[91],(V706));          V713= list(2,VV[91],(V708));
4823          V712= list(3,VV[111],/* INLINE-ARGS */V711,(*(LnkLI304))(VV[238],(V707)));          V714= list(3,VV[111],/* INLINE-ARGS */V713,(*(LnkLI304))(VV[238],(V709)));
4824          {object V713 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V712));          {object V715 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V714));
4825          VMR49(V713)}          VMR49(V715)}
4826          return Cnil;          return Cnil;
4827  }  }
4828  /*      local entry for function T3DEFENTRY     */  /*      local entry for function T3DEFENTRY     */
4829    
4830  static object LI51(V719,V720,V721,V722,V723)  static object LI51(V721,V722,V723,V724,V725)
4831    
4832  object V719;object V720;object V721;register object V722;object V723;  object V721;object V722;object V723;register object V724;object V725;
4833  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4834          goto TTL;          goto TTL;
4835  TTL:;  TTL:;
4836          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[239],(V719))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[239],(V721))));
4837          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
4838          (void)((*(LnkLI274))((V720)));          (void)((*(LnkLI274))((V722)));
4839          princ_str("()",VV[25]);          princ_str("()",VV[25]);
4840          princ_str("\n{  object *old_base=vs_base;",VV[25]);          princ_str("\n{  object *old_base=vs_base;",VV[25]);
4841          {object V724= (V722);          {object V726= (V724);
4842          if((V724!= VV[240]))goto T2613;          if((V726!= VV[240]))goto T2621;
4843          goto T2612;          goto T2620;
4844          goto T2613;          goto T2621;
4845  T2613:;  T2621:;
4846          if((V724!= VV[158]))goto T2614;          if((V726!= VV[158]))goto T2622;
4847          princ_str("\n   char *x;",VV[25]);          princ_str("\n   char *x;",VV[25]);
4848          goto T2612;          goto T2620;
4849          goto T2614;          goto T2622;
4850  T2614:;  T2622:;
4851          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
4852          base[0]= symbol_name((V722));          base[0]= symbol_name((V724));
4853          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4854          Lstring_downcase();          Lstring_downcase();
4855          vs_top=sup;          vs_top=sup;
4856          V725= vs_base[0];          V727= vs_base[0];
4857          (void)((*(LnkLI274))(V725));          (void)((*(LnkLI274))(V727));
4858          princ_str(" x;",VV[25]);}          princ_str(" x;",VV[25]);}
4859          goto T2612;          goto T2620;
4860  T2612:;  T2620:;
4861          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
4862          goto T2621;}          goto T2629;}
4863          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[25]);
4864          V726 = make_fixnum((long)length((V721)));          V728 = make_fixnum((long)length((V723)));
4865          (void)((*(LnkLI274))(V726));          (void)((*(LnkLI274))(V728));
4866          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4867          goto T2621;          goto T2629;
4868  T2621:;  T2629:;
4869          if(((V722))==(VV[240])){          if(((V724))==(VV[240])){
4870          goto T2627;}          goto T2635;}
4871          princ_str("\n   x=",VV[25]);          princ_str("\n   x=",VV[25]);
4872          goto T2627;          goto T2635;
4873  T2627:;  T2635:;
4874          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
4875          (void)((*(LnkLI274))((V723)));          (void)((*(LnkLI274))((V725)));
4876          princ_char(40,VV[25]);          princ_char(40,VV[25]);
4877          if(endp_prop((V721))){          if(endp_prop((V723))){
4878          goto T2635;}          goto T2643;}
4879          {register object V727;          {register object V729;
4880          register long V728;          register long V730;
4881          V728= 0;          V730= 0;
4882          V727= (V721);          V729= (V723);
4883          goto T2640;          goto T2648;
4884  T2640:;  T2648:;
4885          {object V729= car((V727));          {object V731= car((V729));
4886          if((V729!= VV[74]))goto T2644;          if((V731!= VV[74]))goto T2652;
4887          princ_str("\n   vs_base[",VV[25]);          princ_str("\n   vs_base[",VV[25]);
4888          V730 = make_fixnum(V728);          V732 = make_fixnum(V730);
4889          (void)((*(LnkLI274))(V730));          (void)((*(LnkLI274))(V732));
4890          princ_char(93,VV[25]);          princ_char(93,VV[25]);
4891          goto T2643;          goto T2651;
4892          goto T2644;          goto T2652;
4893  T2644:;  T2652:;
4894          princ_str("\n   object_to_",VV[25]);          princ_str("\n   object_to_",VV[25]);
4895          base[0]= symbol_name(car((V727)));          base[0]= symbol_name(car((V729)));
4896          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4897          Lstring_downcase();          Lstring_downcase();
4898          vs_top=sup;          vs_top=sup;
4899          V731= vs_base[0];          V733= vs_base[0];
4900          (void)((*(LnkLI274))(V731));          (void)((*(LnkLI274))(V733));
4901          princ_str("(vs_base[",VV[25]);          princ_str("(vs_base[",VV[25]);
4902          V732 = make_fixnum(V728);          V734 = make_fixnum(V730);
4903          (void)((*(LnkLI274))(V732));          (void)((*(LnkLI274))(V734));
4904          princ_str("])",VV[25]);}          princ_str("])",VV[25]);}
4905            goto T2651;
4906    T2651:;
4907            if(!(endp_prop(cdr((V729))))){
4908            goto T2663;}
4909          goto T2643;          goto T2643;
4910  T2643:;          goto T2663;
4911          if(!(endp_prop(cdr((V727))))){  T2663:;
         goto T2655;}  
         goto T2635;  
         goto T2655;  
 T2655:;  
4912          princ_char(44,VV[25]);          princ_char(44,VV[25]);
4913          V727= cdr((V727));          V729= cdr((V729));
4914          V728= (long)(V728)+1;          V730= (long)(V730)+1;
4915          goto T2640;}          goto T2648;}
4916          goto T2635;          goto T2643;
4917  T2635:;  T2643:;
4918          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4919          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);
4920          princ_str("\n   vs_base[0]=",VV[25]);          princ_str("\n   vs_base[0]=",VV[25]);
4921          {object V733= (V722);          {object V735= (V724);
4922          if((V733!= VV[240]))goto T2671;          if((V735!= VV[240]))goto T2679;
4923          princ_str("Cnil",VV[25]);          princ_str("Cnil",VV[25]);
4924          goto T2670;          goto T2678;
4925          goto T2671;          goto T2679;
4926  T2671:;  T2679:;
4927          if((V733!= VV[74]))goto T2673;          if((V735!= VV[74]))goto T2681;
4928          princ_char(120,VV[25]);          princ_char(120,VV[25]);
4929          goto T2670;          goto T2678;
4930          goto T2673;          goto T2681;
4931  T2673:;  T2681:;
4932          if((V733!= VV[344]))goto T2675;          if((V735!= VV[344]))goto T2683;
4933          princ_str("code_char(x)",VV[25]);          princ_str("code_char(x)",VV[25]);
         goto T2670;  
         goto T2675;  
 T2675:;  
         if((V733!= VV[345]))goto T2677;  
         if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){  
         goto T2678;}  
         princ_str("CMP",VV[25]);  
4934          goto T2678;          goto T2678;
 T2678:;  
         princ_str("make_fixnum(x)",VV[25]);  
         goto T2670;  
         goto T2677;  
 T2677:;  
         if((V733!= VV[158]))goto T2683;  
         princ_str("make_simple_string(x)",VV[25]);  
         goto T2670;  
4935          goto T2683;          goto T2683;
4936  T2683:;  T2683:;
4937          if((V733!= VV[346]))goto T2685;          if((V735!= VV[345]))goto T2685;
4938          princ_str("make_shortfloat(x)",VV[25]);          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4939          goto T2670;          goto T2686;}
4940            princ_str("CMP",VV[25]);
4941            goto T2686;
4942    T2686:;
4943            princ_str("make_fixnum(x)",VV[25]);
4944            goto T2678;
4945          goto T2685;          goto T2685;
4946  T2685:;  T2685:;
4947          if((V733!= VV[347]))goto T2687;          if((V735!= VV[158]))goto T2691;
4948            princ_str("make_simple_string(x)",VV[25]);
4949            goto T2678;
4950            goto T2691;
4951    T2691:;
4952            if((V735!= VV[346]))goto T2693;
4953            princ_str("make_shortfloat(x)",VV[25]);
4954            goto T2678;
4955            goto T2693;
4956    T2693:;
4957            if((V735!= VV[347]))goto T2695;
4958          princ_str("make_longfloat(x)",VV[25]);          princ_str("make_longfloat(x)",VV[25]);
4959          goto T2670;          goto T2678;
4960          goto T2687;          goto T2695;
4961  T2687:;}  T2695:;}
4962          goto T2670;          goto T2678;
4963  T2670:;  T2678:;
4964          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4965          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4966          {object V734 = Cnil;          {object V736 = Cnil;
4967          VMR50(V734)}          VMR50(V736)}
4968          base[0]=base[0];          base[0]=base[0];
4969          return Cnil;          return Cnil;
4970  }  }
4971  /*      local entry for function T1DEFLA        */  /*      local entry for function T1DEFLA        */
4972    
4973  static object LI52(V736)  static object LI52(V738)
4974    
4975  object V736;  object V738;
4976  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
4977          goto TTL;          goto TTL;
4978  TTL:;  TTL:;
4979          {object V737 = Cnil;          {object V739 = Cnil;
4980          VMR51(V737)}          VMR51(V739)}
4981          return Cnil;          return Cnil;
4982  }  }
4983  /*      local entry for function PARSE-CVSPECS  */  /*      local entry for function PARSE-CVSPECS  */
4984    
4985  static object LI53(V739)  static object LI53(V741)
4986    
4987  object V739;  object V741;
4988  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
4989          goto TTL;          goto TTL;
4990  TTL:;  TTL:;
4991          {register object V740;          {register object V742;
4992          V740= Cnil;          V742= Cnil;
4993          {register object V741;          {register object V743;
4994          register object V742;          register object V744;
4995          V741= (V739);          V743= (V741);
4996          V742= car((V741));          V744= car((V743));
4997          goto T2696;          goto T2704;
4998  T2696:;  T2704:;
4999          if(!(endp_prop((V741)))){          if(!(endp_prop((V743)))){
5000          goto T2697;}          goto T2705;}
5001          {object V743 = reverse((V740));          {object V745 = reverse((V742));
5002          VMR52(V743)}          VMR52(V745)}
5003          goto T2697;          goto T2705;
5004  T2697:;  T2705:;
5005          if(!(type_of((V742))==t_symbol)){          if(!(type_of((V744))==t_symbol)){
5006          goto T2703;}          goto T2711;}
5007          {object V744;          {object V746;
5008          base[2]= symbol_name((V742));          base[2]= symbol_name((V744));
5009          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5010          Lstring_downcase();          Lstring_downcase();
5011          vs_top=sup;          vs_top=sup;
5012          V745= vs_base[0];          V747= vs_base[0];
5013          V744= list(2,VV[74],V745);          V746= list(2,VV[74],V747);
5014          V740= make_cons((V744),(V740));          V742= make_cons((V746),(V742));
5015          goto T2701;}          goto T2709;}
5016          goto T2703;          goto T2711;
5017  T2703:;  T2711:;
5018          if(!(type_of((V742))==t_string)){          if(!(type_of((V744))==t_string)){
5019          goto T2710;}          goto T2718;}
5020          {object V746;          {object V748;
5021          V746= list(2,VV[74],(V742));          V748= list(2,VV[74],(V744));
5022          V740= make_cons((V746),(V740));          V742= make_cons((V748),(V742));
5023          goto T2701;}          goto T2709;}
         goto T2710;  
 T2710:;  
         if(!(type_of((V742))==t_cons)){  
         goto T2715;}  
         {register object x= car((V742)),V747= VV[241];  
         while(!endp(V747))  
         if(eql(x,V747->c.c_car)){  
         goto T2718;  
         }else V747=V747->c.c_cdr;  
         goto T2715;}  
5024          goto T2718;          goto T2718;
5025  T2718:;  T2718:;
5026          {register object V748;          if(!(type_of((V744))==t_cons)){
         register object V749;  
         V748= cdr((V742));  
         V749= car((V748));  
         goto T2722;  
 T2722:;  
         if(!(endp_prop((V748)))){  
5027          goto T2723;}          goto T2723;}
5028          goto T2701;          {register object x= car((V744)),V749= VV[241];
5029          goto T2723;          while(!endp(V749))
5030  T2723:;          if(eql(x,V749->c.c_car)){
5031            goto T2726;
5032            }else V749=V749->c.c_cdr;
5033            goto T2723;}
5034            goto T2726;
5035    T2726:;
5036          {register object V750;          {register object V750;
5037          V751= car((V742));          register object V751;
5038          if(!(type_of((V749))==t_symbol)){          V750= cdr((V744));
5039            V751= car((V750));
5040            goto T2730;
5041    T2730:;
5042            if(!(endp_prop((V750)))){
5043          goto T2731;}          goto T2731;}
5044          base[4]= symbol_name((V749));          goto T2709;
5045            goto T2731;
5046    T2731:;
5047            {register object V752;
5048            V753= car((V744));
5049            if(!(type_of((V751))==t_symbol)){
5050            goto T2739;}
5051            base[4]= symbol_name((V751));
5052          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5053          Lstring_downcase();          Lstring_downcase();
5054          vs_top=sup;          vs_top=sup;
5055          V752= vs_base[0];          V754= vs_base[0];
5056          goto T2729;          goto T2737;
5057          goto T2731;          goto T2739;
5058  T2731:;  T2739:;
5059          if(!(type_of((V749))==t_string)){          if(!(type_of((V751))==t_string)){
5060          goto T2735;}          goto T2743;}
5061          V752= (V749);          V754= (V751);
5062          goto T2729;          goto T2737;
5063          goto T2735;          goto T2743;
5064  T2735:;  T2743:;
5065          V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749)));          V754= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V751)));
5066          goto T2729;          goto T2737;
5067  T2729:;  T2737:;
5068          V750= list(2,/* INLINE-ARGS */V751,V752);          V752= list(2,/* INLINE-ARGS */V753,V754);
5069          V740= make_cons((V750),(V740));}          V742= make_cons((V752),(V742));}
5070          V748= cdr((V748));          V750= cdr((V750));
5071          V749= car((V748));          V751= car((V750));
5072          goto T2722;}          goto T2730;}
5073          goto T2715;          goto T2723;
5074  T2715:;  T2723:;
5075          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V744))));
5076          goto T2701;          goto T2709;
5077  T2701:;  T2709:;
5078          V741= cdr((V741));          V743= cdr((V743));
5079          V742= car((V741));          V744= car((V743));
5080          goto T2696;}}          goto T2704;}}
5081          base[0]=base[0];          base[0]=base[0];
5082          return Cnil;          return Cnil;
5083  }  }
5084  /*      local entry for function T3LOCAL-DCFUN  */  /*      local entry for function T3LOCAL-DCFUN  */
5085    
5086  static object LI54(V758,V759,V760,V761,V762)  static object LI54(V760,V761,V762,V763,V764)
5087    
5088  object V758;object V759;object V760;register object V761;register object V762;  object V760;object V761;object V762;register object V763;register object V764;
5089  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
5090          bds_check;          bds_check;
5091          goto TTL;          goto TTL;
5092  TTL:;  TTL:;
5093          {object V763;          {object V765;
5094          register object V764;          register object V766;
5095          object V765;          object V767;
5096          if(((V758))==Cnil){          if(((V760))==Cnil){
         goto T2750;}  
         V763= small_fixnum(0);  
         goto T2748;  
         goto T2750;  
 T2750:;  
         V763= structure_ref((V761),VV[32],4);  
         goto T2748;  
 T2748:;  
         V764= Cnil;  
         bds_bind(VV[20],(*(LnkLI309))(cadr((V762))));  
         bds_bind(VV[117],Cnil);  
         V765= caaddr((V762));  
         if((structure_ref((V761),VV[32],0))==Cnil){  
5097          goto T2758;}          goto T2758;}
5098          V766= structure_ref((V761),VV[32],0);          V765= small_fixnum(0);
5099          goto T2756;          goto T2756;
5100          goto T2758;          goto T2758;
5101  T2758:;  T2758:;
5102          V766= Cnil;          V765= structure_ref((V763),VV[32],4);
5103          goto T2756;          goto T2756;
5104  T2756:;  T2756:;
5105          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[244],V766)));          V766= Cnil;
5106            bds_bind(VV[20],(*(LnkLI309))(cadr((V764))));
5107            bds_bind(VV[117],Cnil);
5108            V767= caaddr((V764));
5109            if((structure_ref((V763),VV[32],0))==Cnil){
5110            goto T2766;}
5111            V768= structure_ref((V763),VV[32],0);
5112            goto T2764;
5113            goto T2766;
5114    T2766:;
5115            V768= Cnil;
5116            goto T2764;
5117    T2764:;
5118            (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[244],V768)));
5119          princ_str("\nstatic void ",VV[25]);          princ_str("\nstatic void ",VV[25]);
5120          if(((V758))==Cnil){          if(((V760))==Cnil){
5121          goto T2765;}          goto T2773;}
5122          V767= VV[245];          V769= VV[245];
5123          goto T2763;          goto T2771;
5124          goto T2765;          goto T2773;
5125  T2765:;  T2773:;
5126          V767= VV[246];          V769= VV[246];
5127          goto T2763;          goto T2771;
5128  T2763:;  T2771:;
5129          (void)((*(LnkLI274))(V767));          (void)((*(LnkLI274))(V769));
5130          V768= structure_ref((V761),VV[32],3);          V770= structure_ref((V763),VV[32],3);
5131          (void)((*(LnkLI274))(/* INLINE-ARGS */V768));          (void)((*(LnkLI274))(/* INLINE-ARGS */V770));
5132          princ_char(40,VV[25]);          princ_char(40,VV[25]);
5133          princ_str("base0",VV[25]);          princ_str("base0",VV[25]);
5134          if(((V765))==Cnil){          if(((V767))==Cnil){
5135          goto T2774;}          goto T2782;}
5136          V769= VV[247];          V771= VV[247];
5137          goto T2772;          goto T2780;
5138          goto T2774;          goto T2782;
5139  T2774:;  T2782:;
5140          V769= VV[248];          V771= VV[248];
5141          goto T2772;          goto T2780;
5142  T2772:;  T2780:;
5143          (void)((*(LnkLI274))(V769));          (void)((*(LnkLI274))(V771));
5144          V770= structure_ref(cadr((V762)),VV[62],1);          V772= structure_ref(cadr((V764)),VV[62],1);
5145          (void)((*(LnkLI311))(/* INLINE-ARGS */V770,small_fixnum(2)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V772,small_fixnum(2)));
5146          (void)((*(LnkLI316))(caaddr((V762)),Cnil));          (void)((*(LnkLI316))(caaddr((V764)),Cnil));
5147          princ_str("register object *",VV[25]);          princ_str("register object *",VV[25]);
5148          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5149          princ_str("base0;",VV[25]);          princ_str("base0;",VV[25]);
5150          bds_bind(VV[249],(V760));          bds_bind(VV[249],(V762));
5151          bds_bind(VV[128],VV[124]);          bds_bind(VV[128],VV[124]);
5152          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
5153          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
5154          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5155          bds_bind(VV[131],one_plus((V763)));          bds_bind(VV[131],one_plus((V765)));
5156          bds_bind(VV[132],(V760));          bds_bind(VV[132],(V762));
5157          bds_bind(VV[133],(V759));          bds_bind(VV[133],(V761));
5158          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));
5159          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],(VV[128]->s.s_dbind));
5160          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));
# Line 5143  T2772:; Line 5163  T2772:;
5163          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
5164          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5165          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
5166          V764= (VV[136]->s.s_dbind);          V766= (VV[136]->s.s_dbind);
5167          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
5168          V771= structure_ref(cadr((V762)),VV[62],1);          V773= structure_ref(cadr((V764)),VV[62],1);
5169          V772= structure_ref((V761),VV[32],3);          V774= structure_ref((V763),VV[32],3);
5170          (void)((*(LnkLI317))(/* INLINE-ARGS */V771,/* INLINE-ARGS */V772,VV[250]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V773,/* INLINE-ARGS */V774,VV[250]));
5171          princ_str("\n   VMB",VV[25]);          princ_str("\n   VMB",VV[25]);
5172          (void)((*(LnkLI274))((V764)));          (void)((*(LnkLI274))((V766)));
5173          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
5174          (void)((*(LnkLI274))((V764)));          (void)((*(LnkLI274))((V766)));
5175          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
5176          (void)((*(LnkLI274))((V764)));          (void)((*(LnkLI274))((V766)));
5177          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5178          goto T2798;}          goto T2806;}
5179          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
5180          goto T2798;          goto T2806;
5181  T2798:;  T2806:;
5182          base[19]= caddr(cddr((V762)));          base[19]= caddr(cddr((V764)));
5183          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
5184          (void) (*Lnk318)();          (void) (*Lnk318)();
5185          vs_top=sup;          vs_top=sup;
5186          if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){          if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){
5187          goto T2806;}          goto T2814;}
5188          if(((VV[138]->s.s_dbind))!=Cnil){          if(((VV[138]->s.s_dbind))!=Cnil){
5189          goto T2806;}          goto T2814;}
5190          if(((VV[140]->s.s_dbind))!=Cnil){          if(((VV[140]->s.s_dbind))!=Cnil){
5191          goto T2806;}          goto T2814;}
5192          goto T2804;          goto T2812;
5193          goto T2806;          goto T2814;
5194  T2806:;  T2814:;
5195          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
5196          goto T2804;          goto T2812;
5197  T2804:;  T2812:;
5198          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
5199          (void)((*(LnkLI319))((V764),Ct));          (void)((*(LnkLI319))((V766),Ct));
5200          V773= structure_ref((V761),VV[32],3);          V775= structure_ref((V763),VV[32],3);
5201          {object V774 = (*(LnkLI313))(/* INLINE-ARGS */V773);          {object V776 = (*(LnkLI313))(/* INLINE-ARGS */V775);
5202          bds_unwind1;          bds_unwind1;
5203          bds_unwind1;          bds_unwind1;
5204          bds_unwind1;          bds_unwind1;
# Line 5196  T2804:; Line 5216  T2804:;
5216          bds_unwind1;          bds_unwind1;
5217          bds_unwind1;          bds_unwind1;
5218          bds_unwind1;          bds_unwind1;
5219          VMR53(V774)}}          VMR53(V776)}}
5220          base[0]=base[0];          base[0]=base[0];
5221          return Cnil;          return Cnil;
5222  }  }
5223  /*      local entry for function T3LOCAL-FUN    */  /*      local entry for function T3LOCAL-FUN    */
5224    
5225  static object LI55(V780,V781,V782,V783,V784)  static object LI55(V782,V783,V784,V785,V786)
5226    
5227  object V780;object V781;object V782;object V783;object V784;  object V782;object V783;object V784;object V785;object V786;
5228  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
5229          bds_check;          bds_check;
5230          goto TTL;          goto TTL;
5231  TTL:;  TTL:;
5232          {long V785;          {long V787;
5233          if(((V780))==Cnil){          if(((V782))==Cnil){
5234          goto T2818;}          goto T2826;}
5235          V785= 0;          V787= 0;
5236          goto T2816;          goto T2824;
5237          goto T2818;          goto T2826;
5238  T2818:;  T2826:;
5239          V785= fix(structure_ref((V783),VV[32],4));          V787= fix(structure_ref((V785),VV[32],4));
5240          goto T2816;          goto T2824;
5241  T2816:;  T2824:;
5242          bds_bind(VV[20],(*(LnkLI309))(cadr((V784))));          bds_bind(VV[20],(*(LnkLI309))(cadr((V786))));
5243          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
5244          if(!(((V780))==(VV[251]))){          if(!(((V782))==(VV[251]))){
5245          goto T2821;}          goto T2829;}
5246          {object V786 = (*(LnkLI250))((V780),(V781),(V782),(V783),(V784));          {object V788 = (*(LnkLI250))((V782),(V783),(V784),(V785),(V786));
5247          bds_unwind1;          bds_unwind1;
5248          bds_unwind1;          bds_unwind1;
5249          VMR54(V786)}          VMR54(V788)}
5250          goto T2821;          goto T2829;
5251  T2821:;  T2829:;
5252          if((structure_ref((V783),VV[32],0))==Cnil){          if((structure_ref((V785),VV[32],0))==Cnil){
5253          goto T2827;}          goto T2835;}
5254          V787= structure_ref((V783),VV[32],0);          V789= structure_ref((V785),VV[32],0);
5255          goto T2825;          goto T2833;
5256          goto T2827;          goto T2835;
5257  T2827:;  T2835:;
5258          V787= Cnil;          V789= Cnil;
5259          goto T2825;          goto T2833;
5260  T2825:;  T2833:;
5261          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[252],V787)));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[252],V789)));
5262          princ_str("\nstatic void ",VV[31]);          princ_str("\nstatic void ",VV[31]);
5263          if(((V780))==Cnil){          if(((V782))==Cnil){
5264          goto T2834;}          goto T2842;}
5265          V788= VV[253];          V790= VV[253];
5266          goto T2832;          goto T2840;
5267          goto T2834;          goto T2842;
5268  T2834:;  T2842:;
5269          V788= VV[254];          V790= VV[254];
5270          goto T2832;          goto T2840;
5271  T2832:;  T2840:;
5272          (void)((*(LnkLI277))(V788));          (void)((*(LnkLI277))(V790));
5273          V789= structure_ref((V783),VV[32],3);          V791= structure_ref((V785),VV[32],3);
5274          (void)((*(LnkLI277))(/* INLINE-ARGS */V789));          (void)((*(LnkLI277))(/* INLINE-ARGS */V791));
5275          princ_str("();",VV[31]);          princ_str("();",VV[31]);
5276          princ_str("\nstatic void ",VV[25]);          princ_str("\nstatic void ",VV[25]);
5277          if(((V780))==Cnil){          if(((V782))==Cnil){
5278          goto T2843;}          goto T2851;}
5279          V790= VV[255];          V792= VV[255];
5280          goto T2841;          goto T2849;
         goto T2843;  
 T2843:;  
         V790= VV[256];  
         goto T2841;  
 T2841:;  
         (void)((*(LnkLI274))(V790));  
         V791= structure_ref((V783),VV[32],3);  
         (void)((*(LnkLI274))(/* INLINE-ARGS */V791));  
         princ_char(40,VV[25]);  
         {register object V792;  
         register long V793;  
         V792= make_fixnum(V785);  
         V793= 0;  
5281          goto T2851;          goto T2851;
5282  T2851:;  T2851:;
5283          V794 = make_fixnum(V793);          V792= VV[256];
5284          if(!(number_compare(V794,(V792))>=0)){          goto T2849;
5285          goto T2852;}  T2849:;
5286            (void)((*(LnkLI274))(V792));
5287            V793= structure_ref((V785),VV[32],3);
5288            (void)((*(LnkLI274))(/* INLINE-ARGS */V793));
5289            princ_char(40,VV[25]);
5290            {register object V794;
5291            register long V795;
5292            V794= make_fixnum(V787);
5293            V795= 0;
5294            goto T2859;
5295    T2859:;
5296            V796 = make_fixnum(V795);
5297            if(!(number_compare(V796,(V794))>=0)){
5298            goto T2860;}
5299          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5300          V795 = make_fixnum(V793);          V797 = make_fixnum(V795);
5301          (void)((*(LnkLI274))(V795));          (void)((*(LnkLI274))(V797));
5302          princ_char(41,VV[25]);          princ_char(41,VV[25]);
5303          goto T2847;          goto T2855;
5304          goto T2852;          goto T2860;
5305  T2852:;  T2860:;
5306          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5307          V796 = make_fixnum(V793);          V798 = make_fixnum(V795);
5308          (void)((*(LnkLI274))(V796));          (void)((*(LnkLI274))(V798));
5309          princ_char(44,VV[25]);          princ_char(44,VV[25]);
5310          V793= (long)(V793)+1;          V795= (long)(V795)+1;
5311          goto T2851;}          goto T2859;}
5312          goto T2847;          goto T2855;
5313  T2847:;  T2855:;
5314          princ_str("\nregister object ",VV[25]);          princ_str("\nregister object ",VV[25]);
5315          {register object V797;          {register object V799;
5316          register long V798;          register long V800;
5317          V797= make_fixnum(V785);          V799= make_fixnum(V787);
5318          V798= 0;          V800= 0;
5319          goto T2872;          goto T2880;
5320  T2872:;  T2880:;
5321          V799 = make_fixnum(V798);          V801 = make_fixnum(V800);
5322          if(!(number_compare(V799,(V797))>=0)){          if(!(number_compare(V801,(V799))>=0)){
5323          goto T2873;}          goto T2881;}
5324          princ_char(42,VV[25]);          princ_char(42,VV[25]);
5325          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5326          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5327          V800 = make_fixnum(V798);          V802 = make_fixnum(V800);
5328          (void)((*(LnkLI274))(V800));          (void)((*(LnkLI274))(V802));
5329          princ_char(59,VV[25]);          princ_char(59,VV[25]);
5330          goto T2868;          goto T2876;
5331          goto T2873;          goto T2881;
5332  T2873:;  T2881:;
5333          princ_char(42,VV[25]);          princ_char(42,VV[25]);
5334          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5335          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5336          V801 = make_fixnum(V798);          V803 = make_fixnum(V800);
5337          (void)((*(LnkLI274))(V801));          (void)((*(LnkLI274))(V803));
5338          princ_char(44,VV[25]);          princ_char(44,VV[25]);
5339          V798= (long)(V798)+1;          V800= (long)(V800)+1;
5340          goto T2872;}          goto T2880;}
5341          goto T2868;          goto T2876;
5342  T2868:;  T2876:;
5343          V802= structure_ref(cadr((V784)),VV[62],1);          V804= structure_ref(cadr((V786)),VV[62],1);
5344          (void)((*(LnkLI311))(/* INLINE-ARGS */V802,small_fixnum(2)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V804,small_fixnum(2)));
5345          bds_bind(VV[128],VV[127]);          bds_bind(VV[128],VV[127]);
5346          bds_bind(VV[249],(V782));          bds_bind(VV[249],(V784));
5347          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
5348          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
5349          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5350          V803 = make_fixnum(V785);          V805 = make_fixnum(V787);
5351          bds_bind(VV[131],one_plus(V803));          bds_bind(VV[131],one_plus(V805));
5352          bds_bind(VV[132],(V782));          bds_bind(VV[132],(V784));
5353          bds_bind(VV[133],(V781));          bds_bind(VV[133],(V783));
5354          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));
5355          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],(VV[128]->s.s_dbind));
5356          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));
# Line 5347  T2868:; Line 5367  T2868:;
5367          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[25]);
5368          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5369          princ_char(59,VV[25]);          princ_char(59,VV[25]);
5370          V804= structure_ref(cadr((V784)),VV[62],1);          V806= structure_ref(cadr((V786)),VV[62],1);
5371          V805= structure_ref((V783),VV[32],3);          V807= structure_ref((V785),VV[32],3);
5372          (void)((*(LnkLI317))(/* INLINE-ARGS */V804,/* INLINE-ARGS */V805,VV[257]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V806,/* INLINE-ARGS */V807,VV[257]));
5373          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
5374          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5375          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
5376          goto T2913;}          goto T2921;}
5377          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
5378          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5379          princ_str(");",VV[25]);          princ_str(");",VV[25]);
5380          goto T2911;          goto T2919;
5381          goto T2913;          goto T2921;
5382  T2913:;  T2921:;
5383          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
         goto T2911;  
 T2911:;  
         if((symbol_value(VV[149]))==Cnil){  
         goto T2919;}  
         princ_str("\n   ihs_check;",VV[25]);  
5384          goto T2919;          goto T2919;
5385  T2919:;  T2919:;
5386          if(((V780))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5387          goto T2925;}          goto T2927;}
5388          (void)((VFUN_NARGS=2,(*(LnkLI334))(caddr((V784)),caddr(cddr((V784))))));          princ_str("\n   ihs_check;",VV[25]);
5389          goto T2923;          goto T2927;
5390          goto T2925;  T2927:;
5391  T2925:;          if(((V782))==Cnil){
5392          (void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V784)),caddr(cddr((V784))),(V783))));          goto T2933;}
5393          goto T2923;          (void)((VFUN_NARGS=2,(*(LnkLI334))(caddr((V786)),caddr(cddr((V786))))));
5394  T2923:;          goto T2931;
5395            goto T2933;
5396    T2933:;
5397            (void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V786)),caddr(cddr((V786))),(V785))));
5398            goto T2931;
5399    T2931:;
5400          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
5401          {object V806;          {object V808;
5402          V806= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));          V808= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));
5403          setq(VV[33],make_cons((V806),symbol_value(VV[33])));}          setq(VV[33],make_cons((V808),symbol_value(VV[33])));}
5404          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
5405          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));
5406          V807= (*(LnkLI335))();          V809= (*(LnkLI335))();
5407          bds_unwind1;          bds_unwind1;
5408          bds_unwind1;          bds_unwind1;
5409          bds_unwind1;          bds_unwind1;
# Line 5399  T2923:; Line 5419  T2923:;
5419          bds_unwind1;          bds_unwind1;
5420          bds_unwind1;          bds_unwind1;
5421          bds_unwind1;          bds_unwind1;
5422          V808= structure_ref((V783),VV[32],3);          V810= structure_ref((V785),VV[32],3);
5423          {object V809 = (*(LnkLI313))(/* INLINE-ARGS */V808);          {object V811 = (*(LnkLI313))(/* INLINE-ARGS */V810);
5424          bds_unwind1;          bds_unwind1;
5425          bds_unwind1;          bds_unwind1;
5426          VMR54(V809)}}          VMR54(V811)}}
5427          base[0]=base[0];          base[0]=base[0];
5428          return Cnil;          return Cnil;
5429  }  }
# Line 5414  static object LI56() Line 5434  static object LI56()
5434  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
5435          goto TTL;          goto TTL;
5436  TTL:;  TTL:;
5437          {register object V810;          {register object V812;
5438          V810= Cnil;          V812= Cnil;
         {register object V811;  
         register object V812;  
         V811= symbol_value(VV[18]);  
         V812= car((V811));  
         goto T2940;  
 T2940:;  
         if(!(endp_prop((V811)))){  
         goto T2941;}  
         goto T2936;  
         goto T2941;  
 T2941:;  
5439          {register object V813;          {register object V813;
5440          if(!(type_of((V812))==t_cons)){          register object V814;
5441          goto T2948;}          V813= symbol_value(VV[18]);
5442          {register object V814;          V814= car((V813));
         V814= car((V812));  
         V812= cdr((V812));  
         V813= (V814);  
         goto T2946;}  
5443          goto T2948;          goto T2948;
5444  T2948:;  T2948:;
5445          V813= Ct;          if(!(endp_prop((V813)))){
5446          goto T2946;          goto T2949;}
5447  T2946:;          goto T2944;
5448          if(!(((V810))==((V813)))){          goto T2949;
5449          goto T2955;}  T2949:;
5450            {register object V815;
5451            if(!(type_of((V814))==t_cons)){
5452            goto T2956;}
5453            {register object V816;
5454            V816= car((V814));
5455            V814= cdr((V814));
5456            V815= (V816);
5457            goto T2954;}
5458            goto T2956;
5459    T2956:;
5460            V815= Ct;
5461            goto T2954;
5462    T2954:;
5463            if(!(((V812))==((V815)))){
5464            goto T2963;}
5465          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5466          base[2]= VV[258];          base[2]= VV[258];
5467          base[3]= (V812);          base[3]= (V814);
5468          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5469          Lformat();          Lformat();
5470          vs_top=sup;          vs_top=sup;
         goto T2953;  
         goto T2955;  
 T2955:;  
         if(!(((V810))==Cnil)){  
         goto T2961;}  
         goto T2960;  
5471          goto T2961;          goto T2961;
5472  T2961:;          goto T2963;
5473    T2963:;
5474            if(!(((V812))==Cnil)){
5475            goto T2969;}
5476            goto T2968;
5477            goto T2969;
5478    T2969:;
5479          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5480          base[2]= VV[259];          base[2]= VV[259];
5481          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5482          Lformat();          Lformat();
5483          vs_top=sup;          vs_top=sup;
5484          goto T2960;          goto T2968;
5485  T2960:;  T2968:;
5486          V810= (V813);          V812= (V815);
5487          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5488          base[2]= VV[260];          base[2]= VV[260];
5489          base[3]= (*(LnkLI280))((V810));          base[3]= (*(LnkLI280))((V812));
5490          base[4]= (V812);          base[4]= (V814);
5491          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5492          Lformat();          Lformat();
5493          vs_top=sup;          vs_top=sup;
5494          goto T2953;          goto T2961;
5495  T2953:;  T2961:;
5496          if(!(((V810))==(VV[261]))){          if(!(((V812))==(VV[261]))){
5497          goto T2945;}          goto T2953;}
5498          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5499          base[2]= VV[262];          base[2]= VV[262];
5500          base[3]= (V812);          base[3]= (V814);
5501          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5502          Lformat();          Lformat();
5503          vs_top=sup;}          vs_top=sup;}
5504          goto T2945;          goto T2953;
5505  T2945:;  T2953:;
5506          V811= cdr((V811));          V813= cdr((V813));
5507          V812= car((V811));          V814= car((V813));
5508          goto T2940;}          goto T2948;}
5509          goto T2936;          goto T2944;
5510  T2936:;  T2944:;
5511          if(symbol_value(VV[18])==Cnil){          if(symbol_value(VV[18])==Cnil){
5512          goto T2981;}          goto T2989;}
5513          base[0]= symbol_value(VV[31]);          base[0]= symbol_value(VV[31]);
5514          base[1]= VV[263];          base[1]= VV[263];
5515          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5516          Lformat();          Lformat();
5517          vs_top=sup;          vs_top=sup;
5518          goto T2981;          goto T2989;
5519  T2981:;  T2989:;
5520          if(eql(symbol_value(VV[141]),small_fixnum(0))){          if(eql(symbol_value(VV[141]),small_fixnum(0))){
5521          goto T2985;}          goto T2993;}
5522          base[0]= symbol_value(VV[31]);          base[0]= symbol_value(VV[31]);
5523          base[1]= VV[264];          base[1]= VV[264];
5524          base[2]= symbol_value(VV[141]);          base[2]= symbol_value(VV[141]);
5525          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5526          Lformat();          Lformat();
5527          vs_top=sup;          vs_top=sup;
5528          {object V815 = vs_base[0];          {object V817 = vs_base[0];
5529          VMR55(V815)}          VMR55(V817)}
5530          goto T2985;          goto T2993;
5531  T2985:;  T2993:;
5532          {object V816 = Cnil;          {object V818 = Cnil;
5533          VMR55(V816)}}          VMR55(V818)}}
5534          base[0]=base[0];          base[0]=base[0];
5535          return Cnil;          return Cnil;
5536  }  }
# Line 5521  register object *base0; Line 5541  register object *base0;
5541  {       register object *base=vs_base;  {       register object *base=vs_base;
5542          register object *sup=base+VM56; VC56          register object *sup=base+VM56; VC56
5543          vs_reserve(VM56);          vs_reserve(VM56);
5544          {object V817;          {object V819;
5545          check_arg(1);          check_arg(1);
5546          V817=(base[0]);          V819=(base[0]);
5547          vs_top=sup;          vs_top=sup;
5548          goto TTL;          goto TTL;
5549  TTL:;  TTL:;
5550          V818= structure_ref((V817),VV[69],4);          V820= structure_ref((V819),VV[69],4);
5551          if(eql(/* INLINE-ARGS */V818,VV[72])){          if(eql(/* INLINE-ARGS */V820,VV[72])){
5552          goto T2991;}          goto T2999;}
5553          goto T2990;          goto T2998;
5554          goto T2991;          goto T2999;
5555  T2991:;  T2999:;
5556          (VV[153]->s.s_dbind)= Ct;          (VV[153]->s.s_dbind)= Ct;
5557          goto T2990;          goto T2998;
5558  T2990:;  T2998:;
5559          {object V819;          {object V821;
5560          V819= (*(LnkLI348))((V817));          V821= (*(LnkLI348))((V819));
5561          if(((V819))==Cnil){          if(((V821))==Cnil){
5562          goto T2996;}          goto T3004;}
5563          {object V820;          {object V822;
5564          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
5565          V820= symbol_value(VV[88]);          V822= symbol_value(VV[88]);
5566          (void)(structure_set((V817),VV[69],1,(V819)));          (void)(structure_set((V819),VV[69],1,(V821)));
5567          (void)(structure_set((V817),VV[69],4,(V820)));          (void)(structure_set((V819),VV[69],4,(V822)));
5568          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
5569          if((base0[1])!=Cnil){          if((base0[1])!=Cnil){
5570          goto T3003;}          goto T3011;}
5571          princ_char(123,VV[25]);          princ_char(123,VV[25]);
5572          base0[1]= Ct;          base0[1]= Ct;
5573          goto T3003;          goto T3011;
5574  T3003:;  T3011:;
5575          base[1]= (V817);          base[1]= (V819);
5576          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5577          (void) (*Lnk349)();          (void) (*Lnk349)();
5578          return;}          return;}
5579          goto T2996;          goto T3004;
5580  T2996:;  T3004:;
5581          base[1]= Cnil;          base[1]= Cnil;
5582          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5583          return;}          return;}
5584          }          }
5585  }  }
5586  static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* WT-VAR-DECL */  static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* WT-VAR-DECL */
5587  static object  LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */  static object  LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)(void *)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
5588  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)(void *)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */
5589  static object  LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)&LnkLI343,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */  static object  LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)(void *)&LnkLI343,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */
5590  static object  LnkTLI342(){return call_proc0(VV[342],(void **)&LnkLI342);} /* WFS-ERROR */  static object  LnkTLI342(){return call_proc0(VV[342],(void **)(void *)&LnkLI342);} /* WFS-ERROR */
5591  static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* C2DM */  static void LnkT341(){ call_or_link(VV[341],(void **)(void *)&Lnk341);} /* C2DM */
5592  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)&LnkLI340,3,first,ap);va_end(ap);return V1;} /* C1DM */  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)(void *)&LnkLI340,3,first,ap);va_end(ap);return V1;} /* C1DM */
5593  static object  LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[339],(void **)&LnkLI339,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */  static object  LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[339],(void **)(void *)&LnkLI339,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */
5594  static object  LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)&LnkLI338,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */  static object  LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)(void *)&LnkLI338,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */
5595  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)&LnkLI337,first,ap);va_end(ap);return V1;} /* WARN */  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)(void *)&LnkLI337,first,ap);va_end(ap);return V1;} /* WARN */
5596  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)&LnkLI336,1,first,ap);va_end(ap);return V1;} /* REGISTER */  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)(void *)&LnkLI336,1,first,ap);va_end(ap);return V1;} /* REGISTER */
5597  static object  LnkTLI335(){return call_proc0(VV[335],(void **)&LnkLI335);} /* WT-CVARS */  static object  LnkTLI335(){return call_proc0(VV[335],(void **)(void *)&LnkLI335);} /* WT-CVARS */
5598  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)&LnkLI334,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)(void *)&LnkLI334,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
5599  static object  LnkTLI333(){return call_proc0(VV[333],(void **)&LnkLI333);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI333(){return call_proc0(VV[333],(void **)(void *)&LnkLI333);} /* CLOSE-INLINE-BLOCKS */
5600  static object  LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* WT-VS */
5601  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* C2BIND */  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* C2BIND */
5602  static object  LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
5603  static object  LnkTLI329(){return call_proc0(VV[329],(void **)&LnkLI329);} /* BABOON */  static object  LnkTLI329(){return call_proc0(VV[329],(void **)(void *)&LnkLI329);} /* BABOON */
5604  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
5605  static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* INC-INLINE-BLOCKS */  static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* INC-INLINE-BLOCKS */
5606  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[326],(void **)&LnkLI326,first,ap);va_end(ap);return V1;} /* CS-PUSH */  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[326],(void **)(void *)&LnkLI326,first,ap);va_end(ap);return V1;} /* CS-PUSH */
5607  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
5608  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
5609  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)&LnkLI323,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */
5610  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[322],(void **)&LnkLI322,first,ap);va_end(ap);return V1;} /* CONCATENATE */  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[322],(void **)(void *)&LnkLI322,first,ap);va_end(ap);return V1;} /* CONCATENATE */
5611  static object  LnkTLI321(){return call_proc0(VV[321],(void **)&LnkLI321);} /* CVS-PUSH */  static object  LnkTLI321(){return call_proc0(VV[321],(void **)(void *)&LnkLI321);} /* CVS-PUSH */
5612  static object  LnkTLI320(){return call_proc0(VV[320],(void **)&LnkLI320);} /* VS-PUSH */  static object  LnkTLI320(){return call_proc0(VV[320],(void **)(void *)&LnkLI320);} /* VS-PUSH */
5613  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */
5614  static void LnkT318(){ call_or_link(VV[318],(void **)&Lnk318);} /* C2EXPR */  static void LnkT318(){ call_or_link(VV[318],(void **)(void *)&Lnk318);} /* C2EXPR */
5615  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)&LnkLI317,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */
5616  static object  LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */  static object  LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)(void *)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */
5617  static object  LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[315],(void **)&LnkLI315,first,ap);va_end(ap);return V1;} /* WT-COMMENT */  static object  LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[315],(void **)(void *)&LnkLI315,first,ap);va_end(ap);return V1;} /* WT-COMMENT */
5618  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */
5619  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */
5620  static void LnkT312(){ call_or_link(VV[312],(void **)&Lnk312);} /* T3DEFUN-AUX */  static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* T3DEFUN-AUX */
5621  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)&LnkLI311,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */
5622  static void LnkT310(){ call_or_link(VV[310],(void **)&Lnk310);} /* FIXNUMP */  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* FIXNUMP */
5623  static object  LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)&LnkLI309,1,first,ap);va_end(ap);return V1;} /* VOLATILE */  static object  LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,1,first,ap);va_end(ap);return V1;} /* VOLATILE */
5624  static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)&LnkLI308,1,first,ap);va_end(ap);return V1;} /* MAXARGS */  static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,1,first,ap);va_end(ap);return V1;} /* MAXARGS */
5625  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VARARG-P */  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VARARG-P */
5626  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)&LnkLI306,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */
5627  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)&LnkLI305,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
5628  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
5629  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)&LnkLI303,first,ap);va_end(ap);return V1;} /* ADD-INIT */  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)(void *)&LnkLI303,first,ap);va_end(ap);return V1;} /* ADD-INIT */
5630  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)&LnkLI302,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)(void *)&LnkLI302,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
5631  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */
5632  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)&LnkLI300,257,first,ap);va_end(ap);return V1;} /* F-TYPE */  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)(void *)&LnkLI300,257,first,ap);va_end(ap);return V1;} /* F-TYPE */
5633  static void LnkT299(){ call_or_link(VV[299],(void **)&Lnk299);} /* SUBTYPEP */  static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* SUBTYPEP */
5634  static void LnkT298(){ call_or_link(VV[298],(void **)&Lnk298);} /* STRUCTURE-SUBTYPE-P */  static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* STRUCTURE-SUBTYPE-P */
5635  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[297],(void **)&LnkLI297,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[297],(void **)(void *)&LnkLI297,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
5636  static object  LnkTLI296(){return call_proc0(VV[296],(void **)&LnkLI296);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI296(){return call_proc0(VV[296],(void **)(void *)&LnkLI296);} /* ADD-LOAD-TIME-SHARP-COMMA */
5637  static object  LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)&LnkLI295,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */  static object  LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)(void *)&LnkLI295,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */
5638  static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */  static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)(void *)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
5639  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */
5640  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */
5641  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)&LnkLI291,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */
5642  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)&LnkLI290,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)(void *)&LnkLI290,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
5643  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* T1PROGN */  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* T1PROGN */
5644  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
5645  static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* CMP-EVAL */  static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* CMP-EVAL */
5646  static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* DECLARATION-TYPE */  static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* DECLARATION-TYPE */
5647  static object  LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */  static object  LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)(void *)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
5648  static void LnkT279(){ call_or_link(VV[279],(void **)&Lnk279);} /* WT-DATA-FILE */  static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* WT-DATA-FILE */
5649  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
5650  static object  LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* WT-H1 */  static object  LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)(void *)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* WT-H1 */
5651  static object  LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */  static object  LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */
5652  static void LnkT275(){ call_or_link(VV[275],(void **)&Lnk275);} /* WT-GLOBAL-ENTRY */  static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* WT-GLOBAL-ENTRY */
5653  static void LnkT257(){ call_or_link(VV[257],(void **)&Lnk257);} /* T3LOCAL-FUN */  static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* T3LOCAL-FUN */
5654  static object  LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)&LnkLI274,1,first,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)(void *)&LnkLI274,1,first,ap);va_end(ap);return V1;} /* WT1 */
5655  static object  LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)&LnkLI273,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */  static object  LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,1,first,ap);va_end(ap);return V1;} /* T1ORDINARY */
5656  static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* T1ORDINARY */  static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* T1EXPR */
5657  static void LnkT271(){ call_or_link(VV[271],(void **)&Lnk271);} /* T1EXPR */  static object  LnkTLI271(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[271],(void **)(void *)&LnkLI271,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */
5658  static object  LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */  static object  LnkTLI270(){return call_proc0(VV[270],(void **)(void *)&LnkLI270);} /* PRINT-CURRENT-FORM */
5659  static object  LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PRINT-CURRENT-FORM */  static object  LnkTLI269(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[269],(void **)(void *)&LnkLI269,1,first,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */
5660  static object  LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)&LnkLI268,1,first,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */  static object  LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)(void *)&LnkLI268,2,first,ap);va_end(ap);return V1;} /* MAYBE-EVAL */
5661  static object  LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)&LnkLI267,2,first,ap);va_end(ap);return V1;} /* MAYBE-EVAL */  static object  LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */
5662  static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)&LnkLI266,first,ap);va_end(ap);return V1;} /* CMPWARN */  static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)(void *)&LnkLI266,first,ap);va_end(ap);return V1;} /* CMPWARN */
5663  static object  LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)&LnkLI265,first,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)(void *)&LnkLI265,first,ap);va_end(ap);return V1;} /* CMPERR */
5664    
5665  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5666  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT
5667  #endif  #endif
5668    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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