10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
if(!(endp_prop((V2)))){ |
if(!(((V2))==Cnil)){ |
14 |
goto T1;} |
goto T1;} |
15 |
(void)((*(LnkLI45))(VV[0],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI45))(VV[0],small_fixnum(1),small_fixnum(0))); |
16 |
goto T1; |
goto T1; |
17 |
T1:; |
T1:; |
18 |
if(endp_prop(cdr((V2)))){ |
if((CMPcdr((V2)))==Cnil){ |
19 |
goto T4;} |
goto T4;} |
20 |
V3 = make_fixnum((long)length((V2))); |
V3 = CMPmake_fixnum((long)length((V2))); |
21 |
(void)((*(LnkLI46))(VV[0],small_fixnum(1),V3)); |
(void)((*(LnkLI46))(VV[0],small_fixnum(1),V3)); |
22 |
goto T4; |
goto T4; |
23 |
T4:; |
T4:; |
24 |
{object V4 = (*(LnkLI47))(car((V2)),Ct); |
{object V4 = (*(LnkLI47))(CMPcar((V2)),Ct); |
25 |
VMR1(V4)} |
VMR1(V4)} |
26 |
return Cnil; |
return Cnil; |
27 |
} |
} |
33 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
34 |
goto TTL; |
goto TTL; |
35 |
TTL:; |
TTL:; |
36 |
if(!(endp_prop((V6)))){ |
if(!(((V6))==Cnil)){ |
37 |
goto T7;} |
goto T7;} |
38 |
(void)((*(LnkLI45))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI45))(VV[1],small_fixnum(1),small_fixnum(0))); |
39 |
goto T7; |
goto T7; |
40 |
T7:; |
T7:; |
41 |
{register object V7; |
{register object V7; |
42 |
register object V8; |
register object V8; |
43 |
V7= car((V6)); |
V7= CMPcar((V6)); |
44 |
V8= car((V7)); |
V8= CMPcar((V7)); |
45 |
goto T13; |
goto T13; |
46 |
T13:; |
T13:; |
47 |
if(!(endp_prop((V7)))){ |
if(!(((V7))==Cnil)){ |
48 |
goto T14;} |
goto T14;} |
49 |
{object V9 = (*(LnkLI48))(); |
{object V9 = (*(LnkLI48))(); |
50 |
VMR2(V9)} |
VMR2(V9)} |
52 |
T14:; |
T14:; |
53 |
{object V10= (V8); |
{object V10= (V8); |
54 |
if((V10!= VV[49]))goto T19; |
if((V10!= VV[49]))goto T19; |
55 |
{object V11 = (*(LnkLI50))(cdr((V6))); |
{object V11 = (*(LnkLI50))(CMPcdr((V6))); |
56 |
VMR2(V11)} |
VMR2(V11)} |
57 |
goto T19; |
goto T19; |
58 |
T19:; |
T19:; |
64 |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[2],(V8))));} |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[2],(V8))));} |
65 |
goto T18; |
goto T18; |
66 |
T18:; |
T18:; |
67 |
V7= cdr((V7)); |
V7= CMPcdr((V7)); |
68 |
V8= car((V7)); |
V8= CMPcar((V7)); |
69 |
goto T13;} |
goto T13;} |
70 |
base[0]=base[0]; |
base[0]=base[0]; |
71 |
return Cnil; |
return Cnil; |
97 |
V18= Cnil; |
V18= Cnil; |
98 |
V19= Cnil; |
V19= Cnil; |
99 |
V20= Cnil; |
V20= Cnil; |
100 |
if(endp_prop((V17))){ |
if(((V17))==Cnil){ |
101 |
goto T30;} |
goto T30;} |
102 |
if(!(endp_prop(cdr((V17))))){ |
if(!((CMPcdr((V17)))==Cnil)){ |
103 |
goto T29;} |
goto T29;} |
104 |
goto T30; |
goto T30; |
105 |
T30:; |
T30:; |
106 |
V21 = make_fixnum((long)length((V17))); |
V21 = CMPmake_fixnum((long)length((V17))); |
107 |
(void)((*(LnkLI45))(VV[5],small_fixnum(2),V21)); |
(void)((*(LnkLI45))(VV[5],small_fixnum(2),V21)); |
108 |
goto T29; |
goto T29; |
109 |
T29:; |
T29:; |
110 |
if(endp_prop(cddr((V17)))){ |
if((CMPcddr((V17)))==Cnil){ |
111 |
goto T34;} |
goto T34;} |
112 |
V22 = make_fixnum((long)length((V17))); |
V22 = CMPmake_fixnum((long)length((V17))); |
113 |
(void)((*(LnkLI46))(VV[5],small_fixnum(2),V22)); |
(void)((*(LnkLI46))(VV[5],small_fixnum(2),V22)); |
114 |
goto T34; |
goto T34; |
115 |
T34:; |
T34:; |
116 |
V19= (*(LnkLI54))(cadr((V17))); |
V19= (*(LnkLI54))(CMPcadr((V17))); |
117 |
base[0]= cadr((V19)); |
base[0]= CMPcadr((V19)); |
118 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
119 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
120 |
vs_top=sup; |
vs_top=sup; |
121 |
V18= vs_base[0]; |
V18= vs_base[0]; |
122 |
V23= (*(LnkLI57))(car((V17))); |
V23= (*(LnkLI57))(CMPcar((V17))); |
123 |
V24= structure_ref((V18),VV[6],2); |
V20= (*(LnkLI56))(/* INLINE-ARGS */V23,STREF(object,(V18),8)); |
|
V20= (*(LnkLI56))(/* INLINE-ARGS */V23,/* INLINE-ARGS */V24); |
|
124 |
if(((V20))!=Cnil){ |
if(((V20))!=Cnil){ |
125 |
goto T44;} |
goto T44;} |
126 |
V25= make_cons(VV[5],(V17)); |
V24= make_cons(VV[5],(V17)); |
127 |
(void)((VFUN_NARGS=2,(*(LnkLI58))(VV[7],/* INLINE-ARGS */V25))); |
(void)((VFUN_NARGS=2,(*(LnkLI58))(VV[7],/* INLINE-ARGS */V24))); |
128 |
goto T44; |
goto T44; |
129 |
T44:; |
T44:; |
130 |
(void)(structure_set((V18),VV[6],2,(V20))); |
V25= Ct; |
131 |
{object V26 = listA(3,car((V19)),(V18),cddr((V19))); |
STSET(object,(V18),8, (V20)); |
132 |
|
(void)((V20)); |
133 |
|
{object V26 = listA(3,CMPcar((V19)),(V18),CMPcddr((V19))); |
134 |
VMR4(V26)}} |
VMR4(V26)}} |
135 |
base[0]=base[0]; |
base[0]=base[0]; |
136 |
return Cnil; |
return Cnil; |
147 |
register object V30; |
register object V30; |
148 |
V29= Cnil; |
V29= Cnil; |
149 |
V30= Cnil; |
V30= Cnil; |
150 |
if(!(endp_prop((V28)))){ |
if(!(((V28))==Cnil)){ |
151 |
goto T50;} |
goto T50;} |
152 |
(void)((*(LnkLI45))(VV[8],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI45))(VV[8],small_fixnum(1),small_fixnum(0))); |
153 |
goto T50; |
goto T50; |
154 |
T50:; |
T50:; |
155 |
{register object V31; |
{register object V31; |
156 |
register object V32; |
register object V32; |
157 |
V31= car((V28)); |
V31= CMPcar((V28)); |
158 |
V32= car((V31)); |
V32= CMPcar((V31)); |
159 |
goto T57; |
goto T57; |
160 |
T57:; |
T57:; |
161 |
if(!(endp_prop((V31)))){ |
if(!(((V31))==Cnil)){ |
162 |
goto T58;} |
goto T58;} |
163 |
goto T53; |
goto T53; |
164 |
goto T58; |
goto T58; |
165 |
T58:; |
T58:; |
166 |
if(!(type_of((V32))==t_cons)){ |
if(!(type_of((V32))==t_cons)){ |
167 |
goto T64;} |
goto T64;} |
168 |
if(!(type_of(car((V32)))==t_symbol)){ |
if(!(type_of(CMPcar((V32)))==t_symbol)){ |
169 |
goto T67;} |
goto T67;} |
170 |
if(endp_prop(cdr((V32)))){ |
if((CMPcdr((V32)))==Cnil){ |
171 |
goto T66;} |
goto T66;} |
172 |
if(endp_prop(cddr((V32)))){ |
if((CMPcddr((V32)))==Cnil){ |
173 |
goto T66;} |
goto T66;} |
174 |
goto T67; |
goto T67; |
175 |
T67:; |
T67:; |
177 |
goto T66; |
goto T66; |
178 |
T66:; |
T66:; |
179 |
{register object V33; |
{register object V33; |
180 |
V33= car((V32)); |
V33= CMPcar((V32)); |
181 |
V29= make_cons((V33),(V29));} |
V29= make_cons((V33),(V29));} |
182 |
{register object V34; |
{register object V34; |
183 |
if(!(endp_prop(cdr((V32))))){ |
if(!((CMPcdr((V32)))==Cnil)){ |
184 |
goto T78;} |
goto T78;} |
185 |
V34= Cnil; |
V34= Cnil; |
186 |
goto T76; |
goto T76; |
187 |
goto T78; |
goto T78; |
188 |
T78:; |
T78:; |
189 |
base[3]= cadr((V32)); |
base[3]= CMPcadr((V32)); |
190 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
191 |
Leval(); |
Leval(); |
192 |
vs_top=sup; |
vs_top=sup; |
211 |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32)))); |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32)))); |
212 |
goto T62; |
goto T62; |
213 |
T62:; |
T62:; |
214 |
V31= cdr((V31)); |
V31= CMPcdr((V31)); |
215 |
V32= car((V31)); |
V32= CMPcar((V31)); |
216 |
goto T57;} |
goto T57;} |
217 |
goto T53; |
goto T53; |
218 |
T53:; |
T53:; |
225 |
base[1]= (V30); |
base[1]= (V30); |
226 |
values= base[1]; |
values= base[1]; |
227 |
while(!endp(symbols)){ |
while(!endp(symbols)){ |
|
if(type_of(MMcar(symbols))!=t_symbol) |
|
|
FEinvalid_variable("~s is not a symbol.",MMcar(symbols)); |
|
228 |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
229 |
else{bds_bind(MMcar(symbols),MMcar(values)); |
else{bds_bind(MMcar(symbols),MMcar(values)); |
230 |
values=MMcdr(values);} |
values=MMcdr(values);} |
231 |
symbols=MMcdr(symbols);} |
symbols=MMcdr(symbols);} |
232 |
V38= (*(LnkLI50))(cdr((V28))); |
V38= (*(LnkLI50))(CMPcdr((V28))); |
233 |
bds_unwind(V37); |
bds_unwind(V37); |
234 |
V28= V38;} |
V28= V38;} |
235 |
{object V39 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28)); |
{object V39 = list(5,VV[8],CMPcadr((V28)),(V29),(V30),(V28)); |
236 |
VMR5(V39)}} |
VMR5(V39)}} |
237 |
base[0]=base[0]; |
base[0]=base[0]; |
238 |
return Cnil; |
return Cnil; |
242 |
static void L6() |
static void L6() |
243 |
{register object *base=vs_base; |
{register object *base=vs_base; |
244 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
245 |
vs_reserve(VM6); |
vs_check; |
246 |
{object V40; |
{object V40; |
247 |
object V41; |
object V41; |
248 |
object V42; |
object V42; |
|
check_arg(3); |
|
249 |
V40=(base[0]); |
V40=(base[0]); |
250 |
V41=(base[1]); |
V41=(base[1]); |
251 |
V42=(base[2]); |
V42=(base[2]); |
259 |
base[4]= (V41); |
base[4]= (V41); |
260 |
values= base[4]; |
values= base[4]; |
261 |
while(!endp(symbols)){ |
while(!endp(symbols)){ |
|
if(type_of(MMcar(symbols))!=t_symbol) |
|
|
FEinvalid_variable("~s is not a symbol.",MMcar(symbols)); |
|
262 |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
263 |
else{bds_bind(MMcar(symbols),MMcar(values)); |
else{bds_bind(MMcar(symbols),MMcar(values)); |
264 |
values=MMcdr(values);} |
values=MMcdr(values);} |
281 |
TTL:; |
TTL:; |
282 |
{object V46; |
{object V46; |
283 |
V46= Cnil; |
V46= Cnil; |
284 |
if(!(endp_prop((V45)))){ |
if(!(((V45))==Cnil)){ |
285 |
goto T107;} |
goto T107;} |
286 |
(void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0))); |
287 |
goto T107; |
goto T107; |
288 |
T107:; |
T107:; |
289 |
if(endp_prop(cdr((V45)))){ |
if((CMPcdr((V45)))==Cnil){ |
290 |
goto T110;} |
goto T110;} |
291 |
V47 = make_fixnum((long)length((V45))); |
V47 = CMPmake_fixnum((long)length((V45))); |
292 |
(void)((*(LnkLI46))(VV[11],small_fixnum(1),V47)); |
(void)((*(LnkLI46))(VV[11],small_fixnum(1),V47)); |
293 |
goto T110; |
goto T110; |
294 |
T110:; |
T110:; |
295 |
{register object V48; |
{register object V48; |
296 |
V48= car((V45)); |
V48= CMPcar((V45)); |
297 |
if(!(type_of((V48))==t_symbol)){ |
if(!(type_of((V48))==t_symbol)){ |
298 |
goto T115;} |
goto T115;} |
299 |
V46= (*(LnkLI60))((V48)); |
V46= (*(LnkLI60))((V48)); |
300 |
if(((V46))==Cnil){ |
if(((V46))==Cnil){ |
301 |
goto T118;} |
goto T118;} |
302 |
if(!((car((V46)))==(VV[12]))){ |
if(!((CMPcar((V46)))==(VV[12]))){ |
303 |
goto T118;} |
goto T118;} |
304 |
{object V49 = list(3,VV[11],symbol_value(VV[13]),(V46)); |
{object V49 = list(3,VV[11],(VV[13]->s.s_dbind),(V46)); |
305 |
VMR7(V49)} |
VMR7(V49)} |
306 |
goto T118; |
goto T118; |
307 |
T118:; |
T118:; |
308 |
{object V50; |
{object V50; |
309 |
V51= get((V48),VV[15],Cnil); |
{object V52 =((V48))->s.s_plist; |
310 |
|
object ind= VV[15]; |
311 |
|
while(V52!=Cnil){ |
312 |
|
if(V52->c.c_car==ind){ |
313 |
|
V51= (V52->c.c_cdr->c.c_car); |
314 |
|
goto T124; |
315 |
|
}else V52=V52->c.c_cdr->c.c_cdr;} |
316 |
|
V51= Cnil;} |
317 |
|
goto T124; |
318 |
|
T124:; |
319 |
V50= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V51)==Cnil?Ct:Cnil))); |
V50= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V51)==Cnil?Ct:Cnil))); |
320 |
{object V52 = list(3,VV[11],(V50),list(3,VV[16],(V50),(V48))); |
{object V53 = list(3,VV[11],(V50),list(3,VV[16],(V50),(V48))); |
321 |
VMR7(V52)}} |
VMR7(V53)}} |
322 |
goto T115; |
goto T115; |
323 |
T115:; |
T115:; |
324 |
if(!(type_of((V48))==t_cons)){ |
if(!(type_of((V48))==t_cons)){ |
325 |
goto T126;} |
goto T126;} |
326 |
if(!((car((V48)))==(VV[17]))){ |
if(!((CMPcar((V48)))==(VV[17]))){ |
327 |
goto T126;} |
goto T126;} |
328 |
if(!(endp_prop(cdr((V48))))){ |
if(!((CMPcdr((V48)))==Cnil)){ |
329 |
goto T130;} |
goto T130;} |
330 |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V48)))); |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V48)))); |
331 |
goto T130; |
goto T130; |
332 |
T130:; |
T130:; |
333 |
base[0]= make_cons(VV[20],symbol_value(VV[19])); |
base[0]= make_cons(VV[20],(VV[19]->s.s_dbind)); |
334 |
base[1]= make_cons(VV[20],symbol_value(VV[21])); |
base[1]= make_cons(VV[20],(VV[21]->s.s_dbind)); |
335 |
base[2]= make_cons(VV[20],symbol_value(VV[22])); |
base[2]= make_cons(VV[20],(VV[22]->s.s_dbind)); |
336 |
base[3]= make_cons(VV[20],symbol_value(VV[23])); |
base[3]= make_cons(VV[20],(VV[23]->s.s_dbind)); |
337 |
bds_bind(VV[19],base[0]); |
bds_bind(VV[19],base[0]); |
338 |
bds_bind(VV[21],base[1]); |
bds_bind(VV[21],base[1]); |
339 |
bds_bind(VV[22],base[2]); |
bds_bind(VV[22],base[2]); |
340 |
bds_bind(VV[23],base[3]); |
bds_bind(VV[23],base[3]); |
341 |
V48= (VFUN_NARGS=1,(*(LnkLI62))(cdr((V48)))); |
V48= (VFUN_NARGS=1,(*(LnkLI62))(CMPcdr((V48)))); |
342 |
{object V53 = list(3,VV[11],cadr((V48)),(V48)); |
{object V54 = list(3,VV[11],CMPcadr((V48)),(V48)); |
343 |
bds_unwind1; |
bds_unwind1; |
344 |
bds_unwind1; |
bds_unwind1; |
345 |
bds_unwind1; |
bds_unwind1; |
346 |
bds_unwind1; |
bds_unwind1; |
347 |
VMR7(V53)} |
VMR7(V54)} |
348 |
goto T126; |
goto T126; |
349 |
T126:; |
T126:; |
350 |
{object V54 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V48))); |
{object V55 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V48))); |
351 |
VMR7(V54)}}} |
VMR7(V55)}}} |
352 |
base[0]=base[0]; |
base[0]=base[0]; |
353 |
return Cnil; |
return Cnil; |
354 |
} |
} |
355 |
/* local entry for function C2FUNCTION */ |
/* local entry for function C2FUNCTION */ |
356 |
|
|
357 |
static object LI8(V56) |
static object LI8(V57) |
358 |
|
|
359 |
register object V56; |
register object V57; |
360 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
361 |
goto TTL; |
goto TTL; |
362 |
TTL:; |
TTL:; |
363 |
{object V57= car((V56)); |
{object V58= CMPcar((V57)); |
364 |
if((V57!= VV[16]))goto T139; |
if((V58!= VV[16]))goto T139; |
365 |
V58= list(2,VV[25],(*(LnkLI64))(caddr((V56)))); |
V59= list(2,VV[25],(*(LnkLI64))(CMPcaddr((V57)))); |
366 |
{object V59 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V58)); |
{object V60 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V59)); |
367 |
VMR8(V59)} |
VMR8(V60)} |
368 |
goto T139; |
goto T139; |
369 |
T139:; |
T139:; |
370 |
if((V57!= VV[12]))goto T140; |
if((V58!= VV[12]))goto T140; |
371 |
if((cadddr((V56)))==Cnil){ |
if((CMPcadddr((V57)))==Cnil){ |
372 |
goto T142;} |
goto T142;} |
373 |
V60= list(2,VV[26],structure_ref(caddr((V56)),VV[27],2)); |
V61= list(2,VV[26],STREF(object,CMPcaddr((V57)),8)); |
374 |
{object V61 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V60)); |
{object V62 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V61)); |
375 |
VMR8(V61)} |
VMR8(V62)} |
376 |
goto T142; |
goto T142; |
377 |
T142:; |
T142:; |
378 |
V62= list(2,VV[28],structure_ref(caddr((V56)),VV[27],1)); |
V63= list(2,VV[28],STREF(object,CMPcaddr((V57)),4)); |
379 |
{object V63 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V62)); |
{object V64 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V63)); |
380 |
VMR8(V63)} |
VMR8(V64)} |
381 |
goto T140; |
goto T140; |
382 |
T140:; |
T140:; |
383 |
{register object V64; |
{register object V65; |
384 |
setq(VV[32],number_plus(symbol_value(VV[32]),small_fixnum(1))); |
(VV[32]->s.s_dbind)= number_plus((VV[32]->s.s_dbind),small_fixnum(1)); |
385 |
V64= (VFUN_NARGS=4,(*(LnkLI65))(VV[29],VV[30],VV[31],symbol_value(VV[32]))); |
V65= (VFUN_NARGS=4,(*(LnkLI65))(VV[29],VV[30],VV[31],(VV[32]->s.s_dbind))); |
386 |
{object V65; |
{object V66; |
387 |
if((symbol_value(VV[33]))!=Cnil){ |
if(((VV[33]->s.s_dbind))!=Cnil){ |
388 |
goto T150;} |
goto T150;} |
389 |
V66= Cnil; |
V67= Cnil; |
390 |
goto T148; |
goto T148; |
391 |
goto T150; |
goto T150; |
392 |
T150:; |
T150:; |
393 |
V66= make_cons(small_fixnum(0),small_fixnum(0)); |
V67= make_cons(small_fixnum(0),small_fixnum(0)); |
394 |
goto T148; |
goto T148; |
395 |
T148:; |
T148:; |
396 |
V65= list(5,VV[30],V66,symbol_value(VV[34]),(V64),(V56)); |
V66= list(5,VV[30],V67,(VV[34]->s.s_dbind),(V65),(V57)); |
397 |
setq(VV[35],make_cons((V65),symbol_value(VV[35])));} |
(VV[35]->s.s_dbind)= make_cons((V66),(VV[35]->s.s_dbind));} |
398 |
setq(VV[36],make_cons(V64,symbol_value(VV[36]))); |
(VV[36]->s.s_dbind)= make_cons(V65,(VV[36]->s.s_dbind)); |
399 |
if((symbol_value(VV[33]))==Cnil){ |
if(((VV[33]->s.s_dbind))==Cnil){ |
400 |
goto T156;} |
goto T156;} |
401 |
V68= list(3,VV[37],structure_ref((V64),VV[27],3),symbol_value(VV[33])); |
V69= list(3,VV[37],STREF(object,(V65),12),(VV[33]->s.s_dbind)); |
402 |
{object V69 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V68)); |
{object V70 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V69)); |
403 |
VMR8(V69)} |
VMR8(V70)} |
404 |
goto T156; |
goto T156; |
405 |
T156:; |
T156:; |
406 |
(void)((*(LnkLI66))(Cnil));{object V70; |
(void)((*(LnkLI66))(Cnil));{object V71; |
407 |
V70= symbol_value(VV[39]); |
V71= (VV[39]->s.s_dbind); |
408 |
V71= structure_ref((V64),VV[27],3); |
V72= list(3,VV[38],V71,list(3,VV[40],Cnil,(*(LnkLI68))(VV[41],STREF(object,(V65),12)))); |
|
V72= list(3,VV[38],V70,list(3,VV[40],Cnil,(*(LnkLI68))(VV[41],/* INLINE-ARGS */V71))); |
|
409 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(/* INLINE-ARGS */V72,Ct)));} |
(void)((VFUN_NARGS=2,(*(LnkLI67))(/* INLINE-ARGS */V72,Ct)));} |
410 |
V73= list(2,VV[42],symbol_value(VV[39])); |
V73= list(2,VV[42],(VV[39]->s.s_dbind)); |
411 |
{object V74 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V73)); |
{object V74 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V73)); |
412 |
VMR8(V74)}}} |
VMR8(V74)}}} |
413 |
base[0]=base[0]; |
base[0]=base[0]; |
421 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
422 |
goto TTL; |
goto TTL; |
423 |
TTL:; |
TTL:; |
424 |
if((symbol_value(VV[43]))==Cnil){ |
if(((VV[43]->s.s_dbind))==Cnil){ |
425 |
goto T161;} |
goto T161;} |
426 |
princ_str("symbol_function(VV[",VV[44]); |
princ_str("symbol_function(VV[",VV[44]); |
427 |
(void)((*(LnkLI69))((V76))); |
(void)((*(LnkLI69))((V76))); |