/[gcl]/gcl/lsp/defstruct.c
ViewVC logotype

Diff of /gcl/lsp/defstruct.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "defstruct.h"  #include "defstruct.h"
4  init_defstruct(){do_init(VV);}  void init_defstruct(){do_init(VV);}
5  /*      local entry for function MAKE-ACCESS-FUNCTION   */  /*      local entry for function MAKE-ACCESS-FUNCTION   */
6    
7  static object LI1(V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,V1,va_alist)  static object LI1(V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,V1,va_alist)
# Line 21  static object LI1(V11,V10,V9,V8,V7,V6,V5 Line 21  static object LI1(V11,V10,V9,V8,V7,V6,V5
21          object V20;          object V20;
22          object V21;          object V21;
23          object V22;          object V22;
24            Vcs[0]=Vcs[0];
25            va_start(ap);
26          if(narg <11) too_few_arguments();          if(narg <11) too_few_arguments();
27          V12= V11;          V12= V11;
28          V13= V10;          V13= V10;
# Line 36  static object LI1(V11,V10,V9,V8,V7,V6,V5 Line 38  static object LI1(V11,V10,V9,V8,V7,V6,V5
38          narg = narg - 11;          narg = narg - 11;
39          if (narg <= 0) goto T1;          if (narg <= 0) goto T1;
40          else {          else {
         va_start(ap);  
41          V22= va_arg(ap,object);}          V22= va_arg(ap,object);}
42          --narg; goto T2;          --narg; goto T2;
43    goto T1;
44  T1:;  T1:;
45          V22= Cnil;          V22= Cnil;
46    goto T2;
47  T2:;  T2:;
48          {register object V23;          {register object V23;
49          register object V24;          register object V24;
# Line 61  T2:; Line 64  T2:;
64          if((V26!= Cnil))goto T9;          if((V26!= Cnil))goto T9;
65          V24= symbol_value(VV[0]);          V24= symbol_value(VV[0]);
66          goto T8;          goto T8;
67    goto T9;
68  T9:;  T9:;
69          if((V26!= VV[20]))goto T11;          if((V26!= VV[20]))goto T11;
70          V24= symbol_value(VV[1]);          V24= symbol_value(VV[1]);
71          goto T8;          goto T8;
72    goto T11;
73  T11:;  T11:;
74          if((V26!= VV[19]))goto T13;          if((V26!= VV[19]))goto T13;
75          V24= symbol_value(VV[2]);          V24= symbol_value(VV[2]);
76          goto T8;          goto T8;
77    goto T13;
78  T13:;  T13:;
79          FEerror("The ECASE key value ~s is illegal.",1,V26);}          FEerror("The ECASE key value ~s is illegal.",1,V26);
80            V24= symbol_value(VV[0]);}
81    goto T8;
82  T8:;  T8:;
83          V27 = make_fixnum(length((V24)));          V27 = make_fixnum(length((V24)));
84          if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){          if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){
85          goto T16;}          goto T17;}
86          goto T15;          goto T16;
87  T16:;  goto T17;
88    T17:;
89          V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));          V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));
90          (void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28)));          (void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28)));
91  T15:;  goto T16;
92    T16:;
93          if(((V25))!=Cnil){          if(((V25))!=Cnil){
94          goto T18;}          goto T19;}
95          base[0]= (V23);          base[0]= (V23);
96          base[1]= VV[3];          base[1]= VV[3];
97          base[2]= VV[4];          base[2]= VV[4];
# Line 90  T15:; Line 100  T15:;
100          (void) (*Lnk111)();          (void) (*Lnk111)();
101          vs_top=sup;          vs_top=sup;
102          if((V17)!=Cnil){          if((V17)!=Cnil){
103          goto T18;}{object V29;          goto T19;}{object V29;
104          base[0]= (V23);          base[0]= (V23);
105          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
106          Lfboundp();          Lfboundp();
107          vs_top=sup;          vs_top=sup;
108          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
109          goto T28;}          goto T29;}
110          V29= Cnil;          V29= Cnil;
111          goto T27;          goto T28;
112  T28:;  goto T29;
113    T29:;
114          V30= aref1((V24),fixint((Vcs[10]->c.c_car)));          V30= aref1((V24),fixint((Vcs[10]->c.c_car)));
115          base[0]= (V23);          base[0]= (V23);
116          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 107  T28:; Line 118  T28:;
118          vs_top=sup;          vs_top=sup;
119          V31= vs_base[0];          V31= vs_base[0];
120          V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil);          V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil);
121  T27:;  goto T28;
122          if(V29==Cnil)goto T26;  T28:;
123          goto T18;          if(V29==Cnil)goto T27;
124  T26:;}          goto T19;
125    goto T27;
126    T27:;}
127          base[0]= (V23);{object V32;          base[0]= (V23);{object V32;
128          V32= aref1((V24),fixint((Vcs[10]->c.c_car)));          V32= aref1((V24),fixint((Vcs[10]->c.c_car)));
129          if(V32==Cnil)goto T35;          if(V32==Cnil)goto T36;
130          base[1]= V32;          base[1]= V32;
131          goto T34;          goto T35;
132  T35:;}  goto T36;
133    T36:;}
134          if(!(((V24))==(symbol_value(VV[0])))){          if(!(((V24))==(symbol_value(VV[0])))){
135          goto T39;}          goto T40;}
136          V33=          V33=
137          make_cclosure_new(LC16,Cnil,Vcs[10],Cdata);          make_cclosure_new(LC16,Cnil,Vcs[10],Cdata);
138          goto T37;          goto T38;
139  T39:;  goto T40;
140    T40:;
141          if(!(((V24))==(symbol_value(VV[1])))){          if(!(((V24))==(symbol_value(VV[1])))){
142          goto T42;}          goto T43;}
143          V33=          V33=
144          make_cclosure_new(LC17,Cnil,Vcs[10],Cdata);          make_cclosure_new(LC17,Cnil,Vcs[10],Cdata);
145          goto T37;          goto T38;
146  T42:;  goto T43;
147    T43:;
148          if(!(((V24))==(symbol_value(VV[2])))){          if(!(((V24))==(symbol_value(VV[2])))){
149          goto T45;}          goto T46;}
150          V33=          V33=
151          make_cclosure_new(LC18,Cnil,Vcs[10],Cdata);          make_cclosure_new(LC18,Cnil,Vcs[10],Cdata);
152          goto T37;          goto T38;
153  T45:;  goto T46;
154    T46:;
155          V33= Cnil;          V33= Cnil;
156  T37:;  goto T38;
157    T38:;
158          base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33);          base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33);
159  T34:;  goto T35;
160    T35:;
161          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
162          siLfset();          siLfset();
163          vs_top=sup;          vs_top=sup;
164  T18:;  goto T19;
165    T19:;
166          if(((V21))==Cnil){          if(((V21))==Cnil){
167          goto T49;}          goto T50;}
168          (void)(remprop((V23),VV[6]));          (void)(remprop((V23),VV[6]));
169          (void)(sputprop((V23),VV[7],Ct));          (void)(sputprop((V23),VV[7],Ct));
170          goto T47;          goto T48;
171  T49:;  goto T50;
172    T50:;
173          (void)(remprop((V23),VV[8]));          (void)(remprop((V23),VV[8]));
174          (void)(remprop((V23),VV[9]));          (void)(remprop((V23),VV[9]));
175          (void)(remprop((V23),VV[10]));          (void)(remprop((V23),VV[10]));
176          {object V34;          {object V34;
177          V34= get((V23),VV[6],Cnil);          V34= get((V23),VV[6],Cnil);
178          if(!(type_of((V34))==t_cons)){          if(!(type_of((V34))==t_cons)){
179          goto T57;}          goto T58;}
180          if(((V16))==Cnil){          if(((V16))==Cnil){
181          goto T57;}          goto T58;}
182          base[0]= (V16);          base[0]= (V16);
183          base[1]= car((V34));          base[1]= car((V34));
184          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
185          (void) (*Lnk112)();          (void) (*Lnk112)();
186          vs_top=sup;          vs_top=sup;
187          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
188          goto T57;}          goto T58;}
189          if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){          if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){
190          goto T57;}          goto T58;}
191          V25= Ct;          V25= Ct;
192          goto T47;          goto T48;
193  T57:;  goto T58;
194    T58:;
195          if(((V14))==Cnil){          if(((V14))==Cnil){
196          goto T70;}          goto T71;}
197          V35= (V14);          V35= (V14);
198          goto T68;          goto T69;
199  T70:;  goto T71;
200    T71:;
201          V35= (V12);          V35= (V12);
202  T68:;  goto T69;
203    T69:;
204          V36= make_cons(V35,(Vcs[10]->c.c_car));          V36= make_cons(V35,(Vcs[10]->c.c_car));
205          (void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));}          (void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));}
206  T47:;  goto T48;
207    T48:;
208          {object V37 = Cnil;          {object V37 = Cnil;
209          VMR1(V37)}}}          VMR1(V37)}}
210            va_end(ap);
211            base[0]=base[0];
212            return Cnil;}
213          }          }
214  /*      local entry for function MAKE-CONSTRUCTOR       */  /*      local entry for function MAKE-CONSTRUCTOR       */
215    
# Line 189  static object LI2(V43,V44,V45,V46,V47) Line 217  static object LI2(V43,V44,V45,V46,V47)
217    
218  object V43;object V44;object V45;object V46;object V47;  object V43;object V44;object V45;object V46;object V47;
219  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
220    goto TTL;
221  TTL:;  TTL:;
222          {object V48;          {object V48;
223          register object V49;          register object V49;
# Line 196  TTL:; Line 225  TTL:;
225          object V51= (V47);          object V51= (V47);
226          if(endp(V51)){          if(endp(V51)){
227          V48= Cnil;          V48= Cnil;
228          goto T72;}          goto T73;}
229          base[0]=V50=MMcons(Cnil,Cnil);          base[0]=V50=MMcons(Cnil,Cnil);
230  T73:;  goto T74;
231    T74:;
232          if(((V51->c.c_car))!=Cnil){          if(((V51->c.c_car))!=Cnil){
233          goto T76;}          goto T77;}
234          (V50->c.c_car)= Cnil;          (V50->c.c_car)= Cnil;
235          goto T74;          goto T75;
236  T76:;  goto T77;
237    T77:;
238          if((car((V51->c.c_car)))!=Cnil){          if((car((V51->c.c_car)))!=Cnil){
239          goto T79;}          goto T80;}
240          (V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car)));          (V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car)));
241          goto T74;          goto T75;
242  T79:;  goto T80;
243    T80:;
244          (V50->c.c_car)= car((V51->c.c_car));          (V50->c.c_car)= car((V51->c.c_car));
245  T74:;  goto T75;
246    T75:;
247          if(endp(V51=MMcdr(V51))){          if(endp(V51=MMcdr(V51))){
248          V48= base[0];          V48= base[0];
         goto T72;}  
         V50=MMcdr(V50)=MMcons(Cnil,Cnil);  
249          goto T73;}          goto T73;}
250  T72:;          V50=MMcdr(V50)=MMcons(Cnil,Cnil);
251            goto T74;}
252    goto T73;
253    T73:;
254          {object V53;          {object V53;
255          object V54= (V47);          object V54= (V47);
256          if(endp(V54)){          if(endp(V54)){
257          V49= Cnil;          V49= Cnil;
258          goto T81;}          goto T82;}
259          base[0]=V53=MMcons(Cnil,Cnil);          base[0]=V53=MMcons(Cnil,Cnil);
260  T82:;  goto T83;
261    T83:;
262          if(((V54->c.c_car))!=Cnil){          if(((V54->c.c_car))!=Cnil){
263          goto T85;}          goto T86;}
264          (V53->c.c_cdr)= Cnil;          (V53->c.c_cdr)= Cnil;
265          goto T83;          goto T84;
266  T85:;  goto T86;
267    T86:;
268          if((car((V54->c.c_car)))!=Cnil){          if((car((V54->c.c_car)))!=Cnil){
269          goto T88;}          goto T89;}
270          (V53->c.c_cdr)= Cnil;          (V53->c.c_cdr)= Cnil;
271          goto T83;          goto T84;
272  T88:;  goto T89;
273    T89:;
274          if((cadr((V54->c.c_car)))!=Cnil){          if((cadr((V54->c.c_car)))!=Cnil){
275          goto T91;}          goto T92;}
276          (V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil);          (V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil);
277          goto T83;          goto T84;
278  T91:;  goto T92;
279    T92:;
280          V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car)));          V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car)));
281          (V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil);          (V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil);
282  T83:;  goto T84;
283    T84:;
284          while(!endp(MMcdr(V53)))V53=MMcdr(V53);          while(!endp(MMcdr(V53)))V53=MMcdr(V53);
285          if(endp(V54=MMcdr(V54))){          if(endp(V54=MMcdr(V54))){
286          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
287          V49= base[0];          V49= base[0];
         goto T81;}  
288          goto T82;}          goto T82;}
289  T81:;          goto T83;}
290    goto T82;
291    T82:;
292          if(!(type_of((V44))==t_cons)){          if(!(type_of((V44))==t_cons)){
293          goto T95;}          goto T96;}
294          {register object V57;          {register object V57;
295          register object V58;          register object V58;
296          register object V59;          register object V59;
297          V57= cadr((V44));          V57= cadr((V44));
298          V58= Cnil;          V58= Cnil;
299          V59= Cnil;          V59= Cnil;
300  T100:;  goto T101;
301    T101:;
302          if(!(endp((V57)))){          if(!(endp((V57)))){
303          goto T101;}          goto T102;}
304          base[0]= make_cons(VV[12],(V58));          base[0]= make_cons(VV[12],(V58));
305          {object V60;          {object V60;
306          object V61= (V49);          object V61= (V49);
307          if(endp(V61)){          if(endp(V61)){
308          base[1]= Cnil;          base[1]= Cnil;
309          goto T106;}          goto T107;}
310          base[2]=V60=MMcons(Cnil,Cnil);          base[2]=V60=MMcons(Cnil,Cnil);
311  T107:;  goto T108;
312    T108:;
313          if(!(type_of((V61->c.c_car))!=t_cons)){          if(!(type_of((V61->c.c_car))!=t_cons)){
314          goto T114;}          goto T115;}
315          V64= (V61->c.c_car);          V64= (V61->c.c_car);
316          goto T112;          goto T113;
317  T114:;  goto T115;
318    T115:;
319          V64= car((V61->c.c_car));          V64= car((V61->c.c_car));
320  T112:;  goto T113;
321    T113:;
322          {register object x= V64,V63= (V59);          {register object x= V64,V63= (V59);
323          while(!endp(V63))          while(!endp(V63))
324          if(eql(x,V63->c.c_car)){          if(eql(x,V63->c.c_car)){
325          goto T111;          goto T112;
326          }else V63=V63->c.c_cdr;          }else V63=V63->c.c_cdr;
327          goto T110;}          goto T111;}
328  T111:;  goto T112;
329    T112:;
330          (V60->c.c_cdr)= Cnil;          (V60->c.c_cdr)= Cnil;
331          goto T108;          goto T109;
332  T110:;  goto T111;
333    T111:;
334          (V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil);          (V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil);
335  T108:;  goto T109;
336    T109:;
337          while(!endp(MMcdr(V60)))V60=MMcdr(V60);          while(!endp(MMcdr(V60)))V60=MMcdr(V60);
338          if(endp(V61=MMcdr(V61))){          if(endp(V61=MMcdr(V61))){
339          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
340          base[1]= base[2];          base[1]= base[2];
         goto T106;}  
341          goto T107;}          goto T107;}
342  T106:;          goto T108;}
343    goto T107;
344    T107:;
345          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
346          Lreconc();          Lreconc();
347          vs_top=sup;          vs_top=sup;
348          V49= vs_base[0];          V49= vs_base[0];
349          goto T97;          goto T98;
350  T101:;  goto T102;
351    T102:;
352          {register object x= car((V57)),V65= VV[13];          {register object x= car((V57)),V65= VV[13];
353          while(!endp(V65))          while(!endp(V65))
354          if(eql(x,V65->c.c_car)){          if(eql(x,V65->c.c_car)){
355          goto T119;          goto T120;
356          }else V65=V65->c.c_cdr;          }else V65=V65->c.c_cdr;
357          goto T117;}          goto T118;}
358  T119:;  goto T120;
         if(!((car((V57)))==(VV[14]))){  
         goto T120;}  
         goto T117;  
359  T120:;  T120:;
360            if(!((car((V57)))==(VV[14]))){
361            goto T121;}
362            goto T118;
363    goto T121;
364    T121:;
365          V57= make_cons(VV[14],(V57));          V57= make_cons(VV[14],(V57));
366  T117:;  goto T118;
367    T118:;
368          if(!((car((V57)))==(VV[14]))){          if(!((car((V57)))==(VV[14]))){
369          goto T125;}          goto T126;}
370          V58= make_cons(VV[14],(V58));          V58= make_cons(VV[14],(V58));
371          {register object V66;          {register object V66;
372          object V67;          object V67;
# Line 322  T117:; Line 374  T117:;
374          V66= cdr((V57));          V66= cdr((V57));
375          V67= Cnil;          V67= Cnil;
376          V68= Cnil;          V68= Cnil;
377  T132:;  goto T133;
378    T133:;
379          if(!(endp((V66)))){          if(!(endp((V66)))){
380          goto T133;}          goto T134;}
381          base[0]= make_cons(VV[12],(V58));          base[0]= make_cons(VV[12],(V58));
382          {object V69;          {object V69;
383          object V70= (V49);          object V70= (V49);
384          if(endp(V70)){          if(endp(V70)){
385          base[1]= Cnil;          base[1]= Cnil;
386          goto T139;}          goto T140;}
387          base[2]=V69=MMcons(Cnil,Cnil);          base[2]=V69=MMcons(Cnil,Cnil);
388  T140:;  goto T141;
389    T141:;
390          if(!(type_of((V70->c.c_car))!=t_cons)){          if(!(type_of((V70->c.c_car))!=t_cons)){
391          goto T147;}          goto T148;}
392          V73= (V70->c.c_car);          V73= (V70->c.c_car);
393          goto T145;          goto T146;
394  T147:;  goto T148;
395    T148:;
396          V73= car((V70->c.c_car));          V73= car((V70->c.c_car));
397  T145:;  goto T146;
398    T146:;
399          {register object x= V73,V72= (V59);          {register object x= V73,V72= (V59);
400          while(!endp(V72))          while(!endp(V72))
401          if(eql(x,V72->c.c_car)){          if(eql(x,V72->c.c_car)){
402          goto T144;          goto T145;
403          }else V72=V72->c.c_cdr;          }else V72=V72->c.c_cdr;
404          goto T143;}          goto T144;}
405  T144:;  goto T145;
406    T145:;
407          (V69->c.c_cdr)= Cnil;          (V69->c.c_cdr)= Cnil;
408          goto T141;          goto T142;
409  T143:;  goto T144;
410    T144:;
411          (V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil);          (V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil);
412  T141:;  goto T142;
413    T142:;
414          while(!endp(MMcdr(V69)))V69=MMcdr(V69);          while(!endp(MMcdr(V69)))V69=MMcdr(V69);
415          if(endp(V70=MMcdr(V70))){          if(endp(V70=MMcdr(V70))){
416          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
417          base[1]= base[2];          base[1]= base[2];
         goto T139;}  
418          goto T140;}          goto T140;}
419  T139:;          goto T141;}
420    goto T140;
421    T140:;
422          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
423          Lreconc();          Lreconc();
424          vs_top=sup;          vs_top=sup;
425          V49= vs_base[0];          V49= vs_base[0];
426          goto T129;          goto T130;
427  T133:;  goto T134;
428    T134:;
429          {register object x= car((V66)),V74= VV[13];          {register object x= car((V66)),V74= VV[13];
430          while(!endp(V74))          while(!endp(V74))
431          if(eql(x,V74->c.c_car)){          if(eql(x,V74->c.c_car)){
432          goto T152;          goto T153;
433          }else V74=V74->c.c_cdr;          }else V74=V74->c.c_cdr;
434          goto T150;}          goto T151;}
435  T152:;  goto T153;
436    T153:;
437          if(!((car((V66)))==(VV[15]))){          if(!((car((V66)))==(VV[15]))){
438          goto T153;}          goto T154;}
439          V58= make_cons(VV[15],(V58));          V58= make_cons(VV[15],(V58));
440          V66= cdr((V66));          V66= cdr((V66));
441          if(endp((V66))){          if(endp((V66))){
442          goto T161;}          goto T162;}
443          if(type_of(car((V66)))==t_symbol){          if(type_of(car((V66)))==t_symbol){
444          goto T160;}          goto T161;}
445  T161:;  goto T162;
446    T162:;
447          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
448  T160:;  goto T161;
449    T161:;
450          V59= make_cons(car((V66)),(V59));          V59= make_cons(car((V66)),(V59));
451          V58= make_cons(car((V66)),(V58));          V58= make_cons(car((V66)),(V58));
452          V66= cdr((V66));          V66= cdr((V66));
453          if(!(endp((V66)))){          if(!(endp((V66)))){
454          goto T153;}          goto T154;}
455          base[0]= make_cons(VV[12],(V58));          base[0]= make_cons(VV[12],(V58));
456          {object V75;          {object V75;
457          object V76= (V49);          object V76= (V49);
458          if(endp(V76)){          if(endp(V76)){
459          base[1]= Cnil;          base[1]= Cnil;
460          goto T176;}          goto T177;}
461          base[2]=V75=MMcons(Cnil,Cnil);          base[2]=V75=MMcons(Cnil,Cnil);
462  T177:;  goto T178;
463    T178:;
464          if(!(type_of((V76->c.c_car))!=t_cons)){          if(!(type_of((V76->c.c_car))!=t_cons)){
465          goto T184;}          goto T185;}
466          V79= (V76->c.c_car);          V79= (V76->c.c_car);
467          goto T182;          goto T183;
468  T184:;  goto T185;
469    T185:;
470          V79= car((V76->c.c_car));          V79= car((V76->c.c_car));
471  T182:;  goto T183;
472    T183:;
473          {register object x= V79,V78= (V59);          {register object x= V79,V78= (V59);
474          while(!endp(V78))          while(!endp(V78))
475          if(eql(x,V78->c.c_car)){          if(eql(x,V78->c.c_car)){
476          goto T181;          goto T182;
477          }else V78=V78->c.c_cdr;          }else V78=V78->c.c_cdr;
478          goto T180;}          goto T181;}
479  T181:;  goto T182;
480    T182:;
481          (V75->c.c_cdr)= Cnil;          (V75->c.c_cdr)= Cnil;
482          goto T178;          goto T179;
483  T180:;  goto T181;
484    T181:;
485          (V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil);          (V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil);
486  T178:;  goto T179;
487    T179:;
488          while(!endp(MMcdr(V75)))V75=MMcdr(V75);          while(!endp(MMcdr(V75)))V75=MMcdr(V75);
489          if(endp(V76=MMcdr(V76))){          if(endp(V76=MMcdr(V76))){
490          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
491          base[1]= base[2];          base[1]= base[2];
         goto T176;}  
492          goto T177;}          goto T177;}
493  T176:;          goto T178;}
494    goto T177;
495    T177:;
496          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
497          Lreconc();          Lreconc();
498          vs_top=sup;          vs_top=sup;
499          V49= vs_base[0];          V49= vs_base[0];
500          goto T129;          goto T130;
501  T153:;  goto T154;
502    T154:;
503          if((car((V66)))==(VV[12])){          if((car((V66)))==(VV[12])){
504          goto T186;}          goto T187;}
505          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
506  T186:;  goto T187;
507    T187:;
508          V58= make_cons(VV[12],(V58));          V58= make_cons(VV[12],(V58));
509          {register object V80;          {register object V80;
510          V80= cdr((V66));          V80= cdr((V66));
511  T194:;  goto T195;
         if(!(endp((V80)))){  
         goto T195;}  
         goto T191;  
512  T195:;  T195:;
513            if(!(endp((V80)))){
514            goto T196;}
515            goto T192;
516    goto T196;
517    T196:;
518          V58= make_cons(car((V80)),(V58));          V58= make_cons(car((V80)),(V58));
519          if(!(type_of(car((V80)))!=t_cons)){          if(!(type_of(car((V80)))!=t_cons)){
520          goto T203;}          goto T204;}
521          if(!(type_of(car((V80)))==t_symbol)){          if(!(type_of(car((V80)))==t_symbol)){
522          goto T203;}          goto T204;}
523          V59= make_cons(car((V80)),(V59));          V59= make_cons(car((V80)),(V59));
524          goto T201;          goto T202;
525  T203:;  goto T204;
526    T204:;
527          if(!(type_of(caar((V80)))==t_symbol)){          if(!(type_of(caar((V80)))==t_symbol)){
528          goto T209;}          goto T210;}
529          if(endp(cdar((V80)))){          if(endp(cdar((V80)))){
         goto T208;}  
         if(!(endp(cddar((V80))))){  
530          goto T209;}          goto T209;}
531  T208:;          if(!(endp(cddar((V80))))){
532          V59= make_cons(caar((V80)),(V59));          goto T210;}
533          goto T201;  goto T209;
534  T209:;  T209:;
535            V59= make_cons(caar((V80)),(V59));
536            goto T202;
537    goto T210;
538    T210:;
539          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
540  T201:;  goto T202;
541    T202:;
542          V80= cdr((V80));          V80= cdr((V80));
543          goto T194;}          goto T195;}
544  T191:;  goto T192;
545    T192:;
546          base[0]= (V58);          base[0]= (V58);
547          {object V81;          {object V81;
548          object V82= (V49);          object V82= (V49);
549          if(endp(V82)){          if(endp(V82)){
550          base[1]= Cnil;          base[1]= Cnil;
551          goto T222;}          goto T223;}
552          base[2]=V81=MMcons(Cnil,Cnil);          base[2]=V81=MMcons(Cnil,Cnil);
553  T223:;  goto T224;
554    T224:;
555          if(!(type_of((V82->c.c_car))!=t_cons)){          if(!(type_of((V82->c.c_car))!=t_cons)){
556          goto T230;}          goto T231;}
557          V85= (V82->c.c_car);          V85= (V82->c.c_car);
558          goto T228;          goto T229;
559  T230:;  goto T231;
560    T231:;
561          V85= car((V82->c.c_car));          V85= car((V82->c.c_car));
562  T228:;  goto T229;
563    T229:;
564          {register object x= V85,V84= (V59);          {register object x= V85,V84= (V59);
565          while(!endp(V84))          while(!endp(V84))
566          if(eql(x,V84->c.c_car)){          if(eql(x,V84->c.c_car)){
567          goto T227;          goto T228;
568          }else V84=V84->c.c_cdr;          }else V84=V84->c.c_cdr;
569          goto T226;}          goto T227;}
570  T227:;  goto T228;
571    T228:;
572          (V81->c.c_cdr)= Cnil;          (V81->c.c_cdr)= Cnil;
573          goto T224;          goto T225;
574  T226:;  goto T227;
575    T227:;
576          (V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil);          (V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil);
577  T224:;  goto T225;
578    T225:;
579          while(!endp(MMcdr(V81)))V81=MMcdr(V81);          while(!endp(MMcdr(V81)))V81=MMcdr(V81);
580          if(endp(V82=MMcdr(V82))){          if(endp(V82=MMcdr(V82))){
581          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
582          base[1]= base[2];          base[1]= base[2];
         goto T222;}  
583          goto T223;}          goto T223;}
584  T222:;          goto T224;}
585    goto T223;
586    T223:;
587          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
588          Lreconc();          Lreconc();
589          vs_top=sup;          vs_top=sup;
590          V49= vs_base[0];          V49= vs_base[0];
591          goto T129;          goto T130;
592  T150:;  goto T151;
593    T151:;
594          if(!(type_of(car((V66)))!=t_cons)){          if(!(type_of(car((V66)))!=t_cons)){
595          goto T238;}          goto T239;}
596          V67= car((V66));          V67= car((V66));
597          goto T236;          goto T237;
598  T238:;  goto T239;
599    T239:;
600          if(!(endp(cdar((V66))))){          if(!(endp(cdar((V66))))){
601          goto T243;}          goto T244;}
602          V67= caar((V66));          V67= caar((V66));
603          goto T236;          goto T237;
604  T243:;  goto T244;
605          goto T234;  T244:;
606  T236:;          goto T235;
607    goto T237;
608    T237:;
609          base[0]= (V67);          base[0]= (V67);
610          base[1]= (V49);          base[1]= (V49);
611          base[2]= VV[16];          base[2]= VV[16];
# Line 524  T236:; Line 615  T236:;
615          vs_top=sup;          vs_top=sup;
616          V68= vs_base[0];          V68= vs_base[0];
617          if(((V68))==Cnil){          if(((V68))==Cnil){
618          goto T234;}          goto T235;}
619          V58= make_cons(car((V68)),(V58));          V58= make_cons(car((V68)),(V58));
620          goto T232;          goto T233;
621  T234:;  goto T235;
622    T235:;
623          V58= make_cons(car((V66)),(V58));          V58= make_cons(car((V66)),(V58));
624  T232:;  goto T233;
625    T233:;
626          if(!(type_of(car((V66)))!=t_cons)){          if(!(type_of(car((V66)))!=t_cons)){
627          goto T257;}          goto T258;}
628          if(type_of(car((V66)))==t_symbol){          if(type_of(car((V66)))==t_symbol){
629          goto T259;}          goto T260;}
630          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
631  T259:;  goto T260;
632    T260:;
633          V59= make_cons(car((V66)),(V59));          V59= make_cons(car((V66)),(V59));
634          goto T255;          goto T256;
635  T257:;  goto T258;
636    T258:;
637          if(type_of(caar((V66)))==t_symbol){          if(type_of(caar((V66)))==t_symbol){
638          goto T264;}          goto T265;}
639          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
640          goto T255;          goto T256;
641  T264:;  goto T265;
642    T265:;
643          if(endp(cdar((V66)))){          if(endp(cdar((V66)))){
         goto T266;}  
         if(!(endp(cddar((V66))))){  
644          goto T267;}          goto T267;}
645  T266:;          if(!(endp(cddar((V66))))){
646          V59= make_cons(caar((V66)),(V59));          goto T268;}
647          goto T255;  goto T267;
648  T267:;  T267:;
649            V59= make_cons(caar((V66)),(V59));
650            goto T256;
651    goto T268;
652    T268:;
653          if(type_of(caddar((V66)))==t_symbol){          if(type_of(caddar((V66)))==t_symbol){
654          goto T273;}          goto T274;}
655          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
656          goto T255;          goto T256;
657  T273:;  goto T274;
658    T274:;
659          if(endp(cdddar((V66)))){          if(endp(cdddar((V66)))){
660          goto T276;}          goto T277;}
661          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
662          goto T255;          goto T256;
663  T276:;  goto T277;
664    T277:;
665          V59= make_cons(caar((V66)),(V59));          V59= make_cons(caar((V66)),(V59));
666          V59= make_cons(caddar((V66)),(V59));          V59= make_cons(caddar((V66)),(V59));
667  T255:;  goto T256;
668    T256:;
669          V66= cdr((V66));          V66= cdr((V66));
670          goto T132;}          goto T133;}
671  T129:;  goto T130;
672          goto T97;  T130:;
673  T125:;          goto T98;
674    goto T126;
675    T126:;
676          if(type_of(car((V57)))==t_symbol){          if(type_of(car((V57)))==t_symbol){
677          goto T284;}          goto T285;}
678          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
679  T284:;  goto T285;
680    T285:;
681          V58= make_cons(car((V57)),(V58));          V58= make_cons(car((V57)),(V58));
682          V59= make_cons(car((V57)),(V59));          V59= make_cons(car((V57)),(V59));
683          V57= cdr((V57));          V57= cdr((V57));
684          goto T100;}          goto T101;}
685  T97:;  goto T98;
686    T98:;
687          V44= car((V44));          V44= car((V44));
688          goto T93;          goto T94;
689  T95:;  goto T96;
690    T96:;
691          V49= make_cons(VV[17],(V49));          V49= make_cons(VV[17],(V49));
692  T93:;  goto T94;
693    T94:;
694          if(((V45))!=Cnil){          if(((V45))!=Cnil){
695          goto T296;}          goto T297;}
696          {object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48)));          {object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48)));
697          VMR2(V86)}          VMR2(V86)}
698  T296:;  goto T297;
699    T297:;
700          if(((V45))==(VV[19])){          if(((V45))==(VV[19])){
         goto T298;}  
         if(!(type_of((V45))==t_cons)){  
701          goto T299;}          goto T299;}
702            if(!(type_of((V45))==t_cons)){
703            goto T300;}
704          if(!((car((V45)))==(VV[19]))){          if(!((car((V45)))==(VV[19]))){
705          goto T299;}          goto T300;}
706  T298:;  goto T299;
707    T299:;
708          {object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48)));          {object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48)));
709          VMR2(V87)}          VMR2(V87)}
710  T299:;  goto T300;
711    T300:;
712          if(!(((V45))==(VV[20]))){          if(!(((V45))==(VV[20]))){
713          goto T306;}          goto T307;}
714          {object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48)));          {object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48)));
715          VMR2(V88)}          VMR2(V88)}
716  T306:;  goto T307;
717    T307:;
718          {object V89;          {object V89;
719          base[0]= VV[21];          base[0]= VV[21];
720          base[1]= (V45);          base[1]= (V45);
# Line 612  T306:; Line 723  T306:;
723          vs_top=sup;          vs_top=sup;
724          V89= vs_base[0];          V89= vs_base[0];
725          if(((V89))==Cnil){          if(((V89))==Cnil){
726          goto T312;}          goto T313;}
727          {object V90 = (V89);          {object V90 = (V89);
728          VMR2(V90)}          VMR2(V90)}
729  T312:;  goto T313;
730    T313:;
731          {object V91 = Cnil;          {object V91 = Cnil;
732          VMR2(V91)}}}          VMR2(V91)}}}
733            base[0]=base[0];
734            return Cnil;
735  }  }
736  /*      local entry for function ILLEGAL-BOA    */  /*      local entry for function ILLEGAL-BOA    */
737    
738  static object LI3()  static object LI3()
739    
740  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
741    goto TTL;
742  TTL:;  TTL:;
743          base[0]= VV[22];          base[0]= VV[22];
744          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 631  TTL:; Line 746  TTL:;
746          vs_top=sup;          vs_top=sup;
747          {object V92 = vs_base[0];          {object V92 = vs_base[0];
748          VMR3(V92)}          VMR3(V92)}
749            base[0]=base[0];
750            return Cnil;
751  }  }
752  /*      local entry for function MAKE-PREDICATE */  /*      local entry for function MAKE-PREDICATE */
753    
# Line 638  static object LI4(V98,V99,V100,V101,V102 Line 755  static object LI4(V98,V99,V100,V101,V102
755    
756  object V98;object V99;register object V100;object V101;register object V102;  object V98;object V99;register object V100;object V101;register object V102;
757  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
758    goto TTL;
759  TTL:;  TTL:;
760          {object V103;          {object V103;
761          V103= (((V100))==Cnil?Ct:Cnil);          V103= (((V100))==Cnil?Ct:Cnil);
762          if(((V103))==Cnil){          if(((V103))==Cnil){
763          goto T317;}          goto T318;}
764          {object V104 = (V103);          {object V104 = (V103);
765          VMR4(V104)}          VMR4(V104)}
766  T317:;  goto T318;
767    T318:;
768          if(((V100))==(VV[19])){          if(((V100))==(VV[19])){
         goto T319;}  
         if(!(type_of((V100))==t_cons)){  
769          goto T320;}          goto T320;}
770            if(!(type_of((V100))==t_cons)){
771            goto T321;}
772          if(!((car((V100)))==(VV[19]))){          if(!((car((V100)))==(VV[19]))){
773          goto T320;}          goto T321;}
774  T319:;  goto T320;
775    T320:;
776          if(((V101))!=Cnil){          if(((V101))!=Cnil){
777          goto T326;}          goto T327;}
778          base[0]= VV[23];          base[0]= VV[23];
779          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
780          Lerror();          Lerror();
781          vs_top=sup;          vs_top=sup;
782  T326:;  goto T327;
783    T327:;
784          V105= list(3,VV[27],VV[28],(V102));          V105= list(3,VV[27],VV[28],(V102));
785          V106= list(3,VV[30],VV[31],(V102));          V106= list(3,VV[30],VV[31],(V102));
786          {object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98)))));          {object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98)))));
787          VMR4(V107)}          VMR4(V107)}
788  T320:;  goto T321;
789    T321:;
790          if(!(((V100))==(VV[20]))){          if(!(((V100))==(VV[20]))){
791          goto T331;}          goto T332;}
792          if(((V101))!=Cnil){          if(((V101))!=Cnil){
793          goto T333;}          goto T334;}
794          base[0]= VV[32];          base[0]= VV[32];
795          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
796          Lerror();          Lerror();
797          vs_top=sup;          vs_top=sup;
798  T333:;  goto T334;
799    T334:;
800          if(!(number_compare((V102),small_fixnum(0))==0)){          if(!(number_compare((V102),small_fixnum(0))==0)){
801          goto T338;}          goto T339;}
802          {object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98)))));          {object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98)))));
803          VMR4(V108)}          VMR4(V108)}
804  T338:;  goto T339;
805    T339:;
806          V109= list(3,VV[38],(V102),VV[39]);          V109= list(3,VV[38],(V102),VV[39]);
807          base[0]= cdr(symbol_value(VV[40]));          base[0]= cdr(symbol_value(VV[40]));
808          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 691  T338:; Line 815  T338:;
815          V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98)))));          V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98)))));
816          {object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46])));          {object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46])));
817          VMR4(V115)}          VMR4(V115)}
818  T331:;  goto T332;
819    T332:;
820          {object V116;          {object V116;
821          base[0]= VV[47];          base[0]= VV[47];
822          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 699  T331:; Line 824  T331:;
824          vs_top=sup;          vs_top=sup;
825          V116= vs_base[0];          V116= vs_base[0];
826          if(((V116))==Cnil){          if(((V116))==Cnil){
827          goto T345;}          goto T346;}
828          {object V117 = (V116);          {object V117 = (V116);
829          VMR4(V117)}          VMR4(V117)}
830  T345:;  goto T346;
831    T346:;
832          {object V118 = Cnil;          {object V118 = Cnil;
833          VMR4(V118)}}}          VMR4(V118)}}}
834            base[0]=base[0];
835            return Cnil;
836  }  }
837  /*      local entry for function PARSE-SLOT-DESCRIPTION */  /*      local entry for function PARSE-SLOT-DESCRIPTION */
838    
# Line 712  static object LI5(V121,V122) Line 840  static object LI5(V121,V122)
840    
841  register object V121;object V122;  register object V121;object V122;
842  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
843    goto TTL;
844  TTL:;  TTL:;
845          {object V123;          {object V123;
846          object V124;          object V124;
# Line 722  TTL:; Line 851  TTL:;
851          V125= Cnil;          V125= Cnil;
852          V126= Cnil;          V126= Cnil;
853          if(!(type_of((V121))!=t_cons)){          if(!(type_of((V121))!=t_cons)){
854          goto T349;}          goto T350;}
855          V123= (V121);          V123= (V121);
856          goto T347;          goto T348;
857  T349:;  goto T350;
858    T350:;
859          if(!(endp(cdr((V121))))){          if(!(endp(cdr((V121))))){
860          goto T353;}          goto T354;}
861          V123= car((V121));          V123= car((V121));
862          goto T347;          goto T348;
863  T353:;  goto T354;
864    T354:;
865          V123= car((V121));          V123= car((V121));
866          V124= cadr((V121));          V124= cadr((V121));
867          {register object V127;          {register object V127;
# Line 739  T353:; Line 870  T353:;
870          V127= cddr((V121));          V127= cddr((V121));
871          V128= Cnil;          V128= Cnil;
872          V129= Cnil;          V129= Cnil;
873  T362:;  goto T363;
         if(!(endp((V127)))){  
         goto T363;}  
         goto T347;  
874  T363:;  T363:;
875            if(!(endp((V127)))){
876            goto T364;}
877            goto T348;
878    goto T364;
879    T364:;
880          V128= car((V127));          V128= car((V127));
881          if(!(endp(cdr((V127))))){          if(!(endp(cdr((V127))))){
882          goto T369;}          goto T370;}
883          base[0]= VV[48];          base[0]= VV[48];
884          base[1]= (V127);          base[1]= (V127);
885          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
886          Lerror();          Lerror();
887          vs_top=sup;          vs_top=sup;
888  T369:;  goto T370;
889    T370:;
890          V129= cadr((V127));          V129= cadr((V127));
891          {object V130= (V128);          {object V130= (V128);
892          if((V130!= VV[77]))goto T377;          if((V130!= VV[77]))goto T378;
893          V125= (V129);          V125= (V129);
894          goto T376;          goto T377;
895  T377:;  goto T378;
896          if((V130!= VV[116]))goto T379;  T378:;
897            if((V130!= VV[116]))goto T380;
898          V126= (V129);          V126= (V129);
899          goto T376;          goto T377;
900  T379:;  goto T380;
901    T380:;
902          base[0]= VV[49];          base[0]= VV[49];
903          base[1]= (V127);          base[1]= (V127);
904          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
905          Lerror();          Lerror();
906          vs_top=sup;}          vs_top=sup;}
907  T376:;  goto T377;
908    T377:;
909          V127= cddr((V127));          V127= cddr((V127));
910          goto T362;}          goto T363;}
911  T347:;  goto T348;
912    T348:;
913          {object V131 = list(5,(V123),(V124),(V125),(V126),(V122));          {object V131 = list(5,(V123),(V124),(V125),(V126),(V122));
914          VMR5(V131)}}          VMR5(V131)}}
915            base[0]=base[0];
916            return Cnil;
917  }  }
918  /*      local entry for function OVERWRITE-SLOT-DESCRIPTIONS    */  /*      local entry for function OVERWRITE-SLOT-DESCRIPTIONS    */
919    
# Line 781  static object LI6(V134,V135) Line 921  static object LI6(V134,V135)
921    
922  object V134;register object V135;  object V134;register object V135;
923  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
924    goto TTL;
925  TTL:;  TTL:;
926          if(((V135))!=Cnil){          if(((V135))!=Cnil){
927          goto T387;}          goto T388;}
928          {object V136 = Cnil;          {object V136 = Cnil;
929          VMR6(V136)}          VMR6(V136)}
930  T387:;  goto T388;
931    T388:;
932          {register object V137;          {register object V137;
933          base[0]= caar((V135));          base[0]= caar((V135));
934          base[1]= (V134);          base[1]= (V134);
# Line 797  T387:; Line 939  T387:;
939          vs_top=sup;          vs_top=sup;
940          V137= vs_base[0];          V137= vs_base[0];
941          if(((V137))==Cnil){          if(((V137))==Cnil){
942          goto T395;}          goto T396;}
943          if((cadddr(car((V137))))!=Cnil){          if((cadddr(car((V137))))!=Cnil){
944          goto T397;}          goto T398;}
945          if((cadddr(car((V135))))==Cnil){          if((cadddr(car((V135))))==Cnil){
946          goto T397;}          goto T398;}
947          base[0]= VV[50];          base[0]= VV[50];
948          base[1]= (V137);          base[1]= (V137);
949          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
950          Lerror();          Lerror();
951          vs_top=sup;          vs_top=sup;
952  T397:;  goto T398;
953    T398:;
954          {object V138;          {object V138;
955          object V139;          object V139;
956          V138= car((V137));          V138= car((V137));
# Line 816  T397:; Line 959  T397:;
959          (cddr((V138)))->c.c_car = (V139);          (cddr((V138)))->c.c_car = (V139);
960          (void)(cddr((V138)));}{object V141;          (void)(cddr((V138)));}{object V141;
961          V141= caddr(car((V137)));          V141= caddr(car((V137)));
962          if(V141==Cnil)goto T412;          if(V141==Cnil)goto T413;
963          V140= V141;          V140= V141;
964          goto T411;          goto T412;
965  T412:;}  goto T413;
966    T413:;}
967          V140= Ct;          V140= Ct;
968  T411:;  goto T412;
969    T412:;
970          V142= (*(LnkLI118))(V140);{object V144;          V142= (*(LnkLI118))(V140);{object V144;
971          V144= caddr(car((V135)));          V144= caddr(car((V135)));
972          if(V144==Cnil)goto T415;          if(V144==Cnil)goto T416;
973          V143= V144;          V143= V144;
974          goto T414;          goto T415;
975  T415:;}  goto T416;
976    T416:;}
977          V143= Ct;          V143= Ct;
978  T414:;  goto T415;
979    T415:;
980          V145= (*(LnkLI118))(V143);          V145= (*(LnkLI118))(V143);
981          if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){          if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){
982          goto T408;}          goto T409;}
983          base[0]= VV[51];          base[0]= VV[51];
984          base[1]= car((V137));          base[1]= car((V137));
985          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
986          Lerror();          Lerror();
987          vs_top=sup;          vs_top=sup;
988  T408:;  goto T409;
989    T409:;
990          V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135)))));          V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135)))));
991          V147= (*(LnkLI119))((V134),cdr((V135)));          V147= (*(LnkLI119))((V134),cdr((V135)));
992          {object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147);          {object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147);
993          VMR6(V148)}          VMR6(V148)}
994  T395:;  goto T396;
995    T396:;
996          V149= car((V135));          V149= car((V135));
997          V150= (*(LnkLI119))((V134),cdr((V135)));          V150= (*(LnkLI119))((V134),cdr((V135)));
998          {object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150);          {object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150);
999          VMR6(V151)}}          VMR6(V151)}}
1000            base[0]=base[0];
1001            return Cnil;
1002  }  }
1003  /*      local entry for function MAKE-T-TYPE    */  /*      local entry for function MAKE-T-TYPE    */
1004    
# Line 855  static object LI7(V155,V156,V157) Line 1006  static object LI7(V155,V156,V157)
1006    
1007  object V155;object V156;object V157;  object V155;object V156;object V157;
1008  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
1009    goto TTL;
1010  TTL:;  TTL:;
1011          {object V158;          {object V158;
1012          V158= Cnil;          V158= Cnil;
1013          {register object V159;          {register object V159;
1014          V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct));          V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct));
1015          if(((V156))==Cnil){          if(((V156))==Cnil){
1016          goto T421;}          goto T422;}
1017          {object V160;          {object V160;
1018          object V161;          object V161;
1019          V160= get((V156),VV[55],Cnil);          V160= get((V156),VV[55],Cnil);
1020          V161= Cnil;          V161= Cnil;
1021          if((V160)!=Cnil){          if((V160)!=Cnil){
1022          goto T425;}          goto T426;}
1023          base[0]= VV[56];          base[0]= VV[56];
1024          base[1]= (V156);          base[1]= (V156);
1025          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1026          Lerror();          Lerror();
1027          vs_top=sup;          vs_top=sup;
1028  T425:;  goto T426;
1029    T426:;
1030          V161= structure_ref((V160),VV[55],2);          V161= structure_ref((V160),VV[55],2);
1031          {object V162;          {object V162;
1032          register object V163;          register object V163;
1033          V164 = make_fixnum(length((V161)));          V164 = make_fixnum(length((V161)));
1034          V162= (number_compare((V155),V164)<=0?((V155)):V164);          V162= (number_compare((V155),V164)<=0?((V155)):V164);
1035          V163= small_fixnum(0);          V163= small_fixnum(0);
1036  T433:;  goto T434;
         if(!(number_compare((V163),(V162))>=0)){  
         goto T434;}  
         goto T421;  
1037  T434:;  T434:;
1038            if(!(number_compare((V163),(V162))>=0)){
1039            goto T435;}
1040            goto T422;
1041    goto T435;
1042    T435:;
1043          V165= aref1((V161),fixint((V163)));          V165= aref1((V161),fixint((V163)));
1044          (void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165));          (void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165));
1045          V163= one_plus((V163));          V163= one_plus((V163));
1046          goto T433;}}          goto T434;}}
1047  T421:;  goto T422;
1048    T422:;
1049          {register object V166;          {register object V166;
1050          register object V167;          register object V167;
1051          V166= (V157);          V166= (V157);
1052          V167= car((V166));          V167= car((V166));
1053  T446:;  goto T447;
         if(!(endp((V166)))){  
         goto T447;}  
         goto T442;  
1054  T447:;  T447:;
1055            if(!(endp((V166)))){
1056            goto T448;}
1057            goto T443;
1058    goto T448;
1059    T448:;
1060          V158= car(cddddr((V167)));          V158= car(cddddr((V167)));
1061          {register object V168;          {register object V168;
1062          V168= caddr((V167));          V168= caddr((V167));
# Line 908  T447:; Line 1066  T447:;
1066          vs_top=sup;          vs_top=sup;
1067          V169= vs_base[0];          V169= vs_base[0];
1068          if(!(number_compare(V169,symbol_value(VV[57]))<=0)){          if(!(number_compare(V169,symbol_value(VV[57]))<=0)){
1069          goto T453;}          goto T454;}
1070          base[1]= (V168);          base[1]= (V168);
1071          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1072          (void) (*Lnk122)();          (void) (*Lnk122)();
1073          vs_top=sup;          vs_top=sup;
1074          V170= vs_base[0];          V170= vs_base[0];
1075          (void)(aset1((V159),fixint((V158)),V170));}          (void)(aset1((V159),fixint((V158)),V170));}
1076  T453:;  goto T454;
1077    T454:;
1078          V166= cdr((V166));          V166= cdr((V166));
1079          V167= car((V166));          V167= car((V166));
1080          goto T446;}          goto T447;}
1081  T442:;  goto T443;
1082    T443:;
1083          V171 = make_fixnum(length(symbol_value(VV[58])));          V171 = make_fixnum(length(symbol_value(VV[58])));
1084          if(!(number_compare((V155),V171)<0)){          if(!(number_compare((V155),V171)<0)){
1085          goto T467;}          goto T468;}
1086          {register object V173;          {register object V173;
1087          V173= small_fixnum(0);          V173= small_fixnum(0);
1088  T472:;  goto T473;
         if(!(number_compare((V173),V155)>=0)){  
         goto T473;}  
         goto T469;  
1089  T473:;  T473:;
1090            if(!(number_compare((V173),V155)>=0)){
1091            goto T474;}
1092            goto T470;
1093    goto T474;
1094    T474:;
1095          {long V174= fix(aref1((V159),fixint((V173))));          {long V174= fix(aref1((V159),fixint((V173))));
1096          if((/* INLINE-ARGS */V174)==(0)){          if((/* INLINE-ARGS */V174)==(0)){
1097          goto T477;}}          goto T478;}}
1098          {object V175 = (V159);          {object V175 = (V159);
1099          VMR7(V175)}          VMR7(V175)}
1100  T477:;  goto T478;
1101    T478:;
1102          V173= one_plus((V173));          V173= one_plus((V173));
1103          goto T472;}          goto T473;}
1104  T469:;  goto T470;
1105    T470:;
1106          {object V176 = symbol_value(VV[58]);          {object V176 = symbol_value(VV[58]);
1107          VMR7(V176)}          VMR7(V176)}
1108  T467:;  goto T468;
1109    T468:;
1110          {object V177 = (V159);          {object V177 = (V159);
1111          VMR7(V177)}}}          VMR7(V177)}}}
1112            base[0]=base[0];
1113            return Cnil;
1114  }  }
1115  /*      local entry for function ROUND-UP       */  /*      local entry for function ROUND-UP       */
1116    
# Line 951  static long LI8(V180,V181) Line 1118  static long LI8(V180,V181)
1118    
1119  long V180;long V181;  long V180;long V181;
1120  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1121    goto TTL;
1122  TTL:;  TTL:;
1123          base[0]= make_fixnum(V180);          base[0]= make_fixnum(V180);
1124          base[1]= make_fixnum(V181);          base[1]= make_fixnum(V181);
# Line 960  TTL:; Line 1128  TTL:;
1128          V180= fix(vs_base[0]);          V180= fix(vs_base[0]);
1129          {long V182 = (V180)*(V181);          {long V182 = (V180)*(V181);
1130          VMR8(V182)}          VMR8(V182)}
1131            base[0]=base[0];
1132  }  }
1133  /*      local entry for function GET-SLOT-POS   */  /*      local entry for function GET-SLOT-POS   */
1134    
# Line 967  static object LI9(V186,V187,V188) Line 1136  static object LI9(V186,V187,V188)
1136    
1137  object V186;object V187;object V188;  object V186;object V187;object V188;
1138  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1139    goto TTL;
1140  TTL:;  TTL:;
1141          {register object V189;          {register object V189;
1142          object V190;          object V190;
# Line 978  TTL:; Line 1148  TTL:;
1148          register object V193;          register object V193;
1149          V192= (V188);          V192= (V188);
1150          V193= car((V192));          V193= car((V192));
1151  T495:;  goto T496;
         if(!(endp((V192)))){  
         goto T496;}  
         goto T491;  
1152  T496:;  T496:;
1153            if(!(endp((V192)))){
1154            goto T497;}
1155            goto T492;
1156    goto T497;
1157    T497:;
1158          if(((V193))==Cnil){          if(((V193))==Cnil){
1159          goto T500;}          goto T501;}
1160          if((car((V193)))==Cnil){          if((car((V193)))==Cnil){
1161          goto T500;}          goto T501;}
1162          V189= (*(LnkLI117))(caddr((V193)));          V189= (*(LnkLI117))(caddr((V193)));
1163          if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193));          if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193));
1164          (cddr(V193))->c.c_car = V189;          (cddr(V193))->c.c_car = V189;
# Line 999  T496:; Line 1171  T496:;
1171          (void) (*Lnk123)();          (void) (*Lnk123)();
1172          vs_top=sup;          vs_top=sup;
1173          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1174          goto T509;}          goto T510;}
1175          if(!(type_of((V196))==t_symbol)){          if(!(type_of((V196))==t_symbol)){
1176          goto T515;}          goto T516;}
1177          base[1]= (V196);          base[1]= (V196);
1178          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1179          Lconstantp();          Lconstantp();
1180          vs_top=sup;          vs_top=sup;
1181          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1182          goto T515;}          goto T516;}
1183          base[1]= (V196);          base[1]= (V196);
1184          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1185          Lsymbol_value();          Lsymbol_value();
1186          vs_top=sup;          vs_top=sup;
1187          V196= vs_base[0];          V196= vs_base[0];
1188  T515:;  goto T516;
1189    T516:;
1190          base[1]= (V196);          base[1]= (V196);
1191          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1192          Lconstantp();          Lconstantp();
1193          vs_top=sup;          vs_top=sup;
1194          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1195          goto T523;}          goto T524;}
1196          goto T509;          goto T510;
1197  T523:;  goto T524;
1198    T524:;
1199          {object V198;          {object V198;
1200          V198= (*(LnkLI124))((V196),(V189));          V198= (*(LnkLI124))((V196),(V189));
1201          if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193));          if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193));
1202          (cdr(V193))->c.c_car = (V198);          (cdr(V193))->c.c_car = (V198);
1203          (void)(cdr(V193));}}          (void)(cdr(V193));}}
1204  T509:;  goto T510;
1205    T510:;
1206          {register object x= (V189),V199= VV[60];          {register object x= (V189),V199= VV[60];
1207          while(!endp(V199))          while(!endp(V199))
1208          if(x==(V199->c.c_car)){          if(x==(V199->c.c_car)){
1209          goto T529;          goto T530;
1210          }else V199=V199->c.c_cdr;          }else V199=V199->c.c_cdr;
1211          goto T500;}          goto T501;}
1212  T529:;  goto T530;
1213    T530:;
1214          V190= Ct;          V190= Ct;
1215  T500:;  goto T501;
1216    T501:;
1217          V192= cdr((V192));          V192= cdr((V192));
1218          V193= car((V192));          V193= car((V192));
1219          goto T495;}          goto T496;}
1220  T491:;  goto T492;
1221    T492:;
1222          {object V200;          {object V200;
1223          if(((V190))==Cnil){          if(((V190))==Cnil){
1224          goto T537;}          goto T538;}
1225          V200= Cnil;          V200= Cnil;
1226          goto T536;          goto T537;
1227  T537:;  goto T538;
1228    T538:;
1229          V201 = make_fixnum(length(symbol_value(VV[59])));          V201 = make_fixnum(length(symbol_value(VV[59])));
1230          if(number_compare((V186),V201)<0){          if(number_compare((V186),V201)<0){
1231          goto T539;}          goto T540;}
1232          V200= Cnil;          V200= Cnil;
1233          goto T536;          goto T537;
1234  T539:;{object V202;  goto T540;
1235    T540:;{object V202;
1236          V202= symbol_value(VV[59]);          V202= symbol_value(VV[59]);
1237          base[0]= Ct;          base[0]= Ct;
1238          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1060  T539:;{object V202; Line 1240  T539:;{object V202;
1240          vs_top=sup;          vs_top=sup;
1241          V203= vs_base[0];          V203= vs_base[0];
1242          V200= list(3,V202,number_times((V186),V203),Cnil);}          V200= list(3,V202,number_times((V186),V203),Cnil);}
1243  T536:;  goto T537;
1244    T537:;
1245          if(((V200))==Cnil){          if(((V200))==Cnil){
1246          goto T544;}          goto T545;}
1247          {object V204 = (V200);          {object V204 = (V200);
1248          VMR9(V204)}          VMR9(V204)}
1249  T544:;  goto T545;
1250    T545:;
1251          {object V205;          {object V205;
1252          register long V206;          register long V206;
1253          long V207;          long V207;
# Line 1082  T544:; Line 1264  T544:;
1264          register object V212;          register object V212;
1265          V211= (V188);          V211= (V188);
1266          V212= car((V211));          V212= car((V211));
1267  T555:;  goto T556;
         if(!(endp((V211)))){  
         goto T556;}  
         goto T551;  
1268  T556:;  T556:;
1269            if(!(endp((V211)))){
1270            goto T557;}
1271            goto T552;
1272    goto T557;
1273    T557:;
1274          V209= caddr((V212));          V209= caddr((V212));
1275          base[1]= (V209);          base[1]= (V209);
1276          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1095  T556:; Line 1279  T556:;
1279          V208= fix(vs_base[0]);          V208= fix(vs_base[0]);
1280          V213 = make_fixnum(V208);          V213 = make_fixnum(V208);
1281          if(number_compare(V213,symbol_value(VV[57]))<=0){          if(number_compare(V213,symbol_value(VV[57]))<=0){
1282          goto T565;}          goto T566;}
1283          V209= Ct;          V209= Ct;
1284          if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212));          if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212));
1285          (cddr(V212))->c.c_car = Ct;          (cddr(V212))->c.c_car = Ct;
1286          (void)(cddr(V212));          (void)(cddr(V212));
1287          V208= fix(symbol_value(VV[57]));          V208= fix(symbol_value(VV[57]));
1288          V212= nconc((V212),VV[62]);          V212= nconc((V212),VV[62]);
1289  T565:;  goto T566;
1290    T566:;
1291          V210= (*(LnkLI126))(V206,V208);          V210= (*(LnkLI126))(V206,V208);
1292          if(!((V206)==(V210))){          if(!((V206)==(V210))){
1293          goto T578;}          goto T579;}
1294          goto T577;          goto T578;
1295  T578:;  goto T579;
1296    T579:;
1297          V191= Ct;          V191= Ct;
1298  T577:;  goto T578;
1299    T578:;
1300          V206= V210;          V206= V210;
1301          V216 = make_fixnum(V206);          V216 = make_fixnum(V206);
1302          (void)(aset1((V205),V207,V216));          (void)(aset1((V205),V207,V216));
# Line 1123  T577:; Line 1310  T577:;
1310          V207= (V207)+(1);          V207= (V207)+(1);
1311          V211= cdr((V211));          V211= cdr((V211));
1312          V212= car((V211));          V212= car((V211));
1313          goto T555;}          goto T556;}
1314  T551:;  goto T552;
1315    T552:;
1316          base[0]= Ct;          base[0]= Ct;
1317          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1318          (void) (*Lnk125)();          (void) (*Lnk125)();
# Line 1133  T551:; Line 1321  T551:;
1321          V220 = make_fixnum((*(LnkLI126))(V206,fix(V219)));          V220 = make_fixnum((*(LnkLI126))(V206,fix(V219)));
1322          {object V221 = list(3,(V205),V220,(V191));          {object V221 = list(3,(V205),V220,(V191));
1323          VMR9(V221)}}}}          VMR9(V221)}}}}
1324            base[0]=base[0];
1325            return Cnil;
1326  }  }
1327  /*      local entry for function DEFINE-STRUCTURE       */  /*      local entry for function DEFINE-STRUCTURE       */
1328    
# Line 1155  static object LI10(V233,V232,V231,V230,V Line 1345  static object LI10(V233,V232,V231,V230,V
1345          object V244;          object V244;
1346          object V245;          object V245;
1347          register object V246;          register object V246;
1348            Vcs[0]=Vcs[0];
1349            va_start(ap);
1350          if(narg <12) too_few_arguments();          if(narg <12) too_few_arguments();
1351          Vcs[0]=MMcons(V233,Cnil);          Vcs[0]=MMcons(V233,Cnil);
1352          V234= V232;          V234= V232;
# Line 1169  static object LI10(V233,V232,V231,V230,V Line 1361  static object LI10(V233,V232,V231,V230,V
1361          V243= V223;          V243= V223;
1362          V244= V222;          V244= V222;
1363          narg = narg - 12;          narg = narg - 12;
1364          if (narg <= 0) goto T597;          if (narg <= 0) goto T598;
1365          else {          else {
         va_start(ap);  
1366          V245= va_arg(ap,object);}          V245= va_arg(ap,object);}
1367          if (--narg <= 0) goto T598;          if (--narg <= 0) goto T599;
1368          else {          else {
1369          V246= va_arg(ap,object);}          V246= va_arg(ap,object);}
1370          --narg; goto T599;          --narg; goto T600;
1371  T597:;  goto T598;
         V245= Cnil;  
1372  T598:;  T598:;
1373          V246= Cnil;          V245= Cnil;
1374    goto T599;
1375  T599:;  T599:;
1376            V246= Cnil;
1377    goto T600;
1378    T600:;
1379          {object V247;          {object V247;
1380          object V248;          object V248;
1381          V247= Cnil;          V247= Cnil;
1382          V248= Cnil;          V248= Cnil;
1383          if(type_of((V235))==t_cons){          if(type_of((V235))==t_cons){
1384          goto T605;}          goto T606;}
1385          goto T604;          goto T605;
1386  T605:;  goto T606;
1387    T606:;
1388          if((car((V235)))==(VV[19])){          if((car((V235)))==(VV[19])){
1389          goto T607;}          goto T608;}
1390          goto T604;          goto T605;
1391  T607:;  goto T608;
1392    T608:;
1393          V235= VV[19];          V235= VV[19];
1394  T604:;  goto T605;
1395    T605:;
1396          V248= make_fixnum(length((V237)));          V248= make_fixnum(length((V237)));
1397          {register object V249;          {register object V249;
1398          register object V250;          register object V250;
1399          V249= (V237);          V249= (V237);
1400          V250= car((V249));          V250= car((V249));
1401  T616:;  goto T617;
         if(!(endp((V249)))){  
         goto T617;}  
         goto T612;  
1402  T617:;  T617:;
1403            if(!(endp((V249)))){
1404            goto T618;}
1405            goto T613;
1406    goto T618;
1407    T618:;
1408          if((V250)==Cnil){          if((V250)==Cnil){
         goto T621;}  
         if((car((V250)))!=Cnil){  
1409          goto T622;}          goto T622;}
1410          goto T621;          if((car((V250)))!=Cnil){
1411  T622:;          goto T623;}
1412            goto T622;
1413    goto T623;
1414    T623:;
1415          base[1]= (Vcs[0]->c.c_car);          base[1]= (Vcs[0]->c.c_car);
1416          base[2]= (V234);          base[2]= (V234);
1417          base[3]= (V235);          base[3]= (V235);
# Line 1226  T622:; Line 1426  T622:;
1426          vs_base=base+1;}          vs_base=base+1;}
1427          (void) (*Lnk127)();          (void) (*Lnk127)();
1428          vs_top=sup;          vs_top=sup;
1429  T621:;  goto T622;
1430    T622:;
1431          V249= cdr((V249));          V249= cdr((V249));
1432          V250= car((V249));          V250= car((V249));
1433          goto T616;}          goto T617;}
1434  T612:;  goto T613;
1435    T613:;
1436          if(((V238))==Cnil){          if(((V238))==Cnil){
1437          goto T636;}          goto T637;}
1438          if(((V246))!=Cnil){          if(((V246))!=Cnil){
1439          goto T636;}          goto T637;}
1440          base[0]= (V238);          base[0]= (V238);
1441          {object V252= (V235);          {object V252= (V235);
1442          if((V252!= Cnil))goto T643;          if((V252!= Cnil))goto T644;
1443          base[1]= symbol_function(VV[128]);          base[1]= symbol_function(VV[128]);
1444          goto T642;          goto T643;
1445  T643:;  goto T644;
         if((V252!= VV[20]))goto T644;  
         base[1]= symbol_function(VV[129]);  
         goto T642;  
1446  T644:;  T644:;
1447          if((V252!= VV[19]))goto T645;          if((V252!= VV[20]))goto T645;
1448          base[1]= symbol_function(VV[130]);          base[1]= symbol_function(VV[129]);
1449          goto T642;          goto T643;
1450    goto T645;
1451  T645:;  T645:;
1452          FEerror("The ECASE key value ~s is illegal.",1,V252);}          if((V252!= VV[19]))goto T646;
1453  T642:;          base[1]= symbol_function(VV[130]);
1454            goto T643;
1455    goto T646;
1456    T646:;
1457            FEerror("The ECASE key value ~s is illegal.",1,V252);
1458            base[1]= symbol_function(VV[128]);}
1459    goto T643;
1460    T643:;
1461          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1462          siLfset();          siLfset();
1463          vs_top=sup;          vs_top=sup;
1464  T636:;  goto T637;
1465    T637:;
1466          if(((V235))!=Cnil){          if(((V235))!=Cnil){
1467          goto T648;}          goto T649;}
1468          if(!(((Vcs[0]->c.c_car))==(VV[55]))){          if(!(((Vcs[0]->c.c_car))==(VV[55]))){
1469          goto T648;}          goto T649;}
1470          base[1]= Ct;          base[1]= Ct;
1471          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1472          (void) (*Lnk125)();          (void) (*Lnk125)();
# Line 1274  T636:; Line 1482  T636:;
1482          (void) (*Lnk132)();          (void) (*Lnk132)();
1483          vs_top=sup;          vs_top=sup;
1484          V247= vs_base[0];          V247= vs_base[0];
1485          goto T646;          goto T647;
1486  T648:;  goto T649;
1487    T649:;
1488          {object V255;          {object V255;
1489          object V256;          object V256;
1490          object V257;          object V257;
1491          object V258;          object V258;
1492          if((V240)==Cnil){          if((V240)==Cnil){
1493          V258= Cnil;          V258= Cnil;
1494          goto T660;}          goto T661;}
1495          V258= get((V240),VV[55],Cnil);          V258= get((V240),VV[55],Cnil);
1496  T660:;  goto T661;
1497    T661:;
1498          V255= Cnil;          V255= Cnil;
1499          V256= small_fixnum(0);          V256= small_fixnum(0);
1500          V257= Cnil;          V257= Cnil;
1501          if(((V258))==Cnil){          if(((V258))==Cnil){
1502          goto T661;}          goto T662;}
1503          if((structure_ref((V258),VV[55],11))==Cnil){          if((structure_ref((V258),VV[55],11))==Cnil){
         goto T664;}  
         if((structure_ref((V258),VV[55],3))==Cnil){  
1504          goto T665;}          goto T665;}
1505            if((structure_ref((V258),VV[55],3))==Cnil){
1506            goto T666;}
1507          {object V259;          {object V259;
1508          V259= get((Vcs[0]->c.c_car),VV[55],Cnil);          V259= get((Vcs[0]->c.c_car),VV[55],Cnil);
1509          if((V259)==Cnil){          if((V259)==Cnil){
1510          goto T670;}          goto T671;}
1511          V260= structure_ref((V259),VV[55],4);          V260= structure_ref((V259),VV[55],4);
1512          if((/* INLINE-ARGS */V260)==((V258))){          if((/* INLINE-ARGS */V260)==((V258))){
1513          goto T664;}}          goto T665;}}
1514  T670:;  goto T671;
1515  T665:;  T671:;
1516    goto T666;
1517    T666:;
1518          (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240))));          (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240))));
1519  T664:;  goto T665;
1520    T665:;
1521          {object V262;          {object V262;
1522          base[1]= (Vcs[0]->c.c_car);          base[1]= (Vcs[0]->c.c_car);
1523          base[2]= structure_ref(V258,VV[55],3);          base[2]= structure_ref(V258,VV[55],3);
# Line 1313  T664:; Line 1526  T664:;
1526          vs_top=sup;          vs_top=sup;
1527          V262= vs_base[0];          V262= vs_base[0];
1528          (void)(structure_set(V258,VV[55],3,(V262)));}          (void)(structure_set(V258,VV[55],3,(V262)));}
1529  T661:;  goto T662;
1530    T662:;
1531          if(((V235))!=Cnil){          if(((V235))!=Cnil){
1532          goto T675;}          goto T676;}
1533          V255= (*(LnkLI134))((V248),(V240),(V237));          V255= (*(LnkLI134))((V248),(V240),(V237));
1534          V256= cadr((V255));          V256= cadr((V255));
1535          V257= caddr((V255));          V257= caddr((V255));
1536          V255= car((V255));          V255= car((V255));
1537  T675:;  goto T676;
1538    T676:;
1539          if(((V235))==Cnil){          if(((V235))==Cnil){
1540          goto T687;}          goto T688;}
1541          V263= Cnil;          V263= Cnil;
1542          goto T686;          goto T687;
1543  T687:;  goto T688;
1544    T688:;
1545          V263= (*(LnkLI131))((V248),(V240),(V237));          V263= (*(LnkLI131))((V248),(V240),(V237));
1546  T686:;  goto T687;
1547    T687:;
1548          V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));}          V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));}
1549  T646:;  goto T647;
1550    T647:;
1551          {object V264;          {object V264;
1552          V264= get((Vcs[0]->c.c_car),VV[55],Cnil);          V264= get((Vcs[0]->c.c_car),VV[55],Cnil);
1553          if(!(((Vcs[0]->c.c_car))==(VV[55]))){          if(!(((Vcs[0]->c.c_car))==(VV[55]))){
1554          goto T693;}          goto T694;}
1555          if(((V264))==Cnil){          if(((V264))==Cnil){
1556          goto T695;}          goto T696;}
1557          (void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81])));          (void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81])));
1558  T695:;  goto T696;
1559    T696:;
1560          if((V264)!=Cnil){          if((V264)!=Cnil){
1561          goto T691;}          goto T692;}
1562          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));
1563          goto T691;          goto T692;
1564  T693:;  goto T694;
1565    T694:;
1566          if(((V264))==Cnil){          if(((V264))==Cnil){
1567          goto T699;}          goto T700;}
1568          (void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car)));          (void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car)));
1569          goto T691;          goto T692;
1570  T699:;  goto T700;
1571    T700:;
1572          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));
1573  T691:;  goto T692;
1574    T692:;
1575          if(((V245))==Cnil){          if(((V245))==Cnil){
1576          goto T701;}          goto T702;}
1577          (void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245)));          (void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245)));
1578  T701:;  goto T702;
1579    T702:;
1580          if(((V235))!=Cnil){          if(((V235))!=Cnil){
1581          goto T689;}          goto T690;}
1582          if(((V244))==Cnil){          if(((V244))==Cnil){
1583          goto T689;}          goto T690;}
1584          base[0]= (V244);          base[0]= (V244);
1585          base[1]= VV[3];          base[1]= VV[3];
1586          base[2]= VV[83];          base[2]= VV[83];
# Line 1366  T701:; Line 1589  T701:;
1589          (void) (*Lnk111)();          (void) (*Lnk111)();
1590          vs_top=sup;          vs_top=sup;
1591          if((V246)!=Cnil){          if((V246)!=Cnil){
1592          goto T713;}          goto T714;}
1593          base[0]= (V244);          base[0]= (V244);
1594          base[1]=          base[1]=
1595          make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);          make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);
1596          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1597          siLfset();          siLfset();
1598          vs_top=sup;          vs_top=sup;
1599  T713:;  goto T714;
1600    T714:;
1601          (void)(sputprop((V244),VV[84],VV[85]));          (void)(sputprop((V244),VV[84],VV[85]));
1602          (void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));}          (void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));}
1603  T689:;  goto T690;
1604    T690:;
1605          {object V265 = Cnil;          {object V265 = Cnil;
1606          VMR10(V265)}}}          VMR10(V265)}}
1607            va_end(ap);
1608            base[0]=base[0];
1609            return Cnil;}
1610          }          }
1611  /*      macro definition for DEFSTRUCT  */  /*      macro definition for DEFSTRUCT  */
1612    
1613  static L11()  static void L11()
1614  {register object *base=vs_base;  {register object *base=vs_base;
1615          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1616          vs_reserve(VM11);          vs_reserve(VM11);
# Line 1430  static L11() Line 1658  static L11()
1658          V283= Cnil;          V283= Cnil;
1659          V284= Cnil;          V284= Cnil;
1660          if(!(type_of(base[2])==t_cons)){          if(!(type_of(base[2])==t_cons)){
1661          goto T717;}          goto T718;}
1662          V268= cdr(base[2]);          V268= cdr(base[2]);
1663          base[2]= car(base[2]);          base[2]= car(base[2]);
1664  T717:;  goto T718;
1665    T718:;
1666          base[4]= coerce_to_string(base[2]);          base[4]= coerce_to_string(base[2]);
1667          base[5]= VV[87];          base[5]= VV[87];
1668          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 1476  T717:; Line 1705  T717:;
1705          V285= (V268);          V285= (V268);
1706          V286= Cnil;          V286= Cnil;
1707          V287= Cnil;          V287= Cnil;
1708  T744:;  goto T745;
         if(!(endp((V285)))){  
         goto T745;}  
         goto T742;  
1709  T745:;  T745:;
1710            if(!(endp((V285)))){
1711            goto T746;}
1712            goto T743;
1713    goto T746;
1714    T746:;
1715          if(!(type_of(car((V285)))==t_cons)){          if(!(type_of(car((V285)))==t_cons)){
1716          goto T751;}          goto T752;}
1717          if(endp(cdar((V285)))){          if(endp(cdar((V285)))){
1718          goto T751;}          goto T752;}
1719          V286= caar((V285));          V286= caar((V285));
1720          V287= cadar((V285));          V287= cadar((V285));
1721          {object V288= (V286);          {object V288= (V286);
1722          if((V288!= VV[80]))goto T759;          if((V288!= VV[80]))goto T760;
1723          if(((V287))!=Cnil){          if(((V287))!=Cnil){
1724          goto T761;}          goto T762;}
1725          V269= VV[91];          V269= VV[91];
1726          goto T749;          goto T750;
1727  T761:;  goto T762;
1728    T762:;
1729          V269= (V287);          V269= (V287);
1730          goto T749;          goto T750;
1731  T759:;  goto T760;
1732          if((V288!= VV[137]))goto T765;  T760:;
1733            if((V288!= VV[137]))goto T766;
1734          if(((V287))!=Cnil){          if(((V287))!=Cnil){
1735          goto T767;}          goto T768;}
1736          V272= Ct;          V272= Ct;
1737          goto T749;          goto T750;
1738  T767:;  goto T768;
1739    T768:;
1740          if(!(endp(cddar((V285))))){          if(!(endp(cddar((V285))))){
1741          goto T771;}          goto T772;}
1742          V270= make_cons((V287),(V270));          V270= make_cons((V287),(V270));
1743          goto T749;          goto T750;
1744  T771:;  goto T772;
1745    T772:;
1746          V270= make_cons(cdar((V285)),(V270));          V270= make_cons(cdar((V285)),(V270));
1747          goto T749;          goto T750;
1748  T765:;  goto T766;
1749          if((V288!= VV[138]))goto T775;  T766:;
1750            if((V288!= VV[138]))goto T776;
1751          V273= (V287);          V273= (V287);
1752          goto T749;          goto T750;
1753  T775:;  goto T776;
1754          if((V288!= VV[54]))goto T777;  T776:;
1755            if((V288!= VV[54]))goto T778;
1756          V284= (V287);          V284= (V287);
1757          goto T749;          goto T750;
1758  T777:;  goto T778;
1759          if((V288!= VV[139]))goto T779;  T778:;
1760            if((V288!= VV[139]))goto T780;
1761          V274= (V287);          V274= (V287);
1762          V275= Ct;          V275= Ct;
1763          goto T749;          goto T750;
1764  T779:;  goto T780;
1765          if((V288!= VV[140]))goto T783;  T780:;
1766            if((V288!= VV[140]))goto T784;
1767          V276= cdar((V285));          V276= cdar((V285));
1768          if((get((V287),VV[55],Cnil))!=Cnil){          if((get((V287),VV[55],Cnil))!=Cnil){
1769          goto T749;}          goto T750;}
1770          base[4]= VV[92];          base[4]= VV[92];
1771          base[5]= (V287);          base[5]= (V287);
1772          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1773          Lerror();          Lerror();
1774          vs_top=sup;          vs_top=sup;
1775          goto T749;          goto T750;
1776  T783:;  goto T784;
1777          if((V288!= VV[73]))goto T790;  T784:;
1778            if((V288!= VV[73]))goto T791;
1779          if(type_of((V287))==t_cons){          if(type_of((V287))==t_cons){
1780          goto T792;}          goto T793;}
1781          goto T791;          goto T792;
1782  T792:;  goto T793;
1783    T793:;
1784          if((car((V287)))==(VV[93])){          if((car((V287)))==(VV[93])){
1785          goto T794;}          goto T795;}
1786          goto T791;          goto T792;
1787  T794:;  goto T795;
1788    T795:;
1789          V287= cadr((V287));          V287= cadr((V287));
1790  T791:;  goto T792;
1791    T792:;
1792          V277= (V287);          V277= (V287);
1793          goto T749;          goto T750;
1794  T790:;  goto T791;
1795          if((V288!= VV[77]))goto T798;  T791:;
1796            if((V288!= VV[77]))goto T799;
1797          V278= (V287);          V278= (V287);
1798          goto T749;          goto T750;
1799  T798:;  goto T799;
1800          if((V288!= VV[141]))goto T800;  T799:;
1801            if((V288!= VV[141]))goto T801;
1802          V280= (V287);          V280= (V287);
1803          goto T749;          goto T750;
1804  T800:;  goto T801;
1805    T801:;
1806          base[4]= VV[94];          base[4]= VV[94];
1807          base[5]= (V286);          base[5]= (V286);
1808          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1809          Lerror();          Lerror();
1810          vs_top=sup;          vs_top=sup;
1811          goto T749;}          goto T750;}
1812  T751:;  goto T752;
1813    T752:;
1814          if(!(type_of(car((V285)))==t_cons)){          if(!(type_of(car((V285)))==t_cons)){
1815          goto T806;}          goto T807;}
1816          V286= caar((V285));          V286= caar((V285));
1817          goto T804;          goto T805;
1818  T806:;  goto T807;
1819    T807:;
1820          V286= car((V285));          V286= car((V285));
1821  T804:;  goto T805;
1822    T805:;
1823          {object V289= (V286);          {object V289= (V286);
1824          if((V289!= VV[137]))goto T810;          if((V289!= VV[137]))goto T811;
1825          V270= make_cons((V271),(V270));          V270= make_cons((V271),(V270));
1826          goto T749;          goto T750;
1827  T810:;  goto T811;
1828    T811:;
1829          if((V289!= VV[80])          if((V289!= VV[80])
1830          && (V289!= VV[138])          && (V289!= VV[138])
1831          && (V289!= VV[139])          && (V289!= VV[139])
1832          && (V289!= VV[73]))goto T812;          && (V289!= VV[73]))goto T813;
1833          goto T749;          goto T750;
1834  T812:;  goto T813;
         if((V289!= VV[78]))goto T813;  
         V279= Ct;  
         goto T749;  
1835  T813:;  T813:;
1836            if((V289!= VV[78]))goto T814;
1837            V279= Ct;
1838            goto T750;
1839    goto T814;
1840    T814:;
1841          base[4]= VV[95];          base[4]= VV[95];
1842          base[5]= (V286);          base[5]= (V286);
1843          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1844          Lerror();          Lerror();
1845          vs_top=sup;}          vs_top=sup;}
1846  T749:;  goto T750;
1847    T750:;
1848          V285= cdr((V285));          V285= cdr((V285));
1849          goto T744;}          goto T745;}
1850  T742:;  goto T743;
1851    T743:;
1852          base[4]= coerce_to_string((V269));          base[4]= coerce_to_string((V269));
1853          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1854          Lintern();          Lintern();
1855          vs_top=sup;          vs_top=sup;
1856          V269= vs_base[0];          V269= vs_base[0];
1857          if((V276)==Cnil){          if((V276)==Cnil){
         goto T823;}  
         if(((V277))==Cnil){  
1858          goto T824;}          goto T824;}
1859          goto T823;          if(((V277))==Cnil){
1860  T824:;          goto T825;}
1861            goto T824;
1862    goto T825;
1863    T825:;
1864          V290= get(car((V276)),VV[55],Cnil);          V290= get(car((V276)),VV[55],Cnil);
1865          V277= structure_ref(V290,VV[55],6);          V277= structure_ref(V290,VV[55],6);
1866  T823:;  goto T824;
1867    T824:;
1868          if(endp((V267))){          if(endp((V267))){
1869          goto T828;}          goto T829;}
1870          if(!(type_of(car((V267)))==t_string)){          if(!(type_of(car((V267)))==t_string)){
1871          goto T828;}          goto T829;}
1872          V283= car((V267));          V283= car((V267));
1873          V267= cdr((V267));          V267= cdr((V267));
1874  T828:;  goto T829;
1875    T829:;
1876          if(((V276))==Cnil){          if(((V276))==Cnil){
1877          goto T836;}          goto T837;}
1878          V291= get(car((V276)),VV[55],Cnil);          V291= get(car((V276)),VV[55],Cnil);
1879          V292= structure_ref(V291,VV[55],16);          V292= structure_ref(V291,VV[55],16);
1880          if(equal((V278),/* INLINE-ARGS */V292)){          if(equal((V278),/* INLINE-ARGS */V292)){
1881          goto T836;}          goto T837;}
1882          base[4]= VV[96];          base[4]= VV[96];
1883          base[5]= car((V276));          base[5]= car((V276));
1884          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1885          Lerror();          Lerror();
1886          vs_top=sup;          vs_top=sup;
1887  T836:;  goto T837;
1888    T837:;
1889          if(((V276))!=Cnil){          if(((V276))!=Cnil){
1890          goto T846;}          goto T847;}
1891          V281= small_fixnum(0);          V281= small_fixnum(0);
1892          goto T844;          goto T845;
1893  T846:;  goto T847;
1894    T847:;
1895          V293= get(car((V276)),VV[55],Cnil);          V293= get(car((V276)),VV[55],Cnil);
1896          V281= structure_ref(V293,VV[55],14);          V281= structure_ref(V293,VV[55],14);
1897  T844:;  goto T845;
1898    T845:;
1899          if(((V278))==Cnil){          if(((V278))==Cnil){
1900          goto T851;}          goto T852;}
1901          if(((V280))==Cnil){          if(((V280))==Cnil){
1902          goto T851;}          goto T852;}
1903          V281= number_plus((V281),(V280));          V281= number_plus((V281),(V280));
1904  T851:;  goto T852;
1905    T852:;
1906          if(((V278))==Cnil){          if(((V278))==Cnil){
1907          goto T857;}          goto T858;}
1908          if(((V279))==Cnil){          if(((V279))==Cnil){
1909          goto T857;}          goto T858;}
1910          V282= (V281);          V282= (V281);
1911          V281= one_plus((V281));          V281= one_plus((V281));
1912  T857:;  goto T858;
1913    T858:;
1914          {register object V294;          {register object V294;
1915          register object V295;          register object V295;
1916          V294= (V267);          V294= (V267);
1917          V295= Cnil;          V295= Cnil;
1918  T867:;  goto T868;
1919    T868:;
1920          if(!(endp((V294)))){          if(!(endp((V294)))){
1921          goto T868;}          goto T869;}
1922          V267= nreverse((V295));          V267= nreverse((V295));
1923          goto T865;          goto T866;
1924  T868:;  goto T869;
1925    T869:;
1926          V296= (*(LnkLI142))(car((V294)),(V281));          V296= (*(LnkLI142))(car((V294)),(V281));
1927          V295= make_cons(/* INLINE-ARGS */V296,(V295));          V295= make_cons(/* INLINE-ARGS */V296,(V295));
1928          V281= one_plus((V281));          V281= one_plus((V281));
1929          V294= cdr((V294));          V294= cdr((V294));
1930          goto T867;}          goto T868;}
1931  T865:;  goto T866;
1932    T866:;
1933          if(((V278))==Cnil){          if(((V278))==Cnil){
1934          goto T880;}          goto T881;}
1935          if(((V279))==Cnil){          if(((V279))==Cnil){
1936          goto T880;}          goto T881;}
1937          V297= list(2,Cnil,base[2]);          V297= list(2,Cnil,base[2]);
1938          V267= make_cons(/* INLINE-ARGS */V297,(V267));          V267= make_cons(/* INLINE-ARGS */V297,(V267));
1939  T880:;  goto T881;
1940    T881:;
1941          if(((V278))==Cnil){          if(((V278))==Cnil){
1942          goto T886;}          goto T887;}
1943          if(((V280))==Cnil){          if(((V280))==Cnil){
1944          goto T886;}          goto T887;}
1945          base[4]= (V280);          base[4]= (V280);
1946          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1947          Lmake_list();          Lmake_list();
1948          vs_top=sup;          vs_top=sup;
1949          V298= vs_base[0];          V298= vs_base[0];
1950          V267= append(V298,(V267));          V267= append(V298,(V267));
1951  T886:;  goto T887;
1952    T887:;
1953          {object V299;          {object V299;
1954          V299= (((V276))==Cnil?Ct:Cnil);          V299= (((V276))==Cnil?Ct:Cnil);
1955          if(((V299))==Cnil){          if(((V299))==Cnil){
1956          goto T897;}          goto T898;}
1957          goto T894;          goto T895;
1958  T897:;  goto T898;
1959    T898:;
1960          if(!(endp(cdr((V276))))){          if(!(endp(cdr((V276))))){
1961          goto T900;}          goto T901;}
1962          V300= get(car((V276)),VV[55],Cnil);          V300= get(car((V276)),VV[55],Cnil);
1963          V301= structure_ref(V300,VV[55],7);          V301= structure_ref(V300,VV[55],7);
1964          V267= append(/* INLINE-ARGS */V301,(V267));          V267= append(/* INLINE-ARGS */V301,(V267));
1965          goto T894;          goto T895;
1966  T900:;  goto T901;
1967    T901:;
1968          {object V303;          {object V303;
1969          object V304= cdr((V276));          object V304= cdr((V276));
1970          if(endp(V304)){          if(endp(V304)){
1971          V302= Cnil;          V302= Cnil;
1972          goto T905;}          goto T906;}
1973          base[4]=V303=MMcons(Cnil,Cnil);          base[4]=V303=MMcons(Cnil,Cnil);
1974  T906:;  goto T907;
1975    T907:;
1976          (V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0));          (V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0));
1977          if(endp(V304=MMcdr(V304))){          if(endp(V304=MMcdr(V304))){
1978          V302= base[4];          V302= base[4];
         goto T905;}  
         V303=MMcdr(V303)=MMcons(Cnil,Cnil);  
1979          goto T906;}          goto T906;}
1980  T905:;          V303=MMcdr(V303)=MMcons(Cnil,Cnil);
1981            goto T907;}
1982    goto T906;
1983    T906:;
1984          V306= get(car((V276)),VV[55],Cnil);          V306= get(car((V276)),VV[55],Cnil);
1985          V307= structure_ref(V306,VV[55],7);          V307= structure_ref(V306,VV[55],7);
1986          V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307);          V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307);
1987          V267= append(/* INLINE-ARGS */V308,(V267));}          V267= append(/* INLINE-ARGS */V308,(V267));}
1988  T894:;  goto T895;
1989    T895:;
1990          if(((V272))==Cnil){          if(((V272))==Cnil){
1991          goto T911;}          goto T912;}
1992          if(((V270))==Cnil){          if(((V270))==Cnil){
1993          goto T909;}          goto T910;}
1994          base[4]= VV[97];          base[4]= VV[97];
1995          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1996          Lerror();          Lerror();
1997          vs_top=sup;          vs_top=sup;
1998          goto T909;          goto T910;
1999  T911:;  goto T912;
2000    T912:;
2001          if(((V270))!=Cnil){          if(((V270))!=Cnil){
2002          goto T909;}          goto T910;}
2003          V270= make_cons((V271),Cnil);          V270= make_cons((V271),Cnil);
2004  T909:;{object V309;  goto T910;
2005    T910:;{object V309;
2006          {object V312;          {object V312;
2007          object V313= (V270);          object V313= (V270);
2008          if(endp(V313)){          if(endp(V313)){
2009          V311= Cnil;          V311= Cnil;
2010          goto T922;}          goto T923;}
2011          base[4]=V312=MMcons(Cnil,Cnil);          base[4]=V312=MMcons(Cnil,Cnil);
2012  T923:;  goto T924;
2013    T924:;
2014          base[5]= (V313->c.c_car);          base[5]= (V313->c.c_car);
2015          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2016          Lsymbolp();          Lsymbolp();
# Line 1743  T923:; Line 2018  T923:;
2018          (V312->c.c_car)= vs_base[0];          (V312->c.c_car)= vs_base[0];
2019          if(endp(V313=MMcdr(V313))){          if(endp(V313=MMcdr(V313))){
2020          V311= base[4];          V311= base[4];
         goto T922;}  
         V312=MMcdr(V312)=MMcons(Cnil,Cnil);  
2021          goto T923;}          goto T923;}
2022  T922:;          V312=MMcdr(V312)=MMcons(Cnil,Cnil);
2023            goto T924;}
2024    goto T923;
2025    T923:;
2026          {register object x= Ct,V310= V311;          {register object x= Ct,V310= V311;
2027          while(!endp(V310))          while(!endp(V310))
2028          if(eql(x,V310->c.c_car)){          if(eql(x,V310->c.c_car)){
2029          V309= V310;          V309= V310;
2030          goto T921;          goto T922;
2031          }else V310=V310->c.c_cdr;          }else V310=V310->c.c_cdr;
2032          V309= Cnil;}          V309= Cnil;}
2033  T921:;  goto T922;
2034          if(V309==Cnil)goto T920;  T922:;
2035          goto T919;          if(V309==Cnil)goto T921;
2036  T920:;}          goto T920;
2037    goto T921;
2038    T921:;}
2039          base[5]= VV[98];          base[5]= VV[98];
2040          base[6]= (V271);          base[6]= (V271);
2041          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 1769  T920:;} Line 2047  T920:;}
2047          vs_top=sup;          vs_top=sup;
2048          V314= vs_base[0];          V314= vs_base[0];
2049          V270= make_cons(V314,(V270));          V270= make_cons(V314,(V270));
2050  T919:;  goto T920;
2051    T920:;
2052          if(((V278))==Cnil){          if(((V278))==Cnil){
2053          goto T931;}          goto T932;}
2054          if(((V279))!=Cnil){          if(((V279))!=Cnil){
2055          goto T931;}          goto T932;}
2056          if(((V275))==Cnil){          if(((V275))==Cnil){
2057          goto T936;}          goto T937;}
2058          base[4]= VV[99];          base[4]= VV[99];
2059          base[5]= (V274);          base[5]= (V274);
2060          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2061          Lerror();          Lerror();
2062          vs_top=sup;          vs_top=sup;
2063  T936:;  goto T937;
2064    T937:;
2065          V274= Cnil;          V274= Cnil;
2066  T931:;  goto T932;
2067    T932:;
2068          if(((V276))==Cnil){          if(((V276))==Cnil){
2069          goto T942;}          goto T943;}
2070          V276= car((V276));          V276= car((V276));
2071  T942:;  goto T943;
2072    T943:;
2073          if(((V277))==Cnil){          if(((V277))==Cnil){
2074          goto T946;}          goto T947;}
2075          if(((V278))==Cnil){          if(((V278))==Cnil){
2076          goto T946;}          goto T947;}
2077          base[4]= VV[100];          base[4]= VV[100];
2078          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2079          Lerror();          Lerror();
2080          vs_top=sup;          vs_top=sup;
2081  T946:;  goto T947;
2082    T947:;
2083          base[4]= VV[102];          base[4]= VV[102];
2084          base[5]= list(2,VV[11],base[2]);          base[5]= list(2,VV[11],base[2]);
2085          base[6]= list(2,VV[11],(V269));          base[6]= list(2,VV[11],(V269));
# Line 1819  T946:; Line 2102  T946:;
2102          object V318= (V270);          object V318= (V270);
2103          if(endp(V318)){          if(endp(V318)){
2104          base[4]= Cnil;          base[4]= Cnil;
2105          goto T968;}          goto T969;}
2106          base[5]=V317=MMcons(Cnil,Cnil);          base[5]=V317=MMcons(Cnil,Cnil);
2107  T969:;  goto T970;
2108    T970:;
2109          (V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267));          (V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267));
2110          if(endp(V318=MMcdr(V318))){          if(endp(V318=MMcdr(V318))){
2111          base[4]= base[5];          base[4]= base[5];
         goto T968;}  
         V317=MMcdr(V317)=MMcons(Cnil,Cnil);  
2112          goto T969;}          goto T969;}
2113  T968:;          V317=MMcdr(V317)=MMcons(Cnil,Cnil);
2114            goto T970;}
2115    goto T969;
2116    T969:;
2117          if(((V278))==Cnil){          if(((V278))==Cnil){
2118          goto T973;}          goto T974;}
2119          if(((V274))==Cnil){          if(((V274))==Cnil){
2120          goto T973;}          goto T974;}
2121          V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282));          V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282));
2122          base[5]= make_cons(/* INLINE-ARGS */V320,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V320,Cnil);
2123          goto T971;          goto T972;
2124  T973:;  goto T974;
2125    T974:;
2126          base[5]= Cnil;          base[5]= Cnil;
2127  T971:;  goto T972;
2128    T972:;
2129          V321= list(2,VV[11],base[2]);          V321= list(2,VV[11],base[2]);
2130          base[6]= make_cons(/* INLINE-ARGS */V321,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V321,Cnil);
2131          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 1874  static object LI12(va_alist) Line 2161  static object LI12(va_alist)
2161          object V337;          object V337;
2162          object V338;          object V338;
2163          object V339;          object V339;
2164          narg= narg - 0;          Vcs[0]=Vcs[0];
2165          va_start(ap);          va_start(ap);
2166            narg= narg - 0;
2167          {          {
2168          parse_key_new(narg,Vcs +0,&LI12key,ap);          parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap);
2169          V322=(Vcs[0]);          V322=(Vcs[0]);
2170          V323=(Vcs[1]);          V323=(Vcs[1]);
2171          V324=(Vcs[2]);          V324=(Vcs[2]);
# Line 1919  static object LI12(va_alist) Line 2207  static object LI12(va_alist)
2207          siLmake_structure();          siLmake_structure();
2208          vs_top=sup;          vs_top=sup;
2209          {object V340 = vs_base[0];          {object V340 = vs_base[0];
2210          VMR12(V340)}}          VMR12(V340)}
2211            va_end(ap);
2212            base[0]=base[0];
2213            return Cnil;}
2214          }}          }}
2215  /*      local entry for function CHECK-S-DATA   */  /*      local entry for function CHECK-S-DATA   */
2216    
# Line 1927  static object LI13(V344,V345,V346) Line 2218  static object LI13(V344,V345,V346)
2218    
2219  register object V344;register object V345;object V346;  register object V344;register object V345;object V346;
2220  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
2221    goto TTL;
2222  TTL:;  TTL:;
2223          if((structure_ref((V344),VV[55],3))==Cnil){          if((structure_ref((V344),VV[55],3))==Cnil){
2224          goto T997;}          goto T998;}
2225          V347= structure_ref((V344),VV[55],3);          V347= structure_ref((V344),VV[55],3);
2226          (void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347));          (void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347));
2227  T997:;  goto T998;
2228    T998:;
2229          if((structure_ref((V344),VV[55],11))==Cnil){          if((structure_ref((V344),VV[55],11))==Cnil){
2230          goto T1000;}          goto T1001;}
2231          (void)(structure_set((V345),VV[55],11,Ct));          (void)(structure_set((V345),VV[55],11,Ct));
2232  T1000:;  goto T1001;
2233    T1001:;
2234          if(equalp((V345),(V344))){          if(equalp((V345),(V344))){
2235          goto T1004;}          goto T1005;}
2236          (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346))));          (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346))));
2237          {object V348 = sputprop((V346),VV[55],(V345));          {object V348 = sputprop((V346),VV[55],(V345));
2238          VMR13(V348)}          VMR13(V348)}
2239  T1004:;  goto T1005;
2240    T1005:;
2241          {object V349 = Cnil;          {object V349 = Cnil;
2242          VMR13(V349)}          VMR13(V349)}
2243            return Cnil;
2244  }  }
2245  /*      local entry for function FREEZE-DEFSTRUCT       */  /*      local entry for function FREEZE-DEFSTRUCT       */
2246    
# Line 1952  static object LI14(V351) Line 2248  static object LI14(V351)
2248    
2249  object V351;  object V351;
2250  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
2251    goto TTL;
2252  TTL:;  TTL:;
2253          {object V352;          {object V352;
2254          if(type_of((V351))==t_symbol){          if(type_of((V351))==t_symbol){
2255          goto T1008;}          goto T1009;}
2256          V352= Cnil;          V352= Cnil;
2257          goto T1007;          goto T1008;
2258  T1008:;  goto T1009;
2259    T1009:;
2260          V352= get((V351),VV[55],Cnil);          V352= get((V351),VV[55],Cnil);
2261  T1007:;  goto T1008;
2262    T1008:;
2263          if(((V352))==Cnil){          if(((V352))==Cnil){
2264          goto T1011;}          goto T1012;}
2265          {object V353 = structure_set((V352),VV[55],11,Ct);          {object V353 = structure_set((V352),VV[55],11,Ct);
2266          VMR14(V353)}          VMR14(V353)}
2267  T1011:;  goto T1012;
2268    T1012:;
2269          {object V354 = Cnil;          {object V354 = Cnil;
2270          VMR14(V354)}}          VMR14(V354)}}
2271            return Cnil;
2272  }  }
2273  /*      function definition for SHARP-S-READER  */  /*      function definition for SHARP-S-READER  */
2274    
2275  static L15()  static void L15()
2276  {register object *base=vs_base;  {register object *base=vs_base;
2277          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
2278          vs_reserve(VM15);          vs_reserve(VM15);
# Line 1983  static L15() Line 2284  static L15()
2284          V356=(base[1]);          V356=(base[1]);
2285          V357=(base[2]);          V357=(base[2]);
2286          vs_top=sup;          vs_top=sup;
2287    goto TTL;
2288  TTL:;  TTL:;
2289          if(((V357))==Cnil){          if(((V357))==Cnil){
2290          goto T1013;}          goto T1014;}
2291          if((symbol_value(VV[104]))!=Cnil){          if((symbol_value(VV[104]))!=Cnil){
2292          goto T1013;}          goto T1014;}
2293          base[3]= VV[105];          base[3]= VV[105];
2294          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2295          Lerror();          Lerror();
2296          vs_top=sup;          vs_top=sup;
2297  T1013:;  goto T1014;
2298    T1014:;
2299          {register object V358;          {register object V358;
2300          register object V359;          register object V359;
2301          {object V360;          {object V360;
# Line 2005  T1013:; Line 2308  T1013:;
2308          vs_top=sup;          vs_top=sup;
2309          V360= vs_base[0];          V360= vs_base[0];
2310          if((symbol_value(VV[104]))==Cnil){          if((symbol_value(VV[104]))==Cnil){
2311          goto T1025;}          goto T1026;}
2312          base[5]= Cnil;          base[5]= Cnil;
2313          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2314          return;          return;
2315  T1025:;  goto T1026;
2316    T1026:;
2317          V358= (V360);}{object V361;          V358= (V360);}{object V361;
2318          V361= get(car((V358)),VV[55],Cnil);          V361= get(car((V358)),VV[55],Cnil);
2319          if(V361==Cnil)goto T1029;          if(V361==Cnil)goto T1030;
2320          V359= V361;          V359= V361;
2321          goto T1028;          goto T1029;
2322  T1029:;}  goto T1030;
2323    T1030:;}
2324          base[5]= VV[106];          base[5]= VV[106];
2325          base[6]= car((V358));          base[6]= car((V358));
2326          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2327          Lerror();          Lerror();
2328          vs_top=sup;          vs_top=sup;
2329          V359= vs_base[0];          V359= vs_base[0];
2330  T1028:;  goto T1029;
2331    T1029:;
2332          {register object V362;          {register object V362;
2333          V362= cdr((V358));          V362= cdr((V358));
2334  T1035:;  goto T1036;
2335    T1036:;
2336          if(!(endp((V362)))){          if(!(endp((V362)))){
2337          goto T1036;}          goto T1037;}
2338          {register object V363;          {register object V363;
2339          V363= structure_ref((V359),VV[55],13);          V363= structure_ref((V359),VV[55],13);
2340  T1041:;  goto T1042;
2341    T1042:;
2342          if(!(endp((V363)))){          if(!(endp((V363)))){
2343          goto T1042;}          goto T1043;}
2344          base[5]= VV[107];          base[5]= VV[107];
2345          base[6]= car((V358));          base[6]= car((V358));
2346          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2347          Lerror();          Lerror();
2348          return;          return;
2349  T1042:;  goto T1043;
2350    T1043:;
2351          if(!(type_of(car((V363)))==t_symbol)){          if(!(type_of(car((V363)))==t_symbol)){
2352          goto T1048;}          goto T1049;}
2353          base[5]= car((V363));          base[5]= car((V363));
2354          {object V364;          {object V364;
2355          V364= cdr((V358));          V364= cdr((V358));
# Line 2050  T1042:; Line 2359  T1042:;
2359          vs_base=base+6;}          vs_base=base+6;}
2360          super_funcall_no_event(base[5]);          super_funcall_no_event(base[5]);
2361          return;          return;
2362  T1048:;  goto T1049;
2363    T1049:;
2364          V363= cdr((V363));          V363= cdr((V363));
2365          goto T1041;}          goto T1042;}
2366  T1036:;  goto T1037;
2367    T1037:;
2368          base[5]= coerce_to_string(car((V362)));          base[5]= coerce_to_string(car((V362)));
2369          base[6]= VV[108];          base[6]= VV[108];
2370          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 2063  T1036:; Line 2374  T1036:;
2374          if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362));          if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362));
2375          ((V362))->c.c_car = V365;          ((V362))->c.c_car = V365;
2376          V362= cddr((V362));          V362= cddr((V362));
2377          goto T1035;}}          goto T1036;}}
2378          }          }
2379  }  }
2380  /*      local function CLOSURE  */  /*      local function CLOSURE  */
2381    
2382  static LC20(base0)  static void LC20(base0)
2383  register object *base0;  register object *base0;
2384  {       register object *base=vs_base;  {       register object *base=vs_base;
2385          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
# Line 2086  register object *base0; Line 2397  register object *base0;
2397  }  }
2398  /*      local function CLOSURE  */  /*      local function CLOSURE  */
2399    
2400  static LC19(base0)  static void LC19(base0)
2401  register object *base0;  register object *base0;
2402  {       register object *base=vs_base;  {       register object *base=vs_base;
2403          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
# Line 2096  register object *base0; Line 2407  register object *base0;
2407          V367=(base[0]);          V367=(base[0]);
2408          vs_top=sup;          vs_top=sup;
2409          if(!(type_of((V367))==t_cons)){          if(!(type_of((V367))==t_cons)){
2410          goto T1067;}          goto T1068;}
2411          base[1]= car((V367));          base[1]= car((V367));
2412          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2413          return;          return;
2414  T1067:;  goto T1068;
2415    T1068:;
2416          base[1]= Cnil;          base[1]= Cnil;
2417          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2418          return;          return;
# Line 2108  T1067:; Line 2420  T1067:;
2420  }  }
2421  /*      local function CLOSURE  */  /*      local function CLOSURE  */
2422    
2423  static LC18(base0)  static void LC18(base0)
2424  register object *base0;  register object *base0;
2425  {       register object *base=vs_base;  {       register object *base=vs_base;
2426          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
# Line 2124  register object *base0; Line 2436  register object *base0;
2436  }  }
2437  /*      local function CLOSURE  */  /*      local function CLOSURE  */
2438    
2439  static LC17(base0)  static void LC17(base0)
2440  register object *base0;  register object *base0;
2441  {       register object *base=vs_base;  {       register object *base=vs_base;
2442          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
# Line 2142  register object *base0; Line 2454  register object *base0;
2454  }  }
2455  /*      local function CLOSURE  */  /*      local function CLOSURE  */
2456    
2457  static LC16(base0)  static void LC16(base0)
2458  register object *base0;  register object *base0;
2459  {       register object *base=vs_base;  {       register object *base=vs_base;
2460          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
# Line 2152  register object *base0; Line 2464  register object *base0;
2464          V370=(base[0]);          V370=(base[0]);
2465          vs_top=sup;          vs_top=sup;
2466          if(!(type_of((V370))==t_structure)){          if(!(type_of((V370))==t_structure)){
2467          goto T1072;}          goto T1073;}
2468          goto T1071;          goto T1072;
2469  T1072:;  goto T1073;
2470    T1073:;
2471          base[1]= VV[5];          base[1]= VV[5];
2472          base[2]= (V370);          base[2]= (V370);
2473          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2474          Lerror();          Lerror();
2475          vs_top=sup;          vs_top=sup;
2476  T1071:;  goto T1072;
2477    T1072:;
2478          base[1]= (V370);          base[1]= (V370);
2479          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
2480          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 2168  T1071:; Line 2482  T1071:;
2482          return;          return;
2483          }          }
2484  }  }
2485  static LnkT149(){ call_or_link(VV[149],&Lnk149);} /* STRUCTURE-REF1 */  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* STRUCTURE-REF1 */
2486  static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* STRUCTURE-SUBTYPE-P */  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-SUBTYPE-P */
2487  static object  LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],&LnkLI144,5,ap);} /* MAKE-PREDICATE */  static object  LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],(void **)&LnkLI144,5,ap);} /* MAKE-PREDICATE */
2488  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],&LnkLI143,5,ap);} /* MAKE-CONSTRUCTOR */  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],(void **)&LnkLI143,5,ap);} /* MAKE-CONSTRUCTOR */
2489  static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],&LnkLI142,2,ap);} /* PARSE-SLOT-DESCRIPTION */  static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],(void **)&LnkLI142,2,ap);} /* PARSE-SLOT-DESCRIPTION */
2490  static object  LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],&LnkLI136,3,ap);} /* CHECK-S-DATA */  static object  LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],(void **)&LnkLI136,3,ap);} /* CHECK-S-DATA */
2491  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],&LnkLI135,ap);} /* MAKE-S-DATA */  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* MAKE-S-DATA */
2492  static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],&LnkLI134,3,ap);} /* GET-SLOT-POS */  static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,3,ap);} /* GET-SLOT-POS */
2493  static object  LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[133],&LnkLI133,ap);} /* WARN */  static object  LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[133],(void **)&LnkLI133,ap);} /* WARN */
2494  static LnkT132(){ call_or_link(VV[132],&Lnk132);} /* MAKE-S-DATA-STRUCTURE */  static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* MAKE-S-DATA-STRUCTURE */
2495  static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,3,ap);} /* MAKE-T-TYPE */  static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],(void **)&LnkLI131,3,ap);} /* MAKE-T-TYPE */
2496  static LnkT127(){ call_or_link(VV[127],&Lnk127);} /* MAKE-ACCESS-FUNCTION */  static void LnkT127(){ call_or_link(VV[127],(void **)&Lnk127);} /* MAKE-ACCESS-FUNCTION */
2497  static long  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[126],&LnkLI126,20738,ap);} /* ROUND-UP */  static long  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[126],(void **)&LnkLI126,20738,ap);} /* ROUND-UP */
2498  static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* SIZE-OF */  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* SIZE-OF */
2499  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,2,ap);} /* COERCE */  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,2,ap);} /* COERCE */
2500  static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* TYPEP */  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* TYPEP */
2501  static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* AET-TYPE */  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* AET-TYPE */
2502  static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* ALIGNMENT */  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ALIGNMENT */
2503  static object  LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[120],&LnkLI120,ap);} /* MAKE-ARRAY */  static object  LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[120],(void **)&LnkLI120,ap);} /* MAKE-ARRAY */
2504  static object  LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[119],&LnkLI119,2,ap);} /* OVERWRITE-SLOT-DESCRIPTIONS */  static object  LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[119],(void **)&LnkLI119,2,ap);} /* OVERWRITE-SLOT-DESCRIPTIONS */
2505  static object  LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],&LnkLI118,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],(void **)&LnkLI118,1,ap);} /* NORMALIZE-TYPE */
2506  static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],(void **)&LnkLI117,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
2507  static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* X */  static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* X */
2508  static object  LnkTLI113(){return call_proc0(VV[113],&LnkLI113);} /* ILLEGAL-BOA */  static object  LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* ILLEGAL-BOA */
2509  static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* SUBTYPEP */  static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* SUBTYPEP */
2510  static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* RECORD-FN */  static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* RECORD-FN */
2511  static object  LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[110],&LnkLI110,ap);} /* ADJUST-ARRAY */  static object  LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[110],(void **)&LnkLI110,ap);} /* ADJUST-ARRAY */
2512  static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* STRING-CONCATENATE */  static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* STRING-CONCATENATE */
2513    
2514  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2515  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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