11 |
{register object V2; |
{register object V2; |
12 |
object V3; |
object V3; |
13 |
va_start(ap,first); |
va_start(ap,first); |
|
if(narg <1) too_few_arguments(); |
|
14 |
V2= V1; |
V2= V1; |
15 |
narg = narg - 1; |
narg = narg - 1; |
16 |
if (narg <= 0) goto T1; |
if (narg <= 0) goto T1; |
34 |
VMR1(V5)} |
VMR1(V5)} |
35 |
goto T6; |
goto T6; |
36 |
T6:;{object V6; |
T6:;{object V6; |
37 |
if((get((V2),VV[0],Cnil))!=Cnil){ |
{object V7 =((V2))->s.s_plist; |
38 |
|
object ind= VV[0]; |
39 |
|
while(V7!=Cnil){ |
40 |
|
if(V7->c.c_car==ind){ |
41 |
|
if(((V7->c.c_cdr->c.c_car))!=Cnil){ |
42 |
goto T10;} |
goto T10;} |
43 |
|
goto T11; |
44 |
|
}else V7=V7->c.c_cdr->c.c_cdr;}} |
45 |
|
goto T11; |
46 |
|
T11:; |
47 |
V6= Cnil; |
V6= Cnil; |
48 |
goto T9; |
goto T9; |
49 |
goto T10; |
goto T10; |
52 |
goto T9; |
goto T9; |
53 |
T9:; |
T9:; |
54 |
if(V6==Cnil)goto T8; |
if(V6==Cnil)goto T8; |
55 |
{object V7 = V6; |
{object V8 = V6; |
56 |
VMR1(V7)} |
VMR1(V8)} |
57 |
goto T8; |
goto T8; |
58 |
T8:;} |
T8:;} |
59 |
if((get((V2),VV[1],Cnil))!=Cnil){ |
{object V9 =((V2))->s.s_plist; |
60 |
|
object ind= VV[1]; |
61 |
|
while(V9!=Cnil){ |
62 |
|
if(V9->c.c_car==ind){ |
63 |
|
if(((V9->c.c_cdr->c.c_car))!=Cnil){ |
64 |
goto T12;} |
goto T12;} |
65 |
{object V8 = Cnil; |
goto T13; |
66 |
VMR1(V8)} |
}else V9=V9->c.c_cdr->c.c_cdr;}} |
67 |
|
goto T13; |
68 |
|
T13:; |
69 |
|
{object V10 = Cnil; |
70 |
|
VMR1(V10)} |
71 |
goto T12; |
goto T12; |
72 |
T12:; |
T12:; |
73 |
{object V9; |
{object V11; |
74 |
V9= get((V2),VV[2],Cnil); |
{object V12 =((V2))->s.s_plist; |
75 |
{register object x= (V9),V11= VV[3]; |
object ind= VV[2]; |
76 |
while(!endp(V11)) |
while(V12!=Cnil){ |
77 |
if(eql(x,V11->c.c_car)){ |
if(V12->c.c_car==ind){ |
78 |
V10= V11; |
V11= (V12->c.c_cdr->c.c_car); |
79 |
|
goto T16; |
80 |
|
}else V12=V12->c.c_cdr->c.c_cdr;} |
81 |
|
V11= Cnil;} |
82 |
|
goto T16; |
83 |
|
T16:; |
84 |
|
{register object x= (V11),V14= VV[3]; |
85 |
|
while(V14!=Cnil) |
86 |
|
if(eql(x,V14->c.c_car)){ |
87 |
|
V13= V14; |
88 |
goto T17; |
goto T17; |
89 |
}else V11=V11->c.c_cdr; |
}else V14=V14->c.c_cdr; |
90 |
V10= Cnil;} |
V13= Cnil;} |
91 |
goto T17; |
goto T17; |
92 |
T17:; |
T17:; |
93 |
if((V10)==Cnil){ |
if((V13)==Cnil){ |
94 |
goto T14;}} |
goto T14;}} |
95 |
{object V12 = Cnil; |
{object V15 = Cnil; |
96 |
VMR1(V12)} |
VMR1(V15)} |
97 |
goto T14; |
goto T14; |
98 |
T14:; |
T14:; |
99 |
{register object V13; |
{register object V16; |
100 |
register object V14; |
register object V17; |
101 |
V13= get((V2),VV[4],Cnil); |
{object V18 =((V2))->s.s_plist; |
102 |
V14= car((V13)); |
object ind= VV[4]; |
103 |
|
while(V18!=Cnil){ |
104 |
|
if(V18->c.c_car==ind){ |
105 |
|
V16= (V18->c.c_cdr->c.c_car); |
106 |
|
goto T18; |
107 |
|
}else V18=V18->c.c_cdr->c.c_cdr;} |
108 |
|
V16= Cnil;} |
109 |
|
goto T18; |
110 |
|
T18:; |
111 |
|
V17= CMPcar((V16)); |
112 |
goto T21; |
goto T21; |
113 |
T21:; |
T21:; |
114 |
if(!(endp_prop((V13)))){ |
if(!(((V16))==Cnil)){ |
115 |
goto T22;} |
goto T22;} |
116 |
{object V15 = Ct; |
{object V19 = Ct; |
117 |
VMR1(V15)} |
VMR1(V19)} |
118 |
goto T22; |
goto T22; |
119 |
T22:; |
T22:; |
120 |
if(!(((V14))==(VV[5]))){ |
if(!(((V17))==(VV[5]))){ |
121 |
goto T27;} |
goto T27;} |
122 |
goto T26; |
goto T26; |
123 |
goto T27; |
goto T27; |
124 |
T27:;{object V16; |
T27:;{object V20; |
125 |
{register object V17; |
{register object V21; |
126 |
V17= (V14); |
V21= (V17); |
127 |
{register object x= (V17),V19= VV[3]; |
{register object x= (V21),V23= VV[3]; |
128 |
while(!endp(V19)) |
while(V23!=Cnil) |
129 |
if(eql(x,V19->c.c_car)){ |
if(eql(x,V23->c.c_car)){ |
130 |
V18= V19; |
V22= V23; |
131 |
goto T31; |
goto T31; |
132 |
}else V19=V19->c.c_cdr; |
}else V23=V23->c.c_cdr; |
133 |
V18= Cnil;} |
V22= Cnil;} |
134 |
goto T31; |
goto T31; |
135 |
T31:; |
T31:; |
136 |
V16= ((V18)==Cnil?Ct:Cnil);} |
V20= ((V22)==Cnil?Ct:Cnil);} |
137 |
if(V16==Cnil)goto T29; |
if(V20==Cnil)goto T29; |
138 |
goto T26; |
goto T26; |
139 |
goto T29; |
goto T29; |
140 |
T29:;} |
T29:;} |
141 |
{object V20 = Cnil; |
{object V24 = Cnil; |
142 |
VMR1(V20)} |
VMR1(V24)} |
143 |
goto T26; |
goto T26; |
144 |
T26:; |
T26:; |
145 |
V13= cdr((V13)); |
V16= CMPcdr((V16)); |
146 |
V14= car((V13)); |
V17= CMPcar((V16)); |
147 |
goto T21;} |
goto T21;} |
148 |
va_end(ap); |
va_end(ap); |
149 |
base[0]=base[0]; |
base[0]=base[0]; |
151 |
} |
} |
152 |
/* local entry for function CMP-MACRO-FUNCTION */ |
/* local entry for function CMP-MACRO-FUNCTION */ |
153 |
|
|
154 |
static object LI2(V22) |
static object LI2(V26) |
155 |
|
|
156 |
object V22; |
object V26; |
157 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
158 |
goto TTL; |
goto TTL; |
159 |
TTL:; |
TTL:; |
160 |
{object V23; |
{object V27; |
161 |
V23= Cnil; |
V27= Cnil; |
162 |
V23= (*(LnkLI100))((V22)); |
V27= (*(LnkLI100))((V26)); |
163 |
if(((V23))==Cnil){ |
if(((V27))==Cnil){ |
164 |
goto T39;} |
goto T39;} |
165 |
if(!((car((V23)))==(VV[6]))){ |
if(!((CMPcar((V27)))==(VV[6]))){ |
166 |
goto T43;} |
goto T43;} |
167 |
{object V24 = Cnil; |
{object V28 = Cnil; |
168 |
VMR2(V24)} |
VMR2(V28)} |
169 |
goto T43; |
goto T43; |
170 |
T43:; |
T43:; |
171 |
{object V25 = (V23); |
{object V29 = (V27); |
172 |
VMR2(V25)} |
VMR2(V29)} |
173 |
goto T39; |
goto T39; |
174 |
T39:; |
T39:; |
175 |
base[0]= (V22); |
base[0]= (V26); |
176 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
177 |
Lmacro_function(); |
Lmacro_function(); |
178 |
vs_top=sup; |
vs_top=sup; |
179 |
{object V26 = vs_base[0]; |
{object V30 = vs_base[0]; |
180 |
VMR2(V26)}} |
VMR2(V30)}} |
181 |
base[0]=base[0]; |
base[0]=base[0]; |
182 |
return Cnil; |
return Cnil; |
183 |
} |
} |
184 |
/* local entry for function C1FUNOB */ |
/* local entry for function C1FUNOB */ |
185 |
|
|
186 |
static object LI3(V28) |
static object LI3(V32) |
187 |
|
|
188 |
register object V28; |
register object V32; |
189 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
190 |
bds_check; |
bds_check; |
191 |
goto TTL; |
goto TTL; |
192 |
TTL:; |
TTL:; |
193 |
{register object V29; |
{register object V33; |
194 |
V29= Cnil; |
V33= Cnil; |
195 |
if(!(type_of((V28))==t_cons)){ |
if(!(type_of((V32))==t_cons)){ |
196 |
goto T47;} |
goto T47;} |
197 |
if(!(type_of(car((V28)))==t_symbol)){ |
if(!(type_of(CMPcar((V32)))==t_symbol)){ |
198 |
goto T47;} |
goto T47;} |
199 |
if(((*(LnkLI101))(car((V28))))==Cnil){ |
if(((*(LnkLI101))(CMPcar((V32))))==Cnil){ |
200 |
goto T47;} |
goto T47;} |
201 |
V28= (*(LnkLI102))((V28)); |
V32= (*(LnkLI102))((V32)); |
202 |
goto T47; |
goto T47; |
203 |
T47:;{object V30; |
T47:;{object V34; |
204 |
if(type_of((V28))==t_cons){ |
if(type_of((V32))==t_cons){ |
205 |
goto T57;} |
goto T57;} |
206 |
V30= Cnil; |
V34= Cnil; |
207 |
goto T56; |
goto T56; |
208 |
goto T57; |
goto T57; |
209 |
T57:;{object V31; |
T57:;{object V35; |
210 |
if((car((V28)))==(VV[7])){ |
if((CMPcar((V32)))==(VV[7])){ |
211 |
goto T61;} |
goto T61;} |
212 |
V31= Cnil; |
V35= Cnil; |
213 |
goto T60; |
goto T60; |
214 |
goto T61; |
goto T61; |
215 |
T61:; |
T61:; |
216 |
if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){ |
if((((CMPcdr((V32)))==Cnil?Ct:Cnil))==Cnil){ |
217 |
goto T63;} |
goto T63;} |
218 |
V31= Cnil; |
V35= Cnil; |
219 |
goto T60; |
goto T60; |
220 |
goto T63; |
goto T63; |
221 |
T63:; |
T63:; |
222 |
if(endp_prop(cddr((V28)))){ |
if((CMPcddr((V32)))==Cnil){ |
223 |
goto T65;} |
goto T65;} |
224 |
V31= Cnil; |
V35= Cnil; |
225 |
goto T60; |
goto T60; |
226 |
goto T65; |
goto T65; |
227 |
T65:;{object V32; |
T65:;{object V36; |
228 |
if(type_of(cadr((V28)))==t_cons){ |
if(type_of(CMPcadr((V32)))==t_cons){ |
229 |
goto T69;} |
goto T69;} |
230 |
V32= Cnil; |
V36= Cnil; |
231 |
goto T68; |
goto T68; |
232 |
goto T69; |
goto T69; |
233 |
T69:; |
T69:; |
234 |
if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){ |
if((((CMPcdadr((V32)))==Cnil?Ct:Cnil))==Cnil){ |
235 |
goto T71;} |
goto T71;} |
236 |
V32= Cnil; |
V36= Cnil; |
237 |
goto T68; |
goto T68; |
238 |
goto T71; |
goto T71; |
239 |
T71:; |
T71:; |
240 |
if((caadr((V28)))==(VV[8])){ |
if((CMPcaadr((V32)))==(VV[8])){ |
241 |
goto T73;} |
goto T73;} |
242 |
V32= Cnil; |
V36= Cnil; |
243 |
goto T68; |
goto T68; |
244 |
goto T73; |
goto T73; |
245 |
T73:; |
T73:; |
247 |
bds_bind(VV[10],Cnil); |
bds_bind(VV[10],Cnil); |
248 |
bds_bind(VV[11],Cnil); |
bds_bind(VV[11],Cnil); |
249 |
bds_bind(VV[12],Cnil); |
bds_bind(VV[12],Cnil); |
250 |
{object V33; |
{object V37; |
251 |
V33= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28)))); |
V37= (VFUN_NARGS=1,(*(LnkLI103))(CMPcdadr((V32)))); |
252 |
V34= list(3,VV[13],cadr((V33)),(V33)); |
V38= list(3,VV[13],CMPcadr((V37)),(V37)); |
253 |
bds_unwind1; |
bds_unwind1; |
254 |
bds_unwind1; |
bds_unwind1; |
255 |
bds_unwind1; |
bds_unwind1; |
256 |
bds_unwind1; |
bds_unwind1; |
257 |
V32= V34;} |
V36= V38;} |
258 |
goto T68; |
goto T68; |
259 |
T68:; |
T68:; |
260 |
if(V32==Cnil)goto T67; |
if(V36==Cnil)goto T67; |
261 |
V31= V32; |
V35= V36; |
262 |
goto T60; |
goto T60; |
263 |
goto T67; |
goto T67; |
264 |
T67:;} |
T67:;} |
265 |
if(type_of(cadr((V28)))==t_symbol){ |
if(type_of(CMPcadr((V32)))==t_symbol){ |
266 |
goto T76;} |
goto T76;} |
267 |
V31= Cnil; |
V35= Cnil; |
268 |
goto T60; |
goto T60; |
269 |
goto T76; |
goto T76; |
270 |
T76:;{object V35; |
T76:;{object V39; |
271 |
V29= (*(LnkLI100))(cadr((V28))); |
V33= (*(LnkLI100))(CMPcadr((V32))); |
272 |
if(((V29))!=Cnil){ |
if(((V33))!=Cnil){ |
273 |
goto T80;} |
goto T80;} |
274 |
V35= Cnil; |
V39= Cnil; |
275 |
goto T79; |
goto T79; |
276 |
goto T80; |
goto T80; |
277 |
T80:; |
T80:; |
278 |
if((car((V29)))==(VV[6])){ |
if((CMPcar((V33)))==(VV[6])){ |
279 |
goto T83;} |
goto T83;} |
280 |
V35= Cnil; |
V39= Cnil; |
281 |
goto T79; |
goto T79; |
282 |
goto T83; |
goto T83; |
283 |
T83:; |
T83:; |
284 |
V35= (V29); |
V39= (V33); |
285 |
goto T79; |
goto T79; |
286 |
T79:; |
T79:; |
287 |
if(V35==Cnil)goto T78; |
if(V39==Cnil)goto T78; |
288 |
V31= V35; |
V35= V39; |
289 |
goto T60; |
goto T60; |
290 |
goto T78; |
goto T78; |
291 |
T78:;} |
T78:;} |
292 |
V36= get(cadr((V28)),VV[16],Cnil); |
{object V41 =(CMPcadr((V32)))->s.s_plist; |
293 |
V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil))); |
object ind= VV[16]; |
294 |
V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28))); |
while(V41!=Cnil){ |
295 |
|
if(V41->c.c_car==ind){ |
296 |
|
V40= (V41->c.c_cdr->c.c_car); |
297 |
|
goto T85; |
298 |
|
}else V41=V41->c.c_cdr->c.c_cdr;} |
299 |
|
V40= Cnil;} |
300 |
|
goto T85; |
301 |
|
T85:; |
302 |
|
V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V40)==Cnil?Ct:Cnil))); |
303 |
|
V35= list(3,VV[14],/* INLINE-ARGS */V42,CMPcadr((V32))); |
304 |
goto T60; |
goto T60; |
305 |
T60:; |
T60:; |
306 |
if(V31==Cnil)goto T59; |
if(V35==Cnil)goto T59; |
307 |
V30= V31; |
V34= V35; |
308 |
goto T56; |
goto T56; |
309 |
goto T59; |
goto T59; |
310 |
T59:;} |
T59:;} |
311 |
if((car((V28)))==(VV[17])){ |
if((CMPcar((V32)))==(VV[17])){ |
312 |
goto T86;} |
goto T86;} |
313 |
V30= Cnil; |
V34= Cnil; |
314 |
goto T56; |
goto T56; |
315 |
goto T86; |
goto T86; |
316 |
T86:; |
T86:; |
317 |
if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){ |
if((((CMPcdr((V32)))==Cnil?Ct:Cnil))==Cnil){ |
318 |
goto T88;} |
goto T88;} |
319 |
V30= Cnil; |
V34= Cnil; |
320 |
goto T56; |
goto T56; |
321 |
goto T88; |
goto T88; |
322 |
T88:; |
T88:; |
323 |
if(endp_prop(cddr((V28)))){ |
if((CMPcddr((V32)))==Cnil){ |
324 |
goto T90;} |
goto T90;} |
325 |
V30= Cnil; |
V34= Cnil; |
326 |
goto T56; |
goto T56; |
327 |
goto T90; |
goto T90; |
328 |
T90:;{object V38; |
T90:;{object V43; |
329 |
if(type_of(cadr((V28)))==t_cons){ |
if(type_of(CMPcadr((V32)))==t_cons){ |
330 |
goto T94;} |
goto T94;} |
331 |
V38= Cnil; |
V43= Cnil; |
332 |
goto T93; |
goto T93; |
333 |
goto T94; |
goto T94; |
334 |
T94:; |
T94:; |
335 |
if((caadr((V28)))==(VV[8])){ |
if((CMPcaadr((V32)))==(VV[8])){ |
336 |
goto T96;} |
goto T96;} |
337 |
V38= Cnil; |
V43= Cnil; |
338 |
goto T93; |
goto T93; |
339 |
goto T96; |
goto T96; |
340 |
T96:; |
T96:; |
341 |
if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){ |
if((((CMPcdadr((V32)))==Cnil?Ct:Cnil))==Cnil){ |
342 |
goto T98;} |
goto T98;} |
343 |
V38= Cnil; |
V43= Cnil; |
344 |
goto T93; |
goto T93; |
345 |
goto T98; |
goto T98; |
346 |
T98:; |
T98:; |
347 |
{object V39; |
{object V44; |
348 |
V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28)))); |
V44= (VFUN_NARGS=1,(*(LnkLI103))(CMPcdadr((V32)))); |
349 |
V38= list(3,VV[13],cadr((V39)),(V39));} |
V43= list(3,VV[13],CMPcadr((V44)),(V44));} |
350 |
goto T93; |
goto T93; |
351 |
T93:; |
T93:; |
352 |
if(V38==Cnil)goto T92; |
if(V43==Cnil)goto T92; |
353 |
V30= V38; |
V34= V43; |
354 |
goto T56; |
goto T56; |
355 |
goto T92; |
goto T92; |
356 |
T92:;} |
T92:;} |
357 |
if(type_of(cadr((V28)))==t_symbol){ |
if(type_of(CMPcadr((V32)))==t_symbol){ |
358 |
goto T101;} |
goto T101;} |
359 |
V30= Cnil; |
V34= Cnil; |
360 |
goto T56; |
goto T56; |
361 |
goto T101; |
goto T101; |
362 |
T101:;{object V40; |
T101:;{object V45; |
363 |
V29= (*(LnkLI100))(cadr((V28))); |
V33= (*(LnkLI100))(CMPcadr((V32))); |
364 |
if(((V29))!=Cnil){ |
if(((V33))!=Cnil){ |
365 |
goto T105;} |
goto T105;} |
366 |
V40= Cnil; |
V45= Cnil; |
367 |
goto T104; |
goto T104; |
368 |
goto T105; |
goto T105; |
369 |
T105:; |
T105:; |
370 |
if((car((V29)))==(VV[6])){ |
if((CMPcar((V33)))==(VV[6])){ |
371 |
goto T108;} |
goto T108;} |
372 |
V40= Cnil; |
V45= Cnil; |
373 |
goto T104; |
goto T104; |
374 |
goto T108; |
goto T108; |
375 |
T108:; |
T108:; |
376 |
V40= (V29); |
V45= (V33); |
377 |
goto T104; |
goto T104; |
378 |
T104:; |
T104:; |
379 |
if(V40==Cnil)goto T103; |
if(V45==Cnil)goto T103; |
380 |
V30= V40; |
V34= V45; |
381 |
goto T56; |
goto T56; |
382 |
goto T103; |
goto T103; |
383 |
T103:;} |
T103:;} |
384 |
V41= get(cadr((V28)),VV[16],Cnil); |
{object V47 =(CMPcadr((V32)))->s.s_plist; |
385 |
V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil))); |
object ind= VV[16]; |
386 |
V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28))); |
while(V47!=Cnil){ |
387 |
|
if(V47->c.c_car==ind){ |
388 |
|
V46= (V47->c.c_cdr->c.c_car); |
389 |
|
goto T110; |
390 |
|
}else V47=V47->c.c_cdr->c.c_cdr;} |
391 |
|
V46= Cnil;} |
392 |
|
goto T110; |
393 |
|
T110:; |
394 |
|
V48= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V46)==Cnil?Ct:Cnil))); |
395 |
|
V34= list(3,VV[14],/* INLINE-ARGS */V48,CMPcadr((V32))); |
396 |
goto T56; |
goto T56; |
397 |
T56:; |
T56:; |
398 |
if(V30==Cnil)goto T55; |
if(V34==Cnil)goto T55; |
399 |
{object V43 = V30; |
{object V49 = V34; |
400 |
VMR3(V43)} |
VMR3(V49)} |
401 |
goto T55; |
goto T55; |
402 |
T55:;} |
T55:;} |
403 |
{object V44; |
{object V50; |
404 |
object V45; |
object V51; |
405 |
V44= (*(LnkLI105))((V28)); |
V50= (*(LnkLI105))((V32)); |
406 |
V45= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],Ct)); |
V51= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],Ct)); |
407 |
(void)((*(LnkLI106))((V45),cadr((V44)))); |
(void)((*(LnkLI106))((V51),CMPcadr((V50)))); |
408 |
{object V46 = list(3,VV[18],(V45),(V44)); |
{object V52 = list(3,VV[18],(V51),(V50)); |
409 |
VMR3(V46)}}} |
VMR3(V52)}}} |
410 |
base[0]=base[0]; |
base[0]=base[0]; |
411 |
return Cnil; |
return Cnil; |
412 |
} |
} |
413 |
/* local entry for function C2FUNCALL-AUX */ |
/* local entry for function C2FUNCALL-AUX */ |
414 |
|
|
415 |
static object LI4(V48) |
static object LI4(V54) |
416 |
|
|
417 |
register object V48; |
register object V54; |
418 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
419 |
goto TTL; |
goto TTL; |
420 |
TTL:; |
TTL:; |
421 |
{object V49; |
{object V55; |
422 |
object V50; |
object V56; |
423 |
object V51; |
object V57; |
424 |
object V52; |
object V58; |
425 |
V49= cadr((V48)); |
V55= CMPcadr((V54)); |
426 |
V50= caddr((V48)); |
V56= CMPcaddr((V54)); |
427 |
V51= cadddr((V48)); |
V57= CMPcadddr((V54)); |
428 |
V52= car(cddddr((V48))); |
V58= CMPcar(CMPcddddr((V54))); |
429 |
{object V53 = (VFUN_NARGS=4,(*(LnkLI107))((V50),(V51),(V52),(V49))); |
{object V59 = (VFUN_NARGS=4,(*(LnkLI107))((V56),(V57),(V58),(V55))); |
430 |
VMR4(V53)}} |
VMR4(V59)}} |
431 |
base[0]=base[0]; |
base[0]=base[0]; |
432 |
return Cnil; |
return Cnil; |
433 |
} |
} |
434 |
/* local entry for function C2FUNCALL */ |
/* local entry for function C2FUNCALL */ |
435 |
|
|
436 |
static object LI5(object V55,object V54,object first,...) |
static object LI5(object V61,object V60,object first,...) |
437 |
{ |
{ |
438 |
va_list ap; |
va_list ap; |
439 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
440 |
bds_check; |
bds_check; |
441 |
{register object V56; |
{register object V62; |
442 |
register object V57; |
register object V63; |
443 |
register object V58; |
register object V64; |
444 |
object V59; |
object V65; |
445 |
va_start(ap,first); |
va_start(ap,first); |
446 |
if(narg <2) too_few_arguments(); |
V62= V61; |
447 |
V56= V55; |
V63= V60; |
|
V57= V54; |
|
448 |
narg = narg - 2; |
narg = narg - 2; |
449 |
if (narg <= 0) goto T118; |
if (narg <= 0) goto T118; |
450 |
else { |
else { |
451 |
V58= first;} |
V64= first;} |
452 |
if (--narg <= 0) goto T119; |
if (--narg <= 0) goto T119; |
453 |
else { |
else { |
454 |
V59= va_arg(ap,object);} |
V65= va_arg(ap,object);} |
455 |
--narg; goto T120; |
--narg; goto T120; |
456 |
goto T118; |
goto T118; |
457 |
T118:; |
T118:; |
458 |
V58= Cnil; |
V64= Cnil; |
459 |
goto T119; |
goto T119; |
460 |
T119:; |
T119:; |
461 |
V59= Cnil; |
V65= Cnil; |
462 |
goto T120; |
goto T120; |
463 |
T120:; |
T120:; |
464 |
{object V60= car((V56)); |
{object V66= CMPcar((V62)); |
465 |
if((V60!= VV[14]))goto T123; |
if((V66!= VV[14]))goto T123; |
466 |
{object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct); |
{object V67 = (*(LnkLI108))(CMPcaddr((V62)),(V63),(V64),Ct); |
467 |
VMR5(V61)} |
VMR5(V67)} |
468 |
goto T123; |
goto T123; |
469 |
T123:; |
T123:; |
470 |
if((V60!= VV[6]))goto T124; |
if((V66!= VV[6]))goto T124; |
471 |
{object V62 = (*(LnkLI109))(cddr((V56)),(V57)); |
{object V68 = (*(LnkLI109))(CMPcddr((V62)),(V63)); |
472 |
VMR5(V62)} |
VMR5(V68)} |
473 |
goto T124; |
goto T124; |
474 |
T124:; |
T124:; |
475 |
if((V60!= VV[13]))goto T125; |
if((V66!= VV[13]))goto T125; |
476 |
{object V63 = (*(LnkLI110))(caddr((V56)),(V57)); |
{object V69 = (*(LnkLI110))(CMPcaddr((V62)),(V63)); |
477 |
VMR5(V63)} |
VMR5(V69)} |
478 |
goto T125; |
goto T125; |
479 |
T125:; |
T125:; |
480 |
if((V60!= VV[18]))goto T126; |
if((V66!= VV[18]))goto T126; |
481 |
{register object V64; |
{register object V70; |
482 |
base[0]= symbol_value(VV[19]); |
base[0]= (VV[19]->s.s_dbind); |
483 |
V64= caddr((V56)); |
V70= CMPcaddr((V62)); |
484 |
bds_bind(VV[19],base[0]); |
bds_bind(VV[19],base[0]); |
485 |
if(!(type_of((V57))==t_cons||((V57))==Cnil)){ |
if(!(type_of((V63))==t_cons||((V63))==Cnil)){ |
486 |
goto T129;} |
goto T129;} |
487 |
if((symbol_value(VV[20]))==Cnil){ |
if(((VV[20]->s.s_dbind))==Cnil){ |
488 |
goto T129;} |
goto T129;} |
489 |
if((symbol_value(VV[21]))==(VV[22])){ |
if(((VV[21]->s.s_dbind))==(VV[22])){ |
490 |
goto T130;} |
goto T130;} |
491 |
if(!(type_of(symbol_value(VV[21]))==t_cons)){ |
if(!(type_of((VV[21]->s.s_dbind))==t_cons)){ |
492 |
goto T137;} |
goto T137;} |
493 |
if((car(symbol_value(VV[21])))==(VV[23])){ |
if((CMPcar((VV[21]->s.s_dbind)))==(VV[23])){ |
494 |
goto T130;} |
goto T130;} |
495 |
goto T137; |
goto T137; |
496 |
T137:; |
T137:; |
497 |
if(((V59))==Cnil){ |
if(((V65))==Cnil){ |
498 |
goto T129;} |
goto T129;} |
499 |
V65= structure_ref((V59),VV[24],2); |
if(!(equal(STREF(object,(V65),8),VV[25]))){ |
|
if(!(equal(/* INLINE-ARGS */V65,VV[25]))){ |
|
500 |
goto T129;} |
goto T129;} |
501 |
goto T130; |
goto T130; |
502 |
T130:; |
T130:; |
503 |
(void)((*(LnkLI111))((V64),(V57),(V59))); |
(void)((*(LnkLI111))((V70),(V63),(V65))); |
504 |
{object V66 = Cnil; |
{object V71 = Cnil; |
505 |
bds_unwind1; |
bds_unwind1; |
506 |
VMR5(V66)} |
VMR5(V71)} |
507 |
goto T129; |
goto T129; |
508 |
T129:; |
T129:; |
509 |
if(((V58))!=Cnil){ |
if(((V64))!=Cnil){ |
510 |
goto T145;} |
goto T145;} |
511 |
if(type_of((V57))==t_cons||((V57))==Cnil){ |
if(type_of((V63))==t_cons||((V63))==Cnil){ |
512 |
goto T148;} |
goto T148;} |
513 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
514 |
goto T148; |
goto T148; |
515 |
T148:; |
T148:; |
516 |
if(!((car((V64)))==(VV[26]))){ |
if(!((CMPcar((V70)))==(VV[26]))){ |
517 |
goto T152;} |
goto T152;} |
518 |
V58= caddr((V64)); |
V64= CMPcaddr((V70)); |
519 |
goto T145; |
goto T145; |
520 |
goto T152; |
goto T152; |
521 |
T152:; |
T152:; |
522 |
if(!((car((V64)))==(VV[23]))){ |
if(!((CMPcar((V70)))==(VV[23]))){ |
523 |
goto T156;} |
goto T156;} |
524 |
if(((*(LnkLI113))(caaddr((V64)),(V57)))!=Cnil){ |
if(((*(LnkLI113))(CMPcaaddr((V70)),(V63)))!=Cnil){ |
525 |
goto T156;} |
goto T156;} |
526 |
V58= make_cons(VV[23],caddr((V64))); |
V64= make_cons(VV[23],CMPcaddr((V70))); |
527 |
goto T145; |
goto T145; |
528 |
goto T156; |
goto T156; |
529 |
T156:; |
T156:; |
530 |
V58= list(2,VV[27],(*(LnkLI114))()); |
V64= list(2,VV[27],(*(LnkLI114))()); |
531 |
bds_bind(VV[21],(V58)); |
bds_bind(VV[21],(V64)); |
532 |
V67= (*(LnkLI115))(caddr((V56))); |
V72= (*(LnkLI115))(CMPcaddr((V62))); |
533 |
bds_unwind1; |
bds_unwind1; |
534 |
goto T145; |
goto T145; |
535 |
T145:; |
T145:; |
536 |
(void)((*(LnkLI116))((V57))); |
(void)((*(LnkLI116))((V63))); |
537 |
if((symbol_value(VV[28]))==Cnil){ |
if(((VV[28]->s.s_dbind))==Cnil){ |
538 |
goto T166;} |
goto T166;} |
539 |
princ_str("\n super_funcall(",VV[29]); |
princ_str("\n super_funcall(",VV[29]); |
540 |
(void)((*(LnkLI117))((V58))); |
(void)((*(LnkLI117))((V64))); |
541 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
542 |
goto T164; |
goto T164; |
543 |
goto T166; |
goto T166; |
544 |
T166:; |
T166:; |
545 |
if((symbol_value(VV[30]))==Cnil){ |
if(((VV[30]->s.s_dbind))==Cnil){ |
546 |
goto T172;} |
goto T172;} |
547 |
(void)(( |
(void)(( |
548 |
(type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)): |
(type_of((VV[30]->s.s_dbind)) == t_sfun ?(*(((VV[30]->s.s_dbind))->sfn.sfn_self)): |
549 |
(fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58)))); |
(fcall.argd=1,type_of((VV[30]->s.s_dbind))==t_vfun) ? |
550 |
|
(*(((VV[30]->s.s_dbind))->sfn.sfn_self)): |
551 |
|
(fcall.fun=((VV[30]->s.s_dbind)),fcalln))((V64)))); |
552 |
goto T164; |
goto T164; |
553 |
goto T172; |
goto T172; |
554 |
T172:; |
T172:; |
555 |
princ_str("\n super_funcall_no_event(",VV[29]); |
princ_str("\n super_funcall_no_event(",VV[29]); |
556 |
(void)((*(LnkLI117))((V58))); |
(void)((*(LnkLI117))((V64))); |
557 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
558 |
goto T164; |
goto T164; |
559 |
T164:; |
T164:; |
560 |
{object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V73 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
561 |
bds_unwind1; |
bds_unwind1; |
562 |
VMR5(V68)}} |
VMR5(V73)}} |
563 |
goto T126; |
goto T126; |
564 |
T126:; |
T126:; |
565 |
{object V69 = (*(LnkLI112))(); |
{object V74 = (*(LnkLI112))(); |
566 |
VMR5(V69)}} |
VMR5(V74)}} |
567 |
va_end(ap); |
va_end(ap); |
568 |
base[0]=base[0]; |
base[0]=base[0]; |
569 |
return Cnil;} |
return Cnil;} |
574 |
{ |
{ |
575 |
va_list ap; |
va_list ap; |
576 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
577 |
{register object V70; |
{register object V75; |
578 |
va_start(ap,first); |
va_start(ap,first); |
579 |
narg= narg - 0; |
narg= narg - 0; |
580 |
V71 = list_vector_new(narg,first,ap); |
V76 = list_vector_new(narg,first,ap); |
581 |
V70= V71; |
V75= V76; |
582 |
{register object V72; |
{register object V77; |
583 |
object V73; |
object V78; |
584 |
V72= car((V70)); |
V77= CMPcar((V75)); |
585 |
V73= Cnil; |
V78= Cnil; |
586 |
(void)((*(LnkLI117))(VV[32])); |
(void)((*(LnkLI117))(VV[32])); |
587 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V77))==t_cons)){ |
588 |
goto T182;} |
goto T182;} |
589 |
if((car((V72)))==(VV[23])){ |
if((CMPcar((V77)))==(VV[23])){ |
590 |
goto T181;} |
goto T181;} |
591 |
goto T182; |
goto T182; |
592 |
T182:; |
T182:; |
593 |
V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))())); |
V77= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))())); |
594 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
595 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V77))); |
596 |
princ_str(" = ",VV[29]); |
princ_str(" = ",VV[29]); |
597 |
(void)((*(LnkLI117))(car((V70)))); |
(void)((*(LnkLI117))(CMPcar((V75)))); |
598 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
599 |
goto T181; |
goto T181; |
600 |
T181:; |
T181:; |
601 |
princ_str("\n (type_of(",VV[29]); |
princ_str("\n (type_of(",VV[29]); |
602 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V77))); |
603 |
princ_str(") == t_sfun ?",VV[29]); |
princ_str(") == t_sfun ?",VV[29]); |
604 |
princ_str("(*((",VV[29]); |
princ_str("(*((",VV[29]); |
605 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V77))); |
606 |
princ_str(")->sfn.sfn_self)):",VV[29]); |
princ_str(")->sfn.sfn_self)):",VV[29]); |
607 |
if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){ |
if(!(number_compare((VV[34]->s.s_dbind),small_fixnum(3))<0)){ |
608 |
goto T200;} |
goto T200;} |
609 |
V73= Ct; |
V78= Ct; |
610 |
princ_str("\n (fcall.argd=",VV[29]); |
princ_str("\n (fcall.argd=",VV[29]); |
611 |
V74 = make_fixnum((long)length(cdr((V70)))); |
V79 = CMPmake_fixnum((long)length(CMPcdr((V75)))); |
612 |
(void)((*(LnkLI117))(V74)); |
(void)((*(LnkLI117))(V79)); |
613 |
princ_str(",type_of(",VV[29]); |
princ_str(",type_of(",VV[29]); |
614 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V77))); |
615 |
princ_str(")==t_vfun) ?",VV[29]); |
princ_str(")==t_vfun) ?",VV[29]); |
616 |
princ_str("\n (*((",VV[29]); |
princ_str("\n (*((",VV[29]); |
617 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V77))); |
618 |
princ_str(")->sfn.sfn_self)):",VV[29]); |
princ_str(")->sfn.sfn_self)):",VV[29]); |
619 |
goto T200; |
goto T200; |
620 |
T200:; |
T200:; |
621 |
princ_str("\n (fcall.fun=(",VV[29]); |
princ_str("\n (fcall.fun=(",VV[29]); |
622 |
(void)((*(LnkLI117))((V72))); |
(void)((*(LnkLI117))((V77))); |
623 |
princ_str("),",VV[29]); |
princ_str("),",VV[29]); |
624 |
if(((V73))!=Cnil){ |
if(((V78))!=Cnil){ |
625 |
goto T218;} |
goto T218;} |
626 |
princ_str("fcall.argd=",VV[29]); |
princ_str("fcall.argd=",VV[29]); |
627 |
V75 = make_fixnum((long)length(cdr((V70)))); |
V80 = CMPmake_fixnum((long)length(CMPcdr((V75)))); |
628 |
(void)((*(LnkLI117))(V75)); |
(void)((*(LnkLI117))(V80)); |
629 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
630 |
goto T218; |
goto T218; |
631 |
T218:; |
T218:; |
632 |
princ_str("fcalln))(",VV[29]); |
princ_str("fcalln))(",VV[29]); |
633 |
if((cdr((V70)))==Cnil){ |
if((CMPcdr((V75)))==Cnil){ |
634 |
goto T226;} |
goto T226;} |
635 |
(void)((*(LnkLI117))(cadr((V70)))); |
(void)((*(LnkLI117))(CMPcadr((V75)))); |
636 |
{register object V76; |
{register object V81; |
637 |
register object V77; |
register object V82; |
638 |
V76= cddr((V70)); |
V81= CMPcddr((V75)); |
639 |
V77= car((V76)); |
V82= CMPcar((V81)); |
640 |
goto T234; |
goto T234; |
641 |
T234:; |
T234:; |
642 |
if(!(endp_prop((V76)))){ |
if(!(((V81))==Cnil)){ |
643 |
goto T235;} |
goto T235;} |
644 |
goto T226; |
goto T226; |
645 |
goto T235; |
goto T235; |
646 |
T235:; |
T235:; |
647 |
(void)((*(LnkLI117))(VV[35])); |
(void)((*(LnkLI117))(VV[35])); |
648 |
(void)((*(LnkLI117))((V77))); |
(void)((*(LnkLI117))((V82))); |
649 |
V76= cdr((V76)); |
V81= CMPcdr((V81)); |
650 |
V77= car((V76)); |
V82= CMPcar((V81)); |
651 |
goto T234;} |
goto T234;} |
652 |
goto T226; |
goto T226; |
653 |
T226:; |
T226:; |
654 |
(void)((*(LnkLI117))(VV[36])); |
(void)((*(LnkLI117))(VV[36])); |
655 |
(void)((*(LnkLI117))(VV[36])); |
(void)((*(LnkLI117))(VV[36])); |
656 |
{object V78 = Cnil; |
{object V83 = Cnil; |
657 |
VMR6(V78)}} |
VMR6(V83)}} |
658 |
va_end(ap); |
va_end(ap); |
659 |
base[0]=base[0]; |
base[0]=base[0]; |
660 |
return Cnil;} |
return Cnil;} |
661 |
} |
} |
662 |
/* local entry for function C2CALL-LAMBDA */ |
/* local entry for function C2CALL-LAMBDA */ |
663 |
|
|
664 |
static object LI7(V81,V82) |
static object LI7(V86,V87) |
665 |
|
|
666 |
object V81;register object V82; |
object V86;register object V87; |
667 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
668 |
bds_check; |
bds_check; |
669 |
goto TTL; |
goto TTL; |
670 |
TTL:; |
TTL:; |
671 |
{register object V83; |
{register object V88; |
672 |
V83= caddr((V81)); |
V88= CMPcaddr((V86)); |
673 |
if((cadr((V83)))!=Cnil){ |
if((CMPcadr((V88)))!=Cnil){ |
674 |
goto T250;} |
goto T250;} |
675 |
if((caddr((V83)))!=Cnil){ |
if((CMPcaddr((V88)))!=Cnil){ |
676 |
goto T250;} |
goto T250;} |
677 |
if((cadddr((V83)))!=Cnil){ |
if((CMPcadddr((V88)))!=Cnil){ |
678 |
goto T250;} |
goto T250;} |
679 |
if(type_of((V82))==t_cons||((V82))==Cnil){ |
if(type_of((V87))==t_cons||((V87))==Cnil){ |
680 |
goto T251;} |
goto T251;} |
681 |
goto T250; |
goto T250; |
682 |
T250:; |
T250:; |
683 |
if(!(type_of((V82))==t_cons||((V82))==Cnil)){ |
if(!(type_of((V87))==t_cons||((V87))==Cnil)){ |
684 |
goto T259;} |
goto T259;} |
685 |
{object V84; |
{object V89; |
686 |
V84= symbol_value(VV[19]); |
V89= (VV[19]->s.s_dbind); |
687 |
bds_bind(VV[19],symbol_value(VV[19])); |
bds_bind(VV[19],(VV[19]->s.s_dbind)); |
688 |
(void)((*(LnkLI120))((V82))); |
(void)((*(LnkLI120))((V87))); |
689 |
if(((*(LnkLI121))((V83)))==Cnil){ |
if(((*(LnkLI121))((V88)))==Cnil){ |
690 |
bds_unwind1; |
bds_unwind1; |
691 |
goto T259;} |
goto T259;} |
692 |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
693 |
(void)((*(LnkLI117))((V84))); |
(void)((*(LnkLI117))((V89))); |
694 |
princ_str(")+",VV[29]); |
princ_str(")+",VV[29]); |
695 |
V85= number_minus((VV[19]->s.s_dbind),(V84)); |
V90= number_minus((VV[19]->s.s_dbind),(V89)); |
696 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V85)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V90)); |
697 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
698 |
setq(VV[37],Ct); |
(VV[37]->s.s_dbind)= Ct; |
699 |
bds_unwind1;} |
bds_unwind1;} |
700 |
goto T259; |
goto T259; |
701 |
T259:; |
T259:; |
702 |
{object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81))))); |
{object V91 = (VFUN_NARGS=2,(*(LnkLI122))((V88),CMPcaddr(CMPcddr((V86))))); |
703 |
VMR7(V86)} |
VMR7(V91)} |
704 |
goto T251; |
goto T251; |
705 |
T251:; |
T251:; |
706 |
{object V87; |
{object V92; |
707 |
object V88; |
object V93; |
708 |
V87= make_fixnum((long)length(car((V83)))); |
V92= CMPmake_fixnum((long)length(CMPcar((V88)))); |
709 |
V88= make_fixnum((long)length((V82))); |
V93= CMPmake_fixnum((long)length((V87))); |
710 |
if(!(eql((V88),(V87)))){ |
if(!(eql((V93),(V92)))){ |
711 |
goto T276;} |
goto T276;} |
712 |
goto T273; |
goto T273; |
713 |
goto T276; |
goto T276; |
714 |
T276:; |
T276:; |
715 |
(void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));} |
(void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V93),(V92))));} |
716 |
goto T273; |
goto T273; |
717 |
T273:; |
T273:; |
718 |
{object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81)))); |
{object V94 = (*(LnkLI124))(CMPcar((V88)),(V87),CMPcaddr(CMPcddr((V86)))); |
719 |
VMR7(V89)}} |
VMR7(V94)}} |
720 |
base[0]=base[0]; |
base[0]=base[0]; |
721 |
return Cnil; |
return Cnil; |
722 |
} |
} |
723 |
/* local entry for function CHECK-FNAME-ARGS */ |
/* local entry for function CHECK-FNAME-ARGS */ |
724 |
|
|
725 |
static object LI8(V92,V93) |
static object LI8(V97,V98) |
726 |
|
|
727 |
object V92;object V93; |
object V97;object V98; |
728 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
729 |
goto TTL; |
goto TTL; |
730 |
TTL:; |
TTL:; |
731 |
{register object V94; |
{register object V99; |
732 |
V94= get((V92),VV[39],Ct); |
{object V100 =((V97))->s.s_plist; |
733 |
if((Ct)==((V94))){ |
object ind= VV[39]; |
734 |
|
while(V100!=Cnil){ |
735 |
|
if(V100->c.c_car==ind){ |
736 |
|
V99= (V100->c.c_cdr->c.c_car); |
737 |
|
goto T278; |
738 |
|
}else V100=V100->c.c_cdr->c.c_cdr;} |
739 |
|
V99= Ct;} |
740 |
|
goto T278; |
741 |
|
T278:; |
742 |
|
if((Ct)==((V99))){ |
743 |
goto T280;} |
goto T280;} |
744 |
goto T279; |
goto T279; |
745 |
goto T280; |
goto T280; |
746 |
T280:; |
T280:; |
747 |
if((get((V92),VV[40],Cnil))!=Cnil){ |
{object V101 =((V97))->s.s_plist; |
748 |
|
object ind= VV[40]; |
749 |
|
while(V101!=Cnil){ |
750 |
|
if(V101->c.c_car==ind){ |
751 |
|
if(((V101->c.c_cdr->c.c_car))!=Cnil){ |
752 |
goto T282;} |
goto T282;} |
753 |
|
goto T283; |
754 |
|
}else V101=V101->c.c_cdr->c.c_cdr;}} |
755 |
|
goto T283; |
756 |
|
T283:; |
757 |
goto T279; |
goto T279; |
758 |
goto T282; |
goto T282; |
759 |
T282:; |
T282:; |
760 |
V94= VV[41]; |
V99= VV[41]; |
761 |
goto T279; |
goto T279; |
762 |
T279:; |
T279:; |
763 |
if(!(type_of((V94))==t_cons||((V94))==Cnil)){ |
if(!(type_of((V99))==t_cons||((V99))==Cnil)){ |
764 |
goto T286;} |
goto T286;} |
765 |
if(!(type_of((V93))==t_cons||((V93))==Cnil)){ |
if(!(type_of((V98))==t_cons||((V98))==Cnil)){ |
766 |
goto T286;} |
goto T286;} |
767 |
{register object x= VV[5],V95= (V94); |
{register object x= VV[5],V102= (V99); |
768 |
while(!endp(V95)) |
while(V102!=Cnil) |
769 |
if(eql(x,V95->c.c_car)){ |
if(eql(x,V102->c.c_car)){ |
770 |
goto T286; |
goto T286; |
771 |
}else V95=V95->c.c_cdr;} |
}else V102=V102->c.c_cdr;} |
772 |
if(!(((long)length((V94)))==((long)length((V93))))){ |
if(!(((long)length((V99)))==((long)length((V98))))){ |
773 |
goto T292;} |
goto T292;} |
774 |
{object V96 = Ct; |
{object V103 = Ct; |
775 |
VMR8(V96)} |
VMR8(V103)} |
776 |
goto T292; |
goto T292; |
777 |
T292:; |
T292:; |
778 |
V97 = make_fixnum((long)length((V93))); |
V104 = CMPmake_fixnum((long)length((V98))); |
779 |
V98 = make_fixnum((long)length((V94))); |
V105 = CMPmake_fixnum((long)length((V99))); |
780 |
{object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98)); |
{object V106 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V97),V104,V105)); |
781 |
VMR8(V99)} |
VMR8(V106)} |
782 |
goto T286; |
goto T286; |
783 |
T286:; |
T286:; |
784 |
{object V100 = Cnil; |
{object V107 = Cnil; |
785 |
VMR8(V100)}} |
VMR8(V107)}} |
786 |
return Cnil; |
return Cnil; |
787 |
} |
} |
788 |
/* function definition for SAVE-AVMA */ |
/* local entry for function SAVE-AVMA */ |
789 |
|
|
790 |
static void L9() |
static object LI9(V109) |
791 |
{register object *base=vs_base; |
|
792 |
register object *sup=base+VM9; VC9 |
object V109; |
793 |
vs_reserve(VM9); |
{ VMB9 VMS9 VMV9 |
|
{object V101; |
|
|
check_arg(1); |
|
|
V101=(base[0]); |
|
|
vs_top=sup; |
|
794 |
goto TTL; |
goto TTL; |
795 |
TTL:; |
TTL:; |
796 |
if((symbol_value(VV[43]))!=Cnil){ |
if(((VV[43]->s.s_dbind))!=Cnil){ |
797 |
goto T295;}{object V102; |
goto T295;}{object V110; |
798 |
{register object x= VV[44],V103= car((V101)); |
{register object x= VV[44],V111= CMPcar((V109)); |
799 |
while(!endp(V103)) |
while(V111!=Cnil) |
800 |
if(eql(x,V103->c.c_car)){ |
if(eql(x,V111->c.c_car)){ |
801 |
V102= V103; |
V110= V111; |
802 |
goto T301; |
goto T301; |
803 |
}else V103=V103->c.c_cdr; |
}else V111=V111->c.c_cdr; |
804 |
V102= Cnil;} |
V110= Cnil;} |
805 |
goto T301; |
goto T301; |
806 |
T301:; |
T301:; |
807 |
if(V102==Cnil)goto T300; |
if(V110==Cnil)goto T300; |
808 |
setq(VV[43],V102); |
(VV[43]->s.s_dbind)= V110; |
809 |
goto T299; |
goto T299; |
810 |
goto T300; |
goto T300; |
811 |
T300:;} |
T300:;} |
812 |
if(!((cadr((V101)))==(VV[44]))){ |
if(!((CMPcadr((V109)))==(VV[44]))){ |
813 |
goto T302;} |
goto T302;} |
814 |
setq(VV[43],Ct); |
(VV[43]->s.s_dbind)= Ct; |
815 |
goto T299; |
goto T299; |
816 |
goto T302; |
goto T302; |
817 |
T302:; |
T302:; |
818 |
base[1]= small_fixnum(4); |
base[0]= small_fixnum(4); |
819 |
base[2]= caddr((V101)); |
base[1]= CMPcaddr((V109)); |
820 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
821 |
Llogbitp(); |
Llogbitp(); |
822 |
vs_top=sup; |
vs_top=sup; |
823 |
setq(VV[43],vs_base[0]); |
(VV[43]->s.s_dbind)= vs_base[0]; |
824 |
goto T299; |
goto T299; |
825 |
T299:; |
T299:; |
826 |
if((symbol_value(VV[43]))==Cnil){ |
if(((VV[43]->s.s_dbind))==Cnil){ |
827 |
goto T295;} |
goto T295;} |
828 |
princ_str("\n { save_avma;",VV[29]); |
princ_str("\n { save_avma;",VV[29]); |
829 |
vs_base=vs_top; |
(void)((*(LnkLI126))()); |
830 |
(void) (*Lnk126)(); |
if(!(type_of((VV[45]->s.s_dbind))==t_cons)){ |
|
vs_top=sup; |
|
|
if(!(type_of(symbol_value(VV[45]))==t_cons)){ |
|
831 |
goto T309;} |
goto T309;} |
832 |
base[1]= Ct; |
{object V112 = Ct; |
833 |
vs_top=(vs_base=base+1)+1; |
VMR9(V112)} |
|
return; |
|
834 |
goto T309; |
goto T309; |
835 |
T309:; |
T309:; |
836 |
setq(VV[45],make_cons(symbol_value(VV[45]),VV[46])); |
(VV[45]->s.s_dbind)= make_cons((VV[45]->s.s_dbind),VV[46]); |
837 |
base[1]= symbol_value(VV[45]); |
{object V113 = (VV[45]->s.s_dbind); |
838 |
vs_top=(vs_base=base+1)+1; |
VMR9(V113)} |
|
return; |
|
839 |
goto T295; |
goto T295; |
840 |
T295:; |
T295:; |
841 |
base[1]= Cnil; |
{object V114 = Cnil; |
842 |
vs_top=(vs_base=base+1)+1; |
VMR9(V114)} |
843 |
return; |
base[0]=base[0]; |
844 |
} |
return Cnil; |
845 |
} |
} |
846 |
/* local entry for function C2CALL-GLOBAL */ |
/* local entry for function C2CALL-GLOBAL */ |
847 |
|
|
848 |
static object LI10(V108,V109,V110,V111) |
static object LI10(V119,V120,V121,V122) |
849 |
|
|
850 |
register object V108;register object V109;object V110;object V111; |
register object V119;register object V120;object V121;object V122; |
851 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
852 |
bds_check; |
bds_check; |
853 |
goto TTL; |
goto TTL; |
854 |
TTL:; |
TTL:; |
855 |
{register object V112; |
{register object V123; |
856 |
V112= Cnil; |
V123= Cnil; |
857 |
bds_bind(VV[19],symbol_value(VV[19])); |
bds_bind(VV[19],(VV[19]->s.s_dbind)); |
858 |
if(((*(LnkLI127))((V108)))==Cnil){ |
if(((*(LnkLI127))((V119)))==Cnil){ |
859 |
goto T314;} |
goto T314;} |
860 |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
if(!(type_of((V120))==t_cons||((V120))==Cnil)){ |
861 |
goto T317;} |
goto T317;} |
862 |
if((symbol_value(VV[47]))==Cnil){ |
if(((VV[47]->s.s_dbind))==Cnil){ |
863 |
goto T317;} |
goto T317;} |
864 |
if((symbol_value(VV[48]))==Cnil){ |
if(((VV[48]->s.s_dbind))==Cnil){ |
865 |
goto T317;} |
goto T317;} |
866 |
if(!((car(symbol_value(VV[48])))==((V108)))){ |
if(!((CMPcar((VV[48]->s.s_dbind)))==((V119)))){ |
867 |
goto T317;} |
goto T317;} |
868 |
{register object x= symbol_value(VV[49]),V113= VV[50]; |
{register object x= (VV[49]->s.s_dbind),V124= VV[50]; |
869 |
while(!endp(V113)) |
while(V124!=Cnil) |
870 |
if(eql(x,V113->c.c_car)){ |
if(eql(x,V124->c.c_car)){ |
871 |
goto T327; |
goto T327; |
872 |
}else V113=V113->c.c_cdr; |
}else V124=V124->c.c_cdr; |
873 |
goto T317;} |
goto T317;} |
874 |
goto T327; |
goto T327; |
875 |
T327:; |
T327:; |
876 |
if(((*(LnkLI128))())==Cnil){ |
if(((*(LnkLI128))())==Cnil){ |
877 |
goto T317;} |
goto T317;} |
878 |
if(!(((long)length((V109)))==((long)length(cdr(symbol_value(VV[48])))))){ |
if(!(((long)length((V120)))==((long)length(CMPcdr((VV[48]->s.s_dbind)))))){ |
879 |
goto T317;} |
goto T317;} |
880 |
bds_bind(VV[21],VV[22]); |
bds_bind(VV[21],VV[22]); |
881 |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
(VV[51]->s.s_dbind)= number_plus((VV[51]->s.s_dbind),small_fixnum(1)); |
882 |
bds_bind(VV[49],make_cons(symbol_value(VV[51]),Cnil)); |
bds_bind(VV[49],make_cons((VV[51]->s.s_dbind),Cnil)); |
883 |
bds_bind(VV[52],make_cons((VV[49]->s.s_dbind),symbol_value(VV[52]))); |
bds_bind(VV[52],make_cons((VV[49]->s.s_dbind),(VV[52]->s.s_dbind))); |
884 |
{object V115; |
{object V126; |
885 |
object V116= cdr(symbol_value(VV[48])); |
object V127= CMPcdr((VV[48]->s.s_dbind)); |
886 |
if(endp(V116)){ |
if(V127==Cnil){ |
887 |
V114= Cnil; |
V125= Cnil; |
888 |
goto T336;} |
goto T336;} |
889 |
base[4]=V115=MMcons(Cnil,Cnil); |
base[4]=V126=MMcons(Cnil,Cnil); |
890 |
goto T337; |
goto T337; |
891 |
T337:; |
T337:; |
892 |
(V115->c.c_car)= list(2,(V116->c.c_car),Cnil); |
(V126->c.c_car)= list(2,(V127->c.c_car),Cnil); |
893 |
V116=MMcdr(V116); |
if((V127=MMcdr(V127))==Cnil){ |
894 |
if(endp(V116)){ |
V125= base[4]; |
|
V114= base[4]; |
|
895 |
goto T336;} |
goto T336;} |
896 |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
V126=MMcdr(V126)=MMcons(Cnil,Cnil); |
897 |
goto T337;} |
goto T337;} |
898 |
goto T336; |
goto T336; |
899 |
T336:; |
T336:; |
900 |
(void)((*(LnkLI129))(V114,(V109))); |
(void)((*(LnkLI129))(V125,(V120))); |
901 |
if((cdr((VV[49]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[49]->s.s_dbind)))==Cnil){ |
902 |
bds_unwind1; |
bds_unwind1; |
903 |
bds_unwind1; |
bds_unwind1; |
904 |
bds_unwind1; |
bds_unwind1; |
905 |
goto T331;} |
goto T331;} |
906 |
princ_str("\n goto T",VV[29]); |
princ_str("\n goto T",VV[29]); |
907 |
(void)((*(LnkLI117))(car((VV[49]->s.s_dbind)))); |
(void)((*(LnkLI117))(CMPcar((VV[49]->s.s_dbind)))); |
908 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
909 |
princ_str("\nT",VV[29]); |
princ_str("\nT",VV[29]); |
910 |
(void)((*(LnkLI117))(car((VV[49]->s.s_dbind)))); |
(void)((*(LnkLI117))(CMPcar((VV[49]->s.s_dbind)))); |
911 |
princ_str(":;",VV[29]); |
princ_str(":;",VV[29]); |
912 |
bds_unwind1; |
bds_unwind1; |
913 |
bds_unwind1; |
bds_unwind1; |
916 |
T331:; |
T331:; |
917 |
(void)((*(LnkLI130))(VV[53])); |
(void)((*(LnkLI130))(VV[53])); |
918 |
princ_str("\n goto TTL;",VV[29]); |
princ_str("\n goto TTL;",VV[29]); |
919 |
{object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108))); |
{object V129 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V119))); |
920 |
bds_unwind1; |
bds_unwind1; |
921 |
VMR10(V118)} |
VMR10(V129)} |
922 |
goto T317; |
goto T317; |
923 |
T317:; |
T317:; |
924 |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
if(!(type_of((V120))==t_cons||((V120))==Cnil)){ |
925 |
goto T352;} |
goto T352;} |
926 |
if(((V110))!=Cnil){ |
if(((V121))!=Cnil){ |
927 |
goto T352;} |
goto T352;} |
928 |
V112= (*(LnkLI132))((V108),(V109),(V111)); |
V123= (*(LnkLI132))((V119),(V120),(V122)); |
929 |
if(((V112))==Cnil){ |
if(((V123))==Cnil){ |
930 |
goto T352;} |
goto T352;} |
931 |
bds_bind(VV[45],small_fixnum(0)); |
bds_bind(VV[45],small_fixnum(0)); |
932 |
bds_bind(VV[43],symbol_value(VV[43])); |
bds_bind(VV[43],(VV[43]->s.s_dbind)); |
933 |
base[3]= (V112); |
(void)((*(LnkLI133))((V123))); |
934 |
vs_top=(vs_base=base+3)+1; |
V130= (*(LnkLI134))((V123),(V120)); |
935 |
(void) (*Lnk133)(); |
(void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V130,Cnil,(V119)))); |
936 |
vs_top=sup; |
{object V131 = (*(LnkLI135))(); |
|
V119= (*(LnkLI134))((V112),(V109)); |
|
|
(void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V119,Cnil,(V108)))); |
|
|
{object V120 = (*(LnkLI135))(); |
|
937 |
bds_unwind1; |
bds_unwind1; |
938 |
bds_unwind1; |
bds_unwind1; |
939 |
bds_unwind1; |
bds_unwind1; |
940 |
VMR10(V120)} |
VMR10(V131)} |
941 |
goto T352; |
goto T352; |
942 |
T352:;{object V121; |
T352:;{object V132; |
943 |
V121= get((V108),VV[55],Cnil); |
{object V133 =((V119))->s.s_plist; |
944 |
if(V121==Cnil)goto T366; |
object ind= VV[55]; |
945 |
V112= V121; |
while(V133!=Cnil){ |
946 |
goto T365; |
if(V133->c.c_car==ind){ |
947 |
|
V132= (V133->c.c_cdr->c.c_car); |
948 |
goto T366; |
goto T366; |
949 |
T366:;} |
}else V133=V133->c.c_cdr->c.c_cdr;} |
950 |
V112= get((V108),VV[56],Cnil); |
V132= Cnil;} |
951 |
|
goto T366; |
952 |
|
T366:; |
953 |
|
if(V132==Cnil)goto T365; |
954 |
|
V123= V132; |
955 |
|
goto T364; |
956 |
goto T365; |
goto T365; |
957 |
T365:; |
T365:;} |
958 |
if(((V112))==Cnil){ |
{object V134 =((V119))->s.s_plist; |
959 |
goto T363;} |
object ind= VV[56]; |
960 |
(void)((*(LnkLI136))((V108),(V109))); |
while(V134!=Cnil){ |
961 |
(void)((*(LnkLI116))((V109))); |
if(V134->c.c_car==ind){ |
962 |
|
V123= (V134->c.c_cdr->c.c_car); |
963 |
|
goto T364; |
964 |
|
}else V134=V134->c.c_cdr->c.c_cdr;} |
965 |
|
V123= Cnil;} |
966 |
|
goto T364; |
967 |
|
T364:; |
968 |
|
if(((V123))==Cnil){ |
969 |
|
goto T362;} |
970 |
|
(void)((*(LnkLI136))((V119),(V120))); |
971 |
|
(void)((*(LnkLI116))((V120))); |
972 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
973 |
(void)((*(LnkLI117))((V112))); |
(void)((*(LnkLI117))((V123))); |
974 |
princ_str("();",VV[29]); |
princ_str("();",VV[29]); |
975 |
{object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
{object V135 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V119))); |
976 |
bds_unwind1; |
bds_unwind1; |
977 |
VMR10(V122)} |
VMR10(V135)} |
978 |
goto T363; |
goto T362; |
979 |
T363:; |
T362:; |
980 |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
if(!(type_of((V120))==t_cons||((V120))==Cnil)){ |
981 |
goto T375;} |
goto T374;} |
982 |
if(!(((long)length((V109)))<(10))){ |
if(!(((long)length((V120)))<(10))){ |
983 |
goto T375;} |
goto T374;} |
984 |
if((symbol_value(VV[57]))!=Cnil){ |
if(((VV[57]->s.s_dbind))!=Cnil){ |
985 |
goto T380;} |
goto T379;} |
986 |
if((get((V108),VV[58],Cnil))==Cnil){ |
{object V136 =((V119))->s.s_plist; |
987 |
goto T375;} |
object ind= VV[58]; |
988 |
goto T380; |
while(V136!=Cnil){ |
989 |
T380:; |
if(V136->c.c_car==ind){ |
990 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
if(((V136->c.c_cdr->c.c_car))==Cnil){ |
991 |
goto T386;} |
goto T374;} |
992 |
|
goto T382; |
993 |
|
}else V136=V136->c.c_cdr->c.c_cdr;} |
994 |
|
goto T374;} |
995 |
|
goto T382; |
996 |
|
T382:; |
997 |
|
goto T379; |
998 |
|
T379:; |
999 |
|
if(!(((VV[21]->s.s_dbind))==(VV[59]))){ |
1000 |
|
goto T385;} |
1001 |
base[1]= Ct; |
base[1]= Ct; |
1002 |
base[2]= VV[60]; |
base[2]= VV[60]; |
1003 |
base[3]= (V108); |
base[3]= (V119); |
1004 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1005 |
Lformat(); |
Lformat(); |
1006 |
vs_top=sup; |
vs_top=sup; |
1007 |
goto T386; |
goto T385; |
1008 |
T386:; |
T385:; |
1009 |
if((VV[59])==(symbol_value(VV[21]))){ |
if((VV[59])==((VV[21]->s.s_dbind))){ |
1010 |
goto T375;} |
goto T374;} |
1011 |
if(((V110))!=Cnil){ |
if(((V121))!=Cnil){ |
1012 |
goto T375;} |
goto T374;} |
1013 |
bds_bind(VV[45],small_fixnum(0)); |
bds_bind(VV[45],small_fixnum(0)); |
1014 |
V123= (*(LnkLI137))((V108),(V109)); |
V137= (*(LnkLI137))((V119),(V120)); |
1015 |
V124= (*(LnkLI134))(/* INLINE-ARGS */V123,(V109)); |
V138= (*(LnkLI134))(/* INLINE-ARGS */V137,(V120)); |
1016 |
(void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V124,Cnil,(V108)))); |
(void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V138,Cnil,(V119)))); |
1017 |
{object V125 = (*(LnkLI135))(); |
{object V139 = (*(LnkLI135))(); |
1018 |
bds_unwind1; |
bds_unwind1; |
1019 |
bds_unwind1; |
bds_unwind1; |
1020 |
VMR10(V125)} |
VMR10(V139)} |
1021 |
goto T375; |
goto T374; |
1022 |
T375:; |
T374:; |
1023 |
(void)((*(LnkLI116))((V109))); |
(void)((*(LnkLI116))((V120))); |
1024 |
{object V126; |
{object V140; |
1025 |
V126= (*(LnkLI138))((V108),Cnil,(V109)); |
V140= (*(LnkLI138))((V119),Cnil,(V120)); |
1026 |
princ_str("\n (void) (*Lnk",VV[29]); |
princ_str("\n (void) (*Lnk",VV[29]); |
1027 |
(void)((*(LnkLI117))((V126))); |
(void)((*(LnkLI117))((V140))); |
1028 |
princ_str(")(",VV[29]); |
princ_str(")(",VV[29]); |
1029 |
if((get((V108),VV[61],Cnil))==Cnil){ |
{object V141 =((V119))->s.s_plist; |
1030 |
goto T402;} |
object ind= VV[61]; |
1031 |
|
while(V141!=Cnil){ |
1032 |
|
if(V141->c.c_car==ind){ |
1033 |
|
if(((V141->c.c_cdr->c.c_car))==Cnil){ |
1034 |
|
goto T401;} |
1035 |
|
goto T403; |
1036 |
|
}else V141=V141->c.c_cdr->c.c_cdr;} |
1037 |
|
goto T401;} |
1038 |
|
goto T403; |
1039 |
|
T403:; |
1040 |
princ_str("Lclptr",VV[29]); |
princ_str("Lclptr",VV[29]); |
1041 |
(void)((*(LnkLI117))((V126))); |
(void)((*(LnkLI117))((V140))); |
1042 |
goto T402; |
goto T401; |
1043 |
T402:; |
T401:; |
1044 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1045 |
{object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
{object V142 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V119))); |
1046 |
bds_unwind1; |
bds_unwind1; |
1047 |
VMR10(V127)}} |
VMR10(V142)}} |
1048 |
goto T314; |
goto T314; |
1049 |
T314:; |
T314:; |
1050 |
{object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil); |
{object V143 = (*(LnkLI139))((V119),(V120),(V121),Cnil); |
1051 |
bds_unwind1; |
bds_unwind1; |
1052 |
VMR10(V128)}} |
VMR10(V143)}} |
1053 |
base[0]=base[0]; |
base[0]=base[0]; |
1054 |
return Cnil; |
return Cnil; |
1055 |
} |
} |
1056 |
/* local entry for function ADD-FAST-LINK */ |
/* local entry for function ADD-FAST-LINK */ |
1057 |
|
|
1058 |
static object LI11(V132,V133,V134) |
static object LI11(V147,V148,V149) |
1059 |
|
|
1060 |
register object V132;object V133;object V134; |
register object V147;object V148;object V149; |
1061 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
1062 |
goto TTL; |
goto TTL; |
1063 |
TTL:; |
TTL:; |
1064 |
{object V135; |
{object V150; |
1065 |
object V136; |
object V151; |
1066 |
object V137; |
object V152; |
1067 |
register object V138; |
register object V153; |
1068 |
V137= (*(LnkLI140))((V132)); |
V152= (*(LnkLI140))((V147)); |
1069 |
V135= Cnil; |
V150= Cnil; |
1070 |
V136= Cnil; |
V151= Cnil; |
1071 |
V138= Cnil; |
V153= Cnil; |
1072 |
if(((V133))==Cnil){ |
if(((V148))==Cnil){ |
1073 |
goto T412;} |
goto T411;} |
1074 |
{object V139; |
{object V154; |
1075 |
object V140; |
object V155; |
1076 |
object V141; |
object V156; |
1077 |
base[0]=MMcons(Cnil,Cnil); |
base[0]=MMcons(Cnil,Cnil); |
1078 |
V139= Cnil; |
V154= Cnil; |
1079 |
V140= Cnil; |
V155= Cnil; |
1080 |
if(type_of((V134))==t_cons||((V134))==Cnil){ |
if(type_of((V149))==t_cons||((V149))==Cnil){ |
1081 |
goto T417;} |
goto T416;} |
1082 |
V141= Cnil; |
V156= Cnil; |
1083 |
goto T416; |
goto T415; |
|
goto T417; |
|
|
T417:; |
|
|
V141= make_fixnum((long)length((V134))); |
|
1084 |
goto T416; |
goto T416; |
1085 |
T416:; |
T416:; |
1086 |
if((get((V132),VV[1],Cnil))==Cnil){ |
V156= CMPmake_fixnum((long)length((V149))); |
1087 |
goto T422;} |
goto T415; |
1088 |
V140= get((V132),VV[4],Cnil); |
T415:; |
1089 |
goto T420; |
{object V157 =((V147))->s.s_plist; |
1090 |
|
object ind= VV[1]; |
1091 |
|
while(V157!=Cnil){ |
1092 |
|
if(V157->c.c_car==ind){ |
1093 |
|
if(((V157->c.c_cdr->c.c_car))==Cnil){ |
1094 |
|
goto T421;} |
1095 |
|
goto T422; |
1096 |
|
}else V157=V157->c.c_cdr->c.c_cdr;} |
1097 |
|
goto T421;} |
1098 |
goto T422; |
goto T422; |
1099 |
T422:; |
T422:; |
1100 |
V139= get((V132),VV[0],Cnil); |
{object V158 =((V147))->s.s_plist; |
1101 |
if(((V139))==Cnil){ |
object ind= VV[4]; |
1102 |
goto T425;} |
while(V158!=Cnil){ |
1103 |
if(!(type_of((V139))==t_fixnum)){ |
if(V158->c.c_car==ind){ |
1104 |
goto T430;} |
V155= (V158->c.c_cdr->c.c_car); |
1105 |
if(!(equal((V141),(V139)))){ |
goto T419; |
1106 |
goto T432;} |
}else V158=V158->c.c_cdr->c.c_cdr;} |
1107 |
goto T428; |
V155= Cnil; |
1108 |
goto T432; |
goto T419;} |
1109 |
T432:; |
goto T421; |
1110 |
(void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132)))); |
T421:; |
1111 |
goto T428; |
{object V159 =((V147))->s.s_plist; |
1112 |
goto T430; |
object ind= VV[0]; |
1113 |
T430:; |
while(V159!=Cnil){ |
1114 |
(void)(sputprop((V132),VV[0],(V141))); |
if(V159->c.c_car==ind){ |
1115 |
goto T428; |
V154= (V159->c.c_cdr->c.c_car); |
1116 |
T428:; |
goto T426; |
1117 |
base[2]= (V141); |
}else V159=V159->c.c_cdr->c.c_cdr;} |
1118 |
|
V154= Cnil;} |
1119 |
|
goto T426; |
1120 |
|
T426:; |
1121 |
|
if(((V154))==Cnil){ |
1122 |
|
goto T424;} |
1123 |
|
if(!(type_of((V154))==t_fixnum)){ |
1124 |
|
goto T429;} |
1125 |
|
if(!(equal((V156),(V154)))){ |
1126 |
|
goto T431;} |
1127 |
|
goto T427; |
1128 |
|
goto T431; |
1129 |
|
T431:; |
1130 |
|
(void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V147)))); |
1131 |
|
goto T427; |
1132 |
|
goto T429; |
1133 |
|
T429:; |
1134 |
|
(void)(sputprop((V147),VV[0],(V156))); |
1135 |
|
goto T427; |
1136 |
|
T427:; |
1137 |
|
base[2]= (V156); |
1138 |
base[3]= VV[63]; |
base[3]= VV[63]; |
1139 |
base[4]= Ct; |
base[4]= Ct; |
1140 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1141 |
Lmake_list(); |
Lmake_list(); |
1142 |
vs_top=sup; |
vs_top=sup; |
1143 |
V140= vs_base[0]; |
V155= vs_base[0]; |
1144 |
goto T420; |
goto T419; |
1145 |
goto T425; |
goto T424; |
1146 |
T425:; |
T424:; |
1147 |
V140= Cnil; |
V155= Cnil; |
1148 |
goto T420; |
goto T419; |
1149 |
T420:; |
T419:; |
1150 |
if((V141)==Cnil){ |
if((V156)==Cnil){ |
1151 |
|
goto T436;} |
1152 |
|
V160 = CMPmake_fixnum((long)length((V155))); |
1153 |
|
if(!(eql((V156),V160))){ |
1154 |
goto T437;} |
goto T437;} |
1155 |
V142 = make_fixnum((long)length((V140))); |
goto T436; |
|
if(!(eql((V141),V142))){ |
|
|
goto T438;} |
|
|
goto T437; |
|
|
goto T438; |
|
|
T438:;{object V143; |
|
|
{register object x= VV[5],V144= (V140); |
|
|
while(!endp(V144)) |
|
|
if(eql(x,V144->c.c_car)){ |
|
|
V143= V144; |
|
|
goto T441; |
|
|
}else V144=V144->c.c_cdr; |
|
|
V143= Cnil;} |
|
|
goto T441; |
|
|
T441:; |
|
|
if(V143==Cnil)goto T440; |
|
1156 |
goto T437; |
goto T437; |
1157 |
|
T437:;{object V161; |
1158 |
|
{register object x= VV[5],V162= (V155); |
1159 |
|
while(V162!=Cnil) |
1160 |
|
if(eql(x,V162->c.c_car)){ |
1161 |
|
V161= V162; |
1162 |
goto T440; |
goto T440; |
1163 |
T440:;} |
}else V162=V162->c.c_cdr; |
1164 |
V145 = make_fixnum((long)length((V140))); |
V161= Cnil;} |
1165 |
(void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145))); |
goto T440; |
1166 |
goto T437; |
T440:; |
1167 |
T437:; |
if(V161==Cnil)goto T439; |
1168 |
{register object x= (V132),V146= symbol_value(VV[65]); |
goto T436; |
1169 |
while(!endp(V146)) |
goto T439; |
1170 |
if(type_of(V146->c.c_car)==t_cons &&eql(x,V146->c.c_car->c.c_car)){ |
T439:;} |
1171 |
V136= (V146->c.c_car); |
V163 = CMPmake_fixnum((long)length((V155))); |
1172 |
goto T444; |
(void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V147),(V156),V163))); |
1173 |
}else V146=V146->c.c_cdr; |
goto T436; |
1174 |
V136= Cnil;} |
T436:; |
1175 |
goto T444; |
{register object x= (V147),V164= (VV[65]->s.s_dbind); |
1176 |
T444:; |
while(V164!=Cnil) |
1177 |
if((cddr((V136)))!=Cnil){ |
if(eql(x,V164->c.c_car->c.c_car) &&V164->c.c_car != Cnil){ |
1178 |
goto T410;} |
V151= (V164->c.c_car); |
1179 |
{register object V147; |
goto T443; |
1180 |
|
}else V164=V164->c.c_cdr; |
1181 |
|
V151= Cnil;} |
1182 |
|
goto T443; |
1183 |
|
T443:; |
1184 |
|
if((CMPcddr((V151)))!=Cnil){ |
1185 |
|
goto T409;} |
1186 |
|
{register object V165; |
1187 |
vs_base=vs_top; |
vs_base=vs_top; |
1188 |
(void) (*Lnk141)(); |
(void) (*Lnk141)(); |
1189 |
vs_top=sup; |
vs_top=sup; |
1190 |
V147= vs_base[0]; |
V165= vs_base[0]; |
1191 |
base[2]= (V147); |
base[2]= (V165); |
1192 |
base[3]= VV[66]; |
base[3]= VV[66]; |
1193 |
base[4]= (V137); |
base[4]= (V152); |
1194 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1195 |
Lformat(); |
Lformat(); |
1196 |
vs_top=sup; |
vs_top=sup; |
1197 |
{register object V148; |
{register object V166; |
1198 |
register object V149; |
register object V167; |
1199 |
register object V150; |
register object V168; |
1200 |
V148= Cnil; |
V166= Cnil; |
1201 |
V149= (V140); |
V167= (V155); |
1202 |
V150= small_fixnum(0); |
V168= small_fixnum(0); |
1203 |
|
goto T453; |
1204 |
|
T453:; |
1205 |
|
if(((V167))!=Cnil){ |
1206 |
|
goto T454;} |
1207 |
|
goto T451; |
1208 |
goto T454; |
goto T454; |
1209 |
T454:; |
T454:; |
1210 |
if(((V149))!=Cnil){ |
if(!((CMPcar((V167)))==(VV[5]))){ |
1211 |
goto T455;} |
goto T460;} |
1212 |
goto T452; |
V153= Ct; |
1213 |
goto T455; |
(void)(princ(VV[67],(V165))); |
1214 |
T455:; |
goto T458; |
1215 |
if(!((car((V149)))==(VV[5]))){ |
goto T460; |
1216 |
goto T461;} |
T460:; |
1217 |
V138= Ct; |
if(((V166))==Cnil){ |
1218 |
(void)(princ(VV[67],(V147))); |
goto T466;} |
1219 |
goto T459; |
(void)(princ(VV[68],(V165))); |
1220 |
goto T461; |
goto T464; |
1221 |
T461:; |
goto T466; |
1222 |
if(((V148))==Cnil){ |
T466:; |
1223 |
goto T467;} |
V166= Ct; |
1224 |
(void)(princ(VV[68],(V147))); |
goto T464; |
1225 |
goto T465; |
T464:; |
1226 |
goto T467; |
base[2]= (V165); |
|
T467:; |
|
|
V148= Ct; |
|
|
goto T465; |
|
|
T465:; |
|
|
base[2]= (V147); |
|
1227 |
base[3]= VV[69]; |
base[3]= VV[69]; |
1228 |
base[4]= (V150); |
base[4]= (V168); |
1229 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1230 |
Lformat(); |
Lformat(); |
1231 |
vs_top=sup; |
vs_top=sup; |
1232 |
goto T459; |
goto T458; |
1233 |
T459:; |
T458:; |
1234 |
V149= cdr((V149)); |
V167= CMPcdr((V167)); |
1235 |
V150= number_plus(small_fixnum(1),(V150)); |
V168= number_plus(small_fixnum(1),(V168)); |
1236 |
goto T454;} |
goto T453;} |
1237 |
goto T452; |
goto T451; |
1238 |
T452:; |
T451:; |
1239 |
(void)(princ(VV[70],(V147))); |
(void)(princ(VV[70],(V165))); |
1240 |
base[2]= (V147); |
base[2]= (V165); |
1241 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1242 |
(void) (*Lnk142)(); |
(void) (*Lnk142)(); |
1243 |
vs_top=sup; |
vs_top=sup; |
1244 |
(base[0]->c.c_car)= vs_base[0];} |
(base[0]->c.c_car)= vs_base[0];} |
1245 |
if(((V138))==Cnil){ |
if(((V153))==Cnil){ |
1246 |
goto T479;} |
goto T478;} |
1247 |
V135= |
V150= |
1248 |
make_cclosure_new(LC21,Cnil,base[0],Cdata); |
make_cclosure_new(LC21,Cnil,base[0],Cdata); |
1249 |
goto T479; |
goto T478; |
1250 |
T479:; |
T478:; |
1251 |
{object V151;{object V153; |
{object V169;{object V171; |
1252 |
V153= get((V132),VV[2],Cnil); |
{object V172 =((V147))->s.s_plist; |
1253 |
if(V153==Cnil)goto T486; |
object ind= VV[2]; |
1254 |
V152= V153; |
while(V172!=Cnil){ |
1255 |
goto T485; |
if(V172->c.c_car==ind){ |
1256 |
|
V171= (V172->c.c_cdr->c.c_car); |
1257 |
|
goto T486; |
1258 |
|
}else V172=V172->c.c_cdr->c.c_cdr;} |
1259 |
|
V171= Cnil;} |
1260 |
goto T486; |
goto T486; |
1261 |
T486:;} |
T486:; |
1262 |
V152= Ct; |
if(V171==Cnil)goto T485; |
1263 |
|
V170= V171; |
1264 |
|
goto T484; |
1265 |
goto T485; |
goto T485; |
1266 |
T485:; |
T485:;} |
1267 |
if((V135)!=Cnil){ |
V170= Ct; |
1268 |
V154= (V135); |
goto T484; |
1269 |
goto T488;} |
T484:; |
1270 |
V154= (base[0]->c.c_car); |
if((V150)!=Cnil){ |
1271 |
goto T488; |
V173= (V150); |
1272 |
T488:; |
goto T487;} |
1273 |
V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]); |
V173= (base[0]->c.c_car); |
1274 |
setq(VV[72],make_cons((V151),symbol_value(VV[72])));} |
goto T487; |
1275 |
|
T487:; |
1276 |
|
V169= list(6,(V147),(V155),V170,small_fixnum(3),V173,VV[71]); |
1277 |
|
(VV[72]->s.s_dbind)= make_cons((V169),(VV[72]->s.s_dbind));} |
1278 |
base[2]= Cnil; |
base[2]= Cnil; |
1279 |
base[3]= VV[73]; |
base[3]= VV[73]; |
1280 |
base[4]= (V137); |
base[4]= (V152); |
1281 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1282 |
Lformat(); |
Lformat(); |
1283 |
vs_top=sup; |
vs_top=sup; |
1284 |
V155= vs_base[0];{object V157; |
V174= vs_base[0];{object V176; |
1285 |
V157= get((V132),VV[2],Cnil); |
{object V177 =((V147))->s.s_plist; |
1286 |
if(V157==Cnil)goto T496; |
object ind= VV[2]; |
1287 |
V156= V157; |
while(V177!=Cnil){ |
1288 |
goto T495; |
if(V177->c.c_car==ind){ |
1289 |
|
V176= (V177->c.c_cdr->c.c_car); |
1290 |
|
goto T496; |
1291 |
|
}else V177=V177->c.c_cdr->c.c_cdr;} |
1292 |
|
V176= Cnil;} |
1293 |
goto T496; |
goto T496; |
1294 |
T496:;} |
T496:; |
1295 |
V156= Ct; |
if(V176==Cnil)goto T495; |
1296 |
|
V175= V176; |
1297 |
|
goto T494; |
1298 |
goto T495; |
goto T495; |
1299 |
T495:; |
T495:;} |
1300 |
V136= list(4,(V132),V155,V156,(V140)); |
V175= Ct; |
1301 |
goto T410;} |
goto T494; |
1302 |
goto T412; |
T494:; |
1303 |
T412:; |
V151= list(4,(V147),V174,V175,(V155)); |
1304 |
(void)((*(LnkLI136))((V132),(V134))); |
goto T409;} |
1305 |
if((get((V132),VV[61],Cnil))==Cnil){ |
goto T411; |
1306 |
goto T502;} |
T411:; |
1307 |
V158= VV[61]; |
(void)((*(LnkLI136))((V147),(V149))); |
1308 |
goto T500; |
{object V179 =((V147))->s.s_plist; |
1309 |
|
object ind= VV[61]; |
1310 |
|
while(V179!=Cnil){ |
1311 |
|
if(V179->c.c_car==ind){ |
1312 |
|
if(((V179->c.c_cdr->c.c_car))==Cnil){ |
1313 |
|
goto T501;} |
1314 |
|
goto T502; |
1315 |
|
}else V179=V179->c.c_cdr->c.c_cdr;} |
1316 |
|
goto T501;} |
1317 |
goto T502; |
goto T502; |
1318 |
T502:; |
T502:; |
1319 |
V158= Cnil; |
V178= VV[61]; |
1320 |
goto T500; |
goto T499; |
1321 |
T500:; |
goto T501; |
1322 |
V136= list(3,(V132),(V137),V158); |
T501:; |
1323 |
goto T410; |
V178= Cnil; |
1324 |
T410:; |
goto T499; |
1325 |
base[0]= V136; |
T499:; |
1326 |
base[1]= symbol_value(VV[65]); |
V151= list(3,(V147),(V152),V178); |
1327 |
|
goto T409; |
1328 |
|
T409:; |
1329 |
|
base[0]= V151; |
1330 |
|
base[1]= (VV[65]->s.s_dbind); |
1331 |
base[2]= VV[74]; |
base[2]= VV[74]; |
1332 |
base[3]= VV[75]; |
base[3]= VV[75]; |
1333 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1334 |
Ladjoin(); |
Ladjoin(); |
1335 |
vs_top=sup; |
vs_top=sup; |
1336 |
setq(VV[65],vs_base[0]); |
(VV[65]->s.s_dbind)= vs_base[0]; |
1337 |
{object V160 = (V137); |
{object V181 = (V152); |
1338 |
VMR11(V160)}} |
VMR11(V181)}} |
1339 |
base[0]=base[0]; |
base[0]=base[0]; |
1340 |
return Cnil; |
return Cnil; |
1341 |
} |
} |
1342 |
/* function definition for DECLARATION-TYPE */ |
/* local entry for function DECLARATION-TYPE */ |
1343 |
|
|
1344 |
static void L12() |
static object LI12(V183) |
1345 |
{register object *base=vs_base; |
|
1346 |
register object *sup=base+VM12; VC12 |
object V183; |
1347 |
vs_reserve(VM12); |
{ VMB12 VMS12 VMV12 |
|
{object V161; |
|
|
check_arg(1); |
|
|
V161=(base[0]); |
|
|
vs_top=sup; |
|
1348 |
goto TTL; |
goto TTL; |
1349 |
TTL:; |
TTL:; |
1350 |
if(!(equal((V161),VV[76]))){ |
if(!(equal((V183),VV[76]))){ |
1351 |
goto T511;} |
goto T510;} |
1352 |
base[1]= VV[77]; |
{object V184 = VV[77]; |
1353 |
vs_top=(vs_base=base+1)+1; |
VMR12(V184)} |
1354 |
return; |
goto T510; |
1355 |
goto T511; |
T510:; |
1356 |
T511:; |
if(!(equal((V183),VV[78]))){ |
1357 |
if(!(equal((V161),VV[78]))){ |
goto T513;} |
1358 |
goto T514;} |
{object V185 = VV[79]; |
1359 |
base[1]= VV[79]; |
VMR12(V185)} |
1360 |
vs_top=(vs_base=base+1)+1; |
goto T513; |
1361 |
return; |
T513:; |
1362 |
goto T514; |
{object V186 = (V183); |
1363 |
T514:; |
VMR12(V186)} |
1364 |
base[1]= (V161); |
return Cnil; |
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
} |
|
1365 |
} |
} |
1366 |
/* local entry for function WT-FUNCTION-LINK */ |
/* local entry for function WT-FUNCTION-LINK */ |
1367 |
|
|
1368 |
static object LI13(V163) |
static object LI13(V188) |
1369 |
|
|
1370 |
register object V163; |
register object V188; |
1371 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1372 |
goto TTL; |
goto TTL; |
1373 |
TTL:; |
TTL:; |
1374 |
{register object V164; |
{register object V189; |
1375 |
register object V165; |
register object V190; |
1376 |
register object V166; |
register object V191; |
1377 |
object V167; |
object V192; |
1378 |
V164= car((V163)); |
V189= CMPcar((V188)); |
1379 |
V165= cadr((V163)); |
V190= CMPcadr((V188)); |
1380 |
V166= caddr((V163)); |
V191= CMPcaddr((V188)); |
1381 |
V167= cadddr((V163)); |
V192= CMPcadddr((V188)); |
1382 |
if(((V166))!=Cnil){ |
if(((V191))!=Cnil){ |
1383 |
goto T522;} |
goto T521;} |
1384 |
princ_str("\nstatic void LnkT",VV[29]); |
princ_str("\nstatic void LnkT",VV[29]); |
1385 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1386 |
princ_str("(){ call_or_link(VV[",VV[29]); |
princ_str("(){ call_or_link(VV[",VV[29]); |
1387 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1388 |
princ_str("],(void **)(void *)&Lnk",VV[29]); |
princ_str("],(void **)(void *)&Lnk",VV[29]); |
1389 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1390 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1391 |
goto T520; |
goto T519; |
1392 |
goto T522; |
goto T521; |
1393 |
T522:; |
T521:; |
1394 |
if(!(eql((V166),VV[61]))){ |
if(!(eql((V191),VV[61]))){ |
1395 |
goto T532;} |
goto T531;} |
1396 |
princ_str("\nstatic void LnkT",VV[29]); |
princ_str("\nstatic void LnkT",VV[29]); |
1397 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1398 |
princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]); |
princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]); |
1399 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1400 |
princ_str("],(void **)(void *)&Lnk",VV[29]); |
princ_str("],(void **)(void *)&Lnk",VV[29]); |
1401 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1402 |
princ_str(",(void **)(void *)&Lclptr",VV[29]); |
princ_str(",(void **)(void *)&Lclptr",VV[29]); |
1403 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1404 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1405 |
goto T520; |
goto T519; |
1406 |
goto T532; |
goto T531; |
1407 |
T532:; |
T531:; |
1408 |
princ_str("\nstatic ",VV[29]); |
princ_str("\nstatic ",VV[29]); |
1409 |
base[0]= (*(LnkLI143))((V166)); |
V193= (*(LnkLI144))((V191)); |
1410 |
vs_top=(vs_base=base+0)+1; |
V194= (*(LnkLI143))(/* INLINE-ARGS */V193); |
1411 |
(void) (*Lnk144)(); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V194)); |
|
vs_top=sup; |
|
|
V168= vs_base[0]; |
|
|
(void)((*(LnkLI117))(V168)); |
|
1412 |
princ_str(" LnkT",VV[29]); |
princ_str(" LnkT",VV[29]); |
1413 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1414 |
if(((V167))!=Cnil){ |
if(((V192))!=Cnil){ |
1415 |
goto T550;} |
goto T547;} |
1416 |
if((Ct)==((V166))){ |
if((Ct)==((V191))){ |
1417 |
goto T551;} |
goto T548;} |
1418 |
goto T550; |
goto T547; |
1419 |
T550:; |
T547:; |
1420 |
{object V169; |
{object V195; |
1421 |
{register object x= VV[5],V170= (V167); |
{register object x= VV[5],V196= (V192); |
1422 |
while(!endp(V170)) |
while(V196!=Cnil) |
1423 |
if(eql(x,V170->c.c_car)){ |
if(eql(x,V196->c.c_car)){ |
1424 |
V169= V170; |
V195= V196; |
1425 |
goto T555; |
goto T552; |
1426 |
}else V170=V170->c.c_cdr; |
}else V196=V196->c.c_cdr; |
1427 |
V169= Cnil;} |
V195= Cnil;} |
1428 |
goto T555; |
goto T552; |
1429 |
T555:; |
T552:; |
1430 |
princ_str("(object first,...){",VV[29]); |
princ_str("(object first,...){",VV[29]); |
1431 |
base[0]= (*(LnkLI143))((V166)); |
V197= (*(LnkLI144))((V191)); |
1432 |
vs_top=(vs_base=base+0)+1; |
V198= (*(LnkLI143))(/* INLINE-ARGS */V197); |
1433 |
(void) (*Lnk144)(); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V198)); |
|
vs_top=sup; |
|
|
V171= vs_base[0]; |
|
|
(void)((*(LnkLI117))(V171)); |
|
1434 |
princ_str("V1;",VV[29]); |
princ_str("V1;",VV[29]); |
1435 |
princ_str("va_list ap;va_start(ap,first);V1=call_",VV[29]); |
princ_str("va_list ap;va_start(ap,first);V1=call_",VV[29]); |
1436 |
if(((V169))==Cnil){ |
if(((V195))==Cnil){ |
1437 |
goto T566;} |
goto T561;} |
1438 |
V172= VV[80]; |
V199= VV[80]; |
1439 |
goto T564; |
goto T559; |
1440 |
goto T566; |
goto T561; |
1441 |
T566:; |
T561:; |
1442 |
V172= VV[81]; |
V199= VV[81]; |
1443 |
goto T564; |
goto T559; |
1444 |
T564:; |
T559:; |
1445 |
(void)((*(LnkLI117))(V172)); |
(void)((*(LnkLI117))(V199)); |
1446 |
princ_str("proc_new(VV[",VV[29]); |
princ_str("proc_new(VV[",VV[29]); |
1447 |
V173= (*(LnkLI145))((V164)); |
V200= (*(LnkLI145))((V189)); |
1448 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V173)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V200)); |
1449 |
princ_str("],(void **)(void *)&Lnk",VV[29]); |
princ_str("],(void **)(void *)&Lnk",VV[29]); |
1450 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1451 |
if((V169)!=Cnil){ |
if((V195)!=Cnil){ |
1452 |
goto T572;} |
goto T567;} |
1453 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1454 |
V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166))); |
V201 = CMPmake_fixnum((long)(*(LnkLI146))((V192),(V191))); |
1455 |
(void)((*(LnkLI117))(V174)); |
(void)((*(LnkLI117))(V201)); |
1456 |
goto T572; |
goto T567; |
1457 |
T572:; |
T567:; |
1458 |
princ_str(",first,ap);va_end(ap);return V1;}",VV[29]); |
princ_str(",first,ap);va_end(ap);return V1;}",VV[29]); |
1459 |
goto T520;} |
goto T519;} |
1460 |
goto T551; |
goto T548; |
1461 |
T551:; |
T548:; |
1462 |
princ_str("(){return call_proc0(VV[",VV[29]); |
princ_str("(){return call_proc0(VV[",VV[29]); |
1463 |
V175= (*(LnkLI145))((V164)); |
V202= (*(LnkLI145))((V189)); |
1464 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V175)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V202)); |
1465 |
princ_str("],(void **)(void *)&Lnk",VV[29]); |
princ_str("],(void **)(void *)&Lnk",VV[29]); |
1466 |
(void)((*(LnkLI117))((V165))); |
(void)((*(LnkLI117))((V190))); |
1467 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1468 |
goto T520; |
goto T519; |
1469 |
T520:; |
T519:; |
1470 |
V164= symbol_name((V164)); |
V189= symbol_name((V189)); |
1471 |
if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V189))))==Cnil){ |
1472 |
goto T583;} |
goto T578;} |
1473 |
V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164))); |
V189= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V189))); |
1474 |
goto T583; |
goto T578; |
1475 |
T583:; |
T578:; |
1476 |
princ_str(" /* ",VV[29]); |
princ_str(" /* ",VV[29]); |
1477 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V189))); |
1478 |
princ_str(" */",VV[29]); |
princ_str(" */",VV[29]); |
1479 |
{object V176 = Cnil; |
{object V203 = Cnil; |
1480 |
VMR13(V176)}} |
VMR13(V203)}} |
|
base[0]=base[0]; |
|
1481 |
return Cnil; |
return Cnil; |
1482 |
} |
} |
1483 |
/* local entry for function WT-FUNCALL-C */ |
/* local entry for function WT-FUNCALL-C */ |
1484 |
|
|
1485 |
static object LI14(V178) |
static object LI14(V205) |
1486 |
|
|
1487 |
register object V178; |
register object V205; |
1488 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1489 |
bds_check; |
bds_check; |
1490 |
goto TTL; |
goto TTL; |
1491 |
TTL:; |
TTL:; |
1492 |
{object V179; |
{object V206; |
1493 |
object V180; |
object V207; |
1494 |
register object V181; |
register object V208; |
1495 |
V179= car((V178)); |
V206= CMPcar((V205)); |
1496 |
V180= cdr((V178)); |
V207= CMPcdr((V205)); |
1497 |
V181= Cnil; |
V208= Cnil; |
1498 |
if(!(eql(car((V179)),VV[23]))){ |
if(!(eql(CMPcar((V206)),VV[23]))){ |
1499 |
goto T595;} |
goto T590;} |
1500 |
{object V182; |
{object V209; |
1501 |
V182= make_cons(car((V179)),caddr((V179))); |
V209= make_cons(CMPcar((V206)),CMPcaddr((V206))); |
1502 |
if((symbol_value(VV[83]))==Cnil){ |
if(((VV[83]->s.s_dbind))==Cnil){ |
1503 |
goto T598;} |
goto T593;} |
1504 |
princ_str("\n (type_of(",VV[29]); |
princ_str("\n (type_of(",VV[29]); |
1505 |
base[0]= (V182); |
base[0]= (V209); |
1506 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1507 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
1508 |
vs_top=sup; |
vs_top=sup; |
1509 |
princ_str(")==t_cfun)||FEinvalid_function(",VV[29]); |
princ_str(")==t_cfun)||FEinvalid_function(",VV[29]); |
1510 |
base[0]= (V182); |
base[0]= (V209); |
1511 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1512 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
1513 |
vs_top=sup; |
vs_top=sup; |
1514 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1515 |
goto T598; |
goto T593; |
1516 |
T598:; |
T593:; |
1517 |
(void)((*(LnkLI116))((V180))); |
(void)((*(LnkLI116))((V207))); |
1518 |
princ_str("\n (",VV[29]); |
princ_str("\n (",VV[29]); |
1519 |
base[0]= (V182); |
base[0]= (V209); |
1520 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1521 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
1522 |
vs_top=sup; |
vs_top=sup; |
1523 |
goto T593;} |
goto T588;} |
1524 |
goto T595; |
goto T590; |
1525 |
T595:; |
T590:; |
1526 |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
(VV[84]->s.s_dbind)= number_plus((VV[84]->s.s_dbind),small_fixnum(1)); |
1527 |
V181= list(2,VV[33],symbol_value(VV[84])); |
V208= list(2,VV[33],(VV[84]->s.s_dbind)); |
1528 |
bds_bind(VV[21],(V181)); |
bds_bind(VV[21],(V208)); |
1529 |
princ_str("\n {object V",VV[29]); |
princ_str("\n {object V",VV[29]); |
1530 |
(void)((*(LnkLI117))(cadr((V181)))); |
(void)((*(LnkLI117))(CMPcadr((V208)))); |
1531 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
1532 |
(void)((*(LnkLI115))(car((V178)))); |
(void)((*(LnkLI115))(CMPcar((V205)))); |
1533 |
(void)((*(LnkLI116))(cdr((V178)))); |
(void)((*(LnkLI116))(CMPcdr((V205)))); |
1534 |
princ_str("(V",VV[29]); |
princ_str("(V",VV[29]); |
1535 |
(void)((*(LnkLI117))(cadr((V181)))); |
(void)((*(LnkLI117))(CMPcadr((V208)))); |
1536 |
bds_unwind1; |
bds_unwind1; |
1537 |
goto T593; |
goto T588; |
1538 |
T593:; |
T588:; |
1539 |
princ_str(")->cf.cf_self ();",VV[29]); |
princ_str(")->cf.cf_self ();",VV[29]); |
1540 |
if((V181)==Cnil){ |
if((V208)==Cnil){ |
1541 |
goto T590;} |
goto T585;} |
1542 |
princ_char(125,VV[29]);} |
princ_char(125,VV[29]);} |
1543 |
goto T590; |
goto T585; |
1544 |
T590:; |
T585:; |
1545 |
{object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V210 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1546 |
VMR14(V183)} |
VMR14(V210)} |
1547 |
base[0]=base[0]; |
base[0]=base[0]; |
1548 |
return Cnil; |
return Cnil; |
1549 |
} |
} |
1550 |
/* local entry for function INLINE-PROC */ |
/* local entry for function INLINE-PROC */ |
1551 |
|
|
1552 |
static object LI15(V186,V187) |
static object LI15(V213,V214) |
1553 |
|
|
1554 |
object V186;object V187; |
object V213;object V214; |
1555 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1556 |
goto TTL; |
goto TTL; |
1557 |
TTL:; |
TTL:; |
1558 |
{register object V188; |
{register object V215; |
1559 |
register object V189; |
register object V216; |
1560 |
object V190; |
object V217; |
1561 |
V188= make_fixnum((long)length((V187))); |
V215= CMPmake_fixnum((long)length((V214))); |
1562 |
V189= Cnil; |
V216= Cnil; |
1563 |
V190= (*(LnkLI145))((V186)); |
V217= (*(LnkLI145))((V213)); |
1564 |
base[2]= Ct; |
base[2]= Ct; |
1565 |
base[3]= VV[85]; |
base[3]= VV[85]; |
1566 |
base[4]= (V186); |
base[4]= (V213); |
1567 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1568 |
Lformat(); |
Lformat(); |
1569 |
vs_top=sup; |
vs_top=sup; |
1570 |
{object V191; |
{object V218; |
1571 |
{object V192= (V188); |
{object V219= (V215); |
1572 |
if(!eql(V192,VV[86]))goto T636; |
if(!eql(V219,VV[86]))goto T631; |
1573 |
base[2]= Cnil; |
base[2]= Cnil; |
1574 |
base[3]= VV[88]; |
base[3]= VV[88]; |
1575 |
base[4]= (V190); |
base[4]= (V217); |
1576 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1577 |
Lformat(); |
Lformat(); |
1578 |
vs_top=sup; |
vs_top=sup; |
1579 |
V193= vs_base[0]; |
V220= vs_base[0]; |
1580 |
V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]); |
V218= list(5,VV[87],Ct,small_fixnum(3),V220,VV[58]); |
1581 |
goto T635; |
goto T630; |
1582 |
goto T636; |
goto T631; |
1583 |
T636:; |
T631:; |
1584 |
if(!eql(V192,VV[89]))goto T641; |
if(!eql(V219,VV[89]))goto T636; |
1585 |
base[2]= Cnil; |
base[2]= Cnil; |
1586 |
base[3]= VV[91]; |
base[3]= VV[91]; |
1587 |
base[4]= (V190); |
base[4]= (V217); |
1588 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1589 |
Lformat(); |
Lformat(); |
1590 |
vs_top=sup; |
vs_top=sup; |
1591 |
V194= vs_base[0]; |
V221= vs_base[0]; |
1592 |
V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]); |
V218= list(5,VV[90],Ct,small_fixnum(3),V221,VV[58]); |
1593 |
goto T635; |
goto T630; |
1594 |
goto T641; |
goto T636; |
1595 |
T641:; |
T636:; |
1596 |
base[2]= (V188); |
base[2]= (V215); |
1597 |
base[3]= VV[63]; |
base[3]= VV[63]; |
1598 |
base[4]= Ct; |
base[4]= Ct; |
1599 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1600 |
Lmake_list(); |
Lmake_list(); |
1601 |
vs_top=sup; |
vs_top=sup; |
1602 |
V195= vs_base[0]; |
V222= vs_base[0]; |
1603 |
base[2]= Cnil; |
base[2]= Cnil; |
1604 |
base[3]= VV[92]; |
base[3]= VV[92]; |
1605 |
base[4]= (V190); |
base[4]= (V217); |
1606 |
base[5]= (V188); |
base[5]= (V215); |
1607 |
{register object V197; |
{register object V224; |
1608 |
register object V198; |
register object V225; |
1609 |
V197= (V188); |
V224= (V215); |
1610 |
V198= small_fixnum(0); |
V225= small_fixnum(0); |
1611 |
goto T659; |
goto T654; |
1612 |
T659:; |
T654:; |
1613 |
if(!(number_compare((V198),(V197))>=0)){ |
if(!(number_compare((V225),(V224))>=0)){ |
1614 |
goto T660;} |
goto T655;} |
1615 |
base[6]= nreverse((V189)); |
base[6]= nreverse((V216)); |
1616 |
goto T655; |
goto T650; |
|
goto T660; |
|
|
T660:; |
|
|
{register object V199; |
|
|
V199= (V198); |
|
|
V189= make_cons((V199),(V189));} |
|
|
V198= one_plus((V198)); |
|
|
goto T659;} |
|
1617 |
goto T655; |
goto T655; |
1618 |
T655:; |
T655:; |
1619 |
|
{register object V226; |
1620 |
|
V226= (V225); |
1621 |
|
V216= make_cons((V226),(V216));} |
1622 |
|
V225= one_plus((V225)); |
1623 |
|
goto T654;} |
1624 |
|
goto T650; |
1625 |
|
T650:; |
1626 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1627 |
Lformat(); |
Lformat(); |
1628 |
vs_top=sup; |
vs_top=sup; |
1629 |
V196= vs_base[0]; |
V223= vs_base[0]; |
1630 |
V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);} |
V218= list(5,V222,Ct,small_fixnum(3),V223,VV[58]);} |
1631 |
goto T635; |
goto T630; |
1632 |
T635:; |
T630:; |
1633 |
{object V200; |
{object V227; |
1634 |
V200= make_cons((V186),(V191)); |
V227= make_cons((V213),(V218)); |
1635 |
setq(VV[72],make_cons((V200),symbol_value(VV[72])));} |
(VV[72]->s.s_dbind)= make_cons((V227),(VV[72]->s.s_dbind));} |
1636 |
{object V201 = (V191); |
{object V228 = (V218); |
1637 |
VMR15(V201)}}} |
VMR15(V228)}}} |
1638 |
base[0]=base[0]; |
base[0]=base[0]; |
1639 |
return Cnil; |
return Cnil; |
1640 |
} |
} |
1641 |
/* local entry for function WT-SIMPLE-CALL */ |
/* local entry for function WT-SIMPLE-CALL */ |
1642 |
|
|
1643 |
static object LI16(object V204,object V203,object V202,object first,...) |
static object LI16(object V231,object V230,object V229,object first,...) |
1644 |
{ |
{ |
1645 |
va_list ap; |
va_list ap; |
1646 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
1647 |
{object V205; |
{object V232; |
1648 |
object V206; |
object V233; |
1649 |
object V207; |
object V234; |
1650 |
object V208; |
object V235; |
1651 |
va_start(ap,first); |
va_start(ap,first); |
1652 |
if(narg <3) too_few_arguments(); |
V232= V231; |
1653 |
V205= V204; |
V233= V230; |
1654 |
V206= V203; |
V234= V229; |
|
V207= V202; |
|
1655 |
narg = narg - 3; |
narg = narg - 3; |
1656 |
if (narg <= 0) goto T673; |
if (narg <= 0) goto T668; |
1657 |
else { |
else { |
1658 |
V208= first;} |
V235= first;} |
1659 |
--narg; goto T674; |
--narg; goto T669; |
1660 |
goto T673; |
goto T668; |
1661 |
T673:; |
T668:; |
1662 |
V208= Cnil; |
V235= Cnil; |
1663 |
goto T674; |
goto T669; |
1664 |
T674:; |
T669:; |
1665 |
princ_str("simple_",VV[29]); |
princ_str("simple_",VV[29]); |
1666 |
(void)((*(LnkLI117))((V205))); |
(void)((*(LnkLI117))((V232))); |
1667 |
princ_char(40,VV[29]); |
princ_char(40,VV[29]); |
1668 |
if(((V208))==Cnil){ |
if(((V235))==Cnil){ |
1669 |
goto T680;} |
goto T675;} |
1670 |
princ_str("VV[",VV[29]); |
princ_str("VV[",VV[29]); |
1671 |
(void)((*(LnkLI117))((V208))); |
(void)((*(LnkLI117))((V235))); |
1672 |
princ_str("],",VV[29]); |
princ_str("],",VV[29]); |
1673 |
goto T680; |
goto T675; |
1674 |
T680:; |
T675:; |
1675 |
princ_str("base+",VV[29]); |
princ_str("base+",VV[29]); |
1676 |
(void)((*(LnkLI117))((V206))); |
(void)((*(LnkLI117))((V233))); |
1677 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1678 |
(void)((*(LnkLI117))((V207))); |
(void)((*(LnkLI117))((V234))); |
1679 |
princ_char(41,VV[29]); |
princ_char(41,VV[29]); |
1680 |
setq(VV[37],Ct); |
(VV[37]->s.s_dbind)= Ct; |
1681 |
{object V209 = Ct; |
{object V236 = Ct; |
1682 |
VMR16(V209)} |
VMR16(V236)} |
1683 |
va_end(ap); |
va_end(ap); |
1684 |
return Cnil;} |
return Cnil;} |
1685 |
} |
} |
1686 |
/* local entry for function SAVE-FUNOB */ |
/* local entry for function SAVE-FUNOB */ |
1687 |
|
|
1688 |
static object LI17(V211) |
static object LI17(V238) |
1689 |
|
|
1690 |
register object V211; |
register object V238; |
1691 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1692 |
bds_check; |
bds_check; |
1693 |
goto TTL; |
goto TTL; |
1694 |
TTL:; |
TTL:; |
1695 |
{object V212= car((V211)); |
{object V239= CMPcar((V238)); |
1696 |
if((V212!= VV[13]) |
if((V239!= VV[13]) |
1697 |
&& (V212!= VV[150]) |
&& (V239!= VV[150]) |
1698 |
&& (V212!= VV[6]))goto T693; |
&& (V239!= VV[6]))goto T688; |
1699 |
{object V213 = Cnil; |
{object V240 = Cnil; |
1700 |
VMR17(V213)} |
VMR17(V240)} |
1701 |
goto T693; |
goto T688; |
1702 |
T693:; |
T688:; |
1703 |
if((V212!= VV[14]))goto T694; |
if((V239!= VV[14]))goto T689; |
1704 |
if(((*(LnkLI127))(caddr((V211))))==Cnil){ |
if(((*(LnkLI127))(CMPcaddr((V238))))==Cnil){ |
1705 |
goto T695;} |
goto T690;} |
1706 |
if((get(caddr((V211)),VV[55],Cnil))!=Cnil){ |
{object V241 =(CMPcaddr((V238)))->s.s_plist; |
1707 |
goto T696;} |
object ind= VV[55]; |
1708 |
if((get(caddr((V211)),VV[56],Cnil))!=Cnil){ |
while(V241!=Cnil){ |
1709 |
goto T696;} |
if(V241->c.c_car==ind){ |
1710 |
{register object x= caddr((V211)),V214= symbol_value(VV[93]); |
if(((V241->c.c_cdr->c.c_car))!=Cnil){ |
1711 |
while(!endp(V214)) |
goto T691;} |
1712 |
if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){ |
goto T695; |
1713 |
goto T696; |
}else V241=V241->c.c_cdr->c.c_cdr;}} |
|
}else V214=V214->c.c_cdr;} |
|
1714 |
goto T695; |
goto T695; |
1715 |
T695:; |
T695:; |
1716 |
{object V215; |
{object V242 =(CMPcaddr((V238)))->s.s_plist; |
1717 |
V215= list(2,VV[27],(*(LnkLI114))()); |
object ind= VV[56]; |
1718 |
if((symbol_value(VV[83]))==Cnil){ |
while(V242!=Cnil){ |
1719 |
goto T707;} |
if(V242->c.c_car==ind){ |
1720 |
|
if(((V242->c.c_cdr->c.c_car))!=Cnil){ |
1721 |
|
goto T691;} |
1722 |
|
goto T697; |
1723 |
|
}else V242=V242->c.c_cdr->c.c_cdr;}} |
1724 |
|
goto T697; |
1725 |
|
T697:; |
1726 |
|
{register object x= CMPcaddr((V238)),V243= (VV[93]->s.s_dbind); |
1727 |
|
while(V243!=Cnil) |
1728 |
|
if(eql(x,V243->c.c_car->c.c_car) &&V243->c.c_car != Cnil){ |
1729 |
|
goto T691; |
1730 |
|
}else V243=V243->c.c_cdr;} |
1731 |
|
goto T690; |
1732 |
|
T690:; |
1733 |
|
{object V244; |
1734 |
|
V244= list(2,VV[27],(*(LnkLI114))()); |
1735 |
|
if(((VV[83]->s.s_dbind))==Cnil){ |
1736 |
|
goto T702;} |
1737 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1738 |
(void)((*(LnkLI117))((V215))); |
(void)((*(LnkLI117))((V244))); |
1739 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1740 |
V216= (*(LnkLI140))(caddr((V211))); |
V245= (*(LnkLI140))(CMPcaddr((V238))); |
1741 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V216)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V245)); |
1742 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1743 |
goto T705; |
goto T700; |
1744 |
goto T707; |
goto T702; |
1745 |
T707:; |
T702:; |
1746 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1747 |
(void)((*(LnkLI117))((V215))); |
(void)((*(LnkLI117))((V244))); |
1748 |
princ_str("=VV[",VV[29]); |
princ_str("=VV[",VV[29]); |
1749 |
V217= (*(LnkLI140))(caddr((V211))); |
V246= (*(LnkLI140))(CMPcaddr((V238))); |
1750 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V217)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V246)); |
1751 |
princ_str("]->s.s_gfdef;",VV[29]); |
princ_str("]->s.s_gfdef;",VV[29]); |
1752 |
goto T705; |
goto T700; |
1753 |
T705:; |
T700:; |
1754 |
{object V218 = (V215); |
{object V247 = (V244); |
1755 |
VMR17(V218)}} |
VMR17(V247)}} |
1756 |
goto T696; |
goto T691; |
1757 |
T696:; |
T691:; |
1758 |
{object V219 = Cnil; |
{object V248 = Cnil; |
1759 |
VMR17(V219)} |
VMR17(V248)} |
1760 |
goto T694; |
goto T689; |
1761 |
T694:; |
T689:; |
1762 |
if((V212!= VV[18]))goto T719; |
if((V239!= VV[18]))goto T714; |
1763 |
{object V220; |
{object V249; |
1764 |
V220= list(2,VV[27],(*(LnkLI114))()); |
V249= list(2,VV[27],(*(LnkLI114))()); |
1765 |
bds_bind(VV[21],(V220)); |
bds_bind(VV[21],(V249)); |
1766 |
(void)((*(LnkLI115))(caddr((V211)))); |
(void)((*(LnkLI115))(CMPcaddr((V238)))); |
1767 |
{object V221 = (V220); |
{object V250 = (V249); |
1768 |
bds_unwind1; |
bds_unwind1; |
1769 |
VMR17(V221)}} |
VMR17(V250)}} |
1770 |
goto T719; |
goto T714; |
1771 |
T719:; |
T714:; |
1772 |
{object V222 = (*(LnkLI112))(); |
{object V251 = (*(LnkLI112))(); |
1773 |
VMR17(V222)}} |
VMR17(V251)}} |
1774 |
base[0]=base[0]; |
base[0]=base[0]; |
1775 |
return Cnil; |
return Cnil; |
1776 |
} |
} |
1777 |
/* local entry for function PUSH-ARGS */ |
/* local entry for function PUSH-ARGS */ |
1778 |
|
|
1779 |
static object LI18(V224) |
static object LI18(V253) |
1780 |
|
|
1781 |
object V224; |
object V253; |
1782 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1783 |
bds_check; |
bds_check; |
1784 |
goto TTL; |
goto TTL; |
1785 |
TTL:; |
TTL:; |
1786 |
if(((V224))!=Cnil){ |
if(((V253))!=Cnil){ |
1787 |
goto T723;} |
goto T718;} |
1788 |
princ_str("\n vs_base=vs_top;",VV[29]); |
princ_str("\n vs_base=vs_top;",VV[29]); |
1789 |
{object V225 = Cnil; |
{object V254 = Cnil; |
1790 |
VMR18(V225)} |
VMR18(V254)} |
1791 |
goto T723; |
goto T718; |
1792 |
T723:; |
T718:; |
1793 |
if(!(type_of((V224))==t_cons)){ |
if(!(type_of((V253))==t_cons)){ |
1794 |
goto T727;} |
goto T722;} |
1795 |
{object V226; |
{object V255; |
1796 |
V226= symbol_value(VV[19]); |
V255= (VV[19]->s.s_dbind); |
1797 |
bds_bind(VV[19],symbol_value(VV[19])); |
bds_bind(VV[19],(VV[19]->s.s_dbind)); |
1798 |
{register object V227; |
{register object V256; |
1799 |
register object V228; |
register object V257; |
1800 |
V227= (V224); |
V256= (V253); |
1801 |
V228= car((V227)); |
V257= CMPcar((V256)); |
1802 |
goto T734; |
goto T729; |
1803 |
T734:; |
T729:; |
1804 |
if(!(endp_prop((V227)))){ |
if(!(((V256))==Cnil)){ |
1805 |
goto T735;} |
goto T730;} |
1806 |
|
goto T725; |
1807 |
goto T730; |
goto T730; |
1808 |
goto T735; |
T730:; |
|
T735:; |
|
1809 |
base[2]= list(2,VV[27],(*(LnkLI114))()); |
base[2]= list(2,VV[27],(*(LnkLI114))()); |
1810 |
bds_bind(VV[21],base[2]); |
bds_bind(VV[21],base[2]); |
1811 |
V229= (*(LnkLI115))((V228)); |
V258= (*(LnkLI115))((V257)); |
1812 |
bds_unwind1; |
bds_unwind1; |
1813 |
V227= cdr((V227)); |
V256= CMPcdr((V256)); |
1814 |
V228= car((V227)); |
V257= CMPcar((V256)); |
1815 |
goto T734;} |
goto T729;} |
1816 |
goto T730; |
goto T725; |
1817 |
T730:; |
T725:; |
1818 |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
1819 |
(void)((*(LnkLI117))((V226))); |
(void)((*(LnkLI117))((V255))); |
1820 |
princ_str(")+",VV[29]); |
princ_str(")+",VV[29]); |
1821 |
V230= number_minus((VV[19]->s.s_dbind),(V226)); |
V259= number_minus((VV[19]->s.s_dbind),(V255)); |
1822 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V230)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V259)); |
1823 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
1824 |
setq(VV[37],Ct); |
(VV[37]->s.s_dbind)= Ct; |
1825 |
{object V231 = Ct; |
{object V260 = Ct; |
1826 |
bds_unwind1; |
bds_unwind1; |
1827 |
VMR18(V231)}} |
VMR18(V260)}} |
1828 |
goto T727; |
goto T722; |
1829 |
T727:; |
T722:; |
1830 |
{object V232 = Cnil; |
{object V261 = Cnil; |
1831 |
VMR18(V232)} |
VMR18(V261)} |
1832 |
base[0]=base[0]; |
base[0]=base[0]; |
1833 |
return Cnil; |
return Cnil; |
1834 |
} |
} |
1835 |
/* local entry for function PUSH-ARGS-LISPCALL */ |
/* local entry for function PUSH-ARGS-LISPCALL */ |
1836 |
|
|
1837 |
static object LI19(V234) |
static object LI19(V263) |
1838 |
|
|
1839 |
object V234; |
object V263; |
1840 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1841 |
bds_check; |
bds_check; |
1842 |
goto TTL; |
goto TTL; |
1843 |
TTL:; |
TTL:; |
1844 |
{register object V235; |
{register object V264; |
1845 |
register object V236; |
register object V265; |
1846 |
V235= (V234); |
V264= (V263); |
1847 |
V236= car((V235)); |
V265= CMPcar((V264)); |
1848 |
goto T756; |
goto T751; |
1849 |
T756:; |
T751:; |
1850 |
if(!(endp_prop((V235)))){ |
if(!(((V264))==Cnil)){ |
1851 |
goto T757;} |
goto T752;} |
1852 |
{object V237 = Cnil; |
{object V266 = Cnil; |
1853 |
VMR19(V237)} |
VMR19(V266)} |
1854 |
goto T757; |
goto T752; |
1855 |
T757:; |
T752:; |
1856 |
base[1]= list(2,VV[27],(*(LnkLI114))()); |
base[1]= list(2,VV[27],(*(LnkLI114))()); |
1857 |
bds_bind(VV[21],base[1]); |
bds_bind(VV[21],base[1]); |
1858 |
V238= (*(LnkLI115))((V236)); |
V267= (*(LnkLI115))((V265)); |
1859 |
bds_unwind1; |
bds_unwind1; |
1860 |
V235= cdr((V235)); |
V264= CMPcdr((V264)); |
1861 |
V236= car((V235)); |
V265= CMPcar((V264)); |
1862 |
goto T756;} |
goto T751;} |
1863 |
base[0]=base[0]; |
base[0]=base[0]; |
1864 |
return Cnil; |
return Cnil; |
1865 |
} |
} |
1866 |
/* local entry for function C2CALL-UNKNOWN-GLOBAL */ |
/* local entry for function C2CALL-UNKNOWN-GLOBAL */ |
1867 |
|
|
1868 |
static object LI20(V243,V244,V245,V246) |
static object LI20(V272,V273,V274,V275) |
1869 |
|
|
1870 |
register object V243;register object V244;register object V245;register object V246; |
register object V272;register object V273;register object V274;register object V275; |
1871 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1872 |
goto TTL; |
goto TTL; |
1873 |
TTL:; |
TTL:; |
1874 |
if((symbol_value(VV[28]))==Cnil){ |
if(((VV[28]->s.s_dbind))==Cnil){ |
1875 |
goto T769;} |
goto T764;} |
1876 |
if(((V245))!=Cnil){ |
if(((V274))!=Cnil){ |
1877 |
goto T771;} |
goto T766;} |
1878 |
V245= list(2,VV[27],(*(LnkLI114))()); |
V274= list(2,VV[27],(*(LnkLI114))()); |
1879 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1880 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V274))); |
1881 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1882 |
V247= (*(LnkLI140))((V243)); |
V276= (*(LnkLI140))((V272)); |
1883 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V247)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V276)); |
1884 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1885 |
goto T771; |
goto T766; |
1886 |
T771:; |
T766:; |
1887 |
(void)((*(LnkLI116))((V244))); |
(void)((*(LnkLI116))((V273))); |
1888 |
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
1889 |
V248= (*(LnkLI140))((V243)); |
V277= (*(LnkLI140))((V272)); |
1890 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V248)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V277)); |
1891 |
princ_str("],",VV[29]); |
princ_str("],",VV[29]); |
1892 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V274))); |
1893 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1894 |
{object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
{object V278 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V272))); |
1895 |
VMR20(V249)} |
VMR20(V278)} |
1896 |
goto T769; |
goto T764; |
1897 |
T769:; |
T764:; |
1898 |
if(((V245))==Cnil){ |
if(((V274))==Cnil){ |
1899 |
|
goto T784;} |
1900 |
|
(void)((*(LnkLI116))((V273))); |
1901 |
|
if(((V275))==Cnil){ |
1902 |
goto T789;} |
goto T789;} |
1903 |
(void)((*(LnkLI116))((V244))); |
if(((VV[83]->s.s_dbind))==Cnil){ |
1904 |
if(((V246))==Cnil){ |
goto T792;} |
|
goto T794;} |
|
|
if((symbol_value(VV[83]))==Cnil){ |
|
|
goto T797;} |
|
1905 |
princ_str("\n funcall_no_event(",VV[29]); |
princ_str("\n funcall_no_event(",VV[29]); |
1906 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V274))); |
1907 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1908 |
|
goto T787; |
1909 |
goto T792; |
goto T792; |
1910 |
goto T797; |
T792:; |
|
T797:; |
|
1911 |
princ_str("\n CMPfuncall(",VV[29]); |
princ_str("\n CMPfuncall(",VV[29]); |
1912 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V274))); |
1913 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1914 |
goto T792; |
goto T787; |
|
goto T794; |
|
|
T794:; |
|
|
princ_str("\n funcall(",VV[29]); |
|
|
(void)((*(LnkLI117))((V245))); |
|
|
princ_str(");",VV[29]); |
|
|
goto T792; |
|
|
T792:; |
|
|
{object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
|
|
VMR20(V250)} |
|
1915 |
goto T789; |
goto T789; |
1916 |
T789:; |
T789:; |
1917 |
if(((*(LnkLI151))((V244)))==Cnil){ |
princ_str("\n funcall(",VV[29]); |
1918 |
goto T809;} |
(void)((*(LnkLI117))((V274))); |
1919 |
{object V251; |
princ_str(");",VV[29]); |
1920 |
V251= symbol_value(VV[19]); |
goto T787; |
1921 |
V245= list(2,VV[27],(*(LnkLI114))()); |
T787:; |
1922 |
if((symbol_value(VV[83]))==Cnil){ |
{object V279 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1923 |
goto T815;} |
VMR20(V279)} |
1924 |
|
goto T784; |
1925 |
|
T784:; |
1926 |
|
if(((*(LnkLI151))((V273)))==Cnil){ |
1927 |
|
goto T804;} |
1928 |
|
{object V280; |
1929 |
|
V280= (VV[19]->s.s_dbind); |
1930 |
|
V274= list(2,VV[27],(*(LnkLI114))()); |
1931 |
|
if(((VV[83]->s.s_dbind))==Cnil){ |
1932 |
|
goto T810;} |
1933 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1934 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V274))); |
1935 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1936 |
V252= (*(LnkLI140))((V243)); |
V281= (*(LnkLI140))((V272)); |
1937 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V252)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V281)); |
1938 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1939 |
goto T813; |
goto T808; |
1940 |
goto T815; |
goto T810; |
1941 |
T815:; |
T810:; |
1942 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1943 |
(void)((*(LnkLI117))((V245))); |
(void)((*(LnkLI117))((V274))); |
1944 |
princ_str("=(VV[",VV[29]); |
princ_str("=(VV[",VV[29]); |
1945 |
V253= (*(LnkLI140))((V243)); |
V282= (*(LnkLI140))((V272)); |
1946 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V253)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V282)); |
1947 |
princ_str("]->s.s_gfdef);",VV[29]); |
princ_str("]->s.s_gfdef);",VV[29]); |
1948 |
goto T813; |
goto T808; |
1949 |
T813:; |
T808:; |
1950 |
(void)((*(LnkLI120))((V244))); |
(void)((*(LnkLI120))((V273))); |
1951 |
if((symbol_value(VV[21]))==(VV[94])){ |
if(((VV[21]->s.s_dbind))==(VV[94])){ |
1952 |
goto T828;} |
goto T823;} |
1953 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
if(!(((VV[21]->s.s_dbind))==(VV[59]))){ |
1954 |
goto T829;} |
goto T824;} |
1955 |
goto T828; |
goto T823; |
1956 |
T828:; |
T823:; |
1957 |
princ_str("\n lispcall",VV[29]); |
princ_str("\n lispcall",VV[29]); |
1958 |
if(((V246))==Cnil){ |
if(((V275))==Cnil){ |
1959 |
goto T835;} |
goto T830;} |
1960 |
princ_str("_no_event",VV[29]); |
princ_str("_no_event",VV[29]); |
1961 |
goto T835; |
goto T830; |
1962 |
T835:; |
T830:; |
1963 |
princ_str("(base+",VV[29]); |
princ_str("(base+",VV[29]); |
1964 |
(void)((*(LnkLI117))((V251))); |
(void)((*(LnkLI117))((V280))); |
1965 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1966 |
V254 = make_fixnum((long)length((V244))); |
V283 = CMPmake_fixnum((long)length((V273))); |
1967 |
(void)((*(LnkLI117))(V254)); |
(void)((*(LnkLI117))(V283)); |
1968 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1969 |
setq(VV[37],Ct); |
(VV[37]->s.s_dbind)= Ct; |
1970 |
{object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V284 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1971 |
VMR20(V255)} |
VMR20(V284)} |
1972 |
goto T829; |
goto T824; |
1973 |
T829:; |
T824:; |
1974 |
if(((V246))==Cnil){ |
if(((V275))==Cnil){ |
1975 |
goto T849;} |
goto T844;} |
1976 |
V256= VV[96]; |
V285= VV[96]; |
1977 |
goto T847; |
goto T842; |
1978 |
goto T849; |
goto T844; |
1979 |
T849:; |
T844:; |
1980 |
V256= VV[97]; |
V285= VV[97]; |
1981 |
|
goto T842; |
1982 |
|
T842:; |
1983 |
|
V286 = CMPmake_fixnum((long)length((V273))); |
1984 |
|
V287= list(4,VV[95],V285,(V280),V286); |
1985 |
|
{object V288 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V287)); |
1986 |
|
VMR20(V288)}} |
1987 |
|
goto T804; |
1988 |
|
T804:; |
1989 |
|
{object V289; |
1990 |
|
V289= (VV[19]->s.s_dbind); |
1991 |
|
(void)((*(LnkLI120))((V273))); |
1992 |
|
if(((VV[21]->s.s_dbind))==(VV[94])){ |
1993 |
|
goto T847;} |
1994 |
|
if(!(((VV[21]->s.s_dbind))==(VV[59]))){ |
1995 |
|
goto T848;} |
1996 |
goto T847; |
goto T847; |
1997 |
T847:; |
T847:; |
|
V257 = make_fixnum((long)length((V244))); |
|
|
V258= list(4,VV[95],V256,(V251),V257); |
|
|
{object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258)); |
|
|
VMR20(V259)}} |
|
|
goto T809; |
|
|
T809:; |
|
|
{object V260; |
|
|
V260= symbol_value(VV[19]); |
|
|
(void)((*(LnkLI120))((V244))); |
|
|
if((symbol_value(VV[21]))==(VV[94])){ |
|
|
goto T852;} |
|
|
if(!((symbol_value(VV[21]))==(VV[59]))){ |
|
|
goto T853;} |
|
|
goto T852; |
|
|
T852:; |
|
1998 |
princ_str("\n symlispcall",VV[29]); |
princ_str("\n symlispcall",VV[29]); |
1999 |
if(((V246))==Cnil){ |
if(((V275))==Cnil){ |
2000 |
goto T859;} |
goto T854;} |
2001 |
princ_str("_no_event",VV[29]); |
princ_str("_no_event",VV[29]); |
2002 |
goto T859; |
goto T854; |
2003 |
T859:; |
T854:; |
2004 |
princ_str("(VV[",VV[29]); |
princ_str("(VV[",VV[29]); |
2005 |
V261= (*(LnkLI140))((V243)); |
V290= (*(LnkLI140))((V272)); |
2006 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V261)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V290)); |
2007 |
princ_str("],base+",VV[29]); |
princ_str("],base+",VV[29]); |
2008 |
(void)((*(LnkLI117))((V260))); |
(void)((*(LnkLI117))((V289))); |
2009 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
2010 |
V262 = make_fixnum((long)length((V244))); |
V291 = CMPmake_fixnum((long)length((V273))); |
2011 |
(void)((*(LnkLI117))(V262)); |
(void)((*(LnkLI117))(V291)); |
2012 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
2013 |
setq(VV[37],Ct); |
(VV[37]->s.s_dbind)= Ct; |
2014 |
{object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
{object V292 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V272))); |
2015 |
VMR20(V263)} |
VMR20(V292)} |
2016 |
goto T853; |
goto T848; |
2017 |
T853:; |
T848:; |
2018 |
if(((V246))==Cnil){ |
if(((V275))==Cnil){ |
2019 |
goto T875;} |
goto T870;} |
2020 |
V264= VV[98]; |
V293= VV[98]; |
2021 |
goto T873; |
goto T868; |
2022 |
goto T875; |
goto T870; |
2023 |
T875:; |
T870:; |
2024 |
V264= VV[99]; |
V293= VV[99]; |
2025 |
goto T873; |
goto T868; |
2026 |
T873:; |
T868:; |
2027 |
V265 = make_fixnum((long)length((V244))); |
V294 = CMPmake_fixnum((long)length((V273))); |
2028 |
V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243))); |
V295= list(5,VV[95],V293,(V289),V294,(*(LnkLI140))((V272))); |
2029 |
{object V267 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V266,Cnil,(V243))); |
{object V296 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V295,Cnil,(V272))); |
2030 |
VMR20(V267)}} |
VMR20(V296)}} |
2031 |
return Cnil; |
return Cnil; |
2032 |
} |
} |
2033 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
2036 |
register object *base0; |
register object *base0; |
2037 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2038 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
2039 |
vs_reserve(VM21); |
vs_check; |
2040 |
{object V268; |
{object V297; |
2041 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
2042 |
{object *p=vs_top; |
{object *p=vs_top; |
2043 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
2044 |
V268=(base[0]); |
V297=(base[0]); |
2045 |
vs_top=sup; |
vs_top=sup; |
2046 |
princ_str("(VFUN_NARGS=",VV[29]); |
princ_str("(VFUN_NARGS=",VV[29]); |
2047 |
V269 = make_fixnum((long)length((V268))); |
V298 = CMPmake_fixnum((long)length((V297))); |
2048 |
(void)((*(LnkLI117))(V269)); |
(void)((*(LnkLI117))(V298)); |
2049 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
2050 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
2051 |
base[2]= (V268); |
base[2]= (V297); |
2052 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2053 |
(void) (*Lnk152)(); |
(void) (*Lnk152)(); |
2054 |
vs_top=sup; |
vs_top=sup; |
2065 |
static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */ |
static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */ |
2066 |
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
2067 |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
2068 |
static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* DECLARATION-TYPE */ |
static object LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[144],(void **)(void *)&LnkLI144,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
2069 |
static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* DECLARATION-TYPE */ |
2070 |
static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */ |
static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */ |
2071 |
static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */ |
static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */ |
2072 |
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
2076 |
static object LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */ |
static object LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */ |
2077 |
static object LnkTLI135(){return call_proc0(VV[135],(void **)(void *)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI135(){return call_proc0(VV[135],(void **)(void *)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */ |
2078 |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
2079 |
static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* SAVE-AVMA */ |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)(void *)&LnkLI133,1,first,ap);va_end(ap);return V1;} /* SAVE-AVMA */ |
2080 |
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
2081 |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */ |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */ |
2082 |
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;} /* UNWIND-NO-EXIT */ |
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;} /* UNWIND-NO-EXIT */ |
2083 |
static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */ |
static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */ |
2084 |
static object LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */ |
static object LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */ |
2085 |
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
2086 |
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* INC-INLINE-BLOCKS */ |
static object LnkTLI126(){return call_proc0(VV[126],(void **)(void *)&LnkLI126);} /* INC-INLINE-BLOCKS */ |
2087 |
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)(void *)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)(void *)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
2088 |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */ |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */ |
2089 |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */ |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */ |