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