1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmputil.h" |
#include "cmputil.h" |
4 |
init_cmputil(){do_init(VV);} |
void init_cmputil(){do_init(VV);} |
5 |
/* macro definition for SAFE-COMPILE */ |
/* macro definition for SAFE-COMPILE */ |
6 |
|
|
7 |
static 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_reserve(VM1); |
27 |
bds_check; |
bds_check; |
28 |
{object V3; |
{object V3; |
29 |
object V4; |
object V4; |
30 |
|
Vcs[0]=Vcs[0]; |
31 |
|
va_start(ap); |
32 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
33 |
V3= V2; |
V3= V2; |
34 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
35 |
V5 = list_vector(narg,ap); |
V5 = list_vector(narg,ap); |
36 |
V4= V5; |
V4= V5; |
37 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
57 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); |
58 |
base[1]= VV[7]; |
base[1]= VV[7]; |
59 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
60 |
unwind(fr,VV[6]);}} |
unwind(fr,VV[6]);} |
61 |
|
va_end(ap); |
62 |
|
base[0]=base[0]; |
63 |
|
return Cnil;} |
64 |
} |
} |
65 |
/* macro definition for CMPCK */ |
/* macro definition for CMPCK */ |
66 |
|
|
67 |
static L3() |
static void L3() |
68 |
{register object *base=vs_base; |
{register object *base=vs_base; |
69 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
70 |
vs_reserve(VM3); |
vs_reserve(VM3); |
89 |
object V11;object V12;object V13; |
object V11;object V12;object V13; |
90 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
91 |
bds_check; |
bds_check; |
92 |
|
goto TTL; |
93 |
TTL:; |
TTL:; |
94 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
95 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
108 |
base[1]= VV[7]; |
base[1]= VV[7]; |
109 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
110 |
unwind(fr,VV[6]);} |
unwind(fr,VV[6]);} |
111 |
|
base[0]=base[0]; |
112 |
|
return Cnil; |
113 |
} |
} |
114 |
/* local entry for function TOO-FEW-ARGS */ |
/* local entry for function TOO-FEW-ARGS */ |
115 |
|
|
118 |
object V17;object V18;object V19; |
object V17;object V18;object V19; |
119 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
120 |
bds_check; |
bds_check; |
121 |
|
goto TTL; |
122 |
TTL:; |
TTL:; |
123 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
124 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
137 |
base[1]= VV[7]; |
base[1]= VV[7]; |
138 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
139 |
unwind(fr,VV[6]);} |
unwind(fr,VV[6]);} |
140 |
|
base[0]=base[0]; |
141 |
|
return Cnil; |
142 |
} |
} |
143 |
/* local entry for function CMPWARN */ |
/* local entry for function CMPWARN */ |
144 |
|
|
151 |
bds_check; |
bds_check; |
152 |
{object V21; |
{object V21; |
153 |
object V22; |
object V22; |
154 |
|
Vcs[0]=Vcs[0]; |
155 |
|
va_start(ap); |
156 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
157 |
V21= V20; |
V21= V20; |
158 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
159 |
V23 = list_vector(narg,ap); |
V23 = list_vector(narg,ap); |
160 |
V22= V23; |
V22= V23; |
161 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
178 |
Lformat(); |
Lformat(); |
179 |
vs_top=sup; |
vs_top=sup; |
180 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
181 |
|
goto T32; |
182 |
T32:; |
T32:; |
183 |
{object V25 = Cnil; |
{object V25 = Cnil; |
184 |
bds_unwind1; |
bds_unwind1; |
185 |
VMR6(V25)}} |
VMR6(V25)} |
186 |
|
va_end(ap); |
187 |
|
base[0]=base[0]; |
188 |
|
return Cnil;} |
189 |
} |
} |
190 |
/* local entry for function CMPNOTE */ |
/* local entry for function CMPNOTE */ |
191 |
|
|
198 |
bds_check; |
bds_check; |
199 |
{object V27; |
{object V27; |
200 |
object V28; |
object V28; |
201 |
|
Vcs[0]=Vcs[0]; |
202 |
|
va_start(ap); |
203 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
204 |
V27= V26; |
V27= V26; |
205 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
206 |
V29 = list_vector(narg,ap); |
V29 = list_vector(narg,ap); |
207 |
V28= V29; |
V28= V29; |
208 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
224 |
vs_base=base+1;} |
vs_base=base+1;} |
225 |
Lformat(); |
Lformat(); |
226 |
vs_top=sup; |
vs_top=sup; |
227 |
|
goto T43; |
228 |
T43:; |
T43:; |
229 |
{object V31 = Cnil; |
{object V31 = Cnil; |
230 |
bds_unwind1; |
bds_unwind1; |
231 |
VMR7(V31)}} |
VMR7(V31)} |
232 |
|
va_end(ap); |
233 |
|
base[0]=base[0]; |
234 |
|
return Cnil;} |
235 |
} |
} |
236 |
/* local entry for function PRINT-CURRENT-FORM */ |
/* local entry for function PRINT-CURRENT-FORM */ |
237 |
|
|
239 |
|
|
240 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
241 |
bds_check; |
bds_check; |
242 |
|
goto TTL; |
243 |
TTL:; |
TTL:; |
244 |
if((symbol_value(VV[16]))==Cnil){ |
if((symbol_value(VV[16]))==Cnil){ |
245 |
goto T53;} |
goto T53;} |
258 |
Lformat(); |
Lformat(); |
259 |
vs_top=sup; |
vs_top=sup; |
260 |
goto T53; |
goto T53; |
261 |
|
goto T60; |
262 |
T60:; |
T60:; |
263 |
bds_bind(VV[20],small_fixnum(2)); |
bds_bind(VV[20],small_fixnum(2)); |
264 |
bds_bind(VV[21],small_fixnum(2)); |
bds_bind(VV[21],small_fixnum(2)); |
270 |
vs_top=sup; |
vs_top=sup; |
271 |
bds_unwind1; |
bds_unwind1; |
272 |
bds_unwind1; |
bds_unwind1; |
273 |
|
goto T53; |
274 |
T53:; |
T53:; |
275 |
{object V32 = Cnil; |
{object V32 = Cnil; |
276 |
VMR8(V32)} |
VMR8(V32)} |
277 |
|
base[0]=base[0]; |
278 |
|
return Cnil; |
279 |
} |
} |
280 |
/* local entry for function UNDEFINED-VARIABLE */ |
/* local entry for function UNDEFINED-VARIABLE */ |
281 |
|
|
284 |
object V34; |
object V34; |
285 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
286 |
bds_check; |
bds_check; |
287 |
|
goto TTL; |
288 |
TTL:; |
TTL:; |
289 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
290 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
297 |
{object V35 = Cnil; |
{object V35 = Cnil; |
298 |
bds_unwind1; |
bds_unwind1; |
299 |
VMR9(V35)} |
VMR9(V35)} |
300 |
|
base[0]=base[0]; |
301 |
|
return Cnil; |
302 |
} |
} |
303 |
/* local entry for function BABOON */ |
/* local entry for function BABOON */ |
304 |
|
|
306 |
|
|
307 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
308 |
bds_check; |
bds_check; |
309 |
|
goto TTL; |
310 |
TTL:; |
TTL:; |
311 |
bds_bind(VV[3],VV[2]); |
bds_bind(VV[3],VV[2]); |
312 |
(void)((*(LnkLI58))()); |
(void)((*(LnkLI58))()); |
319 |
{object V36 = (VFUN_NARGS=0,(*(LnkLI59))()); |
{object V36 = (VFUN_NARGS=0,(*(LnkLI59))()); |
320 |
bds_unwind1; |
bds_unwind1; |
321 |
VMR10(V36)} |
VMR10(V36)} |
322 |
|
base[0]=base[0]; |
323 |
|
return Cnil; |
324 |
} |
} |
325 |
/* macro definition for DOLIST* */ |
/* macro definition for DOLIST* */ |
326 |
|
|
327 |
static L11() |
static void L11() |
328 |
{register object *base=vs_base; |
{register object *base=vs_base; |
329 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
330 |
vs_reserve(VM11); |
vs_reserve(VM11); |
362 |
} |
} |
363 |
/* macro definition for DOLIST** */ |
/* macro definition for DOLIST** */ |
364 |
|
|
365 |
static L12() |
static void L12() |
366 |
{register object *base=vs_base; |
{register object *base=vs_base; |
367 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
368 |
vs_reserve(VM12); |
vs_reserve(VM12); |
400 |
} |
} |
401 |
/* macro definition for DOTIMES* */ |
/* macro definition for DOTIMES* */ |
402 |
|
|
403 |
static L13() |
static void L13() |
404 |
{register object *base=vs_base; |
{register object *base=vs_base; |
405 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
406 |
vs_reserve(VM13); |
vs_reserve(VM13); |
437 |
} |
} |
438 |
/* macro definition for DOTIMES** */ |
/* macro definition for DOTIMES** */ |
439 |
|
|
440 |
static L14() |
static void L14() |
441 |
{register object *base=vs_base; |
{register object *base=vs_base; |
442 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
443 |
vs_reserve(VM14); |
vs_reserve(VM14); |
474 |
} |
} |
475 |
/* function definition for CMP-EVAL */ |
/* function definition for CMP-EVAL */ |
476 |
|
|
477 |
static L15() |
static void L15() |
478 |
{register object *base=vs_base; |
{register object *base=vs_base; |
479 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
480 |
vs_reserve(VM15); |
vs_reserve(VM15); |
483 |
check_arg(1); |
check_arg(1); |
484 |
V63=(base[0]); |
V63=(base[0]); |
485 |
vs_top=sup; |
vs_top=sup; |
486 |
|
goto TTL; |
487 |
TTL:; |
TTL:; |
488 |
{object V64; |
{object V64; |
489 |
base[1]= list(2,VV[34],list(2,VV[35],(V63))); |
base[1]= list(2,VV[34],list(2,VV[35],(V63))); |
507 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
508 |
bds_unwind1; |
bds_unwind1; |
509 |
return; |
return; |
510 |
|
goto T93; |
511 |
T93:; |
T93:; |
512 |
base[1]= cdr((V64)); |
base[1]= cdr((V64)); |
513 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
522 |
object V66; |
object V66; |
523 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
524 |
bds_check; |
bds_check; |
525 |
|
goto TTL; |
526 |
TTL:; |
TTL:; |
527 |
{register object V67; |
{register object V67; |
528 |
V67= Cnil; |
V67= Cnil; |
530 |
register object V69; |
register object V69; |
531 |
V68= symbol_value(VV[37]); |
V68= symbol_value(VV[37]); |
532 |
V69= car((V68)); |
V69= car((V68)); |
533 |
|
goto T108; |
534 |
T108:; |
T108:; |
535 |
if(!(endp((V68)))){ |
if(!(endp((V68)))){ |
536 |
goto T109;} |
goto T109;} |
537 |
goto T104; |
goto T104; |
538 |
|
goto T109; |
539 |
T109:; |
T109:; |
540 |
if(!(type_of((V69))==t_cons)){ |
if(!(type_of((V69))==t_cons)){ |
541 |
goto T113;} |
goto T113;} |
542 |
V70= list(3,car((V69)),VV[38],cadr((V69))); |
V70= list(3,car((V69)),VV[38],cadr((V69))); |
543 |
V67= make_cons(/* INLINE-ARGS */V70,(V67)); |
V67= make_cons(/* INLINE-ARGS */V70,(V67)); |
544 |
|
goto T113; |
545 |
T113:; |
T113:; |
546 |
V68= cdr((V68)); |
V68= cdr((V68)); |
547 |
V69= car((V68)); |
V69= car((V68)); |
548 |
goto T108;} |
goto T108;} |
549 |
|
goto T104; |
550 |
T104:; |
T104:; |
551 |
if(((V67))==Cnil){ |
if(((V67))==Cnil){ |
552 |
goto T122;} |
goto T122;} |
553 |
V71= nreverse((V67)); |
V71= nreverse((V67)); |
554 |
V67= list(3,Cnil,/* INLINE-ARGS */V71,Cnil); |
V67= list(3,Cnil,/* INLINE-ARGS */V71,Cnil); |
555 |
|
goto T122; |
556 |
T122:; |
T122:; |
557 |
{object V72; |
{object V72; |
558 |
V73= list(2,VV[35],(V66)); |
V73= list(2,VV[35],(V66)); |
576 |
{object V74 = list(3,VV[41],VV[42],list(2,VV[35],(V66))); |
{object V74 = list(3,VV[41],VV[42],list(2,VV[35],(V66))); |
577 |
bds_unwind1; |
bds_unwind1; |
578 |
VMR16(V74)} |
VMR16(V74)} |
579 |
|
goto T130; |
580 |
T130:; |
T130:; |
581 |
{object V75 = cadr((V72)); |
{object V75 = cadr((V72)); |
582 |
VMR16(V75)}}} |
VMR16(V75)}}} |
583 |
|
base[0]=base[0]; |
584 |
|
return Cnil; |
585 |
} |
} |
586 |
/* local entry for function CMP-MACROEXPAND-1 */ |
/* local entry for function CMP-MACROEXPAND-1 */ |
587 |
|
|
590 |
object V77; |
object V77; |
591 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
592 |
bds_check; |
bds_check; |
593 |
|
goto TTL; |
594 |
TTL:; |
TTL:; |
595 |
{register object V78; |
{register object V78; |
596 |
V78= Cnil; |
V78= Cnil; |
598 |
register object V80; |
register object V80; |
599 |
V79= symbol_value(VV[37]); |
V79= symbol_value(VV[37]); |
600 |
V80= car((V79)); |
V80= car((V79)); |
601 |
|
goto T144; |
602 |
T144:; |
T144:; |
603 |
if(!(endp((V79)))){ |
if(!(endp((V79)))){ |
604 |
goto T145;} |
goto T145;} |
605 |
goto T140; |
goto T140; |
606 |
|
goto T145; |
607 |
T145:; |
T145:; |
608 |
if(!(type_of((V80))==t_cons)){ |
if(!(type_of((V80))==t_cons)){ |
609 |
goto T149;} |
goto T149;} |
610 |
V81= list(3,car((V80)),VV[38],cadr((V80))); |
V81= list(3,car((V80)),VV[38],cadr((V80))); |
611 |
V78= make_cons(/* INLINE-ARGS */V81,(V78)); |
V78= make_cons(/* INLINE-ARGS */V81,(V78)); |
612 |
|
goto T149; |
613 |
T149:; |
T149:; |
614 |
V79= cdr((V79)); |
V79= cdr((V79)); |
615 |
V80= car((V79)); |
V80= car((V79)); |
616 |
goto T144;} |
goto T144;} |
617 |
|
goto T140; |
618 |
T140:; |
T140:; |
619 |
{object V82; |
{object V82; |
620 |
V83= list(2,VV[35],(V77)); |
V83= list(2,VV[35],(V77)); |
638 |
{object V84 = list(3,VV[41],VV[45],list(2,VV[35],(V77))); |
{object V84 = list(3,VV[41],VV[45],list(2,VV[35],(V77))); |
639 |
bds_unwind1; |
bds_unwind1; |
640 |
VMR17(V84)} |
VMR17(V84)} |
641 |
|
goto T162; |
642 |
T162:; |
T162:; |
643 |
{object V85 = cadr((V82)); |
{object V85 = cadr((V82)); |
644 |
VMR17(V85)}}} |
VMR17(V85)}}} |
645 |
|
base[0]=base[0]; |
646 |
|
return Cnil; |
647 |
} |
} |
648 |
/* local entry for function CMP-EXPAND-MACRO */ |
/* local entry for function CMP-EXPAND-MACRO */ |
649 |
|
|
652 |
object V89;register object V90;object V91; |
object V89;register object V90;object V91; |
653 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
654 |
bds_check; |
bds_check; |
655 |
|
goto TTL; |
656 |
TTL:; |
TTL:; |
657 |
{register object V92; |
{register object V92; |
658 |
V92= Cnil; |
V92= Cnil; |
660 |
register object V94; |
register object V94; |
661 |
V93= symbol_value(VV[37]); |
V93= symbol_value(VV[37]); |
662 |
V94= car((V93)); |
V94= car((V93)); |
663 |
|
goto T176; |
664 |
T176:; |
T176:; |
665 |
if(!(endp((V93)))){ |
if(!(endp((V93)))){ |
666 |
goto T177;} |
goto T177;} |
667 |
goto T172; |
goto T172; |
668 |
|
goto T177; |
669 |
T177:; |
T177:; |
670 |
if(!(type_of((V94))==t_cons)){ |
if(!(type_of((V94))==t_cons)){ |
671 |
goto T181;} |
goto T181;} |
672 |
V95= list(3,car((V94)),VV[38],cadr((V94))); |
V95= list(3,car((V94)),VV[38],cadr((V94))); |
673 |
V92= make_cons(/* INLINE-ARGS */V95,(V92)); |
V92= make_cons(/* INLINE-ARGS */V95,(V92)); |
674 |
|
goto T181; |
675 |
T181:; |
T181:; |
676 |
V93= cdr((V93)); |
V93= cdr((V93)); |
677 |
V94= car((V93)); |
V94= car((V93)); |
678 |
goto T176;} |
goto T176;} |
679 |
|
goto T172; |
680 |
T172:; |
T172:; |
681 |
if(symbol_value(VV[46])==Cnil){ |
if(symbol_value(VV[46])==Cnil){ |
682 |
goto T190;} |
goto T190;} |
683 |
(void)((*(LnkLI61))((V90))); |
(void)((*(LnkLI61))((V90))); |
684 |
|
goto T190; |
685 |
T190:; |
T190:; |
686 |
if(((V92))==Cnil){ |
if(((V92))==Cnil){ |
687 |
goto T191;} |
goto T191;} |
688 |
V96= nreverse((V92)); |
V96= nreverse((V92)); |
689 |
V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil); |
V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil); |
690 |
|
goto T191; |
691 |
T191:; |
T191:; |
692 |
{object V97; |
{object V97; |
693 |
V98= list(2,VV[35],(V89)); |
V98= list(2,VV[35],(V89)); |
712 |
{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)))); |
713 |
bds_unwind1; |
bds_unwind1; |
714 |
VMR18(V100)} |
VMR18(V100)} |
715 |
|
goto T199; |
716 |
T199:; |
T199:; |
717 |
{object V101 = cadr((V97)); |
{object V101 = cadr((V97)); |
718 |
VMR18(V101)}}} |
VMR18(V101)}}} |
719 |
|
base[0]=base[0]; |
720 |
|
return Cnil; |
721 |
} |
} |
722 |
/* function definition for CMP-TOPLEVEL-EVAL */ |
/* function definition for CMP-TOPLEVEL-EVAL */ |
723 |
|
|
724 |
static L19() |
static void L19() |
725 |
{register object *base=vs_base; |
{register object *base=vs_base; |
726 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
727 |
vs_reserve(VM19); |
vs_reserve(VM19); |
730 |
check_arg(1); |
check_arg(1); |
731 |
V102=(base[0]); |
V102=(base[0]); |
732 |
vs_top=sup; |
vs_top=sup; |
733 |
|
goto TTL; |
734 |
TTL:; |
TTL:; |
735 |
bds_bind(VV[51],symbol_value(VV[52])); |
bds_bind(VV[51],symbol_value(VV[52])); |
736 |
vs_base=vs_top; |
vs_base=vs_top; |
761 |
|
|
762 |
object V107;object V108; |
object V107;object V108; |
763 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
764 |
|
goto TTL; |
765 |
TTL:; |
TTL:; |
766 |
{object V109 = Cnil; |
{object V109 = Cnil; |
767 |
VMR20(V109)} |
VMR20(V109)} |
768 |
|
return Cnil; |
769 |
} |
} |
770 |
/* local entry for function COMPILER-CLEAR-COMPILER-PROPERTIES */ |
/* local entry for function COMPILER-CLEAR-COMPILER-PROPERTIES */ |
771 |
|
|
773 |
|
|
774 |
register object V112;object V113; |
register object V112;object V113; |
775 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
776 |
|
goto TTL; |
777 |
TTL:; |
TTL:; |
778 |
{register object V114; |
{register object V114; |
779 |
register object V115; |
register object V115; |
783 |
vs_top=sup; |
vs_top=sup; |
784 |
V114= vs_base[0]; |
V114= vs_base[0]; |
785 |
V115= Cnil; |
V115= Cnil; |
786 |
|
goto T221; |
787 |
T221:; |
T221:; |
788 |
V115= car((V114)); |
V115= car((V114)); |
789 |
if(!(type_of((V115))==t_symbol)){ |
if(!(type_of((V115))==t_symbol)){ |
793 |
V114= cddr((V114)); |
V114= cddr((V114)); |
794 |
(void)(remprop((V112),(V115))); |
(void)(remprop((V112),(V115))); |
795 |
goto T224; |
goto T224; |
796 |
|
goto T226; |
797 |
T226:; |
T226:; |
798 |
V114= cddr((V114)); |
V114= cddr((V114)); |
799 |
|
goto T224; |
800 |
T224:; |
T224:; |
801 |
if(!(((V114))==Cnil)){ |
if(!(((V114))==Cnil)){ |
802 |
goto T234;} |
goto T234;} |
803 |
goto T233; |
goto T233; |
804 |
|
goto T234; |
805 |
T234:; |
T234:; |
806 |
goto T221; |
goto T221; |
807 |
|
goto T233; |
808 |
T233:; |
T233:; |
809 |
goto T219; |
goto T219; |
810 |
|
goto T219; |
811 |
T219:; |
T219:; |
812 |
{object V116 = (*(LnkLI64))((V112),(V113)); |
{object V116 = (*(LnkLI64))((V112),(V113)); |
813 |
VMR21(V116)}} |
VMR21(V116)}} |
814 |
|
base[0]=base[0]; |
815 |
|
return Cnil; |
816 |
} |
} |
817 |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,2,ap);} /* COMPILER-DEF-HOOK */ |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,2,ap);} /* COMPILER-DEF-HOOK */ |
818 |
static LnkT63(){ call_or_link(VV[63],&Lnk63);} /* ERROR-SET */ |
static void LnkT63(){ call_or_link(VV[63],(void **)&Lnk63);} /* ERROR-SET */ |
819 |
static LnkT62(){ call_or_link(VV[62],&Lnk62);} /* IHS-TOP */ |
static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* IHS-TOP */ |
820 |
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* ADD-MACRO-CALLEE */ |
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,1,ap);} /* ADD-MACRO-CALLEE */ |
821 |
static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* CMP-TOPLEVEL-EVAL */ |
static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* CMP-TOPLEVEL-EVAL */ |
822 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[59],&LnkLI59,ap);} /* BREAK */ |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[59],(void **)&LnkLI59,ap);} /* BREAK */ |
823 |
static object LnkTLI58(){return call_proc0(VV[58],&LnkLI58);} /* PRINT-CURRENT-FORM */ |
static object LnkTLI58(){return call_proc0(VV[58],(void **)&LnkLI58);} /* PRINT-CURRENT-FORM */ |
824 |
|
|
825 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
826 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |