7 |
static void L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_check; |
|
check_arg(2); |
|
11 |
vs_top=sup; |
vs_top=sup; |
12 |
{object V1=base[0]->c.c_cdr; |
{object V1=base[0]->c.c_cdr; |
13 |
base[2]= V1;} |
base[2]= V1;} |
25 |
{object V3; |
{object V3; |
26 |
object V4; |
object V4; |
27 |
va_start(ap,first); |
va_start(ap,first); |
|
if(narg <1) too_few_arguments(); |
|
28 |
V3= V2; |
V3= V2; |
29 |
narg= narg - 1; |
narg= narg - 1; |
30 |
V5 = list_vector_new(narg,first,ap); |
V5 = list_vector_new(narg,first,ap); |
41 |
{object V6; |
{object V6; |
42 |
V6= (V4); |
V6= (V4); |
43 |
vs_top=base+3; |
vs_top=base+3; |
44 |
while(!endp(V6)) |
while(V6!=Cnil) |
45 |
{vs_push(car(V6));V6=cdr(V6);} |
{vs_push((V6)->c.c_car);V6=(V6)->c.c_cdr;} |
46 |
vs_base=base+1;} |
vs_base=base+1;} |
47 |
Lformat(); |
Lformat(); |
48 |
vs_top=sup; |
vs_top=sup; |
49 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
50 |
{frame_ptr fr; |
{frame_ptr fr; |
51 |
fr=frs_sch_catch(VV[6]); |
fr=frs_sch_catch(VV[6]); |
52 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); |
62 |
static void L3() |
static void L3() |
63 |
{register object *base=vs_base; |
{register object *base=vs_base; |
64 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
65 |
vs_reserve(VM3); |
vs_check; |
|
check_arg(2); |
|
66 |
vs_top=sup; |
vs_top=sup; |
67 |
{object V7=base[0]->c.c_cdr; |
{object V7=base[0]->c.c_cdr; |
|
if(endp(V7))invalid_macro_call(); |
|
68 |
base[2]= (V7->c.c_car); |
base[2]= (V7->c.c_car); |
69 |
V7=V7->c.c_cdr; |
V7=V7->c.c_cdr; |
|
if(endp(V7))invalid_macro_call(); |
|
70 |
base[3]= (V7->c.c_car); |
base[3]= (V7->c.c_car); |
71 |
V7=V7->c.c_cdr; |
V7=V7->c.c_cdr; |
72 |
base[4]= V7;} |
base[4]= V7;} |
93 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
94 |
Lformat(); |
Lformat(); |
95 |
vs_top=sup; |
vs_top=sup; |
96 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
97 |
{frame_ptr fr; |
{frame_ptr fr; |
98 |
fr=frs_sch_catch(VV[6]); |
fr=frs_sch_catch(VV[6]); |
99 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); |
122 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
123 |
Lformat(); |
Lformat(); |
124 |
vs_top=sup; |
vs_top=sup; |
125 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
126 |
{frame_ptr fr; |
{frame_ptr fr; |
127 |
fr=frs_sch_catch(VV[6]); |
fr=frs_sch_catch(VV[6]); |
128 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); |
142 |
{object V21; |
{object V21; |
143 |
object V22; |
object V22; |
144 |
va_start(ap,first); |
va_start(ap,first); |
|
if(narg <1) too_few_arguments(); |
|
145 |
V21= V20; |
V21= V20; |
146 |
narg= narg - 1; |
narg= narg - 1; |
147 |
V23 = list_vector_new(narg,first,ap); |
V23 = list_vector_new(narg,first,ap); |
148 |
V22= V23; |
V22= V23; |
149 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
150 |
if((symbol_value(VV[12]))!=Cnil){ |
if(((VV[12]->s.s_dbind))!=Cnil){ |
151 |
goto T32;} |
goto T32;} |
152 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
153 |
base[1]= Ct; |
base[1]= Ct; |
160 |
{object V24; |
{object V24; |
161 |
V24= (V22); |
V24= (V22); |
162 |
vs_top=base+3; |
vs_top=base+3; |
163 |
while(!endp(V24)) |
while(V24!=Cnil) |
164 |
{vs_push(car(V24));V24=cdr(V24);} |
{vs_push((V24)->c.c_car);V24=(V24)->c.c_cdr;} |
165 |
vs_base=base+1;} |
vs_base=base+1;} |
166 |
Lformat(); |
Lformat(); |
167 |
vs_top=sup; |
vs_top=sup; |
185 |
{object V27; |
{object V27; |
186 |
object V28; |
object V28; |
187 |
va_start(ap,first); |
va_start(ap,first); |
|
if(narg <1) too_few_arguments(); |
|
188 |
V27= V26; |
V27= V26; |
189 |
narg= narg - 1; |
narg= narg - 1; |
190 |
V29 = list_vector_new(narg,first,ap); |
V29 = list_vector_new(narg,first,ap); |
191 |
V28= V29; |
V28= V29; |
192 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
193 |
if((symbol_value(VV[14]))!=Cnil){ |
if(((VV[14]->s.s_dbind))!=Cnil){ |
194 |
goto T43;} |
goto T43;} |
195 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
196 |
base[1]= Ct; |
base[1]= Ct; |
203 |
{object V30; |
{object V30; |
204 |
V30= (V28); |
V30= (V28); |
205 |
vs_top=base+3; |
vs_top=base+3; |
206 |
while(!endp(V30)) |
while(V30!=Cnil) |
207 |
{vs_push(car(V30));V30=cdr(V30);} |
{vs_push((V30)->c.c_car);V30=(V30)->c.c_cdr;} |
208 |
vs_base=base+1;} |
vs_base=base+1;} |
209 |
Lformat(); |
Lformat(); |
210 |
vs_top=sup; |
vs_top=sup; |
225 |
bds_check; |
bds_check; |
226 |
goto TTL; |
goto TTL; |
227 |
TTL:; |
TTL:; |
228 |
if((symbol_value(VV[16]))==Cnil){ |
if(((VV[16]->s.s_dbind))==Cnil){ |
229 |
goto T53;} |
goto T53;} |
230 |
setq(VV[16],Cnil); |
(VV[16]->s.s_dbind)= Cnil; |
231 |
vs_base=vs_top; |
vs_base=vs_top; |
232 |
Lfresh_line(); |
Lfresh_line(); |
233 |
vs_top=sup; |
vs_top=sup; |
234 |
if(!(type_of(symbol_value(VV[17]))==t_cons)){ |
if(!(type_of((VV[17]->s.s_dbind))==t_cons)){ |
235 |
goto T60;} |
goto T60;} |
236 |
if(!((car(symbol_value(VV[17])))==(VV[18]))){ |
if(!((CMPcar((VV[17]->s.s_dbind)))==(VV[18]))){ |
237 |
goto T60;} |
goto T60;} |
238 |
base[0]= Ct; |
base[0]= Ct; |
239 |
base[1]= VV[19]; |
base[1]= VV[19]; |
240 |
base[2]= cdr(symbol_value(VV[17])); |
base[2]= CMPcdr((VV[17]->s.s_dbind)); |
241 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
242 |
Lformat(); |
Lformat(); |
243 |
vs_top=sup; |
vs_top=sup; |
248 |
bds_bind(VV[21],small_fixnum(2)); |
bds_bind(VV[21],small_fixnum(2)); |
249 |
base[2]= Ct; |
base[2]= Ct; |
250 |
base[3]= VV[22]; |
base[3]= VV[22]; |
251 |
base[4]= symbol_value(VV[17]); |
base[4]= (VV[17]->s.s_dbind); |
252 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
253 |
Lformat(); |
Lformat(); |
254 |
vs_top=sup; |
vs_top=sup; |
299 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
300 |
Lformat(); |
Lformat(); |
301 |
vs_top=sup; |
vs_top=sup; |
302 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
303 |
{object V36 = (VFUN_NARGS=0,(*(LnkLI59))()); |
{object V36 = (VFUN_NARGS=0,(*(LnkLI59))()); |
304 |
bds_unwind1; |
bds_unwind1; |
305 |
VMR10(V36)} |
VMR10(V36)} |
311 |
static void L11() |
static void L11() |
312 |
{register object *base=vs_base; |
{register object *base=vs_base; |
313 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
314 |
vs_reserve(VM11); |
vs_check; |
|
check_arg(2); |
|
315 |
vs_top=sup; |
vs_top=sup; |
316 |
{object V37=base[0]->c.c_cdr; |
{object V37=base[0]->c.c_cdr; |
|
if(endp(V37))invalid_macro_call(); |
|
317 |
{object V38= (V37->c.c_car); |
{object V38= (V37->c.c_car); |
|
if(endp(V38))invalid_macro_call(); |
|
318 |
base[2]= (V38->c.c_car); |
base[2]= (V38->c.c_car); |
319 |
V38=V38->c.c_cdr; |
V38=V38->c.c_cdr; |
|
if(endp(V38))invalid_macro_call(); |
|
320 |
base[3]= (V38->c.c_car); |
base[3]= (V38->c.c_car); |
321 |
V38=V38->c.c_cdr; |
V38=V38->c.c_cdr; |
322 |
if(endp(V38)){ |
if(endp(V38)){ |
323 |
base[4]= Cnil; |
base[4]= Cnil; |
324 |
} else { |
} else { |
325 |
base[4]= (V38->c.c_car); |
base[4]= (V38->c.c_car); |
326 |
V38=V38->c.c_cdr;} |
}} |
|
if(!endp(V38))invalid_macro_call();} |
|
327 |
V37=V37->c.c_cdr; |
V37=V37->c.c_cdr; |
328 |
base[5]= V37;} |
base[5]= V37;} |
329 |
{register object V39; |
{register object V39; |
344 |
static void L12() |
static void L12() |
345 |
{register object *base=vs_base; |
{register object *base=vs_base; |
346 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
347 |
vs_reserve(VM12); |
vs_check; |
|
check_arg(2); |
|
348 |
vs_top=sup; |
vs_top=sup; |
349 |
{object V44=base[0]->c.c_cdr; |
{object V44=base[0]->c.c_cdr; |
|
if(endp(V44))invalid_macro_call(); |
|
350 |
{object V45= (V44->c.c_car); |
{object V45= (V44->c.c_car); |
|
if(endp(V45))invalid_macro_call(); |
|
351 |
base[2]= (V45->c.c_car); |
base[2]= (V45->c.c_car); |
352 |
V45=V45->c.c_cdr; |
V45=V45->c.c_cdr; |
|
if(endp(V45))invalid_macro_call(); |
|
353 |
base[3]= (V45->c.c_car); |
base[3]= (V45->c.c_car); |
354 |
V45=V45->c.c_cdr; |
V45=V45->c.c_cdr; |
355 |
if(endp(V45)){ |
if(endp(V45)){ |
356 |
base[4]= Cnil; |
base[4]= Cnil; |
357 |
} else { |
} else { |
358 |
base[4]= (V45->c.c_car); |
base[4]= (V45->c.c_car); |
359 |
V45=V45->c.c_cdr;} |
}} |
|
if(!endp(V45))invalid_macro_call();} |
|
360 |
V44=V44->c.c_cdr; |
V44=V44->c.c_cdr; |
361 |
base[5]= V44;} |
base[5]= V44;} |
362 |
{register object V46; |
{register object V46; |
377 |
static void L13() |
static void L13() |
378 |
{register object *base=vs_base; |
{register object *base=vs_base; |
379 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
380 |
vs_reserve(VM13); |
vs_check; |
|
check_arg(2); |
|
381 |
vs_top=sup; |
vs_top=sup; |
382 |
{object V51=base[0]->c.c_cdr; |
{object V51=base[0]->c.c_cdr; |
|
if(endp(V51))invalid_macro_call(); |
|
383 |
{object V52= (V51->c.c_car); |
{object V52= (V51->c.c_car); |
|
if(endp(V52))invalid_macro_call(); |
|
384 |
base[2]= (V52->c.c_car); |
base[2]= (V52->c.c_car); |
385 |
V52=V52->c.c_cdr; |
V52=V52->c.c_cdr; |
|
if(endp(V52))invalid_macro_call(); |
|
386 |
base[3]= (V52->c.c_car); |
base[3]= (V52->c.c_car); |
387 |
V52=V52->c.c_cdr; |
V52=V52->c.c_cdr; |
388 |
if(endp(V52)){ |
if(endp(V52)){ |
389 |
base[4]= Cnil; |
base[4]= Cnil; |
390 |
} else { |
} else { |
391 |
base[4]= (V52->c.c_car); |
base[4]= (V52->c.c_car); |
392 |
V52=V52->c.c_cdr;} |
}} |
|
if(!endp(V52))invalid_macro_call();} |
|
393 |
V51=V51->c.c_cdr; |
V51=V51->c.c_cdr; |
394 |
base[5]= V51;} |
base[5]= V51;} |
395 |
{object V53; |
{object V53; |
409 |
static void L14() |
static void L14() |
410 |
{register object *base=vs_base; |
{register object *base=vs_base; |
411 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
412 |
vs_reserve(VM14); |
vs_check; |
|
check_arg(2); |
|
413 |
vs_top=sup; |
vs_top=sup; |
414 |
{object V57=base[0]->c.c_cdr; |
{object V57=base[0]->c.c_cdr; |
|
if(endp(V57))invalid_macro_call(); |
|
415 |
{object V58= (V57->c.c_car); |
{object V58= (V57->c.c_car); |
|
if(endp(V58))invalid_macro_call(); |
|
416 |
base[2]= (V58->c.c_car); |
base[2]= (V58->c.c_car); |
417 |
V58=V58->c.c_cdr; |
V58=V58->c.c_cdr; |
|
if(endp(V58))invalid_macro_call(); |
|
418 |
base[3]= (V58->c.c_car); |
base[3]= (V58->c.c_car); |
419 |
V58=V58->c.c_cdr; |
V58=V58->c.c_cdr; |
420 |
if(endp(V58)){ |
if(endp(V58)){ |
421 |
base[4]= Cnil; |
base[4]= Cnil; |
422 |
} else { |
} else { |
423 |
base[4]= (V58->c.c_car); |
base[4]= (V58->c.c_car); |
424 |
V58=V58->c.c_cdr;} |
}} |
|
if(!endp(V58))invalid_macro_call();} |
|
425 |
V57=V57->c.c_cdr; |
V57=V57->c.c_cdr; |
426 |
base[5]= V57;} |
base[5]= V57;} |
427 |
{object V59; |
{object V59; |
441 |
static void L15() |
static void L15() |
442 |
{register object *base=vs_base; |
{register object *base=vs_base; |
443 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
444 |
vs_reserve(VM15); |
vs_check; |
445 |
bds_check; |
bds_check; |
446 |
{object V63; |
{object V63; |
|
check_arg(1); |
|
447 |
V63=(base[0]); |
V63=(base[0]); |
448 |
vs_top=sup; |
vs_top=sup; |
449 |
goto TTL; |
goto TTL; |
455 |
Llist(); |
Llist(); |
456 |
vs_top=sup; |
vs_top=sup; |
457 |
V64= vs_base[0]; |
V64= vs_base[0]; |
458 |
if((car((V64)))==Cnil){ |
if((CMPcar((V64)))==Cnil){ |
459 |
goto T93;} |
goto T93;} |
460 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
461 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
462 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
463 |
base[2]= Ct; |
base[2]= Ct; |
464 |
base[3]= VV[36]; |
base[3]= VV[36]; |
472 |
return; |
return; |
473 |
goto T93; |
goto T93; |
474 |
T93:; |
T93:; |
475 |
base[1]= cdr((V64)); |
base[1]= CMPcdr((V64)); |
476 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
477 |
Lvalues_list(); |
Lvalues_list(); |
478 |
return;} |
return;} |
491 |
V67= Cnil; |
V67= Cnil; |
492 |
{register object V68; |
{register object V68; |
493 |
register object V69; |
register object V69; |
494 |
V68= symbol_value(VV[37]); |
V68= (VV[37]->s.s_dbind); |
495 |
V69= car((V68)); |
V69= CMPcar((V68)); |
496 |
goto T108; |
goto T108; |
497 |
T108:; |
T108:; |
498 |
if(!(endp_prop((V68)))){ |
if(!(((V68))==Cnil)){ |
499 |
goto T109;} |
goto T109;} |
500 |
goto T104; |
goto T104; |
501 |
goto T109; |
goto T109; |
503 |
if(!(type_of((V69))==t_cons)){ |
if(!(type_of((V69))==t_cons)){ |
504 |
goto T113;} |
goto T113;} |
505 |
{register object V70; |
{register object V70; |
506 |
V70= list(3,car((V69)),VV[38],cadr((V69))); |
V70= list(3,CMPcar((V69)),VV[38],CMPcadr((V69))); |
507 |
V67= make_cons((V70),(V67));} |
V67= make_cons((V70),(V67));} |
508 |
goto T113; |
goto T113; |
509 |
T113:; |
T113:; |
510 |
V68= cdr((V68)); |
V68= CMPcdr((V68)); |
511 |
V69= car((V68)); |
V69= CMPcar((V68)); |
512 |
goto T108;} |
goto T108;} |
513 |
goto T104; |
goto T104; |
514 |
T104:; |
T104:; |
526 |
Llist(); |
Llist(); |
527 |
vs_top=sup; |
vs_top=sup; |
528 |
V72= vs_base[0]; |
V72= vs_base[0]; |
529 |
if((car((V72)))==Cnil){ |
if((CMPcar((V72)))==Cnil){ |
530 |
goto T131;} |
goto T131;} |
531 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
532 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
533 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
534 |
base[1]= Ct; |
base[1]= Ct; |
535 |
base[2]= VV[40]; |
base[2]= VV[40]; |
542 |
VMR16(V74)} |
VMR16(V74)} |
543 |
goto T131; |
goto T131; |
544 |
T131:; |
T131:; |
545 |
{object V75 = cadr((V72)); |
{object V75 = CMPcadr((V72)); |
546 |
VMR16(V75)}}} |
VMR16(V75)}}} |
547 |
base[0]=base[0]; |
base[0]=base[0]; |
548 |
return Cnil; |
return Cnil; |
560 |
V78= Cnil; |
V78= Cnil; |
561 |
{register object V79; |
{register object V79; |
562 |
register object V80; |
register object V80; |
563 |
V79= symbol_value(VV[37]); |
V79= (VV[37]->s.s_dbind); |
564 |
V80= car((V79)); |
V80= CMPcar((V79)); |
565 |
goto T145; |
goto T145; |
566 |
T145:; |
T145:; |
567 |
if(!(endp_prop((V79)))){ |
if(!(((V79))==Cnil)){ |
568 |
goto T146;} |
goto T146;} |
569 |
goto T141; |
goto T141; |
570 |
goto T146; |
goto T146; |
572 |
if(!(type_of((V80))==t_cons)){ |
if(!(type_of((V80))==t_cons)){ |
573 |
goto T150;} |
goto T150;} |
574 |
{register object V81; |
{register object V81; |
575 |
V81= list(3,car((V80)),VV[38],cadr((V80))); |
V81= list(3,CMPcar((V80)),VV[38],CMPcadr((V80))); |
576 |
V78= make_cons((V81),(V78));} |
V78= make_cons((V81),(V78));} |
577 |
goto T150; |
goto T150; |
578 |
T150:; |
T150:; |
579 |
V79= cdr((V79)); |
V79= CMPcdr((V79)); |
580 |
V80= car((V79)); |
V80= CMPcar((V79)); |
581 |
goto T145;} |
goto T145;} |
582 |
goto T141; |
goto T141; |
583 |
T141:; |
T141:; |
589 |
Llist(); |
Llist(); |
590 |
vs_top=sup; |
vs_top=sup; |
591 |
V82= vs_base[0]; |
V82= vs_base[0]; |
592 |
if((car((V82)))==Cnil){ |
if((CMPcar((V82)))==Cnil){ |
593 |
goto T164;} |
goto T164;} |
594 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
595 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
596 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
597 |
base[1]= Ct; |
base[1]= Ct; |
598 |
base[2]= VV[44]; |
base[2]= VV[44]; |
605 |
VMR17(V84)} |
VMR17(V84)} |
606 |
goto T164; |
goto T164; |
607 |
T164:; |
T164:; |
608 |
{object V85 = cadr((V82)); |
{object V85 = CMPcadr((V82)); |
609 |
VMR17(V85)}}} |
VMR17(V85)}}} |
610 |
base[0]=base[0]; |
base[0]=base[0]; |
611 |
return Cnil; |
return Cnil; |
623 |
V92= Cnil; |
V92= Cnil; |
624 |
{register object V93; |
{register object V93; |
625 |
register object V94; |
register object V94; |
626 |
V93= symbol_value(VV[37]); |
V93= (VV[37]->s.s_dbind); |
627 |
V94= car((V93)); |
V94= CMPcar((V93)); |
628 |
goto T178; |
goto T178; |
629 |
T178:; |
T178:; |
630 |
if(!(endp_prop((V93)))){ |
if(!(((V93))==Cnil)){ |
631 |
goto T179;} |
goto T179;} |
632 |
goto T174; |
goto T174; |
633 |
goto T179; |
goto T179; |
635 |
if(!(type_of((V94))==t_cons)){ |
if(!(type_of((V94))==t_cons)){ |
636 |
goto T183;} |
goto T183;} |
637 |
{register object V95; |
{register object V95; |
638 |
V95= list(3,car((V94)),VV[38],cadr((V94))); |
V95= list(3,CMPcar((V94)),VV[38],CMPcadr((V94))); |
639 |
V92= make_cons((V95),(V92));} |
V92= make_cons((V95),(V92));} |
640 |
goto T183; |
goto T183; |
641 |
T183:; |
T183:; |
642 |
V93= cdr((V93)); |
V93= CMPcdr((V93)); |
643 |
V94= car((V93)); |
V94= CMPcar((V93)); |
644 |
goto T178;} |
goto T178;} |
645 |
goto T174; |
goto T174; |
646 |
T174:; |
T174:; |
647 |
if(symbol_value(VV[46])==Cnil){ |
if((VV[46]->s.s_dbind)==Cnil){ |
648 |
goto T193;} |
goto T193;} |
649 |
(void)((*(LnkLI61))((V90))); |
base[0]= (V90); |
650 |
|
vs_top=(vs_base=base+0)+1; |
651 |
|
(void) (*Lnk61)(); |
652 |
|
vs_top=sup; |
653 |
goto T193; |
goto T193; |
654 |
T193:; |
T193:; |
655 |
if(((V92))==Cnil){ |
if(((V92))==Cnil){ |
656 |
goto T194;} |
goto T195;} |
657 |
V96= nreverse((V92)); |
V96= nreverse((V92)); |
658 |
V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil); |
V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil); |
659 |
goto T194; |
goto T195; |
660 |
T194:; |
T195:; |
661 |
{object V97; |
{object V97; |
662 |
V98= list(2,VV[35],(V89)); |
V98= list(2,VV[35],(V89)); |
663 |
V99= list(2,VV[35],make_cons((V90),(V91))); |
V99= list(2,VV[35],make_cons((V90),(V91))); |
667 |
Llist(); |
Llist(); |
668 |
vs_top=sup; |
vs_top=sup; |
669 |
V97= vs_base[0]; |
V97= vs_base[0]; |
670 |
if((car((V97)))==Cnil){ |
if((CMPcar((V97)))==Cnil){ |
671 |
goto T202;} |
goto T203;} |
672 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
673 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
674 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
675 |
base[1]= Ct; |
base[1]= Ct; |
676 |
base[2]= VV[49]; |
base[2]= VV[49]; |
681 |
{object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91)))); |
{object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91)))); |
682 |
bds_unwind1; |
bds_unwind1; |
683 |
VMR18(V100)} |
VMR18(V100)} |
684 |
goto T202; |
goto T203; |
685 |
T202:; |
T203:; |
686 |
{object V101 = cadr((V97)); |
{object V101 = CMPcadr((V97)); |
687 |
VMR18(V101)}}} |
VMR18(V101)}}} |
688 |
base[0]=base[0]; |
base[0]=base[0]; |
689 |
return Cnil; |
return Cnil; |
693 |
static void L19() |
static void L19() |
694 |
{register object *base=vs_base; |
{register object *base=vs_base; |
695 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
696 |
vs_reserve(VM19); |
vs_check; |
697 |
bds_check; |
bds_check; |
698 |
{object V102; |
{object V102; |
|
check_arg(1); |
|
699 |
V102=(base[0]); |
V102=(base[0]); |
700 |
vs_top=sup; |
vs_top=sup; |
701 |
goto TTL; |
goto TTL; |
702 |
TTL:; |
TTL:; |
703 |
bds_bind(VV[51],symbol_value(VV[52])); |
bds_bind(VV[51],(VV[52]->s.s_dbind)); |
704 |
vs_base=vs_top; |
vs_base=vs_top; |
705 |
(void) (*Lnk62)(); |
(void) (*Lnk62)(); |
706 |
vs_top=sup; |
vs_top=sup; |
707 |
V103= vs_base[0]; |
V103= vs_base[0]; |
708 |
bds_bind(VV[52],one_minus(V103)); |
bds_bind(VV[52],one_minus(V103)); |
709 |
bds_bind(VV[53],symbol_value(VV[54])); |
bds_bind(VV[53],(VV[54]->s.s_dbind)); |
710 |
base[5]= VV[56]; |
base[5]= VV[56]; |
711 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
712 |
Lfind_package(); |
Lfind_package(); |
713 |
vs_top=sup; |
vs_top=sup; |
714 |
V104= vs_base[0]; |
V104= vs_base[0]; |
715 |
bds_bind(VV[55],make_cons(V104,symbol_value(VV[55]))); |
bds_bind(VV[55],make_cons(V104,(VV[55]->s.s_dbind))); |
716 |
base[5]= (V102); |
base[5]= (V102); |
717 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
718 |
(void) (*Lnk63)(); |
(void) (*Lnk63)(); |
745 |
TTL:; |
TTL:; |
746 |
{register object V114; |
{register object V114; |
747 |
register object V115; |
register object V115; |
748 |
base[0]= (V112); |
V114= (((V112))->s.s_plist); |
|
vs_top=(vs_base=base+0)+1; |
|
|
Lsymbol_plist(); |
|
|
vs_top=sup; |
|
|
V114= vs_base[0]; |
|
749 |
V115= Cnil; |
V115= Cnil; |
750 |
goto T224; |
goto T224; |
751 |
T224:; |
T224:; |
752 |
V115= car((V114)); |
V115= CMPcar((V114)); |
753 |
if(!(type_of((V115))==t_symbol)){ |
if(!(type_of((V115))==t_symbol)){ |
754 |
goto T229;} |
goto T229;} |
755 |
if((get((V115),VV[57],Cnil))==Cnil){ |
{object V116 =((V115))->s.s_plist; |
756 |
|
object ind= VV[57]; |
757 |
|
while(V116!=Cnil){ |
758 |
|
if(V116->c.c_car==ind){ |
759 |
|
if(((V116->c.c_cdr->c.c_car))==Cnil){ |
760 |
|
goto T229;} |
761 |
|
goto T232; |
762 |
|
}else V116=V116->c.c_cdr->c.c_cdr;} |
763 |
goto T229;} |
goto T229;} |
764 |
V114= cddr((V114)); |
goto T232; |
765 |
|
T232:; |
766 |
|
V114= CMPcddr((V114)); |
767 |
(void)(remprop((V112),(V115))); |
(void)(remprop((V112),(V115))); |
768 |
goto T227; |
goto T227; |
769 |
goto T229; |
goto T229; |
770 |
T229:; |
T229:; |
771 |
V114= cddr((V114)); |
V114= CMPcddr((V114)); |
772 |
goto T227; |
goto T227; |
773 |
T227:; |
T227:; |
774 |
if(!(((V114))==Cnil)){ |
if(!(((V114))==Cnil)){ |
782 |
goto T222; |
goto T222; |
783 |
goto T222; |
goto T222; |
784 |
T222:; |
T222:; |
785 |
{object V116 = (*(LnkLI64))((V112),(V113)); |
{object V117 = (*(LnkLI64))((V112),(V113)); |
786 |
VMR21(V116)}} |
VMR21(V117)}} |
|
base[0]=base[0]; |
|
787 |
return Cnil; |
return Cnil; |
788 |
} |
} |
789 |
static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* COMPILER-DEF-HOOK */ |
static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* COMPILER-DEF-HOOK */ |
790 |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* ERROR-SET */ |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* ERROR-SET */ |
791 |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* IHS-TOP */ |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* IHS-TOP */ |
792 |
static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* ADD-MACRO-CALLEE */ |
static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* ADD-MACRO-CALLEE */ |
793 |
static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* CMP-TOPLEVEL-EVAL */ |
static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* CMP-TOPLEVEL-EVAL */ |
794 |
static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* BREAK */ |
static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* BREAK */ |
795 |
static object LnkTLI58(){return call_proc0(VV[58],(void **)(void *)&LnkLI58);} /* PRINT-CURRENT-FORM */ |
static object LnkTLI58(){return call_proc0(VV[58],(void **)(void *)&LnkLI58);} /* PRINT-CURRENT-FORM */ |