19 |
else { |
else { |
20 |
V3= first;} |
V3= first;} |
21 |
--narg; goto T2; |
--narg; goto T2; |
22 |
goto T1; |
goto T1; |
23 |
T1:; |
T1:; |
24 |
V3= Cnil; |
V3= Cnil; |
25 |
goto T2; |
goto T2; |
26 |
T2:; |
T2:; |
27 |
if(type_of((V2))==t_symbol){ |
if(type_of((V2))==t_symbol){ |
28 |
goto T4;} |
goto T4;} |
29 |
{object V4 = Cnil; |
{object V4 = Cnil; |
30 |
VMR1(V4)} |
VMR1(V4)} |
31 |
goto T4; |
goto T4; |
32 |
T4:; |
T4:; |
33 |
if(((long)length((V3)))<(64)){ |
if(((long)length((V3)))<(64)){ |
34 |
goto T6;} |
goto T6;} |
35 |
{object V5 = Cnil; |
{object V5 = Cnil; |
36 |
VMR1(V5)} |
VMR1(V5)} |
37 |
goto T6; |
goto T6; |
38 |
T6:;{object V6; |
T6:;{object V6; |
39 |
if((get((V2),VV[0],Cnil))!=Cnil){ |
if((get((V2),VV[0],Cnil))!=Cnil){ |
40 |
goto T10;} |
goto T10;} |
41 |
V6= Cnil; |
V6= Cnil; |
42 |
goto T9; |
goto T9; |
43 |
goto T10; |
goto T10; |
44 |
T10:; |
T10:; |
45 |
V6= (type_of((V3))==t_cons||((V3))==Cnil?Ct:Cnil); |
V6= (type_of((V3))==t_cons||((V3))==Cnil?Ct:Cnil); |
46 |
goto T9; |
goto T9; |
47 |
T9:; |
T9:; |
48 |
if(V6==Cnil)goto T8; |
if(V6==Cnil)goto T8; |
49 |
{object V7 = V6; |
{object V7 = V6; |
50 |
VMR1(V7)} |
VMR1(V7)} |
51 |
goto T8; |
goto T8; |
52 |
T8:;} |
T8:;} |
53 |
if((get((V2),VV[1],Cnil))!=Cnil){ |
if((get((V2),VV[1],Cnil))!=Cnil){ |
54 |
goto T12;} |
goto T12;} |
55 |
{object V8 = Cnil; |
{object V8 = Cnil; |
56 |
VMR1(V8)} |
VMR1(V8)} |
57 |
goto T12; |
goto T12; |
58 |
T12:; |
T12:; |
59 |
{object V9; |
{object V9; |
60 |
V9= get((V2),VV[2],Cnil); |
V9= get((V2),VV[2],Cnil); |
65 |
goto T17; |
goto T17; |
66 |
}else V11=V11->c.c_cdr; |
}else V11=V11->c.c_cdr; |
67 |
V10= Cnil;} |
V10= Cnil;} |
68 |
goto T17; |
goto T17; |
69 |
T17:; |
T17:; |
70 |
if((V10)==Cnil){ |
if((V10)==Cnil){ |
71 |
goto T14;}} |
goto T14;}} |
72 |
{object V12 = Cnil; |
{object V12 = Cnil; |
73 |
VMR1(V12)} |
VMR1(V12)} |
74 |
goto T14; |
goto T14; |
75 |
T14:; |
T14:; |
76 |
{register object V13; |
{register object V13; |
77 |
register object V14; |
register object V14; |
78 |
V13= get((V2),VV[4],Cnil); |
V13= get((V2),VV[4],Cnil); |
79 |
V14= car((V13)); |
V14= car((V13)); |
80 |
goto T21; |
goto T21; |
81 |
T21:; |
T21:; |
82 |
if(!(endp_prop((V13)))){ |
if(!(endp_prop((V13)))){ |
83 |
goto T22;} |
goto T22;} |
84 |
{object V15 = Ct; |
{object V15 = Ct; |
85 |
VMR1(V15)} |
VMR1(V15)} |
86 |
goto T22; |
goto T22; |
87 |
T22:; |
T22:; |
88 |
if(!(((V14))==(VV[5]))){ |
if(!(((V14))==(VV[5]))){ |
89 |
goto T27;} |
goto T27;} |
90 |
goto T26; |
goto T26; |
91 |
goto T27; |
goto T27; |
92 |
T27:;{object V16; |
T27:;{object V16; |
93 |
{register object V17; |
{register object V17; |
94 |
V17= (V14); |
V17= (V14); |
99 |
goto T31; |
goto T31; |
100 |
}else V19=V19->c.c_cdr; |
}else V19=V19->c.c_cdr; |
101 |
V18= Cnil;} |
V18= Cnil;} |
102 |
goto T31; |
goto T31; |
103 |
T31:; |
T31:; |
104 |
V16= ((V18)==Cnil?Ct:Cnil);} |
V16= ((V18)==Cnil?Ct:Cnil);} |
105 |
if(V16==Cnil)goto T29; |
if(V16==Cnil)goto T29; |
106 |
goto T26; |
goto T26; |
107 |
goto T29; |
goto T29; |
108 |
T29:;} |
T29:;} |
109 |
{object V20 = Cnil; |
{object V20 = Cnil; |
110 |
VMR1(V20)} |
VMR1(V20)} |
111 |
goto T26; |
goto T26; |
112 |
T26:; |
T26:; |
113 |
V13= cdr((V13)); |
V13= cdr((V13)); |
114 |
V14= car((V13)); |
V14= car((V13)); |
123 |
|
|
124 |
object V22; |
object V22; |
125 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
126 |
goto TTL; |
goto TTL; |
127 |
TTL:; |
TTL:; |
128 |
{object V23; |
{object V23; |
129 |
V23= Cnil; |
V23= Cnil; |
134 |
goto T43;} |
goto T43;} |
135 |
{object V24 = Cnil; |
{object V24 = Cnil; |
136 |
VMR2(V24)} |
VMR2(V24)} |
137 |
goto T43; |
goto T43; |
138 |
T43:; |
T43:; |
139 |
{object V25 = (V23); |
{object V25 = (V23); |
140 |
VMR2(V25)} |
VMR2(V25)} |
141 |
goto T39; |
goto T39; |
142 |
T39:; |
T39:; |
143 |
base[0]= (V22); |
base[0]= (V22); |
144 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
156 |
register object V28; |
register object V28; |
157 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
158 |
bds_check; |
bds_check; |
159 |
goto TTL; |
goto TTL; |
160 |
TTL:; |
TTL:; |
161 |
{register object V29; |
{register object V29; |
162 |
V29= Cnil; |
V29= Cnil; |
167 |
if(((*(LnkLI101))(car((V28))))==Cnil){ |
if(((*(LnkLI101))(car((V28))))==Cnil){ |
168 |
goto T47;} |
goto T47;} |
169 |
V28= (*(LnkLI102))((V28)); |
V28= (*(LnkLI102))((V28)); |
170 |
goto T47; |
goto T47; |
171 |
T47:;{object V30; |
T47:;{object V30; |
172 |
if(type_of((V28))==t_cons){ |
if(type_of((V28))==t_cons){ |
173 |
goto T57;} |
goto T57;} |
174 |
V30= Cnil; |
V30= Cnil; |
175 |
goto T56; |
goto T56; |
176 |
goto T57; |
goto T57; |
177 |
T57:;{object V31; |
T57:;{object V31; |
178 |
if((car((V28)))==(VV[7])){ |
if((car((V28)))==(VV[7])){ |
179 |
goto T61;} |
goto T61;} |
180 |
V31= Cnil; |
V31= Cnil; |
181 |
goto T60; |
goto T60; |
182 |
goto T61; |
goto T61; |
183 |
T61:; |
T61:; |
184 |
if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){ |
if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){ |
185 |
goto T63;} |
goto T63;} |
186 |
V31= Cnil; |
V31= Cnil; |
187 |
goto T60; |
goto T60; |
188 |
goto T63; |
goto T63; |
189 |
T63:; |
T63:; |
190 |
if(endp_prop(cddr((V28)))){ |
if(endp_prop(cddr((V28)))){ |
191 |
goto T65;} |
goto T65;} |
192 |
V31= Cnil; |
V31= Cnil; |
193 |
goto T60; |
goto T60; |
194 |
goto T65; |
goto T65; |
195 |
T65:;{object V32; |
T65:;{object V32; |
196 |
if(type_of(cadr((V28)))==t_cons){ |
if(type_of(cadr((V28)))==t_cons){ |
197 |
goto T69;} |
goto T69;} |
198 |
V32= Cnil; |
V32= Cnil; |
199 |
goto T68; |
goto T68; |
200 |
goto T69; |
goto T69; |
201 |
T69:; |
T69:; |
202 |
if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){ |
if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){ |
203 |
goto T71;} |
goto T71;} |
204 |
V32= Cnil; |
V32= Cnil; |
205 |
goto T68; |
goto T68; |
206 |
goto T71; |
goto T71; |
207 |
T71:; |
T71:; |
208 |
if((caadr((V28)))==(VV[8])){ |
if((caadr((V28)))==(VV[8])){ |
209 |
goto T73;} |
goto T73;} |
210 |
V32= Cnil; |
V32= Cnil; |
211 |
goto T68; |
goto T68; |
212 |
goto T73; |
goto T73; |
213 |
T73:; |
T73:; |
214 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
215 |
bds_bind(VV[10],Cnil); |
bds_bind(VV[10],Cnil); |
223 |
bds_unwind1; |
bds_unwind1; |
224 |
bds_unwind1; |
bds_unwind1; |
225 |
V32= V34;} |
V32= V34;} |
226 |
goto T68; |
goto T68; |
227 |
T68:; |
T68:; |
228 |
if(V32==Cnil)goto T67; |
if(V32==Cnil)goto T67; |
229 |
V31= V32; |
V31= V32; |
230 |
goto T60; |
goto T60; |
231 |
goto T67; |
goto T67; |
232 |
T67:;} |
T67:;} |
233 |
if(type_of(cadr((V28)))==t_symbol){ |
if(type_of(cadr((V28)))==t_symbol){ |
234 |
goto T76;} |
goto T76;} |
235 |
V31= Cnil; |
V31= Cnil; |
236 |
goto T60; |
goto T60; |
237 |
goto T76; |
goto T76; |
238 |
T76:;{object V35; |
T76:;{object V35; |
239 |
V29= (*(LnkLI100))(cadr((V28))); |
V29= (*(LnkLI100))(cadr((V28))); |
240 |
if(((V29))!=Cnil){ |
if(((V29))!=Cnil){ |
241 |
goto T80;} |
goto T80;} |
242 |
V35= Cnil; |
V35= Cnil; |
243 |
goto T79; |
goto T79; |
244 |
goto T80; |
goto T80; |
245 |
T80:; |
T80:; |
246 |
if((car((V29)))==(VV[6])){ |
if((car((V29)))==(VV[6])){ |
247 |
goto T83;} |
goto T83;} |
248 |
V35= Cnil; |
V35= Cnil; |
249 |
goto T79; |
goto T79; |
250 |
goto T83; |
goto T83; |
251 |
T83:; |
T83:; |
252 |
V35= (V29); |
V35= (V29); |
253 |
goto T79; |
goto T79; |
254 |
T79:; |
T79:; |
255 |
if(V35==Cnil)goto T78; |
if(V35==Cnil)goto T78; |
256 |
V31= V35; |
V31= V35; |
257 |
goto T60; |
goto T60; |
258 |
goto T78; |
goto T78; |
259 |
T78:;} |
T78:;} |
260 |
V36= get(cadr((V28)),VV[16],Cnil); |
V36= get(cadr((V28)),VV[16],Cnil); |
261 |
V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil))); |
V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil))); |
262 |
V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28))); |
V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28))); |
263 |
goto T60; |
goto T60; |
264 |
T60:; |
T60:; |
265 |
if(V31==Cnil)goto T59; |
if(V31==Cnil)goto T59; |
266 |
V30= V31; |
V30= V31; |
267 |
goto T56; |
goto T56; |
268 |
goto T59; |
goto T59; |
269 |
T59:;} |
T59:;} |
270 |
if((car((V28)))==(VV[17])){ |
if((car((V28)))==(VV[17])){ |
271 |
goto T86;} |
goto T86;} |
272 |
V30= Cnil; |
V30= Cnil; |
273 |
goto T56; |
goto T56; |
274 |
goto T86; |
goto T86; |
275 |
T86:; |
T86:; |
276 |
if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){ |
if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){ |
277 |
goto T88;} |
goto T88;} |
278 |
V30= Cnil; |
V30= Cnil; |
279 |
goto T56; |
goto T56; |
280 |
goto T88; |
goto T88; |
281 |
T88:; |
T88:; |
282 |
if(endp_prop(cddr((V28)))){ |
if(endp_prop(cddr((V28)))){ |
283 |
goto T90;} |
goto T90;} |
284 |
V30= Cnil; |
V30= Cnil; |
285 |
goto T56; |
goto T56; |
286 |
goto T90; |
goto T90; |
287 |
T90:;{object V38; |
T90:;{object V38; |
288 |
if(type_of(cadr((V28)))==t_cons){ |
if(type_of(cadr((V28)))==t_cons){ |
289 |
goto T94;} |
goto T94;} |
290 |
V38= Cnil; |
V38= Cnil; |
291 |
goto T93; |
goto T93; |
292 |
goto T94; |
goto T94; |
293 |
T94:; |
T94:; |
294 |
if((caadr((V28)))==(VV[8])){ |
if((caadr((V28)))==(VV[8])){ |
295 |
goto T96;} |
goto T96;} |
296 |
V38= Cnil; |
V38= Cnil; |
297 |
goto T93; |
goto T93; |
298 |
goto T96; |
goto T96; |
299 |
T96:; |
T96:; |
300 |
if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){ |
if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){ |
301 |
goto T98;} |
goto T98;} |
302 |
V38= Cnil; |
V38= Cnil; |
303 |
goto T93; |
goto T93; |
304 |
goto T98; |
goto T98; |
305 |
T98:; |
T98:; |
306 |
{object V39; |
{object V39; |
307 |
V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28)))); |
V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28)))); |
308 |
V38= list(3,VV[13],cadr((V39)),(V39));} |
V38= list(3,VV[13],cadr((V39)),(V39));} |
309 |
goto T93; |
goto T93; |
310 |
T93:; |
T93:; |
311 |
if(V38==Cnil)goto T92; |
if(V38==Cnil)goto T92; |
312 |
V30= V38; |
V30= V38; |
313 |
goto T56; |
goto T56; |
314 |
goto T92; |
goto T92; |
315 |
T92:;} |
T92:;} |
316 |
if(type_of(cadr((V28)))==t_symbol){ |
if(type_of(cadr((V28)))==t_symbol){ |
317 |
goto T101;} |
goto T101;} |
318 |
V30= Cnil; |
V30= Cnil; |
319 |
goto T56; |
goto T56; |
320 |
goto T101; |
goto T101; |
321 |
T101:;{object V40; |
T101:;{object V40; |
322 |
V29= (*(LnkLI100))(cadr((V28))); |
V29= (*(LnkLI100))(cadr((V28))); |
323 |
if(((V29))!=Cnil){ |
if(((V29))!=Cnil){ |
324 |
goto T105;} |
goto T105;} |
325 |
V40= Cnil; |
V40= Cnil; |
326 |
goto T104; |
goto T104; |
327 |
goto T105; |
goto T105; |
328 |
T105:; |
T105:; |
329 |
if((car((V29)))==(VV[6])){ |
if((car((V29)))==(VV[6])){ |
330 |
goto T108;} |
goto T108;} |
331 |
V40= Cnil; |
V40= Cnil; |
332 |
goto T104; |
goto T104; |
333 |
goto T108; |
goto T108; |
334 |
T108:; |
T108:; |
335 |
V40= (V29); |
V40= (V29); |
336 |
goto T104; |
goto T104; |
337 |
T104:; |
T104:; |
338 |
if(V40==Cnil)goto T103; |
if(V40==Cnil)goto T103; |
339 |
V30= V40; |
V30= V40; |
340 |
goto T56; |
goto T56; |
341 |
goto T103; |
goto T103; |
342 |
T103:;} |
T103:;} |
343 |
V41= get(cadr((V28)),VV[16],Cnil); |
V41= get(cadr((V28)),VV[16],Cnil); |
344 |
V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil))); |
V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil))); |
345 |
V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28))); |
V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28))); |
346 |
goto T56; |
goto T56; |
347 |
T56:; |
T56:; |
348 |
if(V30==Cnil)goto T55; |
if(V30==Cnil)goto T55; |
349 |
{object V43 = V30; |
{object V43 = V30; |
350 |
VMR3(V43)} |
VMR3(V43)} |
351 |
goto T55; |
goto T55; |
352 |
T55:;} |
T55:;} |
353 |
{object V44; |
{object V44; |
354 |
object V45; |
object V45; |
366 |
|
|
367 |
register object V48; |
register object V48; |
368 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
369 |
goto TTL; |
goto TTL; |
370 |
TTL:; |
TTL:; |
371 |
{object V49; |
{object V49; |
372 |
object V50; |
object V50; |
405 |
else { |
else { |
406 |
V59= va_arg(ap,object);} |
V59= va_arg(ap,object);} |
407 |
--narg; goto T120; |
--narg; goto T120; |
408 |
goto T118; |
goto T118; |
409 |
T118:; |
T118:; |
410 |
V58= Cnil; |
V58= Cnil; |
411 |
goto T119; |
goto T119; |
412 |
T119:; |
T119:; |
413 |
V59= Cnil; |
V59= Cnil; |
414 |
goto T120; |
goto T120; |
415 |
T120:; |
T120:; |
416 |
{object V60= car((V56)); |
{object V60= car((V56)); |
417 |
if((V60!= VV[14]))goto T123; |
if((V60!= VV[14]))goto T123; |
418 |
{object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct); |
{object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct); |
419 |
VMR5(V61)} |
VMR5(V61)} |
420 |
goto T123; |
goto T123; |
421 |
T123:; |
T123:; |
422 |
if((V60!= VV[6]))goto T124; |
if((V60!= VV[6]))goto T124; |
423 |
{object V62 = (*(LnkLI109))(cddr((V56)),(V57)); |
{object V62 = (*(LnkLI109))(cddr((V56)),(V57)); |
424 |
VMR5(V62)} |
VMR5(V62)} |
425 |
goto T124; |
goto T124; |
426 |
T124:; |
T124:; |
427 |
if((V60!= VV[13]))goto T125; |
if((V60!= VV[13]))goto T125; |
428 |
{object V63 = (*(LnkLI110))(caddr((V56)),(V57)); |
{object V63 = (*(LnkLI110))(caddr((V56)),(V57)); |
429 |
VMR5(V63)} |
VMR5(V63)} |
430 |
goto T125; |
goto T125; |
431 |
T125:; |
T125:; |
432 |
if((V60!= VV[18]))goto T126; |
if((V60!= VV[18]))goto T126; |
433 |
{register object V64; |
{register object V64; |
444 |
goto T137;} |
goto T137;} |
445 |
if((car(symbol_value(VV[21])))==(VV[23])){ |
if((car(symbol_value(VV[21])))==(VV[23])){ |
446 |
goto T130;} |
goto T130;} |
447 |
goto T137; |
goto T137; |
448 |
T137:; |
T137:; |
449 |
if(((V59))==Cnil){ |
if(((V59))==Cnil){ |
450 |
goto T129;} |
goto T129;} |
451 |
V65= structure_ref((V59),VV[24],2); |
V65= structure_ref((V59),VV[24],2); |
452 |
if(!(equal(/* INLINE-ARGS */V65,VV[25]))){ |
if(!(equal(/* INLINE-ARGS */V65,VV[25]))){ |
453 |
goto T129;} |
goto T129;} |
454 |
goto T130; |
goto T130; |
455 |
T130:; |
T130:; |
456 |
(void)((*(LnkLI111))((V64),(V57),(V59))); |
(void)((*(LnkLI111))((V64),(V57),(V59))); |
457 |
{object V66 = Cnil; |
{object V66 = Cnil; |
458 |
bds_unwind1; |
bds_unwind1; |
459 |
VMR5(V66)} |
VMR5(V66)} |
460 |
goto T129; |
goto T129; |
461 |
T129:; |
T129:; |
462 |
if(((V58))!=Cnil){ |
if(((V58))!=Cnil){ |
463 |
goto T145;} |
goto T145;} |
464 |
if(type_of((V57))==t_cons||((V57))==Cnil){ |
if(type_of((V57))==t_cons||((V57))==Cnil){ |
465 |
goto T148;} |
goto T148;} |
466 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
467 |
goto T148; |
goto T148; |
468 |
T148:; |
T148:; |
469 |
if(!((car((V64)))==(VV[26]))){ |
if(!((car((V64)))==(VV[26]))){ |
470 |
goto T152;} |
goto T152;} |
471 |
V58= caddr((V64)); |
V58= caddr((V64)); |
472 |
goto T145; |
goto T145; |
473 |
goto T152; |
goto T152; |
474 |
T152:; |
T152:; |
475 |
if(!((car((V64)))==(VV[23]))){ |
if(!((car((V64)))==(VV[23]))){ |
476 |
goto T156;} |
goto T156;} |
478 |
goto T156;} |
goto T156;} |
479 |
V58= make_cons(VV[23],caddr((V64))); |
V58= make_cons(VV[23],caddr((V64))); |
480 |
goto T145; |
goto T145; |
481 |
goto T156; |
goto T156; |
482 |
T156:; |
T156:; |
483 |
V58= list(2,VV[27],(*(LnkLI114))()); |
V58= list(2,VV[27],(*(LnkLI114))()); |
484 |
bds_bind(VV[21],(V58)); |
bds_bind(VV[21],(V58)); |
485 |
V67= (*(LnkLI115))(caddr((V56))); |
V67= (*(LnkLI115))(caddr((V56))); |
486 |
bds_unwind1; |
bds_unwind1; |
487 |
goto T145; |
goto T145; |
488 |
T145:; |
T145:; |
489 |
(void)((*(LnkLI116))((V57))); |
(void)((*(LnkLI116))((V57))); |
490 |
if((symbol_value(VV[28]))==Cnil){ |
if((symbol_value(VV[28]))==Cnil){ |
493 |
(void)((*(LnkLI117))((V58))); |
(void)((*(LnkLI117))((V58))); |
494 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
495 |
goto T164; |
goto T164; |
496 |
goto T166; |
goto T166; |
497 |
T166:; |
T166:; |
498 |
if((symbol_value(VV[30]))==Cnil){ |
if((symbol_value(VV[30]))==Cnil){ |
499 |
goto T172;} |
goto T172;} |
501 |
(type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)): |
(type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)): |
502 |
(fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58)))); |
(fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58)))); |
503 |
goto T164; |
goto T164; |
504 |
goto T172; |
goto T172; |
505 |
T172:; |
T172:; |
506 |
princ_str("\n super_funcall_no_event(",VV[29]); |
princ_str("\n super_funcall_no_event(",VV[29]); |
507 |
(void)((*(LnkLI117))((V58))); |
(void)((*(LnkLI117))((V58))); |
508 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
509 |
goto T164; |
goto T164; |
510 |
T164:; |
T164:; |
511 |
{object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
512 |
bds_unwind1; |
bds_unwind1; |
513 |
VMR5(V68)}} |
VMR5(V68)}} |
514 |
goto T126; |
goto T126; |
515 |
T126:; |
T126:; |
516 |
{object V69 = (*(LnkLI112))(); |
{object V69 = (*(LnkLI112))(); |
517 |
VMR5(V69)}} |
VMR5(V69)}} |
540 |
goto T182;} |
goto T182;} |
541 |
if((car((V72)))==(VV[23])){ |
if((car((V72)))==(VV[23])){ |
542 |
goto T181;} |
goto T181;} |
543 |
goto T182; |
goto T182; |
544 |
T182:; |
T182:; |
545 |
V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))())); |
V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))())); |
546 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
548 |
princ_str(" = ",VV[29]); |
princ_str(" = ",VV[29]); |
549 |
(void)((*(LnkLI117))(car((V70)))); |
(void)((*(LnkLI117))(car((V70)))); |
550 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
551 |
goto T181; |
goto T181; |
552 |
T181:; |
T181:; |
553 |
princ_str("\n (type_of(",VV[29]); |
princ_str("\n (type_of(",VV[29]); |
554 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V72))); |
568 |
princ_str("\n (*((",VV[29]); |
princ_str("\n (*((",VV[29]); |
569 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V72))); |
570 |
princ_str(")->sfn.sfn_self)):",VV[29]); |
princ_str(")->sfn.sfn_self)):",VV[29]); |
571 |
goto T200; |
goto T200; |
572 |
T200:; |
T200:; |
573 |
princ_str("\n (fcall.fun=(",VV[29]); |
princ_str("\n (fcall.fun=(",VV[29]); |
574 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V72))); |
579 |
V75 = make_fixnum((long)length(cdr((V70)))); |
V75 = make_fixnum((long)length(cdr((V70)))); |
580 |
(void)((*(LnkLI117))(V75)); |
(void)((*(LnkLI117))(V75)); |
581 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
582 |
goto T218; |
goto T218; |
583 |
T218:; |
T218:; |
584 |
princ_str("fcalln))(",VV[29]); |
princ_str("fcalln))(",VV[29]); |
585 |
if((cdr((V70)))==Cnil){ |
if((cdr((V70)))==Cnil){ |
589 |
register object V77; |
register object V77; |
590 |
V76= cddr((V70)); |
V76= cddr((V70)); |
591 |
V77= car((V76)); |
V77= car((V76)); |
592 |
goto T234; |
goto T234; |
593 |
T234:; |
T234:; |
594 |
if(!(endp_prop((V76)))){ |
if(!(endp_prop((V76)))){ |
595 |
goto T235;} |
goto T235;} |
596 |
goto T226; |
goto T226; |
597 |
goto T235; |
goto T235; |
598 |
T235:; |
T235:; |
599 |
(void)((*(LnkLI117))(VV[35])); |
(void)((*(LnkLI117))(VV[35])); |
600 |
(void)((*(LnkLI117))((V77))); |
(void)((*(LnkLI117))((V77))); |
601 |
V76= cdr((V76)); |
V76= cdr((V76)); |
602 |
V77= car((V76)); |
V77= car((V76)); |
603 |
goto T234;} |
goto T234;} |
604 |
goto T226; |
goto T226; |
605 |
T226:; |
T226:; |
606 |
(void)((*(LnkLI117))(VV[36])); |
(void)((*(LnkLI117))(VV[36])); |
607 |
(void)((*(LnkLI117))(VV[36])); |
(void)((*(LnkLI117))(VV[36])); |
618 |
object V81;register object V82; |
object V81;register object V82; |
619 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
620 |
bds_check; |
bds_check; |
621 |
goto TTL; |
goto TTL; |
622 |
TTL:; |
TTL:; |
623 |
{register object V83; |
{register object V83; |
624 |
V83= caddr((V81)); |
V83= caddr((V81)); |
630 |
goto T250;} |
goto T250;} |
631 |
if(type_of((V82))==t_cons||((V82))==Cnil){ |
if(type_of((V82))==t_cons||((V82))==Cnil){ |
632 |
goto T251;} |
goto T251;} |
633 |
goto T250; |
goto T250; |
634 |
T250:; |
T250:; |
635 |
if(!(type_of((V82))==t_cons||((V82))==Cnil)){ |
if(!(type_of((V82))==t_cons||((V82))==Cnil)){ |
636 |
goto T259;} |
goto T259;} |
649 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
650 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
651 |
bds_unwind1;} |
bds_unwind1;} |
652 |
goto T259; |
goto T259; |
653 |
T259:; |
T259:; |
654 |
{object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81))))); |
{object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81))))); |
655 |
VMR7(V86)} |
VMR7(V86)} |
656 |
goto T251; |
goto T251; |
657 |
T251:; |
T251:; |
658 |
{object V87; |
{object V87; |
659 |
object V88; |
object V88; |
662 |
if(!(eql((V88),(V87)))){ |
if(!(eql((V88),(V87)))){ |
663 |
goto T276;} |
goto T276;} |
664 |
goto T273; |
goto T273; |
665 |
goto T276; |
goto T276; |
666 |
T276:; |
T276:; |
667 |
(void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));} |
(void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));} |
668 |
goto T273; |
goto T273; |
669 |
T273:; |
T273:; |
670 |
{object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81)))); |
{object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81)))); |
671 |
VMR7(V89)}} |
VMR7(V89)}} |
678 |
|
|
679 |
object V92;object V93; |
object V92;object V93; |
680 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
681 |
goto TTL; |
goto TTL; |
682 |
TTL:; |
TTL:; |
683 |
{register object V94; |
{register object V94; |
684 |
V94= get((V92),VV[39],Ct); |
V94= get((V92),VV[39],Ct); |
685 |
if((Ct)==((V94))){ |
if((Ct)==((V94))){ |
686 |
goto T280;} |
goto T280;} |
687 |
goto T279; |
goto T279; |
688 |
goto T280; |
goto T280; |
689 |
T280:; |
T280:; |
690 |
if((get((V92),VV[40],Cnil))!=Cnil){ |
if((get((V92),VV[40],Cnil))!=Cnil){ |
691 |
goto T282;} |
goto T282;} |
692 |
goto T279; |
goto T279; |
693 |
goto T282; |
goto T282; |
694 |
T282:; |
T282:; |
695 |
V94= VV[41]; |
V94= VV[41]; |
696 |
goto T279; |
goto T279; |
697 |
T279:; |
T279:; |
698 |
if(!(type_of((V94))==t_cons||((V94))==Cnil)){ |
if(!(type_of((V94))==t_cons||((V94))==Cnil)){ |
699 |
goto T286;} |
goto T286;} |
708 |
goto T292;} |
goto T292;} |
709 |
{object V96 = Ct; |
{object V96 = Ct; |
710 |
VMR8(V96)} |
VMR8(V96)} |
711 |
goto T292; |
goto T292; |
712 |
T292:; |
T292:; |
713 |
V97 = make_fixnum((long)length((V93))); |
V97 = make_fixnum((long)length((V93))); |
714 |
V98 = make_fixnum((long)length((V94))); |
V98 = make_fixnum((long)length((V94))); |
715 |
{object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98)); |
{object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98)); |
716 |
VMR8(V99)} |
VMR8(V99)} |
717 |
goto T286; |
goto T286; |
718 |
T286:; |
T286:; |
719 |
{object V100 = Cnil; |
{object V100 = Cnil; |
720 |
VMR8(V100)}} |
VMR8(V100)}} |
730 |
check_arg(1); |
check_arg(1); |
731 |
V101=(base[0]); |
V101=(base[0]); |
732 |
vs_top=sup; |
vs_top=sup; |
733 |
goto TTL; |
goto TTL; |
734 |
TTL:; |
TTL:; |
735 |
if((symbol_value(VV[43]))!=Cnil){ |
if((symbol_value(VV[43]))!=Cnil){ |
736 |
goto T295;}{object V102; |
goto T295;}{object V102; |
741 |
goto T301; |
goto T301; |
742 |
}else V103=V103->c.c_cdr; |
}else V103=V103->c.c_cdr; |
743 |
V102= Cnil;} |
V102= Cnil;} |
744 |
goto T301; |
goto T301; |
745 |
T301:; |
T301:; |
746 |
if(V102==Cnil)goto T300; |
if(V102==Cnil)goto T300; |
747 |
setq(VV[43],V102); |
setq(VV[43],V102); |
748 |
goto T299; |
goto T299; |
749 |
goto T300; |
goto T300; |
750 |
T300:;} |
T300:;} |
751 |
if(!((cadr((V101)))==(VV[44]))){ |
if(!((cadr((V101)))==(VV[44]))){ |
752 |
goto T302;} |
goto T302;} |
753 |
setq(VV[43],Ct); |
setq(VV[43],Ct); |
754 |
goto T299; |
goto T299; |
755 |
goto T302; |
goto T302; |
756 |
T302:; |
T302:; |
757 |
base[1]= small_fixnum(4); |
base[1]= small_fixnum(4); |
758 |
base[2]= caddr((V101)); |
base[2]= caddr((V101)); |
760 |
Llogbitp(); |
Llogbitp(); |
761 |
vs_top=sup; |
vs_top=sup; |
762 |
setq(VV[43],vs_base[0]); |
setq(VV[43],vs_base[0]); |
763 |
goto T299; |
goto T299; |
764 |
T299:; |
T299:; |
765 |
if((symbol_value(VV[43]))==Cnil){ |
if((symbol_value(VV[43]))==Cnil){ |
766 |
goto T295;} |
goto T295;} |
773 |
base[1]= Ct; |
base[1]= Ct; |
774 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
775 |
return; |
return; |
776 |
goto T309; |
goto T309; |
777 |
T309:; |
T309:; |
778 |
setq(VV[45],make_cons(symbol_value(VV[45]),VV[46])); |
setq(VV[45],make_cons(symbol_value(VV[45]),VV[46])); |
779 |
base[1]= symbol_value(VV[45]); |
base[1]= symbol_value(VV[45]); |
780 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
781 |
return; |
return; |
782 |
goto T295; |
goto T295; |
783 |
T295:; |
T295:; |
784 |
base[1]= Cnil; |
base[1]= Cnil; |
785 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
793 |
register object V108;register object V109;object V110;object V111; |
register object V108;register object V109;object V110;object V111; |
794 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
795 |
bds_check; |
bds_check; |
796 |
goto TTL; |
goto TTL; |
797 |
TTL:; |
TTL:; |
798 |
{register object V112; |
{register object V112; |
799 |
V112= Cnil; |
V112= Cnil; |
814 |
goto T327; |
goto T327; |
815 |
}else V113=V113->c.c_cdr; |
}else V113=V113->c.c_cdr; |
816 |
goto T317;} |
goto T317;} |
817 |
goto T327; |
goto T327; |
818 |
T327:; |
T327:; |
819 |
if(((*(LnkLI128))())==Cnil){ |
if(((*(LnkLI128))())==Cnil){ |
820 |
goto T317;} |
goto T317;} |
830 |
V114= Cnil; |
V114= Cnil; |
831 |
goto T336;} |
goto T336;} |
832 |
base[4]=V115=MMcons(Cnil,Cnil); |
base[4]=V115=MMcons(Cnil,Cnil); |
833 |
goto T337; |
goto T337; |
834 |
T337:; |
T337:; |
835 |
(V115->c.c_car)= list(2,(V116->c.c_car),Cnil); |
(V115->c.c_car)= list(2,(V116->c.c_car),Cnil); |
836 |
V116=MMcdr(V116); |
V116=MMcdr(V116); |
839 |
goto T336;} |
goto T336;} |
840 |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
841 |
goto T337;} |
goto T337;} |
842 |
goto T336; |
goto T336; |
843 |
T336:; |
T336:; |
844 |
(void)((*(LnkLI129))(V114,(V109))); |
(void)((*(LnkLI129))(V114,(V109))); |
845 |
if((cdr((VV[49]->s.s_dbind)))==Cnil){ |
if((cdr((VV[49]->s.s_dbind)))==Cnil){ |
847 |
bds_unwind1; |
bds_unwind1; |
848 |
bds_unwind1; |
bds_unwind1; |
849 |
goto T331;} |
goto T331;} |
850 |
princ_str("\ngoto T",VV[29]); |
princ_str("\n goto T",VV[29]); |
851 |
(void)((*(LnkLI117))(car((VV[49]->s.s_dbind)))); |
(void)((*(LnkLI117))(car((VV[49]->s.s_dbind)))); |
852 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
853 |
princ_str("\nT",VV[29]); |
princ_str("\nT",VV[29]); |
856 |
bds_unwind1; |
bds_unwind1; |
857 |
bds_unwind1; |
bds_unwind1; |
858 |
bds_unwind1; |
bds_unwind1; |
859 |
goto T331; |
goto T331; |
860 |
T331:; |
T331:; |
861 |
(void)((*(LnkLI130))(VV[53])); |
(void)((*(LnkLI130))(VV[53])); |
862 |
princ_str("\n goto TTL;",VV[29]); |
princ_str("\n goto TTL;",VV[29]); |
863 |
{object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108))); |
{object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108))); |
864 |
bds_unwind1; |
bds_unwind1; |
865 |
VMR10(V118)} |
VMR10(V118)} |
866 |
goto T317; |
goto T317; |
867 |
T317:; |
T317:; |
868 |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
869 |
goto T352;} |
goto T352;} |
885 |
bds_unwind1; |
bds_unwind1; |
886 |
bds_unwind1; |
bds_unwind1; |
887 |
VMR10(V120)} |
VMR10(V120)} |
888 |
goto T352; |
goto T352; |
889 |
T352:;{object V121; |
T352:;{object V121; |
890 |
V121= get((V108),VV[55],Cnil); |
V121= get((V108),VV[55],Cnil); |
891 |
if(V121==Cnil)goto T366; |
if(V121==Cnil)goto T366; |
892 |
V112= V121; |
V112= V121; |
893 |
goto T365; |
goto T365; |
894 |
goto T366; |
goto T366; |
895 |
T366:;} |
T366:;} |
896 |
V112= get((V108),VV[56],Cnil); |
V112= get((V108),VV[56],Cnil); |
897 |
goto T365; |
goto T365; |
898 |
T365:; |
T365:; |
899 |
if(((V112))==Cnil){ |
if(((V112))==Cnil){ |
900 |
goto T363;} |
goto T363;} |
906 |
{object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
{object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
907 |
bds_unwind1; |
bds_unwind1; |
908 |
VMR10(V122)} |
VMR10(V122)} |
909 |
goto T363; |
goto T363; |
910 |
T363:; |
T363:; |
911 |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
912 |
goto T375;} |
goto T375;} |
916 |
goto T380;} |
goto T380;} |
917 |
if((get((V108),VV[58],Cnil))==Cnil){ |
if((get((V108),VV[58],Cnil))==Cnil){ |
918 |
goto T375;} |
goto T375;} |
919 |
goto T380; |
goto T380; |
920 |
T380:; |
T380:; |
921 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
922 |
goto T386;} |
goto T386;} |
926 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
927 |
Lformat(); |
Lformat(); |
928 |
vs_top=sup; |
vs_top=sup; |
929 |
goto T386; |
goto T386; |
930 |
T386:; |
T386:; |
931 |
if((VV[59])==(symbol_value(VV[21]))){ |
if((VV[59])==(symbol_value(VV[21]))){ |
932 |
goto T375;} |
goto T375;} |
940 |
bds_unwind1; |
bds_unwind1; |
941 |
bds_unwind1; |
bds_unwind1; |
942 |
VMR10(V125)} |
VMR10(V125)} |
943 |
goto T375; |
goto T375; |
944 |
T375:; |
T375:; |
945 |
(void)((*(LnkLI116))((V109))); |
(void)((*(LnkLI116))((V109))); |
946 |
{object V126; |
{object V126; |
952 |
goto T402;} |
goto T402;} |
953 |
princ_str("Lclptr",VV[29]); |
princ_str("Lclptr",VV[29]); |
954 |
(void)((*(LnkLI117))((V126))); |
(void)((*(LnkLI117))((V126))); |
955 |
goto T402; |
goto T402; |
956 |
T402:; |
T402:; |
957 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
958 |
{object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
{object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
959 |
bds_unwind1; |
bds_unwind1; |
960 |
VMR10(V127)}} |
VMR10(V127)}} |
961 |
goto T314; |
goto T314; |
962 |
T314:; |
T314:; |
963 |
{object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil); |
{object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil); |
964 |
bds_unwind1; |
bds_unwind1; |
972 |
|
|
973 |
register object V132;object V133;object V134; |
register object V132;object V133;object V134; |
974 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
975 |
goto TTL; |
goto TTL; |
976 |
TTL:; |
TTL:; |
977 |
{object V135; |
{object V135; |
978 |
object V136; |
object V136; |
994 |
goto T417;} |
goto T417;} |
995 |
V141= Cnil; |
V141= Cnil; |
996 |
goto T416; |
goto T416; |
997 |
goto T417; |
goto T417; |
998 |
T417:; |
T417:; |
999 |
V141= make_fixnum((long)length((V134))); |
V141= make_fixnum((long)length((V134))); |
1000 |
goto T416; |
goto T416; |
1001 |
T416:; |
T416:; |
1002 |
if((get((V132),VV[1],Cnil))==Cnil){ |
if((get((V132),VV[1],Cnil))==Cnil){ |
1003 |
goto T422;} |
goto T422;} |
1004 |
V140= get((V132),VV[4],Cnil); |
V140= get((V132),VV[4],Cnil); |
1005 |
goto T420; |
goto T420; |
1006 |
goto T422; |
goto T422; |
1007 |
T422:; |
T422:; |
1008 |
V139= get((V132),VV[0],Cnil); |
V139= get((V132),VV[0],Cnil); |
1009 |
if(((V139))==Cnil){ |
if(((V139))==Cnil){ |
1013 |
if(!(equal((V141),(V139)))){ |
if(!(equal((V141),(V139)))){ |
1014 |
goto T432;} |
goto T432;} |
1015 |
goto T428; |
goto T428; |
1016 |
goto T432; |
goto T432; |
1017 |
T432:; |
T432:; |
1018 |
(void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132)))); |
(void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132)))); |
1019 |
goto T428; |
goto T428; |
1020 |
goto T430; |
goto T430; |
1021 |
T430:; |
T430:; |
1022 |
(void)(sputprop((V132),VV[0],(V141))); |
(void)(sputprop((V132),VV[0],(V141))); |
1023 |
goto T428; |
goto T428; |
1024 |
T428:; |
T428:; |
1025 |
base[2]= (V141); |
base[2]= (V141); |
1026 |
base[3]= VV[63]; |
base[3]= VV[63]; |
1030 |
vs_top=sup; |
vs_top=sup; |
1031 |
V140= vs_base[0]; |
V140= vs_base[0]; |
1032 |
goto T420; |
goto T420; |
1033 |
goto T425; |
goto T425; |
1034 |
T425:; |
T425:; |
1035 |
V140= Cnil; |
V140= Cnil; |
1036 |
goto T420; |
goto T420; |
1037 |
T420:; |
T420:; |
1038 |
if((V141)==Cnil){ |
if((V141)==Cnil){ |
1039 |
goto T437;} |
goto T437;} |
1041 |
if(!(eql((V141),V142))){ |
if(!(eql((V141),V142))){ |
1042 |
goto T438;} |
goto T438;} |
1043 |
goto T437; |
goto T437; |
1044 |
goto T438; |
goto T438; |
1045 |
T438:;{object V143; |
T438:;{object V143; |
1046 |
{register object x= VV[5],V144= (V140); |
{register object x= VV[5],V144= (V140); |
1047 |
while(!endp(V144)) |
while(!endp(V144)) |
1050 |
goto T441; |
goto T441; |
1051 |
}else V144=V144->c.c_cdr; |
}else V144=V144->c.c_cdr; |
1052 |
V143= Cnil;} |
V143= Cnil;} |
1053 |
goto T441; |
goto T441; |
1054 |
T441:; |
T441:; |
1055 |
if(V143==Cnil)goto T440; |
if(V143==Cnil)goto T440; |
1056 |
goto T437; |
goto T437; |
1057 |
goto T440; |
goto T440; |
1058 |
T440:;} |
T440:;} |
1059 |
V145 = make_fixnum((long)length((V140))); |
V145 = make_fixnum((long)length((V140))); |
1060 |
(void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145))); |
(void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145))); |
1061 |
goto T437; |
goto T437; |
1062 |
T437:; |
T437:; |
1063 |
{register object x= (V132),V146= symbol_value(VV[65]); |
{register object x= (V132),V146= symbol_value(VV[65]); |
1064 |
while(!endp(V146)) |
while(!endp(V146)) |
1067 |
goto T444; |
goto T444; |
1068 |
}else V146=V146->c.c_cdr; |
}else V146=V146->c.c_cdr; |
1069 |
V136= Cnil;} |
V136= Cnil;} |
1070 |
goto T444; |
goto T444; |
1071 |
T444:; |
T444:; |
1072 |
if((cddr((V136)))!=Cnil){ |
if((cddr((V136)))!=Cnil){ |
1073 |
goto T410;} |
goto T410;} |
1088 |
V148= Cnil; |
V148= Cnil; |
1089 |
V149= (V140); |
V149= (V140); |
1090 |
V150= small_fixnum(0); |
V150= small_fixnum(0); |
1091 |
goto T454; |
goto T454; |
1092 |
T454:; |
T454:; |
1093 |
if(((V149))!=Cnil){ |
if(((V149))!=Cnil){ |
1094 |
goto T455;} |
goto T455;} |
1095 |
goto T452; |
goto T452; |
1096 |
goto T455; |
goto T455; |
1097 |
T455:; |
T455:; |
1098 |
if(!((car((V149)))==(VV[5]))){ |
if(!((car((V149)))==(VV[5]))){ |
1099 |
goto T461;} |
goto T461;} |
1100 |
V138= Ct; |
V138= Ct; |
1101 |
(void)(princ(VV[67],(V147))); |
(void)(princ(VV[67],(V147))); |
1102 |
goto T459; |
goto T459; |
1103 |
goto T461; |
goto T461; |
1104 |
T461:; |
T461:; |
1105 |
if(((V148))==Cnil){ |
if(((V148))==Cnil){ |
1106 |
goto T467;} |
goto T467;} |
1107 |
(void)(princ(VV[68],(V147))); |
(void)(princ(VV[68],(V147))); |
1108 |
goto T465; |
goto T465; |
1109 |
goto T467; |
goto T467; |
1110 |
T467:; |
T467:; |
1111 |
V148= Ct; |
V148= Ct; |
1112 |
goto T465; |
goto T465; |
1113 |
T465:; |
T465:; |
1114 |
base[2]= (V147); |
base[2]= (V147); |
1115 |
base[3]= VV[69]; |
base[3]= VV[69]; |
1117 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1118 |
Lformat(); |
Lformat(); |
1119 |
vs_top=sup; |
vs_top=sup; |
1120 |
goto T459; |
goto T459; |
1121 |
T459:; |
T459:; |
1122 |
V149= cdr((V149)); |
V149= cdr((V149)); |
1123 |
V150= number_plus(small_fixnum(1),(V150)); |
V150= number_plus(small_fixnum(1),(V150)); |
1124 |
goto T454;} |
goto T454;} |
1125 |
goto T452; |
goto T452; |
1126 |
T452:; |
T452:; |
1127 |
(void)(princ(VV[70],(V147))); |
(void)(princ(VV[70],(V147))); |
1128 |
base[2]= (V147); |
base[2]= (V147); |
1134 |
goto T479;} |
goto T479;} |
1135 |
V135= |
V135= |
1136 |
make_cclosure_new(LC21,Cnil,base[0],Cdata); |
make_cclosure_new(LC21,Cnil,base[0],Cdata); |
1137 |
goto T479; |
goto T479; |
1138 |
T479:; |
T479:; |
1139 |
{object V151;{object V153; |
{object V151;{object V153; |
1140 |
V153= get((V132),VV[2],Cnil); |
V153= get((V132),VV[2],Cnil); |
1141 |
if(V153==Cnil)goto T486; |
if(V153==Cnil)goto T486; |
1142 |
V152= V153; |
V152= V153; |
1143 |
goto T485; |
goto T485; |
1144 |
goto T486; |
goto T486; |
1145 |
T486:;} |
T486:;} |
1146 |
V152= Ct; |
V152= Ct; |
1147 |
goto T485; |
goto T485; |
1148 |
T485:; |
T485:; |
1149 |
if((V135)!=Cnil){ |
if((V135)!=Cnil){ |
1150 |
V154= (V135); |
V154= (V135); |
1151 |
goto T488;} |
goto T488;} |
1152 |
V154= (base[0]->c.c_car); |
V154= (base[0]->c.c_car); |
1153 |
goto T488; |
goto T488; |
1154 |
T488:; |
T488:; |
1155 |
V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]); |
V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]); |
1156 |
setq(VV[72],make_cons((V151),symbol_value(VV[72])));} |
setq(VV[72],make_cons((V151),symbol_value(VV[72])));} |
1165 |
if(V157==Cnil)goto T496; |
if(V157==Cnil)goto T496; |
1166 |
V156= V157; |
V156= V157; |
1167 |
goto T495; |
goto T495; |
1168 |
goto T496; |
goto T496; |
1169 |
T496:;} |
T496:;} |
1170 |
V156= Ct; |
V156= Ct; |
1171 |
goto T495; |
goto T495; |
1172 |
T495:; |
T495:; |
1173 |
V136= list(4,(V132),V155,V156,(V140)); |
V136= list(4,(V132),V155,V156,(V140)); |
1174 |
goto T410;} |
goto T410;} |
1175 |
goto T412; |
goto T412; |
1176 |
T412:; |
T412:; |
1177 |
(void)((*(LnkLI136))((V132),(V134))); |
(void)((*(LnkLI136))((V132),(V134))); |
1178 |
if((get((V132),VV[61],Cnil))==Cnil){ |
if((get((V132),VV[61],Cnil))==Cnil){ |
1179 |
goto T502;} |
goto T502;} |
1180 |
V158= VV[61]; |
V158= VV[61]; |
1181 |
goto T500; |
goto T500; |
1182 |
goto T502; |
goto T502; |
1183 |
T502:; |
T502:; |
1184 |
V158= Cnil; |
V158= Cnil; |
1185 |
goto T500; |
goto T500; |
1186 |
T500:; |
T500:; |
1187 |
V136= list(3,(V132),(V137),V158); |
V136= list(3,(V132),(V137),V158); |
1188 |
goto T410; |
goto T410; |
1189 |
T410:; |
T410:; |
1190 |
base[0]= V136; |
base[0]= V136; |
1191 |
base[1]= symbol_value(VV[65]); |
base[1]= symbol_value(VV[65]); |
1210 |
check_arg(1); |
check_arg(1); |
1211 |
V161=(base[0]); |
V161=(base[0]); |
1212 |
vs_top=sup; |
vs_top=sup; |
1213 |
goto TTL; |
goto TTL; |
1214 |
TTL:; |
TTL:; |
1215 |
if(!(equal((V161),VV[76]))){ |
if(!(equal((V161),VV[76]))){ |
1216 |
goto T511;} |
goto T511;} |
1217 |
base[1]= VV[77]; |
base[1]= VV[77]; |
1218 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1219 |
return; |
return; |
1220 |
goto T511; |
goto T511; |
1221 |
T511:; |
T511:; |
1222 |
if(!(equal((V161),VV[78]))){ |
if(!(equal((V161),VV[78]))){ |
1223 |
goto T514;} |
goto T514;} |
1224 |
base[1]= VV[79]; |
base[1]= VV[79]; |
1225 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1226 |
return; |
return; |
1227 |
goto T514; |
goto T514; |
1228 |
T514:; |
T514:; |
1229 |
base[1]= (V161); |
base[1]= (V161); |
1230 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1237 |
|
|
1238 |
register object V163; |
register object V163; |
1239 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1240 |
goto TTL; |
goto TTL; |
1241 |
TTL:; |
TTL:; |
1242 |
{register object V164; |
{register object V164; |
1243 |
register object V165; |
register object V165; |
1257 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V165))); |
1258 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1259 |
goto T520; |
goto T520; |
1260 |
goto T522; |
goto T522; |
1261 |
T522:; |
T522:; |
1262 |
if(!(eql((V166),VV[61]))){ |
if(!(eql((V166),VV[61]))){ |
1263 |
goto T532;} |
goto T532;} |
1267 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V165))); |
1268 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1269 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V165))); |
1270 |
princ_str(",&Lclptr",VV[29]); |
princ_str(",(void **)&Lclptr",VV[29]); |
1271 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V165))); |
1272 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1273 |
goto T520; |
goto T520; |
1274 |
goto T532; |
goto T532; |
1275 |
T532:; |
T532:; |
1276 |
princ_str("\nstatic ",VV[29]); |
princ_str("\nstatic ",VV[29]); |
1277 |
base[0]= (*(LnkLI143))((V166)); |
base[0]= (*(LnkLI143))((V166)); |
1286 |
goto T550;} |
goto T550;} |
1287 |
if((Ct)==((V166))){ |
if((Ct)==((V166))){ |
1288 |
goto T551;} |
goto T551;} |
1289 |
goto T550; |
goto T550; |
1290 |
T550:; |
T550:; |
1291 |
{object V169; |
{object V169; |
1292 |
{register object x= VV[5],V170= (V167); |
{register object x= VV[5],V170= (V167); |
1296 |
goto T555; |
goto T555; |
1297 |
}else V170=V170->c.c_cdr; |
}else V170=V170->c.c_cdr; |
1298 |
V169= Cnil;} |
V169= Cnil;} |
1299 |
goto T555; |
goto T555; |
1300 |
T555:; |
T555:; |
1301 |
princ_str("(object first,...){",VV[29]); |
princ_str("(object first,...){",VV[29]); |
1302 |
base[0]= (*(LnkLI143))((V166)); |
base[0]= (*(LnkLI143))((V166)); |
1311 |
goto T566;} |
goto T566;} |
1312 |
V172= VV[80]; |
V172= VV[80]; |
1313 |
goto T564; |
goto T564; |
1314 |
goto T566; |
goto T566; |
1315 |
T566:; |
T566:; |
1316 |
V172= VV[81]; |
V172= VV[81]; |
1317 |
goto T564; |
goto T564; |
1318 |
T564:; |
T564:; |
1319 |
(void)((*(LnkLI117))(V172)); |
(void)((*(LnkLI117))(V172)); |
1320 |
princ_str("proc_new(VV[",VV[29]); |
princ_str("proc_new(VV[",VV[29]); |
1327 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1328 |
V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166))); |
V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166))); |
1329 |
(void)((*(LnkLI117))(V174)); |
(void)((*(LnkLI117))(V174)); |
1330 |
goto T572; |
goto T572; |
1331 |
T572:; |
T572:; |
1332 |
princ_str(",first,ap);va_end(ap);return V1;}",VV[29]); |
princ_str(",first,ap);va_end(ap);return V1;}",VV[29]); |
1333 |
goto T520;} |
goto T520;} |
1334 |
goto T551; |
goto T551; |
1335 |
T551:; |
T551:; |
1336 |
princ_str("(){return call_proc0(VV[",VV[29]); |
princ_str("(){return call_proc0(VV[",VV[29]); |
1337 |
V175= (*(LnkLI145))((V164)); |
V175= (*(LnkLI145))((V164)); |
1339 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1340 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V165))); |
1341 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1342 |
goto T520; |
goto T520; |
1343 |
T520:; |
T520:; |
1344 |
V164= symbol_name((V164)); |
V164= symbol_name((V164)); |
1345 |
if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){ |
1346 |
goto T583;} |
goto T583;} |
1347 |
V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164))); |
V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164))); |
1348 |
goto T583; |
goto T583; |
1349 |
T583:; |
T583:; |
1350 |
princ_str(" /* ",VV[29]); |
princ_str(" /* ",VV[29]); |
1351 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V164))); |
1362 |
register object V178; |
register object V178; |
1363 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1364 |
bds_check; |
bds_check; |
1365 |
goto TTL; |
goto TTL; |
1366 |
TTL:; |
TTL:; |
1367 |
{object V179; |
{object V179; |
1368 |
object V180; |
object V180; |
1387 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
1388 |
vs_top=sup; |
vs_top=sup; |
1389 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1390 |
goto T598; |
goto T598; |
1391 |
T598:; |
T598:; |
1392 |
(void)((*(LnkLI116))((V180))); |
(void)((*(LnkLI116))((V180))); |
1393 |
princ_str("\n (",VV[29]); |
princ_str("\n (",VV[29]); |
1396 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
1397 |
vs_top=sup; |
vs_top=sup; |
1398 |
goto T593;} |
goto T593;} |
1399 |
goto T595; |
goto T595; |
1400 |
T595:; |
T595:; |
1401 |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
1402 |
V181= list(2,VV[33],symbol_value(VV[84])); |
V181= list(2,VV[33],symbol_value(VV[84])); |
1409 |
princ_str("(V",VV[29]); |
princ_str("(V",VV[29]); |
1410 |
(void)((*(LnkLI117))(cadr((V181)))); |
(void)((*(LnkLI117))(cadr((V181)))); |
1411 |
bds_unwind1; |
bds_unwind1; |
1412 |
goto T593; |
goto T593; |
1413 |
T593:; |
T593:; |
1414 |
princ_str(")->cf.cf_self ();",VV[29]); |
princ_str(")->cf.cf_self ();",VV[29]); |
1415 |
if((V181)==Cnil){ |
if((V181)==Cnil){ |
1416 |
goto T590;} |
goto T590;} |
1417 |
princ_char(125,VV[29]);} |
princ_char(125,VV[29]);} |
1418 |
goto T590; |
goto T590; |
1419 |
T590:; |
T590:; |
1420 |
{object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1421 |
VMR14(V183)} |
VMR14(V183)} |
1428 |
|
|
1429 |
object V186;object V187; |
object V186;object V187; |
1430 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1431 |
goto TTL; |
goto TTL; |
1432 |
TTL:; |
TTL:; |
1433 |
{register object V188; |
{register object V188; |
1434 |
register object V189; |
register object V189; |
1454 |
V193= vs_base[0]; |
V193= vs_base[0]; |
1455 |
V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]); |
V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]); |
1456 |
goto T635; |
goto T635; |
1457 |
goto T636; |
goto T636; |
1458 |
T636:; |
T636:; |
1459 |
if(!eql(V192,VV[89]))goto T641; |
if(!eql(V192,VV[89]))goto T641; |
1460 |
base[2]= Cnil; |
base[2]= Cnil; |
1466 |
V194= vs_base[0]; |
V194= vs_base[0]; |
1467 |
V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]); |
V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]); |
1468 |
goto T635; |
goto T635; |
1469 |
goto T641; |
goto T641; |
1470 |
T641:; |
T641:; |
1471 |
base[2]= (V188); |
base[2]= (V188); |
1472 |
base[3]= VV[63]; |
base[3]= VV[63]; |
1483 |
register object V198; |
register object V198; |
1484 |
V197= (V188); |
V197= (V188); |
1485 |
V198= small_fixnum(0); |
V198= small_fixnum(0); |
1486 |
goto T659; |
goto T659; |
1487 |
T659:; |
T659:; |
1488 |
if(!(number_compare((V198),(V197))>=0)){ |
if(!(number_compare((V198),(V197))>=0)){ |
1489 |
goto T660;} |
goto T660;} |
1490 |
base[6]= nreverse((V189)); |
base[6]= nreverse((V189)); |
1491 |
goto T655; |
goto T655; |
1492 |
goto T660; |
goto T660; |
1493 |
T660:; |
T660:; |
1494 |
{register object V199; |
{register object V199; |
1495 |
V199= (V198); |
V199= (V198); |
1496 |
V189= make_cons((V199),(V189));} |
V189= make_cons((V199),(V189));} |
1497 |
V198= one_plus((V198)); |
V198= one_plus((V198)); |
1498 |
goto T659;} |
goto T659;} |
1499 |
goto T655; |
goto T655; |
1500 |
T655:; |
T655:; |
1501 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1502 |
Lformat(); |
Lformat(); |
1503 |
vs_top=sup; |
vs_top=sup; |
1504 |
V196= vs_base[0]; |
V196= vs_base[0]; |
1505 |
V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);} |
V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);} |
1506 |
goto T635; |
goto T635; |
1507 |
T635:; |
T635:; |
1508 |
{object V200; |
{object V200; |
1509 |
V200= make_cons((V186),(V191)); |
V200= make_cons((V186),(V191)); |
1534 |
else { |
else { |
1535 |
V208= first;} |
V208= first;} |
1536 |
--narg; goto T674; |
--narg; goto T674; |
1537 |
goto T673; |
goto T673; |
1538 |
T673:; |
T673:; |
1539 |
V208= Cnil; |
V208= Cnil; |
1540 |
goto T674; |
goto T674; |
1541 |
T674:; |
T674:; |
1542 |
princ_str("simple_",VV[29]); |
princ_str("simple_",VV[29]); |
1543 |
(void)((*(LnkLI117))((V205))); |
(void)((*(LnkLI117))((V205))); |
1547 |
princ_str("VV[",VV[29]); |
princ_str("VV[",VV[29]); |
1548 |
(void)((*(LnkLI117))((V208))); |
(void)((*(LnkLI117))((V208))); |
1549 |
princ_str("],",VV[29]); |
princ_str("],",VV[29]); |
1550 |
goto T680; |
goto T680; |
1551 |
T680:; |
T680:; |
1552 |
princ_str("base+",VV[29]); |
princ_str("base+",VV[29]); |
1553 |
(void)((*(LnkLI117))((V206))); |
(void)((*(LnkLI117))((V206))); |
1567 |
register object V211; |
register object V211; |
1568 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1569 |
bds_check; |
bds_check; |
1570 |
goto TTL; |
goto TTL; |
1571 |
TTL:; |
TTL:; |
1572 |
{object V212= car((V211)); |
{object V212= car((V211)); |
1573 |
if((V212!= VV[13]) |
if((V212!= VV[13]) |
1575 |
&& (V212!= VV[6]))goto T693; |
&& (V212!= VV[6]))goto T693; |
1576 |
{object V213 = Cnil; |
{object V213 = Cnil; |
1577 |
VMR17(V213)} |
VMR17(V213)} |
1578 |
goto T693; |
goto T693; |
1579 |
T693:; |
T693:; |
1580 |
if((V212!= VV[14]))goto T694; |
if((V212!= VV[14]))goto T694; |
1581 |
if(((*(LnkLI127))(caddr((V211))))==Cnil){ |
if(((*(LnkLI127))(caddr((V211))))==Cnil){ |
1589 |
if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){ |
if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){ |
1590 |
goto T696; |
goto T696; |
1591 |
}else V214=V214->c.c_cdr;} |
}else V214=V214->c.c_cdr;} |
1592 |
goto T695; |
goto T695; |
1593 |
T695:; |
T695:; |
1594 |
{object V215; |
{object V215; |
1595 |
V215= list(2,VV[27],(*(LnkLI114))()); |
V215= list(2,VV[27],(*(LnkLI114))()); |
1602 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V216)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V216)); |
1603 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1604 |
goto T705; |
goto T705; |
1605 |
goto T707; |
goto T707; |
1606 |
T707:; |
T707:; |
1607 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1608 |
(void)((*(LnkLI117))((V215))); |
(void)((*(LnkLI117))((V215))); |
1610 |
V217= (*(LnkLI140))(caddr((V211))); |
V217= (*(LnkLI140))(caddr((V211))); |
1611 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V217)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V217)); |
1612 |
princ_str("]->s.s_gfdef;",VV[29]); |
princ_str("]->s.s_gfdef;",VV[29]); |
1613 |
goto T705; |
goto T705; |
1614 |
T705:; |
T705:; |
1615 |
{object V218 = (V215); |
{object V218 = (V215); |
1616 |
VMR17(V218)}} |
VMR17(V218)}} |
1617 |
goto T696; |
goto T696; |
1618 |
T696:; |
T696:; |
1619 |
{object V219 = Cnil; |
{object V219 = Cnil; |
1620 |
VMR17(V219)} |
VMR17(V219)} |
1621 |
goto T694; |
goto T694; |
1622 |
T694:; |
T694:; |
1623 |
if((V212!= VV[18]))goto T719; |
if((V212!= VV[18]))goto T719; |
1624 |
{object V220; |
{object V220; |
1628 |
{object V221 = (V220); |
{object V221 = (V220); |
1629 |
bds_unwind1; |
bds_unwind1; |
1630 |
VMR17(V221)}} |
VMR17(V221)}} |
1631 |
goto T719; |
goto T719; |
1632 |
T719:; |
T719:; |
1633 |
{object V222 = (*(LnkLI112))(); |
{object V222 = (*(LnkLI112))(); |
1634 |
VMR17(V222)}} |
VMR17(V222)}} |
1642 |
object V224; |
object V224; |
1643 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1644 |
bds_check; |
bds_check; |
1645 |
goto TTL; |
goto TTL; |
1646 |
TTL:; |
TTL:; |
1647 |
if(((V224))!=Cnil){ |
if(((V224))!=Cnil){ |
1648 |
goto T723;} |
goto T723;} |
1649 |
princ_str("\n vs_base=vs_top;",VV[29]); |
princ_str("\n vs_base=vs_top;",VV[29]); |
1650 |
{object V225 = Cnil; |
{object V225 = Cnil; |
1651 |
VMR18(V225)} |
VMR18(V225)} |
1652 |
goto T723; |
goto T723; |
1653 |
T723:; |
T723:; |
1654 |
if(!(type_of((V224))==t_cons)){ |
if(!(type_of((V224))==t_cons)){ |
1655 |
goto T727;} |
goto T727;} |
1660 |
register object V228; |
register object V228; |
1661 |
V227= (V224); |
V227= (V224); |
1662 |
V228= car((V227)); |
V228= car((V227)); |
1663 |
goto T734; |
goto T734; |
1664 |
T734:; |
T734:; |
1665 |
if(!(endp_prop((V227)))){ |
if(!(endp_prop((V227)))){ |
1666 |
goto T735;} |
goto T735;} |
1667 |
goto T730; |
goto T730; |
1668 |
goto T735; |
goto T735; |
1669 |
T735:; |
T735:; |
1670 |
base[2]= list(2,VV[27],(*(LnkLI114))()); |
base[2]= list(2,VV[27],(*(LnkLI114))()); |
1671 |
bds_bind(VV[21],base[2]); |
bds_bind(VV[21],base[2]); |
1674 |
V227= cdr((V227)); |
V227= cdr((V227)); |
1675 |
V228= car((V227)); |
V228= car((V227)); |
1676 |
goto T734;} |
goto T734;} |
1677 |
goto T730; |
goto T730; |
1678 |
T730:; |
T730:; |
1679 |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
1680 |
(void)((*(LnkLI117))((V226))); |
(void)((*(LnkLI117))((V226))); |
1686 |
{object V231 = Ct; |
{object V231 = Ct; |
1687 |
bds_unwind1; |
bds_unwind1; |
1688 |
VMR18(V231)}} |
VMR18(V231)}} |
1689 |
goto T727; |
goto T727; |
1690 |
T727:; |
T727:; |
1691 |
{object V232 = Cnil; |
{object V232 = Cnil; |
1692 |
VMR18(V232)} |
VMR18(V232)} |
1700 |
object V234; |
object V234; |
1701 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1702 |
bds_check; |
bds_check; |
1703 |
goto TTL; |
goto TTL; |
1704 |
TTL:; |
TTL:; |
1705 |
{register object V235; |
{register object V235; |
1706 |
register object V236; |
register object V236; |
1707 |
V235= (V234); |
V235= (V234); |
1708 |
V236= car((V235)); |
V236= car((V235)); |
1709 |
goto T756; |
goto T756; |
1710 |
T756:; |
T756:; |
1711 |
if(!(endp_prop((V235)))){ |
if(!(endp_prop((V235)))){ |
1712 |
goto T757;} |
goto T757;} |
1713 |
{object V237 = Cnil; |
{object V237 = Cnil; |
1714 |
VMR19(V237)} |
VMR19(V237)} |
1715 |
goto T757; |
goto T757; |
1716 |
T757:; |
T757:; |
1717 |
base[1]= list(2,VV[27],(*(LnkLI114))()); |
base[1]= list(2,VV[27],(*(LnkLI114))()); |
1718 |
bds_bind(VV[21],base[1]); |
bds_bind(VV[21],base[1]); |
1730 |
|
|
1731 |
register object V243;register object V244;register object V245;register object V246; |
register object V243;register object V244;register object V245;register object V246; |
1732 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1733 |
goto TTL; |
goto TTL; |
1734 |
TTL:; |
TTL:; |
1735 |
if((symbol_value(VV[28]))==Cnil){ |
if((symbol_value(VV[28]))==Cnil){ |
1736 |
goto T769;} |
goto T769;} |
1743 |
V247= (*(LnkLI140))((V243)); |
V247= (*(LnkLI140))((V243)); |
1744 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V247)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V247)); |
1745 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1746 |
goto T771; |
goto T771; |
1747 |
T771:; |
T771:; |
1748 |
(void)((*(LnkLI116))((V244))); |
(void)((*(LnkLI116))((V244))); |
1749 |
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
1754 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1755 |
{object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
{object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
1756 |
VMR20(V249)} |
VMR20(V249)} |
1757 |
goto T769; |
goto T769; |
1758 |
T769:; |
T769:; |
1759 |
if(((V245))==Cnil){ |
if(((V245))==Cnil){ |
1760 |
goto T789;} |
goto T789;} |
1767 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V245))); |
1768 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1769 |
goto T792; |
goto T792; |
1770 |
goto T797; |
goto T797; |
1771 |
T797:; |
T797:; |
1772 |
princ_str("\n CMPfuncall(",VV[29]); |
princ_str("\n CMPfuncall(",VV[29]); |
1773 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V245))); |
1774 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1775 |
goto T792; |
goto T792; |
1776 |
goto T794; |
goto T794; |
1777 |
T794:; |
T794:; |
1778 |
princ_str("\n funcall(",VV[29]); |
princ_str("\n funcall(",VV[29]); |
1779 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V245))); |
1780 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1781 |
goto T792; |
goto T792; |
1782 |
T792:; |
T792:; |
1783 |
{object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1784 |
VMR20(V250)} |
VMR20(V250)} |
1785 |
goto T789; |
goto T789; |
1786 |
T789:; |
T789:; |
1787 |
if(((*(LnkLI151))((V244)))==Cnil){ |
if(((*(LnkLI151))((V244)))==Cnil){ |
1788 |
goto T809;} |
goto T809;} |
1798 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V252)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V252)); |
1799 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1800 |
goto T813; |
goto T813; |
1801 |
goto T815; |
goto T815; |
1802 |
T815:; |
T815:; |
1803 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1804 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V245))); |
1806 |
V253= (*(LnkLI140))((V243)); |
V253= (*(LnkLI140))((V243)); |
1807 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V253)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V253)); |
1808 |
princ_str("]->s.s_gfdef);",VV[29]); |
princ_str("]->s.s_gfdef);",VV[29]); |
1809 |
goto T813; |
goto T813; |
1810 |
T813:; |
T813:; |
1811 |
(void)((*(LnkLI120))((V244))); |
(void)((*(LnkLI120))((V244))); |
1812 |
if((symbol_value(VV[21]))==(VV[94])){ |
if((symbol_value(VV[21]))==(VV[94])){ |
1813 |
goto T828;} |
goto T828;} |
1814 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
1815 |
goto T829;} |
goto T829;} |
1816 |
goto T828; |
goto T828; |
1817 |
T828:; |
T828:; |
1818 |
princ_str("\n lispcall",VV[29]); |
princ_str("\n lispcall",VV[29]); |
1819 |
if(((V246))==Cnil){ |
if(((V246))==Cnil){ |
1820 |
goto T835;} |
goto T835;} |
1821 |
princ_str("_no_event",VV[29]); |
princ_str("_no_event",VV[29]); |
1822 |
goto T835; |
goto T835; |
1823 |
T835:; |
T835:; |
1824 |
princ_str("(base+",VV[29]); |
princ_str("(base+",VV[29]); |
1825 |
(void)((*(LnkLI117))((V251))); |
(void)((*(LnkLI117))((V251))); |
1830 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1831 |
{object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1832 |
VMR20(V255)} |
VMR20(V255)} |
1833 |
goto T829; |
goto T829; |
1834 |
T829:; |
T829:; |
1835 |
if(((V246))==Cnil){ |
if(((V246))==Cnil){ |
1836 |
goto T849;} |
goto T849;} |
1837 |
V256= VV[96]; |
V256= VV[96]; |
1838 |
goto T847; |
goto T847; |
1839 |
goto T849; |
goto T849; |
1840 |
T849:; |
T849:; |
1841 |
V256= VV[97]; |
V256= VV[97]; |
1842 |
goto T847; |
goto T847; |
1843 |
T847:; |
T847:; |
1844 |
V257 = make_fixnum((long)length((V244))); |
V257 = make_fixnum((long)length((V244))); |
1845 |
V258= list(4,VV[95],V256,(V251),V257); |
V258= list(4,VV[95],V256,(V251),V257); |
1846 |
{object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258)); |
{object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258)); |
1847 |
VMR20(V259)}} |
VMR20(V259)}} |
1848 |
goto T809; |
goto T809; |
1849 |
T809:; |
T809:; |
1850 |
{object V260; |
{object V260; |
1851 |
V260= symbol_value(VV[19]); |
V260= symbol_value(VV[19]); |
1854 |
goto T852;} |
goto T852;} |
1855 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
1856 |
goto T853;} |
goto T853;} |
1857 |
goto T852; |
goto T852; |
1858 |
T852:; |
T852:; |
1859 |
princ_str("\n symlispcall",VV[29]); |
princ_str("\n symlispcall",VV[29]); |
1860 |
if(((V246))==Cnil){ |
if(((V246))==Cnil){ |
1861 |
goto T859;} |
goto T859;} |
1862 |
princ_str("_no_event",VV[29]); |
princ_str("_no_event",VV[29]); |
1863 |
goto T859; |
goto T859; |
1864 |
T859:; |
T859:; |
1865 |
princ_str("(VV[",VV[29]); |
princ_str("(VV[",VV[29]); |
1866 |
V261= (*(LnkLI140))((V243)); |
V261= (*(LnkLI140))((V243)); |
1874 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1875 |
{object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
{object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
1876 |
VMR20(V263)} |
VMR20(V263)} |
1877 |
goto T853; |
goto T853; |
1878 |
T853:; |
T853:; |
1879 |
if(((V246))==Cnil){ |
if(((V246))==Cnil){ |
1880 |
goto T875;} |
goto T875;} |
1881 |
V264= VV[98]; |
V264= VV[98]; |
1882 |
goto T873; |
goto T873; |
1883 |
goto T875; |
goto T875; |
1884 |
T875:; |
T875:; |
1885 |
V264= VV[99]; |
V264= VV[99]; |
1886 |
goto T873; |
goto T873; |
1887 |
T873:; |
T873:; |
1888 |
V265 = make_fixnum((long)length((V244))); |
V265 = make_fixnum((long)length((V244))); |
1889 |
V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243))); |
V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243))); |