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 |
if(endp(V1))invalid_macro_call(); |
base[2]= (V1->c.c_car);} |
|
base[2]= (V1->c.c_car); |
|
|
V1=V1->c.c_cdr; |
|
|
if(!endp(V1))invalid_macro_call();} |
|
14 |
base[3]= list(3,VV[0],base[2],VV[1]); |
base[3]= list(3,VV[0],base[2],VV[1]); |
15 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
16 |
return; |
return; |
20 |
static void L2() |
static void L2() |
21 |
{register object *base=vs_base; |
{register object *base=vs_base; |
22 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
23 |
vs_reserve(VM2); |
vs_check; |
|
check_arg(2); |
|
24 |
vs_top=sup; |
vs_top=sup; |
25 |
{object V2=base[0]->c.c_cdr; |
{object V2=base[0]->c.c_cdr; |
26 |
if(endp(V2))invalid_macro_call(); |
base[2]= (V2->c.c_car);} |
|
base[2]= (V2->c.c_car); |
|
|
V2=V2->c.c_cdr; |
|
|
if(!endp(V2))invalid_macro_call();} |
|
27 |
base[3]= list(3,VV[0],base[2],VV[2]); |
base[3]= list(3,VV[0],base[2],VV[2]); |
28 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
29 |
return; |
return; |
33 |
static void L3() |
static void L3() |
34 |
{register object *base=vs_base; |
{register object *base=vs_base; |
35 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
36 |
vs_reserve(VM3); |
vs_check; |
|
check_arg(2); |
|
37 |
vs_top=sup; |
vs_top=sup; |
38 |
{object V3=base[0]->c.c_cdr; |
{object V3=base[0]->c.c_cdr; |
39 |
if(endp(V3))invalid_macro_call(); |
base[2]= (V3->c.c_car);} |
|
base[2]= (V3->c.c_car); |
|
|
V3=V3->c.c_cdr; |
|
|
if(!endp(V3))invalid_macro_call();} |
|
40 |
base[3]= list(2,VV[3],base[2]); |
base[3]= list(2,VV[3],base[2]); |
41 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
42 |
return; |
return; |
51 |
TTL:; |
TTL:; |
52 |
{register object V6; |
{register object V6; |
53 |
object V7; |
object V7; |
54 |
V8= list(2,VV[3],car((V5))); |
V8= list(2,VV[3],CMPcar((V5))); |
55 |
V6= (*(LnkLI79))(/* INLINE-ARGS */V8); |
V6= (*(LnkLI89))(/* INLINE-ARGS */V8); |
56 |
V7= cadr((V6)); |
V7= CMPcadr((V6)); |
57 |
if(!(type_of((V5))==t_cons)){ |
if(!(type_of((V5))==t_cons)){ |
58 |
goto T4;} |
goto T4;} |
59 |
if(!(type_of(car((V5)))==t_cons)){ |
if(!(type_of(CMPcar((V5)))==t_cons)){ |
60 |
goto T4;} |
goto T4;} |
61 |
if(!((caar((V5)))==(VV[4]))){ |
if(!((CMPcaar((V5)))==(VV[4]))){ |
62 |
goto T4;} |
goto T4;} |
63 |
if((cadr(car((V5))))!=Cnil){ |
if((CMPcadr(CMPcar((V5))))!=Cnil){ |
64 |
goto T4;} |
goto T4;} |
65 |
{register object V9; |
{register object V9; |
66 |
register object V10; |
register object V10; |
67 |
V9= structure_ref((V7),VV[5],1); |
V9= STREF(object,(V7),4); |
68 |
V10= car((V9)); |
V10= CMPcar((V9)); |
69 |
goto T16; |
goto T16; |
70 |
T16:; |
T16:; |
71 |
if(!(endp_prop((V9)))){ |
if(!(((V9))==Cnil)){ |
72 |
goto T17;} |
goto T17;} |
73 |
goto T12; |
goto T12; |
74 |
goto T17; |
goto T17; |
75 |
T17:; |
T17:; |
76 |
V11= structure_ref((V10),VV[6],1); |
if(!((STREF(object,(V10),4))==(VV[7]))){ |
|
if(!((/* INLINE-ARGS */V11)==(VV[7]))){ |
|
77 |
goto T21;} |
goto T21;} |
78 |
if((structure_ref((V10),VV[6],3))==Cnil){ |
if((STREF(object,(V10),12))==Cnil){ |
79 |
goto T21;} |
goto T21;} |
80 |
(void)(structure_set((V10),VV[6],1,VV[8])); |
V11= Ct; |
81 |
|
STSET(object,(V10),4, VV[8]); |
82 |
|
(void)(VV[8]); |
83 |
goto T21; |
goto T21; |
84 |
T21:; |
T21:; |
85 |
V9= cdr((V9)); |
V9= CMPcdr((V9)); |
86 |
V10= car((V9)); |
V10= CMPcar((V9)); |
87 |
goto T16;} |
goto T16;} |
88 |
goto T12; |
goto T12; |
89 |
T12:; |
T12:; |
|
if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6); |
|
90 |
(V6)->c.c_car = VV[9]; |
(V6)->c.c_car = VV[9]; |
91 |
{object V14 = (V6); |
{object V14 = (V6); |
92 |
VMR4(V14)} |
VMR4(V14)} |
106 |
goto TTL; |
goto TTL; |
107 |
TTL:; |
TTL:; |
108 |
princ_str("\n (DownClose",VV[10]); |
princ_str("\n (DownClose",VV[10]); |
109 |
(void)((*(LnkLI80))((V18))); |
(void)((*(LnkLI90))((V18))); |
110 |
princ_str(".t=t_dclosure,DownClose",VV[10]); |
princ_str(".t=t_dclosure,DownClose",VV[10]); |
111 |
(void)((*(LnkLI80))((V18))); |
(void)((*(LnkLI90))((V18))); |
112 |
princ_str(".dc_self=LC",VV[10]); |
princ_str(".dc_self=LC",VV[10]); |
113 |
(void)((*(LnkLI80))((V18))); |
(void)((*(LnkLI90))((V18))); |
114 |
princ_char(44,VV[10]); |
princ_char(44,VV[10]); |
115 |
princ_str("DownClose",VV[10]); |
princ_str("DownClose",VV[10]); |
116 |
(void)((*(LnkLI80))((V18))); |
(void)((*(LnkLI90))((V18))); |
117 |
princ_str(".dc_env=base0,(object)&DownClose",VV[10]); |
princ_str(".dc_env=base0,(object)&DownClose",VV[10]); |
118 |
(void)((*(LnkLI80))((V18))); |
(void)((*(LnkLI90))((V18))); |
119 |
princ_char(41,VV[10]); |
princ_char(41,VV[10]); |
120 |
{object V20 = Cnil; |
{object V20 = Cnil; |
121 |
VMR5(V20)} |
VMR5(V20)} |
145 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
146 |
goto TTL; |
goto TTL; |
147 |
TTL:; |
TTL:; |
148 |
if((symbol_value(VV[12]))==Cnil){ |
if(((VV[12]->s.s_dbind))==Cnil){ |
149 |
goto T49;} |
goto T49;} |
150 |
princ_str("\n#define DCnames",VV[13]); |
princ_str("\n#define DCnames",VV[13]); |
151 |
(void)((*(LnkLI81))((V23))); |
(void)((*(LnkLI91))((V23))); |
152 |
princ_char(32,VV[13]); |
princ_char(32,VV[13]); |
153 |
setq(VV[12],(VFUN_NARGS=2,(*(LnkLI82))(VV[14],symbol_value(VV[12])))); |
(VV[12]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI92))(VV[14],(VV[12]->s.s_dbind))); |
154 |
if((symbol_value(VV[12]))==Cnil){ |
if(((VV[12]->s.s_dbind))==Cnil){ |
155 |
goto T58;} |
goto T58;} |
156 |
(void)((*(LnkLI81))(VV[15])); |
(void)((*(LnkLI91))(VV[15])); |
157 |
{register object V24; |
{register object V24; |
158 |
V24= symbol_value(VV[12]); |
V24= (VV[12]->s.s_dbind); |
159 |
goto T63; |
goto T63; |
160 |
T63:; |
T63:; |
161 |
if(((V24))!=Cnil){ |
if(((V24))!=Cnil){ |
163 |
goto T61; |
goto T61; |
164 |
goto T64; |
goto T64; |
165 |
T64:; |
T64:; |
166 |
(void)((*(LnkLI81))(VV[16])); |
(void)((*(LnkLI91))(VV[16])); |
167 |
(void)((*(LnkLI81))(car((V24)))); |
(void)((*(LnkLI91))(CMPcar((V24)))); |
168 |
if((cdr((V24)))==Cnil){ |
if((CMPcdr((V24)))==Cnil){ |
169 |
goto T70;} |
goto T70;} |
170 |
(void)((*(LnkLI81))(VV[17])); |
(void)((*(LnkLI91))(VV[17])); |
171 |
goto T70; |
goto T70; |
172 |
T70:; |
T70:; |
173 |
V24= cdr((V24)); |
V24= CMPcdr((V24)); |
174 |
goto T63;} |
goto T63;} |
175 |
goto T61; |
goto T61; |
176 |
T61:; |
T61:; |
177 |
{object V25 = (*(LnkLI81))(VV[18]); |
{object V25 = (*(LnkLI91))(VV[18]); |
178 |
VMR7(V25)} |
VMR7(V25)} |
179 |
goto T58; |
goto T58; |
180 |
T58:; |
T58:; |
195 |
goto TTL; |
goto TTL; |
196 |
TTL:; |
TTL:; |
197 |
{register object V30; |
{register object V30; |
198 |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
(VV[22]->s.s_dbind)= number_plus((VV[22]->s.s_dbind),small_fixnum(1)); |
199 |
V30= (VFUN_NARGS=4,(*(LnkLI83))(VV[19],VV[20],VV[21],symbol_value(VV[22]))); |
V30= (VFUN_NARGS=4,(*(LnkLI93))(VV[19],VV[20],VV[21],(VV[22]->s.s_dbind))); |
200 |
{object V31; |
{object V31; |
201 |
if((symbol_value(VV[24]))!=Cnil){ |
if(((VV[24]->s.s_dbind))!=Cnil){ |
202 |
goto T82;} |
goto T82;} |
203 |
V32= Cnil; |
V32= Cnil; |
204 |
goto T80; |
goto T80; |
207 |
V32= make_cons(small_fixnum(0),small_fixnum(0)); |
V32= make_cons(small_fixnum(0),small_fixnum(0)); |
208 |
goto T80; |
goto T80; |
209 |
T80:; |
T80:; |
210 |
V31= list(5,VV[23],V32,symbol_value(VV[25]),(V30),(V29)); |
V31= list(5,VV[23],V32,(VV[25]->s.s_dbind),(V30),(V29)); |
211 |
setq(VV[26],make_cons((V31),symbol_value(VV[26])));} |
(VV[26]->s.s_dbind)= make_cons((V31),(VV[26]->s.s_dbind));} |
212 |
setq(VV[27],make_cons(V30,symbol_value(VV[27]))); |
(VV[27]->s.s_dbind)= make_cons(V30,(VV[27]->s.s_dbind)); |
213 |
{object V34; |
{object V34; |
214 |
V34= structure_ref((V30),VV[28],3); |
V34= STREF(object,(V30),12); |
215 |
setq(VV[12],make_cons((V34),symbol_value(VV[12])));} |
(VV[12]->s.s_dbind)= make_cons((V34),(VV[12]->s.s_dbind));} |
216 |
V35= list(3,VV[29],structure_ref((V30),VV[28],3),symbol_value(VV[24])); |
V35= list(3,VV[29],STREF(object,(V30),12),(VV[24]->s.s_dbind)); |
217 |
{object V36 = (VFUN_NARGS=1,(*(LnkLI84))(/* INLINE-ARGS */V35)); |
{object V36 = (VFUN_NARGS=1,(*(LnkLI94))(/* INLINE-ARGS */V35)); |
218 |
VMR8(V36)}} |
VMR8(V36)}} |
219 |
base[0]=base[0]; |
base[0]=base[0]; |
220 |
return Cnil; |
return Cnil; |
230 |
object V39; |
object V39; |
231 |
object V40; |
object V40; |
232 |
va_start(ap,first); |
va_start(ap,first); |
|
if(narg <1) too_few_arguments(); |
|
233 |
V38= V37; |
V38= V37; |
234 |
narg = narg - 1; |
narg = narg - 1; |
235 |
if (narg <= 0) goto T90; |
if (narg <= 0) goto T90; |
282 |
V56= Cnil; |
V56= Cnil; |
283 |
V57= Cnil; |
V57= Cnil; |
284 |
V58= Cnil; |
V58= Cnil; |
285 |
bds_bind(VV[30],symbol_value(VV[30])); |
bds_bind(VV[30],(VV[30]->s.s_dbind)); |
286 |
V59= (VFUN_NARGS=0,(*(LnkLI85))()); |
V59= (VFUN_NARGS=0,(*(LnkLI95))()); |
287 |
V60= Cnil; |
V60= Cnil; |
288 |
V61= symbol_value(VV[31]); |
V61= (VV[31]->s.s_dbind); |
289 |
if(!(endp_prop((V38)))){ |
if(!(((V38))==Cnil)){ |
290 |
goto T114;} |
goto T114;} |
291 |
V62= make_cons(VV[4],(V38)); |
V62= make_cons(VV[4],(V38)); |
292 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V62))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[32],/* INLINE-ARGS */V62))); |
293 |
goto T114; |
goto T114; |
294 |
T114:; |
T114:; |
295 |
base[2]= cdr((V38)); |
base[2]= CMPcdr((V38)); |
296 |
base[3]= Ct; |
base[3]= Ct; |
297 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
298 |
(void) (*Lnk87)(); |
(void) (*Lnk97)(); |
299 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
300 |
V53= vs_base[0]; |
V53= vs_base[0]; |
301 |
vs_base++; |
vs_base++; |
332 |
V53= make_cons(/* INLINE-ARGS */V63,Cnil); |
V53= make_cons(/* INLINE-ARGS */V63,Cnil); |
333 |
goto T121; |
goto T121; |
334 |
T121:; |
T121:; |
335 |
(void)((*(LnkLI88))((V54))); |
(void)((*(LnkLI98))((V54))); |
336 |
V51= car((V38)); |
V51= CMPcar((V38)); |
337 |
goto T130; |
goto T130; |
338 |
T130:; |
T130:; |
339 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
343 |
T136:; |
T136:; |
344 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
345 |
goto T139;} |
goto T139;} |
346 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51)))); |
347 |
goto T139; |
goto T139; |
348 |
T139:; |
T139:; |
349 |
{object V65; |
{object V65; |
350 |
V65= car((V51)); |
V65= CMPcar((V51)); |
351 |
V51= cdr((V51)); |
V51= CMPcdr((V51)); |
352 |
V52= (V65);} |
V52= (V65);} |
353 |
{object V64= (V52); |
{object V64= (V52); |
354 |
if((V64!= VV[69]))goto T147; |
if((V64!= VV[69]))goto T147; |
368 |
goto T150; |
goto T150; |
369 |
T150:;} |
T150:;} |
370 |
{object V66; |
{object V66; |
371 |
V66= (*(LnkLI89))((V52),(V54),(V55),(V56)); |
V66= (*(LnkLI99))((V52),(V54),(V55),(V56)); |
372 |
V58= make_cons(V52,(V58)); |
V58= make_cons(V52,(V58)); |
373 |
(VV[30]->s.s_dbind)= make_cons(V66,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V66,(VV[30]->s.s_dbind)); |
374 |
V41= make_cons(V66,(V41));} |
V41= make_cons(V66,(V41));} |
382 |
T158:; |
T158:; |
383 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
384 |
goto T161;} |
goto T161;} |
385 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51)))); |
386 |
goto T161; |
goto T161; |
387 |
T161:; |
T161:; |
388 |
{object V71; |
{object V71; |
389 |
V71= car((V51)); |
V71= CMPcar((V51)); |
390 |
V51= cdr((V51)); |
V51= CMPcdr((V51)); |
391 |
V52= (V71);} |
V52= (V71);} |
392 |
{object V70= (V52); |
{object V70= (V52); |
393 |
if((V70!= VV[68]))goto T169; |
if((V70!= VV[68]))goto T169; |
405 |
if(type_of((V52))==t_cons){ |
if(type_of((V52))==t_cons){ |
406 |
goto T174;} |
goto T174;} |
407 |
{object V72; |
{object V72; |
408 |
V72= (*(LnkLI89))((V52),(V54),(V55),(V56)); |
V72= (*(LnkLI99))((V52),(V54),(V55),(V56)); |
409 |
V58= make_cons(V52,(V58)); |
V58= make_cons(V52,(V58)); |
410 |
{object V74; |
{object V74; |
411 |
V75= structure_ref((V72),VV[6],5); |
V75= (*(LnkLI100))(STREF(object,(V72),20)); |
412 |
V76= (*(LnkLI90))(/* INLINE-ARGS */V75); |
V74= list(3,(V72),/* INLINE-ARGS */V75,Cnil); |
|
V74= list(3,(V72),/* INLINE-ARGS */V76,Cnil); |
|
413 |
V42= make_cons((V74),(V42));} |
V42= make_cons((V74),(V42));} |
414 |
(VV[30]->s.s_dbind)= make_cons(V72,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V72,(VV[30]->s.s_dbind)); |
415 |
goto T172;} |
goto T172;} |
416 |
goto T174; |
goto T174; |
417 |
T174:; |
T174:; |
418 |
if(type_of(cdr((V52)))==t_cons){ |
if(type_of(CMPcdr((V52)))==t_cons){ |
419 |
goto T184;} |
goto T184;} |
420 |
if((cdr((V52)))==Cnil){ |
if((CMPcdr((V52)))==Cnil){ |
421 |
goto T186;} |
goto T186;} |
422 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
423 |
goto T186; |
goto T186; |
424 |
T186:; |
T186:; |
425 |
|
{object V77; |
426 |
|
V77= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56)); |
427 |
{object V78; |
{object V78; |
428 |
V78= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
V78= CMPcar((V52)); |
429 |
|
V58= make_cons((V78),(V58));} |
430 |
{object V79; |
{object V79; |
431 |
V79= car((V52)); |
V80= (*(LnkLI100))(STREF(object,(V77),20)); |
432 |
V58= make_cons((V79),(V58));} |
V79= list(3,(V77),/* INLINE-ARGS */V80,Cnil); |
433 |
{object V80; |
V42= make_cons((V79),(V42));} |
434 |
V81= structure_ref((V78),VV[6],5); |
(VV[30]->s.s_dbind)= make_cons(V77,(VV[30]->s.s_dbind)); |
|
V82= (*(LnkLI90))(/* INLINE-ARGS */V81); |
|
|
V80= list(3,(V78),/* INLINE-ARGS */V82,Cnil); |
|
|
V42= make_cons((V80),(V42));} |
|
|
(VV[30]->s.s_dbind)= make_cons(V78,(VV[30]->s.s_dbind)); |
|
435 |
goto T172;} |
goto T172;} |
436 |
goto T184; |
goto T184; |
437 |
T184:; |
T184:; |
438 |
if(type_of(cddr((V52)))==t_cons){ |
if(type_of(CMPcddr((V52)))==t_cons){ |
439 |
goto T198;} |
goto T198;} |
440 |
if((cddr((V52)))==Cnil){ |
if((CMPcddr((V52)))==Cnil){ |
441 |
goto T200;} |
goto T200;} |
442 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
443 |
goto T200; |
goto T200; |
444 |
T200:; |
T200:; |
445 |
|
{object V82; |
446 |
|
object V83; |
447 |
|
V82= (*(LnkLI101))(CMPcadr((V52)),(V59)); |
448 |
|
V83= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56)); |
449 |
{object V84; |
{object V84; |
450 |
object V85; |
V84= CMPcar((V52)); |
451 |
V84= (*(LnkLI91))(cadr((V52)),(V59)); |
V58= make_cons((V84),(V58));} |
452 |
V85= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
{object V85; |
453 |
{object V86; |
V86= (*(LnkLI102))(STREF(object,(V83),20),(V82),CMPcadr((V52))); |
454 |
V86= car((V52)); |
V85= list(3,(V83),/* INLINE-ARGS */V86,Cnil); |
455 |
V58= make_cons((V86),(V58));} |
V42= make_cons((V85),(V42));} |
456 |
{object V87; |
(VV[30]->s.s_dbind)= make_cons(V83,(VV[30]->s.s_dbind)); |
|
V88= structure_ref((V85),VV[6],5); |
|
|
V89= (*(LnkLI92))(/* INLINE-ARGS */V88,(V84),cadr((V52))); |
|
|
V87= list(3,(V85),/* INLINE-ARGS */V89,Cnil); |
|
|
V42= make_cons((V87),(V42));} |
|
|
(VV[30]->s.s_dbind)= make_cons(V85,(VV[30]->s.s_dbind)); |
|
457 |
goto T172;} |
goto T172;} |
458 |
goto T198; |
goto T198; |
459 |
T198:; |
T198:; |
460 |
if((cdddr((V52)))==Cnil){ |
if((CMPcdddr((V52)))==Cnil){ |
461 |
goto T212;} |
goto T212;} |
462 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
463 |
goto T212; |
goto T212; |
464 |
T212:; |
T212:; |
465 |
|
{object V88; |
466 |
|
object V89; |
467 |
|
object V90; |
468 |
|
V88= (*(LnkLI101))(CMPcadr((V52)),(V59)); |
469 |
|
V89= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56)); |
470 |
|
V90= (*(LnkLI99))(CMPcaddr((V52)),(V54),(V55),(V56)); |
471 |
{object V91; |
{object V91; |
472 |
object V92; |
V91= CMPcar((V52)); |
473 |
object V93; |
V58= make_cons((V91),(V58));} |
474 |
V91= (*(LnkLI91))(cadr((V52)),(V59)); |
{object V92; |
475 |
V92= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
V92= CMPcaddr((V52)); |
476 |
V93= (*(LnkLI89))(caddr((V52)),(V54),(V55),(V56)); |
V58= make_cons((V92),(V58));} |
477 |
{object V94; |
{object V93; |
478 |
V94= car((V52)); |
V94= (*(LnkLI102))(STREF(object,(V89),20),(V88),CMPcadr((V52))); |
479 |
V58= make_cons((V94),(V58));} |
V93= list(3,(V89),/* INLINE-ARGS */V94,(V90)); |
480 |
{object V95; |
V42= make_cons((V93),(V42));} |
481 |
V95= caddr((V52)); |
(VV[30]->s.s_dbind)= make_cons(V89,(VV[30]->s.s_dbind)); |
482 |
V58= make_cons((V95),(V58));} |
(VV[30]->s.s_dbind)= make_cons(V90,(VV[30]->s.s_dbind));} |
|
{object V96; |
|
|
V97= structure_ref((V92),VV[6],5); |
|
|
V98= (*(LnkLI92))(/* INLINE-ARGS */V97,(V91),cadr((V52))); |
|
|
V96= list(3,(V92),/* INLINE-ARGS */V98,(V93)); |
|
|
V42= make_cons((V96),(V42));} |
|
|
(VV[30]->s.s_dbind)= make_cons(V92,(VV[30]->s.s_dbind)); |
|
|
(VV[30]->s.s_dbind)= make_cons(V93,(VV[30]->s.s_dbind));} |
|
483 |
goto T172; |
goto T172; |
484 |
T172:; |
T172:; |
485 |
goto T131; |
goto T131; |
487 |
T132:; |
T132:; |
488 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
489 |
goto T230;} |
goto T230;} |
490 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51)))); |
491 |
goto T230; |
goto T230; |
492 |
T230:; |
T230:; |
493 |
{object V101; |
{object V97; |
494 |
V101= car((V51)); |
V97= CMPcar((V51)); |
495 |
V58= make_cons((V101),(V58));} |
V58= make_cons((V97),(V58));} |
496 |
{object V103; |
{object V99; |
497 |
V103= car((V51)); |
V99= CMPcar((V51)); |
498 |
V51= cdr((V51)); |
V51= CMPcdr((V51)); |
499 |
V102= (V103);} |
V98= (V99);} |
500 |
V43= (*(LnkLI89))(V102,(V54),(V55),(V56)); |
V43= (*(LnkLI99))(V98,(V54),(V55),(V56)); |
501 |
(VV[30]->s.s_dbind)= make_cons(V43,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V43,(VV[30]->s.s_dbind)); |
502 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
503 |
goto T244;} |
goto T244;} |
506 |
T244:; |
T244:; |
507 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
508 |
goto T247;} |
goto T247;} |
509 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51)))); |
510 |
goto T247; |
goto T247; |
511 |
T247:; |
T247:; |
512 |
{object V106; |
{object V102; |
513 |
V106= car((V51)); |
V102= CMPcar((V51)); |
514 |
V51= cdr((V51)); |
V51= CMPcdr((V51)); |
515 |
V52= (V106);} |
V52= (V102);} |
516 |
{object V105= (V52); |
{object V101= (V52); |
517 |
if((V105!= VV[71]))goto T255; |
if((V101!= VV[71]))goto T255; |
518 |
goto T133; |
goto T133; |
519 |
goto T255; |
goto T255; |
520 |
T255:; |
T255:; |
521 |
if((V105!= VV[73]))goto T256; |
if((V101!= VV[73]))goto T256; |
522 |
goto T134; |
goto T134; |
523 |
goto T256; |
goto T256; |
524 |
T256:;} |
T256:;} |
525 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[36],(V52)))); |
526 |
goto T133; |
goto T133; |
527 |
T133:; |
T133:; |
528 |
V45= Ct; |
V45= Ct; |
533 |
T259:; |
T259:; |
534 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
535 |
goto T262;} |
goto T262;} |
536 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51)))); |
537 |
goto T262; |
goto T262; |
538 |
T262:; |
T262:; |
539 |
{object V108; |
{object V104; |
540 |
V108= car((V51)); |
V104= CMPcar((V51)); |
541 |
V51= cdr((V51)); |
V51= CMPcdr((V51)); |
542 |
V52= (V108);} |
V52= (V104);} |
543 |
{object V107= (V52); |
{object V103= (V52); |
544 |
if((V107!= VV[73]))goto T270; |
if((V103!= VV[73]))goto T270; |
545 |
goto T134; |
goto T134; |
546 |
goto T270; |
goto T270; |
547 |
T270:; |
T270:; |
548 |
if((V107!= VV[72]))goto T271; |
if((V103!= VV[72]))goto T271; |
549 |
V47= Ct; |
V47= Ct; |
550 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
551 |
goto T274;} |
goto T274;} |
554 |
T274:; |
T274:; |
555 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
556 |
goto T277;} |
goto T277;} |
557 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51)))); |
558 |
goto T277; |
goto T277; |
559 |
T277:; |
T277:; |
560 |
{object V110; |
{object V106; |
561 |
V110= car((V51)); |
V106= CMPcar((V51)); |
562 |
V51= cdr((V51)); |
V51= CMPcdr((V51)); |
563 |
V52= (V110);} |
V52= (V106);} |
564 |
{object V109= (V52); |
{object V105= (V52); |
565 |
if((V109!= VV[73]))goto T285; |
if((V105!= VV[73]))goto T285; |
566 |
goto T134; |
goto T134; |
567 |
goto T285; |
goto T285; |
568 |
T285:;} |
T285:;} |
569 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[37],(V52)))); |
570 |
goto T265; |
goto T265; |
571 |
goto T271; |
goto T271; |
572 |
T271:;} |
T271:;} |
577 |
V52= make_cons((V52),Cnil); |
V52= make_cons((V52),Cnil); |
578 |
goto T286; |
goto T286; |
579 |
T286:; |
T286:; |
580 |
if(!(type_of(car((V52)))==t_cons)){ |
if(!(type_of(CMPcar((V52)))==t_cons)){ |
581 |
goto T292;} |
goto T292;} |
582 |
{object V111= caar((V52)); |
{object V107= CMPcaar((V52)); |
583 |
if(!((type_of(V111)==t_symbol&&(V111)->s.s_hpack==keyword_package))){ |
if(!((type_of(V107)==t_symbol&&(V107)->s.s_hpack==keyword_package))){ |
584 |
goto T295;}} |
goto T295;}} |
585 |
if(!(type_of(cdar((V52)))==t_cons)){ |
if(!(type_of(CMPcdar((V52)))==t_cons)){ |
586 |
goto T295;} |
goto T295;} |
587 |
if((cddar((V52)))==Cnil){ |
if((CMPcddar((V52)))==Cnil){ |
588 |
goto T294;} |
goto T294;} |
589 |
goto T295; |
goto T295; |
590 |
T295:; |
T295:; |
591 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
592 |
goto T294; |
goto T294; |
593 |
T294:; |
T294:; |
594 |
V52= listA(3,caar((V52)),cadar((V52)),cdr((V52))); |
V52= listA(3,CMPcaar((V52)),CMPcadar((V52)),CMPcdr((V52))); |
595 |
goto T290; |
goto T290; |
596 |
goto T292; |
goto T292; |
597 |
T292:; |
T292:; |
598 |
if(type_of(car((V52)))==t_symbol){ |
if(type_of(CMPcar((V52)))==t_symbol){ |
599 |
goto T302;} |
goto T302;} |
600 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
601 |
goto T302; |
goto T302; |
602 |
T302:; |
T302:; |
603 |
base[2]= coerce_to_string(car((V52))); |
base[2]= coerce_to_string(CMPcar((V52))); |
604 |
base[3]= VV[38]; |
base[3]= VV[38]; |
605 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
606 |
Lintern(); |
Lintern(); |
607 |
vs_top=sup; |
vs_top=sup; |
608 |
V112= vs_base[0]; |
V108= vs_base[0]; |
609 |
V52= listA(3,V112,car((V52)),cdr((V52))); |
V52= listA(3,V108,CMPcar((V52)),CMPcdr((V52))); |
610 |
goto T290; |
goto T290; |
611 |
T290:; |
T290:; |
612 |
if(type_of(cddr((V52)))==t_cons){ |
if(type_of(CMPcddr((V52)))==t_cons){ |
613 |
goto T311;} |
goto T311;} |
614 |
if((cddr((V52)))==Cnil){ |
if((CMPcddr((V52)))==Cnil){ |
615 |
goto T313;} |
goto T313;} |
616 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
617 |
goto T313; |
goto T313; |
618 |
T313:; |
T313:; |
619 |
{object V113; |
{object V109; |
620 |
V113= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56)); |
V109= (*(LnkLI99))(CMPcadr((V52)),(V54),(V55),(V56)); |
621 |
{object V114; |
{object V110; |
622 |
V114= cadr((V52)); |
V110= CMPcadr((V52)); |
623 |
V58= make_cons((V114),(V58));} |
V58= make_cons((V110),(V58));} |
624 |
{object V115; |
{object V111; |
625 |
V116= car((V52)); |
V112= CMPcar((V52)); |
626 |
V117= structure_ref((V113),VV[6],5); |
V113= (*(LnkLI100))(STREF(object,(V109),20)); |
627 |
V118= (*(LnkLI90))(/* INLINE-ARGS */V117); |
V111= list(4,/* INLINE-ARGS */V112,(V109),/* INLINE-ARGS */V113,(VFUN_NARGS=2,(*(LnkLI103))(VV[39],VV[40]))); |
628 |
V115= list(4,/* INLINE-ARGS */V116,(V113),/* INLINE-ARGS */V118,(VFUN_NARGS=2,(*(LnkLI93))(VV[39],VV[40]))); |
V44= make_cons((V111),(V44));} |
629 |
V44= make_cons((V115),(V44));} |
(VV[30]->s.s_dbind)= make_cons(V109,(VV[30]->s.s_dbind)); |
|
(VV[30]->s.s_dbind)= make_cons(V113,(VV[30]->s.s_dbind)); |
|
630 |
goto T309;} |
goto T309;} |
631 |
goto T311; |
goto T311; |
632 |
T311:; |
T311:; |
633 |
if(type_of(cdddr((V52)))==t_cons){ |
if(type_of(CMPcdddr((V52)))==t_cons){ |
634 |
goto T325;} |
goto T325;} |
635 |
if((cdddr((V52)))==Cnil){ |
if((CMPcdddr((V52)))==Cnil){ |
636 |
goto T327;} |
goto T327;} |
637 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
638 |
goto T327; |
goto T327; |
639 |
T327:; |
T327:; |
640 |
{object V120; |
{object V115; |
641 |
object V121; |
object V116; |
642 |
V120= (*(LnkLI91))(caddr((V52)),(V59)); |
V115= (*(LnkLI101))(CMPcaddr((V52)),(V59)); |
643 |
V121= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56)); |
V116= (*(LnkLI99))(CMPcadr((V52)),(V54),(V55),(V56)); |
644 |
{object V122; |
{object V117; |
645 |
V122= cadr((V52)); |
V117= CMPcadr((V52)); |
646 |
V58= make_cons((V122),(V58));} |
V58= make_cons((V117),(V58));} |
647 |
{object V123; |
{object V118; |
648 |
V124= car((V52)); |
V119= CMPcar((V52)); |
649 |
V125= structure_ref((V121),VV[6],5); |
V120= (*(LnkLI102))(STREF(object,(V116),20),(V115),CMPcaddr((V52))); |
650 |
V126= (*(LnkLI92))(/* INLINE-ARGS */V125,(V120),caddr((V52))); |
V118= list(4,/* INLINE-ARGS */V119,(V116),/* INLINE-ARGS */V120,(VFUN_NARGS=2,(*(LnkLI103))(VV[39],VV[40]))); |
651 |
V123= list(4,/* INLINE-ARGS */V124,(V121),/* INLINE-ARGS */V126,(VFUN_NARGS=2,(*(LnkLI93))(VV[39],VV[40]))); |
V44= make_cons((V118),(V44));} |
652 |
V44= make_cons((V123),(V44));} |
(VV[30]->s.s_dbind)= make_cons(V116,(VV[30]->s.s_dbind)); |
|
(VV[30]->s.s_dbind)= make_cons(V121,(VV[30]->s.s_dbind)); |
|
653 |
goto T309;} |
goto T309;} |
654 |
goto T325; |
goto T325; |
655 |
T325:; |
T325:; |
656 |
if((cddddr((V52)))==Cnil){ |
if((CMPcddddr((V52)))==Cnil){ |
657 |
goto T339;} |
goto T339;} |
658 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
659 |
goto T339; |
goto T339; |
660 |
T339:; |
T339:; |
661 |
{object V128; |
{object V122; |
662 |
object V129; |
object V123; |
663 |
object V130; |
object V124; |
664 |
V128= (*(LnkLI91))(caddr((V52)),(V59)); |
V122= (*(LnkLI101))(CMPcaddr((V52)),(V59)); |
665 |
V129= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56)); |
V123= (*(LnkLI99))(CMPcadr((V52)),(V54),(V55),(V56)); |
666 |
V130= (*(LnkLI89))(cadddr((V52)),(V54),(V55),(V56)); |
V124= (*(LnkLI99))(CMPcadddr((V52)),(V54),(V55),(V56)); |
667 |
{object V131; |
{object V125; |
668 |
V131= cadr((V52)); |
V125= CMPcadr((V52)); |
669 |
V58= make_cons((V131),(V58));} |
V58= make_cons((V125),(V58));} |
670 |
{object V132; |
{object V126; |
671 |
V132= cadddr((V52)); |
V126= CMPcadddr((V52)); |
672 |
V58= make_cons((V132),(V58));} |
V58= make_cons((V126),(V58));} |
673 |
{object V133; |
{object V127; |
674 |
V134= car((V52)); |
V128= CMPcar((V52)); |
675 |
V135= structure_ref((V129),VV[6],5); |
V129= (*(LnkLI102))(STREF(object,(V123),20),(V122),CMPcaddr((V52))); |
676 |
V136= (*(LnkLI92))(/* INLINE-ARGS */V135,(V128),caddr((V52))); |
V127= list(4,/* INLINE-ARGS */V128,(V123),/* INLINE-ARGS */V129,(V124)); |
677 |
V133= list(4,/* INLINE-ARGS */V134,(V129),/* INLINE-ARGS */V136,(V130)); |
V44= make_cons((V127),(V44));} |
678 |
V44= make_cons((V133),(V44));} |
(VV[30]->s.s_dbind)= make_cons(V123,(VV[30]->s.s_dbind)); |
679 |
(VV[30]->s.s_dbind)= make_cons(V129,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V124,(VV[30]->s.s_dbind));} |
|
(VV[30]->s.s_dbind)= make_cons(V130,(VV[30]->s.s_dbind));} |
|
680 |
goto T309; |
goto T309; |
681 |
T309:; |
T309:; |
682 |
goto T133; |
goto T133; |
683 |
goto T134; |
goto T134; |
684 |
T134:; |
T134:; |
685 |
V60= (VFUN_NARGS=0,(*(LnkLI85))()); |
V60= (VFUN_NARGS=0,(*(LnkLI95))()); |
686 |
goto T135; |
goto T135; |
687 |
T135:; |
T135:; |
688 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
689 |
goto T358;} |
goto T358;} |
690 |
(void)((*(LnkLI94))((V59),(V60))); |
(void)((*(LnkLI104))((V59),(V60))); |
691 |
goto T128; |
goto T128; |
692 |
goto T358; |
goto T358; |
693 |
T358:; |
T358:; |
694 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
695 |
goto T362;} |
goto T362;} |
696 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51)))); |
697 |
goto T362; |
goto T362; |
698 |
T362:; |
T362:; |
699 |
{object V139; |
{object V132; |
700 |
V139= car((V51)); |
V132= CMPcar((V51)); |
701 |
V51= cdr((V51)); |
V51= CMPcdr((V51)); |
702 |
V52= (V139);} |
V52= (V132);} |
703 |
if(!(type_of((V52))==t_cons)){ |
if(!(type_of((V52))==t_cons)){ |
704 |
goto T372;} |
goto T372;} |
705 |
if(type_of(cdr((V52)))==t_cons){ |
if(type_of(CMPcdr((V52)))==t_cons){ |
706 |
goto T375;} |
goto T375;} |
707 |
if((cdr((V52)))==Cnil){ |
if((CMPcdr((V52)))==Cnil){ |
708 |
goto T377;} |
goto T377;} |
709 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
710 |
goto T377; |
goto T377; |
711 |
T377:; |
T377:; |
712 |
{object V140; |
{object V133; |
713 |
V140= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
V133= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56)); |
714 |
{object V141; |
{object V134; |
715 |
V141= car((V52)); |
V134= CMPcar((V52)); |
716 |
V58= make_cons((V141),(V58));} |
V58= make_cons((V134),(V58));} |
717 |
{object V142; |
{object V135; |
718 |
V143= structure_ref((V140),VV[6],5); |
V135= (*(LnkLI100))(STREF(object,(V133),20)); |
719 |
V142= (*(LnkLI90))(/* INLINE-ARGS */V143); |
V49= make_cons((V135),(V49));} |
720 |
V49= make_cons((V142),(V49));} |
V48= make_cons(V133,(V48)); |
721 |
V48= make_cons(V140,(V48)); |
(VV[30]->s.s_dbind)= make_cons(V133,(VV[30]->s.s_dbind)); |
|
(VV[30]->s.s_dbind)= make_cons(V140,(VV[30]->s.s_dbind)); |
|
722 |
goto T370;} |
goto T370;} |
723 |
goto T375; |
goto T375; |
724 |
T375:; |
T375:; |
725 |
if((cddr((V52)))==Cnil){ |
if((CMPcddr((V52)))==Cnil){ |
726 |
goto T390;} |
goto T390;} |
727 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52)))); |
728 |
goto T390; |
goto T390; |
729 |
T390:; |
T390:; |
730 |
{object V146; |
{object V138; |
731 |
object V147; |
object V139; |
732 |
V146= (*(LnkLI91))(cadr((V52)),(V60)); |
V138= (*(LnkLI101))(CMPcadr((V52)),(V60)); |
733 |
V147= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
V139= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56)); |
734 |
{object V148; |
{object V140; |
735 |
V148= car((V52)); |
V140= CMPcar((V52)); |
736 |
V58= make_cons((V148),(V58));} |
V58= make_cons((V140),(V58));} |
737 |
{object V149; |
{object V141; |
738 |
V150= structure_ref((V147),VV[6],5); |
V141= (*(LnkLI102))(STREF(object,(V139),20),(V138),CMPcadr((V52))); |
739 |
V149= (*(LnkLI92))(/* INLINE-ARGS */V150,(V146),cadr((V52))); |
V49= make_cons((V141),(V49));} |
740 |
V49= make_cons((V149),(V49));} |
V48= make_cons(V139,(V48)); |
741 |
V48= make_cons(V147,(V48)); |
(VV[30]->s.s_dbind)= make_cons(V139,(VV[30]->s.s_dbind)); |
|
(VV[30]->s.s_dbind)= make_cons(V147,(VV[30]->s.s_dbind)); |
|
742 |
goto T370;} |
goto T370;} |
743 |
goto T372; |
goto T372; |
744 |
T372:; |
T372:; |
745 |
{object V153; |
{object V144; |
746 |
V153= (*(LnkLI89))((V52),(V54),(V55),(V56)); |
V144= (*(LnkLI99))((V52),(V54),(V55),(V56)); |
747 |
V58= make_cons(V52,(V58)); |
V58= make_cons(V52,(V58)); |
748 |
{object V155; |
{object V146; |
749 |
V156= structure_ref((V153),VV[6],5); |
V146= (*(LnkLI100))(STREF(object,(V144),20)); |
750 |
V155= (*(LnkLI90))(/* INLINE-ARGS */V156); |
V49= make_cons((V146),(V49));} |
751 |
V49= make_cons((V155),(V49));} |
V48= make_cons(V144,(V48)); |
752 |
V48= make_cons(V153,(V48)); |
(VV[30]->s.s_dbind)= make_cons(V144,(VV[30]->s.s_dbind));} |
|
(VV[30]->s.s_dbind)= make_cons(V153,(VV[30]->s.s_dbind));} |
|
753 |
goto T370; |
goto T370; |
754 |
T370:; |
T370:; |
755 |
goto T135; |
goto T135; |
760 |
V44= reverse((V44)); |
V44= reverse((V44)); |
761 |
V48= reverse((V48)); |
V48= reverse((V48)); |
762 |
V49= reverse((V49)); |
V49= reverse((V49)); |
763 |
(void)((*(LnkLI95))((V58),(V56),(V55))); |
(void)((*(LnkLI105))((V58),(V56),(V55))); |
764 |
V53= (*(LnkLI96))((V57),(V53)); |
V53= (*(LnkLI106))((V57),(V53)); |
765 |
(void)((*(LnkLI94))((V59),cadr((V53)))); |
(void)((*(LnkLI104))((V59),CMPcadr((V53)))); |
766 |
{object V159; |
{object V149; |
767 |
object V160; |
object V150; |
768 |
V159= (V41); |
V149= (V41); |
769 |
V160= car((V159)); |
V150= CMPcar((V149)); |
770 |
goto T432; |
goto T432; |
771 |
T432:; |
T432:; |
772 |
if(!(endp_prop((V159)))){ |
if(!(((V149))==Cnil)){ |
773 |
goto T433;} |
goto T433;} |
774 |
goto T428; |
goto T428; |
775 |
goto T433; |
goto T433; |
776 |
T433:; |
T433:; |
777 |
(void)((*(LnkLI97))((V160))); |
(void)((*(LnkLI107))((V150))); |
778 |
V159= cdr((V159)); |
V149= CMPcdr((V149)); |
779 |
V160= car((V159)); |
V150= CMPcar((V149)); |
780 |
goto T432;} |
goto T432;} |
781 |
goto T428; |
goto T428; |
782 |
T428:; |
T428:; |
783 |
{object V161; |
{object V151; |
784 |
object V162; |
object V152; |
785 |
V161= (V42); |
V151= (V42); |
786 |
V162= car((V161)); |
V152= CMPcar((V151)); |
787 |
goto T447; |
goto T447; |
788 |
T447:; |
T447:; |
789 |
if(!(endp_prop((V161)))){ |
if(!(((V151))==Cnil)){ |
790 |
goto T448;} |
goto T448;} |
791 |
goto T443; |
goto T443; |
792 |
goto T448; |
goto T448; |
793 |
T448:; |
T448:; |
794 |
(void)((*(LnkLI97))(car((V162)))); |
(void)((*(LnkLI107))(CMPcar((V152)))); |
795 |
if((caddr((V162)))==Cnil){ |
if((CMPcaddr((V152)))==Cnil){ |
796 |
goto T453;} |
goto T453;} |
797 |
(void)((*(LnkLI97))(caddr((V162)))); |
(void)((*(LnkLI107))(CMPcaddr((V152)))); |
798 |
goto T453; |
goto T453; |
799 |
T453:; |
T453:; |
800 |
V161= cdr((V161)); |
V151= CMPcdr((V151)); |
801 |
V162= car((V161)); |
V152= CMPcar((V151)); |
802 |
goto T447;} |
goto T447;} |
803 |
goto T443; |
goto T443; |
804 |
T443:; |
T443:; |
805 |
if(((V43))==Cnil){ |
if(((V43))==Cnil){ |
806 |
goto T461;} |
goto T461;} |
807 |
(void)((*(LnkLI97))((V43))); |
(void)((*(LnkLI107))((V43))); |
808 |
goto T461; |
goto T461; |
809 |
T461:; |
T461:; |
810 |
{object V163; |
{object V153; |
811 |
object V164; |
object V154; |
812 |
V163= (V44); |
V153= (V44); |
813 |
V164= car((V163)); |
V154= CMPcar((V153)); |
814 |
goto T468; |
goto T468; |
815 |
T468:; |
T468:; |
816 |
if(!(endp_prop((V163)))){ |
if(!(((V153))==Cnil)){ |
817 |
goto T469;} |
goto T469;} |
818 |
goto T464; |
goto T464; |
819 |
goto T469; |
goto T469; |
820 |
T469:; |
T469:; |
821 |
(void)((*(LnkLI97))(cadr((V164)))); |
(void)((*(LnkLI107))(CMPcadr((V154)))); |
822 |
if((cadddr((V164)))==Cnil){ |
if((CMPcadddr((V154)))==Cnil){ |
823 |
goto T474;} |
goto T474;} |
824 |
(void)((*(LnkLI97))(cadddr((V164)))); |
(void)((*(LnkLI107))(CMPcadddr((V154)))); |
825 |
goto T474; |
goto T474; |
826 |
T474:; |
T474:; |
827 |
V163= cdr((V163)); |
V153= CMPcdr((V153)); |
828 |
V164= car((V163)); |
V154= CMPcar((V153)); |
829 |
goto T468;} |
goto T468;} |
830 |
goto T464; |
goto T464; |
831 |
T464:; |
T464:; |
832 |
{object V165; |
{object V155; |
833 |
object V166; |
object V156; |
834 |
V165= (V48); |
V155= (V48); |
835 |
V166= car((V165)); |
V156= CMPcar((V155)); |
836 |
goto T486; |
goto T486; |
837 |
T486:; |
T486:; |
838 |
if(!(endp_prop((V165)))){ |
if(!(((V155))==Cnil)){ |
839 |
goto T487;} |
goto T487;} |
840 |
goto T482; |
goto T482; |
841 |
goto T487; |
goto T487; |
842 |
T487:; |
T487:; |
843 |
(void)((*(LnkLI97))((V166))); |
(void)((*(LnkLI107))((V156))); |
844 |
V165= cdr((V165)); |
V155= CMPcdr((V155)); |
845 |
V166= car((V165)); |
V156= CMPcar((V155)); |
846 |
goto T486;} |
goto T486;} |
847 |
goto T482; |
goto T482; |
848 |
T482:; |
T482:; |
849 |
if(((V48))==Cnil){ |
if(((V48))==Cnil){ |
850 |
goto T497;} |
goto T497;} |
851 |
(void)((*(LnkLI94))((V60),cadr((V53)))); |
(void)((*(LnkLI104))((V60),CMPcadr((V53)))); |
852 |
V53= list(5,VV[41],(V60),(V48),(V49),(V53)); |
V53= list(5,VV[41],(V60),(V48),(V49),(V53)); |
853 |
if(!(eql((V61),symbol_value(VV[31])))){ |
if(!(eql((V61),(VV[31]->s.s_dbind)))){ |
854 |
goto T503;} |
goto T503;} |
855 |
goto T497; |
goto T497; |
856 |
goto T503; |
goto T503; |
857 |
T503:; |
T503:; |
858 |
(void)(structure_set((V60),VV[5],4,Ct)); |
V157= Ct; |
859 |
|
STSET(object,(V60),16, Ct); |
860 |
|
(void)(Ct); |
861 |
goto T497; |
goto T497; |
862 |
T497:; |
T497:; |
863 |
V53= (*(LnkLI98))((V41),(V53),(V39)); |
V53= (*(LnkLI108))((V41),(V53),(V39)); |
864 |
V46= list(6,(V41),(V42),(V43),(V45),(V44),(V47)); |
V46= list(6,(V41),(V42),(V43),(V45),(V44),(V47)); |
865 |
if(symbol_value(VV[42])==Cnil){ |
if((VV[42]->s.s_dbind)==Cnil){ |
866 |
goto T509;} |
goto T509;} |
867 |
(void)((*(LnkLI99))((V46))); |
base[2]= (V46); |
868 |
|
vs_top=(vs_base=base+2)+1; |
869 |
|
(void) (*Lnk109)(); |
870 |
|
vs_top=sup; |
871 |
goto T509; |
goto T509; |
872 |
T509:; |
T509:; |
873 |
{object V167 = list(5,VV[4],(V59),(V46),(V50),(V53)); |
{object V158 = list(5,VV[4],(V59),(V46),(V50),(V53)); |
874 |
bds_unwind1; |
bds_unwind1; |
875 |
VMR9(V167)}} |
VMR9(V158)}} |
876 |
va_end(ap); |
va_end(ap); |
877 |
base[0]=base[0]; |
base[0]=base[0]; |
878 |
return Cnil;} |
return Cnil;} |
879 |
} |
} |
880 |
/* local entry for function FIX-DOWN-ARGS */ |
/* local entry for function FIX-DOWN-ARGS */ |
881 |
|
|
882 |
static object LI10(V171,V172,V173) |
static object LI10(V162,V163,V164) |
883 |
|
|
884 |
object V171;object V172;object V173; |
object V162;object V163;object V164; |
885 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
886 |
goto TTL; |
goto TTL; |
887 |
TTL:; |
TTL:; |
888 |
{object V174; |
{object V165; |
889 |
object V175; |
object V166; |
890 |
register object V176; |
register object V167; |
891 |
register object V177; |
register object V168; |
892 |
V174= Cnil; |
V165= Cnil; |
893 |
V175= Cnil; |
V166= Cnil; |
894 |
V176= Cnil; |
V167= Cnil; |
895 |
V177= Cnil; |
V168= Cnil; |
896 |
{object V178; |
{object V169; |
897 |
object V179; |
object V170; |
898 |
V178= get((V173),VV[43],Cnil); |
{object V171 =((V164))->s.s_plist; |
899 |
V179= get((V173),VV[44],Cnil); |
object ind= VV[43]; |
900 |
{register object V180; |
while(V171!=Cnil){ |
901 |
register object V181; |
if(V171->c.c_car==ind){ |
902 |
V180= (V171); |
V169= (V171->c.c_cdr->c.c_car); |
903 |
V181= (V178); |
goto T515; |
904 |
goto T518; |
}else V171=V171->c.c_cdr->c.c_cdr;} |
905 |
T518:; |
V169= Cnil;} |
906 |
if(((V180))!=Cnil){ |
goto T515; |
907 |
goto T519;} |
T515:; |
908 |
|
{object V172 =((V164))->s.s_plist; |
909 |
|
object ind= VV[44]; |
910 |
|
while(V172!=Cnil){ |
911 |
|
if(V172->c.c_car==ind){ |
912 |
|
V170= (V172->c.c_cdr->c.c_car); |
913 |
goto T516; |
goto T516; |
914 |
goto T519; |
}else V172=V172->c.c_cdr->c.c_cdr;} |
915 |
T519:; |
V170= Cnil;} |
|
V177= car((V180)); |
|
|
if(((V179))!=Cnil){ |
|
|
goto T527;} |
|
|
if((car((V181)))==(Ct)){ |
|
|
goto T527;} |
|
|
{object V182 = (V172); |
|
|
VMR10(V182)} |
|
|
goto T527; |
|
|
T527:; |
|
|
V183= structure_ref((V177),VV[6],1); |
|
|
if(!((/* INLINE-ARGS */V183)==(VV[8]))){ |
|
|
goto T525;} |
|
|
V184= structure_ref((V177),VV[6],4); |
|
|
if(!((/* INLINE-ARGS */V184)==(VV[45]))){ |
|
|
goto T525;} |
|
|
{register object V185; |
|
|
object V186; |
|
|
V187= structure_ref((V177),VV[6],0); |
|
|
V185= (*(LnkLI89))(/* INLINE-ARGS */V187,Cnil,Cnil,Cnil); |
|
|
if((V176)!=Cnil){ |
|
|
V188= (V176); |
|
|
goto T537;} |
|
|
V176= (VFUN_NARGS=0,(*(LnkLI85))()); |
|
|
V188= (V176); |
|
|
goto T537; |
|
|
T537:; |
|
|
V186= list(3,VV[6],V188,list(2,(V185),Cnil)); |
|
|
V174= make_cons(V177,(V174)); |
|
|
{register object V191; |
|
|
V191= (V185); |
|
|
if(type_of(V180)!=t_cons)FEwrong_type_argument(Scons,V180); |
|
|
(V180)->c.c_car = (V191);} |
|
|
{register object V193; |
|
|
object V194; |
|
|
V193= (V176); |
|
|
V195= structure_ref((V193),VV[5],1); |
|
|
V194= make_cons(V185,/* INLINE-ARGS */V195); |
|
|
(void)(structure_set((V193),VV[5],1,(V194)));} |
|
|
V175= make_cons(V186,(V175));} |
|
|
goto T525; |
|
|
T525:; |
|
|
V180= cdr((V180)); |
|
|
V181= cdr((V181)); |
|
|
goto T518;} |
|
916 |
goto T516; |
goto T516; |
917 |
T516:; |
T516:; |
918 |
if(((V174))==Cnil){ |
{register object V173; |
919 |
goto T553;} |
register object V174; |
920 |
{object V197 = list(5,VV[41],(V176),(V174),(V175),(V172)); |
V173= (V162); |
921 |
VMR10(V197)} |
V174= (V169); |
922 |
goto T553; |
goto T519; |
923 |
T553:; |
T519:; |
924 |
{object V198 = (V172); |
if(((V173))!=Cnil){ |
925 |
VMR10(V198)}}} |
goto T520;} |
926 |
|
goto T517; |
927 |
|
goto T520; |
928 |
|
T520:; |
929 |
|
V168= CMPcar((V173)); |
930 |
|
if(((V170))!=Cnil){ |
931 |
|
goto T528;} |
932 |
|
if((CMPcar((V174)))==(Ct)){ |
933 |
|
goto T528;} |
934 |
|
{object V175 = (V163); |
935 |
|
VMR10(V175)} |
936 |
|
goto T528; |
937 |
|
T528:; |
938 |
|
if(!((STREF(object,(V168),4))==(VV[8]))){ |
939 |
|
goto T526;} |
940 |
|
if(!((STREF(object,(V168),16))==(VV[45]))){ |
941 |
|
goto T526;} |
942 |
|
{register object V176; |
943 |
|
object V177; |
944 |
|
V176= (*(LnkLI99))(STREF(object,(V168),0),Cnil,Cnil,Cnil); |
945 |
|
if((V167)!=Cnil){ |
946 |
|
V178= (V167); |
947 |
|
goto T538;} |
948 |
|
V167= (VFUN_NARGS=0,(*(LnkLI95))()); |
949 |
|
V178= (V167); |
950 |
|
goto T538; |
951 |
|
T538:; |
952 |
|
V177= list(3,VV[6],V178,list(2,(V176),Cnil)); |
953 |
|
V165= make_cons(V168,(V165)); |
954 |
|
{register object V181; |
955 |
|
V181= (V176); |
956 |
|
(V173)->c.c_car = (V181);} |
957 |
|
{register object V183; |
958 |
|
object V184; |
959 |
|
V183= (V167); |
960 |
|
V184= make_cons(V176,STREF(object,(V183),4)); |
961 |
|
V185= Ct; |
962 |
|
STSET(object,(V183),4, (V184)); |
963 |
|
(void)((V184));} |
964 |
|
V166= make_cons(V177,(V166));} |
965 |
|
goto T526; |
966 |
|
T526:; |
967 |
|
V173= CMPcdr((V173)); |
968 |
|
V174= CMPcdr((V174)); |
969 |
|
goto T519;} |
970 |
|
goto T517; |
971 |
|
T517:; |
972 |
|
if(((V165))==Cnil){ |
973 |
|
goto T554;} |
974 |
|
{object V187 = list(5,VV[41],(V167),(V165),(V166),(V163)); |
975 |
|
VMR10(V187)} |
976 |
|
goto T554; |
977 |
|
T554:; |
978 |
|
{object V188 = (V163); |
979 |
|
VMR10(V188)}}} |
980 |
base[0]=base[0]; |
base[0]=base[0]; |
981 |
return Cnil; |
return Cnil; |
982 |
} |
} |
983 |
/* local entry for function THE-PARAMETER */ |
/* local entry for function THE-PARAMETER */ |
984 |
|
|
985 |
static object LI11(V200) |
static object LI11(V190) |
986 |
|
|
987 |
register object V200; |
register object V190; |
988 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
989 |
goto TTL; |
goto TTL; |
990 |
TTL:; |
TTL:; |
991 |
if(type_of((V200))==t_symbol){ |
if(type_of((V190))==t_symbol){ |
992 |
goto T555;} |
goto T556;} |
993 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V200)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[46],(V190)))); |
994 |
goto T555; |
goto T556; |
995 |
T555:; |
T556:; |
996 |
base[0]= (V200); |
base[0]= (V190); |
997 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
998 |
Lconstantp(); |
Lconstantp(); |
999 |
vs_top=sup; |
vs_top=sup; |
1000 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1001 |
goto T558;} |
goto T559;} |
1002 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V200)))); |
(void)((VFUN_NARGS=2,(*(LnkLI96))(VV[47],(V190)))); |
1003 |
goto T558; |
goto T559; |
1004 |
T558:; |
T559:; |
1005 |
{object V201 = (V200); |
{object V191 = (V190); |
1006 |
VMR11(V201)} |
VMR11(V191)} |
1007 |
base[0]=base[0]; |
base[0]=base[0]; |
1008 |
return Cnil; |
return Cnil; |
1009 |
} |
} |
1010 |
/* local entry for function C2LAMBDA-EXPR */ |
/* local entry for function C2LAMBDA-EXPR */ |
1011 |
|
|
1012 |
static object LI12(object V203,object V202,object first,...) |
static object LI12(object V193,object V192,object first,...) |
1013 |
{ |
{ |
1014 |
va_list ap; |
va_list ap; |
1015 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
1016 |
bds_check; |
bds_check; |
1017 |
{register object V204; |
{register object V194; |
1018 |
object V205; |
object V195; |
1019 |
object V206; |
object V196; |
1020 |
object V207; |
object V197; |
1021 |
va_start(ap,first); |
va_start(ap,first); |
1022 |
if(narg <2) too_few_arguments(); |
V194= V193; |
1023 |
V204= V203; |
V195= V192; |
|
V205= V202; |
|
1024 |
narg = narg - 2; |
narg = narg - 2; |
1025 |
if (narg <= 0) goto T562; |
if (narg <= 0) goto T563; |
1026 |
else { |
else { |
1027 |
V206= first;} |
V196= first;} |
1028 |
V207= Ct; |
V197= Ct; |
1029 |
--narg; goto T563; |
--narg; goto T564; |
|
goto T562; |
|
|
T562:; |
|
|
V206= Cnil; |
|
|
V207= Cnil; |
|
1030 |
goto T563; |
goto T563; |
1031 |
T563:; |
T563:; |
1032 |
if((symbol_value(VV[49]))==Cnil){ |
V196= Cnil; |
1033 |
goto T567;} |
V197= Cnil; |
1034 |
if(((V207))==Cnil){ |
goto T564; |
1035 |
goto T567;} |
T564:; |
1036 |
{register object V208; |
if(((VV[49]->s.s_dbind))==Cnil){ |
1037 |
register object V209; |
goto T568;} |
1038 |
V208= car((V204)); |
if(((V197))==Cnil){ |
1039 |
V209= car((V208)); |
goto T568;} |
1040 |
goto T577; |
{register object V198; |
1041 |
T577:; |
register object V199; |
1042 |
if(!(endp_prop((V208)))){ |
V198= CMPcar((V194)); |
1043 |
goto T578;} |
V199= CMPcar((V198)); |
|
goto T573; |
|
1044 |
goto T578; |
goto T578; |
1045 |
T578:; |
T578:; |
1046 |
if((structure_ref((V209),VV[6],3))==Cnil){ |
if(!(((V198))==Cnil)){ |
1047 |
goto T582;} |
goto T579;} |
1048 |
goto T567; |
goto T574; |
1049 |
goto T582; |
goto T579; |
1050 |
T582:; |
T579:; |
1051 |
V208= cdr((V208)); |
if((STREF(object,(V199),12))==Cnil){ |
1052 |
V209= car((V208)); |
goto T583;} |
1053 |
goto T577;} |
goto T568; |
1054 |
goto T573; |
goto T583; |
1055 |
T573:; |
T583:; |
1056 |
if((cadr((V204)))!=Cnil){ |
V198= CMPcdr((V198)); |
1057 |
goto T567;} |
V199= CMPcar((V198)); |
1058 |
if((caddr((V204)))!=Cnil){ |
goto T578;} |
1059 |
goto T567;} |
goto T574; |
1060 |
if((cadddr((V204)))!=Cnil){ |
T574:; |
1061 |
goto T567;} |
if((CMPcadr((V194)))!=Cnil){ |
1062 |
base[0]= make_cons((V206),car((V204))); |
goto T568;} |
1063 |
goto T565; |
if((CMPcaddr((V194)))!=Cnil){ |
1064 |
goto T567; |
goto T568;} |
1065 |
T567:; |
if((CMPcadddr((V194)))!=Cnil){ |
1066 |
|
goto T568;} |
1067 |
|
base[0]= make_cons((V196),CMPcar((V194))); |
1068 |
|
goto T566; |
1069 |
|
goto T568; |
1070 |
|
T568:; |
1071 |
base[0]= Cnil; |
base[0]= Cnil; |
1072 |
goto T565; |
goto T566; |
1073 |
T565:; |
T566:; |
1074 |
bds_bind(VV[48],base[0]); |
bds_bind(VV[48],base[0]); |
1075 |
if((caddr((V204)))==Cnil){ |
if((CMPcaddr((V194)))==Cnil){ |
1076 |
goto T597;} |
goto T598;} |
1077 |
V210= structure_ref(caddr((V204)),VV[6],5); |
if(!((STREF(object,CMPcaddr((V194)),20))==(VV[51]))){ |
1078 |
if(!((/* INLINE-ARGS */V210)==(VV[51]))){ |
goto T598;} |
|
goto T597;} |
|
1079 |
base[1]= Ct; |
base[1]= Ct; |
1080 |
goto T595; |
goto T596; |
1081 |
goto T597; |
goto T598; |
1082 |
T597:; |
T598:; |
1083 |
base[1]= symbol_value(VV[50]); |
base[1]= (VV[50]->s.s_dbind); |
1084 |
goto T595; |
goto T596; |
1085 |
T595:; |
T596:; |
1086 |
bds_bind(VV[50],base[1]); |
bds_bind(VV[50],base[1]); |
1087 |
if((cadddr((V204)))==Cnil){ |
if((CMPcadddr((V194)))==Cnil){ |
1088 |
goto T602;} |
goto T603;} |
1089 |
{object V211 = (*(LnkLI100))((V204),(V205)); |
{object V200 = (*(LnkLI110))((V194),(V195)); |
1090 |
bds_unwind1; |
bds_unwind1; |
1091 |
bds_unwind1; |
bds_unwind1; |
1092 |
VMR12(V211)} |
VMR12(V200)} |
1093 |
goto T602; |
goto T603; |
1094 |
T602:; |
T603:; |
1095 |
{object V212 = (*(LnkLI101))((V204),(V205)); |
{object V201 = (*(LnkLI111))((V194),(V195)); |
1096 |
bds_unwind1; |
bds_unwind1; |
1097 |
bds_unwind1; |
bds_unwind1; |
1098 |
VMR12(V212)} |
VMR12(V201)} |
1099 |
va_end(ap); |
va_end(ap); |
1100 |
base[0]=base[0]; |
base[0]=base[0]; |
1101 |
return Cnil;} |
return Cnil;} |
1102 |
} |
} |
1103 |
/* local entry for function C2LAMBDA-EXPR-WITHOUT-KEY */ |
/* local entry for function C2LAMBDA-EXPR-WITHOUT-KEY */ |
1104 |
|
|
1105 |
static object LI13(V215,V216) |
static object LI13(V204,V205) |
1106 |
|
|
1107 |
object V215;object V216; |
object V204;object V205; |
1108 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1109 |
bds_check; |
bds_check; |
1110 |
goto TTL; |
goto TTL; |
1111 |
TTL:; |
TTL:; |
1112 |
{object V217; |
{object V206; |
1113 |
object V218; |
object V207; |
1114 |
object V219; |
object V208; |
1115 |
register object V220; |
register object V209; |
1116 |
V217= car((V215)); |
V206= CMPcar((V204)); |
1117 |
V218= cadr((V215)); |
V207= CMPcadr((V204)); |
1118 |
V219= caddr((V215)); |
V208= CMPcaddr((V204)); |
1119 |
V220= Cnil; |
V209= Cnil; |
1120 |
bds_bind(VV[52],symbol_value(VV[52])); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
1121 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],(VV[53]->s.s_dbind)); |
1122 |
bds_bind(VV[24],symbol_value(VV[24])); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
1123 |
bds_bind(VV[25],symbol_value(VV[25])); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
1124 |
base[7]= Cnil; |
base[7]= Cnil; |
1125 |
{register object V221; |
{register object V210; |
1126 |
object V222; |
object V211; |
1127 |
V221= (V217); |
V210= (V206); |
1128 |
V222= car((V221)); |
V211= CMPcar((V210)); |
|
goto T613; |
|
|
T613:; |
|
|
if(!(endp_prop((V221)))){ |
|
|
goto T614;} |
|
|
goto T609; |
|
1129 |
goto T614; |
goto T614; |
1130 |
T614:; |
T614:; |
1131 |
base[9]= (V222); |
if(!(((V210))==Cnil)){ |
1132 |
|
goto T615;} |
1133 |
|
goto T610; |
1134 |
|
goto T615; |
1135 |
|
T615:; |
1136 |
|
base[9]= (V211); |
1137 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1138 |
L14(base); |
L14(base); |
1139 |
vs_top=sup; |
vs_top=sup; |
1140 |
V221= cdr((V221)); |
V210= CMPcdr((V210)); |
1141 |
V222= car((V221)); |
V211= CMPcar((V210)); |
1142 |
goto T613;} |
goto T614;} |
1143 |
goto T609; |
goto T610; |
1144 |
T609:; |
T610:; |
1145 |
{register object V223; |
{register object V212; |
1146 |
object V224; |
object V213; |
1147 |
V223= (V218); |
V212= (V207); |
1148 |
V224= car((V223)); |
V213= CMPcar((V212)); |
|
goto T629; |
|
|
T629:; |
|
|
if(!(endp_prop((V223)))){ |
|
|
goto T630;} |
|
|
goto T625; |
|
1149 |
goto T630; |
goto T630; |
1150 |
T630:; |
T630:; |
1151 |
base[9]= car((V224)); |
if(!(((V212))==Cnil)){ |
1152 |
|
goto T631;} |
1153 |
|
goto T626; |
1154 |
|
goto T631; |
1155 |
|
T631:; |
1156 |
|
base[9]= CMPcar((V213)); |
1157 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1158 |
L14(base); |
L14(base); |
1159 |
vs_top=sup; |
vs_top=sup; |
1160 |
if((caddr((V224)))==Cnil){ |
if((CMPcaddr((V213)))==Cnil){ |
1161 |
goto T636;} |
goto T637;} |
1162 |
base[9]= caddr((V224)); |
base[9]= CMPcaddr((V213)); |
1163 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1164 |
L14(base); |
L14(base); |
1165 |
vs_top=sup; |
vs_top=sup; |
1166 |
goto T636; |
goto T637; |
1167 |
T636:; |
T637:; |
1168 |
V223= cdr((V223)); |
V212= CMPcdr((V212)); |
1169 |
V224= car((V223)); |
V213= CMPcar((V212)); |
1170 |
goto T629;} |
goto T630;} |
1171 |
goto T625; |
goto T626; |
1172 |
T625:; |
T626:; |
1173 |
if(((V219))==Cnil){ |
if(((V208))==Cnil){ |
1174 |
goto T608;} |
goto T609;} |
1175 |
base[8]= (V219); |
base[8]= (V208); |
1176 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1177 |
L14(base); |
L14(base); |
1178 |
vs_top=sup; |
vs_top=sup; |
1179 |
goto T608; |
goto T609; |
1180 |
T608:; |
T609:; |
1181 |
if((symbol_value(VV[55]))!=Cnil){ |
if(((VV[55]->s.s_dbind))!=Cnil){ |
1182 |
|
goto T650;} |
1183 |
|
if(((VV[56]->s.s_dbind))==Cnil){ |
1184 |
goto T649;} |
goto T649;} |
1185 |
if((symbol_value(VV[56]))==Cnil){ |
goto T650; |
1186 |
goto T648;} |
T650:; |
1187 |
goto T649; |
if(((V208))!=Cnil){ |
|
T649:; |
|
|
if(((V219))!=Cnil){ |
|
|
goto T653;} |
|
|
if(((V218))==Cnil){ |
|
1188 |
goto T654;} |
goto T654;} |
1189 |
goto T653; |
if(((V207))==Cnil){ |
1190 |
T653:; |
goto T655;} |
1191 |
if(((V217))==Cnil){ |
goto T654; |
1192 |
goto T658;} |
T654:; |
1193 |
|
if(((V206))==Cnil){ |
1194 |
|
goto T659;} |
1195 |
princ_str("\n if(vs_top-vs_base<",VV[10]); |
princ_str("\n if(vs_top-vs_base<",VV[10]); |
1196 |
V225 = make_fixnum((long)length((V217))); |
V214 = CMPmake_fixnum((long)length((V206))); |
1197 |
(void)((*(LnkLI80))(V225)); |
(void)((*(LnkLI90))(V214)); |
1198 |
princ_str(") too_few_arguments();",VV[10]); |
princ_str(") too_few_arguments();",VV[10]); |
1199 |
goto T658; |
goto T659; |
1200 |
T658:; |
T659:; |
1201 |
if(((V219))!=Cnil){ |
if(((V208))!=Cnil){ |
1202 |
goto T648;} |
goto T649;} |
1203 |
princ_str("\n if(vs_top-vs_base>",VV[10]); |
princ_str("\n if(vs_top-vs_base>",VV[10]); |
1204 |
V226 = make_fixnum((long)length((V217))); |
V215 = CMPmake_fixnum((long)length((V206))); |
1205 |
V227 = make_fixnum((long)length((V218))); |
V216 = CMPmake_fixnum((long)length((V207))); |
1206 |
V228= number_plus(V226,V227); |
V217= number_plus(V215,V216); |
1207 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V228)); |
(void)((*(LnkLI90))(/* INLINE-ARGS */V217)); |
1208 |
princ_str(") too_many_arguments();",VV[10]); |
princ_str(") too_many_arguments();",VV[10]); |
1209 |
goto T648; |
goto T649; |
1210 |
goto T654; |
goto T655; |
1211 |
T654:; |
T655:; |
1212 |
princ_str("\n check_arg(",VV[10]); |
princ_str("\n check_arg(",VV[10]); |
1213 |
V229 = make_fixnum((long)length((V217))); |
V218 = CMPmake_fixnum((long)length((V206))); |
1214 |
(void)((*(LnkLI80))(V229)); |
(void)((*(LnkLI90))(V218)); |
1215 |
princ_str(");",VV[10]); |
princ_str(");",VV[10]); |
1216 |
goto T648; |
goto T649; |
1217 |
T648:; |
T649:; |
1218 |
{register object V230; |
{register object V219; |
1219 |
object V231; |
object V220; |
1220 |
V230= (V217); |
V219= (V206); |
1221 |
V231= car((V230)); |
V220= CMPcar((V219)); |
|
goto T676; |
|
|
T676:; |
|
|
if(!(endp_prop((V230)))){ |
|
|
goto T677;} |
|
|
goto T672; |
|
1222 |
goto T677; |
goto T677; |
1223 |
T677:; |
T677:; |
1224 |
V232= (*(LnkLI102))(); |
if(!(((V219))==Cnil)){ |
1225 |
(void)(structure_set((V231),VV[6],2,/* INLINE-ARGS */V232)); |
goto T678;} |
1226 |
V230= cdr((V230)); |
goto T673; |
1227 |
V231= car((V230)); |
goto T678; |
1228 |
goto T676;} |
T678:; |
1229 |
goto T672; |
V221= (*(LnkLI112))(); |
1230 |
T672:; |
V222= Ct; |
1231 |
{register object V233; |
STSET(object,(V220),8, /* INLINE-ARGS */V221); |
1232 |
object V234; |
(void)(/* INLINE-ARGS */V221); |
1233 |
V233= (V218); |
V219= CMPcdr((V219)); |
1234 |
V234= car((V233)); |
V220= CMPcar((V219)); |
1235 |
goto T691; |
goto T677;} |
1236 |
T691:; |
goto T673; |
1237 |
if(!(endp_prop((V233)))){ |
T673:; |
1238 |
goto T692;} |
{register object V223; |
1239 |
goto T687; |
object V224; |
1240 |
|
V223= (V207); |
1241 |
|
V224= CMPcar((V223)); |
1242 |
goto T692; |
goto T692; |
1243 |
T692:; |
T692:; |
1244 |
V235= car((V234)); |
if(!(((V223))==Cnil)){ |
1245 |
V236= (*(LnkLI102))(); |
goto T693;} |
1246 |
(void)(structure_set(/* INLINE-ARGS */V235,VV[6],2,/* INLINE-ARGS */V236)); |
goto T688; |
1247 |
V233= cdr((V233)); |
goto T693; |
1248 |
V234= car((V233)); |
T693:; |
1249 |
goto T691;} |
V225= CMPcar((V224)); |
1250 |
goto T687; |
V226= (*(LnkLI112))(); |
1251 |
T687:; |
V227= Ct; |
1252 |
if(((V219))==Cnil){ |
STSET(object,/* INLINE-ARGS */V225,8, /* INLINE-ARGS */V226); |
1253 |
goto T702;} |
(void)(/* INLINE-ARGS */V226); |
1254 |
V237= (*(LnkLI102))(); |
V223= CMPcdr((V223)); |
1255 |
(void)(structure_set((V219),VV[6],2,/* INLINE-ARGS */V237)); |
V224= CMPcar((V223)); |
1256 |
goto T702; |
goto T692;} |
1257 |
T702:; |
goto T688; |
1258 |
{register object V238; |
T688:; |
1259 |
object V239; |
if(((V208))==Cnil){ |
1260 |
V238= (V218); |
goto T703;} |
1261 |
V239= car((V238)); |
V228= (*(LnkLI112))(); |
1262 |
goto T709; |
V229= Ct; |
1263 |
T709:; |
STSET(object,(V208),8, /* INLINE-ARGS */V228); |
1264 |
if(!(endp_prop((V238)))){ |
(void)(/* INLINE-ARGS */V228); |
1265 |
goto T710;} |
goto T703; |
1266 |
goto T705; |
T703:; |
1267 |
|
{register object V230; |
1268 |
|
object V231; |
1269 |
|
V230= (V207); |
1270 |
|
V231= CMPcar((V230)); |
1271 |
goto T710; |
goto T710; |
1272 |
T710:; |
T710:; |
1273 |
if((caddr((V239)))==Cnil){ |
if(!(((V230))==Cnil)){ |
1274 |
goto T714;} |
goto T711;} |
1275 |
V240= caddr((V239)); |
goto T706; |
1276 |
V241= (*(LnkLI102))(); |
goto T711; |
1277 |
(void)(structure_set(/* INLINE-ARGS */V240,VV[6],2,/* INLINE-ARGS */V241)); |
T711:; |
1278 |
goto T714; |
if((CMPcaddr((V231)))==Cnil){ |
1279 |
T714:; |
goto T715;} |
1280 |
V238= cdr((V238)); |
V232= CMPcaddr((V231)); |
1281 |
V239= car((V238)); |
V233= (*(LnkLI112))(); |
1282 |
goto T709;} |
V234= Ct; |
1283 |
goto T705; |
STSET(object,/* INLINE-ARGS */V232,8, /* INLINE-ARGS */V233); |
1284 |
T705:; |
(void)(/* INLINE-ARGS */V233); |
1285 |
{register object V242; |
goto T715; |
1286 |
object V243; |
T715:; |
1287 |
V242= (V217); |
V230= CMPcdr((V230)); |
1288 |
V243= car((V242)); |
V231= CMPcar((V230)); |
1289 |
goto T726; |
goto T710;} |
1290 |
T726:; |
goto T706; |
1291 |
if(!(endp_prop((V242)))){ |
T706:; |
1292 |
goto T727;} |
{register object V235; |
1293 |
goto T722; |
object V236; |
1294 |
|
V235= (V206); |
1295 |
|
V236= CMPcar((V235)); |
1296 |
goto T727; |
goto T727; |
1297 |
T727:; |
T727:; |
1298 |
(void)((*(LnkLI103))((V243))); |
if(!(((V235))==Cnil)){ |
1299 |
V242= cdr((V242)); |
goto T728;} |
1300 |
V243= car((V242)); |
goto T723; |
1301 |
goto T726;} |
goto T728; |
1302 |
goto T722; |
T728:; |
1303 |
T722:; |
(void)((*(LnkLI113))((V236))); |
1304 |
if(((V218))!=Cnil){ |
V235= CMPcdr((V235)); |
1305 |
goto T739;} |
V236= CMPcar((V235)); |
1306 |
if(((V219))==Cnil){ |
goto T727;} |
1307 |
goto T737;} |
goto T723; |
1308 |
goto T739; |
T723:; |
1309 |
T739:; |
if(((V207))!=Cnil){ |
1310 |
if(((V217))==Cnil){ |
goto T740;} |
1311 |
goto T737;} |
if(((V208))==Cnil){ |
1312 |
|
goto T738;} |
1313 |
|
goto T740; |
1314 |
|
T740:; |
1315 |
|
if(((V206))==Cnil){ |
1316 |
|
goto T738;} |
1317 |
princ_str("\n vs_base=vs_base+",VV[10]); |
princ_str("\n vs_base=vs_base+",VV[10]); |
1318 |
V244 = make_fixnum((long)length((V217))); |
V237 = CMPmake_fixnum((long)length((V206))); |
1319 |
(void)((*(LnkLI80))(V244)); |
(void)((*(LnkLI90))(V237)); |
1320 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1321 |
goto T737; |
goto T738; |
1322 |
T737:; |
T738:; |
1323 |
if(((V218))==Cnil){ |
if(((V207))==Cnil){ |
1324 |
goto T749;} |
goto T750;} |
1325 |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
1326 |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
1327 |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
1328 |
if(((V219))==Cnil){ |
if(((V208))==Cnil){ |
1329 |
goto T752;} |
goto T753;} |
1330 |
princ_str("\n vs_top[0]=Cnil;",VV[10]); |
princ_str("\n vs_top[0]=Cnil;",VV[10]); |
1331 |
princ_str("\n {object *p=vs_top, *q=vs_base+",VV[10]); |
princ_str("\n {object *p=vs_top, *q=vs_base+",VV[10]); |
1332 |
V245 = make_fixnum((long)length((V218))); |
V238 = CMPmake_fixnum((long)length((V207))); |
1333 |
(void)((*(LnkLI80))(V245)); |
(void)((*(LnkLI90))(V238)); |
1334 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1335 |
princ_str("\n for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]); |
princ_str("\n for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]); |
1336 |
goto T752; |
goto T753; |
1337 |
T752:; |
T753:; |
1338 |
{register object V246; |
{register object V239; |
1339 |
V246= (V218); |
V239= (V207); |
|
goto T764; |
|
|
T764:; |
|
|
if(!(endp_prop((V246)))){ |
|
|
goto T765;} |
|
|
goto T762; |
|
1340 |
goto T765; |
goto T765; |
1341 |
T765:; |
T765:; |
1342 |
{object V247; |
if(!(((V239))==Cnil)){ |
1343 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
goto T766;} |
1344 |
V247= make_cons(symbol_value(VV[57]),Cnil); |
goto T763; |
1345 |
V220= make_cons((V247),(V220));} |
goto T766; |
1346 |
|
T766:; |
1347 |
|
{object V240; |
1348 |
|
(VV[57]->s.s_dbind)= number_plus((VV[57]->s.s_dbind),small_fixnum(1)); |
1349 |
|
V240= make_cons((VV[57]->s.s_dbind),Cnil); |
1350 |
|
V209= make_cons((V240),(V209));} |
1351 |
princ_str("\n if(vs_base>=vs_top){",VV[10]); |
princ_str("\n if(vs_base>=vs_top){",VV[10]); |
1352 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI114))()); |
1353 |
if(type_of(car((V220)))!=t_cons)FEwrong_type_argument(Scons,car((V220))); |
(CMPcar((V209)))->c.c_cdr = Ct; |
1354 |
(car((V220)))->c.c_cdr = Ct; |
(void)(CMPcar((V209))); |
|
(void)(car((V220))); |
|
1355 |
princ_str("goto T",VV[10]); |
princ_str("goto T",VV[10]); |
1356 |
(void)((*(LnkLI80))(car(car((V220))))); |
(void)((*(LnkLI90))(CMPcar(CMPcar((V209))))); |
1357 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1358 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
1359 |
(void)((*(LnkLI103))(caar((V246)))); |
(void)((*(LnkLI113))(CMPcaar((V239)))); |
1360 |
if((caddar((V246)))==Cnil){ |
if((CMPcaddar((V239)))==Cnil){ |
1361 |
goto T784;} |
goto T785;} |
1362 |
(void)((*(LnkLI105))(caddar((V246)),Ct)); |
(void)((*(LnkLI115))(CMPcaddar((V239)),Ct)); |
1363 |
goto T784; |
goto T785; |
1364 |
T784:; |
T785:; |
1365 |
if((cdr((V246)))==Cnil){ |
if((CMPcdr((V239)))==Cnil){ |
1366 |
goto T787;} |
goto T788;} |
1367 |
princ_str("\n vs_base++;",VV[10]); |
princ_str("\n vs_base++;",VV[10]); |
1368 |
goto T787; |
goto T788; |
1369 |
T787:; |
T788:; |
1370 |
V246= cdr((V246)); |
V239= CMPcdr((V239)); |
1371 |
goto T764;} |
goto T765;} |
1372 |
goto T762; |
goto T763; |
1373 |
T762:; |
T763:; |
1374 |
if(((V219))==Cnil){ |
if(((V208))==Cnil){ |
1375 |
bds_unwind1; |
bds_unwind1; |
1376 |
bds_unwind1; |
bds_unwind1; |
1377 |
bds_unwind1; |
bds_unwind1; |
1378 |
goto T751;} |
goto T752;} |
1379 |
V248= (*(LnkLI103))((V219)); |
V241= (*(LnkLI113))((V208)); |
1380 |
bds_unwind1; |
bds_unwind1; |
1381 |
bds_unwind1; |
bds_unwind1; |
1382 |
bds_unwind1; |
bds_unwind1; |
1383 |
goto T751; |
goto T752; |
1384 |
T751:; |
T752:; |
1385 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1386 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI114))()); |
1387 |
{object V249; |
{object V242; |
1388 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
(VV[57]->s.s_dbind)= number_plus((VV[57]->s.s_dbind),small_fixnum(1)); |
1389 |
V249= make_cons(symbol_value(VV[57]),Cnil); |
V242= make_cons((VV[57]->s.s_dbind),Cnil); |
1390 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1391 |
if(type_of((V249))!=t_cons)FEwrong_type_argument(Scons,(V249)); |
((V242))->c.c_cdr = Ct; |
|
((V249))->c.c_cdr = Ct; |
|
1392 |
princ_str("goto T",VV[10]); |
princ_str("goto T",VV[10]); |
1393 |
(void)((*(LnkLI80))(car((V249)))); |
(void)((*(LnkLI90))(CMPcar((V242)))); |
1394 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1395 |
V220= reverse((V220)); |
V209= reverse((V209)); |
1396 |
{register object V250; |
{register object V243; |
1397 |
register object V251; |
register object V244; |
1398 |
V250= (V218); |
V243= (V207); |
1399 |
V251= car((V250)); |
V244= CMPcar((V243)); |
|
goto T812; |
|
|
T812:; |
|
|
if(!(endp_prop((V250)))){ |
|
|
goto T813;} |
|
|
goto T808; |
|
1400 |
goto T813; |
goto T813; |
1401 |
T813:; |
T813:; |
1402 |
if((cdr(car((V220))))==Cnil){ |
if(!(((V243))==Cnil)){ |
1403 |
goto T817;} |
goto T814;} |
1404 |
|
goto T809; |
1405 |
|
goto T814; |
1406 |
|
T814:; |
1407 |
|
if((CMPcdr(CMPcar((V209))))==Cnil){ |
1408 |
|
goto T818;} |
1409 |
princ_str("\n goto T",VV[10]); |
princ_str("\n goto T",VV[10]); |
1410 |
(void)((*(LnkLI80))(car(car((V220))))); |
(void)((*(LnkLI90))(CMPcar(CMPcar((V209))))); |
1411 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1412 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1413 |
(void)((*(LnkLI80))(car(car((V220))))); |
(void)((*(LnkLI90))(CMPcar(CMPcar((V209))))); |
1414 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1415 |
goto T817; |
goto T818; |
1416 |
T817:; |
T818:; |
1417 |
{object V252; |
{object V245; |
1418 |
V252= car((V220)); |
V245= CMPcar((V209)); |
1419 |
V220= cdr((V220));} |
V209= CMPcdr((V209));} |
1420 |
(void)((*(LnkLI106))(car((V251)),cadr((V251)))); |
(void)((*(LnkLI116))(CMPcar((V244)),CMPcadr((V244)))); |
1421 |
if((caddr((V251)))==Cnil){ |
if((CMPcaddr((V244)))==Cnil){ |
1422 |
goto T832;} |
goto T833;} |
1423 |
(void)((*(LnkLI105))(caddr((V251)),Cnil)); |
(void)((*(LnkLI115))(CMPcaddr((V244)),Cnil)); |
1424 |
goto T832; |
goto T833; |
1425 |
T832:; |
T833:; |
1426 |
V250= cdr((V250)); |
V243= CMPcdr((V243)); |
1427 |
V251= car((V250)); |
V244= CMPcar((V243)); |
1428 |
goto T812;} |
goto T813;} |
1429 |
goto T808; |
goto T809; |
1430 |
T808:; |
T809:; |
1431 |
if(((V219))==Cnil){ |
if(((V208))==Cnil){ |
1432 |
goto T840;} |
goto T841;} |
1433 |
(void)((*(LnkLI105))((V219),Cnil)); |
(void)((*(LnkLI115))((V208),Cnil)); |
1434 |
goto T840; |
goto T841; |
1435 |
T840:; |
T841:; |
1436 |
if((cdr((V249)))==Cnil){ |
if((CMPcdr((V242)))==Cnil){ |
1437 |
goto T747;} |
goto T748;} |
1438 |
princ_str("\n goto T",VV[10]); |
princ_str("\n goto T",VV[10]); |
1439 |
(void)((*(LnkLI80))(car((V249)))); |
(void)((*(LnkLI90))(CMPcar((V242)))); |
1440 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1441 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1442 |
(void)((*(LnkLI80))(car((V249)))); |
(void)((*(LnkLI90))(CMPcar((V242)))); |
1443 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1444 |
goto T747;} |
goto T748;} |
1445 |
goto T749; |
goto T750; |
1446 |
T749:; |
T750:; |
1447 |
if(((V219))==Cnil){ |
if(((V208))==Cnil){ |
1448 |
goto T853;} |
goto T854;} |
1449 |
princ_str("\n vs_top[0]=Cnil;",VV[10]); |
princ_str("\n vs_top[0]=Cnil;",VV[10]); |
1450 |
princ_str("\n {object *p=vs_top;",VV[10]); |
princ_str("\n {object *p=vs_top;",VV[10]); |
1451 |
princ_str("\n for(;p>vs_base;p--)p[-1]=",VV[10]); |
princ_str("\n for(;p>vs_base;p--)p[-1]=",VV[10]); |
1452 |
if((symbol_value(VV[50]))==Cnil){ |
if(((VV[50]->s.s_dbind))==Cnil){ |
1453 |
goto T864;} |
goto T865;} |
1454 |
V253= VV[58]; |
V246= VV[58]; |
1455 |
goto T862; |
goto T863; |
1456 |
goto T864; |
goto T865; |
1457 |
T864:; |
T865:; |
1458 |
V253= VV[59]; |
V246= VV[59]; |
1459 |
goto T862; |
goto T863; |
1460 |
T862:; |
T863:; |
1461 |
(void)((*(LnkLI80))(V253)); |
(void)((*(LnkLI90))(V246)); |
1462 |
princ_str("(p[-1],p[0]);}",VV[10]); |
princ_str("(p[-1],p[0]);}",VV[10]); |
1463 |
(void)((*(LnkLI103))((V219))); |
(void)((*(LnkLI113))((V208))); |
1464 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1465 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI114))()); |
1466 |
goto T747; |
goto T748; |
1467 |
goto T853; |
goto T854; |
1468 |
T853:; |
T854:; |
1469 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1470 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI114))()); |
1471 |
goto T747; |
goto T748; |
1472 |
T747:; |
T748:; |
1473 |
if((symbol_value(VV[48]))==Cnil){ |
if(((VV[48]->s.s_dbind))==Cnil){ |
1474 |
goto T870;} |
goto T871;} |
1475 |
(VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind)); |
(VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind)); |
1476 |
princ_str("\n goto TTL;",VV[10]); |
princ_str("\n goto TTL;",VV[10]); |
1477 |
princ_str("\nTTL:;",VV[10]); |
princ_str("\nTTL:;",VV[10]); |
1478 |
goto T870; |
goto T871; |
1479 |
T870:; |
T871:; |
1480 |
base[8]= (V216); |
base[8]= (V205); |
1481 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1482 |
(void) (*Lnk107)(); |
(void) (*Lnk117)(); |
1483 |
vs_top=sup; |
vs_top=sup; |
1484 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
1485 |
goto T881;} |
goto T882;} |
1486 |
princ_str("\n }",VV[10]); |
princ_str("\n }",VV[10]); |
1487 |
{object V255 = Cnil; |
{object V248 = Cnil; |
1488 |
bds_unwind1; |
bds_unwind1; |
1489 |
bds_unwind1; |
bds_unwind1; |
1490 |
bds_unwind1; |
bds_unwind1; |
1491 |
bds_unwind1; |
bds_unwind1; |
1492 |
VMR13(V255)} |
VMR13(V248)} |
1493 |
goto T881; |
goto T882; |
1494 |
T881:; |
T882:; |
1495 |
{object V256 = Cnil; |
{object V249 = Cnil; |
1496 |
bds_unwind1; |
bds_unwind1; |
1497 |
bds_unwind1; |
bds_unwind1; |
1498 |
bds_unwind1; |
bds_unwind1; |
1499 |
bds_unwind1; |
bds_unwind1; |
1500 |
VMR13(V256)}} |
VMR13(V249)}} |
1501 |
base[0]=base[0]; |
base[0]=base[0]; |
1502 |
return Cnil; |
return Cnil; |
1503 |
} |
} |
1504 |
/* local entry for function C2LAMBDA-EXPR-WITH-KEY */ |
/* local entry for function C2LAMBDA-EXPR-WITH-KEY */ |
1505 |
|
|
1506 |
static object LI15(V259,V260) |
static object LI15(V252,V253) |
1507 |
|
|
1508 |
object V259;object V260; |
object V252;object V253; |
1509 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1510 |
bds_check; |
bds_check; |
1511 |
goto TTL; |
goto TTL; |
1512 |
TTL:; |
TTL:; |
1513 |
{object V261; |
{object V254; |
1514 |
object V262; |
object V255; |
1515 |
object V263; |
object V256; |
1516 |
object V264; |
object V257; |
1517 |
object V265; |
object V258; |
1518 |
register object V266; |
register object V259; |
1519 |
V261= car((V259)); |
V254= CMPcar((V252)); |
1520 |
V262= cadr((V259)); |
V255= CMPcadr((V252)); |
1521 |
V263= caddr((V259)); |
V256= CMPcaddr((V252)); |
1522 |
V264= car(cddddr((V259))); |
V257= CMPcar(CMPcddddr((V252))); |
1523 |
V265= cadr(cddddr((V259))); |
V258= CMPcadr(CMPcddddr((V252))); |
1524 |
V266= Cnil; |
V259= Cnil; |
1525 |
bds_bind(VV[52],symbol_value(VV[52])); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
1526 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],(VV[53]->s.s_dbind)); |
1527 |
bds_bind(VV[24],symbol_value(VV[24])); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
1528 |
bds_bind(VV[25],symbol_value(VV[25])); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
1529 |
base[9]= Cnil; |
base[9]= Cnil; |
1530 |
{register object V267; |
{register object V260; |
1531 |
object V268; |
object V261; |
1532 |
V267= (V261); |
V260= (V254); |
1533 |
V268= car((V267)); |
V261= CMPcar((V260)); |
|
goto T895; |
|
|
T895:; |
|
|
if(!(endp_prop((V267)))){ |
|
|
goto T896;} |
|
|
goto T891; |
|
1534 |
goto T896; |
goto T896; |
1535 |
T896:; |
T896:; |
1536 |
base[11]= (V268); |
if(!(((V260))==Cnil)){ |
1537 |
|
goto T897;} |
1538 |
|
goto T892; |
1539 |
|
goto T897; |
1540 |
|
T897:; |
1541 |
|
base[11]= (V261); |
1542 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1543 |
L16(base); |
L16(base); |
1544 |
vs_top=sup; |
vs_top=sup; |
1545 |
V267= cdr((V267)); |
V260= CMPcdr((V260)); |
1546 |
V268= car((V267)); |
V261= CMPcar((V260)); |
1547 |
goto T895;} |
goto T896;} |
1548 |
goto T891; |
goto T892; |
1549 |
T891:; |
T892:; |
1550 |
{register object V269; |
{register object V262; |
1551 |
object V270; |
object V263; |
1552 |
V269= (V262); |
V262= (V255); |
1553 |
V270= car((V269)); |
V263= CMPcar((V262)); |
|
goto T911; |
|
|
T911:; |
|
|
if(!(endp_prop((V269)))){ |
|
|
goto T912;} |
|
|
goto T907; |
|
1554 |
goto T912; |
goto T912; |
1555 |
T912:; |
T912:; |
1556 |
base[11]= car((V270)); |
if(!(((V262))==Cnil)){ |
1557 |
|
goto T913;} |
1558 |
|
goto T908; |
1559 |
|
goto T913; |
1560 |
|
T913:; |
1561 |
|
base[11]= CMPcar((V263)); |
1562 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1563 |
L16(base); |
L16(base); |
1564 |
vs_top=sup; |
vs_top=sup; |
1565 |
if((caddr((V270)))==Cnil){ |
if((CMPcaddr((V263)))==Cnil){ |
1566 |
goto T918;} |
goto T919;} |
1567 |
base[11]= caddr((V270)); |
base[11]= CMPcaddr((V263)); |
1568 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1569 |
L16(base); |
L16(base); |
1570 |
vs_top=sup; |
vs_top=sup; |
1571 |
goto T918; |
goto T919; |
1572 |
T918:; |
T919:; |
1573 |
V269= cdr((V269)); |
V262= CMPcdr((V262)); |
1574 |
V270= car((V269)); |
V263= CMPcar((V262)); |
1575 |
goto T911;} |
goto T912;} |
1576 |
goto T907; |
goto T908; |
1577 |
T907:; |
T908:; |
1578 |
if(((V263))==Cnil){ |
if(((V256))==Cnil){ |
1579 |
goto T927;} |
goto T928;} |
1580 |
base[10]= (V263); |
base[10]= (V256); |
1581 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1582 |
L16(base); |
L16(base); |
1583 |
vs_top=sup; |
vs_top=sup; |
1584 |
goto T927; |
goto T928; |
1585 |
T927:; |
T928:; |
1586 |
{register object V271; |
{register object V264; |
1587 |
object V272; |
object V265; |
1588 |
V271= (V264); |
V264= (V257); |
1589 |
V272= car((V271)); |
V265= CMPcar((V264)); |
|
goto T934; |
|
|
T934:; |
|
|
if(!(endp_prop((V271)))){ |
|
|
goto T935;} |
|
|
goto T890; |
|
1590 |
goto T935; |
goto T935; |
1591 |
T935:; |
T935:; |
1592 |
base[11]= cadr((V272)); |
if(!(((V264))==Cnil)){ |
1593 |
|
goto T936;} |
1594 |
|
goto T891; |
1595 |
|
goto T936; |
1596 |
|
T936:; |
1597 |
|
base[11]= CMPcadr((V265)); |
1598 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1599 |
L16(base); |
L16(base); |
1600 |
vs_top=sup; |
vs_top=sup; |
1601 |
if((cadddr((V272)))==Cnil){ |
if((CMPcadddr((V265)))==Cnil){ |
1602 |
goto T941;} |
goto T942;} |
1603 |
base[11]= cadddr((V272)); |
base[11]= CMPcadddr((V265)); |
1604 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1605 |
L16(base); |
L16(base); |
1606 |
vs_top=sup; |
vs_top=sup; |
1607 |
goto T941; |
goto T942; |
1608 |
T941:; |
T942:; |
1609 |
V271= cdr((V271)); |
V264= CMPcdr((V264)); |
1610 |
V272= car((V271)); |
V265= CMPcar((V264)); |
1611 |
goto T934;} |
goto T935;} |
1612 |
goto T890; |
goto T891; |
1613 |
T890:; |
T891:; |
1614 |
if((symbol_value(VV[55]))!=Cnil){ |
if(((VV[55]->s.s_dbind))!=Cnil){ |
1615 |
goto T952;} |
goto T953;} |
1616 |
if((symbol_value(VV[56]))==Cnil){ |
if(((VV[56]->s.s_dbind))==Cnil){ |
1617 |
goto T950;} |
goto T951;} |
1618 |
goto T952; |
goto T953; |
1619 |
T952:; |
T953:; |
1620 |
if(((V261))==Cnil){ |
if(((V254))==Cnil){ |
1621 |
goto T950;} |
goto T951;} |
1622 |
if(((V261))==Cnil){ |
if(((V254))==Cnil){ |
1623 |
goto T950;} |
goto T951;} |
1624 |
princ_str("\n if(vs_top-vs_base<",VV[10]); |
princ_str("\n if(vs_top-vs_base<",VV[10]); |
1625 |
V273 = make_fixnum((long)length((V261))); |
V266 = CMPmake_fixnum((long)length((V254))); |
1626 |
(void)((*(LnkLI80))(V273)); |
(void)((*(LnkLI90))(V266)); |
1627 |
princ_str(") too_few_arguments();",VV[10]); |
princ_str(") too_few_arguments();",VV[10]); |
1628 |
goto T950; |
goto T951; |
1629 |
T950:; |
T951:; |
1630 |
{register object V274; |
{register object V267; |
1631 |
object V275; |
object V268; |
1632 |
V274= (V261); |
V267= (V254); |
1633 |
V275= car((V274)); |
V268= CMPcar((V267)); |
|
goto T966; |
|
|
T966:; |
|
|
if(!(endp_prop((V274)))){ |
|
|
goto T967;} |
|
|
goto T962; |
|
1634 |
goto T967; |
goto T967; |
1635 |
T967:; |
T967:; |
1636 |
V276= (*(LnkLI102))(); |
if(!(((V267))==Cnil)){ |
1637 |
(void)(structure_set((V275),VV[6],2,/* INLINE-ARGS */V276)); |
goto T968;} |
1638 |
V274= cdr((V274)); |
goto T963; |
1639 |
V275= car((V274)); |
goto T968; |
1640 |
goto T966;} |
T968:; |
1641 |
goto T962; |
V269= (*(LnkLI112))(); |
1642 |
T962:; |
V270= Ct; |
1643 |
{register object V277; |
STSET(object,(V268),8, /* INLINE-ARGS */V269); |
1644 |
object V278; |
(void)(/* INLINE-ARGS */V269); |
1645 |
V277= (V262); |
V267= CMPcdr((V267)); |
1646 |
V278= car((V277)); |
V268= CMPcar((V267)); |
1647 |
goto T981; |
goto T967;} |
1648 |
T981:; |
goto T963; |
1649 |
if(!(endp_prop((V277)))){ |
T963:; |
1650 |
goto T982;} |
{register object V271; |
1651 |
goto T977; |
object V272; |
1652 |
|
V271= (V255); |
1653 |
|
V272= CMPcar((V271)); |
1654 |
goto T982; |
goto T982; |
1655 |
T982:; |
T982:; |
1656 |
V279= car((V278)); |
if(!(((V271))==Cnil)){ |
1657 |
V280= (*(LnkLI102))(); |
goto T983;} |
1658 |
(void)(structure_set(/* INLINE-ARGS */V279,VV[6],2,/* INLINE-ARGS */V280)); |
goto T978; |
1659 |
V277= cdr((V277)); |
goto T983; |
1660 |
V278= car((V277)); |
T983:; |
1661 |
goto T981;} |
V273= CMPcar((V272)); |
1662 |
goto T977; |
V274= (*(LnkLI112))(); |
1663 |
T977:; |
V275= Ct; |
1664 |
if(((V263))==Cnil){ |
STSET(object,/* INLINE-ARGS */V273,8, /* INLINE-ARGS */V274); |
1665 |
goto T992;} |
(void)(/* INLINE-ARGS */V274); |
1666 |
V281= (*(LnkLI102))(); |
V271= CMPcdr((V271)); |
1667 |
(void)(structure_set((V263),VV[6],2,/* INLINE-ARGS */V281)); |
V272= CMPcar((V271)); |
1668 |
goto T992; |
goto T982;} |
1669 |
T992:; |
goto T978; |
1670 |
{register object V282; |
T978:; |
1671 |
object V283; |
if(((V256))==Cnil){ |
1672 |
V282= (V264); |
goto T993;} |
1673 |
V283= car((V282)); |
V276= (*(LnkLI112))(); |
1674 |
goto T999; |
V277= Ct; |
1675 |
T999:; |
STSET(object,(V256),8, /* INLINE-ARGS */V276); |
1676 |
if(!(endp_prop((V282)))){ |
(void)(/* INLINE-ARGS */V276); |
1677 |
goto T1000;} |
goto T993; |
1678 |
goto T995; |
T993:; |
1679 |
|
{register object V278; |
1680 |
|
object V279; |
1681 |
|
V278= (V257); |
1682 |
|
V279= CMPcar((V278)); |
1683 |
goto T1000; |
goto T1000; |
1684 |
T1000:; |
T1000:; |
1685 |
V284= cadr((V283)); |
if(!(((V278))==Cnil)){ |
1686 |
V285= (*(LnkLI102))(); |
goto T1001;} |
1687 |
(void)(structure_set(/* INLINE-ARGS */V284,VV[6],2,/* INLINE-ARGS */V285)); |
goto T996; |
1688 |
V282= cdr((V282)); |
goto T1001; |
1689 |
V283= car((V282)); |
T1001:; |
1690 |
goto T999;} |
V280= CMPcadr((V279)); |
1691 |
goto T995; |
V281= (*(LnkLI112))(); |
1692 |
T995:; |
V282= Ct; |
1693 |
{register object V286; |
STSET(object,/* INLINE-ARGS */V280,8, /* INLINE-ARGS */V281); |
1694 |
object V287; |
(void)(/* INLINE-ARGS */V281); |
1695 |
V286= (V264); |
V278= CMPcdr((V278)); |
1696 |
V287= car((V286)); |
V279= CMPcar((V278)); |
1697 |
goto T1014; |
goto T1000;} |
1698 |
T1014:; |
goto T996; |
1699 |
if(!(endp_prop((V286)))){ |
T996:; |
1700 |
goto T1015;} |
{register object V283; |
1701 |
goto T1010; |
object V284; |
1702 |
|
V283= (V257); |
1703 |
|
V284= CMPcar((V283)); |
1704 |
goto T1015; |
goto T1015; |
1705 |
T1015:; |
T1015:; |
1706 |
V288= cadddr((V287)); |
if(!(((V283))==Cnil)){ |
1707 |
V289= (*(LnkLI102))(); |
goto T1016;} |
1708 |
(void)(structure_set(/* INLINE-ARGS */V288,VV[6],2,/* INLINE-ARGS */V289)); |
goto T1011; |
1709 |
V286= cdr((V286)); |
goto T1016; |
1710 |
V287= car((V286)); |
T1016:; |
1711 |
goto T1014;} |
V285= CMPcadddr((V284)); |
1712 |
goto T1010; |
V286= (*(LnkLI112))(); |
1713 |
T1010:; |
V287= Ct; |
1714 |
{register object V290; |
STSET(object,/* INLINE-ARGS */V285,8, /* INLINE-ARGS */V286); |
1715 |
object V291; |
(void)(/* INLINE-ARGS */V286); |
1716 |
V290= (V262); |
V283= CMPcdr((V283)); |
1717 |
V291= car((V290)); |
V284= CMPcar((V283)); |
1718 |
goto T1029; |
goto T1015;} |
1719 |
T1029:; |
goto T1011; |
1720 |
if(!(endp_prop((V290)))){ |
T1011:; |
1721 |
goto T1030;} |
{register object V288; |
1722 |
goto T1025; |
object V289; |
1723 |
|
V288= (V255); |
1724 |
|
V289= CMPcar((V288)); |
1725 |
goto T1030; |
goto T1030; |
1726 |
T1030:; |
T1030:; |
1727 |
if((caddr((V291)))==Cnil){ |
if(!(((V288))==Cnil)){ |
1728 |
goto T1034;} |
goto T1031;} |
1729 |
V292= caddr((V291)); |
goto T1026; |
1730 |
V293= (*(LnkLI102))(); |
goto T1031; |
1731 |
(void)(structure_set(/* INLINE-ARGS */V292,VV[6],2,/* INLINE-ARGS */V293)); |
T1031:; |
1732 |
goto T1034; |
if((CMPcaddr((V289)))==Cnil){ |
1733 |
T1034:; |
goto T1035;} |
1734 |
V290= cdr((V290)); |
V290= CMPcaddr((V289)); |
1735 |
V291= car((V290)); |
V291= (*(LnkLI112))(); |
1736 |
goto T1029;} |
V292= Ct; |
1737 |
goto T1025; |
STSET(object,/* INLINE-ARGS */V290,8, /* INLINE-ARGS */V291); |
1738 |
T1025:; |
(void)(/* INLINE-ARGS */V291); |
1739 |
|
goto T1035; |
1740 |
|
T1035:; |
1741 |
|
V288= CMPcdr((V288)); |
1742 |
|
V289= CMPcar((V288)); |
1743 |
|
goto T1030;} |
1744 |
|
goto T1026; |
1745 |
|
T1026:; |
1746 |
princ_str("\n parse_key(vs_base",VV[10]); |
princ_str("\n parse_key(vs_base",VV[10]); |
1747 |
if(((V261))!=Cnil){ |
if(((V254))!=Cnil){ |
1748 |
|
goto T1046;} |
1749 |
|
if(((V255))==Cnil){ |
1750 |
goto T1045;} |
goto T1045;} |
1751 |
if(((V262))==Cnil){ |
goto T1046; |
1752 |
goto T1044;} |
T1046:; |
1753 |
|
princ_char(43,VV[10]); |
1754 |
|
V293 = CMPmake_fixnum((long)length((V254))); |
1755 |
|
V294 = CMPmake_fixnum((long)length((V255))); |
1756 |
|
V295= number_plus(V293,V294); |
1757 |
|
(void)((*(LnkLI90))(/* INLINE-ARGS */V295)); |
1758 |
goto T1045; |
goto T1045; |
1759 |
T1045:; |
T1045:; |
1760 |
princ_char(43,VV[10]); |
if(((V256))==Cnil){ |
1761 |
V294 = make_fixnum((long)length((V261))); |
goto T1054;} |
|
V295 = make_fixnum((long)length((V262))); |
|
|
V296= number_plus(V294,V295); |
|
|
(void)((*(LnkLI80))(/* INLINE-ARGS */V296)); |
|
|
goto T1044; |
|
|
T1044:; |
|
|
if(((V263))==Cnil){ |
|
|
goto T1053;} |
|
1762 |
princ_str(",TRUE,",VV[10]); |
princ_str(",TRUE,",VV[10]); |
1763 |
goto T1051; |
goto T1052; |
1764 |
goto T1053; |
goto T1054; |
1765 |
T1053:; |
T1054:; |
1766 |
princ_str(",FALSE,",VV[10]); |
princ_str(",FALSE,",VV[10]); |
1767 |
goto T1051; |
goto T1052; |
1768 |
T1051:; |
T1052:; |
1769 |
if(((V265))==Cnil){ |
if(((V258))==Cnil){ |
1770 |
goto T1059;} |
goto T1060;} |
1771 |
princ_str("TRUE,",VV[10]); |
princ_str("TRUE,",VV[10]); |
1772 |
goto T1057; |
goto T1058; |
1773 |
goto T1059; |
goto T1060; |
1774 |
T1059:; |
T1060:; |
1775 |
princ_str("FALSE,",VV[10]); |
princ_str("FALSE,",VV[10]); |
1776 |
goto T1057; |
goto T1058; |
1777 |
T1057:; |
T1058:; |
1778 |
V297 = make_fixnum((long)length((V264))); |
V296 = CMPmake_fixnum((long)length((V257))); |
1779 |
(void)((*(LnkLI80))(V297)); |
(void)((*(LnkLI90))(V296)); |
1780 |
{register object V298; |
{register object V297; |
1781 |
object V299; |
object V298; |
1782 |
V298= (V264); |
V297= (V257); |
1783 |
V299= car((V298)); |
V298= CMPcar((V297)); |
|
goto T1069; |
|
|
T1069:; |
|
|
if(!(endp_prop((V298)))){ |
|
|
goto T1070;} |
|
|
goto T1065; |
|
1784 |
goto T1070; |
goto T1070; |
1785 |
T1070:; |
T1070:; |
1786 |
|
if(!(((V297))==Cnil)){ |
1787 |
|
goto T1071;} |
1788 |
|
goto T1066; |
1789 |
|
goto T1071; |
1790 |
|
T1071:; |
1791 |
princ_str(",VV[",VV[10]); |
princ_str(",VV[",VV[10]); |
1792 |
V300= (*(LnkLI108))(car((V299))); |
V299= (*(LnkLI118))(CMPcar((V298))); |
1793 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V300)); |
(void)((*(LnkLI90))(/* INLINE-ARGS */V299)); |
1794 |
princ_char(93,VV[10]); |
princ_char(93,VV[10]); |
1795 |
V298= cdr((V298)); |
V297= CMPcdr((V297)); |
1796 |
V299= car((V298)); |
V298= CMPcar((V297)); |
1797 |
goto T1069;} |
goto T1070;} |
1798 |
goto T1065; |
goto T1066; |
1799 |
T1065:; |
T1066:; |
1800 |
princ_str(");",VV[10]); |
princ_str(");",VV[10]); |
1801 |
{register object V301; |
{register object V300; |
1802 |
object V302; |
object V301; |
1803 |
V301= (V261); |
V300= (V254); |
1804 |
V302= car((V301)); |
V301= CMPcar((V300)); |
|
goto T1089; |
|
|
T1089:; |
|
|
if(!(endp_prop((V301)))){ |
|
|
goto T1090;} |
|
|
goto T1085; |
|
1805 |
goto T1090; |
goto T1090; |
1806 |
T1090:; |
T1090:; |
1807 |
(void)((*(LnkLI103))((V302))); |
if(!(((V300))==Cnil)){ |
1808 |
V301= cdr((V301)); |
goto T1091;} |
1809 |
V302= car((V301)); |
goto T1086; |
1810 |
goto T1089;} |
goto T1091; |
1811 |
goto T1085; |
T1091:; |
1812 |
T1085:; |
(void)((*(LnkLI113))((V301))); |
1813 |
if(((V262))==Cnil){ |
V300= CMPcdr((V300)); |
1814 |
goto T1100;} |
V301= CMPcar((V300)); |
1815 |
if(((V261))==Cnil){ |
goto T1090;} |
1816 |
goto T1103;} |
goto T1086; |
1817 |
|
T1086:; |
1818 |
|
if(((V255))==Cnil){ |
1819 |
|
goto T1101;} |
1820 |
|
if(((V254))==Cnil){ |
1821 |
|
goto T1104;} |
1822 |
princ_str("\n vs_base += ",VV[10]); |
princ_str("\n vs_base += ",VV[10]); |
1823 |
V303 = make_fixnum((long)length((V261))); |
V302 = CMPmake_fixnum((long)length((V254))); |
1824 |
(void)((*(LnkLI80))(V303)); |
(void)((*(LnkLI90))(V302)); |
1825 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1826 |
goto T1103; |
goto T1104; |
1827 |
T1103:; |
T1104:; |
1828 |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
1829 |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
1830 |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
1831 |
{register object V304; |
{register object V303; |
1832 |
V304= (V262); |
V303= (V255); |
1833 |
goto T1111; |
goto T1112; |
1834 |
T1111:; |
T1112:; |
1835 |
if(!(endp_prop((V304)))){ |
if(!(((V303))==Cnil)){ |
1836 |
goto T1112;} |
goto T1113;} |
1837 |
bds_unwind1; |
bds_unwind1; |
1838 |
bds_unwind1; |
bds_unwind1; |
1839 |
bds_unwind1; |
bds_unwind1; |
1840 |
goto T1109; |
goto T1110; |
1841 |
goto T1112; |
goto T1113; |
1842 |
T1112:; |
T1113:; |
1843 |
{object V305; |
{object V304; |
1844 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
(VV[57]->s.s_dbind)= number_plus((VV[57]->s.s_dbind),small_fixnum(1)); |
1845 |
V305= make_cons(symbol_value(VV[57]),Cnil); |
V304= make_cons((VV[57]->s.s_dbind),Cnil); |
1846 |
V266= make_cons((V305),(V266));} |
V259= make_cons((V304),(V259));} |
1847 |
princ_str("\n if(vs_base>=vs_top){vs_top=sup;",VV[10]); |
princ_str("\n if(vs_base>=vs_top){vs_top=sup;",VV[10]); |
1848 |
if(type_of(car((V266)))!=t_cons)FEwrong_type_argument(Scons,car((V266))); |
(CMPcar((V259)))->c.c_cdr = Ct; |
1849 |
(car((V266)))->c.c_cdr = Ct; |
(void)(CMPcar((V259))); |
|
(void)(car((V266))); |
|
1850 |
princ_str("goto T",VV[10]); |
princ_str("goto T",VV[10]); |
1851 |
(void)((*(LnkLI80))(car(car((V266))))); |
(void)((*(LnkLI90))(CMPcar(CMPcar((V259))))); |
1852 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1853 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
1854 |
(void)((*(LnkLI103))(caar((V304)))); |
(void)((*(LnkLI113))(CMPcaar((V303)))); |
1855 |
if((caddar((V304)))==Cnil){ |
if((CMPcaddar((V303)))==Cnil){ |
1856 |
goto T1130;} |
goto T1131;} |
1857 |
(void)((*(LnkLI105))(caddar((V304)),Ct)); |
(void)((*(LnkLI115))(CMPcaddar((V303)),Ct)); |
1858 |
goto T1130; |
goto T1131; |
1859 |
T1130:; |
T1131:; |
1860 |
if((cdr((V304)))==Cnil){ |
if((CMPcdr((V303)))==Cnil){ |
1861 |
goto T1133;} |
goto T1134;} |
1862 |
princ_str("\n vs_base++;",VV[10]); |
princ_str("\n vs_base++;",VV[10]); |
1863 |
goto T1133; |
goto T1134; |
1864 |
T1133:; |
T1134:; |
1865 |
V304= cdr((V304)); |
V303= CMPcdr((V303)); |
1866 |
goto T1111;} |
goto T1112;} |
1867 |
goto T1109; |
goto T1110; |
1868 |
T1109:; |
T1110:; |
1869 |
V266= reverse((V266)); |
V259= reverse((V259)); |
1870 |
goto T1100; |
goto T1101; |
1871 |
T1100:; |
T1101:; |
1872 |
princ_str("\n vs_top=sup;",VV[10]); |
princ_str("\n vs_top=sup;",VV[10]); |
1873 |
if(((V262))==Cnil){ |
if(((V255))==Cnil){ |
1874 |
goto T1143;} |
goto T1144;} |
1875 |
{object V306; |
{object V305; |
1876 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
(VV[57]->s.s_dbind)= number_plus((VV[57]->s.s_dbind),small_fixnum(1)); |
1877 |
V306= make_cons(symbol_value(VV[57]),Cnil); |
V305= make_cons((VV[57]->s.s_dbind),Cnil); |
1878 |
if(type_of((V306))!=t_cons)FEwrong_type_argument(Scons,(V306)); |
((V305))->c.c_cdr = Ct; |
|
((V306))->c.c_cdr = Ct; |
|
1879 |
princ_str("goto T",VV[10]); |
princ_str("goto T",VV[10]); |
1880 |
(void)((*(LnkLI80))(car((V306)))); |
(void)((*(LnkLI90))(CMPcar((V305)))); |
1881 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1882 |
{register object V307; |
{register object V306; |
1883 |
register object V308; |
register object V307; |
1884 |
V307= (V262); |
V306= (V255); |
1885 |
V308= car((V307)); |
V307= CMPcar((V306)); |
|
goto T1157; |
|
|
T1157:; |
|
|
if(!(endp_prop((V307)))){ |
|
|
goto T1158;} |
|
|
goto T1153; |
|
1886 |
goto T1158; |
goto T1158; |
1887 |
T1158:; |
T1158:; |
1888 |
if((cdr(car((V266))))==Cnil){ |
if(!(((V306))==Cnil)){ |
1889 |
goto T1162;} |
goto T1159;} |
1890 |
|
goto T1154; |
1891 |
|
goto T1159; |
1892 |
|
T1159:; |
1893 |
|
if((CMPcdr(CMPcar((V259))))==Cnil){ |
1894 |
|
goto T1163;} |
1895 |
princ_str("\n goto T",VV[10]); |
princ_str("\n goto T",VV[10]); |
1896 |
(void)((*(LnkLI80))(car(car((V266))))); |
(void)((*(LnkLI90))(CMPcar(CMPcar((V259))))); |
1897 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1898 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1899 |
(void)((*(LnkLI80))(car(car((V266))))); |
(void)((*(LnkLI90))(CMPcar(CMPcar((V259))))); |
1900 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1901 |
goto T1162; |
goto T1163; |
1902 |
T1162:; |
T1163:; |
1903 |
{object V309; |
{object V308; |
1904 |
V309= car((V266)); |
V308= CMPcar((V259)); |
1905 |
V266= cdr((V266));} |
V259= CMPcdr((V259));} |
1906 |
(void)((*(LnkLI106))(car((V308)),cadr((V308)))); |
(void)((*(LnkLI116))(CMPcar((V307)),CMPcadr((V307)))); |
1907 |
if((caddr((V308)))==Cnil){ |
if((CMPcaddr((V307)))==Cnil){ |
1908 |
goto T1177;} |
goto T1178;} |
1909 |
(void)((*(LnkLI105))(caddr((V308)),Cnil)); |
(void)((*(LnkLI115))(CMPcaddr((V307)),Cnil)); |
1910 |
goto T1177; |
goto T1178; |
1911 |
T1177:; |
T1178:; |
1912 |
V307= cdr((V307)); |
V306= CMPcdr((V306)); |
1913 |
V308= car((V307)); |
V307= CMPcar((V306)); |
1914 |
goto T1157;} |
goto T1158;} |
1915 |
goto T1153; |
goto T1154; |
1916 |
T1153:; |
T1154:; |
1917 |
if((cdr((V306)))==Cnil){ |
if((CMPcdr((V305)))==Cnil){ |
1918 |
goto T1143;} |
goto T1144;} |
1919 |
princ_str("\n goto T",VV[10]); |
princ_str("\n goto T",VV[10]); |
1920 |
(void)((*(LnkLI80))(car((V306)))); |
(void)((*(LnkLI90))(CMPcar((V305)))); |
1921 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1922 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1923 |
(void)((*(LnkLI80))(car((V306)))); |
(void)((*(LnkLI90))(CMPcar((V305)))); |
1924 |
princ_str(":;",VV[10]);} |
princ_str(":;",VV[10]);} |
1925 |
goto T1143; |
goto T1144; |
1926 |
T1143:; |
T1144:; |
1927 |
if(((V263))==Cnil){ |
if(((V256))==Cnil){ |
1928 |
goto T1194;} |
goto T1195;} |
1929 |
(void)((*(LnkLI103))((V263))); |
(void)((*(LnkLI113))((V256))); |
1930 |
goto T1194; |
goto T1195; |
1931 |
T1194:; |
T1195:; |
1932 |
{register object V310; |
{register object V309; |
1933 |
register object V311; |
register object V310; |
1934 |
V310= (V264); |
V309= (V257); |
1935 |
V311= car((V310)); |
V310= CMPcar((V309)); |
|
goto T1201; |
|
|
T1201:; |
|
|
if(!(endp_prop((V310)))){ |
|
|
goto T1202;} |
|
|
goto T1197; |
|
1936 |
goto T1202; |
goto T1202; |
1937 |
T1202:; |
T1202:; |
1938 |
if(!((caaddr((V311)))==(VV[61]))){ |
if(!(((V309))==Cnil)){ |
1939 |
goto T1208;} |
goto T1203;} |
1940 |
if((caddr(caddr((V311))))!=Cnil){ |
goto T1198; |
1941 |
goto T1208;} |
goto T1203; |
1942 |
(void)((*(LnkLI103))(cadr((V311)))); |
T1203:; |
1943 |
goto T1206; |
if(!((CMPcaaddr((V310)))==(VV[61]))){ |
1944 |
goto T1208; |
goto T1209;} |
1945 |
T1208:; |
if((CMPcaddr(CMPcaddr((V310))))!=Cnil){ |
1946 |
|
goto T1209;} |
1947 |
|
(void)((*(LnkLI113))(CMPcadr((V310)))); |
1948 |
|
goto T1207; |
1949 |
|
goto T1209; |
1950 |
|
T1209:; |
1951 |
princ_str("\n if(",VV[10]); |
princ_str("\n if(",VV[10]); |
1952 |
V312= structure_ref(cadddr((V311)),VV[6],2); |
(void)((*(LnkLI119))(STREF(object,CMPcadddr((V310)),8))); |
|
(void)((*(LnkLI109))(/* INLINE-ARGS */V312)); |
|
1953 |
princ_str("==Cnil){",VV[10]); |
princ_str("==Cnil){",VV[10]); |
1954 |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
1955 |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
1956 |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
1957 |
V313= (*(LnkLI106))(cadr((V311)),caddr((V311))); |
V311= (*(LnkLI116))(CMPcadr((V310)),CMPcaddr((V310))); |
1958 |
bds_unwind1; |
bds_unwind1; |
1959 |
bds_unwind1; |
bds_unwind1; |
1960 |
bds_unwind1; |
bds_unwind1; |
1961 |
princ_str("\n }else{",VV[10]); |
princ_str("\n }else{",VV[10]); |
1962 |
(void)((*(LnkLI103))(cadr((V311)))); |
(void)((*(LnkLI113))(CMPcadr((V310)))); |
1963 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
1964 |
goto T1206; |
goto T1207; |
1965 |
T1206:; |
T1207:; |
1966 |
V314= structure_ref(cadddr((V311)),VV[6],1); |
if((STREF(object,CMPcadddr((V310)),4))==(VV[40])){ |
1967 |
if((/* INLINE-ARGS */V314)==(VV[40])){ |
goto T1223;} |
1968 |
goto T1222;} |
(void)((*(LnkLI113))(CMPcadddr((V310)))); |
1969 |
(void)((*(LnkLI103))(cadddr((V311)))); |
goto T1223; |
1970 |
goto T1222; |
T1223:; |
1971 |
T1222:; |
V309= CMPcdr((V309)); |
1972 |
V310= cdr((V310)); |
V310= CMPcar((V309)); |
1973 |
V311= car((V310)); |
goto T1202;} |
1974 |
goto T1201;} |
goto T1198; |
1975 |
goto T1197; |
T1198:; |
1976 |
T1197:; |
base[10]= (V253); |
|
base[10]= (V260); |
|
1977 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1978 |
(void) (*Lnk107)(); |
(void) (*Lnk117)(); |
1979 |
vs_top=sup; |
vs_top=sup; |
1980 |
if((base[9])==Cnil){ |
if((base[9])==Cnil){ |
1981 |
goto T1233;} |
goto T1234;} |
1982 |
princ_str("\n }",VV[10]); |
princ_str("\n }",VV[10]); |
1983 |
{object V315 = Cnil; |
{object V312 = Cnil; |
1984 |
bds_unwind1; |
bds_unwind1; |
1985 |
bds_unwind1; |
bds_unwind1; |
1986 |
bds_unwind1; |
bds_unwind1; |
1987 |
bds_unwind1; |
bds_unwind1; |
1988 |
VMR14(V315)} |
VMR14(V312)} |
1989 |
goto T1233; |
goto T1234; |
1990 |
T1233:; |
T1234:; |
1991 |
{object V316 = Cnil; |
{object V313 = Cnil; |
1992 |
bds_unwind1; |
bds_unwind1; |
1993 |
bds_unwind1; |
bds_unwind1; |
1994 |
bds_unwind1; |
bds_unwind1; |
1995 |
bds_unwind1; |
bds_unwind1; |
1996 |
VMR14(V316)}} |
VMR14(V313)}} |
1997 |
base[0]=base[0]; |
base[0]=base[0]; |
1998 |
return Cnil; |
return Cnil; |
1999 |
} |
} |
2000 |
/* local entry for function NEED-TO-SET-VS-POINTERS */ |
/* local entry for function NEED-TO-SET-VS-POINTERS */ |
2001 |
|
|
2002 |
static object LI17(V318) |
static object LI17(V315) |
2003 |
|
|
2004 |
object V318; |
object V315; |
2005 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
2006 |
goto TTL; |
goto TTL; |
2007 |
TTL:; |
TTL:; |
2008 |
if(symbol_value(VV[55])!=Cnil){ |
if((VV[55]->s.s_dbind)!=Cnil){ |
2009 |
{object V319 = symbol_value(VV[55]); |
{object V316 = (VV[55]->s.s_dbind); |
2010 |
VMR15(V319)}} |
VMR15(V316)}} |
2011 |
if(symbol_value(VV[56])!=Cnil){ |
if((VV[56]->s.s_dbind)!=Cnil){ |
2012 |
{object V320 = symbol_value(VV[56]); |
{object V317 = (VV[56]->s.s_dbind); |
2013 |
VMR15(V320)}}{object V321; |
VMR15(V317)}}{object V318; |
2014 |
V321= cadr((V318)); |
V318= CMPcadr((V315)); |
2015 |
if(V321==Cnil)goto T1236; |
if(V318==Cnil)goto T1237; |
2016 |
{object V322 = V321; |
{object V319 = V318; |
2017 |
|
VMR15(V319)} |
2018 |
|
goto T1237; |
2019 |
|
T1237:;}{object V320; |
2020 |
|
V320= CMPcaddr((V315)); |
2021 |
|
if(V320==Cnil)goto T1239; |
2022 |
|
{object V321 = V320; |
2023 |
|
VMR15(V321)} |
2024 |
|
goto T1239; |
2025 |
|
T1239:;} |
2026 |
|
{object V322 = CMPcadddr((V315)); |
2027 |
VMR15(V322)} |
VMR15(V322)} |
|
goto T1236; |
|
|
T1236:;}{object V323; |
|
|
V323= caddr((V318)); |
|
|
if(V323==Cnil)goto T1238; |
|
|
{object V324 = V323; |
|
|
VMR15(V324)} |
|
|
goto T1238; |
|
|
T1238:;} |
|
|
{object V325 = cadddr((V318)); |
|
|
VMR15(V325)} |
|
2028 |
return Cnil; |
return Cnil; |
2029 |
} |
} |
2030 |
/* local entry for function C1DM */ |
/* local entry for function C1DM */ |
2031 |
|
|
2032 |
static object LI18(V329,V330,V331) |
static object LI18(V326,V327,V328) |
2033 |
|
|
2034 |
object V329;register object V330;register object V331; |
object V326;register object V327;register object V328; |
2035 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
2036 |
bds_check; |
bds_check; |
2037 |
goto TTL; |
goto TTL; |
2038 |
TTL:; |
TTL:; |
2039 |
{object V332; |
{object V329; |
2040 |
object V333; |
object V330; |
2041 |
object V334; |
object V331; |
2042 |
object V335; |
object V332; |
2043 |
register object V336; |
register object V333; |
2044 |
register object V337; |
register object V334; |
2045 |
register object V338; |
register object V335; |
2046 |
object V339; |
object V336; |
2047 |
object V340; |
object V337; |
2048 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],(VV[53]->s.s_dbind)); |
2049 |
V332= Cnil; |
V329= Cnil; |
2050 |
V333= Cnil; |
V330= Cnil; |
2051 |
V334= symbol_value(VV[31]); |
V331= (VV[31]->s.s_dbind); |
2052 |
bds_bind(VV[62],Cnil); |
bds_bind(VV[62],Cnil); |
2053 |
bds_bind(VV[63],(VFUN_NARGS=0,(*(LnkLI85))())); |
bds_bind(VV[63],(VFUN_NARGS=0,(*(LnkLI95))())); |
2054 |
bds_bind(VV[64],Cnil); |
bds_bind(VV[64],Cnil); |
2055 |
|
V332= Cnil; |
2056 |
|
V333= Cnil; |
2057 |
|
V334= Cnil; |
2058 |
V335= Cnil; |
V335= Cnil; |
2059 |
V336= Cnil; |
V336= Cnil; |
2060 |
V337= Cnil; |
V337= Cnil; |
2061 |
V338= Cnil; |
base[4]= (V328); |
|
V339= Cnil; |
|
|
V340= Cnil; |
|
|
base[4]= (V331); |
|
2062 |
base[5]= Ct; |
base[5]= Ct; |
2063 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2064 |
(void) (*Lnk87)(); |
(void) (*Lnk97)(); |
2065 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2066 |
V331= vs_base[0]; |
V328= vs_base[0]; |
2067 |
vs_base++; |
vs_base++; |
2068 |
}else{ |
}else{ |
2069 |
V331= Cnil;} |
V328= Cnil;} |
2070 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2071 |
V336= vs_base[0]; |
V333= vs_base[0]; |
2072 |
vs_base++; |
vs_base++; |
2073 |
}else{ |
}else{ |
2074 |
V336= Cnil;} |
V333= Cnil;} |
2075 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2076 |
V338= vs_base[0]; |
V335= vs_base[0]; |
2077 |
vs_base++; |
vs_base++; |
2078 |
}else{ |
}else{ |
2079 |
V338= Cnil;} |
V335= Cnil;} |
2080 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2081 |
V337= vs_base[0]; |
V334= vs_base[0]; |
2082 |
vs_base++; |
vs_base++; |
2083 |
}else{ |
}else{ |
2084 |
V337= Cnil;} |
V334= Cnil;} |
2085 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2086 |
V339= vs_base[0]; |
V336= vs_base[0]; |
2087 |
vs_base++; |
vs_base++; |
2088 |
}else{ |
}else{ |
2089 |
V339= Cnil;} |
V336= Cnil;} |
2090 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2091 |
V335= vs_base[0]; |
V332= vs_base[0]; |
2092 |
}else{ |
}else{ |
2093 |
V335= Cnil;} |
V332= Cnil;} |
2094 |
vs_top=sup; |
vs_top=sup; |
2095 |
V341= listA(3,VV[33],(V329),(V331)); |
V338= listA(3,VV[33],(V326),(V328)); |
2096 |
V331= make_cons(/* INLINE-ARGS */V341,Cnil); |
V328= make_cons(/* INLINE-ARGS */V338,Cnil); |
2097 |
(void)((*(LnkLI88))((V336))); |
(void)((*(LnkLI98))((V333))); |
2098 |
if(!(type_of((V330))==t_cons||((V330))==Cnil)){ |
if(!(type_of((V327))==t_cons||((V327))==Cnil)){ |
2099 |
goto T1257;} |
goto T1258;} |
2100 |
if(!((car((V330)))==(VV[65]))){ |
if(!((CMPcar((V327)))==(VV[65]))){ |
2101 |
goto T1257;} |
goto T1258;} |
2102 |
{object V342; |
{object V339; |
2103 |
V342= cadr((V330)); |
V339= CMPcadr((V327)); |
2104 |
(VV[62]->s.s_dbind)= make_cons((V342),(VV[62]->s.s_dbind));} |
(VV[62]->s.s_dbind)= make_cons((V339),(VV[62]->s.s_dbind));} |
2105 |
V332= (*(LnkLI89))(cadr((V330)),(V336),(V337),(V338)); |
V329= (*(LnkLI99))(CMPcadr((V327)),(V333),(V334),(V335)); |
2106 |
(VV[64]->s.s_dbind)= make_cons(V332,(VV[64]->s.s_dbind)); |
(VV[64]->s.s_dbind)= make_cons(V329,(VV[64]->s.s_dbind)); |
2107 |
setq(VV[30],make_cons(V332,symbol_value(VV[30]))); |
(VV[30]->s.s_dbind)= make_cons(V329,(VV[30]->s.s_dbind)); |
2108 |
V330= cddr((V330)); |
V327= CMPcddr((V327)); |
2109 |
goto T1257; |
goto T1258; |
2110 |
T1257:; |
T1258:; |
2111 |
{register object V345; |
{register object V342; |
2112 |
if(type_of((V330))==t_cons||((V330))==Cnil){ |
if(type_of((V327))==t_cons||((V327))==Cnil){ |
2113 |
goto T1274;} |
goto T1275;} |
2114 |
V345= Cnil; |
V342= Cnil; |
|
goto T1273; |
|
2115 |
goto T1274; |
goto T1274; |
2116 |
T1274:; |
goto T1275; |
2117 |
{register object V346; |
T1275:; |
2118 |
V346= (V330); |
{register object V343; |
2119 |
goto T1277; |
V343= (V327); |
|
T1277:; |
|
|
if(type_of((V346))==t_cons){ |
|
|
goto T1278;} |
|
|
V345= Cnil; |
|
|
goto T1273; |
|
2120 |
goto T1278; |
goto T1278; |
2121 |
T1278:; |
T1278:; |
2122 |
if(!((VV[66])==(car((V346))))){ |
if(type_of((V343))==t_cons){ |
2123 |
goto T1282;} |
goto T1279;} |
2124 |
V345= (V346); |
V342= Cnil; |
2125 |
goto T1273; |
goto T1274; |
2126 |
goto T1282; |
goto T1279; |
2127 |
T1282:; |
T1279:; |
2128 |
V346= cdr((V346)); |
if(!((VV[66])==(CMPcar((V343))))){ |
2129 |
goto T1277;} |
goto T1283;} |
2130 |
goto T1273; |
V342= (V343); |
2131 |
T1273:; |
goto T1274; |
2132 |
if(((V345))==Cnil){ |
goto T1283; |
2133 |
goto T1272;} |
T1283:; |
2134 |
{object V347; |
V343= CMPcdr((V343)); |
2135 |
V347= cadr((V345)); |
goto T1278;} |
2136 |
(VV[62]->s.s_dbind)= make_cons((V347),(VV[62]->s.s_dbind));} |
goto T1274; |
2137 |
V333= (*(LnkLI89))(cadr((V345)),(V336),(V337),(V338)); |
T1274:; |
2138 |
(VV[64]->s.s_dbind)= make_cons(V333,(VV[64]->s.s_dbind)); |
if(((V342))==Cnil){ |
2139 |
setq(VV[30],make_cons(V333,symbol_value(VV[30]))); |
goto T1273;} |
2140 |
base[4]= (V330); |
{object V344; |
2141 |
base[5]= (V345); |
V344= CMPcadr((V342)); |
2142 |
|
(VV[62]->s.s_dbind)= make_cons((V344),(VV[62]->s.s_dbind));} |
2143 |
|
V330= (*(LnkLI99))(CMPcadr((V342)),(V333),(V334),(V335)); |
2144 |
|
(VV[64]->s.s_dbind)= make_cons(V330,(VV[64]->s.s_dbind)); |
2145 |
|
(VV[30]->s.s_dbind)= make_cons(V330,(VV[30]->s.s_dbind)); |
2146 |
|
base[4]= (V327); |
2147 |
|
base[5]= (V342); |
2148 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2149 |
Lldiff(); |
Lldiff(); |
2150 |
vs_top=sup; |
vs_top=sup; |
2151 |
V350= vs_base[0]; |
V347= vs_base[0]; |
2152 |
V330= append(V350,cddr((V345)));} |
V327= append(V347,CMPcddr((V342)));} |
2153 |
goto T1272; |
goto T1273; |
2154 |
T1272:; |
T1273:; |
2155 |
base[4]= (V330); |
base[4]= (V327); |
2156 |
base[5]= (V336); |
base[5]= (V333); |
2157 |
base[6]= (V337); |
base[6]= (V334); |
2158 |
base[7]= (V338); |
base[7]= (V335); |
2159 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2160 |
(void) (*Lnk110)(); |
(void) (*Lnk120)(); |
2161 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2162 |
V330= vs_base[0]; |
V327= vs_base[0]; |
2163 |
vs_base++; |
vs_base++; |
2164 |
}else{ |
}else{ |
2165 |
V330= Cnil;} |
V327= Cnil;} |
2166 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2167 |
V340= vs_base[0]; |
V337= vs_base[0]; |
2168 |
}else{ |
}else{ |
2169 |
V340= Cnil;} |
V337= Cnil;} |
2170 |
vs_top=sup; |
vs_top=sup; |
2171 |
(void)((*(LnkLI95))((VV[62]->s.s_dbind),(V338),(V337))); |
(void)((*(LnkLI105))((VV[62]->s.s_dbind),(V335),(V334))); |
2172 |
V331= (*(LnkLI96))((V339),(V331));{object V351; |
V328= (*(LnkLI106))((V336),(V328));{object V348; |
2173 |
V351= (VV[63]->s.s_dbind); |
V348= (VV[63]->s.s_dbind); |
2174 |
(void)((*(LnkLI94))(V351,cadr((V331))));} |
(void)((*(LnkLI104))(V348,CMPcadr((V328))));} |
2175 |
{object V352; |
{object V349; |
2176 |
V352= (eql((V334),symbol_value(VV[31]))?Ct:Cnil); |
V349= (eql((V331),(VV[31]->s.s_dbind))?Ct:Cnil); |
2177 |
if(((V352))==Cnil){ |
if(((V349))==Cnil){ |
2178 |
goto T1316;} |
goto T1317;} |
2179 |
goto T1313; |
goto T1314; |
2180 |
goto T1316; |
goto T1317; |
2181 |
T1316:; |
T1317:; |
2182 |
(void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct)); |
V350= Ct; |
2183 |
(void)(sputprop((V329),VV[67],Ct));} |
STSET(object,(VV[63]->s.s_dbind),16, Ct); |
2184 |
goto T1313; |
(void)(Ct); |
2185 |
T1313:; |
(void)(sputprop((V326),VV[67],Ct));} |
2186 |
{register object V353; |
goto T1314; |
2187 |
register object V354; |
T1314:; |
2188 |
V353= (VV[64]->s.s_dbind); |
{register object V351; |
2189 |
V354= car((V353)); |
register object V352; |
2190 |
goto T1323; |
V351= (VV[64]->s.s_dbind); |
2191 |
T1323:; |
V352= CMPcar((V351)); |
|
if(!(endp_prop((V353)))){ |
|
|
goto T1324;} |
|
|
goto T1319; |
|
2192 |
goto T1324; |
goto T1324; |
2193 |
T1324:; |
T1324:; |
2194 |
(void)((*(LnkLI97))((V354))); |
if(!(((V351))==Cnil)){ |
2195 |
V353= cdr((V353)); |
goto T1325;} |
2196 |
V354= car((V353)); |
goto T1320; |
2197 |
goto T1323;} |
goto T1325; |
2198 |
goto T1319; |
T1325:; |
2199 |
T1319:; |
(void)((*(LnkLI107))((V352))); |
2200 |
{object V355 = list(7,(V335),(V340),(V332),(V333),(V330),(V331),(VV[63]->s.s_dbind)); |
V351= CMPcdr((V351)); |
2201 |
|
V352= CMPcar((V351)); |
2202 |
|
goto T1324;} |
2203 |
|
goto T1320; |
2204 |
|
T1320:; |
2205 |
|
{object V353 = list(7,(V332),(V337),(V329),(V330),(V327),(V328),(VV[63]->s.s_dbind)); |
2206 |
bds_unwind1; |
bds_unwind1; |
2207 |
bds_unwind1; |
bds_unwind1; |
2208 |
bds_unwind1; |
bds_unwind1; |
2209 |
bds_unwind1; |
bds_unwind1; |
2210 |
VMR16(V355)}} |
VMR16(V353)}} |
2211 |
base[0]=base[0]; |
base[0]=base[0]; |
2212 |
return Cnil; |
return Cnil; |
2213 |
} |
} |
2216 |
static void L19() |
static void L19() |
2217 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2218 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
2219 |
vs_reserve(VM17); |
vs_check; |
2220 |
{register object V356; |
{register object V354; |
2221 |
|
register object V355; |
2222 |
|
register object V356; |
2223 |
register object V357; |
register object V357; |
2224 |
register object V358; |
V354=(base[0]); |
2225 |
register object V359; |
V355=(base[1]); |
2226 |
check_arg(4); |
V356=(base[2]); |
2227 |
V356=(base[0]); |
V357=(base[3]); |
|
V357=(base[1]); |
|
|
V358=(base[2]); |
|
|
V359=(base[3]); |
|
2228 |
vs_top=sup; |
vs_top=sup; |
2229 |
goto TTL; |
goto TTL; |
2230 |
TTL:; |
TTL:; |
2231 |
{register object V360; |
{register object V358; |
2232 |
|
object V359; |
2233 |
|
object V360; |
2234 |
object V361; |
object V361; |
2235 |
object V362; |
object V362; |
2236 |
object V363; |
object V363; |
2242 |
object V369; |
object V369; |
2243 |
object V370; |
object V370; |
2244 |
object V371; |
object V371; |
2245 |
object V372; |
V358= Cnil; |
2246 |
object V373; |
V359= Cnil; |
2247 |
V360= Cnil; |
V360= Cnil; |
2248 |
V361= Cnil; |
V361= Cnil; |
2249 |
V362= Cnil; |
V362= Cnil; |
2254 |
V367= Cnil; |
V367= Cnil; |
2255 |
V368= Cnil; |
V368= Cnil; |
2256 |
V369= Cnil; |
V369= Cnil; |
2257 |
V370= Cnil; |
V370= small_fixnum(0); |
2258 |
V371= Cnil; |
V371= Cnil; |
2259 |
V372= small_fixnum(0); |
goto T1336; |
2260 |
V373= Cnil; |
T1336:; |
2261 |
goto T1335; |
if(type_of((V354))==t_cons){ |
2262 |
T1335:; |
goto T1337;} |
2263 |
if(type_of((V356))==t_cons){ |
if(((V354))==Cnil){ |
2264 |
goto T1336;} |
goto T1340;} |
2265 |
if(((V356))==Cnil){ |
if(((V359))==Cnil){ |
2266 |
goto T1339;} |
goto T1343;} |
|
if(((V361))==Cnil){ |
|
|
goto T1342;} |
|
2267 |
base[4]= VV[68]; |
base[4]= VV[68]; |
2268 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2269 |
(void) (*Lnk111)(); |
(void) (*Lnk121)(); |
2270 |
vs_top=sup; |
vs_top=sup; |
2271 |
goto T1342; |
goto T1343; |
2272 |
T1342:; |
T1343:; |
2273 |
base[4]= (V356); |
base[4]= (V354); |
2274 |
base[5]= (V357); |
base[5]= (V355); |
2275 |
base[6]= (V358); |
base[6]= (V356); |
2276 |
base[7]= (V359); |
base[7]= (V357); |
2277 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2278 |
(void) (*Lnk112)(); |
(void) (*Lnk122)(); |
2279 |
vs_top=sup; |
vs_top=sup; |
2280 |
V367= vs_base[0]; |
V365= vs_base[0]; |
2281 |
goto T1339; |
goto T1340; |
2282 |
T1339:; |
T1340:; |
2283 |
V374= reverse((V365)); |
V372= reverse((V363)); |
2284 |
V375= reverse((V366)); |
V373= reverse((V364)); |
2285 |
V376= reverse((V369)); |
V374= reverse((V367)); |
2286 |
base[4]= list(7,/* INLINE-ARGS */V374,/* INLINE-ARGS */V375,(V367),(V368),/* INLINE-ARGS */V376,(V371),reverse((V370))); |
base[4]= list(7,/* INLINE-ARGS */V372,/* INLINE-ARGS */V373,(V365),(V366),/* INLINE-ARGS */V374,(V369),reverse((V368))); |
2287 |
base[5]= (V373); |
base[5]= (V371); |
2288 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2289 |
return; |
return; |
2290 |
goto T1336; |
goto T1337; |
2291 |
T1336:; |
T1337:; |
2292 |
{register object V377; |
{register object V375; |
2293 |
V377= car((V356)); |
V375= CMPcar((V354)); |
2294 |
if(!(((V377))==(VV[69]))){ |
if(!(((V375))==(VV[69]))){ |
2295 |
goto T1357;} |
goto T1358;} |
2296 |
if(((V360))==Cnil){ |
if(((V358))==Cnil){ |
2297 |
goto T1359;} |
goto T1360;} |
2298 |
base[4]= VV[69]; |
base[4]= VV[69]; |
2299 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2300 |
(void) (*Lnk111)(); |
(void) (*Lnk121)(); |
2301 |
vs_top=sup; |
vs_top=sup; |
2302 |
goto T1359; |
goto T1360; |
2303 |
T1359:; |
T1360:; |
2304 |
V360= Ct; |
V358= Ct; |
2305 |
{object V378; |
{object V376; |
2306 |
V378= car((V356)); |
V376= CMPcar((V354)); |
2307 |
V356= cdr((V356)); |
V354= CMPcdr((V354)); |
2308 |
goto T1354;} |
goto T1355;} |
2309 |
goto T1357; |
goto T1358; |
2310 |
T1357:; |
T1358:; |
2311 |
if(((V377))==(VV[68])){ |
if(((V375))==(VV[68])){ |
|
goto T1368;} |
|
|
if(!(((V377))==(VV[70]))){ |
|
2312 |
goto T1369;} |
goto T1369;} |
2313 |
goto T1368; |
if(!(((V375))==(VV[70]))){ |
2314 |
T1368:; |
goto T1370;} |
2315 |
if(((V361))==Cnil){ |
goto T1369; |
2316 |
goto T1373;} |
T1369:; |
2317 |
base[4]= (V377); |
if(((V359))==Cnil){ |
2318 |
|
goto T1374;} |
2319 |
|
base[4]= (V375); |
2320 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2321 |
(void) (*Lnk111)(); |
(void) (*Lnk121)(); |
2322 |
vs_top=sup; |
vs_top=sup; |
2323 |
goto T1373; |
goto T1374; |
2324 |
T1373:; |
T1374:; |
2325 |
base[4]= cadr((V356)); |
base[4]= CMPcadr((V354)); |
2326 |
base[5]= (V357); |
base[5]= (V355); |
2327 |
base[6]= (V358); |
base[6]= (V356); |
2328 |
base[7]= (V359); |
base[7]= (V357); |
2329 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2330 |
(void) (*Lnk112)(); |
(void) (*Lnk122)(); |
2331 |
vs_top=sup; |
vs_top=sup; |
2332 |
V367= vs_base[0]; |
V365= vs_base[0]; |
2333 |
V361= Ct; |
V359= Ct; |
2334 |
V360= Ct; |
V358= Ct; |
2335 |
V356= cddr((V356)); |
V354= CMPcddr((V354)); |
2336 |
if(!(((V377))==(VV[70]))){ |
if(!(((V375))==(VV[70]))){ |
2337 |
goto T1354;} |
goto T1355;} |
2338 |
V373= (V372); |
V371= (V370); |
2339 |
goto T1354; |
goto T1355; |
2340 |
goto T1369; |
goto T1370; |
2341 |
T1369:; |
T1370:; |
2342 |
if(!(((V377))==(VV[71]))){ |
if(!(((V375))==(VV[71]))){ |
2343 |
goto T1393;} |
goto T1394;} |
2344 |
if(((V362))==Cnil){ |
if(((V360))==Cnil){ |
2345 |
goto T1395;} |
goto T1396;} |
2346 |
base[4]= VV[71]; |
base[4]= VV[71]; |
2347 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2348 |
(void) (*Lnk111)(); |
(void) (*Lnk121)(); |
2349 |
vs_top=sup; |
vs_top=sup; |
2350 |
goto T1395; |
goto T1396; |
2351 |
T1395:; |
T1396:; |
|
V362= Ct; |
|
|
V361= Ct; |
|
2352 |
V360= Ct; |
V360= Ct; |
2353 |
V368= Ct; |
V359= Ct; |
2354 |
{object V379; |
V358= Ct; |
2355 |
V379= car((V356)); |
V366= Ct; |
2356 |
V356= cdr((V356)); |
{object V377; |
2357 |
goto T1354;} |
V377= CMPcar((V354)); |
2358 |
goto T1393; |
V354= CMPcdr((V354)); |
2359 |
T1393:; |
goto T1355;} |
2360 |
if(!(((V377))==(VV[72]))){ |
goto T1394; |
2361 |
goto T1411;} |
T1394:; |
2362 |
if(((V362))==Cnil){ |
if(!(((V375))==(VV[72]))){ |
2363 |
|
goto T1412;} |
2364 |
|
if(((V360))==Cnil){ |
2365 |
|
goto T1415;} |
2366 |
|
if(((V361))==Cnil){ |
2367 |
goto T1414;} |
goto T1414;} |
2368 |
if(((V363))==Cnil){ |
goto T1415; |
2369 |
goto T1413;} |
T1415:; |
|
goto T1414; |
|
|
T1414:; |
|
2370 |
base[4]= VV[72]; |
base[4]= VV[72]; |
2371 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2372 |
(void) (*Lnk111)(); |
(void) (*Lnk121)(); |
2373 |
vs_top=sup; |
vs_top=sup; |
2374 |
goto T1413; |
goto T1414; |
2375 |
T1413:; |
T1414:; |
2376 |
V363= Ct; |
V361= Ct; |
2377 |
V371= Ct; |
V369= Ct; |
2378 |
{object V380; |
{object V378; |
2379 |
V380= car((V356)); |
V378= CMPcar((V354)); |
2380 |
V356= cdr((V356)); |
V354= CMPcdr((V354)); |
2381 |
goto T1354;} |
goto T1355;} |
2382 |
goto T1411; |
goto T1412; |
2383 |
T1411:; |
T1412:; |
2384 |
if(!(((V377))==(VV[73]))){ |
if(!(((V375))==(VV[73]))){ |
2385 |
goto T1427;} |
goto T1428;} |
2386 |
if(((V364))==Cnil){ |
if(((V362))==Cnil){ |
2387 |
goto T1429;} |
goto T1430;} |
2388 |
base[4]= VV[73]; |
base[4]= VV[73]; |
2389 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2390 |
(void) (*Lnk111)(); |
(void) (*Lnk121)(); |
2391 |
vs_top=sup; |
vs_top=sup; |
2392 |
goto T1429; |
goto T1430; |
2393 |
T1429:; |
T1430:; |
|
V364= Ct; |
|
|
V363= Ct; |
|
2394 |
V362= Ct; |
V362= Ct; |
2395 |
V361= Ct; |
V361= Ct; |
2396 |
V360= Ct; |
V360= Ct; |
2397 |
{object V381; |
V359= Ct; |
2398 |
V381= car((V356)); |
V358= Ct; |
2399 |
V356= cdr((V356)); |
{object V379; |
2400 |
goto T1354;} |
V379= CMPcar((V354)); |
2401 |
goto T1427; |
V354= CMPcdr((V354)); |
2402 |
T1427:; |
goto T1355;} |
2403 |
if(((V364))==Cnil){ |
goto T1428; |
2404 |
goto T1447;} |
T1428:; |
2405 |
|
if(((V362))==Cnil){ |
2406 |
|
goto T1448;} |
2407 |
|
{object V380; |
2408 |
|
object V381; |
2409 |
|
V380= Cnil; |
2410 |
|
V381= Cnil; |
2411 |
|
if(!(type_of((V375))==t_symbol)){ |
2412 |
|
goto T1453;} |
2413 |
|
V380= (V375); |
2414 |
|
V381= (*(LnkLI123))(); |
2415 |
|
goto T1451; |
2416 |
|
goto T1453; |
2417 |
|
T1453:; |
2418 |
|
V380= CMPcar((V375)); |
2419 |
|
if(!((CMPcdr((V375)))==Cnil)){ |
2420 |
|
goto T1461;} |
2421 |
|
V381= (*(LnkLI123))(); |
2422 |
|
goto T1451; |
2423 |
|
goto T1461; |
2424 |
|
T1461:; |
2425 |
|
V381= (*(LnkLI101))(CMPcadr((V375)),(VV[63]->s.s_dbind)); |
2426 |
|
goto T1451; |
2427 |
|
T1451:; |
2428 |
{object V382; |
{object V382; |
2429 |
object V383; |
base[5]= (V380); |
2430 |
V382= Cnil; |
base[6]= (V355); |
2431 |
V383= Cnil; |
base[7]= (V356); |
2432 |
if(!(type_of((V377))==t_symbol)){ |
base[8]= (V357); |
|
goto T1452;} |
|
|
V382= (V377); |
|
|
V383= (*(LnkLI113))(); |
|
|
goto T1450; |
|
|
goto T1452; |
|
|
T1452:; |
|
|
V382= car((V377)); |
|
|
if(!(endp_prop(cdr((V377))))){ |
|
|
goto T1460;} |
|
|
V383= (*(LnkLI113))(); |
|
|
goto T1450; |
|
|
goto T1460; |
|
|
T1460:; |
|
|
V383= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
|
|
goto T1450; |
|
|
T1450:; |
|
|
{object V384; |
|
|
base[5]= (V382); |
|
|
base[6]= (V357); |
|
|
base[7]= (V358); |
|
|
base[8]= (V359); |
|
2433 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2434 |
(void) (*Lnk112)(); |
(void) (*Lnk122)(); |
2435 |
vs_top=sup; |
vs_top=sup; |
2436 |
V385= vs_base[0]; |
V383= vs_base[0]; |
2437 |
V384= list(2,V385,(V383)); |
V382= list(2,V383,(V381)); |
2438 |
V370= make_cons((V384),(V370));}} |
V368= make_cons((V382),(V368));}} |
2439 |
{object V386; |
{object V384; |
2440 |
V386= car((V356)); |
V384= CMPcar((V354)); |
2441 |
V356= cdr((V356)); |
V354= CMPcdr((V354)); |
2442 |
goto T1354;} |
goto T1355;} |
2443 |
goto T1447; |
goto T1448; |
2444 |
T1447:; |
T1448:; |
2445 |
if(((V362))==Cnil){ |
if(((V360))==Cnil){ |
2446 |
goto T1475;} |
goto T1476;} |
2447 |
{object V387; |
{object V385; |
2448 |
|
object V386; |
2449 |
|
object V387; |
2450 |
object V388; |
object V388; |
2451 |
object V389; |
V385= Cnil; |
2452 |
object V390; |
V386= Cnil; |
2453 |
V387= Cnil; |
V387= Cnil; |
2454 |
V388= Cnil; |
V388= Cnil; |
2455 |
V389= Cnil; |
if(!(type_of((V375))==t_symbol)){ |
2456 |
V390= Cnil; |
goto T1481;} |
2457 |
if(!(type_of((V377))==t_symbol)){ |
V385= (V375); |
2458 |
goto T1480;} |
base[4]= coerce_to_string((V375)); |
|
V387= (V377); |
|
|
base[4]= coerce_to_string((V377)); |
|
2459 |
base[5]= VV[38]; |
base[5]= VV[38]; |
2460 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2461 |
Lintern(); |
Lintern(); |
2462 |
vs_top=sup; |
vs_top=sup; |
2463 |
V388= vs_base[0]; |
V386= vs_base[0]; |
2464 |
V389= (*(LnkLI113))(); |
V387= (*(LnkLI123))(); |
2465 |
goto T1478; |
goto T1479; |
2466 |
goto T1480; |
goto T1481; |
2467 |
T1480:; |
T1481:; |
2468 |
if(!(type_of(car((V377)))==t_symbol)){ |
if(!(type_of(CMPcar((V375)))==t_symbol)){ |
2469 |
goto T1491;} |
goto T1492;} |
2470 |
V387= car((V377)); |
V385= CMPcar((V375)); |
2471 |
base[4]= coerce_to_string(car((V377))); |
base[4]= coerce_to_string(CMPcar((V375))); |
2472 |
base[5]= VV[38]; |
base[5]= VV[38]; |
2473 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2474 |
Lintern(); |
Lintern(); |
2475 |
vs_top=sup; |
vs_top=sup; |
2476 |
V388= vs_base[0]; |
V386= vs_base[0]; |
2477 |
goto T1489; |
goto T1490; |
2478 |
goto T1491; |
goto T1492; |
2479 |
T1491:; |
T1492:; |
2480 |
V387= cadar((V377)); |
V385= CMPcadar((V375)); |
2481 |
V388= caar((V377)); |
V386= CMPcaar((V375)); |
2482 |
goto T1489; |
goto T1490; |
2483 |
T1489:; |
T1490:; |
2484 |
if(!(endp_prop(cdr((V377))))){ |
if(!((CMPcdr((V375)))==Cnil)){ |
2485 |
goto T1502;} |
goto T1503;} |
2486 |
V389= (*(LnkLI113))(); |
V387= (*(LnkLI123))(); |
2487 |
goto T1478; |
goto T1479; |
2488 |
goto T1502; |
goto T1503; |
2489 |
T1502:; |
T1503:; |
2490 |
V389= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
V387= (*(LnkLI101))(CMPcadr((V375)),(VV[63]->s.s_dbind)); |
2491 |
if(endp_prop(cddr((V377)))){ |
if((CMPcddr((V375)))==Cnil){ |
2492 |
goto T1478;} |
goto T1479;} |
2493 |
V390= caddr((V377)); |
V388= CMPcaddr((V375)); |
2494 |
goto T1478; |
goto T1479; |
2495 |
T1478:; |
T1479:; |
2496 |
{object V391; |
{object V389; |
2497 |
base[5]= (V387); |
base[5]= (V385); |
2498 |
base[6]= (V357); |
base[6]= (V355); |
2499 |
base[7]= (V358); |
base[7]= (V356); |
2500 |
base[8]= (V359); |
base[8]= (V357); |
2501 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2502 |
(void) (*Lnk112)(); |
(void) (*Lnk122)(); |
2503 |
vs_top=sup; |
vs_top=sup; |
2504 |
V392= vs_base[0]; |
V390= vs_base[0]; |
2505 |
if(((V390))==Cnil){ |
if(((V388))==Cnil){ |
2506 |
goto T1518;} |
goto T1519;} |
2507 |
base[5]= (V390); |
base[5]= (V388); |
2508 |
base[6]= (V357); |
base[6]= (V355); |
2509 |
base[7]= (V358); |
base[7]= (V356); |
2510 |
base[8]= (V359); |
base[8]= (V357); |
2511 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2512 |
(void) (*Lnk112)(); |
(void) (*Lnk122)(); |
2513 |
vs_top=sup; |
vs_top=sup; |
2514 |
V393= vs_base[0]; |
V391= vs_base[0]; |
2515 |
goto T1516; |
goto T1517; |
2516 |
goto T1518; |
goto T1519; |
2517 |
T1518:; |
T1519:; |
2518 |
|
V391= Cnil; |
2519 |
|
goto T1517; |
2520 |
|
T1517:; |
2521 |
|
V389= list(4,(V386),V390,(V387),V391); |
2522 |
|
V367= make_cons((V389),(V367));}} |
2523 |
|
{object V392; |
2524 |
|
V392= CMPcar((V354)); |
2525 |
|
V354= CMPcdr((V354)); |
2526 |
|
goto T1355;} |
2527 |
|
goto T1476; |
2528 |
|
T1476:; |
2529 |
|
if(((V358))==Cnil){ |
2530 |
|
goto T1530;} |
2531 |
|
{object V393; |
2532 |
|
object V394; |
2533 |
|
object V395; |
2534 |
V393= Cnil; |
V393= Cnil; |
2535 |
goto T1516; |
V394= Cnil; |
|
T1516:; |
|
|
V391= list(4,(V388),V392,(V389),V393); |
|
|
V369= make_cons((V391),(V369));}} |
|
|
{object V394; |
|
|
V394= car((V356)); |
|
|
V356= cdr((V356)); |
|
|
goto T1354;} |
|
|
goto T1475; |
|
|
T1475:; |
|
|
if(((V360))==Cnil){ |
|
|
goto T1529;} |
|
|
{object V395; |
|
|
object V396; |
|
|
object V397; |
|
2536 |
V395= Cnil; |
V395= Cnil; |
2537 |
V396= Cnil; |
if(!(type_of((V375))==t_symbol)){ |
2538 |
V397= Cnil; |
goto T1535;} |
2539 |
if(!(type_of((V377))==t_symbol)){ |
V393= (V375); |
2540 |
goto T1534;} |
V394= (*(LnkLI123))(); |
2541 |
V395= (V377); |
goto T1533; |
2542 |
V396= (*(LnkLI113))(); |
goto T1535; |
2543 |
goto T1532; |
T1535:; |
2544 |
goto T1534; |
V393= CMPcar((V375)); |
2545 |
T1534:; |
if(!((CMPcdr((V375)))==Cnil)){ |
2546 |
V395= car((V377)); |
goto T1543;} |
2547 |
if(!(endp_prop(cdr((V377))))){ |
V394= (*(LnkLI123))(); |
2548 |
goto T1542;} |
goto T1533; |
2549 |
V396= (*(LnkLI113))(); |
goto T1543; |
2550 |
goto T1532; |
T1543:; |
2551 |
goto T1542; |
V394= (*(LnkLI101))(CMPcadr((V375)),(VV[63]->s.s_dbind)); |
2552 |
T1542:; |
if((CMPcddr((V375)))==Cnil){ |
2553 |
V396= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
goto T1533;} |
2554 |
if(endp_prop(cddr((V377)))){ |
V395= CMPcaddr((V375)); |
2555 |
goto T1532;} |
goto T1533; |
2556 |
V397= caddr((V377)); |
T1533:; |
2557 |
goto T1532; |
{object V396; |
2558 |
T1532:; |
base[5]= (V393); |
2559 |
{object V398; |
base[6]= (V355); |
2560 |
|
base[7]= (V356); |
2561 |
|
base[8]= (V357); |
2562 |
|
vs_top=(vs_base=base+5)+4; |
2563 |
|
(void) (*Lnk122)(); |
2564 |
|
vs_top=sup; |
2565 |
|
V397= vs_base[0]; |
2566 |
|
if(((V395))==Cnil){ |
2567 |
|
goto T1559;} |
2568 |
base[5]= (V395); |
base[5]= (V395); |
2569 |
base[6]= (V357); |
base[6]= (V355); |
2570 |
base[7]= (V358); |
base[7]= (V356); |
2571 |
base[8]= (V359); |
base[8]= (V357); |
2572 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2573 |
(void) (*Lnk112)(); |
(void) (*Lnk122)(); |
2574 |
vs_top=sup; |
vs_top=sup; |
2575 |
V399= vs_base[0]; |
V398= vs_base[0]; |
2576 |
if(((V397))==Cnil){ |
goto T1557; |
2577 |
goto T1558;} |
goto T1559; |
2578 |
base[5]= (V397); |
T1559:; |
2579 |
base[6]= (V357); |
V398= Cnil; |
2580 |
base[7]= (V358); |
goto T1557; |
2581 |
base[8]= (V359); |
T1557:; |
2582 |
|
V396= list(3,V397,(V394),V398); |
2583 |
|
V364= make_cons((V396),(V364));}} |
2584 |
|
{object V399; |
2585 |
|
V399= CMPcar((V354)); |
2586 |
|
V354= CMPcdr((V354));} |
2587 |
|
V370= number_plus((V370),small_fixnum(1)); |
2588 |
|
goto T1355; |
2589 |
|
goto T1530; |
2590 |
|
T1530:; |
2591 |
|
{object V400; |
2592 |
|
base[5]= (V375); |
2593 |
|
base[6]= (V355); |
2594 |
|
base[7]= (V356); |
2595 |
|
base[8]= (V357); |
2596 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2597 |
(void) (*Lnk112)(); |
(void) (*Lnk122)(); |
2598 |
vs_top=sup; |
vs_top=sup; |
2599 |
V400= vs_base[0]; |
V400= vs_base[0]; |
2600 |
goto T1556; |
V363= make_cons((V400),(V363));} |
|
goto T1558; |
|
|
T1558:; |
|
|
V400= Cnil; |
|
|
goto T1556; |
|
|
T1556:; |
|
|
V398= list(3,V399,(V396),V400); |
|
|
V366= make_cons((V398),(V366));}} |
|
2601 |
{object V401; |
{object V401; |
2602 |
V401= car((V356)); |
V401= CMPcar((V354)); |
2603 |
V356= cdr((V356));} |
V354= CMPcdr((V354));} |
2604 |
V372= number_plus((V372),small_fixnum(1)); |
V370= number_plus((V370),small_fixnum(1));} |
2605 |
goto T1354; |
goto T1355; |
2606 |
goto T1529; |
T1355:; |
2607 |
T1529:; |
goto T1336;} |
|
{object V402; |
|
|
base[5]= (V377); |
|
|
base[6]= (V357); |
|
|
base[7]= (V358); |
|
|
base[8]= (V359); |
|
|
vs_top=(vs_base=base+5)+4; |
|
|
(void) (*Lnk112)(); |
|
|
vs_top=sup; |
|
|
V402= vs_base[0]; |
|
|
V365= make_cons((V402),(V365));} |
|
|
{object V403; |
|
|
V403= car((V356)); |
|
|
V356= cdr((V356));} |
|
|
V372= number_plus((V372),small_fixnum(1));} |
|
|
goto T1354; |
|
|
T1354:; |
|
|
goto T1335;} |
|
2608 |
} |
} |
2609 |
} |
} |
2610 |
/* function definition for C1DM-V */ |
/* function definition for C1DM-V */ |
2612 |
static void L20() |
static void L20() |
2613 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2614 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
2615 |
vs_reserve(VM18); |
vs_check; |
2616 |
{register object V404; |
{register object V402; |
2617 |
|
object V403; |
2618 |
|
object V404; |
2619 |
object V405; |
object V405; |
2620 |
object V406; |
V402=(base[0]); |
2621 |
object V407; |
V403=(base[1]); |
2622 |
check_arg(4); |
V404=(base[2]); |
2623 |
V404=(base[0]); |
V405=(base[3]); |
|
V405=(base[1]); |
|
|
V406=(base[2]); |
|
|
V407=(base[3]); |
|
2624 |
vs_top=sup; |
vs_top=sup; |
2625 |
goto TTL; |
goto TTL; |
2626 |
TTL:; |
TTL:; |
2627 |
if(!(type_of((V404))==t_symbol)){ |
if(!(type_of((V402))==t_symbol)){ |
2628 |
goto T1585;} |
goto T1586;} |
2629 |
setq(VV[62],make_cons(V404,symbol_value(VV[62]))); |
(VV[62]->s.s_dbind)= make_cons(V402,(VV[62]->s.s_dbind)); |
2630 |
V404= (*(LnkLI89))((V404),(V405),(V406),(V407)); |
V402= (*(LnkLI99))((V402),(V403),(V404),(V405)); |
2631 |
setq(VV[30],make_cons(V404,symbol_value(VV[30]))); |
(VV[30]->s.s_dbind)= make_cons(V402,(VV[30]->s.s_dbind)); |
2632 |
setq(VV[64],make_cons(V404,symbol_value(VV[64]))); |
(VV[64]->s.s_dbind)= make_cons(V402,(VV[64]->s.s_dbind)); |
2633 |
base[4]= (V404); |
base[4]= (V402); |
2634 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2635 |
return; |
return; |
2636 |
goto T1585; |
goto T1586; |
2637 |
T1585:; |
T1586:; |
2638 |
base[4]= (V404); |
base[4]= (V402); |
2639 |
base[5]= (V405); |
base[5]= (V403); |
2640 |
base[6]= (V406); |
base[6]= (V404); |
2641 |
base[7]= (V407); |
base[7]= (V405); |
2642 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2643 |
(void) (*Lnk110)(); |
(void) (*Lnk120)(); |
2644 |
return; |
return; |
2645 |
} |
} |
2646 |
} |
} |
2647 |
/* local entry for function C1DM-BAD-KEY */ |
/* local entry for function C1DM-BAD-KEY */ |
2648 |
|
|
2649 |
static object LI21(V412) |
static object LI21(V410) |
2650 |
|
|
2651 |
object V412; |
object V410; |
2652 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
2653 |
goto TTL; |
goto TTL; |
2654 |
TTL:; |
TTL:; |
2655 |
{object V413 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V412))); |
{object V411 = (VFUN_NARGS=2,(*(LnkLI96))(VV[74],(V410))); |
2656 |
VMR19(V413)} |
VMR19(V411)} |
2657 |
return Cnil; |
return Cnil; |
2658 |
} |
} |
2659 |
/* function definition for C2DM */ |
/* macro definition for MAYBE-WT-C2DM-BIND-VL */ |
2660 |
|
|
2661 |
static void L22() |
static void L22() |
2662 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2663 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
2664 |
vs_reserve(VM20); |
vs_check; |
2665 |
|
vs_top=sup; |
2666 |
|
{object V412=base[0]->c.c_cdr; |
2667 |
|
base[2]= (V412->c.c_car); |
2668 |
|
V412=V412->c.c_cdr; |
2669 |
|
base[3]= (V412->c.c_car); |
2670 |
|
V412=V412->c.c_cdr; |
2671 |
|
base[4]= (V412->c.c_car); |
2672 |
|
V412=V412->c.c_cdr; |
2673 |
|
base[5]= (V412->c.c_car);} |
2674 |
|
V413= list(3,VV[78],base[2],base[3]); |
2675 |
|
base[6]= list(4,VV[75],VV[76],base[4],list(4,VV[75],VV[77],/* INLINE-ARGS */V413,list(4,VV[79],VV[80],VV[81],base[5]))); |
2676 |
|
vs_top=(vs_base=base+6)+1; |
2677 |
|
return; |
2678 |
|
} |
2679 |
|
/* function definition for C2DM */ |
2680 |
|
|
2681 |
|
static void L23() |
2682 |
|
{register object *base=vs_base; |
2683 |
|
register object *sup=base+VM21; VC21 |
2684 |
|
vs_check; |
2685 |
{register object V414; |
{register object V414; |
2686 |
register object V415; |
register object V415; |
2687 |
object V416; |
object V416; |
2688 |
object V417; |
object V417; |
|
check_arg(4); |
|
2689 |
V414=(base[0]); |
V414=(base[0]); |
2690 |
V415=(base[1]); |
V415=(base[1]); |
2691 |
V416=(base[2]); |
V416=(base[2]); |
2694 |
goto TTL; |
goto TTL; |
2695 |
TTL:; |
TTL:; |
2696 |
{object V418; |
{object V418; |
2697 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
(VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1)); |
2698 |
V418= symbol_value(VV[54]); |
V418= (VV[54]->s.s_dbind); |
2699 |
if((symbol_value(VV[55]))!=Cnil){ |
if(((VV[55]->s.s_dbind))!=Cnil){ |
2700 |
|
goto T1603;} |
2701 |
|
if(((VV[56]->s.s_dbind))==Cnil){ |
2702 |
goto T1602;} |
goto T1602;} |
2703 |
if((symbol_value(VV[56]))==Cnil){ |
goto T1603; |
2704 |
goto T1601;} |
T1603:; |
2705 |
|
princ_str("\n check_arg(2);",VV[10]); |
2706 |
goto T1602; |
goto T1602; |
2707 |
T1602:; |
T1602:; |
|
princ_str("\n check_arg(2);",VV[10]); |
|
|
goto T1601; |
|
|
T1601:; |
|
2708 |
if(((V414))==Cnil){ |
if(((V414))==Cnil){ |
2709 |
goto T1609;} |
goto T1610;} |
2710 |
V419= (*(LnkLI102))(); |
V419= (*(LnkLI112))(); |
2711 |
(void)(structure_set((V414),VV[6],2,/* INLINE-ARGS */V419)); |
V420= Ct; |
2712 |
goto T1607; |
STSET(object,(V414),8, /* INLINE-ARGS */V419); |
2713 |
goto T1609; |
(void)(/* INLINE-ARGS */V419); |
2714 |
T1609:; |
goto T1608; |
2715 |
(void)((*(LnkLI102))()); |
goto T1610; |
2716 |
goto T1607; |
T1610:; |
2717 |
T1607:; |
(void)((*(LnkLI112))()); |
2718 |
|
goto T1608; |
2719 |
|
T1608:; |
2720 |
if(((V415))==Cnil){ |
if(((V415))==Cnil){ |
2721 |
goto T1613;} |
goto T1614;} |
2722 |
V420= (*(LnkLI102))(); |
V421= (*(LnkLI112))(); |
2723 |
(void)(structure_set((V415),VV[6],2,/* INLINE-ARGS */V420)); |
V422= Ct; |
2724 |
goto T1611; |
STSET(object,(V415),8, /* INLINE-ARGS */V421); |
2725 |
goto T1613; |
(void)(/* INLINE-ARGS */V421); |
2726 |
T1613:; |
goto T1612; |
2727 |
(void)((*(LnkLI102))()); |
goto T1614; |
2728 |
goto T1611; |
T1614:; |
2729 |
T1611:; |
(void)((*(LnkLI112))()); |
2730 |
(void)((*(LnkLI114))((V416))); |
goto T1612; |
2731 |
|
T1612:; |
2732 |
|
(void)((*(LnkLI124))((V416))); |
2733 |
princ_str("\n vs_top=sup;",VV[10]); |
princ_str("\n vs_top=sup;",VV[10]); |
2734 |
if(((V414))==Cnil){ |
if(((V414))==Cnil){ |
2735 |
goto T1618;} |
goto T1619;} |
2736 |
(void)((*(LnkLI103))((V414))); |
(void)((*(LnkLI113))((V414))); |
2737 |
goto T1618; |
goto T1619; |
2738 |
T1618:; |
T1619:; |
2739 |
if(((V415))==Cnil){ |
if(((V415))==Cnil){ |
2740 |
goto T1621;} |
goto T1622;} |
2741 |
(void)((*(LnkLI103))((V415))); |
(void)((*(LnkLI113))((V415))); |
2742 |
goto T1621; |
goto T1622; |
2743 |
T1621:; |
T1622:; |
2744 |
|
{object V423; |
2745 |
|
base[5]= (VV[10]->s.s_dbind); |
2746 |
|
vs_top=(vs_base=base+5)+1; |
2747 |
|
Lfile_position(); |
2748 |
|
vs_top=sup; |
2749 |
|
V423= vs_base[0]; |
2750 |
princ_str("\n {object V",VV[10]); |
princ_str("\n {object V",VV[10]); |
2751 |
(void)((*(LnkLI80))((V418))); |
(void)((*(LnkLI90))((V418))); |
2752 |
princ_str("=base[0]->c.c_cdr;",VV[10]); |
princ_str("=base[0]->c.c_cdr;",VV[10]); |
2753 |
(void)((*(LnkLI115))((V416),(V418))); |
{object V424; |
2754 |
princ_char(125,VV[10]); |
base[5]= (VV[10]->s.s_dbind); |
2755 |
|
vs_top=(vs_base=base+5)+1; |
2756 |
|
Lfile_position(); |
2757 |
|
vs_top=sup; |
2758 |
|
V424= vs_base[0]; |
2759 |
|
base[5]= (V416); |
2760 |
|
base[6]= (V418); |
2761 |
|
vs_top=(vs_base=base+5)+2; |
2762 |
|
(void) (*Lnk78)(); |
2763 |
|
vs_top=sup; |
2764 |
|
base[5]= (VV[10]->s.s_dbind); |
2765 |
|
vs_top=(vs_base=base+5)+1; |
2766 |
|
Lfile_position(); |
2767 |
|
vs_top=sup; |
2768 |
|
V425= vs_base[0]; |
2769 |
|
if(!(eql((V424),V425))){ |
2770 |
|
goto T1638;} |
2771 |
|
base[5]= (VV[10]->s.s_dbind); |
2772 |
|
base[6]= (V423); |
2773 |
|
vs_top=(vs_base=base+5)+2; |
2774 |
|
Lfile_position(); |
2775 |
|
vs_top=sup; |
2776 |
|
goto T1625; |
2777 |
|
goto T1638; |
2778 |
|
T1638:; |
2779 |
|
princ_char(125,VV[10]);}} |
2780 |
|
goto T1625; |
2781 |
|
T1625:; |
2782 |
base[5]= (V417); |
base[5]= (V417); |
2783 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2784 |
(void) (*Lnk107)(); |
(void) (*Lnk117)(); |
2785 |
return;} |
return;} |
2786 |
} |
} |
2787 |
} |
} |
2788 |
/* local entry for function C2DM-RESERVE-VL */ |
/* local entry for function C2DM-RESERVE-VL */ |
2789 |
|
|
2790 |
static object LI23(V422) |
static object LI24(V427) |
2791 |
|
|
2792 |
object V422; |
object V427; |
2793 |
{ VMB21 VMS21 VMV21 |
{ VMB22 VMS22 VMV22 |
2794 |
goto TTL; |
goto TTL; |
2795 |
TTL:; |
TTL:; |
2796 |
{register object V423; |
{register object V428; |
2797 |
object V424; |
object V429; |
2798 |
V423= car((V422)); |
V428= CMPcar((V427)); |
2799 |
V424= car((V423)); |
V429= CMPcar((V428)); |
2800 |
goto T1636; |
goto T1650; |
2801 |
T1636:; |
T1650:; |
2802 |
if(!(endp_prop((V423)))){ |
if(!(((V428))==Cnil)){ |
2803 |
goto T1637;} |
goto T1651;} |
2804 |
goto T1632; |
goto T1646; |
|
goto T1637; |
|
|
T1637:; |
|
|
(void)((*(LnkLI116))((V424))); |
|
|
V423= cdr((V423)); |
|
|
V424= car((V423)); |
|
|
goto T1636;} |
|
|
goto T1632; |
|
|
T1632:; |
|
|
{register object V425; |
|
|
register object V426; |
|
|
V425= cadr((V422)); |
|
|
V426= car((V425)); |
|
2805 |
goto T1651; |
goto T1651; |
2806 |
T1651:; |
T1651:; |
2807 |
if(!(endp_prop((V425)))){ |
(void)((*(LnkLI125))((V429))); |
2808 |
goto T1652;} |
V428= CMPcdr((V428)); |
2809 |
goto T1647; |
V429= CMPcar((V428)); |
2810 |
goto T1652; |
goto T1650;} |
2811 |
T1652:; |
goto T1646; |
2812 |
(void)((*(LnkLI116))(car((V426)))); |
T1646:; |
2813 |
if((caddr((V426)))==Cnil){ |
{register object V430; |
2814 |
goto T1657;} |
register object V431; |
2815 |
(void)((*(LnkLI116))(caddr((V426)))); |
V430= CMPcadr((V427)); |
2816 |
goto T1657; |
V431= CMPcar((V430)); |
|
T1657:; |
|
|
V425= cdr((V425)); |
|
|
V426= car((V425)); |
|
|
goto T1651;} |
|
|
goto T1647; |
|
|
T1647:; |
|
|
if((caddr((V422)))==Cnil){ |
|
|
goto T1665;} |
|
|
(void)((*(LnkLI116))(caddr((V422)))); |
|
2817 |
goto T1665; |
goto T1665; |
2818 |
T1665:; |
T1665:; |
2819 |
{register object V427; |
if(!(((V430))==Cnil)){ |
2820 |
register object V428; |
goto T1666;} |
2821 |
V427= car(cddddr((V422))); |
goto T1661; |
2822 |
V428= car((V427)); |
goto T1666; |
2823 |
goto T1672; |
T1666:; |
2824 |
T1672:; |
(void)((*(LnkLI125))(CMPcar((V431)))); |
2825 |
if(!(endp_prop((V427)))){ |
if((CMPcaddr((V431)))==Cnil){ |
2826 |
goto T1673;} |
goto T1671;} |
2827 |
goto T1668; |
(void)((*(LnkLI125))(CMPcaddr((V431)))); |
2828 |
goto T1673; |
goto T1671; |
2829 |
T1673:; |
T1671:; |
2830 |
(void)((*(LnkLI116))(cadr((V428)))); |
V430= CMPcdr((V430)); |
2831 |
if((cadddr((V428)))==Cnil){ |
V431= CMPcar((V430)); |
2832 |
goto T1678;} |
goto T1665;} |
2833 |
(void)((*(LnkLI116))(cadddr((V428)))); |
goto T1661; |
2834 |
goto T1678; |
T1661:; |
2835 |
T1678:; |
if((CMPcaddr((V427)))==Cnil){ |
2836 |
V427= cdr((V427)); |
goto T1679;} |
2837 |
V428= car((V427)); |
(void)((*(LnkLI125))(CMPcaddr((V427)))); |
2838 |
goto T1672;} |
goto T1679; |
2839 |
goto T1668; |
T1679:; |
2840 |
T1668:; |
{register object V432; |
2841 |
{register object V429; |
register object V433; |
2842 |
object V430; |
V432= CMPcar(CMPcddddr((V427))); |
2843 |
V429= caddr(cddddr((V422))); |
V433= CMPcar((V432)); |
2844 |
V430= car((V429)); |
goto T1686; |
2845 |
goto T1689; |
T1686:; |
2846 |
T1689:; |
if(!(((V432))==Cnil)){ |
2847 |
if(!(endp_prop((V429)))){ |
goto T1687;} |
2848 |
goto T1690;} |
goto T1682; |
2849 |
{object V431 = Cnil; |
goto T1687; |
2850 |
VMR21(V431)} |
T1687:; |
2851 |
goto T1690; |
(void)((*(LnkLI125))(CMPcadr((V433)))); |
2852 |
T1690:; |
if((CMPcadddr((V433)))==Cnil){ |
2853 |
(void)((*(LnkLI116))(car((V430)))); |
goto T1692;} |
2854 |
V429= cdr((V429)); |
(void)((*(LnkLI125))(CMPcadddr((V433)))); |
2855 |
V430= car((V429)); |
goto T1692; |
2856 |
goto T1689;} |
T1692:; |
2857 |
|
V432= CMPcdr((V432)); |
2858 |
|
V433= CMPcar((V432)); |
2859 |
|
goto T1686;} |
2860 |
|
goto T1682; |
2861 |
|
T1682:; |
2862 |
|
{register object V434; |
2863 |
|
object V435; |
2864 |
|
V434= CMPcaddr(CMPcddddr((V427))); |
2865 |
|
V435= CMPcar((V434)); |
2866 |
|
goto T1703; |
2867 |
|
T1703:; |
2868 |
|
if(!(((V434))==Cnil)){ |
2869 |
|
goto T1704;} |
2870 |
|
{object V436 = Cnil; |
2871 |
|
VMR22(V436)} |
2872 |
|
goto T1704; |
2873 |
|
T1704:; |
2874 |
|
(void)((*(LnkLI125))(CMPcar((V435)))); |
2875 |
|
V434= CMPcdr((V434)); |
2876 |
|
V435= CMPcar((V434)); |
2877 |
|
goto T1703;} |
2878 |
base[0]=base[0]; |
base[0]=base[0]; |
2879 |
return Cnil; |
return Cnil; |
2880 |
} |
} |
2881 |
/* local entry for function C2DM-RESERVE-V */ |
/* local entry for function C2DM-RESERVE-V */ |
2882 |
|
|
2883 |
static object LI24(V433) |
static object LI25(V438) |
2884 |
|
|
2885 |
object V433; |
object V438; |
2886 |
{ VMB22 VMS22 VMV22 |
{ VMB23 VMS23 VMV23 |
2887 |
goto TTL; |
goto TTL; |
2888 |
TTL:; |
TTL:; |
2889 |
if(!(type_of((V433))==t_cons)){ |
if(!(type_of((V438))==t_cons)){ |
2890 |
goto T1701;} |
goto T1715;} |
2891 |
{object V434 = (*(LnkLI114))((V433)); |
{object V439 = (*(LnkLI124))((V438)); |
2892 |
VMR22(V434)} |
VMR23(V439)} |
2893 |
goto T1701; |
goto T1715; |
2894 |
T1701:; |
T1715:; |
2895 |
V435= (*(LnkLI102))(); |
V440= (*(LnkLI112))(); |
2896 |
{object V436 = structure_set((V433),VV[6],2,/* INLINE-ARGS */V435); |
V441= Ct; |
2897 |
VMR22(V436)} |
STSET(object,(V438),8, /* INLINE-ARGS */V440); |
2898 |
|
{object V442 = /* INLINE-ARGS */V440; |
2899 |
|
VMR23(V442)} |
2900 |
return Cnil; |
return Cnil; |
2901 |
} |
} |
2902 |
/* local entry for function C2DM-BIND-VL */ |
/* macro definition for WT-OR-REPORT-REF */ |
2903 |
|
|
2904 |
static object LI25(V439,V440) |
static void L26() |
2905 |
|
{register object *base=vs_base; |
2906 |
|
register object *sup=base+VM24; VC24 |
2907 |
|
vs_check; |
2908 |
|
vs_top=sup; |
2909 |
|
{object V443=base[0]->c.c_cdr; |
2910 |
|
base[2]= V443;} |
2911 |
|
base[3]= list(3,VV[82],VV[83],make_cons(VV[84],base[2])); |
2912 |
|
vs_top=(vs_base=base+3)+1; |
2913 |
|
return; |
2914 |
|
} |
2915 |
|
/* function definition for C2DM-BIND-VL */ |
2916 |
|
|
2917 |
object V439;register object V440; |
static void L27() |
2918 |
{ VMB23 VMS23 VMV23 |
{register object *base=vs_base; |
2919 |
|
register object *sup=base+VM25; VC25 |
2920 |
|
vs_check; |
2921 |
bds_check; |
bds_check; |
2922 |
|
{object V444; |
2923 |
|
register object V445; |
2924 |
|
V444=(base[0]); |
2925 |
|
V445=(base[1]); |
2926 |
|
vs_top=sup; |
2927 |
goto TTL; |
goto TTL; |
2928 |
TTL:; |
TTL:; |
2929 |
{object V441; |
{object V446; |
|
object V442; |
|
|
object V443; |
|
|
object V444; |
|
|
object V445; |
|
|
object V446; |
|
2930 |
object V447; |
object V447; |
2931 |
V441= car((V439)); |
object V448; |
2932 |
V442= cadr((V439)); |
object V449; |
2933 |
V443= caddr((V439)); |
object V450; |
2934 |
V444= cadddr((V439)); |
object V451; |
2935 |
V445= car(cddddr((V439))); |
object V452; |
2936 |
V446= cadr(cddddr((V439))); |
V446= CMPcar((V444)); |
2937 |
V447= caddr(cddddr((V439))); |
V447= CMPcadr((V444)); |
2938 |
{register object V448; |
V448= CMPcaddr((V444)); |
2939 |
V448= (V441); |
V449= CMPcadddr((V444)); |
2940 |
goto T1712; |
V450= CMPcar(CMPcddddr((V444))); |
2941 |
T1712:; |
V451= CMPcadr(CMPcddddr((V444))); |
2942 |
if(!(endp_prop((V448)))){ |
V452= CMPcaddr(CMPcddddr((V444))); |
2943 |
goto T1713;} |
{register object V453; |
2944 |
goto T1710; |
V453= (V446); |
2945 |
goto T1713; |
goto T1726; |
2946 |
T1713:; |
T1726:; |
2947 |
if((symbol_value(VV[55]))!=Cnil){ |
if(!(((V453))==Cnil)){ |
|
goto T1718;} |
|
|
if((symbol_value(VV[56]))==Cnil){ |
|
|
goto T1717;} |
|
|
goto T1718; |
|
|
T1718:; |
|
|
princ_str("\n if(endp(V",VV[10]); |
|
|
(void)((*(LnkLI80))((V440))); |
|
|
princ_str("))invalid_macro_call();",VV[10]); |
|
|
goto T1717; |
|
|
T1717:; |
|
|
V449= car((V448)); |
|
|
V450= list(2,VV[75],(V440)); |
|
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V449,/* INLINE-ARGS */V450)); |
|
|
if((cdr((V448)))!=Cnil){ |
|
|
goto T1727;} |
|
|
if(((V442))!=Cnil){ |
|
|
goto T1727;} |
|
|
if(((V443))!=Cnil){ |
|
|
goto T1727;} |
|
|
if(((V444))!=Cnil){ |
|
|
goto T1727;} |
|
|
if((symbol_value(VV[55]))!=Cnil){ |
|
2948 |
goto T1727;} |
goto T1727;} |
2949 |
if((symbol_value(VV[56]))==Cnil){ |
goto T1724; |
|
goto T1726;} |
|
2950 |
goto T1727; |
goto T1727; |
2951 |
T1727:; |
T1727:; |
2952 |
|
if(((VV[55]->s.s_dbind))!=Cnil){ |
2953 |
|
goto T1732;} |
2954 |
|
if(((VV[56]->s.s_dbind))==Cnil){ |
2955 |
|
goto T1731;} |
2956 |
|
goto T1732; |
2957 |
|
T1732:; |
2958 |
|
princ_str("\n if(endp(V",VV[10]); |
2959 |
|
(void)((*(LnkLI90))((V445))); |
2960 |
|
princ_str("))invalid_macro_call();",VV[10]); |
2961 |
|
goto T1731; |
2962 |
|
T1731:; |
2963 |
|
V454= CMPcar((V453)); |
2964 |
|
V455= list(2,VV[85],(V445)); |
2965 |
|
(void)((*(LnkLI126))(/* INLINE-ARGS */V454,/* INLINE-ARGS */V455)); |
2966 |
|
if((CMPcdr((V453)))!=Cnil){ |
2967 |
|
goto T1741;} |
2968 |
|
if(((V447))!=Cnil){ |
2969 |
|
goto T1741;} |
2970 |
|
if(((V448))!=Cnil){ |
2971 |
|
goto T1741;} |
2972 |
|
if(((V449))!=Cnil){ |
2973 |
|
goto T1741;} |
2974 |
|
if(((VV[55]->s.s_dbind))!=Cnil){ |
2975 |
|
goto T1741;} |
2976 |
|
if(((VV[56]->s.s_dbind))==Cnil){ |
2977 |
|
goto T1740;} |
2978 |
|
goto T1741; |
2979 |
|
T1741:; |
2980 |
princ_str("\n V",VV[10]); |
princ_str("\n V",VV[10]); |
2981 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI90))((V445))); |
2982 |
princ_str("=V",VV[10]); |
princ_str("=V",VV[10]); |
2983 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI90))((V445))); |
2984 |
princ_str("->c.c_cdr;",VV[10]); |
princ_str("->c.c_cdr;",VV[10]); |
2985 |
goto T1726; |
goto T1740; |
2986 |
T1726:; |
T1740:; |
2987 |
V448= cdr((V448)); |
V453= CMPcdr((V453)); |
2988 |
goto T1712;} |
goto T1726;} |
2989 |
goto T1710; |
goto T1724; |
2990 |
T1710:; |
T1724:; |
2991 |
{register object V451; |
{register object V456; |
2992 |
V451= (V442); |
V456= (V447); |
2993 |
goto T1749; |
goto T1763; |
2994 |
T1749:; |
T1763:; |
2995 |
if(!(endp_prop((V451)))){ |
if(!(((V456))==Cnil)){ |
2996 |
goto T1750;} |
goto T1764;} |
2997 |
goto T1747; |
goto T1761; |
2998 |
goto T1750; |
goto T1764; |
2999 |
T1750:; |
T1764:; |
3000 |
{register object V452; |
{register object V457; |
3001 |
V452= car((V451)); |
V457= CMPcar((V456)); |
3002 |
princ_str("\n if(endp(V",VV[10]); |
princ_str("\n if(endp(V",VV[10]); |
3003 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI90))((V445))); |
3004 |
princ_str(")){",VV[10]); |
princ_str(")){",VV[10]); |
3005 |
bds_bind(VV[24],symbol_value(VV[24])); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
3006 |
bds_bind(VV[52],symbol_value(VV[52])); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
3007 |
bds_bind(VV[25],symbol_value(VV[25])); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
3008 |
(void)((*(LnkLI118))(car((V452)),cadr((V452)))); |
(void)((*(LnkLI127))(CMPcar((V457)),CMPcadr((V457)))); |
3009 |
if((caddr((V452)))==Cnil){ |
if((CMPcaddr((V457)))==Cnil){ |
3010 |
bds_unwind1; |
bds_unwind1; |
3011 |
bds_unwind1; |
bds_unwind1; |
3012 |
bds_unwind1; |
bds_unwind1; |
3013 |
goto T1760;} |
goto T1774;} |
3014 |
V453= (*(LnkLI117))(caddr((V452)),Cnil); |
V458= (*(LnkLI126))(CMPcaddr((V457)),Cnil); |
3015 |
bds_unwind1; |
bds_unwind1; |
3016 |
bds_unwind1; |
bds_unwind1; |
3017 |
bds_unwind1; |
bds_unwind1; |
3018 |
goto T1760; |
goto T1774; |
3019 |
T1760:; |
T1774:; |
3020 |
princ_str("\n } else {",VV[10]); |
princ_str("\n } else {",VV[10]); |
3021 |
V454= car((V452)); |
V459= CMPcar((V457)); |
3022 |
V455= list(2,VV[75],(V440)); |
V460= list(2,VV[85],(V445)); |
3023 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V454,/* INLINE-ARGS */V455)); |
(void)((*(LnkLI126))(/* INLINE-ARGS */V459,/* INLINE-ARGS */V460)); |
3024 |
if((caddr((V452)))==Cnil){ |
if((CMPcaddr((V457)))==Cnil){ |
3025 |
goto T1754;} |
goto T1768;} |
3026 |
(void)((*(LnkLI117))(caddr((V452)),Ct));} |
(void)((*(LnkLI126))(CMPcaddr((V457)),Ct));} |
3027 |
goto T1754; |
goto T1768; |
3028 |
T1754:; |
T1768:; |
3029 |
if((cdr((V451)))!=Cnil){ |
if((CMPcdr((V456)))!=Cnil){ |
3030 |
goto T1770;} |
goto T1784;} |
3031 |
if(((V443))!=Cnil){ |
if(((V448))!=Cnil){ |
3032 |
goto T1770;} |
goto T1784;} |
3033 |
if(((V444))!=Cnil){ |
if(((V449))!=Cnil){ |
3034 |
goto T1770;} |
goto T1784;} |
3035 |
if((symbol_value(VV[55]))!=Cnil){ |
if(((VV[55]->s.s_dbind))!=Cnil){ |
3036 |
goto T1770;} |
goto T1784;} |
3037 |
if((symbol_value(VV[56]))==Cnil){ |
if(((VV[56]->s.s_dbind))==Cnil){ |
3038 |
goto T1769;} |
goto T1783;} |
3039 |
goto T1770; |
goto T1784; |
3040 |
T1770:; |
T1784:; |
3041 |
princ_str("\n V",VV[10]); |
princ_str("\n V",VV[10]); |
3042 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI90))((V445))); |
3043 |
princ_str("=V",VV[10]); |
princ_str("=V",VV[10]); |
3044 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI90))((V445))); |
3045 |
princ_str("->c.c_cdr;",VV[10]); |
princ_str("->c.c_cdr;",VV[10]); |
3046 |
goto T1769; |
goto T1783; |
3047 |
T1769:; |
T1783:; |
3048 |
princ_char(125,VV[10]); |
princ_str("\n }",VV[10]); |
3049 |
V451= cdr((V451)); |
V456= CMPcdr((V456)); |
3050 |
goto T1749;} |
goto T1763;} |
3051 |
goto T1747; |
goto T1761; |
3052 |
T1747:; |
T1761:; |
3053 |
if(((V443))==Cnil){ |
if(((V448))==Cnil){ |
3054 |
goto T1790;} |
goto T1804;} |
3055 |
V456= list(2,VV[76],(V440)); |
V461= list(2,VV[86],(V445)); |
3056 |
(void)((*(LnkLI117))((V443),/* INLINE-ARGS */V456)); |
(void)((*(LnkLI126))((V448),/* INLINE-ARGS */V461)); |
3057 |
goto T1790; |
goto T1804; |
3058 |
T1790:; |
T1804:; |
3059 |
{object V457; |
{object V462; |
3060 |
register object V458; |
register object V463; |
3061 |
V457= (V445); |
V462= (V450); |
3062 |
V458= car((V457)); |
V463= CMPcar((V462)); |
3063 |
goto T1797; |
goto T1811; |
3064 |
T1797:; |
T1811:; |
3065 |
if(!(endp_prop((V457)))){ |
if(!(((V462))==Cnil)){ |
3066 |
goto T1798;} |
goto T1812;} |
3067 |
goto T1793; |
goto T1807; |
3068 |
goto T1798; |
goto T1812; |
3069 |
T1798:; |
T1812:; |
3070 |
{object V459; |
{object V464; |
3071 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
(VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1)); |
3072 |
V459= symbol_value(VV[54]); |
V464= (VV[54]->s.s_dbind); |
3073 |
princ_str("\n {object V",VV[10]); |
princ_str("\n {object V",VV[10]); |
3074 |
(void)((*(LnkLI80))((V459))); |
(void)((*(LnkLI90))((V464))); |
3075 |
princ_str("=getf(V",VV[10]); |
princ_str("=getf(V",VV[10]); |
3076 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI90))((V445))); |
3077 |
princ_str(",VV[",VV[10]); |
princ_str(",VV[",VV[10]); |
3078 |
V460= (*(LnkLI108))(car((V458))); |
V465= (*(LnkLI118))(CMPcar((V463))); |
3079 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V460)); |
(void)((*(LnkLI90))(/* INLINE-ARGS */V465)); |
3080 |
princ_str("],OBJNULL);",VV[10]); |
princ_str("],OBJNULL);",VV[10]); |
3081 |
princ_str("\n if(V",VV[10]); |
princ_str("\n if(V",VV[10]); |
3082 |
(void)((*(LnkLI80))((V459))); |
(void)((*(LnkLI90))((V464))); |
3083 |
princ_str("==OBJNULL){",VV[10]); |
princ_str("==OBJNULL){",VV[10]); |
3084 |
bds_bind(VV[24],symbol_value(VV[24])); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
3085 |
bds_bind(VV[52],symbol_value(VV[52])); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
3086 |
bds_bind(VV[25],symbol_value(VV[25])); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
3087 |
(void)((*(LnkLI118))(cadr((V458)),caddr((V458)))); |
(void)((*(LnkLI127))(CMPcadr((V463)),CMPcaddr((V463)))); |
3088 |
if((cadddr((V458)))==Cnil){ |
if((CMPcadddr((V463)))==Cnil){ |
3089 |
goto T1819;} |
goto T1833;} |
3090 |
(void)((*(LnkLI117))(cadddr((V458)),Cnil)); |
(void)((*(LnkLI126))(CMPcadddr((V463)),Cnil)); |
3091 |
goto T1819; |
goto T1833; |
3092 |
T1819:; |
T1833:; |
3093 |
princ_str("\n } else {",VV[10]); |
princ_str("\n } else {",VV[10]); |
3094 |
bds_unwind1; |
bds_unwind1; |
3095 |
bds_unwind1; |
bds_unwind1; |
3096 |
bds_unwind1; |
bds_unwind1; |
3097 |
V461= cadr((V458)); |
V466= CMPcadr((V463)); |
3098 |
V462= list(2,VV[76],(V459)); |
V467= list(2,VV[86],(V464)); |
3099 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V461,/* INLINE-ARGS */V462)); |
(void)((*(LnkLI126))(/* INLINE-ARGS */V466,/* INLINE-ARGS */V467)); |
3100 |
if((cadddr((V458)))==Cnil){ |
if((CMPcadddr((V463)))==Cnil){ |
3101 |
goto T1824;} |
goto T1838;} |
3102 |
(void)((*(LnkLI117))(cadddr((V458)),Ct)); |
(void)((*(LnkLI126))(CMPcadddr((V463)),Ct)); |
3103 |
goto T1824; |
goto T1838; |
3104 |
T1824:; |
T1838:; |
3105 |
princ_str("}}",VV[10]);} |
princ_str("\n }}",VV[10]);} |
3106 |
V457= cdr((V457)); |
V462= CMPcdr((V462)); |
3107 |
V458= car((V457)); |
V463= CMPcar((V462)); |
3108 |
goto T1797;} |
goto T1811;} |
3109 |
goto T1793; |
goto T1807; |
3110 |
T1793:; |
T1807:; |
3111 |
if((symbol_value(VV[55]))!=Cnil){ |
if(((VV[55]->s.s_dbind))!=Cnil){ |
3112 |
goto T1835;} |
goto T1849;} |
3113 |
if((symbol_value(VV[56]))==Cnil){ |
if(((VV[56]->s.s_dbind))==Cnil){ |
3114 |
goto T1833;} |
goto T1847;} |
3115 |
goto T1835; |
goto T1849; |
3116 |
T1835:; |
T1849:; |
3117 |
if(((V443))!=Cnil){ |
if(((V448))!=Cnil){ |
3118 |
goto T1833;} |
goto T1847;} |
3119 |
if(((V444))!=Cnil){ |
if(((V449))!=Cnil){ |
3120 |
goto T1833;} |
goto T1847;} |
3121 |
princ_str("\n if(!endp(V",VV[10]); |
princ_str("\n if(!endp(V",VV[10]); |
3122 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI90))((V445))); |
3123 |
princ_str("))invalid_macro_call();",VV[10]); |
princ_str("))invalid_macro_call();",VV[10]); |
|
goto T1833; |
|
|
T1833:; |
|
|
if((symbol_value(VV[55]))!=Cnil){ |
|
|
goto T1847;} |
|
|
if((symbol_value(VV[56]))==Cnil){ |
|
|
goto T1845;} |
|
3124 |
goto T1847; |
goto T1847; |
3125 |
T1847:; |
T1847:; |
3126 |
if(((V444))==Cnil){ |
if(((VV[55]->s.s_dbind))!=Cnil){ |
3127 |
goto T1845;} |
goto T1861;} |
3128 |
if(((V446))!=Cnil){ |
if(((VV[56]->s.s_dbind))==Cnil){ |
3129 |
goto T1845;} |
goto T1859;} |
3130 |
|
goto T1861; |
3131 |
|
T1861:; |
3132 |
|
if(((V449))==Cnil){ |
3133 |
|
goto T1859;} |
3134 |
|
if(((V451))!=Cnil){ |
3135 |
|
goto T1859;} |
3136 |
princ_str("\n check_other_key(V",VV[10]); |
princ_str("\n check_other_key(V",VV[10]); |
3137 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI90))((V445))); |
3138 |
princ_char(44,VV[10]); |
princ_char(44,VV[10]); |
3139 |
V463 = make_fixnum((long)length((V445))); |
V468 = CMPmake_fixnum((long)length((V450))); |
3140 |
(void)((*(LnkLI80))(V463)); |
(void)((*(LnkLI90))(V468)); |
3141 |
{object V464; |
{object V469; |
3142 |
object V465; |
object V470; |
3143 |
V464= (V445); |
V469= (V450); |
3144 |
V465= car((V464)); |
V470= CMPcar((V469)); |
3145 |
goto T1863; |
goto T1877; |
3146 |
T1863:; |
T1877:; |
3147 |
if(!(endp_prop((V464)))){ |
if(!(((V469))==Cnil)){ |
3148 |
goto T1864;} |
goto T1878;} |
3149 |
goto T1859; |
goto T1873; |
3150 |
goto T1864; |
goto T1878; |
3151 |
T1864:; |
T1878:; |
3152 |
princ_str(",VV[",VV[10]); |
princ_str("\n ,VV[",VV[10]); |
3153 |
V466= (*(LnkLI108))(car((V465))); |
V471= (*(LnkLI118))(CMPcar((V470))); |
3154 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V466)); |
(void)((*(LnkLI90))(/* INLINE-ARGS */V471)); |
3155 |
princ_char(93,VV[10]); |
princ_char(93,VV[10]); |
3156 |
V464= cdr((V464)); |
V469= CMPcdr((V469)); |
3157 |
V465= car((V464)); |
V470= CMPcar((V469)); |
3158 |
goto T1863;} |
goto T1877;} |
3159 |
|
goto T1873; |
3160 |
|
T1873:; |
3161 |
|
princ_str("\n );",VV[10]); |
3162 |
goto T1859; |
goto T1859; |
3163 |
T1859:; |
T1859:; |
3164 |
princ_str(");",VV[10]); |
{object V472; |
3165 |
goto T1845; |
object V473; |
3166 |
T1845:; |
V472= (V452); |
3167 |
{object V467; |
V473= CMPcar((V472)); |
3168 |
object V468; |
goto T1895; |
3169 |
V467= (V447); |
T1895:; |
3170 |
V468= car((V467)); |
if(!(((V472))==Cnil)){ |
3171 |
goto T1881; |
goto T1896;} |
3172 |
T1881:; |
base[10]= Cnil; |
3173 |
if(!(endp_prop((V467)))){ |
vs_top=(vs_base=base+10)+1; |
3174 |
goto T1882;} |
return; |
3175 |
{object V469 = Cnil; |
goto T1896; |
3176 |
VMR23(V469)} |
T1896:; |
3177 |
goto T1882; |
(void)((*(LnkLI127))(CMPcar((V473)),CMPcadr((V473)))); |
3178 |
T1882:; |
V472= CMPcdr((V472)); |
3179 |
(void)((*(LnkLI118))(car((V468)),cadr((V468)))); |
V473= CMPcar((V472)); |
3180 |
V467= cdr((V467)); |
goto T1895;}} |
3181 |
V468= car((V467)); |
} |
|
goto T1881;}} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
3182 |
} |
} |
3183 |
/* local entry for function C2DM-BIND-LOC */ |
/* local entry for function C2DM-BIND-LOC */ |
3184 |
|
|
3185 |
static object LI26(V472,V473) |
static object LI28(V476,V477) |
3186 |
|
|
3187 |
object V472;object V473; |
object V476;object V477; |
3188 |
{ VMB24 VMS24 VMV24 |
{ VMB26 VMS26 VMV26 |
3189 |
goto TTL; |
goto TTL; |
3190 |
TTL:; |
TTL:; |
3191 |
if(!(type_of((V472))==t_cons)){ |
if(!(type_of((V476))==t_cons)){ |
3192 |
goto T1893;} |
goto T1907;} |
3193 |
{object V474; |
{object V478; |
3194 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
(VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1)); |
3195 |
V474= symbol_value(VV[54]); |
V478= (VV[54]->s.s_dbind); |
3196 |
|
{object V479; |
3197 |
|
base[0]= (VV[10]->s.s_dbind); |
3198 |
|
vs_top=(vs_base=base+0)+1; |
3199 |
|
Lfile_position(); |
3200 |
|
vs_top=sup; |
3201 |
|
V479= vs_base[0]; |
3202 |
princ_str("\n {object V",VV[10]); |
princ_str("\n {object V",VV[10]); |
3203 |
(void)((*(LnkLI80))((V474))); |
(void)((*(LnkLI90))((V478))); |
3204 |
princ_str("= ",VV[10]); |
princ_str("= ",VV[10]); |
3205 |
(void)((*(LnkLI80))((V473))); |
(void)((*(LnkLI90))((V477))); |
3206 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
3207 |
(void)((*(LnkLI115))((V472),(V474))); |
{object V480; |
3208 |
|
base[0]= (VV[10]->s.s_dbind); |
3209 |
|
vs_top=(vs_base=base+0)+1; |
3210 |
|
Lfile_position(); |
3211 |
|
vs_top=sup; |
3212 |
|
V480= vs_base[0]; |
3213 |
|
base[0]= (V476); |
3214 |
|
base[1]= (V478); |
3215 |
|
vs_top=(vs_base=base+0)+2; |
3216 |
|
(void) (*Lnk78)(); |
3217 |
|
vs_top=sup; |
3218 |
|
base[0]= (VV[10]->s.s_dbind); |
3219 |
|
vs_top=(vs_base=base+0)+1; |
3220 |
|
Lfile_position(); |
3221 |
|
vs_top=sup; |
3222 |
|
V481= vs_base[0]; |
3223 |
|
if(!(eql((V480),V481))){ |
3224 |
|
goto T1925;} |
3225 |
|
base[0]= (VV[10]->s.s_dbind); |
3226 |
|
base[1]= (V479); |
3227 |
|
vs_top=(vs_base=base+0)+2; |
3228 |
|
Lfile_position(); |
3229 |
|
vs_top=sup; |
3230 |
|
{object V482 = vs_base[0]; |
3231 |
|
VMR26(V482)} |
3232 |
|
goto T1925; |
3233 |
|
T1925:; |
3234 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
3235 |
{object V475 = Cnil; |
{object V483 = Cnil; |
3236 |
VMR24(V475)}} |
VMR26(V483)}}}} |
3237 |
goto T1893; |
goto T1907; |
3238 |
T1893:; |
T1907:; |
3239 |
{object V476 = (*(LnkLI105))((V472),(V473)); |
{object V484 = (*(LnkLI115))((V476),(V477)); |
3240 |
VMR24(V476)} |
VMR26(V484)} |
3241 |
|
base[0]=base[0]; |
3242 |
return Cnil; |
return Cnil; |
3243 |
} |
} |
3244 |
/* local entry for function C2DM-BIND-INIT */ |
/* local entry for function C2DM-BIND-INIT */ |
3245 |
|
|
3246 |
static object LI27(V479,V480) |
static object LI29(V487,V488) |
3247 |
|
|
3248 |
object V479;object V480; |
object V487;object V488; |
3249 |
{ VMB25 VMS25 VMV25 |
{ VMB27 VMS27 VMV27 |
3250 |
bds_check; |
bds_check; |
3251 |
goto TTL; |
goto TTL; |
3252 |
TTL:; |
TTL:; |
3253 |
if(!(type_of((V479))==t_cons)){ |
if(!(type_of((V487))==t_cons)){ |
3254 |
goto T1906;} |
goto T1933;} |
3255 |
{object V481; |
{object V489; |
3256 |
object V482; |
object V490; |
3257 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],(VV[53]->s.s_dbind)); |
3258 |
bds_bind(VV[77],small_fixnum(0)); |
bds_bind(VV[87],small_fixnum(0)); |
3259 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
(VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1)); |
3260 |
V481= symbol_value(VV[54]); |
V489= (VV[54]->s.s_dbind); |
3261 |
V483= make_cons((V480),Cnil); |
V491= make_cons((V488),Cnil); |
3262 |
V484= (VFUN_NARGS=2,(*(LnkLI119))(/* INLINE-ARGS */V483,VV[78])); |
V492= (VFUN_NARGS=2,(*(LnkLI128))(/* INLINE-ARGS */V491,VV[88])); |
3263 |
V482= car(/* INLINE-ARGS */V484); |
V490= CMPcar(/* INLINE-ARGS */V492); |
3264 |
|
{object V493; |
3265 |
|
base[4]= (VV[10]->s.s_dbind); |
3266 |
|
vs_top=(vs_base=base+4)+1; |
3267 |
|
Lfile_position(); |
3268 |
|
vs_top=sup; |
3269 |
|
V493= vs_base[0]; |
3270 |
princ_str("\n {object V",VV[10]); |
princ_str("\n {object V",VV[10]); |
3271 |
(void)((*(LnkLI80))((V481))); |
(void)((*(LnkLI90))((V489))); |
3272 |
princ_str("= ",VV[10]); |
princ_str("= ",VV[10]); |
3273 |
(void)((*(LnkLI80))((V482))); |
(void)((*(LnkLI90))((V490))); |
3274 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
3275 |
(void)((*(LnkLI115))((V479),(V481))); |
{object V494; |
3276 |
princ_char(125,VV[10]); |
base[4]= (VV[10]->s.s_dbind); |
3277 |
{object V485 = (*(LnkLI120))(); |
vs_top=(vs_base=base+4)+1; |
3278 |
|
Lfile_position(); |
3279 |
|
vs_top=sup; |
3280 |
|
V494= vs_base[0]; |
3281 |
|
base[4]= (V487); |
3282 |
|
base[5]= (V489); |
3283 |
|
vs_top=(vs_base=base+4)+2; |
3284 |
|
(void) (*Lnk78)(); |
3285 |
|
vs_top=sup; |
3286 |
|
base[4]= (VV[10]->s.s_dbind); |
3287 |
|
vs_top=(vs_base=base+4)+1; |
3288 |
|
Lfile_position(); |
3289 |
|
vs_top=sup; |
3290 |
|
V495= vs_base[0]; |
3291 |
|
if(!(eql((V494),V495))){ |
3292 |
|
goto T1953;} |
3293 |
|
base[4]= (VV[10]->s.s_dbind); |
3294 |
|
base[5]= (V493); |
3295 |
|
vs_top=(vs_base=base+4)+2; |
3296 |
|
Lfile_position(); |
3297 |
|
vs_top=sup; |
3298 |
|
goto T1938; |
3299 |
|
goto T1953; |
3300 |
|
T1953:; |
3301 |
|
princ_char(125,VV[10]);}} |
3302 |
|
goto T1938; |
3303 |
|
T1938:; |
3304 |
|
{object V496 = (*(LnkLI129))(); |
3305 |
bds_unwind1; |
bds_unwind1; |
3306 |
bds_unwind1; |
bds_unwind1; |
3307 |
VMR25(V485)}} |
VMR27(V496)}} |
3308 |
goto T1906; |
goto T1933; |
3309 |
T1906:; |
T1933:; |
3310 |
{object V486 = (*(LnkLI106))((V479),(V480)); |
{object V497 = (*(LnkLI116))((V487),(V488)); |
3311 |
VMR25(V486)} |
VMR27(V497)} |
3312 |
base[0]=base[0]; |
base[0]=base[0]; |
3313 |
return Cnil; |
return Cnil; |
3314 |
} |
} |
3317 |
static void L16(base0) |
static void L16(base0) |
3318 |
register object *base0; |
register object *base0; |
3319 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3320 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM28; VC28 |
3321 |
vs_reserve(VM26); |
vs_check; |
3322 |
{object V487; |
{object V498; |
3323 |
check_arg(1); |
V498=(base[0]); |
|
V487=(base[0]); |
|
3324 |
vs_top=sup; |
vs_top=sup; |
3325 |
goto TTL; |
goto TTL; |
3326 |
TTL:; |
TTL:; |
3327 |
{object V488; |
{object V499; |
3328 |
V488= (*(LnkLI121))((V487)); |
V499= (*(LnkLI130))((V498)); |
3329 |
if(((V488))==Cnil){ |
if(((V499))==Cnil){ |
3330 |
goto T1922;} |
goto T1962;} |
3331 |
{object V489; |
{object V500; |
3332 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
(VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1)); |
3333 |
V489= symbol_value(VV[54]); |
V500= (VV[54]->s.s_dbind); |
3334 |
(void)(structure_set((V487),VV[6],1,(V488))); |
V501= Ct; |
3335 |
(void)(structure_set((V487),VV[6],4,(V489))); |
STSET(object,(V498),4, (V499)); |
3336 |
|
(void)((V499)); |
3337 |
|
V502= Ct; |
3338 |
|
STSET(object,(V498),16, (V500)); |
3339 |
|
(void)((V500)); |
3340 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
3341 |
if((base0[9])!=Cnil){ |
if((base0[9])!=Cnil){ |
3342 |
goto T1929;} |
goto T1969;} |
3343 |
princ_char(123,VV[10]); |
princ_char(123,VV[10]); |
3344 |
base0[9]= Ct; |
base0[9]= Ct; |
3345 |
goto T1929; |
goto T1969; |
3346 |
T1929:; |
T1969:; |
3347 |
base[1]= (V487); |
base[1]= (*(LnkLI131))((V498)); |
3348 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
|
(void) (*Lnk122)(); |
|
3349 |
return;} |
return;} |
3350 |
goto T1922; |
goto T1962; |
3351 |
T1922:; |
T1962:; |
3352 |
base[1]= Cnil; |
base[1]= Cnil; |
3353 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3354 |
return;} |
return;} |
3359 |
static void L14(base0) |
static void L14(base0) |
3360 |
register object *base0; |
register object *base0; |
3361 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3362 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM29; VC29 |
3363 |
vs_reserve(VM27); |
vs_check; |
3364 |
{object V490; |
{object V503; |
3365 |
check_arg(1); |
V503=(base[0]); |
|
V490=(base[0]); |
|
3366 |
vs_top=sup; |
vs_top=sup; |
3367 |
goto TTL; |
goto TTL; |
3368 |
TTL:; |
TTL:; |
3369 |
{object V491; |
{object V504; |
3370 |
V491= (*(LnkLI121))((V490)); |
V504= (*(LnkLI130))((V503)); |
3371 |
if(((V491))==Cnil){ |
if(((V504))==Cnil){ |
3372 |
goto T1938;} |
goto T1977;} |
3373 |
{object V492; |
{object V505; |
3374 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
(VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1)); |
3375 |
V492= symbol_value(VV[54]); |
V505= (VV[54]->s.s_dbind); |
3376 |
(void)(structure_set((V490),VV[6],1,(V491))); |
V506= Ct; |
3377 |
(void)(structure_set((V490),VV[6],4,(V492))); |
STSET(object,(V503),4, (V504)); |
3378 |
|
(void)((V504)); |
3379 |
|
V507= Ct; |
3380 |
|
STSET(object,(V503),16, (V505)); |
3381 |
|
(void)((V505)); |
3382 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
3383 |
if((base0[7])!=Cnil){ |
if((base0[7])!=Cnil){ |
3384 |
goto T1945;} |
goto T1984;} |
3385 |
princ_char(123,VV[10]); |
princ_char(123,VV[10]); |
3386 |
base0[7]= Ct; |
base0[7]= Ct; |
3387 |
goto T1945; |
goto T1984; |
3388 |
T1945:; |
T1984:; |
3389 |
base[1]= (V490); |
base[1]= (*(LnkLI131))((V503)); |
3390 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
|
(void) (*Lnk122)(); |
|
3391 |
return;} |
return;} |
3392 |
goto T1938; |
goto T1977; |
3393 |
T1938:; |
T1977:; |
3394 |
base[1]= Cnil; |
base[1]= Cnil; |
3395 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3396 |
return;} |
return;} |
3397 |
} |
} |
3398 |
} |
} |
3399 |
static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* WT-VAR-DECL */ |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[131],(void **)(void *)&LnkLI131,1,first,ap);va_end(ap);return V1;} /* WT-VAR-DECL */ |
3400 |
static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
3401 |
static object LnkTLI120(){return call_proc0(VV[120],(void **)(void *)&LnkLI120);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI129(){return call_proc0(VV[129],(void **)(void *)&LnkLI129);} /* CLOSE-INLINE-BLOCKS */ |
3402 |
static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)(void *)&LnkLI119,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
static object LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)(void *)&LnkLI128,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
3403 |
static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-INIT */ |
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-INIT */ |
3404 |
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-LOC */ |
static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-LOC */ |
3405 |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-V */ |
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-V */ |
3406 |
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-VL */ |
static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* C2DM-BIND-VL */ |
3407 |
static object LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-VL */ |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-VL */ |
3408 |
static object LnkTLI113(){return call_proc0(VV[113],(void **)(void *)&LnkLI113);} /* C1NIL */ |
static object LnkTLI123(){return call_proc0(VV[123],(void **)(void *)&LnkLI123);} /* C1NIL */ |
3409 |
static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* C1DM-V */ |
static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* C1DM-V */ |
3410 |
static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* DM-BAD-KEY */ |
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* DM-BAD-KEY */ |
3411 |
static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* C1DM-VL */ |
static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* C1DM-VL */ |
3412 |
static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[119],(void **)(void *)&LnkLI119,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
3413 |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
3414 |
static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* C2EXPR */ |
static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* C2EXPR */ |
3415 |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
3416 |
static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
3417 |
static object LnkTLI104(){return call_proc0(VV[104],(void **)(void *)&LnkLI104);} /* RESET-TOP */ |
static object LnkTLI114(){return call_proc0(VV[114],(void **)(void *)&LnkLI114);} /* RESET-TOP */ |
3418 |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
3419 |
static object LnkTLI102(){return call_proc0(VV[102],(void **)(void *)&LnkLI102);} /* VS-PUSH */ |
static object LnkTLI112(){return call_proc0(VV[112],(void **)(void *)&LnkLI112);} /* VS-PUSH */ |
3420 |
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITHOUT-KEY */ |
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITHOUT-KEY */ |
3421 |
static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITH-KEY */ |
static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITH-KEY */ |
3422 |
static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,1,first,ap);va_end(ap);return V1;} /* RECORD-ARG-INFO */ |
static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* RECORD-ARG-INFO */ |
3423 |
static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,3,first,ap);va_end(ap);return V1;} /* FIX-DOWN-ARGS */ |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,3,first,ap);va_end(ap);return V1;} /* FIX-DOWN-ARGS */ |
3424 |
static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */ |
static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */ |
3425 |
static object LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */ |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */ |
3426 |
static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */ |
static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */ |
3427 |
static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[94],(void **)(void *)&LnkLI94,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */ |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */ |
3428 |
static object LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[93],(void **)(void *)&LnkLI93,first,ap);va_end(ap);return V1;} /* MAKE-VAR */ |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[103],(void **)(void *)&LnkLI103,first,ap);va_end(ap);return V1;} /* MAKE-VAR */ |
3429 |
static object LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[92],(void **)(void *)&LnkLI92,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */ |
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */ |
3430 |
static object LnkTLI91(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[91],(void **)(void *)&LnkLI91,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */ |
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */ |
3431 |
static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[90],(void **)(void *)&LnkLI90,1,first,ap);va_end(ap);return V1;} /* DEFAULT-INIT */ |
static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* DEFAULT-INIT */ |
3432 |
static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */ |
static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */ |
3433 |
static object LnkTLI88(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[88],(void **)(void *)&LnkLI88,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */ |
static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */ |
3434 |
static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* C1BODY */ |
static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* C1BODY */ |
3435 |
static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[86],(void **)(void *)&LnkLI86,first,ap);va_end(ap);return V1;} /* CMPERR */ |
static object LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[96],(void **)(void *)&LnkLI96,first,ap);va_end(ap);return V1;} /* CMPERR */ |
3436 |
static object LnkTLI85(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[85],(void **)(void *)&LnkLI85,first,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[95],(void **)(void *)&LnkLI95,first,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
3437 |
static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[84],(void **)(void *)&LnkLI84,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[94],(void **)(void *)&LnkLI94,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
3438 |
static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[83],(void **)(void *)&LnkLI83,first,ap);va_end(ap);return V1;} /* MAKE-FUN */ |
static object LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[93],(void **)(void *)&LnkLI93,first,ap);va_end(ap);return V1;} /* MAKE-FUN */ |
3439 |
static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)(void *)&LnkLI82,first,ap);va_end(ap);return V1;} /* DELETE */ |
static object LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[92],(void **)(void *)&LnkLI92,first,ap);va_end(ap);return V1;} /* DELETE */ |
3440 |
static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)(void *)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* WT-H1 */ |
static object LnkTLI91(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[91],(void **)(void *)&LnkLI91,1,first,ap);va_end(ap);return V1;} /* WT-H1 */ |
3441 |
static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[90],(void **)(void *)&LnkLI90,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
3442 |
static object LnkTLI79(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[79],(void **)(void *)&LnkLI79,1,first,ap);va_end(ap);return V1;} /* C1EXPR */ |
static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,1,first,ap);va_end(ap);return V1;} /* C1EXPR */ |
3443 |
|
|
3444 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3445 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |