2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_install.h" |
#include "clcs_install.h" |
4 |
void init_clcs_install(){do_init(VV);} |
void init_clcs_install(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2168 */ |
/* local entry for function progn 'compile2195 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
18 |
base[0]=base[0]; |
base[0]=base[0]; |
19 |
return Cnil; |
return Cnil; |
20 |
} |
} |
21 |
/* local entry for function progn 'compile2180 */ |
/* local entry for function progn 'compile2207 */ |
22 |
|
|
23 |
static object LI2() |
static object LI2() |
24 |
|
|
37 |
VMR2(V2)} |
VMR2(V2)} |
38 |
return Cnil; |
return Cnil; |
39 |
} |
} |
40 |
/* local entry for function progn 'compile2193 */ |
/* local entry for function progn 'compile2220 */ |
41 |
|
|
42 |
static object LI3() |
static object LI3() |
43 |
|
|
66 |
}else V8=V8->c.c_cdr->c.c_cdr;}} |
}else V8=V8->c.c_cdr->c.c_cdr;}} |
67 |
goto T10; |
goto T10; |
68 |
T10:; |
T10:; |
|
V9 = (V6); |
|
69 |
base[0]= (V6); |
base[0]= (V6); |
70 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
71 |
Lsymbol_function(); |
Lsymbol_function(); |
72 |
vs_top=sup; |
vs_top=sup; |
73 |
V10= vs_base[0]; |
V9= vs_base[0]; |
74 |
(void)(sputprop(V9,VV[2],V10)); |
(void)(sputprop((V6),VV[2],V9)); |
75 |
goto T8; |
goto T8; |
76 |
T8:; |
T8:; |
77 |
base[0]= (V6); |
base[0]= (V6); |
78 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
79 |
Lsymbol_function(); |
Lsymbol_function(); |
80 |
vs_top=sup; |
vs_top=sup; |
81 |
V11= vs_base[0]; |
V10= vs_base[0]; |
82 |
base[0]= (V7); |
base[0]= (V7); |
83 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
84 |
Lsymbol_function(); |
Lsymbol_function(); |
85 |
vs_top=sup; |
vs_top=sup; |
86 |
V12= vs_base[0]; |
V11= vs_base[0]; |
87 |
if((V11)==(V12)){ |
if((V10)==(V11)){ |
88 |
goto T14;} |
goto T14;} |
89 |
base[0]= (V6); |
base[0]= (V6); |
90 |
base[2]= (V7); |
base[2]= (V7); |
95 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
96 |
siLfset(); |
siLfset(); |
97 |
vs_top=sup; |
vs_top=sup; |
98 |
{object V13 = vs_base[0]; |
{object V12 = vs_base[0]; |
99 |
VMR4(V13)} |
VMR4(V12)} |
100 |
goto T14; |
goto T14; |
101 |
T14:; |
T14:; |
102 |
{object V14 = Cnil; |
{object V13 = Cnil; |
103 |
VMR4(V14)} |
VMR4(V13)} |
104 |
base[0]=base[0]; |
base[0]=base[0]; |
105 |
return Cnil; |
return Cnil; |
106 |
} |
} |
107 |
/* local entry for function REVERT-SYMBOL */ |
/* local entry for function REVERT-SYMBOL */ |
108 |
|
|
109 |
static object LI5(V16) |
static object LI5(V15) |
110 |
|
|
111 |
register object V16; |
register object V15; |
112 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
113 |
goto TTL; |
goto TTL; |
114 |
TTL:; |
TTL:; |
115 |
{object V17 =((V16))->s.s_plist; |
{object V16 =((V15))->s.s_plist; |
116 |
object ind= VV[2]; |
object ind= VV[2]; |
117 |
while(V17!=Cnil){ |
while(V16!=Cnil){ |
118 |
if(V17->c.c_car==ind){ |
if(V16->c.c_car==ind){ |
119 |
if(((V17->c.c_cdr->c.c_car))==Cnil){ |
if(((V16->c.c_cdr->c.c_car))==Cnil){ |
120 |
goto T24;} |
goto T24;} |
121 |
goto T26; |
goto T26; |
122 |
}else V17=V17->c.c_cdr->c.c_cdr;} |
}else V16=V16->c.c_cdr->c.c_cdr;} |
123 |
goto T24;} |
goto T24;} |
124 |
goto T26; |
goto T26; |
125 |
T26:; |
T26:; |
126 |
base[0]= (V16); |
base[0]= (V15); |
127 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
128 |
Lsymbol_function(); |
Lsymbol_function(); |
129 |
vs_top=sup; |
vs_top=sup; |
130 |
V18= vs_base[0]; |
V17= vs_base[0]; |
131 |
{object V20 =((V16))->s.s_plist; |
{object V19 =((V15))->s.s_plist; |
132 |
object ind= VV[2]; |
object ind= VV[2]; |
133 |
while(V20!=Cnil){ |
while(V19!=Cnil){ |
134 |
if(V20->c.c_car==ind){ |
if(V19->c.c_car==ind){ |
135 |
V19= (V20->c.c_cdr->c.c_car); |
V18= (V19->c.c_cdr->c.c_car); |
136 |
goto T30; |
goto T30; |
137 |
}else V20=V20->c.c_cdr->c.c_cdr;} |
}else V19=V19->c.c_cdr->c.c_cdr;} |
138 |
V19= Cnil;} |
V18= Cnil;} |
139 |
goto T30; |
goto T30; |
140 |
T30:; |
T30:; |
141 |
if((V18)==(V19)){ |
if((V17)==(V18)){ |
142 |
goto T24;} |
goto T24;} |
143 |
base[0]= (V16); |
base[0]= (V15); |
144 |
{object V21 =((V16))->s.s_plist; |
{object V20 =((V15))->s.s_plist; |
145 |
object ind= VV[2]; |
object ind= VV[2]; |
146 |
while(V21!=Cnil){ |
while(V20!=Cnil){ |
147 |
if(V21->c.c_car==ind){ |
if(V20->c.c_car==ind){ |
148 |
base[1]= (V21->c.c_cdr->c.c_car); |
base[1]= (V20->c.c_cdr->c.c_car); |
149 |
goto T32; |
goto T32; |
150 |
}else V21=V21->c.c_cdr->c.c_cdr;} |
}else V20=V20->c.c_cdr->c.c_cdr;} |
151 |
base[1]= Cnil;} |
base[1]= Cnil;} |
152 |
goto T32; |
goto T32; |
153 |
T32:; |
T32:; |
154 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
155 |
siLfset(); |
siLfset(); |
156 |
vs_top=sup; |
vs_top=sup; |
157 |
{object V22 = vs_base[0]; |
{object V21 = vs_base[0]; |
158 |
VMR5(V22)} |
VMR5(V21)} |
159 |
goto T24; |
goto T24; |
160 |
T24:; |
T24:; |
161 |
{object V23 = Cnil; |
{object V22 = Cnil; |
162 |
VMR5(V23)} |
VMR5(V22)} |
163 |
base[0]=base[0]; |
base[0]=base[0]; |
164 |
return Cnil; |
return Cnil; |
165 |
} |
} |
166 |
/* local entry for function progn 'compile2253 */ |
/* local entry for function progn 'compile2280 */ |
167 |
|
|
168 |
static object LI6() |
static object LI6() |
169 |
|
|
174 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
175 |
(void) (*Lnk26)(); |
(void) (*Lnk26)(); |
176 |
vs_top=sup; |
vs_top=sup; |
177 |
{object V24 = Cnil; |
{object V23 = Cnil; |
178 |
VMR6(V24)} |
VMR6(V23)} |
179 |
base[0]=base[0]; |
base[0]=base[0]; |
180 |
return Cnil; |
return Cnil; |
181 |
} |
} |
182 |
/* local entry for function progn 'compile2265 */ |
/* local entry for function progn 'compile2292 */ |
183 |
|
|
184 |
static object LI7() |
static object LI7() |
185 |
|
|
192 |
goto T36; |
goto T36; |
193 |
T36:; |
T36:; |
194 |
base[1]= (VV[0]->s.s_dbind); |
base[1]= (VV[0]->s.s_dbind); |
195 |
{object V26; |
{object V25; |
196 |
object V27= base[1]; |
object V26= base[1]; |
197 |
if(V27==Cnil){ |
if(V26==Cnil){ |
198 |
V25= Cnil; |
V24= Cnil; |
199 |
goto T39;} |
goto T39;} |
200 |
base[0]=V26=MMcons(Cnil,Cnil); |
base[0]=V25=MMcons(Cnil,Cnil); |
201 |
goto T40; |
goto T40; |
202 |
T40:; |
T40:; |
203 |
base[2]= symbol_name((V27->c.c_car)); |
base[2]= symbol_name((V26->c.c_car)); |
204 |
base[3]= VV[4]; |
base[3]= VV[4]; |
205 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
206 |
Lintern(); |
Lintern(); |
207 |
vs_top=sup; |
vs_top=sup; |
208 |
V29= vs_base[0]; |
V28= vs_base[0]; |
209 |
V30 = (V27->c.c_car); |
(V25->c.c_car)= list(2,V28,(V26->c.c_car)); |
210 |
(V26->c.c_car)= list(2,V29,V30); |
if((V26=MMcdr(V26))==Cnil){ |
211 |
if((V27=MMcdr(V27))==Cnil){ |
V24= base[0]; |
|
V25= base[0]; |
|
212 |
goto T39;} |
goto T39;} |
213 |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
V25=MMcdr(V25)=MMcons(Cnil,Cnil); |
214 |
goto T40;} |
goto T40;} |
215 |
goto T39; |
goto T39; |
216 |
T39:; |
T39:; |
217 |
(VV[3]->s.s_dbind)= nconc(V25,VV[5]); |
(VV[3]->s.s_dbind)= nconc(V24,VV[5]); |
218 |
goto T35; |
goto T35; |
219 |
T35:; |
T35:; |
220 |
{object V31 = Cnil; |
{object V29 = Cnil; |
221 |
VMR7(V31)} |
VMR7(V29)} |
222 |
base[0]=base[0]; |
base[0]=base[0]; |
223 |
return Cnil; |
return Cnil; |
224 |
} |
} |
225 |
/* local entry for function progn 'compile2282 */ |
/* local entry for function progn 'compile2309 */ |
226 |
|
|
227 |
static object LI8() |
static object LI8() |
228 |
|
|
229 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
230 |
goto TTL; |
goto TTL; |
231 |
TTL:; |
TTL:; |
232 |
{object V32 = Cnil; |
{object V30 = Cnil; |
233 |
VMR8(V32)} |
VMR8(V30)} |
234 |
return Cnil; |
return Cnil; |
235 |
} |
} |
236 |
/* local entry for function INSTALL-CLCS-SYMBOLS */ |
/* local entry for function INSTALL-CLCS-SYMBOLS */ |
240 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
241 |
goto TTL; |
goto TTL; |
242 |
TTL:; |
TTL:; |
243 |
{register object V33; |
{register object V31; |
244 |
register object V34; |
register object V32; |
245 |
V33= (VV[3]->s.s_dbind); |
V31= (VV[3]->s.s_dbind); |
246 |
V34= CMPcar((V33)); |
V32= CMPcar((V31)); |
247 |
goto T50; |
goto T50; |
248 |
T50:; |
T50:; |
249 |
if(!(((V33))==Cnil)){ |
if(!(((V31))==Cnil)){ |
250 |
goto T51;} |
goto T51;} |
251 |
goto T46; |
goto T46; |
252 |
goto T51; |
goto T51; |
253 |
T51:; |
T51:; |
254 |
(void)((*(LnkLI27))(CMPcar((V34)),CMPcadr((V34)))); |
(void)((*(LnkLI27))(CMPcar((V32)),CMPcadr((V32)))); |
255 |
V33= CMPcdr((V33)); |
V31= CMPcdr((V31)); |
256 |
V34= CMPcar((V33)); |
V32= CMPcar((V31)); |
257 |
goto T50;} |
goto T50;} |
258 |
goto T46; |
goto T46; |
259 |
T46:; |
T46:; |
260 |
{object V35 = Cnil; |
{object V33 = Cnil; |
261 |
VMR9(V35)} |
VMR9(V33)} |
262 |
base[0]=base[0]; |
base[0]=base[0]; |
263 |
return Cnil; |
return Cnil; |
264 |
} |
} |
269 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
270 |
goto TTL; |
goto TTL; |
271 |
TTL:; |
TTL:; |
272 |
{register object V36; |
{register object V34; |
273 |
register object V37; |
register object V35; |
274 |
V36= reverse((VV[3]->s.s_dbind)); |
V34= reverse((VV[3]->s.s_dbind)); |
275 |
V37= CMPcar((V36)); |
V35= CMPcar((V34)); |
276 |
goto T65; |
goto T65; |
277 |
T65:; |
T65:; |
278 |
if(!(((V36))==Cnil)){ |
if(!(((V34))==Cnil)){ |
279 |
goto T66;} |
goto T66;} |
280 |
goto T61; |
goto T61; |
281 |
goto T66; |
goto T66; |
282 |
T66:; |
T66:; |
283 |
(void)((*(LnkLI28))(CMPcar((V37)))); |
(void)((*(LnkLI28))(CMPcar((V35)))); |
284 |
V36= CMPcdr((V36)); |
V34= CMPcdr((V34)); |
285 |
V37= CMPcar((V36)); |
V35= CMPcar((V34)); |
286 |
goto T65;} |
goto T65;} |
287 |
goto T61; |
goto T61; |
288 |
T61:; |
T61:; |
289 |
{object V38 = Cnil; |
{object V36 = Cnil; |
290 |
VMR10(V38)} |
VMR10(V36)} |
291 |
base[0]=base[0]; |
base[0]=base[0]; |
292 |
return Cnil; |
return Cnil; |
293 |
} |
} |
298 |
register object *VOL sup=base+VM11; VC11 |
register object *VOL sup=base+VM11; VC11 |
299 |
vs_check; |
vs_check; |
300 |
bds_check; |
bds_check; |
301 |
{VOL object V39; |
{VOL object V37; |
302 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
303 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
304 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
305 |
{object *p=vs_top; |
{object *p=vs_top; |
306 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
307 |
V39=(base[1]); |
V37=(base[1]); |
308 |
vs_top=sup; |
vs_top=sup; |
309 |
goto T77; |
goto T77; |
310 |
T77:; |
T77:; |
317 |
if(eql(nlj_tag,VV[15]))goto T80; |
if(eql(nlj_tag,VV[15]))goto T80; |
318 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
319 |
} |
} |
320 |
V40= |
V38= |
321 |
make_cclosure_new(LC16,Cnil,base[3],Cdata); |
make_cclosure_new(LC16,Cnil,base[3],Cdata); |
322 |
V41= |
V39= |
323 |
make_cclosure_new(LC17,Cnil,base[3],Cdata); |
make_cclosure_new(LC17,Cnil,base[3],Cdata); |
324 |
V42= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V40,VV[10],V41)); |
V40= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V38,VV[10],V39)); |
325 |
V43= make_cons(/* INLINE-ARGS */V42,Cnil); |
V41= make_cons(/* INLINE-ARGS */V40,Cnil); |
326 |
base[4]= make_cons(/* INLINE-ARGS */V43,(VV[6]->s.s_dbind)); |
base[4]= make_cons(/* INLINE-ARGS */V41,(VV[6]->s.s_dbind)); |
327 |
bds_bind(VV[6],base[4]); |
bds_bind(VV[6],base[4]); |
328 |
{register object V44; |
{register object V42; |
329 |
{register object V45; |
{register object V43; |
330 |
{object V46 =(VV[12])->s.s_plist; |
{object V44 =(VV[12])->s.s_plist; |
331 |
object ind= VV[2]; |
object ind= VV[2]; |
332 |
while(V46!=Cnil){ |
while(V44!=Cnil){ |
333 |
if(V46->c.c_car==ind){ |
if(V44->c.c_car==ind){ |
334 |
V45= (V46->c.c_cdr->c.c_car); |
V43= (V44->c.c_cdr->c.c_car); |
335 |
goto T87; |
goto T87; |
336 |
}else V46=V46->c.c_cdr->c.c_cdr;} |
}else V44=V44->c.c_cdr->c.c_cdr;} |
337 |
V45= Cnil;} |
V43= Cnil;} |
338 |
goto T87; |
goto T87; |
339 |
T87:; |
T87:; |
340 |
if(((V45))==Cnil){ |
if(((V43))==Cnil){ |
341 |
goto T89;} |
goto T89;} |
342 |
base[5]= (V45); |
base[5]= (V43); |
343 |
goto T86; |
goto T86; |
344 |
goto T89; |
goto T89; |
345 |
T89:; |
T89:; |
347 |
goto T86; |
goto T86; |
348 |
T86:; |
T86:; |
349 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
350 |
{object V47; |
{object V45; |
351 |
V47= (V39); |
V45= (V37); |
352 |
vs_top=base+7; |
vs_top=base+7; |
353 |
while(V47!=Cnil) |
while(V45!=Cnil) |
354 |
{vs_push((V47)->c.c_car);V47=(V47)->c.c_cdr;} |
{vs_push((V45)->c.c_car);V45=(V45)->c.c_cdr;} |
355 |
vs_base=base+6;} |
vs_base=base+6;} |
356 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
357 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
359 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
360 |
Llist(); |
Llist(); |
361 |
vs_top=sup; |
vs_top=sup; |
362 |
V44= vs_base[0]; |
V42= vs_base[0]; |
363 |
if(((VV[13]->s.s_dbind))!=Cnil){ |
if(((VV[13]->s.s_dbind))!=Cnil){ |
364 |
goto T93;} |
goto T93;} |
365 |
base[5]= (V44); |
base[5]= (V42); |
366 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
367 |
Lvalues_list(); |
Lvalues_list(); |
368 |
frs_pop(); |
frs_pop(); |
380 |
goto T78;} |
goto T78;} |
381 |
goto T80; |
goto T80; |
382 |
T80:; |
T80:; |
383 |
{register object V48; |
{register object V46; |
384 |
V48= (base[2]->c.c_car); |
V46= (base[2]->c.c_car); |
385 |
base[4]= Cnil; |
base[4]= Cnil; |
386 |
base[5]= Ct; |
base[5]= Ct; |
387 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
418 |
if(eql(nlj_tag,VV[19]))goto T107; |
if(eql(nlj_tag,VV[19]))goto T107; |
419 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
420 |
} |
} |
421 |
V49= |
V47= |
422 |
make_cclosure_new(LC18,Cnil,base[2],Cdata); |
make_cclosure_new(LC18,Cnil,base[2],Cdata); |
423 |
V50= |
V48= |
424 |
make_cclosure_new(LC19,Cnil,base[2],Cdata); |
make_cclosure_new(LC19,Cnil,base[2],Cdata); |
425 |
V51= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V49,VV[10],V50)); |
V49= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V47,VV[10],V48)); |
426 |
V52= make_cons(/* INLINE-ARGS */V51,Cnil); |
V50= make_cons(/* INLINE-ARGS */V49,Cnil); |
427 |
base[3]= make_cons(/* INLINE-ARGS */V52,(VV[6]->s.s_dbind)); |
base[3]= make_cons(/* INLINE-ARGS */V50,(VV[6]->s.s_dbind)); |
428 |
bds_bind(VV[6],base[3]); |
bds_bind(VV[6],base[3]); |
429 |
{register object V53; |
{register object V51; |
430 |
{register object V54; |
{register object V52; |
431 |
{object V55 =(VV[17])->s.s_plist; |
{object V53 =(VV[17])->s.s_plist; |
432 |
object ind= VV[2]; |
object ind= VV[2]; |
433 |
while(V55!=Cnil){ |
while(V53!=Cnil){ |
434 |
if(V55->c.c_car==ind){ |
if(V53->c.c_car==ind){ |
435 |
V54= (V55->c.c_cdr->c.c_car); |
V52= (V53->c.c_cdr->c.c_car); |
436 |
goto T114; |
goto T114; |
437 |
}else V55=V55->c.c_cdr->c.c_cdr;} |
}else V53=V53->c.c_cdr->c.c_cdr;} |
438 |
V54= Cnil;} |
V52= Cnil;} |
439 |
goto T114; |
goto T114; |
440 |
T114:; |
T114:; |
441 |
if(((V54))==Cnil){ |
if(((V52))==Cnil){ |
442 |
goto T116;} |
goto T116;} |
443 |
base[4]= (V54); |
base[4]= (V52); |
444 |
goto T113; |
goto T113; |
445 |
goto T116; |
goto T116; |
446 |
T116:; |
T116:; |
447 |
base[4]= (VV[12]->s.s_gfdef);} |
base[4]= (VV[12]->s.s_gfdef);} |
448 |
goto T113; |
goto T113; |
449 |
T113:; |
T113:; |
450 |
{object V56; |
{object V54; |
451 |
V56= (base[0]->c.c_car); |
V54= (base[0]->c.c_car); |
452 |
vs_top=base+5; |
vs_top=base+5; |
453 |
while(V56!=Cnil) |
while(V54!=Cnil) |
454 |
{vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;} |
{vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;} |
455 |
vs_base=base+5;} |
vs_base=base+5;} |
456 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
457 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
459 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
460 |
Llist(); |
Llist(); |
461 |
vs_top=sup; |
vs_top=sup; |
462 |
V53= vs_base[0]; |
V51= vs_base[0]; |
463 |
if(((VV[13]->s.s_dbind))!=Cnil){ |
if(((VV[13]->s.s_dbind))!=Cnil){ |
464 |
goto T119;} |
goto T119;} |
465 |
base[4]= (V53); |
base[4]= (V51); |
466 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
467 |
Lvalues_list(); |
Lvalues_list(); |
468 |
frs_pop(); |
frs_pop(); |
480 |
goto T105;} |
goto T105;} |
481 |
goto T107; |
goto T107; |
482 |
T107:; |
T107:; |
483 |
{register object V57; |
{register object V55; |
484 |
V57= (base[1]->c.c_car); |
V55= (base[1]->c.c_car); |
485 |
base[3]= Cnil; |
base[3]= Cnil; |
486 |
base[4]= Ct; |
base[4]= Ct; |
487 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
501 |
register object *VOL sup=base+VM13; VC13 |
register object *VOL sup=base+VM13; VC13 |
502 |
vs_check; |
vs_check; |
503 |
bds_check; |
bds_check; |
504 |
{VOL object V58; |
{VOL object V56; |
505 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
506 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
507 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
508 |
{object *p=vs_top; |
{object *p=vs_top; |
509 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
510 |
V58=(base[1]); |
V56=(base[1]); |
511 |
vs_top=sup; |
vs_top=sup; |
512 |
goto T130; |
goto T130; |
513 |
T130:; |
T130:; |
520 |
if(eql(nlj_tag,VV[22]))goto T133; |
if(eql(nlj_tag,VV[22]))goto T133; |
521 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
522 |
} |
} |
523 |
V59= |
V57= |
524 |
make_cclosure_new(LC20,Cnil,base[3],Cdata); |
make_cclosure_new(LC20,Cnil,base[3],Cdata); |
525 |
V60= |
V58= |
526 |
make_cclosure_new(LC21,Cnil,base[3],Cdata); |
make_cclosure_new(LC21,Cnil,base[3],Cdata); |
527 |
V61= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V59,VV[10],V60)); |
V59= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V57,VV[10],V58)); |
528 |
V62= make_cons(/* INLINE-ARGS */V61,Cnil); |
V60= make_cons(/* INLINE-ARGS */V59,Cnil); |
529 |
base[4]= make_cons(/* INLINE-ARGS */V62,(VV[6]->s.s_dbind)); |
base[4]= make_cons(/* INLINE-ARGS */V60,(VV[6]->s.s_dbind)); |
530 |
bds_bind(VV[6],base[4]); |
bds_bind(VV[6],base[4]); |
531 |
{register object V63; |
{register object V61; |
532 |
{object V64 =(VV[21])->s.s_plist; |
{object V62 =(VV[21])->s.s_plist; |
533 |
object ind= VV[2]; |
object ind= VV[2]; |
534 |
while(V64!=Cnil){ |
while(V62!=Cnil){ |
535 |
if(V64->c.c_car==ind){ |
if(V62->c.c_car==ind){ |
536 |
V63= (V64->c.c_cdr->c.c_car); |
V61= (V62->c.c_cdr->c.c_car); |
537 |
goto T138; |
goto T138; |
538 |
}else V64=V64->c.c_cdr->c.c_cdr;} |
}else V62=V62->c.c_cdr->c.c_cdr;} |
539 |
V63= Cnil;} |
V61= Cnil;} |
540 |
goto T138; |
goto T138; |
541 |
T138:; |
T138:; |
542 |
if(((V63))==Cnil){ |
if(((V61))==Cnil){ |
543 |
goto T140;} |
goto T140;} |
544 |
base[5]= (V63); |
base[5]= (V61); |
545 |
goto T137; |
goto T137; |
546 |
goto T140; |
goto T140; |
547 |
T140:; |
T140:; |
549 |
goto T137; |
goto T137; |
550 |
T137:; |
T137:; |
551 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
552 |
{object V65; |
{object V63; |
553 |
V65= (V58); |
V63= (V56); |
554 |
vs_top=base+7; |
vs_top=base+7; |
555 |
while(V65!=Cnil) |
while(V63!=Cnil) |
556 |
{vs_push((V65)->c.c_car);V65=(V65)->c.c_cdr;} |
{vs_push((V63)->c.c_car);V63=(V63)->c.c_cdr;} |
557 |
vs_base=base+6;} |
vs_base=base+6;} |
558 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
559 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
564 |
return; |
return; |
565 |
goto T133; |
goto T133; |
566 |
T133:; |
T133:; |
567 |
{register object V66; |
{register object V64; |
568 |
V66= (base[2]->c.c_car); |
V64= (base[2]->c.c_car); |
569 |
base[4]= Cnil; |
base[4]= Cnil; |
570 |
base[5]= Ct; |
base[5]= Ct; |
571 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
586 |
register object *VOL sup=base+VM14; VC14 |
register object *VOL sup=base+VM14; VC14 |
587 |
vs_check; |
vs_check; |
588 |
bds_check; |
bds_check; |
589 |
{VOL object V67; |
{VOL object V65; |
590 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
591 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
592 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
593 |
{object *p=vs_top; |
{object *p=vs_top; |
594 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
595 |
V67=(base[1]); |
V65=(base[1]); |
596 |
vs_top=sup; |
vs_top=sup; |
597 |
goto T149; |
goto T149; |
598 |
T149:; |
T149:; |
605 |
if(eql(nlj_tag,VV[25]))goto T152; |
if(eql(nlj_tag,VV[25]))goto T152; |
606 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
607 |
} |
} |
608 |
V68= |
V66= |
609 |
make_cclosure_new(LC22,Cnil,base[3],Cdata); |
make_cclosure_new(LC22,Cnil,base[3],Cdata); |
610 |
V69= |
V67= |
611 |
make_cclosure_new(LC23,Cnil,base[3],Cdata); |
make_cclosure_new(LC23,Cnil,base[3],Cdata); |
612 |
V70= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V68,VV[10],V69)); |
V68= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V66,VV[10],V67)); |
613 |
V71= make_cons(/* INLINE-ARGS */V70,Cnil); |
V69= make_cons(/* INLINE-ARGS */V68,Cnil); |
614 |
base[4]= make_cons(/* INLINE-ARGS */V71,(VV[6]->s.s_dbind)); |
base[4]= make_cons(/* INLINE-ARGS */V69,(VV[6]->s.s_dbind)); |
615 |
bds_bind(VV[6],base[4]); |
bds_bind(VV[6],base[4]); |
616 |
{register object V72; |
{register object V70; |
617 |
{object V73 =(VV[24])->s.s_plist; |
{object V71 =(VV[24])->s.s_plist; |
618 |
object ind= VV[2]; |
object ind= VV[2]; |
619 |
while(V73!=Cnil){ |
while(V71!=Cnil){ |
620 |
if(V73->c.c_car==ind){ |
if(V71->c.c_car==ind){ |
621 |
V72= (V73->c.c_cdr->c.c_car); |
V70= (V71->c.c_cdr->c.c_car); |
622 |
goto T157; |
goto T157; |
623 |
}else V73=V73->c.c_cdr->c.c_cdr;} |
}else V71=V71->c.c_cdr->c.c_cdr;} |
624 |
V72= Cnil;} |
V70= Cnil;} |
625 |
goto T157; |
goto T157; |
626 |
T157:; |
T157:; |
627 |
if(((V72))==Cnil){ |
if(((V70))==Cnil){ |
628 |
goto T159;} |
goto T159;} |
629 |
base[5]= (V72); |
base[5]= (V70); |
630 |
goto T156; |
goto T156; |
631 |
goto T159; |
goto T159; |
632 |
T159:; |
T159:; |
634 |
goto T156; |
goto T156; |
635 |
T156:; |
T156:; |
636 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
637 |
{object V74; |
{object V72; |
638 |
V74= (V67); |
V72= (V65); |
639 |
vs_top=base+7; |
vs_top=base+7; |
640 |
while(V74!=Cnil) |
while(V72!=Cnil) |
641 |
{vs_push((V74)->c.c_car);V74=(V74)->c.c_cdr;} |
{vs_push((V72)->c.c_car);V72=(V72)->c.c_cdr;} |
642 |
vs_base=base+6;} |
vs_base=base+6;} |
643 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
644 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
649 |
return; |
return; |
650 |
goto T152; |
goto T152; |
651 |
T152:; |
T152:; |
652 |
{register object V75; |
{register object V73; |
653 |
V75= (base[2]->c.c_car); |
V73= (base[2]->c.c_car); |
654 |
base[4]= Cnil; |
base[4]= Cnil; |
655 |
base[5]= Ct; |
base[5]= Ct; |
656 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
664 |
goto T149; |
goto T149; |
665 |
} |
} |
666 |
} |
} |
667 |
/* local entry for function progn 'compile2822 */ |
/* local entry for function progn 'compile2829 */ |
668 |
|
|
669 |
static object LI15() |
static object LI15() |
670 |
|
|
672 |
goto TTL; |
goto TTL; |
673 |
TTL:; |
TTL:; |
674 |
(void)((*(LnkLI31))()); |
(void)((*(LnkLI31))()); |
675 |
{object V76 = Cnil; |
{object V74 = Cnil; |
676 |
VMR15(V76)} |
VMR15(V74)} |
677 |
return Cnil; |
return Cnil; |
678 |
} |
} |
679 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
683 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
684 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
685 |
vs_check; |
vs_check; |
686 |
{register object V77; |
{register object V75; |
687 |
V77=(base[0]); |
V75=(base[0]); |
688 |
vs_top=sup; |
vs_top=sup; |
689 |
base[1]= (V77); |
base[1]= (V75); |
690 |
base[2]= VV[23]; |
base[2]= VV[23]; |
691 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
692 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
701 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
702 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
703 |
vs_check; |
vs_check; |
704 |
{register object V78; |
{register object V76; |
705 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
706 |
{object *p=vs_top; |
{object *p=vs_top; |
707 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
708 |
V78=(base[0]); |
V76=(base[0]); |
709 |
vs_top=sup; |
vs_top=sup; |
710 |
(base0[1]->c.c_car)= (V78); |
(base0[1]->c.c_car)= (V76); |
711 |
{frame_ptr fr; |
{frame_ptr fr; |
712 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
713 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[25]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[25]); |
722 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
723 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
724 |
vs_check; |
vs_check; |
725 |
{register object V79; |
{register object V77; |
726 |
V79=(base[0]); |
V77=(base[0]); |
727 |
vs_top=sup; |
vs_top=sup; |
728 |
base[1]= (V79); |
base[1]= (V77); |
729 |
base[2]= VV[20]; |
base[2]= VV[20]; |
730 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
731 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
740 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
741 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
742 |
vs_check; |
vs_check; |
743 |
{register object V80; |
{register object V78; |
744 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
745 |
{object *p=vs_top; |
{object *p=vs_top; |
746 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
747 |
V80=(base[0]); |
V78=(base[0]); |
748 |
vs_top=sup; |
vs_top=sup; |
749 |
(base0[1]->c.c_car)= (V80); |
(base0[1]->c.c_car)= (V78); |
750 |
{frame_ptr fr; |
{frame_ptr fr; |
751 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
752 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[22]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[22]); |
761 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
762 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
763 |
vs_check; |
vs_check; |
764 |
{register object V81; |
{register object V79; |
765 |
V81=(base[0]); |
V79=(base[0]); |
766 |
vs_top=sup; |
vs_top=sup; |
767 |
base[1]= (V81); |
base[1]= (V79); |
768 |
base[2]= VV[16]; |
base[2]= VV[16]; |
769 |
base[3]= CMPcar((base0[2]->c.c_car)); |
base[3]= CMPcar((base0[2]->c.c_car)); |
770 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
779 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
780 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
781 |
vs_check; |
vs_check; |
782 |
{register object V82; |
{register object V80; |
783 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
784 |
{object *p=vs_top; |
{object *p=vs_top; |
785 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
786 |
V82=(base[0]); |
V80=(base[0]); |
787 |
vs_top=sup; |
vs_top=sup; |
788 |
(base0[1]->c.c_car)= (V82); |
(base0[1]->c.c_car)= (V80); |
789 |
{frame_ptr fr; |
{frame_ptr fr; |
790 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
791 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[19]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[19]); |
800 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
801 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
802 |
vs_check; |
vs_check; |
803 |
{register object V83; |
{register object V81; |
804 |
V83=(base[0]); |
V81=(base[0]); |
805 |
vs_top=sup; |
vs_top=sup; |
806 |
base[1]= (V83); |
base[1]= (V81); |
807 |
base[2]= VV[11]; |
base[2]= VV[11]; |
808 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
809 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
818 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
819 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
820 |
vs_check; |
vs_check; |
821 |
{register object V84; |
{register object V82; |
822 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
823 |
{object *p=vs_top; |
{object *p=vs_top; |
824 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
825 |
V84=(base[0]); |
V82=(base[0]); |
826 |
vs_top=sup; |
vs_top=sup; |
827 |
(base0[1]->c.c_car)= (V84); |
(base0[1]->c.c_car)= (V82); |
828 |
{frame_ptr fr; |
{frame_ptr fr; |
829 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
830 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[15]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[15]); |