53 |
VMR3(V3)} |
VMR3(V3)} |
54 |
return Cnil; |
return Cnil; |
55 |
} |
} |
56 |
/* function definition for INSTALL-SYMBOL */ |
/* local entry for function INSTALL-SYMBOL */ |
57 |
|
|
58 |
static void L4() |
static object LI4(V6,V7) |
59 |
{register object *base=vs_base; |
|
60 |
register object *sup=base+VM4; VC4 |
register object V6;object V7; |
61 |
vs_reserve(VM4); |
{ VMB4 VMS4 VMV4 |
|
{register object V4; |
|
|
object V5; |
|
|
check_arg(2); |
|
|
V4=(base[0]); |
|
|
V5=(base[1]); |
|
|
vs_top=sup; |
|
62 |
goto TTL; |
goto TTL; |
63 |
TTL:; |
TTL:; |
64 |
if((get((V4),VV[2],Cnil))!=Cnil){ |
if((get((V6),VV[2],Cnil))!=Cnil){ |
65 |
goto T9;} |
goto T9;} |
66 |
base[2]= (V4); |
base[0]= (V6); |
67 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
68 |
Lsymbol_function(); |
Lsymbol_function(); |
69 |
vs_top=sup; |
vs_top=sup; |
70 |
V6= vs_base[0]; |
V8= vs_base[0]; |
71 |
(void)(sputprop((V4),VV[2],V6)); |
(void)(sputprop((V6),VV[2],V8)); |
72 |
goto T9; |
goto T9; |
73 |
T9:; |
T9:; |
74 |
base[2]= (V4); |
base[0]= (V6); |
75 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
76 |
Lsymbol_function(); |
Lsymbol_function(); |
77 |
vs_top=sup; |
vs_top=sup; |
78 |
V7= vs_base[0]; |
V9= vs_base[0]; |
79 |
base[2]= (V5); |
base[0]= (V7); |
80 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
81 |
Lsymbol_function(); |
Lsymbol_function(); |
82 |
vs_top=sup; |
vs_top=sup; |
83 |
V8= vs_base[0]; |
V10= vs_base[0]; |
84 |
if((V7)==(V8)){ |
if((V9)==(V10)){ |
85 |
goto T15;} |
goto T15;} |
86 |
base[2]= (V4); |
base[0]= (V6); |
87 |
base[4]= (V5); |
base[2]= (V7); |
88 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+2)+1; |
89 |
Lsymbol_function(); |
Lsymbol_function(); |
90 |
vs_top=sup; |
vs_top=sup; |
91 |
base[3]= vs_base[0]; |
base[1]= vs_base[0]; |
92 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+0)+2; |
93 |
siLfset(); |
siLfset(); |
94 |
return; |
vs_top=sup; |
95 |
|
{object V11 = vs_base[0]; |
96 |
|
VMR4(V11)} |
97 |
goto T15; |
goto T15; |
98 |
T15:; |
T15:; |
99 |
base[2]= Cnil; |
{object V12 = Cnil; |
100 |
vs_top=(vs_base=base+2)+1; |
VMR4(V12)} |
101 |
return; |
base[0]=base[0]; |
102 |
} |
return Cnil; |
103 |
} |
} |
104 |
/* function definition for REVERT-SYMBOL */ |
/* local entry for function REVERT-SYMBOL */ |
105 |
|
|
106 |
static void L5() |
static object LI5(V14) |
107 |
{register object *base=vs_base; |
|
108 |
register object *sup=base+VM5; VC5 |
register object V14; |
109 |
vs_reserve(VM5); |
{ VMB5 VMS5 VMV5 |
|
{register object V9; |
|
|
check_arg(1); |
|
|
V9=(base[0]); |
|
|
vs_top=sup; |
|
110 |
goto TTL; |
goto TTL; |
111 |
TTL:; |
TTL:; |
112 |
if((get((V9),VV[2],Cnil))==Cnil){ |
if((get((V14),VV[2],Cnil))==Cnil){ |
113 |
goto T25;} |
goto T25;} |
114 |
base[1]= (V9); |
base[0]= (V14); |
115 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
116 |
Lsymbol_function(); |
Lsymbol_function(); |
117 |
vs_top=sup; |
vs_top=sup; |
118 |
V10= vs_base[0]; |
V15= vs_base[0]; |
119 |
V11= get((V9),VV[2],Cnil); |
V16= get((V14),VV[2],Cnil); |
120 |
if((V10)==(V11)){ |
if((V15)==(V16)){ |
121 |
goto T25;} |
goto T25;} |
122 |
base[1]= (V9); |
base[0]= (V14); |
123 |
base[2]= get((V9),VV[2],Cnil); |
base[1]= get((V14),VV[2],Cnil); |
124 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
125 |
siLfset(); |
siLfset(); |
126 |
return; |
vs_top=sup; |
127 |
|
{object V17 = vs_base[0]; |
128 |
|
VMR5(V17)} |
129 |
goto T25; |
goto T25; |
130 |
T25:; |
T25:; |
131 |
base[1]= Cnil; |
{object V18 = Cnil; |
132 |
vs_top=(vs_base=base+1)+1; |
VMR5(V18)} |
133 |
return; |
base[0]=base[0]; |
134 |
} |
return Cnil; |
135 |
} |
} |
136 |
/* local entry for function progn 'compile2266 */ |
/* local entry for function progn 'compile2266 */ |
137 |
|
|
144 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
145 |
(void) (*Lnk26)(); |
(void) (*Lnk26)(); |
146 |
vs_top=sup; |
vs_top=sup; |
147 |
{object V12 = Cnil; |
{object V19 = Cnil; |
148 |
VMR6(V12)} |
VMR6(V19)} |
149 |
base[0]=base[0]; |
base[0]=base[0]; |
150 |
return Cnil; |
return Cnil; |
151 |
} |
} |
166 |
goto T37; |
goto T37; |
167 |
T37:; |
T37:; |
168 |
base[1]= symbol_value(VV[0]); |
base[1]= symbol_value(VV[0]); |
169 |
{object V14; |
{object V21; |
170 |
object V15= base[1]; |
object V22= base[1]; |
171 |
if(endp(V15)){ |
if(endp(V22)){ |
172 |
V13= Cnil; |
V20= Cnil; |
173 |
goto T41;} |
goto T41;} |
174 |
base[0]=V14=MMcons(Cnil,Cnil); |
base[0]=V21=MMcons(Cnil,Cnil); |
175 |
goto T42; |
goto T42; |
176 |
T42:; |
T42:; |
177 |
base[2]= symbol_name((V15->c.c_car)); |
base[2]= symbol_name((V22->c.c_car)); |
178 |
base[3]= VV[4]; |
base[3]= VV[4]; |
179 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
180 |
Lintern(); |
Lintern(); |
181 |
vs_top=sup; |
vs_top=sup; |
182 |
V17= vs_base[0]; |
V24= vs_base[0]; |
183 |
(V14->c.c_car)= list(2,V17,(V15->c.c_car)); |
(V21->c.c_car)= list(2,V24,(V22->c.c_car)); |
184 |
V15=MMcdr(V15); |
V22=MMcdr(V22); |
185 |
if(endp(V15)){ |
if(endp(V22)){ |
186 |
V13= base[0]; |
V20= base[0]; |
187 |
goto T41;} |
goto T41;} |
188 |
V14=MMcdr(V14)=MMcons(Cnil,Cnil); |
V21=MMcdr(V21)=MMcons(Cnil,Cnil); |
189 |
goto T42;} |
goto T42;} |
190 |
goto T41; |
goto T41; |
191 |
T41:; |
T41:; |
192 |
setq(VV[3],nconc(V13,VV[5])); |
setq(VV[3],nconc(V20,VV[5])); |
193 |
goto T36; |
goto T36; |
194 |
T36:; |
T36:; |
195 |
{object V18 = Cnil; |
{object V25 = Cnil; |
196 |
VMR7(V18)} |
VMR7(V25)} |
197 |
base[0]=base[0]; |
base[0]=base[0]; |
198 |
return Cnil; |
return Cnil; |
199 |
} |
} |
204 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
205 |
goto TTL; |
goto TTL; |
206 |
TTL:; |
TTL:; |
207 |
{object V19 = Cnil; |
{object V26 = Cnil; |
208 |
VMR8(V19)} |
VMR8(V26)} |
209 |
return Cnil; |
return Cnil; |
210 |
} |
} |
211 |
/* function definition for INSTALL-CLCS-SYMBOLS */ |
/* local entry for function INSTALL-CLCS-SYMBOLS */ |
212 |
|
|
213 |
static void L9() |
static object LI9() |
214 |
{register object *base=vs_base; |
|
215 |
register object *sup=base+VM9; VC9 |
{ VMB9 VMS9 VMV9 |
|
vs_reserve(VM9); |
|
|
check_arg(0); |
|
|
vs_top=sup; |
|
216 |
goto TTL; |
goto TTL; |
217 |
TTL:; |
TTL:; |
218 |
{register object V20; |
{register object V27; |
219 |
register object V21; |
register object V28; |
220 |
V20= symbol_value(VV[3]); |
V27= symbol_value(VV[3]); |
221 |
V21= car((V20)); |
V28= car((V27)); |
222 |
goto T52; |
goto T52; |
223 |
T52:; |
T52:; |
224 |
if(!(endp_prop((V20)))){ |
if(!(endp_prop((V27)))){ |
225 |
goto T53;} |
goto T53;} |
226 |
goto T48; |
goto T48; |
227 |
goto T53; |
goto T53; |
228 |
T53:; |
T53:; |
229 |
base[1]= car((V21)); |
(void)((*(LnkLI27))(car((V28)),cadr((V28)))); |
230 |
base[2]= cadr((V21)); |
V27= cdr((V27)); |
231 |
vs_top=(vs_base=base+1)+2; |
V28= car((V27)); |
|
(void) (*Lnk27)(); |
|
|
vs_top=sup; |
|
|
V20= cdr((V20)); |
|
|
V21= car((V20)); |
|
232 |
goto T52;} |
goto T52;} |
233 |
goto T48; |
goto T48; |
234 |
T48:; |
T48:; |
235 |
base[0]= Cnil; |
{object V29 = Cnil; |
236 |
vs_top=(vs_base=base+0)+1; |
VMR9(V29)} |
237 |
return; |
base[0]=base[0]; |
238 |
|
return Cnil; |
239 |
} |
} |
240 |
/* function definition for REVERT-CLCS-SYMBOLS */ |
/* local entry for function REVERT-CLCS-SYMBOLS */ |
241 |
|
|
242 |
static void L10() |
static object LI10() |
243 |
{register object *base=vs_base; |
|
244 |
register object *sup=base+VM10; VC10 |
{ VMB10 VMS10 VMV10 |
|
vs_reserve(VM10); |
|
|
check_arg(0); |
|
|
vs_top=sup; |
|
245 |
goto TTL; |
goto TTL; |
246 |
TTL:; |
TTL:; |
247 |
{register object V22; |
{register object V30; |
248 |
register object V23; |
register object V31; |
249 |
V22= reverse(symbol_value(VV[3])); |
V30= reverse(symbol_value(VV[3])); |
250 |
V23= car((V22)); |
V31= car((V30)); |
251 |
goto T69; |
goto T67; |
252 |
T69:; |
T67:; |
253 |
if(!(endp_prop((V22)))){ |
if(!(endp_prop((V30)))){ |
254 |
goto T70;} |
goto T68;} |
255 |
goto T65; |
goto T63; |
256 |
goto T70; |
goto T68; |
257 |
T70:; |
T68:; |
258 |
base[2]= car((V23)); |
(void)((*(LnkLI28))(car((V31)))); |
259 |
vs_top=(vs_base=base+2)+1; |
V30= cdr((V30)); |
260 |
(void) (*Lnk28)(); |
V31= car((V30)); |
261 |
vs_top=sup; |
goto T67;} |
262 |
V22= cdr((V22)); |
goto T63; |
263 |
V23= car((V22)); |
T63:; |
264 |
goto T69;} |
{object V32 = Cnil; |
265 |
goto T65; |
VMR10(V32)} |
266 |
T65:; |
base[0]=base[0]; |
267 |
base[0]= Cnil; |
return Cnil; |
|
vs_top=(vs_base=base+0)+1; |
|
|
return; |
|
268 |
} |
} |
269 |
/* function definition for CLCS-COMPILE-FILE */ |
/* function definition for CLCS-COMPILE-FILE */ |
270 |
|
|
273 |
register object *VOL sup=base+VM11; VC11 |
register object *VOL sup=base+VM11; VC11 |
274 |
vs_reserve(VM11); |
vs_reserve(VM11); |
275 |
bds_check; |
bds_check; |
276 |
{VOL object V24; |
{VOL object V33; |
277 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
278 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
279 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
280 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
281 |
{object *p=vs_top; |
{object *p=vs_top; |
282 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
283 |
V24=(base[1]); |
V33=(base[1]); |
284 |
vs_top=sup; |
vs_top=sup; |
285 |
goto T82; |
goto T79; |
286 |
T82:; |
T79:; |
287 |
base[2]=MMcons(Cnil,base[0]); |
base[2]=MMcons(Cnil,base[0]); |
288 |
base[3]=alloc_frame_id(); |
base[3]=alloc_frame_id(); |
289 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
290 |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
291 |
if(nlj_active){ |
if(nlj_active){ |
292 |
nlj_active=FALSE; |
nlj_active=FALSE; |
293 |
if(eql(nlj_tag,VV[15]))goto T85; |
if(eql(nlj_tag,VV[15]))goto T82; |
294 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
295 |
} |
} |
296 |
base[5]= VV[7]; |
V34= |
|
base[6]= VV[8]; |
|
|
base[7]= VV[9]; |
|
|
base[8]= |
|
297 |
make_cclosure_new(LC16,Cnil,base[3],Cdata); |
make_cclosure_new(LC16,Cnil,base[3],Cdata); |
298 |
base[9]= VV[10]; |
V35= |
|
base[10]= |
|
299 |
make_cclosure_new(LC17,Cnil,base[3],Cdata); |
make_cclosure_new(LC17,Cnil,base[3],Cdata); |
300 |
vs_top=(vs_base=base+5)+6; |
V36= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V34,VV[10],V35)); |
301 |
(void) (*Lnk29)(); |
V37= make_cons(/* INLINE-ARGS */V36,Cnil); |
302 |
vs_top=sup; |
base[4]= make_cons(/* INLINE-ARGS */V37,symbol_value(VV[6])); |
|
V25= vs_base[0]; |
|
|
V26= make_cons(V25,Cnil); |
|
|
base[4]= make_cons(/* INLINE-ARGS */V26,symbol_value(VV[6])); |
|
303 |
bds_bind(VV[6],base[4]); |
bds_bind(VV[6],base[4]); |
304 |
{register object V27; |
{register object V38; |
305 |
{register object V28; |
{register object V39; |
306 |
V28= get(VV[12],VV[2],Cnil); |
V39= get(VV[12],VV[2],Cnil); |
307 |
if(((V28))==Cnil){ |
if(((V39))==Cnil){ |
308 |
goto T99;} |
goto T91;} |
309 |
base[5]= (V28); |
base[5]= (V39); |
310 |
goto T96; |
goto T88; |
311 |
goto T99; |
goto T91; |
312 |
T99:; |
T91:; |
313 |
base[5]= symbol_function(VV[12]);} |
base[5]= symbol_function(VV[12]);} |
314 |
goto T96; |
goto T88; |
315 |
T96:; |
T88:; |
316 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
317 |
{object V29; |
{object V40; |
318 |
V29= (V24); |
V40= (V33); |
319 |
vs_top=base+7; |
vs_top=base+7; |
320 |
while(!endp(V29)) |
while(!endp(V40)) |
321 |
{vs_push(car(V29));V29=cdr(V29);} |
{vs_push(car(V40));V40=cdr(V40);} |
322 |
vs_base=base+6;} |
vs_base=base+6;} |
323 |
{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)) |
324 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
326 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
327 |
Llist(); |
Llist(); |
328 |
vs_top=sup; |
vs_top=sup; |
329 |
V27= vs_base[0]; |
V38= vs_base[0]; |
330 |
if((symbol_value(VV[13]))!=Cnil){ |
if((symbol_value(VV[13]))!=Cnil){ |
331 |
goto T103;} |
goto T95;} |
332 |
base[5]= (V27); |
base[5]= (V38); |
333 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
334 |
Lvalues_list(); |
Lvalues_list(); |
335 |
frs_pop(); |
frs_pop(); |
336 |
bds_unwind1; |
bds_unwind1; |
337 |
return; |
return; |
338 |
goto T103; |
goto T95; |
339 |
T103:; |
T95:; |
340 |
base[5]= VV[14]; |
base[5]= VV[14]; |
341 |
base[6]= VV[12]; |
base[6]= VV[12]; |
342 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
344 |
vs_top=sup; |
vs_top=sup; |
345 |
frs_pop(); |
frs_pop(); |
346 |
bds_unwind1; |
bds_unwind1; |
347 |
goto T83;} |
goto T80;} |
348 |
goto T85; |
goto T82; |
349 |
T85:; |
T82:; |
350 |
{register object V30; |
{register object V41; |
351 |
V30= (base[2]->c.c_car); |
V41= (base[2]->c.c_car); |
352 |
ck_larg_exactly(0,(V30)); |
ck_larg_exactly(0,(V41)); |
353 |
base[4]= Cnil; |
base[4]= Cnil; |
354 |
base[5]= Ct; |
base[5]= Ct; |
355 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
356 |
vs_top=sup; |
vs_top=sup; |
357 |
frs_pop(); |
frs_pop(); |
358 |
goto T83;} |
goto T80;} |
359 |
frs_pop(); |
frs_pop(); |
360 |
goto T83; |
goto T80; |
361 |
goto T83; |
goto T80; |
362 |
T83:; |
T80:; |
363 |
goto T82; |
goto T79; |
364 |
} |
} |
365 |
} |
} |
366 |
/* function definition for CLCS-COMPILE */ |
/* function definition for CLCS-COMPILE */ |
375 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
376 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
377 |
vs_top=sup; |
vs_top=sup; |
378 |
goto T114; |
goto T106; |
379 |
T114:; |
T106:; |
380 |
base[1]=MMcons(Cnil,base[0]); |
base[1]=MMcons(Cnil,base[0]); |
381 |
base[2]=alloc_frame_id(); |
base[2]=alloc_frame_id(); |
382 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
383 |
frs_push(FRS_CATCH,(base[2]->c.c_car)); |
frs_push(FRS_CATCH,(base[2]->c.c_car)); |
384 |
if(nlj_active){ |
if(nlj_active){ |
385 |
nlj_active=FALSE; |
nlj_active=FALSE; |
386 |
if(eql(nlj_tag,VV[19]))goto T117; |
if(eql(nlj_tag,VV[19]))goto T109; |
387 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
388 |
} |
} |
389 |
base[4]= VV[7]; |
V42= |
|
base[5]= VV[8]; |
|
|
base[6]= VV[9]; |
|
|
base[7]= |
|
390 |
make_cclosure_new(LC18,Cnil,base[2],Cdata); |
make_cclosure_new(LC18,Cnil,base[2],Cdata); |
391 |
base[8]= VV[10]; |
V43= |
|
base[9]= |
|
392 |
make_cclosure_new(LC19,Cnil,base[2],Cdata); |
make_cclosure_new(LC19,Cnil,base[2],Cdata); |
393 |
vs_top=(vs_base=base+4)+6; |
V44= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V42,VV[10],V43)); |
394 |
(void) (*Lnk29)(); |
V45= make_cons(/* INLINE-ARGS */V44,Cnil); |
395 |
vs_top=sup; |
base[3]= make_cons(/* INLINE-ARGS */V45,symbol_value(VV[6])); |
|
V31= vs_base[0]; |
|
|
V32= make_cons(V31,Cnil); |
|
|
base[3]= make_cons(/* INLINE-ARGS */V32,symbol_value(VV[6])); |
|
396 |
bds_bind(VV[6],base[3]); |
bds_bind(VV[6],base[3]); |
397 |
{register object V33; |
{register object V46; |
398 |
{register object V34; |
{register object V47; |
399 |
V34= get(VV[17],VV[2],Cnil); |
V47= get(VV[17],VV[2],Cnil); |
400 |
if(((V34))==Cnil){ |
if(((V47))==Cnil){ |
401 |
goto T131;} |
goto T118;} |
402 |
base[4]= (V34); |
base[4]= (V47); |
403 |
goto T128; |
goto T115; |
404 |
goto T131; |
goto T118; |
405 |
T131:; |
T118:; |
406 |
base[4]= symbol_function(VV[12]);} |
base[4]= symbol_function(VV[12]);} |
407 |
goto T128; |
goto T115; |
408 |
T128:; |
T115:; |
409 |
{object V35; |
{object V48; |
410 |
V35= (base[0]->c.c_car); |
V48= (base[0]->c.c_car); |
411 |
vs_top=base+5; |
vs_top=base+5; |
412 |
while(!endp(V35)) |
while(!endp(V48)) |
413 |
{vs_push(car(V35));V35=cdr(V35);} |
{vs_push(car(V48));V48=cdr(V48);} |
414 |
vs_base=base+5;} |
vs_base=base+5;} |
415 |
{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)) |
416 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
418 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
419 |
Llist(); |
Llist(); |
420 |
vs_top=sup; |
vs_top=sup; |
421 |
V33= vs_base[0]; |
V46= vs_base[0]; |
422 |
if((symbol_value(VV[13]))!=Cnil){ |
if((symbol_value(VV[13]))!=Cnil){ |
423 |
goto T134;} |
goto T121;} |
424 |
base[4]= (V33); |
base[4]= (V46); |
425 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
426 |
Lvalues_list(); |
Lvalues_list(); |
427 |
frs_pop(); |
frs_pop(); |
428 |
bds_unwind1; |
bds_unwind1; |
429 |
return; |
return; |
430 |
goto T134; |
goto T121; |
431 |
T134:; |
T121:; |
432 |
base[4]= VV[18]; |
base[4]= VV[18]; |
433 |
base[5]= VV[17]; |
base[5]= VV[17]; |
434 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
436 |
vs_top=sup; |
vs_top=sup; |
437 |
frs_pop(); |
frs_pop(); |
438 |
bds_unwind1; |
bds_unwind1; |
439 |
goto T115;} |
goto T107;} |
440 |
goto T117; |
goto T109; |
441 |
T117:; |
T109:; |
442 |
{register object V36; |
{register object V49; |
443 |
V36= (base[1]->c.c_car); |
V49= (base[1]->c.c_car); |
444 |
ck_larg_exactly(0,(V36)); |
ck_larg_exactly(0,(V49)); |
445 |
base[3]= Cnil; |
base[3]= Cnil; |
446 |
base[4]= Ct; |
base[4]= Ct; |
447 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
448 |
vs_top=sup; |
vs_top=sup; |
449 |
frs_pop(); |
frs_pop(); |
450 |
goto T115;} |
goto T107;} |
451 |
frs_pop(); |
frs_pop(); |
452 |
goto T115; |
goto T107; |
453 |
goto T115; |
goto T107; |
454 |
T115:; |
T107:; |
455 |
goto T114; |
goto T106; |
456 |
} |
} |
457 |
/* function definition for CLCS-LOAD */ |
/* function definition for CLCS-LOAD */ |
458 |
|
|
461 |
register object *VOL sup=base+VM13; VC13 |
register object *VOL sup=base+VM13; VC13 |
462 |
vs_reserve(VM13); |
vs_reserve(VM13); |
463 |
bds_check; |
bds_check; |
464 |
{VOL object V37; |
{VOL object V50; |
465 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
466 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
467 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
468 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
469 |
{object *p=vs_top; |
{object *p=vs_top; |
470 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
471 |
V37=(base[1]); |
V50=(base[1]); |
472 |
vs_top=sup; |
vs_top=sup; |
473 |
goto T145; |
goto T132; |
474 |
T145:; |
T132:; |
475 |
base[2]=MMcons(Cnil,base[0]); |
base[2]=MMcons(Cnil,base[0]); |
476 |
base[3]=alloc_frame_id(); |
base[3]=alloc_frame_id(); |
477 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
478 |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
479 |
if(nlj_active){ |
if(nlj_active){ |
480 |
nlj_active=FALSE; |
nlj_active=FALSE; |
481 |
if(eql(nlj_tag,VV[22]))goto T148; |
if(eql(nlj_tag,VV[22]))goto T135; |
482 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
483 |
} |
} |
484 |
base[5]= VV[7]; |
V51= |
|
base[6]= VV[8]; |
|
|
base[7]= VV[9]; |
|
|
base[8]= |
|
485 |
make_cclosure_new(LC20,Cnil,base[3],Cdata); |
make_cclosure_new(LC20,Cnil,base[3],Cdata); |
486 |
base[9]= VV[10]; |
V52= |
|
base[10]= |
|
487 |
make_cclosure_new(LC21,Cnil,base[3],Cdata); |
make_cclosure_new(LC21,Cnil,base[3],Cdata); |
488 |
vs_top=(vs_base=base+5)+6; |
V53= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V51,VV[10],V52)); |
489 |
(void) (*Lnk29)(); |
V54= make_cons(/* INLINE-ARGS */V53,Cnil); |
490 |
vs_top=sup; |
base[4]= make_cons(/* INLINE-ARGS */V54,symbol_value(VV[6])); |
|
V38= vs_base[0]; |
|
|
V39= make_cons(V38,Cnil); |
|
|
base[4]= make_cons(/* INLINE-ARGS */V39,symbol_value(VV[6])); |
|
491 |
bds_bind(VV[6],base[4]); |
bds_bind(VV[6],base[4]); |
492 |
{register object V40; |
{register object V55; |
493 |
V40= get(VV[21],VV[2],Cnil); |
V55= get(VV[21],VV[2],Cnil); |
494 |
if(((V40))==Cnil){ |
if(((V55))==Cnil){ |
495 |
goto T160;} |
goto T142;} |
496 |
base[5]= (V40); |
base[5]= (V55); |
497 |
goto T157; |
goto T139; |
498 |
goto T160; |
goto T142; |
499 |
T160:; |
T142:; |
500 |
base[5]= symbol_function(VV[21]);} |
base[5]= symbol_function(VV[21]);} |
501 |
goto T157; |
goto T139; |
502 |
T157:; |
T139:; |
503 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
504 |
{object V41; |
{object V56; |
505 |
V41= (V37); |
V56= (V50); |
506 |
vs_top=base+7; |
vs_top=base+7; |
507 |
while(!endp(V41)) |
while(!endp(V56)) |
508 |
{vs_push(car(V41));V41=cdr(V41);} |
{vs_push(car(V56));V56=cdr(V56);} |
509 |
vs_base=base+6;} |
vs_base=base+6;} |
510 |
{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)) |
511 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
514 |
frs_pop(); |
frs_pop(); |
515 |
bds_unwind1; |
bds_unwind1; |
516 |
return; |
return; |
517 |
goto T148; |
goto T135; |
518 |
T148:; |
T135:; |
519 |
{register object V42; |
{register object V57; |
520 |
V42= (base[2]->c.c_car); |
V57= (base[2]->c.c_car); |
521 |
ck_larg_exactly(0,(V42)); |
ck_larg_exactly(0,(V57)); |
522 |
base[4]= Cnil; |
base[4]= Cnil; |
523 |
base[5]= Ct; |
base[5]= Ct; |
524 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
525 |
vs_top=sup; |
vs_top=sup; |
526 |
frs_pop(); |
frs_pop(); |
527 |
goto T146;} |
goto T133;} |
528 |
frs_pop(); |
frs_pop(); |
529 |
goto T146; |
goto T133; |
530 |
goto T146; |
goto T133; |
531 |
T146:; |
T133:; |
532 |
goto T145; |
goto T132; |
533 |
} |
} |
534 |
} |
} |
535 |
/* function definition for CLCS-OPEN */ |
/* function definition for CLCS-OPEN */ |
539 |
register object *VOL sup=base+VM14; VC14 |
register object *VOL sup=base+VM14; VC14 |
540 |
vs_reserve(VM14); |
vs_reserve(VM14); |
541 |
bds_check; |
bds_check; |
542 |
{VOL object V43; |
{VOL object V58; |
543 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
544 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
545 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
546 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
547 |
{object *p=vs_top; |
{object *p=vs_top; |
548 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
549 |
V43=(base[1]); |
V58=(base[1]); |
550 |
vs_top=sup; |
vs_top=sup; |
551 |
goto T169; |
goto T151; |
552 |
T169:; |
T151:; |
553 |
base[2]=MMcons(Cnil,base[0]); |
base[2]=MMcons(Cnil,base[0]); |
554 |
base[3]=alloc_frame_id(); |
base[3]=alloc_frame_id(); |
555 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
556 |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
557 |
if(nlj_active){ |
if(nlj_active){ |
558 |
nlj_active=FALSE; |
nlj_active=FALSE; |
559 |
if(eql(nlj_tag,VV[25]))goto T172; |
if(eql(nlj_tag,VV[25]))goto T154; |
560 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
561 |
} |
} |
562 |
base[5]= VV[7]; |
V59= |
|
base[6]= VV[8]; |
|
|
base[7]= VV[9]; |
|
|
base[8]= |
|
563 |
make_cclosure_new(LC22,Cnil,base[3],Cdata); |
make_cclosure_new(LC22,Cnil,base[3],Cdata); |
564 |
base[9]= VV[10]; |
V60= |
|
base[10]= |
|
565 |
make_cclosure_new(LC23,Cnil,base[3],Cdata); |
make_cclosure_new(LC23,Cnil,base[3],Cdata); |
566 |
vs_top=(vs_base=base+5)+6; |
V61= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V59,VV[10],V60)); |
567 |
(void) (*Lnk29)(); |
V62= make_cons(/* INLINE-ARGS */V61,Cnil); |
568 |
vs_top=sup; |
base[4]= make_cons(/* INLINE-ARGS */V62,symbol_value(VV[6])); |
|
V44= vs_base[0]; |
|
|
V45= make_cons(V44,Cnil); |
|
|
base[4]= make_cons(/* INLINE-ARGS */V45,symbol_value(VV[6])); |
|
569 |
bds_bind(VV[6],base[4]); |
bds_bind(VV[6],base[4]); |
570 |
{register object V46; |
{register object V63; |
571 |
V46= get(VV[24],VV[2],Cnil); |
V63= get(VV[24],VV[2],Cnil); |
572 |
if(((V46))==Cnil){ |
if(((V63))==Cnil){ |
573 |
goto T184;} |
goto T161;} |
574 |
base[5]= (V46); |
base[5]= (V63); |
575 |
goto T181; |
goto T158; |
576 |
goto T184; |
goto T161; |
577 |
T184:; |
T161:; |
578 |
base[5]= symbol_function(VV[24]);} |
base[5]= symbol_function(VV[24]);} |
579 |
goto T181; |
goto T158; |
580 |
T181:; |
T158:; |
581 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
582 |
{object V47; |
{object V64; |
583 |
V47= (V43); |
V64= (V58); |
584 |
vs_top=base+7; |
vs_top=base+7; |
585 |
while(!endp(V47)) |
while(!endp(V64)) |
586 |
{vs_push(car(V47));V47=cdr(V47);} |
{vs_push(car(V64));V64=cdr(V64);} |
587 |
vs_base=base+6;} |
vs_base=base+6;} |
588 |
{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)) |
589 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
592 |
frs_pop(); |
frs_pop(); |
593 |
bds_unwind1; |
bds_unwind1; |
594 |
return; |
return; |
595 |
goto T172; |
goto T154; |
596 |
T172:; |
T154:; |
597 |
{register object V48; |
{register object V65; |
598 |
V48= (base[2]->c.c_car); |
V65= (base[2]->c.c_car); |
599 |
ck_larg_exactly(0,(V48)); |
ck_larg_exactly(0,(V65)); |
600 |
base[4]= Cnil; |
base[4]= Cnil; |
601 |
base[5]= Ct; |
base[5]= Ct; |
602 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
603 |
vs_top=sup; |
vs_top=sup; |
604 |
frs_pop(); |
frs_pop(); |
605 |
goto T170;} |
goto T152;} |
606 |
frs_pop(); |
frs_pop(); |
607 |
goto T170; |
goto T152; |
608 |
goto T170; |
goto T152; |
609 |
T170:; |
T152:; |
610 |
goto T169; |
goto T151; |
611 |
} |
} |
612 |
} |
} |
613 |
/* local entry for function progn 'compile2835 */ |
/* local entry for function progn 'compile2835 */ |
617 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
618 |
goto TTL; |
goto TTL; |
619 |
TTL:; |
TTL:; |
620 |
vs_base=vs_top; |
(void)((*(LnkLI31))()); |
621 |
(void) (*Lnk31)(); |
{object V66 = Cnil; |
622 |
vs_top=sup; |
VMR15(V66)} |
|
{object V49 = Cnil; |
|
|
VMR15(V49)} |
|
|
base[0]=base[0]; |
|
623 |
return Cnil; |
return Cnil; |
624 |
} |
} |
625 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
629 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
630 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
631 |
vs_reserve(VM16); |
vs_reserve(VM16); |
632 |
{register object V50; |
{register object V67; |
633 |
check_arg(1); |
check_arg(1); |
634 |
V50=(base[0]); |
V67=(base[0]); |
635 |
vs_top=sup; |
vs_top=sup; |
636 |
base[1]= (V50); |
base[1]= (V67); |
637 |
base[2]= VV[23]; |
base[2]= VV[23]; |
638 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
639 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
648 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
649 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
650 |
vs_reserve(VM17); |
vs_reserve(VM17); |
651 |
{register object V51; |
{register object V68; |
652 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
653 |
{object *p=vs_top; |
{object *p=vs_top; |
654 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
655 |
V51=(base[0]); |
V68=(base[0]); |
656 |
vs_top=sup; |
vs_top=sup; |
657 |
(base0[1]->c.c_car)= (V51); |
(base0[1]->c.c_car)= (V68); |
658 |
{frame_ptr fr; |
{frame_ptr fr; |
659 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
660 |
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]); |
669 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
670 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
671 |
vs_reserve(VM18); |
vs_reserve(VM18); |
672 |
{register object V52; |
{register object V69; |
673 |
check_arg(1); |
check_arg(1); |
674 |
V52=(base[0]); |
V69=(base[0]); |
675 |
vs_top=sup; |
vs_top=sup; |
676 |
base[1]= (V52); |
base[1]= (V69); |
677 |
base[2]= VV[20]; |
base[2]= VV[20]; |
678 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
679 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
688 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
689 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
690 |
vs_reserve(VM19); |
vs_reserve(VM19); |
691 |
{register object V53; |
{register object V70; |
692 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
693 |
{object *p=vs_top; |
{object *p=vs_top; |
694 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
695 |
V53=(base[0]); |
V70=(base[0]); |
696 |
vs_top=sup; |
vs_top=sup; |
697 |
(base0[1]->c.c_car)= (V53); |
(base0[1]->c.c_car)= (V70); |
698 |
{frame_ptr fr; |
{frame_ptr fr; |
699 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
700 |
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]); |
709 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
710 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
711 |
vs_reserve(VM20); |
vs_reserve(VM20); |
712 |
{register object V54; |
{register object V71; |
713 |
check_arg(1); |
check_arg(1); |
714 |
V54=(base[0]); |
V71=(base[0]); |
715 |
vs_top=sup; |
vs_top=sup; |
716 |
base[1]= (V54); |
base[1]= (V71); |
717 |
base[2]= VV[16]; |
base[2]= VV[16]; |
718 |
base[3]= car((base0[2]->c.c_car)); |
base[3]= car((base0[2]->c.c_car)); |
719 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
728 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
729 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
730 |
vs_reserve(VM21); |
vs_reserve(VM21); |
731 |
{register object V55; |
{register object V72; |
732 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
733 |
{object *p=vs_top; |
{object *p=vs_top; |
734 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
735 |
V55=(base[0]); |
V72=(base[0]); |
736 |
vs_top=sup; |
vs_top=sup; |
737 |
(base0[1]->c.c_car)= (V55); |
(base0[1]->c.c_car)= (V72); |
738 |
{frame_ptr fr; |
{frame_ptr fr; |
739 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
740 |
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]); |
749 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
750 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
751 |
vs_reserve(VM22); |
vs_reserve(VM22); |
752 |
{register object V56; |
{register object V73; |
753 |
check_arg(1); |
check_arg(1); |
754 |
V56=(base[0]); |
V73=(base[0]); |
755 |
vs_top=sup; |
vs_top=sup; |
756 |
base[1]= (V56); |
base[1]= (V73); |
757 |
base[2]= VV[11]; |
base[2]= VV[11]; |
758 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
759 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
768 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
769 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
770 |
vs_reserve(VM23); |
vs_reserve(VM23); |
771 |
{register object V57; |
{register object V74; |
772 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
773 |
{object *p=vs_top; |
{object *p=vs_top; |
774 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
775 |
V57=(base[0]); |
V74=(base[0]); |
776 |
vs_top=sup; |
vs_top=sup; |
777 |
(base0[1]->c.c_car)= (V57); |
(base0[1]->c.c_car)= (V74); |
778 |
{frame_ptr fr; |
{frame_ptr fr; |
779 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
780 |
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]); |
782 |
unwind(fr,VV[15]);} |
unwind(fr,VV[15]);} |
783 |
} |
} |
784 |
} |
} |
785 |
static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* INSTALL-CLCS-SYMBOLS */ |
static object LnkTLI31(){return call_proc0(VV[31],(void **)&LnkLI31);} /* INSTALL-CLCS-SYMBOLS */ |
786 |
static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ERROR */ |
static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ERROR */ |
787 |
static void LnkT29(){ call_or_link(VV[29],(void **)&Lnk29);} /* MAKE-RESTART */ |
static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)&LnkLI29,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
788 |
static void LnkT28(){ call_or_link(VV[28],(void **)&Lnk28);} /* REVERT-SYMBOL */ |
static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[28],(void **)&LnkLI28,1,first,ap);va_end(ap);return V1;} /* REVERT-SYMBOL */ |
789 |
static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* INSTALL-SYMBOL */ |
static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INSTALL-SYMBOL */ |
790 |
static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* *MAKE-SPECIAL */ |
static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* *MAKE-SPECIAL */ |
791 |
|
|
792 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |