107 |
VMR6(V6)} |
VMR6(V6)} |
108 |
return Cnil; |
return Cnil; |
109 |
} |
} |
110 |
/* function definition for UNIQUE-ID */ |
/* local entry for function UNIQUE-ID */ |
111 |
|
|
112 |
static void L7() |
static object LI7(V8) |
113 |
{register object *base=vs_base; |
|
114 |
register object *sup=base+VM7; VC7 |
object V8; |
115 |
vs_reserve(VM7); |
{ VMB7 VMS7 VMV7 |
|
{object V7; |
|
|
check_arg(1); |
|
|
V7=(base[0]); |
|
|
vs_top=sup; |
|
116 |
goto TTL; |
goto TTL; |
117 |
TTL:;{object V8; |
TTL:;{object V9; |
118 |
base[1]= (V7); |
base[0]= (V8); |
119 |
base[2]= symbol_value(VV[0]); |
base[1]= symbol_value(VV[0]); |
120 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
121 |
Lgethash(); |
Lgethash(); |
122 |
vs_top=sup; |
vs_top=sup; |
123 |
V8= vs_base[0]; |
V9= vs_base[0]; |
124 |
if(V8==Cnil)goto T17; |
if(V9==Cnil)goto T17; |
125 |
base[1]= V8; |
{object V10 = V9; |
126 |
vs_top=(vs_base=base+1)+1; |
VMR7(V10)} |
|
return; |
|
127 |
goto T17; |
goto T17; |
128 |
T17:;} |
T17:;} |
129 |
{object V10; |
{object V12; |
130 |
object V11; |
object V13; |
131 |
V10= symbol_value(VV[0]); |
V12= symbol_value(VV[0]); |
132 |
setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1))); |
setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1))); |
133 |
V11= symbol_value(VV[1]); |
V13= symbol_value(VV[1]); |
134 |
base[2]= V7; |
base[1]= V8; |
135 |
base[3]= (V10); |
base[2]= (V12); |
136 |
base[4]= (V11); |
base[3]= (V13); |
137 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+1)+3; |
138 |
siLhash_set(); |
siLhash_set(); |
139 |
return;} |
vs_top=sup; |
140 |
} |
{object V14 = vs_base[0]; |
141 |
|
VMR7(V14)}} |
142 |
|
base[0]=base[0]; |
143 |
|
return Cnil; |
144 |
} |
} |
145 |
/* function definition for PARSE-KEYWORD-PAIRS */ |
/* function definition for PARSE-KEYWORD-PAIRS */ |
146 |
|
|
148 |
{register object *base=vs_base; |
{register object *base=vs_base; |
149 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
150 |
vs_reserve(VM8); |
vs_reserve(VM8); |
151 |
{object V12; |
{object V15; |
152 |
register object V13; |
register object V16; |
153 |
check_arg(2); |
check_arg(2); |
154 |
V12=(base[0]); |
V15=(base[0]); |
155 |
V13=(base[1]); |
V16=(base[1]); |
156 |
vs_top=sup; |
vs_top=sup; |
157 |
goto TTL; |
goto TTL; |
158 |
TTL:; |
TTL:; |
159 |
{register object V14; |
{register object V17; |
160 |
register object V15; |
register object V18; |
161 |
V14= (V12); |
V17= (V15); |
162 |
V15= Cnil; |
V18= Cnil; |
163 |
goto T28; |
goto T28; |
164 |
T28:; |
T28:; |
165 |
if(((V14))==Cnil){ |
if(((V17))==Cnil){ |
166 |
goto T30;} |
goto T30;} |
167 |
{register object x= car((V14)),V16= (V13); |
{register object x= car((V17)),V19= (V16); |
168 |
while(!endp(V16)) |
while(!endp(V19)) |
169 |
if(eql(x,V16->c.c_car)){ |
if(eql(x,V19->c.c_car)){ |
170 |
goto T29; |
goto T29; |
171 |
}else V16=V16->c.c_cdr;} |
}else V19=V19->c.c_cdr;} |
172 |
goto T30; |
goto T30; |
173 |
T30:; |
T30:; |
174 |
base[2]= nreverse((V15)); |
base[2]= nreverse((V18)); |
175 |
base[3]= (V14); |
base[3]= (V17); |
176 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
177 |
return; |
return; |
178 |
goto T29; |
goto T29; |
179 |
T29:; |
T29:; |
180 |
{object V17; |
{object V20; |
181 |
V17= cddr((V14)); |
V20= cddr((V17)); |
182 |
V15= listA(3,cadr((V14)),car((V14)),(V15)); |
V18= listA(3,cadr((V17)),car((V17)),(V18)); |
183 |
V14= (V17);} |
V17= (V20);} |
184 |
goto T28;} |
goto T28;} |
185 |
} |
} |
186 |
} |
} |
192 |
vs_reserve(VM9); |
vs_reserve(VM9); |
193 |
check_arg(2); |
check_arg(2); |
194 |
vs_top=sup; |
vs_top=sup; |
195 |
{object V18=base[0]->c.c_cdr; |
{object V21=base[0]->c.c_cdr; |
196 |
if(endp(V18))invalid_macro_call(); |
if(endp(V21))invalid_macro_call(); |
197 |
{object V19= (V18->c.c_car); |
{object V22= (V21->c.c_car); |
198 |
if(endp(V19))invalid_macro_call(); |
if(endp(V22))invalid_macro_call(); |
199 |
base[2]= (V19->c.c_car); |
base[2]= (V22->c.c_car); |
200 |
V19=V19->c.c_cdr; |
V22=V22->c.c_cdr; |
201 |
if(endp(V19))invalid_macro_call(); |
if(endp(V22))invalid_macro_call(); |
202 |
base[3]= (V19->c.c_car); |
base[3]= (V22->c.c_car); |
203 |
V19=V19->c.c_cdr; |
V22=V22->c.c_cdr; |
204 |
if(endp(V19)){ |
if(endp(V22)){ |
205 |
base[4]= Cnil; |
base[4]= Cnil; |
206 |
} else { |
} else { |
207 |
base[4]= (V19->c.c_car); |
base[4]= (V22->c.c_car); |
208 |
V19=V19->c.c_cdr;} |
V22=V22->c.c_cdr;} |
209 |
if(!endp(V19))invalid_macro_call();} |
if(!endp(V22))invalid_macro_call();} |
210 |
V18=V18->c.c_cdr; |
V21=V21->c.c_cdr; |
211 |
base[5]= V18;} |
base[5]= V21;} |
212 |
{register object V20; |
{register object V23; |
213 |
{register object x= VV[2],V21= base[2]; |
{register object x= VV[2],V24= base[2]; |
214 |
while(!endp(V21)) |
while(!endp(V24)) |
215 |
if(eql(x,V21->c.c_car)){ |
if(eql(x,V24->c.c_car)){ |
216 |
V20= V21; |
V23= V24; |
217 |
goto T42; |
goto T42; |
218 |
}else V21=V21->c.c_cdr; |
}else V24=V24->c.c_cdr; |
219 |
V20= Cnil;} |
V23= Cnil;} |
220 |
goto T42; |
goto T42; |
221 |
T42:; |
T42:; |
222 |
if(((long)length((V20)))==(2)){ |
if(((long)length((V23)))==(2)){ |
223 |
goto T43;} |
goto T43;} |
224 |
base[6]= VV[3]; |
base[6]= VV[3]; |
225 |
base[7]= (V20); |
base[7]= (V23); |
226 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
227 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
228 |
vs_top=sup; |
vs_top=sup; |
229 |
goto T43; |
goto T43; |
230 |
T43:; |
T43:; |
231 |
{object V22; |
{object V25; |
232 |
object V23; |
object V26; |
233 |
object V24; |
object V27; |
234 |
base[6]= base[2]; |
base[6]= base[2]; |
235 |
base[7]= (V20); |
base[7]= (V23); |
236 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
237 |
Lldiff(); |
Lldiff(); |
238 |
vs_top=sup; |
vs_top=sup; |
239 |
V22= vs_base[0]; |
V25= vs_base[0]; |
240 |
if(base[4]!=Cnil){ |
if(base[4]!=Cnil){ |
241 |
V23= base[4]; |
V26= base[4]; |
242 |
goto T51;} |
goto T51;} |
243 |
vs_base=vs_top; |
vs_base=vs_top; |
244 |
Lgensym(); |
Lgensym(); |
245 |
vs_top=sup; |
vs_top=sup; |
246 |
V23= vs_base[0]; |
V26= vs_base[0]; |
247 |
goto T51; |
goto T51; |
248 |
T51:; |
T51:; |
249 |
V24= cadr((V20)); |
V27= cadr((V23)); |
250 |
{object V25; |
{object V28; |
251 |
{object V26; |
{object V29; |
252 |
object V27= (V22); |
object V30= (V25); |
253 |
if(endp(V27)){ |
if(endp(V30)){ |
254 |
V25= Cnil; |
V28= Cnil; |
255 |
goto T53;} |
goto T53;} |
256 |
base[6]=V26=MMcons(Cnil,Cnil); |
base[6]=V29=MMcons(Cnil,Cnil); |
257 |
goto T54; |
goto T54; |
258 |
T54:; |
T54:; |
259 |
base[7]= coerce_to_string((V27->c.c_car)); |
base[7]= coerce_to_string((V30->c.c_car)); |
260 |
base[9]= VV[4]; |
base[9]= VV[4]; |
261 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
262 |
Lfind_package(); |
Lfind_package(); |
265 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
266 |
Lintern(); |
Lintern(); |
267 |
vs_top=sup; |
vs_top=sup; |
268 |
(V26->c.c_car)= vs_base[0]; |
(V29->c.c_car)= vs_base[0]; |
269 |
V27=MMcdr(V27); |
V30=MMcdr(V30); |
270 |
if(endp(V27)){ |
if(endp(V30)){ |
271 |
V25= base[6]; |
V28= base[6]; |
272 |
goto T53;} |
goto T53;} |
273 |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
V29=MMcdr(V29)=MMcons(Cnil,Cnil); |
274 |
goto T54;} |
goto T54;} |
275 |
goto T53; |
goto T53; |
276 |
T53:; |
T53:; |
277 |
V29= list(2,(V23),(V24)); |
V32= list(2,(V26),(V27)); |
278 |
V30= list(3,VV[6],base[3],list(2,VV[7],(V25))); |
V33= list(3,VV[6],base[3],list(2,VV[7],(V28))); |
279 |
{object V32; |
{object V35; |
280 |
object V33= (V22); |
object V36= (V25); |
281 |
object V34= (V25); |
object V37= (V28); |
282 |
if(endp(V33)||endp(V34)){ |
if(endp(V36)||endp(V37)){ |
283 |
V31= Cnil; |
V34= Cnil; |
284 |
goto T59;} |
goto T59;} |
285 |
base[6]=V32=MMcons(Cnil,Cnil); |
base[6]=V35=MMcons(Cnil,Cnil); |
286 |
goto T60; |
goto T60; |
287 |
T60:; |
T60:; |
288 |
(V32->c.c_car)= list(2,(V33->c.c_car),list(3,VV[9],(V23),(V34->c.c_car))); |
(V35->c.c_car)= list(2,(V36->c.c_car),list(3,VV[9],(V26),(V37->c.c_car))); |
289 |
V33=MMcdr(V33); |
V36=MMcdr(V36); |
290 |
V34=MMcdr(V34); |
V37=MMcdr(V37); |
291 |
if(endp(V33)||endp(V34)){ |
if(endp(V36)||endp(V37)){ |
292 |
V31= base[6]; |
V34= base[6]; |
293 |
goto T59;} |
goto T59;} |
294 |
V32=MMcdr(V32)=MMcons(Cnil,Cnil); |
V35=MMcdr(V35)=MMcons(Cnil,Cnil); |
295 |
goto T60;} |
goto T60;} |
296 |
goto T59; |
goto T59; |
297 |
T59:; |
T59:; |
298 |
base[6]= list(4,VV[5],/* INLINE-ARGS */V29,/* INLINE-ARGS */V30,listA(3,VV[8],V31,base[5])); |
base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5])); |
299 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
300 |
return;}}} |
return;}}} |
301 |
} |
} |
310 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
311 |
(void) (*Lnk69)(); |
(void) (*Lnk69)(); |
312 |
vs_top=sup; |
vs_top=sup; |
313 |
{object V37 = Cnil; |
{object V40 = Cnil; |
314 |
VMR10(V37)} |
VMR10(V40)} |
315 |
base[0]=base[0]; |
base[0]=base[0]; |
316 |
return Cnil; |
return Cnil; |
317 |
} |
} |
334 |
setq(VV[10],Cnil); |
setq(VV[10],Cnil); |
335 |
goto T64; |
goto T64; |
336 |
T64:; |
T64:; |
337 |
{object V38 = Cnil; |
{object V41 = Cnil; |
338 |
VMR11(V38)} |
VMR11(V41)} |
339 |
base[0]=base[0]; |
base[0]=base[0]; |
340 |
return Cnil; |
return Cnil; |
341 |
} |
} |
346 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
347 |
goto TTL; |
goto TTL; |
348 |
TTL:; |
TTL:; |
349 |
{object V39 = Cnil; |
{object V42 = Cnil; |
350 |
VMR12(V39)} |
VMR12(V42)} |
351 |
return Cnil; |
return Cnil; |
352 |
} |
} |
353 |
/* function definition for COMPUTE-RESTARTS */ |
/* local entry for function COMPUTE-RESTARTS */ |
354 |
|
|
355 |
static void L13() |
static object LI13(object first,...) |
356 |
{register object *base=vs_base; |
{ |
357 |
register object *sup=base+VM13; VC13 |
va_list ap; |
358 |
vs_reserve(VM13); |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
359 |
{object V40; |
{object V43; |
360 |
if(vs_top-vs_base>1) too_many_arguments(); |
Vcs[0]=Vcs[0]; |
361 |
if(vs_base>=vs_top){vs_top=sup;goto T70;} |
va_start(ap,first); |
362 |
V40=(base[0]); |
narg = narg - 0; |
363 |
vs_top=sup; |
if (narg <= 0) goto T70; |
364 |
goto T71; |
else { |
365 |
|
V43= first;} |
366 |
|
--narg; goto T71; |
367 |
goto T70; |
goto T70; |
368 |
T70:; |
T70:; |
369 |
V40= Cnil; |
V43= Cnil; |
370 |
goto T71; |
goto T71; |
371 |
T71:; |
T71:; |
372 |
base[2]= symbol_value(VV[10]); |
base[1]= symbol_value(VV[10]); |
373 |
{object V42; |
{object V45; |
374 |
object V43= base[2]; |
object V46= base[1]; |
375 |
if(endp(V43)){ |
if(endp(V46)){ |
376 |
V41= Cnil; |
V44= Cnil; |
377 |
goto T73;} |
goto T73;} |
378 |
base[1]=V42=MMcons(Cnil,Cnil); |
base[0]=V45=MMcons(Cnil,Cnil); |
379 |
goto T74; |
goto T74; |
380 |
T74:; |
T74:; |
381 |
base[3]= (V43->c.c_car); |
base[2]= (V46->c.c_car); |
382 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+2)+1; |
383 |
Lcopy_list(); |
Lcopy_list(); |
384 |
vs_top=sup; |
vs_top=sup; |
385 |
(V42->c.c_cdr)= vs_base[0]; |
(V45->c.c_cdr)= vs_base[0]; |
386 |
{object cdr_V42=MMcdr(V42);while(!endp(cdr_V42)) {cdr_V42=MMcdr(cdr_V42);V42=MMcdr(V42);}} |
{object cdr_V45=MMcdr(V45);while(!endp(cdr_V45)) {cdr_V45=MMcdr(cdr_V45);V45=MMcdr(V45);}} |
387 |
V43=MMcdr(V43); |
V46=MMcdr(V46); |
388 |
if(endp(V43)){ |
if(endp(V46)){ |
389 |
base[1]=base[1]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
390 |
V41= base[1]; |
V44= base[0]; |
391 |
goto T73;} |
goto T73;} |
392 |
goto T74;} |
goto T74;} |
393 |
goto T73; |
goto T73; |
394 |
T73:; |
T73:; |
395 |
vs_base=vs_top; |
V47= (*(LnkLI71))(); |
396 |
(void) (*Lnk71)(); |
{object V48 = nconc(V44,/* INLINE-ARGS */V47); |
397 |
vs_top=sup; |
VMR13(V48)} |
398 |
V44= vs_base[0]; |
va_end(ap); |
399 |
base[1]= nconc(V41,V44); |
base[0]=base[0]; |
400 |
vs_top=(vs_base=base+1)+1; |
return Cnil;} |
|
return; |
|
401 |
} |
} |
|
} |
|
402 |
/* function definition for RESTART-PRINT */ |
/* function definition for RESTART-PRINT */ |
403 |
|
|
404 |
static void L14() |
static void L14() |
405 |
{register object *base=vs_base; |
{register object *base=vs_base; |
406 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
407 |
vs_reserve(VM14); |
vs_reserve(VM14); |
408 |
{object V45; |
{object V49; |
409 |
object V46; |
object V50; |
410 |
object V47; |
object V51; |
411 |
check_arg(3); |
check_arg(3); |
412 |
V45=(base[0]); |
V49=(base[0]); |
413 |
V46=(base[1]); |
V50=(base[1]); |
414 |
V47=(base[2]); |
V51=(base[2]); |
415 |
vs_top=sup; |
vs_top=sup; |
416 |
goto TTL; |
goto TTL; |
417 |
TTL:; |
TTL:; |
418 |
if((symbol_value(VV[11]))==Cnil){ |
if((symbol_value(VV[11]))==Cnil){ |
419 |
goto T79;} |
goto T78;} |
420 |
base[3]= (V46); |
base[3]= (V50); |
421 |
base[4]= VV[12]; |
base[4]= VV[12]; |
422 |
base[6]= (V45); |
base[6]= (V49); |
423 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
424 |
Ltype_of(); |
Ltype_of(); |
425 |
vs_top=sup; |
vs_top=sup; |
426 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
427 |
base[7]= (V45); |
base[6]= (*(LnkLI72))((V49)); |
|
vs_top=(vs_base=base+7)+1; |
|
|
(void) (*Lnk72)(); |
|
|
vs_top=sup; |
|
|
base[6]= vs_base[0]; |
|
428 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
429 |
Lformat(); |
Lformat(); |
430 |
return; |
return; |
431 |
goto T79; |
goto T78; |
432 |
T79:; |
T78:; |
433 |
base[3]= (V45); |
base[3]= (V49); |
434 |
base[4]= (V46); |
base[4]= (V50); |
435 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
436 |
(void) (*Lnk73)(); |
(void) (*Lnk73)(); |
437 |
return; |
return; |
461 |
vs_top=(vs_base=base+0)+14; |
vs_top=(vs_base=base+0)+14; |
462 |
(void) (*Lnk74)(); |
(void) (*Lnk74)(); |
463 |
vs_top=sup; |
vs_top=sup; |
464 |
{object V48 = Cnil; |
{object V52 = Cnil; |
465 |
VMR15(V48)} |
VMR15(V52)} |
466 |
base[0]=base[0]; |
base[0]=base[0]; |
467 |
return Cnil; |
return Cnil; |
468 |
} |
} |
469 |
/* function definition for MAKE-RESTART */ |
/* local entry for function MAKE-RESTART */ |
470 |
|
|
471 |
static void L16() |
static object LI16(object first,...) |
472 |
{register object *base=vs_base; |
{ |
473 |
register object *sup=base+VM16; VC16 |
va_list ap; |
474 |
vs_reserve(VM16); |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
475 |
{object V49; |
{object V53; |
476 |
object V50; |
object V54; |
477 |
object V51; |
object V55; |
478 |
object V52; |
object V56; |
479 |
parse_key(vs_base,FALSE,FALSE,4,VV[21],VV[23],VV[24],VV[34]); |
Vcs[0]=Vcs[0]; |
480 |
vs_top=sup; |
va_start(ap,first); |
481 |
V49=(base[0]); |
narg= narg - 0; |
482 |
V50=(base[1]); |
{ |
483 |
V51=(base[2]); |
parse_key_new_new(narg,Vcs +0,(struct key *)&LI16key,first,ap); |
484 |
V52=(base[3]); |
V53=(Vcs[0]); |
485 |
base[8]= VV[13]; |
V54=(Vcs[1]); |
486 |
base[9]= (V49); |
V55=(Vcs[2]); |
487 |
base[10]= (V50); |
V56=(Vcs[3]); |
488 |
base[11]= (V51); |
base[0]= VV[13]; |
489 |
base[12]= (V52); |
base[1]= (V53); |
490 |
vs_top=(vs_base=base+8)+5; |
base[2]= (V54); |
491 |
|
base[3]= (V55); |
492 |
|
base[4]= (V56); |
493 |
|
vs_top=(vs_base=base+0)+5; |
494 |
siLmake_structure(); |
siLmake_structure(); |
495 |
return; |
vs_top=sup; |
496 |
} |
{object V57 = vs_base[0]; |
497 |
} |
VMR16(V57)} |
498 |
|
va_end(ap); |
499 |
|
base[0]=base[0]; |
500 |
|
return Cnil;} |
501 |
|
}} |
502 |
/* local entry for function progn 'compile2433 */ |
/* local entry for function progn 'compile2433 */ |
503 |
|
|
504 |
static object LI17() |
static object LI17() |
506 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
507 |
goto TTL; |
goto TTL; |
508 |
TTL:; |
TTL:; |
509 |
{object V53 = Cnil; |
{object V58 = Cnil; |
510 |
VMR17(V53)} |
VMR17(V58)} |
511 |
return Cnil; |
return Cnil; |
512 |
} |
} |
513 |
/* local entry for function progn 'compile2449 */ |
/* local entry for function progn 'compile2449 */ |
521 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
522 |
(void) (*Lnk69)(); |
(void) (*Lnk69)(); |
523 |
vs_top=sup; |
vs_top=sup; |
524 |
{object V54 = Cnil; |
{object V59 = Cnil; |
525 |
VMR18(V54)} |
VMR18(V59)} |
526 |
base[0]=base[0]; |
base[0]=base[0]; |
527 |
return Cnil; |
return Cnil; |
528 |
} |
} |
538 |
Lboundp(); |
Lboundp(); |
539 |
vs_top=sup; |
vs_top=sup; |
540 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
541 |
goto T113;} |
goto T111;} |
542 |
goto T112; |
goto T110; |
543 |
goto T113; |
goto T111; |
544 |
T113:; |
T111:; |
545 |
setq(VV[20],Cnil); |
setq(VV[20],Cnil); |
546 |
goto T112; |
goto T110; |
547 |
T112:; |
T110:; |
548 |
{object V55 = Cnil; |
{object V60 = Cnil; |
549 |
VMR19(V55)} |
VMR19(V60)} |
550 |
base[0]=base[0]; |
base[0]=base[0]; |
551 |
return Cnil; |
return Cnil; |
552 |
} |
} |
557 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
558 |
goto TTL; |
goto TTL; |
559 |
TTL:; |
TTL:; |
560 |
{object V56 = Cnil; |
{object V61 = Cnil; |
561 |
VMR20(V56)} |
VMR20(V61)} |
562 |
return Cnil; |
return Cnil; |
563 |
} |
} |
564 |
/* function definition for MAKE-KCL-TOP-RESTART */ |
/* local entry for function MAKE-KCL-TOP-RESTART */ |
565 |
|
|
566 |
static void L21() |
static object LI22(V63) |
567 |
{register object *base=vs_base; |
|
568 |
register object *sup=base+VM21; VC21 |
object V63; |
569 |
vs_reserve(VM21); |
{ VMB21 VMS21 VMV21 |
570 |
check_arg(1); |
goto TTL; |
571 |
base[0]=MMcons(base[0],Cnil); |
TTL:; |
572 |
vs_top=sup; |
base[0]=MMcons((V63),Cnil); |
573 |
base[1]= VV[21]; |
V64= |
|
base[2]= VV[22]; |
|
|
base[3]= VV[23]; |
|
|
base[4]= |
|
|
make_cclosure_new(LC37,Cnil,base[0],Cdata); |
|
|
base[5]= VV[24]; |
|
|
base[6]= |
|
574 |
make_cclosure_new(LC38,Cnil,base[0],Cdata); |
make_cclosure_new(LC38,Cnil,base[0],Cdata); |
575 |
base[7]= VV[34]; |
V65= |
576 |
base[8]= Cnil; |
make_cclosure_new(LC39,Cnil,base[0],Cdata); |
577 |
vs_top=(vs_base=base+1)+8; |
{object V66 = (VFUN_NARGS=8,(*(LnkLI39))(VV[21],VV[22],VV[23],V64,VV[24],V65,VV[34],Cnil)); |
578 |
(void) (*Lnk39)(); |
VMR21(V66)} |
579 |
return; |
base[0]=base[0]; |
580 |
|
return Cnil; |
581 |
} |
} |
582 |
/* function definition for FIND-KCL-TOP-RESTART */ |
/* local entry for function FIND-KCL-TOP-RESTART */ |
583 |
|
|
584 |
static void L22() |
static object LI23(V68) |
585 |
{register object *base=vs_base; |
|
586 |
register object *sup=base+VM22; VC22 |
object V68; |
587 |
vs_reserve(VM22); |
{ VMB22 VMS22 VMV22 |
|
{object V57; |
|
|
check_arg(1); |
|
|
V57=(base[0]); |
|
|
vs_top=sup; |
|
588 |
goto TTL; |
goto TTL; |
589 |
TTL:;{object V59; |
TTL:;{object V70; |
590 |
{register object x= (V57),V60= symbol_value(VV[20]); |
{register object x= (V68),V71= symbol_value(VV[20]); |
591 |
while(!endp(V60)) |
while(!endp(V71)) |
592 |
if(type_of(V60->c.c_car)==t_cons &&eql(x,V60->c.c_car->c.c_car)){ |
if(type_of(V71->c.c_car)==t_cons &&eql(x,V71->c.c_car->c.c_car)){ |
593 |
V59= (V60->c.c_car); |
V70= (V71->c.c_car); |
594 |
goto T128; |
goto T120; |
595 |
}else V60=V60->c.c_cdr; |
}else V71=V71->c.c_cdr; |
596 |
V59= Cnil;} |
V70= Cnil;} |
597 |
goto T128; |
goto T120; |
598 |
T128:; |
T120:; |
599 |
if(V59==Cnil)goto T127; |
if(V70==Cnil)goto T119; |
600 |
V58= V59; |
V69= V70; |
601 |
goto T126; |
goto T118; |
602 |
goto T127; |
goto T119; |
603 |
T127:;} |
T119:;} |
604 |
{object V62; |
{object V73; |
605 |
base[2]= (V57); |
V74= (*(LnkLI75))((V68)); |
606 |
vs_top=(vs_base=base+2)+1; |
V73= make_cons((V68),/* INLINE-ARGS */V74); |
607 |
(void) (*Lnk75)(); |
setq(VV[20],make_cons((V73),symbol_value(VV[20]))); |
608 |
vs_top=sup; |
V72= symbol_value(VV[20]);} |
609 |
V63= vs_base[0]; |
V69= car(V72); |
610 |
V62= make_cons((V57),V63); |
goto T118; |
611 |
setq(VV[20],make_cons((V62),symbol_value(VV[20]))); |
T118:; |
612 |
V61= symbol_value(VV[20]);} |
{object V75 = cdr(V69); |
613 |
V58= car(V61); |
VMR22(V75)} |
614 |
goto T126; |
base[0]=base[0]; |
615 |
T126:; |
return Cnil; |
|
base[1]= cdr(V58); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
} |
|
616 |
} |
} |
617 |
/* function definition for KCL-TOP-RESTARTS */ |
/* local entry for function KCL-TOP-RESTARTS */ |
618 |
|
|
619 |
static void L23() |
static object LI24() |
620 |
{register object *base=vs_base; |
|
621 |
register object *sup=base+VM23; VC23 |
{ VMB23 VMS23 VMV23 |
|
vs_reserve(VM23); |
|
|
check_arg(0); |
|
|
vs_top=sup; |
|
622 |
goto TTL; |
goto TTL; |
623 |
TTL:; |
TTL:; |
624 |
{object V64; |
{object V76; |
625 |
object V65; |
object V77; |
626 |
object V66; |
object V78; |
627 |
base[4]= symbol_value(VV[27]); |
base[4]= symbol_value(VV[27]); |
628 |
{object V67; |
{object V79; |
629 |
object V68= base[4]; |
object V80= base[4]; |
630 |
if(endp(V68)){ |
if(endp(V80)){ |
631 |
V64= Cnil; |
V76= Cnil; |
632 |
|
goto T124;} |
633 |
|
base[3]=V79=MMcons(Cnil,Cnil); |
634 |
|
goto T125; |
635 |
|
T125:; |
636 |
|
if((cdr((V80->c.c_car)))==Cnil){ |
637 |
|
goto T128;} |
638 |
|
(V79->c.c_cdr)= make_cons(cdr((V80->c.c_car)),Cnil); |
639 |
|
goto T126; |
640 |
|
goto T128; |
641 |
|
T128:; |
642 |
|
(V79->c.c_cdr)= Cnil; |
643 |
|
goto T126; |
644 |
|
T126:; |
645 |
|
{object cdr_V79=MMcdr(V79);while(!endp(cdr_V79)) {cdr_V79=MMcdr(cdr_V79);V79=MMcdr(V79);}} |
646 |
|
V80=MMcdr(V80); |
647 |
|
if(endp(V80)){ |
648 |
|
base[3]=base[3]->c.c_cdr; |
649 |
|
V76= base[3]; |
650 |
|
goto T124;} |
651 |
|
goto T125;} |
652 |
|
goto T124; |
653 |
|
T124:; |
654 |
|
if((symbol_value(VV[25]))==Cnil){ |
655 |
|
goto T132;} |
656 |
|
V77= make_cons(symbol_value(VV[25]),(V76)); |
657 |
|
goto T130; |
658 |
|
goto T132; |
659 |
|
T132:; |
660 |
|
V77= (V76); |
661 |
|
goto T130; |
662 |
|
T130:; |
663 |
|
{object V82; |
664 |
|
object V83= (V77); |
665 |
|
if(endp(V83)){ |
666 |
|
V78= Cnil; |
667 |
goto T134;} |
goto T134;} |
668 |
base[3]=V67=MMcons(Cnil,Cnil); |
base[3]=V82=MMcons(Cnil,Cnil); |
669 |
goto T135; |
goto T135; |
670 |
T135:; |
T135:; |
671 |
if((cdr((V68->c.c_car)))==Cnil){ |
(V82->c.c_car)= (*(LnkLI76))((V83->c.c_car)); |
672 |
goto T138;} |
V83=MMcdr(V83); |
673 |
(V67->c.c_cdr)= make_cons(cdr((V68->c.c_car)),Cnil); |
if(endp(V83)){ |
674 |
goto T136; |
V78= base[3]; |
|
goto T138; |
|
|
T138:; |
|
|
(V67->c.c_cdr)= Cnil; |
|
|
goto T136; |
|
|
T136:; |
|
|
{object cdr_V67=MMcdr(V67);while(!endp(cdr_V67)) {cdr_V67=MMcdr(cdr_V67);V67=MMcdr(V67);}} |
|
|
V68=MMcdr(V68); |
|
|
if(endp(V68)){ |
|
|
base[3]=base[3]->c.c_cdr; |
|
|
V64= base[3]; |
|
675 |
goto T134;} |
goto T134;} |
676 |
|
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
677 |
goto T135;} |
goto T135;} |
678 |
goto T134; |
goto T134; |
679 |
T134:; |
T134:; |
680 |
if((symbol_value(VV[25]))==Cnil){ |
{object V84; |
681 |
goto T142;} |
object V85= (V77); |
682 |
V65= make_cons(symbol_value(VV[25]),(V64)); |
object V86= (V78); |
683 |
goto T140; |
if(endp(V85)||endp(V86)){ |
|
goto T142; |
|
|
T142:; |
|
|
V65= (V64); |
|
|
goto T140; |
|
|
T140:; |
|
|
{object V70; |
|
|
object V71= (V65); |
|
|
if(endp(V71)){ |
|
|
V66= Cnil; |
|
|
goto T144;} |
|
|
base[3]=V70=MMcons(Cnil,Cnil); |
|
|
goto T145; |
|
|
T145:; |
|
|
base[4]= (V71->c.c_car); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk76)(); |
|
|
vs_top=sup; |
|
|
(V70->c.c_car)= vs_base[0]; |
|
|
V71=MMcdr(V71); |
|
|
if(endp(V71)){ |
|
|
V66= base[3]; |
|
|
goto T144;} |
|
|
V70=MMcdr(V70)=MMcons(Cnil,Cnil); |
|
|
goto T145;} |
|
|
goto T144; |
|
|
T144:; |
|
|
{object V72; |
|
|
object V73= (V65); |
|
|
object V74= (V66); |
|
|
if(endp(V73)||endp(V74)){ |
|
684 |
setq(VV[20],Cnil); |
setq(VV[20],Cnil); |
685 |
goto T149;} |
goto T138;} |
686 |
base[3]=V72=MMcons(Cnil,Cnil); |
base[3]=V84=MMcons(Cnil,Cnil); |
687 |
goto T150; |
goto T139; |
688 |
T150:; |
T139:; |
689 |
(V72->c.c_car)= make_cons((V73->c.c_car),(V74->c.c_car)); |
(V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car)); |
690 |
V73=MMcdr(V73); |
V85=MMcdr(V85); |
691 |
V74=MMcdr(V74); |
V86=MMcdr(V86); |
692 |
if(endp(V73)||endp(V74)){ |
if(endp(V85)||endp(V86)){ |
693 |
setq(VV[20],base[3]); |
setq(VV[20],base[3]); |
694 |
goto T149;} |
goto T138;} |
695 |
V72=MMcdr(V72)=MMcons(Cnil,Cnil); |
V84=MMcdr(V84)=MMcons(Cnil,Cnil); |
696 |
goto T150;} |
goto T139;} |
697 |
goto T149; |
goto T138; |
698 |
T149:; |
T138:; |
699 |
base[3]= (V66); |
{object V87 = (V78); |
700 |
vs_top=(vs_base=base+3)+1; |
VMR23(V87)}} |
701 |
return;} |
base[0]=base[0]; |
702 |
|
return Cnil; |
703 |
} |
} |
704 |
/* function definition for RESTART-REPORT */ |
/* function definition for RESTART-REPORT */ |
705 |
|
|
706 |
static void L24() |
static void L25() |
707 |
{register object *base=vs_base; |
{register object *base=vs_base; |
708 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
709 |
vs_reserve(VM24); |
vs_reserve(VM24); |
710 |
{object V75; |
{object V88; |
711 |
check_arg(2); |
check_arg(2); |
712 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
713 |
V75=(base[1]); |
V88=(base[1]); |
714 |
vs_top=sup; |
vs_top=sup; |
715 |
{object V76; |
{object V89; |
716 |
V76= structure_ref((base[0]->c.c_car),VV[13],2); |
V89= structure_ref((base[0]->c.c_car),VV[13],2); |
717 |
if(((V76))==Cnil){ |
if(((V89))==Cnil){ |
718 |
goto T155;} |
goto T144;} |
719 |
base[2]= (V76); |
base[2]= (V89); |
720 |
goto T152; |
goto T141; |
721 |
goto T155; |
goto T144; |
722 |
T155:; |
T144:; |
723 |
base[3]= structure_ref((base[0]->c.c_car),VV[13],0); |
base[3]= structure_ref((base[0]->c.c_car),VV[13],0); |
724 |
base[3]=MMcons(base[3],base[0]); |
base[3]=MMcons(base[3],base[0]); |
725 |
base[2]= |
base[2]= |
726 |
make_cclosure_new(LC39,Cnil,base[3],Cdata);} |
make_cclosure_new(LC40,Cnil,base[3],Cdata);} |
727 |
goto T152; |
goto T141; |
728 |
T152:; |
T141:; |
729 |
base[3]= (V75); |
base[3]= (V88); |
730 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
731 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
732 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
737 |
} |
} |
738 |
/* macro definition for RESTART-BIND */ |
/* macro definition for RESTART-BIND */ |
739 |
|
|
740 |
static void L25() |
static void L26() |
741 |
{register object *base=vs_base; |
{register object *base=vs_base; |
742 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
743 |
vs_reserve(VM25); |
vs_reserve(VM25); |
744 |
check_arg(2); |
check_arg(2); |
745 |
vs_top=sup; |
vs_top=sup; |
746 |
{object V77=base[0]->c.c_cdr; |
{object V90=base[0]->c.c_cdr; |
747 |
if(endp(V77))invalid_macro_call(); |
if(endp(V90))invalid_macro_call(); |
748 |
base[2]= (V77->c.c_car); |
base[2]= (V90->c.c_car); |
749 |
V77=V77->c.c_cdr; |
V90=V90->c.c_cdr; |
750 |
base[3]= V77;} |
base[3]= V90;} |
751 |
{object V79; |
{object V92; |
752 |
object V80= base[2]; |
object V93= base[2]; |
753 |
if(endp(V80)){ |
if(endp(V93)){ |
754 |
V78= Cnil; |
V91= Cnil; |
755 |
goto T159;} |
goto T148;} |
756 |
base[4]=V79=MMcons(Cnil,Cnil); |
base[4]=V92=MMcons(Cnil,Cnil); |
757 |
goto T160; |
goto T149; |
758 |
T160:; |
T149:; |
759 |
(V79->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],car((V80->c.c_car))),VV[23],cadr((V80->c.c_car)),cddr((V80->c.c_car))); |
(V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],car((V93->c.c_car))),VV[23],cadr((V93->c.c_car)),cddr((V93->c.c_car))); |
760 |
V80=MMcdr(V80); |
V93=MMcdr(V93); |
761 |
if(endp(V80)){ |
if(endp(V93)){ |
762 |
V78= base[4]; |
V91= base[4]; |
763 |
goto T159;} |
goto T148;} |
764 |
V79=MMcdr(V79)=MMcons(Cnil,Cnil); |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
765 |
goto T160;} |
goto T149;} |
766 |
goto T159; |
goto T148; |
767 |
T159:; |
T148:; |
768 |
V82= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V78),VV[10])); |
V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10])); |
769 |
base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V82,Cnil),base[3]); |
base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]); |
770 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
771 |
return; |
return; |
772 |
} |
} |
773 |
/* function definition for FIND-RESTART */ |
/* local entry for function FIND-RESTART */ |
774 |
|
|
775 |
static void L26() |
static object LI27(object V96,object first,...) |
776 |
{register object *base=vs_base; |
{ |
777 |
register object *sup=base+VM26; VC26 |
va_list ap; |
778 |
vs_reserve(VM26); |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
779 |
{register object V83; |
{register object V97; |
780 |
object V84; |
object V98; |
781 |
if(vs_top-vs_base<1) too_few_arguments(); |
Vcs[0]=Vcs[0]; |
782 |
if(vs_top-vs_base>2) too_many_arguments(); |
va_start(ap,first); |
783 |
V83=(base[0]); |
if(narg <1) too_few_arguments(); |
784 |
vs_base=vs_base+1; |
V97= V96; |
785 |
if(vs_base>=vs_top){vs_top=sup;goto T162;} |
narg = narg - 1; |
786 |
V84=(base[1]); |
if (narg <= 0) goto T151; |
787 |
vs_top=sup; |
else { |
788 |
|
V98= first;} |
789 |
|
--narg; goto T152; |
790 |
|
goto T151; |
791 |
|
T151:; |
792 |
|
V98= Cnil; |
793 |
|
goto T152; |
794 |
|
T152:; |
795 |
|
{register object V99; |
796 |
|
object V100; |
797 |
|
V99= symbol_value(VV[10]); |
798 |
|
V100= car((V99)); |
799 |
|
goto T158; |
800 |
|
T158:; |
801 |
|
if(!(endp_prop((V99)))){ |
802 |
|
goto T159;} |
803 |
|
goto T154; |
804 |
|
goto T159; |
805 |
|
T159:; |
806 |
|
{register object V101; |
807 |
|
register object V102; |
808 |
|
V101= (V100); |
809 |
|
V102= car((V101)); |
810 |
|
goto T167; |
811 |
|
T167:; |
812 |
|
if(!(endp_prop((V101)))){ |
813 |
|
goto T168;} |
814 |
goto T163; |
goto T163; |
815 |
goto T162; |
goto T168; |
816 |
T162:; |
T168:; |
817 |
V84= Cnil; |
if(((V102))==((V97))){ |
818 |
|
goto T173;} |
819 |
|
V103= structure_ref((V102),VV[13],0); |
820 |
|
if(!((/* INLINE-ARGS */V103)==((V97)))){ |
821 |
|
goto T172;} |
822 |
|
goto T173; |
823 |
|
T173:; |
824 |
|
{object V104 = (V102); |
825 |
|
VMR26(V104)} |
826 |
|
goto T172; |
827 |
|
T172:; |
828 |
|
V101= cdr((V101)); |
829 |
|
V102= car((V101)); |
830 |
|
goto T167;} |
831 |
goto T163; |
goto T163; |
832 |
T163:; |
T163:; |
833 |
{register object V85; |
V99= cdr((V99)); |
834 |
object V86; |
V100= car((V99)); |
835 |
V85= symbol_value(VV[10]); |
goto T158;} |
836 |
V86= car((V85)); |
goto T154; |
837 |
goto T169; |
T154:; |
838 |
T169:; |
{object V105; |
839 |
if(!(endp_prop((V85)))){ |
V105= (*(LnkLI71))(); |
840 |
goto T170;} |
{register object V106; |
841 |
goto T165; |
register object V107; |
842 |
goto T170; |
V106= (V105); |
843 |
T170:; |
V107= car((V106)); |
844 |
{register object V87; |
goto T191; |
845 |
register object V88; |
T191:; |
846 |
V87= (V86); |
if(!(endp_prop((V106)))){ |
847 |
V88= car((V87)); |
goto T192;} |
848 |
goto T178; |
{object V108 = Cnil; |
849 |
T178:; |
VMR26(V108)} |
850 |
if(!(endp_prop((V87)))){ |
goto T192; |
851 |
goto T179;} |
T192:; |
852 |
goto T174; |
if(((V107))==((V97))){ |
853 |
goto T179; |
goto T197;} |
854 |
T179:; |
V109= structure_ref((V107),VV[13],0); |
855 |
if(((V88))==((V83))){ |
if(!((/* INLINE-ARGS */V109)==((V97)))){ |
856 |
goto T184;} |
goto T196;} |
857 |
V89= structure_ref((V88),VV[13],0); |
goto T197; |
858 |
if(!((/* INLINE-ARGS */V89)==((V83)))){ |
T197:; |
859 |
goto T183;} |
{object V110 = (V107); |
860 |
goto T184; |
VMR26(V110)} |
861 |
T184:; |
goto T196; |
862 |
base[4]= (V88); |
T196:; |
863 |
vs_top=(vs_base=base+4)+1; |
V106= cdr((V106)); |
864 |
return; |
V107= car((V106)); |
865 |
goto T183; |
goto T191;}} |
866 |
T183:; |
va_end(ap); |
867 |
V87= cdr((V87)); |
base[0]=base[0]; |
868 |
V88= car((V87)); |
return Cnil;} |
|
goto T178;} |
|
|
goto T174; |
|
|
T174:; |
|
|
V85= cdr((V85)); |
|
|
V86= car((V85)); |
|
|
goto T169;} |
|
|
goto T165; |
|
|
T165:; |
|
|
{object V90; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk71)(); |
|
|
vs_top=sup; |
|
|
V90= vs_base[0]; |
|
|
{register object V91; |
|
|
register object V92; |
|
|
V91= (V90); |
|
|
V92= car((V91)); |
|
|
goto T202; |
|
|
T202:; |
|
|
if(!(endp_prop((V91)))){ |
|
|
goto T203;} |
|
|
base[3]= Cnil; |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
|
goto T203; |
|
|
T203:; |
|
|
if(((V92))==((V83))){ |
|
|
goto T208;} |
|
|
V93= structure_ref((V92),VV[13],0); |
|
|
if(!((/* INLINE-ARGS */V93)==((V83)))){ |
|
|
goto T207;} |
|
|
goto T208; |
|
|
T208:; |
|
|
base[3]= (V92); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
|
goto T207; |
|
|
T207:; |
|
|
V91= cdr((V91)); |
|
|
V92= car((V91)); |
|
|
goto T202;}} |
|
869 |
} |
} |
|
} |
|
870 |
/* function definition for INVOKE-RESTART */ |
/* function definition for INVOKE-RESTART */ |
871 |
|
|
872 |
static void L27() |
static void L28() |
873 |
{register object *base=vs_base; |
{register object *base=vs_base; |
874 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
875 |
vs_reserve(VM27); |
vs_reserve(VM27); |
876 |
{object V94; |
{object V111; |
877 |
object V95; |
object V112; |
878 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
879 |
V94=(base[0]); |
V111=(base[0]); |
880 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
881 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
882 |
{object *p=vs_top; |
{object *p=vs_top; |
883 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
884 |
V95=(base[1]); |
V112=(base[1]); |
|
vs_top=sup; |
|
|
{object V96;{object V97; |
|
|
base[2]= (V94); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk77)(); |
|
885 |
vs_top=sup; |
vs_top=sup; |
886 |
V97= vs_base[0]; |
{object V113;{object V114; |
887 |
if(V97==Cnil)goto T218; |
V114= (VFUN_NARGS=1,(*(LnkLI77))((V111))); |
888 |
V96= V97; |
if(V114==Cnil)goto T207; |
889 |
goto T217; |
V113= V114; |
890 |
goto T218; |
goto T206; |
891 |
T218:;} |
goto T207; |
892 |
|
T207:;} |
893 |
base[2]= VV[40]; |
base[2]= VV[40]; |
894 |
base[3]= (V94); |
base[3]= (V111); |
895 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
896 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
897 |
vs_top=sup; |
vs_top=sup; |
898 |
V96= vs_base[0]; |
V113= vs_base[0]; |
899 |
goto T217; |
goto T206; |
900 |
T217:; |
T206:; |
901 |
base[2]= structure_ref((V96),VV[13],1); |
base[2]= structure_ref((V113),VV[13],1); |
902 |
{object V98; |
{object V115; |
903 |
V98= (V95); |
V115= (V112); |
904 |
vs_top=base+3; |
vs_top=base+3; |
905 |
while(!endp(V98)) |
while(!endp(V115)) |
906 |
{vs_push(car(V98));V98=cdr(V98);} |
{vs_push(car(V115));V115=cdr(V115);} |
907 |
vs_base=base+3;} |
vs_base=base+3;} |
908 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
909 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
914 |
} |
} |
915 |
/* function definition for INVOKE-RESTART-INTERACTIVELY */ |
/* function definition for INVOKE-RESTART-INTERACTIVELY */ |
916 |
|
|
917 |
static void L28() |
static void L29() |
918 |
{register object *base=vs_base; |
{register object *base=vs_base; |
919 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
920 |
vs_reserve(VM28); |
vs_reserve(VM28); |
921 |
{object V99; |
{object V116; |
922 |
check_arg(1); |
check_arg(1); |
923 |
V99=(base[0]); |
V116=(base[0]); |
924 |
vs_top=sup; |
vs_top=sup; |
925 |
goto TTL; |
goto TTL; |
926 |
TTL:; |
TTL:; |
927 |
{object V100;{object V101; |
{object V117;{object V118; |
928 |
base[1]= (V99); |
V118= (VFUN_NARGS=1,(*(LnkLI77))((V116))); |
929 |
vs_top=(vs_base=base+1)+1; |
if(V118==Cnil)goto T214; |
930 |
(void) (*Lnk77)(); |
V117= V118; |
931 |
vs_top=sup; |
goto T213; |
932 |
V101= vs_base[0]; |
goto T214; |
933 |
if(V101==Cnil)goto T226; |
T214:;} |
|
V100= V101; |
|
|
goto T225; |
|
|
goto T226; |
|
|
T226:;} |
|
934 |
base[1]= VV[41]; |
base[1]= VV[41]; |
935 |
base[2]= (V99); |
base[2]= (V116); |
936 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
937 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
938 |
vs_top=sup; |
vs_top=sup; |
939 |
V100= vs_base[0]; |
V117= vs_base[0]; |
940 |
goto T225; |
goto T213; |
941 |
T225:; |
T213:; |
942 |
base[1]= structure_ref((V100),VV[13],1); |
base[1]= structure_ref((V117),VV[13],1); |
943 |
{object V102; |
{object V119; |
944 |
{object V103; |
{object V120; |
945 |
V103= structure_ref((V100),VV[13],3); |
V120= structure_ref((V117),VV[13],3); |
946 |
if(((V103))==Cnil){ |
if(((V120))==Cnil){ |
947 |
goto T235;} |
goto T222;} |
948 |
vs_base=vs_top; |
vs_base=vs_top; |
949 |
{object _funobj = (V103);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
950 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
951 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
952 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
953 |
vs_top=sup; |
vs_top=sup; |
954 |
V102= vs_base[0]; |
V119= vs_base[0]; |
955 |
goto T232; |
goto T219; |
956 |
goto T235; |
goto T222; |
957 |
T235:; |
T222:; |
958 |
V102= Cnil;} |
V119= Cnil;} |
959 |
goto T232; |
goto T219; |
960 |
T232:; |
T219:; |
961 |
vs_top=base+2; |
vs_top=base+2; |
962 |
while(!endp(V102)) |
while(!endp(V119)) |
963 |
{vs_push(car(V102));V102=cdr(V102);} |
{vs_push(car(V119));V119=cdr(V119);} |
964 |
vs_base=base+2;} |
vs_base=base+2;} |
965 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
966 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
971 |
} |
} |
972 |
/* macro definition for RESTART-CASE */ |
/* macro definition for RESTART-CASE */ |
973 |
|
|
974 |
static void L29() |
static void L30() |
975 |
{register object *base=vs_base; |
{register object *base=vs_base; |
976 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
977 |
vs_reserve(VM29); |
vs_reserve(VM29); |
978 |
check_arg(2); |
check_arg(2); |
979 |
vs_top=sup; |
vs_top=sup; |
980 |
{object V104=base[0]->c.c_cdr; |
{object V121=base[0]->c.c_cdr; |
981 |
if(endp(V104))invalid_macro_call(); |
if(endp(V121))invalid_macro_call(); |
982 |
base[2]= (V104->c.c_car); |
base[2]= (V121->c.c_car); |
983 |
V104=V104->c.c_cdr; |
V121=V121->c.c_cdr; |
984 |
base[3]= V104;} |
base[3]= V121;} |
985 |
{object V105; |
{object V122; |
986 |
object V106; |
object V123; |
987 |
object V107; |
object V124; |
988 |
vs_base=vs_top; |
vs_base=vs_top; |
989 |
Lgensym(); |
Lgensym(); |
990 |
vs_top=sup; |
vs_top=sup; |
991 |
V105= vs_base[0]; |
V122= vs_base[0]; |
992 |
vs_base=vs_top; |
vs_base=vs_top; |
993 |
Lgensym(); |
Lgensym(); |
994 |
vs_top=sup; |
vs_top=sup; |
995 |
V106= vs_base[0]; |
V123= vs_base[0]; |
996 |
{object V108; |
{object V125; |
997 |
object V109= base[3]; |
object V126= base[3]; |
998 |
if(endp(V109)){ |
if(endp(V126)){ |
999 |
V107= Cnil; |
V124= Cnil; |
1000 |
goto T239;} |
goto T226;} |
1001 |
base[4]=V108=MMcons(Cnil,Cnil); |
base[4]=V125=MMcons(Cnil,Cnil); |
1002 |
goto T240; |
goto T227; |
1003 |
T240:; |
T227:; |
1004 |
{object V111; |
{object V128; |
1005 |
object V112; |
object V129; |
1006 |
base[5]= cddr((V109->c.c_car)); |
base[5]= cddr((V126->c.c_car)); |
1007 |
base[6]= VV[42]; |
base[6]= VV[42]; |
1008 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1009 |
(void) (*Lnk6)(); |
(void) (*Lnk6)(); |
1010 |
if(vs_base>=vs_top){vs_top=sup;goto T245;} |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
1011 |
V111= vs_base[0]; |
V128= vs_base[0]; |
1012 |
vs_base++; |
vs_base++; |
1013 |
if(vs_base>=vs_top){vs_top=sup;goto T246;} |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
1014 |
V112= vs_base[0]; |
V129= vs_base[0]; |
1015 |
vs_top=sup; |
vs_top=sup; |
1016 |
goto T247; |
goto T234; |
1017 |
goto T245; |
goto T232; |
1018 |
T245:; |
T232:; |
1019 |
V111= Cnil; |
V128= Cnil; |
1020 |
goto T246; |
goto T233; |
1021 |
T246:; |
T233:; |
1022 |
V112= Cnil; |
V129= Cnil; |
1023 |
goto T247; |
goto T234; |
1024 |
T247:; |
T234:; |
1025 |
{object V113; |
{object V130; |
1026 |
object V114; |
object V131; |
1027 |
base[5]= (V111); |
base[5]= (V128); |
1028 |
base[6]= VV[43]; |
base[6]= VV[43]; |
1029 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1030 |
Lgetf(); |
Lgetf(); |
1031 |
vs_top=sup; |
vs_top=sup; |
1032 |
V113= vs_base[0]; |
V130= vs_base[0]; |
1033 |
base[5]= (V111); |
base[5]= (V128); |
1034 |
base[6]= VV[44]; |
base[6]= VV[44]; |
1035 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1036 |
Lgetf(); |
Lgetf(); |
1037 |
vs_top=sup; |
vs_top=sup; |
1038 |
V114= vs_base[0]; |
V131= vs_base[0]; |
1039 |
V115= car((V109->c.c_car)); |
V132= car((V126->c.c_car)); |
1040 |
vs_base=vs_top; |
vs_base=vs_top; |
1041 |
Lgensym(); |
Lgensym(); |
1042 |
vs_top=sup; |
vs_top=sup; |
1043 |
V116= vs_base[0]; |
V133= vs_base[0]; |
1044 |
base[5]= VV[43]; |
base[5]= VV[43]; |
1045 |
base[6]= (V113); |
base[6]= (V130); |
1046 |
base[7]= VV[44]; |
base[7]= VV[44]; |
1047 |
base[8]= (V114); |
base[8]= (V131); |
1048 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1049 |
L30(base); |
L31(base); |
1050 |
vs_top=sup; |
vs_top=sup; |
1051 |
V117= vs_base[0]; |
V134= vs_base[0]; |
1052 |
(V108->c.c_car)= list(5,/* INLINE-ARGS */V115,V116,V117,cadr((V109->c.c_car)),(V112));}} |
(V125->c.c_car)= list(5,/* INLINE-ARGS */V132,V133,V134,cadr((V126->c.c_car)),(V129));}} |
1053 |
V109=MMcdr(V109); |
V126=MMcdr(V126); |
1054 |
if(endp(V109)){ |
if(endp(V126)){ |
1055 |
V107= base[4]; |
V124= base[4]; |
1056 |
goto T239;} |
goto T226;} |
1057 |
V108=MMcdr(V108)=MMcons(Cnil,Cnil); |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
1058 |
goto T240;} |
goto T227;} |
1059 |
goto T239; |
goto T226; |
1060 |
T239:; |
T226:; |
1061 |
V118= list(2,(V106),Cnil); |
V135= list(2,(V123),Cnil); |
1062 |
V119= make_cons(/* INLINE-ARGS */V118,Cnil); |
V136= make_cons(/* INLINE-ARGS */V135,Cnil); |
1063 |
{object V121; |
{object V138; |
1064 |
object V122= (V107); |
object V139= (V124); |
1065 |
if(endp(V122)){ |
if(endp(V139)){ |
1066 |
V120= Cnil; |
V137= Cnil; |
1067 |
goto T260;} |
goto T247;} |
1068 |
base[4]=V121=MMcons(Cnil,Cnil); |
base[4]=V138=MMcons(Cnil,Cnil); |
1069 |
goto T261; |
goto T248; |
1070 |
T261:; |
T248:; |
1071 |
{object V124; |
{object V141; |
1072 |
object V125; |
object V142; |
1073 |
object V126; |
object V143; |
1074 |
V124= car((V122->c.c_car)); |
V141= car((V139->c.c_car)); |
1075 |
V125= cadr((V122->c.c_car)); |
V142= cadr((V139->c.c_car)); |
1076 |
V126= caddr((V122->c.c_car)); |
V143= caddr((V139->c.c_car)); |
1077 |
V127= list(3,VV[51],(V106),VV[52]); |
V144= list(3,VV[51],(V123),VV[52]); |
1078 |
(V121->c.c_car)= listA(3,(V124),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V127,list(2,VV[53],(V125)))),(V126));} |
(V138->c.c_car)= listA(3,(V141),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V144,list(2,VV[53],(V142)))),(V143));} |
1079 |
V122=MMcdr(V122); |
V139=MMcdr(V139); |
1080 |
if(endp(V122)){ |
if(endp(V139)){ |
1081 |
V120= base[4]; |
V137= base[4]; |
1082 |
goto T260;} |
goto T247;} |
1083 |
V121=MMcdr(V121)=MMcons(Cnil,Cnil); |
V138=MMcdr(V138)=MMcons(Cnil,Cnil); |
1084 |
goto T261;} |
goto T248;} |
1085 |
goto T260; |
goto T247; |
1086 |
T260:; |
T247:; |
1087 |
V128= list(3,VV[47],V120,list(3,VV[54],(V105),base[2])); |
V145= list(3,VV[47],V137,list(3,VV[54],(V122),base[2])); |
1088 |
{object V130; |
{object V147; |
1089 |
object V131= (V107); |
object V148= (V124); |
1090 |
if(endp(V131)){ |
if(endp(V148)){ |
1091 |
V129= Cnil; |
V146= Cnil; |
1092 |
goto T266;} |
goto T253;} |
1093 |
base[4]=V130=MMcons(Cnil,Cnil); |
base[4]=V147=MMcons(Cnil,Cnil); |
1094 |
goto T267; |
goto T254; |
1095 |
T267:; |
T254:; |
1096 |
{object V133; |
{object V150; |
1097 |
object V134; |
object V151; |
1098 |
object V135; |
object V152; |
1099 |
V133= cadr((V131->c.c_car)); |
V150= cadr((V148->c.c_car)); |
1100 |
V134= cadddr((V131->c.c_car)); |
V151= cadddr((V148->c.c_car)); |
1101 |
V135= car(cddddr((V131->c.c_car))); |
V152= car(cddddr((V148->c.c_car))); |
1102 |
(V130->c.c_cdr)= list(2,(V133),list(3,VV[54],(V105),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V134),(V135))),(V106))));} |
(V147->c.c_cdr)= list(2,(V150),list(3,VV[54],(V122),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V151),(V152))),(V123))));} |
1103 |
{object cdr_V130=MMcdr(V130);while(!endp(cdr_V130)) {cdr_V130=MMcdr(cdr_V130);V130=MMcdr(V130);}} |
{object cdr_V147=MMcdr(V147);while(!endp(cdr_V147)) {cdr_V147=MMcdr(cdr_V147);V147=MMcdr(V147);}} |
1104 |
V131=MMcdr(V131); |
V148=MMcdr(V148); |
1105 |
if(endp(V131)){ |
if(endp(V148)){ |
1106 |
base[4]=base[4]->c.c_cdr; |
base[4]=base[4]->c.c_cdr; |
1107 |
V129= base[4]; |
V146= base[4]; |
1108 |
goto T266;} |
goto T253;} |
1109 |
goto T267;} |
goto T254;} |
1110 |
goto T266; |
goto T253; |
1111 |
T266:; |
T253:; |
1112 |
base[4]= list(3,VV[45],(V105),list(3,VV[8],/* INLINE-ARGS */V119,listA(3,VV[46],/* INLINE-ARGS */V128,V129))); |
base[4]= list(3,VV[45],(V122),list(3,VV[8],/* INLINE-ARGS */V136,listA(3,VV[46],/* INLINE-ARGS */V145,V146))); |
1113 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1114 |
return;} |
return;} |
1115 |
} |
} |
1116 |
/* macro definition for WITH-SIMPLE-RESTART */ |
/* macro definition for WITH-SIMPLE-RESTART */ |
1117 |
|
|
1118 |
static void L31() |
static void L32() |
1119 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1120 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
1121 |
vs_reserve(VM30); |
vs_reserve(VM30); |
1122 |
check_arg(2); |
check_arg(2); |
1123 |
vs_top=sup; |
vs_top=sup; |
1124 |
{object V136=base[0]->c.c_cdr; |
{object V153=base[0]->c.c_cdr; |
1125 |
if(endp(V136))invalid_macro_call(); |
if(endp(V153))invalid_macro_call(); |
1126 |
{object V137= (V136->c.c_car); |
{object V154= (V153->c.c_car); |
1127 |
if(endp(V137))invalid_macro_call(); |
if(endp(V154))invalid_macro_call(); |
1128 |
base[2]= (V137->c.c_car); |
base[2]= (V154->c.c_car); |
1129 |
V137=V137->c.c_cdr; |
V154=V154->c.c_cdr; |
1130 |
if(endp(V137))invalid_macro_call(); |
if(endp(V154))invalid_macro_call(); |
1131 |
base[3]= (V137->c.c_car); |
base[3]= (V154->c.c_car); |
1132 |
V137=V137->c.c_cdr; |
V154=V154->c.c_cdr; |
1133 |
base[4]= V137;} |
base[4]= V154;} |
1134 |
V136=V136->c.c_cdr; |
V153=V153->c.c_cdr; |
1135 |
base[5]= V136;} |
base[5]= V153;} |
1136 |
V138= make_cons(VV[60],base[5]); |
V155= make_cons(VV[60],base[5]); |
1137 |
base[6]= list(3,VV[59],/* INLINE-ARGS */V138,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63])); |
base[6]= list(3,VV[59],/* INLINE-ARGS */V155,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63])); |
1138 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1139 |
return; |
return; |
1140 |
} |
} |
1141 |
/* function definition for ABORT */ |
/* function definition for ABORT */ |
1142 |
|
|
1143 |
static void L32() |
static void L33() |
1144 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1145 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
1146 |
vs_reserve(VM31); |
vs_reserve(VM31); |
1159 |
} |
} |
1160 |
/* function definition for CONTINUE */ |
/* function definition for CONTINUE */ |
1161 |
|
|
1162 |
static void L33() |
static void L34() |
1163 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1164 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
1165 |
vs_reserve(VM32); |
vs_reserve(VM32); |
1174 |
} |
} |
1175 |
/* function definition for MUFFLE-WARNING */ |
/* function definition for MUFFLE-WARNING */ |
1176 |
|
|
1177 |
static void L34() |
static void L35() |
1178 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1179 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
1180 |
vs_reserve(VM33); |
vs_reserve(VM33); |
1189 |
} |
} |
1190 |
/* function definition for STORE-VALUE */ |
/* function definition for STORE-VALUE */ |
1191 |
|
|
1192 |
static void L35() |
static void L36() |
1193 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1194 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
1195 |
vs_reserve(VM34); |
vs_reserve(VM34); |
1196 |
{object V139; |
{object V156; |
1197 |
check_arg(1); |
check_arg(1); |
1198 |
V139=(base[0]); |
V156=(base[0]); |
1199 |
vs_top=sup; |
vs_top=sup; |
1200 |
goto TTL; |
goto TTL; |
1201 |
TTL:; |
TTL:; |
1202 |
base[1]= VV[67]; |
base[1]= VV[67]; |
1203 |
base[2]= (V139); |
base[2]= (V156); |
1204 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1205 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
1206 |
return; |
return; |
1208 |
} |
} |
1209 |
/* function definition for USE-VALUE */ |
/* function definition for USE-VALUE */ |
1210 |
|
|
1211 |
static void L36() |
static void L37() |
1212 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1213 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
1214 |
vs_reserve(VM35); |
vs_reserve(VM35); |
1215 |
{object V140; |
{object V157; |
1216 |
check_arg(1); |
check_arg(1); |
1217 |
V140=(base[0]); |
V157=(base[0]); |
1218 |
vs_top=sup; |
vs_top=sup; |
1219 |
goto TTL; |
goto TTL; |
1220 |
TTL:; |
TTL:; |
1221 |
base[1]= VV[68]; |
base[1]= VV[68]; |
1222 |
base[2]= (V140); |
base[2]= (V157); |
1223 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1224 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
1225 |
return; |
return; |
1227 |
} |
} |
1228 |
/* local function TRANSFORM-KEYWORDS */ |
/* local function TRANSFORM-KEYWORDS */ |
1229 |
|
|
1230 |
static void L30(base0) |
static void L31(base0) |
1231 |
register object *base0; |
register object *base0; |
1232 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1233 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
1234 |
vs_reserve(VM36); |
vs_reserve(VM36); |
1235 |
{register object V141; |
{register object V158; |
1236 |
object V142; |
object V159; |
1237 |
parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]); |
parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]); |
1238 |
vs_top=sup; |
vs_top=sup; |
1239 |
V141=(base[0]); |
V158=(base[0]); |
1240 |
V142=(base[1]); |
V159=(base[1]); |
1241 |
{register object V143; |
{register object V160; |
1242 |
V143= Cnil; |
V160= Cnil; |
1243 |
if(((V141))==Cnil){ |
if(((V158))==Cnil){ |
1244 |
goto T281;} |
goto T268;} |
1245 |
if(!(type_of((V141))==t_string)){ |
if(!(type_of((V158))==t_string)){ |
1246 |
goto T287;} |
goto T274;} |
1247 |
V144= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V141),VV[58]))); |
V161= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V158),VV[58]))); |
1248 |
goto T285; |
goto T272; |
1249 |
goto T287; |
goto T274; |
1250 |
T287:; |
T274:; |
1251 |
V144= list(2,VV[48],(V141)); |
V161= list(2,VV[48],(V158)); |
1252 |
goto T285; |
goto T272; |
1253 |
T285:; |
T272:; |
1254 |
V143= listA(3,V144,VV[24],(V143)); |
V160= listA(3,V161,VV[24],(V160)); |
1255 |
goto T281; |
goto T268; |
1256 |
T281:; |
T268:; |
1257 |
if(((V142))==Cnil){ |
if(((V159))==Cnil){ |
1258 |
goto T289;} |
goto T276;} |
1259 |
V143= listA(3,list(2,VV[48],(V142)),VV[34],(V143)); |
V160= listA(3,list(2,VV[48],(V159)),VV[34],(V160)); |
1260 |
goto T289; |
goto T276; |
1261 |
T289:; |
T276:; |
1262 |
base[4]= nreverse((V143)); |
base[4]= nreverse((V160)); |
1263 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1264 |
return;} |
return;} |
1265 |
} |
} |
1266 |
} |
} |
1267 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1268 |
|
|
1269 |
static void LC39(base0) |
static void LC40(base0) |
1270 |
register object *base0; |
register object *base0; |
1271 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1272 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
1273 |
vs_reserve(VM37); |
vs_reserve(VM37); |
1274 |
{object V145; |
{object V162; |
1275 |
check_arg(1); |
check_arg(1); |
1276 |
V145=(base[0]); |
V162=(base[0]); |
1277 |
vs_top=sup; |
vs_top=sup; |
1278 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
1279 |
goto T294;} |
goto T281;} |
1280 |
base[1]= (V145); |
base[1]= (V162); |
1281 |
base[2]= VV[35]; |
base[2]= VV[35]; |
1282 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
1283 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1284 |
Lformat(); |
Lformat(); |
1285 |
return; |
return; |
1286 |
goto T294; |
goto T281; |
1287 |
T294:; |
T281:; |
1288 |
base[1]= (V145); |
base[1]= (V162); |
1289 |
base[2]= VV[36]; |
base[2]= VV[36]; |
1290 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
1291 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1295 |
} |
} |
1296 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1297 |
|
|
1298 |
static void LC38(base0) |
static void LC39(base0) |
1299 |
register object *base0; |
register object *base0; |
1300 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1301 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
1302 |
vs_reserve(VM38); |
vs_reserve(VM38); |
1303 |
{object V146; |
{object V163; |
1304 |
check_arg(1); |
check_arg(1); |
1305 |
V146=(base[0]); |
V163=(base[0]); |
1306 |
vs_top=sup; |
vs_top=sup; |
1307 |
{object V147; |
{object V164; |
1308 |
if(!(((base0[0]->c.c_car))==(symbol_value(VV[25])))){ |
if(!(((base0[0]->c.c_car))==(symbol_value(VV[25])))){ |
1309 |
goto T304;} |
goto T291;} |
1310 |
V147= symbol_value(VV[26]); |
V164= symbol_value(VV[26]); |
1311 |
goto T302; |
goto T289; |
1312 |
goto T304; |
goto T291; |
1313 |
T304:;{object V149; |
T291:;{object V166; |
1314 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1315 |
base[2]= symbol_value(VV[27]); |
base[2]= symbol_value(VV[27]); |
1316 |
base[3]= VV[28]; |
base[3]= VV[28]; |
1318 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1319 |
(void) (*Lnk80)(); |
(void) (*Lnk80)(); |
1320 |
vs_top=sup; |
vs_top=sup; |
1321 |
V149= vs_base[0]; |
V166= vs_base[0]; |
1322 |
if(V149==Cnil)goto T307; |
if(V166==Cnil)goto T294; |
1323 |
V148= V149; |
V165= V166; |
1324 |
goto T306; |
goto T293; |
1325 |
goto T307; |
goto T294; |
1326 |
T307:;} |
T294:;} |
1327 |
V148= VV[29]; |
V165= VV[29]; |
1328 |
goto T306; |
goto T293; |
1329 |
T306:; |
T293:; |
1330 |
V147= car(V148); |
V164= car(V165); |
1331 |
goto T302; |
goto T289; |
1332 |
T302:; |
T289:; |
1333 |
if(!(((V147))==(VV[30]))){ |
if(!(((V164))==(VV[30]))){ |
1334 |
goto T314;} |
goto T301;} |
1335 |
base[1]= (V146); |
base[1]= (V163); |
1336 |
base[2]= VV[31]; |
base[2]= VV[31]; |
1337 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1338 |
Lformat(); |
Lformat(); |
1339 |
return; |
return; |
1340 |
goto T314; |
goto T301; |
1341 |
T314:; |
T301:; |
1342 |
if(((V147))!=Cnil){ |
if(((V164))!=Cnil){ |
1343 |
goto T319;} |
goto T306;} |
1344 |
base[1]= (V146); |
base[1]= (V163); |
1345 |
base[2]= VV[32]; |
base[2]= VV[32]; |
1346 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1347 |
Lformat(); |
Lformat(); |
1348 |
return; |
return; |
1349 |
goto T319; |
goto T306; |
1350 |
T319:; |
T306:; |
1351 |
base[1]= (V146); |
base[1]= (V163); |
1352 |
base[2]= VV[33]; |
base[2]= VV[33]; |
1353 |
base[3]= make_fixnum((long)length((V147))); |
base[3]= make_fixnum((long)length((V164))); |
1354 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1355 |
Lformat(); |
Lformat(); |
1356 |
return;} |
return;} |
1358 |
} |
} |
1359 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1360 |
|
|
1361 |
static void LC37(base0) |
static void LC38(base0) |
1362 |
register object *base0; |
register object *base0; |
1363 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1364 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
1366 |
check_arg(0); |
check_arg(0); |
1367 |
vs_top=sup; |
vs_top=sup; |
1368 |
{frame_ptr fr; |
{frame_ptr fr; |
1369 |
V150= make_cons((base0[0]->c.c_car),Cnil); |
V167= make_cons((base0[0]->c.c_car),Cnil); |
1370 |
base[0]= car(/* INLINE-ARGS */V150); |
base[0]= car(/* INLINE-ARGS */V167); |
1371 |
fr=frs_sch_catch(base[0]); |
fr=frs_sch_catch(base[0]); |
1372 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
1373 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1377 |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* FIND */ |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* FIND */ |
1378 |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INVOKE-RESTART */ |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INVOKE-RESTART */ |
1379 |
static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* PARSE-KEYWORD-PAIRS */ |
static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* PARSE-KEYWORD-PAIRS */ |
1380 |
static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* FIND-RESTART */ |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ |
1381 |
static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* FIND-KCL-TOP-RESTART */ |
static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* FIND-KCL-TOP-RESTART */ |
1382 |
static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* MAKE-KCL-TOP-RESTART */ |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-KCL-TOP-RESTART */ |
1383 |
static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* MAKE-RESTART */ |
static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)&LnkLI39,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
1384 |
static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* DEFINE-STRUCTURE */ |
static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* DEFINE-STRUCTURE */ |
1385 |
static void LnkT73(){ call_or_link(VV[73],(void **)&Lnk73);} /* RESTART-REPORT */ |
static void LnkT73(){ call_or_link(VV[73],(void **)&Lnk73);} /* RESTART-REPORT */ |
1386 |
static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* UNIQUE-ID */ |
static object LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */ |
1387 |
static void LnkT71(){ call_or_link(VV[71],(void **)&Lnk71);} /* KCL-TOP-RESTARTS */ |
static object LnkTLI71(){return call_proc0(VV[71],(void **)&LnkLI71);} /* KCL-TOP-RESTARTS */ |
1388 |
static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* ERROR */ |
static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* ERROR */ |
1389 |
static void LnkT69(){ call_or_link(VV[69],(void **)&Lnk69);} /* *MAKE-SPECIAL */ |
static void LnkT69(){ call_or_link(VV[69],(void **)&Lnk69);} /* *MAKE-SPECIAL */ |
1390 |
|
|