132 |
{register object V18; |
{register object V18; |
133 |
register object V19; |
register object V19; |
134 |
register object V20; |
register object V20; |
135 |
object V21; |
register object V21; |
136 |
register object V22; |
object V22; |
137 |
object V23; |
register object V23; |
138 |
object V24; |
object V24; |
139 |
object V25; |
object V25; |
140 |
|
object V26; |
141 |
vs_base=vs_top; |
vs_base=vs_top; |
142 |
Lgensym(); |
Lgensym(); |
143 |
vs_top=sup; |
vs_top=sup; |
166 |
Lgensym(); |
Lgensym(); |
167 |
vs_top=sup; |
vs_top=sup; |
168 |
V24= vs_base[0]; |
V24= vs_base[0]; |
169 |
V25= Cnil; |
vs_base=vs_top; |
170 |
|
Lgensym(); |
171 |
|
vs_top=sup; |
172 |
|
V25= vs_base[0]; |
173 |
|
V26= Cnil; |
174 |
base[6]= base[5]; |
base[6]= base[5]; |
175 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
176 |
(void) (*Lnk32)(); |
(void) (*Lnk42)(); |
177 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
178 |
V25= vs_base[0]; |
V26= vs_base[0]; |
179 |
vs_base++; |
vs_base++; |
180 |
}else{ |
}else{ |
181 |
V25= Cnil;} |
V26= Cnil;} |
182 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
183 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
184 |
}else{ |
}else{ |
185 |
base[5]= Cnil;} |
base[5]= Cnil;} |
186 |
vs_top=sup; |
vs_top=sup; |
187 |
V26= list(3,list(2,(V18),list(2,VV[8],base[3])),base[2],(V20)); |
V27= list(3,list(2,(V18),list(2,VV[8],base[3])),base[2],(V20)); |
188 |
V27= list(2,(V23),(V22)); |
V28= list(3,VV[10],(V18),list(2,VV[11],(V18))); |
189 |
V28= list(2,VV[10],(V18)); |
V29= list(3,(V21),/* INLINE-ARGS */V28,list(3,VV[12],list(3,VV[13],base[2],Cnil),base[4])); |
190 |
V29= list(2,VV[11],list(3,VV[12],(V22),(V23))); |
V30= list(2,(V24),(V23)); |
191 |
V30= list(3,VV[14],(V22),(V23)); |
V31= list(2,VV[15],(V21)); |
192 |
V31= list(3,(V19),/* INLINE-ARGS */V30,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4])); |
V32= list(2,VV[16],list(3,VV[17],(V23),(V24))); |
193 |
V32= list(3,VV[17],(V19),(V22)); |
V33= list(2,VV[18],list(3,VV[19],(V18),(V21))); |
194 |
V33= list(3,VV[18],(V18),(V19)); |
V34= list(3,VV[2],/* INLINE-ARGS */V33,list(3,VV[13],(V23),small_fixnum(0))); |
195 |
V34= list(3,VV[16],(V20),list(4,VV[2],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,list(3,VV[19],(V18),list(3,VV[20],(V19),(V22))))); |
V35= list(2,(V19),list(3,VV[21],(V23),(V24))); |
196 |
V35= list(2,VV[22],(V20)); |
V36= list(3,VV[22],(V19),(V23)); |
197 |
V36= list(3,VV[21],/* INLINE-ARGS */V35,list(2,VV[23],(V24))); |
V37= list(3,VV[23],(V21),(V19)); |
198 |
V37= list(3,VV[16],base[2],list(2,VV[24],(V20))); |
V38= list(3,VV[13],(V20),list(4,VV[2],/* INLINE-ARGS */V36,/* INLINE-ARGS */V37,list(3,VV[24],(V21),list(3,VV[25],(V19),(V23))))); |
199 |
V38= list(3,VV[16],(V20),list(2,VV[25],(V20))); |
V39= list(2,VV[27],(V20)); |
200 |
V39= list(3,/* INLINE-ARGS */V38,list(2,VV[23],(V21)),(V24)); |
V40= list(3,VV[26],/* INLINE-ARGS */V39,list(2,VV[28],(V25))); |
201 |
V40= list(5,VV[9],/* INLINE-ARGS */V27,/* INLINE-ARGS */V28,/* INLINE-ARGS */V29,listA(7,VV[13],/* INLINE-ARGS */V31,/* INLINE-ARGS */V34,(V21),/* INLINE-ARGS */V36,/* INLINE-ARGS */V37,append(base[5],/* INLINE-ARGS */V39))); |
V41= list(3,VV[13],base[2],list(2,VV[29],(V20))); |
202 |
V41= make_cons(/* INLINE-ARGS */V40,Cnil); |
V42= list(3,VV[19],(V21),(V18)); |
203 |
base[6]= listA(3,VV[1],/* INLINE-ARGS */V26,append((V25),/* INLINE-ARGS */V41)); |
V43= list(3,VV[30],/* INLINE-ARGS */V42,list(3,VV[19],VV[31],list(2,VV[29],list(2,VV[32],list(2,VV[33],list(3,VV[34],list(2,VV[35],base[2]),(V18))))))); |
204 |
|
V44= list(3,VV[2],/* INLINE-ARGS */V43,make_cons(VV[12],base[5])); |
205 |
|
V45= list(3,VV[13],(V20),list(2,VV[36],(V20))); |
206 |
|
V46= list(3,VV[9],/* INLINE-ARGS */V29,list(6,VV[14],/* INLINE-ARGS */V30,/* INLINE-ARGS */V31,/* INLINE-ARGS */V32,/* INLINE-ARGS */V34,list(10,VV[20],/* INLINE-ARGS */V35,/* INLINE-ARGS */V38,(V22),/* INLINE-ARGS */V40,/* INLINE-ARGS */V41,/* INLINE-ARGS */V44,/* INLINE-ARGS */V45,list(2,VV[28],(V22)),(V25)))); |
207 |
|
V47= make_cons(/* INLINE-ARGS */V46,Cnil); |
208 |
|
base[6]= listA(3,VV[1],/* INLINE-ARGS */V27,append((V26),/* INLINE-ARGS */V47)); |
209 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
210 |
return;} |
return;} |
211 |
} |
} |
217 |
vs_reserve(VM4); |
vs_reserve(VM4); |
218 |
check_arg(2); |
check_arg(2); |
219 |
vs_top=sup; |
vs_top=sup; |
220 |
{object V42=base[0]->c.c_cdr; |
{object V48=base[0]->c.c_cdr; |
221 |
if(endp(V42))invalid_macro_call(); |
if(endp(V48))invalid_macro_call(); |
222 |
{object V43= (V42->c.c_car); |
{object V49= (V48->c.c_car); |
223 |
if(endp(V43))invalid_macro_call(); |
if(endp(V49))invalid_macro_call(); |
224 |
base[2]= (V43->c.c_car); |
base[2]= (V49->c.c_car); |
225 |
V43=V43->c.c_cdr; |
V49=V49->c.c_cdr; |
226 |
if(endp(V43)){ |
if(endp(V49)){ |
227 |
base[3]= VV[0]; |
base[3]= VV[0]; |
228 |
} else { |
} else { |
229 |
base[3]= (V43->c.c_car); |
base[3]= (V49->c.c_car); |
230 |
V43=V43->c.c_cdr;} |
V49=V49->c.c_cdr;} |
231 |
if(endp(V43)){ |
if(endp(V49)){ |
232 |
base[4]= Cnil; |
base[4]= Cnil; |
233 |
} else { |
} else { |
234 |
base[4]= (V43->c.c_car); |
base[4]= (V49->c.c_car); |
235 |
V43=V43->c.c_cdr;} |
V49=V49->c.c_cdr;} |
236 |
if(!endp(V43))invalid_macro_call();} |
if(!endp(V49))invalid_macro_call();} |
237 |
V42=V42->c.c_cdr; |
V48=V48->c.c_cdr; |
238 |
base[5]= V42;} |
base[5]= V48;} |
239 |
{object V44; |
{object V50; |
240 |
object V45; |
object V51; |
241 |
register object V46; |
register object V52; |
242 |
object V47; |
object V53; |
243 |
object V48; |
object V54; |
244 |
object V49; |
object V55; |
245 |
vs_base=vs_top; |
vs_base=vs_top; |
246 |
Lgensym(); |
Lgensym(); |
247 |
vs_top=sup; |
vs_top=sup; |
248 |
V44= vs_base[0]; |
V50= vs_base[0]; |
249 |
vs_base=vs_top; |
vs_base=vs_top; |
250 |
Lgensym(); |
Lgensym(); |
251 |
vs_top=sup; |
vs_top=sup; |
252 |
V45= vs_base[0]; |
V51= vs_base[0]; |
253 |
vs_base=vs_top; |
vs_base=vs_top; |
254 |
Lgensym(); |
Lgensym(); |
255 |
vs_top=sup; |
vs_top=sup; |
256 |
V46= vs_base[0]; |
V52= vs_base[0]; |
257 |
vs_base=vs_top; |
vs_base=vs_top; |
258 |
Lgensym(); |
Lgensym(); |
259 |
vs_top=sup; |
vs_top=sup; |
260 |
V47= vs_base[0]; |
V53= vs_base[0]; |
261 |
vs_base=vs_top; |
vs_base=vs_top; |
262 |
Lgensym(); |
Lgensym(); |
263 |
vs_top=sup; |
vs_top=sup; |
264 |
V48= vs_base[0]; |
V54= vs_base[0]; |
265 |
V49= Cnil; |
V55= Cnil; |
266 |
base[6]= base[5]; |
base[6]= base[5]; |
267 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
268 |
(void) (*Lnk32)(); |
(void) (*Lnk42)(); |
269 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
270 |
V49= vs_base[0]; |
V55= vs_base[0]; |
271 |
vs_base++; |
vs_base++; |
272 |
}else{ |
}else{ |
273 |
V49= Cnil;} |
V55= Cnil;} |
274 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
275 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
276 |
}else{ |
}else{ |
277 |
base[5]= Cnil;} |
base[5]= Cnil;} |
278 |
vs_top=sup; |
vs_top=sup; |
279 |
V50= list(3,list(2,(V44),list(2,VV[8],base[3])),base[2],(V46)); |
V56= list(3,list(2,(V50),list(2,VV[8],base[3])),base[2],(V52)); |
280 |
V51= list(2,VV[10],(V44)); |
V57= list(2,VV[15],(V50)); |
281 |
V52= list(3,(V45),/* INLINE-ARGS */V51,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4])); |
V58= list(3,(V51),/* INLINE-ARGS */V57,list(3,VV[12],list(3,VV[13],base[2],Cnil),base[4])); |
282 |
V53= list(3,VV[16],(V46),list(3,VV[19],(V44),(V45))); |
V59= list(3,VV[13],(V52),list(3,VV[24],(V50),(V51))); |
283 |
V54= list(2,VV[22],(V46)); |
V60= list(2,VV[27],(V52)); |
284 |
V55= list(3,VV[21],/* INLINE-ARGS */V54,list(2,VV[23],(V48))); |
V61= list(3,VV[26],/* INLINE-ARGS */V60,list(2,VV[28],(V54))); |
285 |
V56= list(3,VV[16],base[2],list(2,VV[24],(V46))); |
V62= list(3,VV[13],base[2],list(2,VV[29],(V52))); |
286 |
V57= list(3,VV[16],(V46),list(2,VV[25],(V46))); |
V63= list(3,VV[13],(V52),list(2,VV[36],(V52))); |
287 |
V58= list(3,/* INLINE-ARGS */V57,list(2,VV[23],(V47)),(V48)); |
V64= list(3,/* INLINE-ARGS */V63,list(2,VV[28],(V53)),(V54)); |
288 |
V59= listA(7,VV[13],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,(V47),/* INLINE-ARGS */V55,/* INLINE-ARGS */V56,append(base[5],/* INLINE-ARGS */V58)); |
V65= listA(7,VV[20],/* INLINE-ARGS */V58,/* INLINE-ARGS */V59,(V53),/* INLINE-ARGS */V61,/* INLINE-ARGS */V62,append(base[5],/* INLINE-ARGS */V64)); |
289 |
V60= make_cons(/* INLINE-ARGS */V59,Cnil); |
V66= make_cons(/* INLINE-ARGS */V65,Cnil); |
290 |
base[6]= listA(3,VV[1],/* INLINE-ARGS */V50,append((V49),/* INLINE-ARGS */V60)); |
base[6]= listA(3,VV[1],/* INLINE-ARGS */V56,append((V55),/* INLINE-ARGS */V66)); |
291 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
292 |
return;} |
return;} |
293 |
} |
} |
299 |
vs_reserve(VM5); |
vs_reserve(VM5); |
300 |
check_arg(2); |
check_arg(2); |
301 |
vs_top=sup; |
vs_top=sup; |
302 |
{object V61=base[0]->c.c_cdr; |
{object V67=base[0]->c.c_cdr; |
303 |
if(endp(V61))invalid_macro_call(); |
if(endp(V67))invalid_macro_call(); |
304 |
{object V62= (V61->c.c_car); |
{object V68= (V67->c.c_car); |
305 |
if(endp(V62))invalid_macro_call(); |
if(endp(V68))invalid_macro_call(); |
306 |
base[2]= (V62->c.c_car); |
base[2]= (V68->c.c_car); |
307 |
V62=V62->c.c_cdr; |
V68=V68->c.c_cdr; |
308 |
if(endp(V62)){ |
if(endp(V68)){ |
309 |
base[3]= Cnil; |
base[3]= Cnil; |
310 |
} else { |
} else { |
311 |
base[3]= (V62->c.c_car); |
base[3]= (V68->c.c_car); |
312 |
V62=V62->c.c_cdr;} |
V68=V68->c.c_cdr;} |
313 |
if(!endp(V62))invalid_macro_call();} |
if(!endp(V68))invalid_macro_call();} |
314 |
V61=V61->c.c_cdr; |
V67=V67->c.c_cdr; |
315 |
base[4]= V61;} |
base[4]= V67;} |
316 |
V63= list(3,VV[27],VV[28],base[3]); |
V69= list(3,VV[37],VV[38],base[3]); |
317 |
base[5]= list(3,VV[26],/* INLINE-ARGS */V63,listA(3,VV[29],list(2,base[2],VV[27]),base[4])); |
base[5]= list(3,VV[9],/* INLINE-ARGS */V69,listA(3,VV[39],list(2,base[2],VV[37]),base[4])); |
318 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
319 |
return; |
return; |
320 |
} |
} |
321 |
/* local entry for function SUBSTRINGP */ |
/* local entry for function SUBSTRINGP */ |
322 |
|
|
323 |
static object LI6(V66,V67) |
static object LI6(V72,V73) |
324 |
|
|
325 |
register object V66;register object V67; |
register object V72;register object V73; |
326 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
327 |
goto TTL; |
goto TTL; |
328 |
TTL:; |
TTL:; |
329 |
{register object V68; |
{register object V74; |
330 |
register object V69; |
register object V75; |
331 |
register object V70; |
register object V76; |
332 |
V71 = make_fixnum((long)length((V67))); |
V77 = make_fixnum((long)length((V73))); |
333 |
V72 = make_fixnum((long)length((V66))); |
V78 = make_fixnum((long)length((V72))); |
334 |
V68= number_minus(V71,V72); |
V74= number_minus(V77,V78); |
335 |
V69= make_fixnum((long)length((V66))); |
V75= make_fixnum((long)length((V72))); |
336 |
V70= small_fixnum(0); |
V76= small_fixnum(0); |
|
goto T49; |
|
|
T49:; |
|
|
if(!(number_compare((V70),(V68))>0)){ |
|
|
goto T50;} |
|
|
{object V73 = Cnil; |
|
|
VMR6(V73)} |
|
337 |
goto T50; |
goto T50; |
338 |
T50:; |
T50:; |
339 |
base[0]= (V66); |
if(!(number_compare((V76),(V74))>0)){ |
340 |
base[1]= (V67); |
goto T51;} |
341 |
base[2]= VV[30]; |
{object V79 = Cnil; |
342 |
base[3]= (V70); |
VMR6(V79)} |
343 |
base[4]= VV[31]; |
goto T51; |
344 |
base[5]= number_plus((V70),(V69)); |
T51:; |
345 |
|
base[0]= (V72); |
346 |
|
base[1]= (V73); |
347 |
|
base[2]= VV[40]; |
348 |
|
base[3]= (V76); |
349 |
|
base[4]= VV[41]; |
350 |
|
base[5]= number_plus((V76),(V75)); |
351 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
352 |
Lstring_equal(); |
Lstring_equal(); |
353 |
vs_top=sup; |
vs_top=sup; |
354 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
355 |
goto T54;} |
goto T55;} |
356 |
{object V74 = Ct; |
{object V80 = Ct; |
357 |
VMR6(V74)} |
VMR6(V80)} |
358 |
goto T54; |
goto T55; |
359 |
T54:; |
T55:; |
360 |
V70= one_plus((V70)); |
V76= one_plus((V76)); |
361 |
goto T49;} |
goto T50;} |
362 |
base[0]=base[0]; |
base[0]=base[0]; |
363 |
return Cnil; |
return Cnil; |
364 |
} |
} |
365 |
/* local entry for function PRINT-SYMBOL-APROPOS */ |
/* local entry for function PRINT-SYMBOL-APROPOS */ |
366 |
|
|
367 |
static object LI7(V76) |
static object LI7(V82) |
368 |
|
|
369 |
register object V76; |
register object V82; |
370 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
371 |
goto TTL; |
goto TTL; |
372 |
TTL:; |
TTL:; |
373 |
(void)(prin1((V76),Cnil)); |
(void)(prin1((V82),Cnil)); |
374 |
base[0]= (V76); |
base[0]= (V82); |
375 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
376 |
Lfboundp(); |
Lfboundp(); |
377 |
vs_top=sup; |
vs_top=sup; |
378 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
379 |
goto T67;} |
goto T68;} |
380 |
base[0]= (V76); |
base[0]= (V82); |
381 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
382 |
Lspecial_form_p(); |
Lspecial_form_p(); |
383 |
vs_top=sup; |
vs_top=sup; |
384 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
385 |
goto T72;} |
goto T73;} |
386 |
princ_str(" Special form",Cnil); |
princ_str(" Special form",Cnil); |
387 |
goto T67; |
goto T68; |
388 |
goto T72; |
goto T73; |
389 |
T72:; |
T73:; |
390 |
base[0]= (V76); |
base[0]= (V82); |
391 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
392 |
Lmacro_function(); |
Lmacro_function(); |
393 |
vs_top=sup; |
vs_top=sup; |
394 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
395 |
goto T76;} |
goto T77;} |
396 |
princ_str(" Macro",Cnil); |
princ_str(" Macro",Cnil); |
397 |
goto T67; |
goto T68; |
398 |
goto T76; |
goto T77; |
399 |
T76:; |
T77:; |
400 |
princ_str(" Function",Cnil); |
princ_str(" Function",Cnil); |
401 |
goto T67; |
goto T68; |
402 |
T67:; |
T68:; |
403 |
base[0]= (V76); |
base[0]= (V82); |
404 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
405 |
Lboundp(); |
Lboundp(); |
406 |
vs_top=sup; |
vs_top=sup; |
407 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
408 |
goto T79;} |
goto T80;} |
409 |
base[0]= (V76); |
base[0]= (V82); |
410 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
411 |
Lconstantp(); |
Lconstantp(); |
412 |
vs_top=sup; |
vs_top=sup; |
413 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
414 |
goto T85;} |
goto T86;} |
415 |
princ_str(" Constant: ",Cnil); |
princ_str(" Constant: ",Cnil); |
416 |
goto T83; |
goto T84; |
417 |
goto T85; |
goto T86; |
418 |
T85:; |
T86:; |
419 |
princ_str(" has value: ",Cnil); |
princ_str(" has value: ",Cnil); |
420 |
goto T83; |
goto T84; |
421 |
T83:; |
T84:; |
422 |
base[0]= (V76); |
base[0]= (V82); |
423 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
424 |
Lsymbol_value(); |
Lsymbol_value(); |
425 |
vs_top=sup; |
vs_top=sup; |
426 |
V77= vs_base[0]; |
V83= vs_base[0]; |
427 |
(void)(prin1(V77,Cnil)); |
(void)(prin1(V83,Cnil)); |
428 |
goto T79; |
goto T80; |
429 |
T79:; |
T80:; |
430 |
{object V78 = terpri(Cnil); |
{object V84 = terpri(Cnil); |
431 |
VMR7(V78)} |
VMR7(V84)} |
432 |
base[0]=base[0]; |
base[0]=base[0]; |
433 |
return Cnil; |
return Cnil; |
434 |
} |
} |
438 |
{register object *base=vs_base; |
{register object *base=vs_base; |
439 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
440 |
vs_reserve(VM8); |
vs_reserve(VM8); |
441 |
{object V79; |
{object V85; |
442 |
object V80; |
object V86; |
443 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
444 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
445 |
V79=(base[0]); |
V85=(base[0]); |
446 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
447 |
if(vs_base>=vs_top){vs_top=sup;goto T90;} |
if(vs_base>=vs_top){vs_top=sup;goto T91;} |
448 |
V80=(base[1]); |
V86=(base[1]); |
449 |
vs_top=sup; |
vs_top=sup; |
450 |
goto T91; |
goto T92; |
|
goto T90; |
|
|
T90:; |
|
|
V80= Cnil; |
|
451 |
goto T91; |
goto T91; |
452 |
T91:; |
T91:; |
453 |
V79= coerce_to_string((V79)); |
V86= Cnil; |
454 |
if(((V80))==Cnil){ |
goto T92; |
455 |
goto T97;} |
T92:; |
456 |
{object V81; |
V85= coerce_to_string((V85)); |
457 |
object V82; |
if(((V86))==Cnil){ |
458 |
register object V83; |
goto T98;} |
459 |
base[2]= V80; |
{object V87; |
460 |
|
object V88; |
461 |
|
register object V89; |
462 |
|
base[2]= V86; |
463 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
464 |
Lpackagep(); |
Lpackagep(); |
465 |
vs_top=sup; |
vs_top=sup; |
466 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
467 |
goto T102;} |
goto T103;} |
468 |
V81= V80; |
V87= V86; |
469 |
goto T100; |
goto T101; |
470 |
goto T102; |
goto T103; |
471 |
T102:; |
T103:; |
472 |
base[2]= coerce_to_string(V80); |
base[2]= coerce_to_string(V86); |
473 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
474 |
Lfind_package(); |
Lfind_package(); |
475 |
vs_top=sup; |
vs_top=sup; |
476 |
V81= vs_base[0]; |
V87= vs_base[0]; |
477 |
goto T100; |
goto T101; |
478 |
T100:; |
T101:; |
479 |
V82= Cnil; |
V88= Cnil; |
480 |
V83= Cnil; |
V89= Cnil; |
481 |
{long V85; |
{object V91; |
482 |
long V86; |
object V92; |
483 |
base[2]= (V81); |
base[4]= (V87); |
484 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+4)+1; |
485 |
(void) (*Lnk10)(); |
Lpackage_use_list(); |
|
if(vs_base>=vs_top){vs_top=sup;goto T108;} |
|
|
V85= fix(vs_base[0]); |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T109;} |
|
|
V86= fix(vs_base[0]); |
|
486 |
vs_top=sup; |
vs_top=sup; |
487 |
goto T110; |
V93= vs_base[0]; |
488 |
goto T108; |
V91= make_cons((V87),V93); |
489 |
T108:; |
V92= car((V91)); |
490 |
V85= fix(Cnil); |
goto T112; |
491 |
goto T109; |
T112:; |
492 |
T109:; |
if(!(endp_prop((V91)))){ |
493 |
V86= fix(Cnil); |
goto T113;} |
494 |
goto T110; |
V88= Cnil; |
495 |
T110:; |
goto T100; |
496 |
{object V87; |
goto T113; |
497 |
object V88; |
T113:; |
498 |
V89 = make_fixnum(V86); |
{long V94; |
499 |
V90 = make_fixnum(V85); |
long V95; |
500 |
V87= number_plus(V89,V90); |
base[4]= (V92); |
501 |
V88= small_fixnum(0); |
vs_top=(vs_base=base+4)+1; |
502 |
goto T114; |
(void) (*Lnk15)(); |
503 |
T114:; |
if(vs_base>=vs_top){vs_top=sup;goto T122;} |
504 |
if(!(number_compare((V88),(V87))>=0)){ |
V94= fix(vs_base[0]); |
505 |
goto T115;} |
vs_base++; |
506 |
V82= Cnil; |
if(vs_base>=vs_top){vs_top=sup;goto T123;} |
507 |
goto T99; |
V95= fix(vs_base[0]); |
|
goto T115; |
|
|
T115:; |
|
|
V91 = make_fixnum(V86); |
|
|
if(!(number_compare((V88),V91)<0)){ |
|
|
goto T126;} |
|
|
base[3]= (V81); |
|
|
base[4]= (V88); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
siLpackage_internal(); |
|
508 |
vs_top=sup; |
vs_top=sup; |
|
V83= vs_base[0]; |
|
509 |
goto T124; |
goto T124; |
|
goto T126; |
|
|
T126:; |
|
|
base[3]= (V81); |
|
|
V92 = make_fixnum(V86); |
|
|
base[4]= number_minus((V88),V92); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
siLpackage_external(); |
|
|
vs_top=sup; |
|
|
V83= vs_base[0]; |
|
|
goto T124; |
|
|
T124:; |
|
510 |
goto T122; |
goto T122; |
511 |
T122:; |
T122:; |
512 |
if(((V83))!=Cnil){ |
V94= fix(Cnil); |
|
goto T132;} |
|
|
goto T123; |
|
|
goto T132; |
|
|
T132:; |
|
|
V82= car((V83)); |
|
|
V93= coerce_to_string((V82)); |
|
|
if(((*(LnkLI33))((V79),/* INLINE-ARGS */V93))==Cnil){ |
|
|
goto T137;} |
|
|
(void)((*(LnkLI34))((V82))); |
|
|
goto T137; |
|
|
T137:; |
|
|
V83= cdr((V83)); |
|
|
goto T122; |
|
513 |
goto T123; |
goto T123; |
514 |
T123:; |
T123:; |
515 |
goto T120; |
V95= fix(Cnil); |
516 |
goto T120; |
goto T124; |
517 |
T120:; |
T124:; |
518 |
V88= one_plus((V88)); |
if(((V87))==((V92))){ |
519 |
goto T114;}}} |
goto T125;} |
520 |
goto T99; |
V95= 0; |
521 |
T99:; |
goto T125; |
522 |
{object V94; |
T125:; |
523 |
base[2]= (V80); |
{object V96; |
524 |
vs_top=(vs_base=base+2)+1; |
object V97; |
525 |
Lpackage_use_list(); |
V98 = make_fixnum(V95); |
526 |
|
V99 = make_fixnum(V94); |
527 |
|
V96= number_plus(V98,V99); |
528 |
|
V97= small_fixnum(0); |
529 |
|
goto T132; |
530 |
|
T132:; |
531 |
|
if(!(number_compare((V97),(V96))>=0)){ |
532 |
|
goto T133;} |
533 |
|
goto T119; |
534 |
|
goto T133; |
535 |
|
T133:; |
536 |
|
V100 = make_fixnum(V95); |
537 |
|
if(!(number_compare((V97),V100)<0)){ |
538 |
|
goto T142;} |
539 |
|
base[5]= (V92); |
540 |
|
base[6]= (V97); |
541 |
|
vs_top=(vs_base=base+5)+2; |
542 |
|
siLpackage_internal(); |
543 |
vs_top=sup; |
vs_top=sup; |
544 |
V94= vs_base[0]; |
V89= vs_base[0]; |
545 |
|
goto T140; |
546 |
|
goto T142; |
547 |
|
T142:; |
548 |
|
base[5]= (V92); |
549 |
|
V101 = make_fixnum(V95); |
550 |
|
base[6]= number_minus((V97),V101); |
551 |
|
vs_top=(vs_base=base+5)+2; |
552 |
|
siLpackage_external(); |
553 |
|
vs_top=sup; |
554 |
|
V89= vs_base[0]; |
555 |
|
goto T140; |
556 |
|
T140:; |
557 |
|
goto T138; |
558 |
|
T138:; |
559 |
|
if(((V89))!=Cnil){ |
560 |
|
goto T148;} |
561 |
|
goto T139; |
562 |
goto T148; |
goto T148; |
563 |
T148:; |
T148:; |
564 |
if(((V94))!=Cnil){ |
V88= car((V89)); |
565 |
goto T149;} |
if(((V92))==((V87))){ |
566 |
goto T95; |
goto T154;} |
567 |
goto T149; |
base[6]= symbol_name((V88)); |
568 |
T149:; |
base[7]= (V87); |
569 |
{object V95; |
vs_top=(vs_base=base+6)+2; |
570 |
register object V96; |
Lfind_symbol(); |
571 |
register object V97; |
Llist(); |
572 |
{object V98; |
vs_top=sup; |
573 |
V98= car((V94)); |
base[5]= vs_base[0]; |
574 |
base[2]= (V98); |
vs_top=(vs_base=base+5)+1; |
575 |
|
Llast(); |
576 |
|
vs_top=sup; |
577 |
|
V102= vs_base[0]; |
578 |
|
if(!((VV[31])==(car(V102)))){ |
579 |
|
goto T153;} |
580 |
|
goto T154; |
581 |
|
T154:; |
582 |
|
V103= coerce_to_string((V88)); |
583 |
|
if(((*(LnkLI43))((V85),/* INLINE-ARGS */V103))==Cnil){ |
584 |
|
goto T153;} |
585 |
|
(void)((*(LnkLI44))((V88))); |
586 |
|
goto T153; |
587 |
|
T153:; |
588 |
|
V89= cdr((V89)); |
589 |
|
goto T138; |
590 |
|
goto T139; |
591 |
|
T139:; |
592 |
|
goto T136; |
593 |
|
goto T136; |
594 |
|
T136:; |
595 |
|
V97= one_plus((V97)); |
596 |
|
goto T132;}} |
597 |
|
goto T119; |
598 |
|
T119:; |
599 |
|
V91= cdr((V91)); |
600 |
|
V92= car((V91)); |
601 |
|
goto T112;}} |
602 |
|
goto T100; |
603 |
|
T100:; |
604 |
|
{object V104; |
605 |
|
base[2]= (V86); |
606 |
|
vs_top=(vs_base=base+2)+1; |
607 |
|
Lpackage_use_list(); |
608 |
|
vs_top=sup; |
609 |
|
V104= vs_base[0]; |
610 |
|
goto T178; |
611 |
|
T178:; |
612 |
|
if(((V104))!=Cnil){ |
613 |
|
goto T179;} |
614 |
|
goto T96; |
615 |
|
goto T179; |
616 |
|
T179:; |
617 |
|
{object V105; |
618 |
|
object V106; |
619 |
|
register object V107; |
620 |
|
{object V108; |
621 |
|
V108= car((V104)); |
622 |
|
base[2]= (V108); |
623 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
624 |
Lpackagep(); |
Lpackagep(); |
625 |
vs_top=sup; |
vs_top=sup; |
626 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
627 |
goto T157;} |
goto T187;} |
628 |
V95= (V98); |
V105= (V108); |
629 |
goto T154; |
goto T184; |
630 |
goto T157; |
goto T187; |
631 |
T157:; |
T187:; |
632 |
base[2]= coerce_to_string((V98)); |
base[2]= coerce_to_string((V108)); |
633 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
634 |
Lfind_package(); |
Lfind_package(); |
635 |
vs_top=sup; |
vs_top=sup; |
636 |
V95= vs_base[0];} |
V105= vs_base[0];} |
637 |
goto T154; |
goto T184; |
638 |
T154:; |
T184:; |
639 |
V96= Cnil; |
V106= Cnil; |
640 |
V97= Cnil; |
V107= Cnil; |
641 |
{object V99; |
{object V109; |
642 |
object V100; |
object V110; |
643 |
base[3]= (V95); |
base[3]= (V105); |
644 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
645 |
(void) (*Lnk10)(); |
(void) (*Lnk15)(); |
646 |
vs_top=sup; |
vs_top=sup; |
647 |
V99= vs_base[0]; |
V109= vs_base[0]; |
648 |
V100= small_fixnum(0); |
V110= small_fixnum(0); |
649 |
goto T165; |
goto T195; |
650 |
T165:; |
T195:; |
651 |
if(!(number_compare((V100),(V99))>=0)){ |
if(!(number_compare((V110),(V109))>=0)){ |
652 |
goto T166;} |
goto T196;} |
653 |
V96= Cnil; |
V106= Cnil; |
654 |
goto T153; |
goto T183; |
655 |
goto T166; |
goto T196; |
656 |
T166:; |
T196:; |
657 |
base[3]= (V95); |
base[3]= (V105); |
658 |
base[4]= (V100); |
base[4]= (V110); |
659 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
660 |
siLpackage_external(); |
siLpackage_external(); |
661 |
vs_top=sup; |
vs_top=sup; |
662 |
V97= vs_base[0]; |
V107= vs_base[0]; |
663 |
goto T173; |
goto T203; |
664 |
T173:; |
T203:; |
665 |
if(((V97))!=Cnil){ |
if(((V107))!=Cnil){ |
666 |
goto T178;} |
goto T208;} |
667 |
goto T174; |
goto T204; |
668 |
goto T178; |
goto T208; |
669 |
T178:; |
T208:; |
670 |
V96= car((V97)); |
V106= car((V107)); |
671 |
V101= coerce_to_string((V96)); |
V111= coerce_to_string((V106)); |
672 |
if(((*(LnkLI33))((V79),/* INLINE-ARGS */V101))==Cnil){ |
if(((*(LnkLI43))((V85),/* INLINE-ARGS */V111))==Cnil){ |
673 |
goto T183;} |
goto T213;} |
674 |
(void)((*(LnkLI34))((V96))); |
(void)((*(LnkLI44))((V106))); |
675 |
|
goto T213; |
676 |
|
T213:; |
677 |
|
V107= cdr((V107)); |
678 |
|
goto T203; |
679 |
|
goto T204; |
680 |
|
T204:; |
681 |
|
goto T201; |
682 |
|
goto T201; |
683 |
|
T201:; |
684 |
|
V110= one_plus((V110)); |
685 |
|
goto T195;}} |
686 |
goto T183; |
goto T183; |
687 |
T183:; |
T183:; |
688 |
V97= cdr((V97)); |
V104= cdr((V104)); |
689 |
goto T173; |
goto T178;} |
690 |
goto T174; |
goto T98; |
691 |
T174:; |
T98:; |
692 |
goto T171; |
{object V112; |
693 |
goto T171; |
object V113; |
|
T171:; |
|
|
V100= one_plus((V100)); |
|
|
goto T165;}} |
|
|
goto T153; |
|
|
T153:; |
|
|
V94= cdr((V94)); |
|
|
goto T148;} |
|
|
goto T97; |
|
|
T97:; |
|
|
{object V102; |
|
|
object V103; |
|
694 |
vs_base=vs_top; |
vs_base=vs_top; |
695 |
Llist_all_packages(); |
Llist_all_packages(); |
696 |
vs_top=sup; |
vs_top=sup; |
697 |
V102= vs_base[0]; |
V112= vs_base[0]; |
698 |
V103= car((V102)); |
V113= car((V112)); |
699 |
goto T197; |
goto T227; |
700 |
T197:; |
T227:; |
701 |
if(!(endp_prop((V102)))){ |
if(!(endp_prop((V112)))){ |
702 |
goto T198;} |
goto T228;} |
703 |
goto T95; |
goto T96; |
704 |
goto T198; |
goto T228; |
705 |
T198:; |
T228:; |
706 |
{object V104; |
{object V114; |
707 |
register object V105; |
register object V115; |
708 |
register object V106; |
register object V116; |
709 |
base[4]= V103; |
base[4]= V113; |
710 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
711 |
Lpackagep(); |
Lpackagep(); |
712 |
vs_top=sup; |
vs_top=sup; |
713 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
714 |
goto T205;} |
goto T235;} |
715 |
V104= V103; |
V114= V113; |
716 |
goto T203; |
goto T233; |
717 |
goto T205; |
goto T235; |
718 |
T205:; |
T235:; |
719 |
base[4]= coerce_to_string(V103); |
base[4]= coerce_to_string(V113); |
720 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
721 |
Lfind_package(); |
Lfind_package(); |
722 |
vs_top=sup; |
vs_top=sup; |
723 |
V104= vs_base[0]; |
V114= vs_base[0]; |
724 |
goto T203; |
goto T233; |
725 |
T203:; |
T233:; |
726 |
V105= Cnil; |
V115= Cnil; |
727 |
V106= Cnil; |
V116= Cnil; |
728 |
{long V108; |
{object V118; |
729 |
long V109; |
register object V119; |
730 |
base[4]= (V104); |
base[6]= (V114); |
731 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+6)+1; |
732 |
(void) (*Lnk10)(); |
Lpackage_use_list(); |
733 |
if(vs_base>=vs_top){vs_top=sup;goto T211;} |
vs_top=sup; |
734 |
V108= fix(vs_base[0]); |
V120= vs_base[0]; |
735 |
|
V118= make_cons((V114),V120); |
736 |
|
V119= car((V118)); |
737 |
|
goto T244; |
738 |
|
T244:; |
739 |
|
if(!(endp_prop((V118)))){ |
740 |
|
goto T245;} |
741 |
|
V115= Cnil; |
742 |
|
goto T232; |
743 |
|
goto T245; |
744 |
|
T245:; |
745 |
|
{long V121; |
746 |
|
long V122; |
747 |
|
base[6]= (V119); |
748 |
|
vs_top=(vs_base=base+6)+1; |
749 |
|
(void) (*Lnk15)(); |
750 |
|
if(vs_base>=vs_top){vs_top=sup;goto T254;} |
751 |
|
V121= fix(vs_base[0]); |
752 |
vs_base++; |
vs_base++; |
753 |
if(vs_base>=vs_top){vs_top=sup;goto T212;} |
if(vs_base>=vs_top){vs_top=sup;goto T255;} |
754 |
V109= fix(vs_base[0]); |
V122= fix(vs_base[0]); |
755 |
vs_top=sup; |
vs_top=sup; |
756 |
goto T213; |
goto T256; |
757 |
goto T211; |
goto T254; |
758 |
T211:; |
T254:; |
759 |
V108= fix(Cnil); |
V121= fix(Cnil); |
760 |
goto T212; |
goto T255; |
761 |
T212:; |
T255:; |
762 |
V109= fix(Cnil); |
V122= fix(Cnil); |
763 |
goto T213; |
goto T256; |
764 |
T213:; |
T256:; |
765 |
{object V110; |
if(((V114))==((V119))){ |
766 |
register object V111; |
goto T257;} |
767 |
V112 = make_fixnum(V109); |
V122= 0; |
768 |
V113 = make_fixnum(V108); |
goto T257; |
769 |
V110= number_plus(V112,V113); |
T257:; |
770 |
V111= small_fixnum(0); |
{object V123; |
771 |
goto T217; |
register object V124; |
772 |
T217:; |
V125 = make_fixnum(V122); |
773 |
if(!(number_compare((V111),(V110))>=0)){ |
V126 = make_fixnum(V121); |
774 |
goto T218;} |
V123= number_plus(V125,V126); |
775 |
V105= Cnil; |
V124= small_fixnum(0); |
776 |
goto T202; |
goto T264; |
777 |
goto T218; |
T264:; |
778 |
T218:; |
if(!(number_compare((V124),(V123))>=0)){ |
779 |
V114 = make_fixnum(V109); |
goto T265;} |
780 |
if(!(number_compare((V111),V114)<0)){ |
goto T251; |
781 |
goto T229;} |
goto T265; |
782 |
base[5]= (V104); |
T265:; |
783 |
base[6]= (V111); |
V127 = make_fixnum(V122); |
784 |
vs_top=(vs_base=base+5)+2; |
if(!(number_compare((V124),V127)<0)){ |
785 |
|
goto T274;} |
786 |
|
base[7]= (V119); |
787 |
|
base[8]= (V124); |
788 |
|
vs_top=(vs_base=base+7)+2; |
789 |
siLpackage_internal(); |
siLpackage_internal(); |
790 |
vs_top=sup; |
vs_top=sup; |
791 |
V106= vs_base[0]; |
V116= vs_base[0]; |
792 |
goto T227; |
goto T272; |
793 |
goto T229; |
goto T274; |
794 |
T229:; |
T274:; |
795 |
base[5]= (V104); |
base[7]= (V119); |
796 |
V115 = make_fixnum(V109); |
V128 = make_fixnum(V122); |
797 |
base[6]= number_minus((V111),V115); |
base[8]= number_minus((V124),V128); |
798 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+7)+2; |
799 |
siLpackage_external(); |
siLpackage_external(); |
800 |
vs_top=sup; |
vs_top=sup; |
801 |
V106= vs_base[0]; |
V116= vs_base[0]; |
802 |
goto T227; |
goto T272; |
803 |
T227:; |
T272:; |
804 |
goto T225; |
goto T270; |
805 |
T225:; |
T270:; |
806 |
if(((V106))!=Cnil){ |
if(((V116))!=Cnil){ |
807 |
goto T235;} |
goto T280;} |
808 |
goto T226; |
goto T271; |
809 |
goto T235; |
goto T280; |
810 |
T235:; |
T280:; |
811 |
V105= car((V106)); |
V115= car((V116)); |
812 |
V116= coerce_to_string((V105)); |
if(((V119))==((V114))){ |
813 |
if(((*(LnkLI33))((V79),/* INLINE-ARGS */V116))==Cnil){ |
goto T286;} |
814 |
goto T240;} |
base[8]= symbol_name((V115)); |
815 |
(void)((*(LnkLI34))((V105))); |
base[9]= (V114); |
816 |
goto T240; |
vs_top=(vs_base=base+8)+2; |
817 |
T240:; |
Lfind_symbol(); |
818 |
V106= cdr((V106)); |
Llist(); |
819 |
goto T225; |
vs_top=sup; |
820 |
goto T226; |
base[7]= vs_base[0]; |
821 |
T226:; |
vs_top=(vs_base=base+7)+1; |
822 |
goto T223; |
Llast(); |
823 |
goto T223; |
vs_top=sup; |
824 |
T223:; |
V129= vs_base[0]; |
825 |
V111= one_plus((V111)); |
if(!((VV[31])==(car(V129)))){ |
826 |
goto T217;}}} |
goto T285;} |
827 |
goto T202; |
goto T286; |
828 |
T202:; |
T286:; |
829 |
V102= cdr((V102)); |
V130= coerce_to_string((V115)); |
830 |
V103= car((V102)); |
if(((*(LnkLI43))((V85),/* INLINE-ARGS */V130))==Cnil){ |
831 |
goto T197;} |
goto T285;} |
832 |
goto T95; |
(void)((*(LnkLI44))((V115))); |
833 |
T95:; |
goto T285; |
834 |
|
T285:; |
835 |
|
V116= cdr((V116)); |
836 |
|
goto T270; |
837 |
|
goto T271; |
838 |
|
T271:; |
839 |
|
goto T268; |
840 |
|
goto T268; |
841 |
|
T268:; |
842 |
|
V124= one_plus((V124)); |
843 |
|
goto T264;}} |
844 |
|
goto T251; |
845 |
|
T251:; |
846 |
|
V118= cdr((V118)); |
847 |
|
V119= car((V118)); |
848 |
|
goto T244;}} |
849 |
|
goto T232; |
850 |
|
T232:; |
851 |
|
V112= cdr((V112)); |
852 |
|
V113= car((V112)); |
853 |
|
goto T227;} |
854 |
|
goto T96; |
855 |
|
T96:; |
856 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
857 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
858 |
return; |
return; |
860 |
} |
} |
861 |
/* local entry for function APROPOS-LIST */ |
/* local entry for function APROPOS-LIST */ |
862 |
|
|
863 |
static object LI9(V117,va_alist) |
static object LI9(V131,va_alist) |
864 |
object V117; |
object V131; |
865 |
va_dcl |
va_dcl |
866 |
{ |
{ |
867 |
va_list ap; |
va_list ap; |
868 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
869 |
{object V118; |
{object V132; |
870 |
object V119; |
object V133; |
871 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
872 |
va_start(ap); |
va_start(ap); |
873 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
874 |
V118= V117; |
V132= V131; |
875 |
narg = narg - 1; |
narg = narg - 1; |
876 |
if (narg <= 0) goto T253; |
if (narg <= 0) goto T312; |
877 |
else { |
else { |
878 |
V119= va_arg(ap,object);} |
V133= va_arg(ap,object);} |
879 |
--narg; goto T254; |
--narg; goto T313; |
880 |
goto T253; |
goto T312; |
881 |
T253:; |
T312:; |
882 |
V119= Cnil; |
V133= Cnil; |
883 |
goto T254; |
goto T313; |
884 |
T254:; |
T313:; |
885 |
{register object V120; |
{register object V134; |
886 |
V120= Cnil; |
V134= Cnil; |
887 |
V120= Cnil; |
V134= Cnil; |
888 |
V118= coerce_to_string((V118)); |
V132= coerce_to_string((V132)); |
889 |
if(((V119))==Cnil){ |
if(((V133))==Cnil){ |
890 |
goto T263;} |
goto T322;} |
891 |
{object V121; |
{object V135; |
892 |
object V122; |
object V136; |
893 |
object V123; |
object V137; |
894 |
base[0]= V119; |
base[0]= V133; |
895 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
896 |
Lpackagep(); |
Lpackagep(); |
897 |
vs_top=sup; |
vs_top=sup; |
898 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
899 |
goto T268;} |
goto T327;} |
900 |
V121= V119; |
V135= V133; |
901 |
goto T266; |
goto T325; |
902 |
goto T268; |
goto T327; |
903 |
T268:; |
T327:; |
904 |
base[0]= coerce_to_string(V119); |
base[0]= coerce_to_string(V133); |
905 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
906 |
Lfind_package(); |
Lfind_package(); |
907 |
vs_top=sup; |
vs_top=sup; |
908 |
V121= vs_base[0]; |
V135= vs_base[0]; |
909 |
goto T266; |
goto T325; |
910 |
T266:; |
T325:; |
911 |
V122= Cnil; |
V136= Cnil; |
912 |
V123= Cnil; |
V137= Cnil; |
913 |
{long V125; |
{object V139; |
914 |
long V126; |
object V140; |
915 |
base[0]= (V121); |
base[2]= (V135); |
916 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+2)+1; |
917 |
(void) (*Lnk10)(); |
Lpackage_use_list(); |
918 |
if(vs_base>=vs_top){vs_top=sup;goto T274;} |
vs_top=sup; |
919 |
V125= fix(vs_base[0]); |
V141= vs_base[0]; |
920 |
|
V139= make_cons((V135),V141); |
921 |
|
V140= car((V139)); |
922 |
|
goto T336; |
923 |
|
T336:; |
924 |
|
if(!(endp_prop((V139)))){ |
925 |
|
goto T337;} |
926 |
|
V136= Cnil; |
927 |
|
goto T324; |
928 |
|
goto T337; |
929 |
|
T337:; |
930 |
|
{long V142; |
931 |
|
long V143; |
932 |
|
base[2]= (V140); |
933 |
|
vs_top=(vs_base=base+2)+1; |
934 |
|
(void) (*Lnk15)(); |
935 |
|
if(vs_base>=vs_top){vs_top=sup;goto T346;} |
936 |
|
V142= fix(vs_base[0]); |
937 |
vs_base++; |
vs_base++; |
938 |
if(vs_base>=vs_top){vs_top=sup;goto T275;} |
if(vs_base>=vs_top){vs_top=sup;goto T347;} |
939 |
V126= fix(vs_base[0]); |
V143= fix(vs_base[0]); |
940 |
vs_top=sup; |
vs_top=sup; |
941 |
goto T276; |
goto T348; |
942 |
goto T274; |
goto T346; |
943 |
T274:; |
T346:; |
944 |
V125= fix(Cnil); |
V142= fix(Cnil); |
945 |
goto T275; |
goto T347; |
946 |
T275:; |
T347:; |
947 |
V126= fix(Cnil); |
V143= fix(Cnil); |
948 |
goto T276; |
goto T348; |
949 |
T276:; |
T348:; |
950 |
{object V127; |
if(((V135))==((V140))){ |
951 |
object V128; |
goto T349;} |
952 |
V129 = make_fixnum(V126); |
V143= 0; |
953 |
V130 = make_fixnum(V125); |
goto T349; |
954 |
V127= number_plus(V129,V130); |
T349:; |
955 |
V128= small_fixnum(0); |
{object V144; |
956 |
goto T280; |
object V145; |
957 |
T280:; |
V146 = make_fixnum(V143); |
958 |
if(!(number_compare((V128),(V127))>=0)){ |
V147 = make_fixnum(V142); |
959 |
goto T281;} |
V144= number_plus(V146,V147); |
960 |
V122= Cnil; |
V145= small_fixnum(0); |
961 |
goto T265; |
goto T356; |
962 |
goto T281; |
T356:; |
963 |
T281:; |
if(!(number_compare((V145),(V144))>=0)){ |
964 |
V131 = make_fixnum(V126); |
goto T357;} |
965 |
if(!(number_compare((V128),V131)<0)){ |
goto T343; |
966 |
goto T292;} |
goto T357; |
967 |
base[1]= (V121); |
T357:; |
968 |
base[2]= (V128); |
V148 = make_fixnum(V143); |
969 |
vs_top=(vs_base=base+1)+2; |
if(!(number_compare((V145),V148)<0)){ |
970 |
|
goto T366;} |
971 |
|
base[3]= (V140); |
972 |
|
base[4]= (V145); |
973 |
|
vs_top=(vs_base=base+3)+2; |
974 |
siLpackage_internal(); |
siLpackage_internal(); |
975 |
vs_top=sup; |
vs_top=sup; |
976 |
V123= vs_base[0]; |
V137= vs_base[0]; |
977 |
goto T290; |
goto T364; |
978 |
goto T292; |
goto T366; |
979 |
T292:; |
T366:; |
980 |
base[1]= (V121); |
base[3]= (V140); |
981 |
V132 = make_fixnum(V126); |
V149 = make_fixnum(V143); |
982 |
base[2]= number_minus((V128),V132); |
base[4]= number_minus((V145),V149); |
983 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+3)+2; |
984 |
siLpackage_external(); |
siLpackage_external(); |
985 |
vs_top=sup; |
vs_top=sup; |
986 |
V123= vs_base[0]; |
V137= vs_base[0]; |
987 |
goto T290; |
goto T364; |
988 |
T290:; |
T364:; |
989 |
goto T288; |
goto T362; |
990 |
T288:; |
T362:; |
991 |
if(((V123))!=Cnil){ |
if(((V137))!=Cnil){ |
992 |
goto T298;} |
goto T372;} |
993 |
goto T289; |
goto T363; |
994 |
goto T298; |
goto T372; |
995 |
T298:; |
T372:; |
996 |
V122= car((V123)); |
V136= car((V137)); |
997 |
V133= coerce_to_string((V122)); |
if(((V140))==((V135))){ |
998 |
if(((*(LnkLI33))((V118),/* INLINE-ARGS */V133))==Cnil){ |
goto T378;} |
999 |
goto T303;} |
base[4]= symbol_name((V136)); |
1000 |
V120= make_cons((V122),(V120)); |
base[5]= (V135); |
1001 |
goto T303; |
vs_top=(vs_base=base+4)+2; |
1002 |
T303:; |
Lfind_symbol(); |
1003 |
V123= cdr((V123)); |
Llist(); |
1004 |
goto T288; |
vs_top=sup; |
1005 |
goto T289; |
base[3]= vs_base[0]; |
1006 |
T289:; |
vs_top=(vs_base=base+3)+1; |
1007 |
goto T286; |
Llast(); |
1008 |
goto T286; |
vs_top=sup; |
1009 |
T286:; |
V150= vs_base[0]; |
1010 |
V128= one_plus((V128)); |
if(!((VV[31])==(car(V150)))){ |
1011 |
goto T280;}}} |
goto T377;} |
1012 |
goto T265; |
goto T378; |
1013 |
T265:; |
T378:; |
1014 |
{object V134; |
V151= coerce_to_string((V136)); |
1015 |
base[0]= (V119); |
if(((*(LnkLI43))((V132),/* INLINE-ARGS */V151))==Cnil){ |
1016 |
|
goto T377;} |
1017 |
|
V134= make_cons((V136),(V134)); |
1018 |
|
goto T377; |
1019 |
|
T377:; |
1020 |
|
V137= cdr((V137)); |
1021 |
|
goto T362; |
1022 |
|
goto T363; |
1023 |
|
T363:; |
1024 |
|
goto T360; |
1025 |
|
goto T360; |
1026 |
|
T360:; |
1027 |
|
V145= one_plus((V145)); |
1028 |
|
goto T356;}} |
1029 |
|
goto T343; |
1030 |
|
T343:; |
1031 |
|
V139= cdr((V139)); |
1032 |
|
V140= car((V139)); |
1033 |
|
goto T336;}} |
1034 |
|
goto T324; |
1035 |
|
T324:; |
1036 |
|
{object V152; |
1037 |
|
base[0]= (V133); |
1038 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1039 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1040 |
vs_top=sup; |
vs_top=sup; |
1041 |
V134= vs_base[0]; |
V152= vs_base[0]; |
1042 |
goto T315; |
goto T403; |
1043 |
T315:; |
T403:; |
1044 |
if(((V134))!=Cnil){ |
if(((V152))!=Cnil){ |
1045 |
goto T316;} |
goto T404;} |
1046 |
goto T261; |
goto T320; |
1047 |
goto T316; |
goto T404; |
1048 |
T316:; |
T404:; |
1049 |
{object V135; |
{object V153; |
1050 |
register object V136; |
register object V154; |
1051 |
register object V137; |
register object V155; |
1052 |
{object V138; |
{object V156; |
1053 |
V138= car((V134)); |
V156= car((V152)); |
1054 |
base[0]= (V138); |
base[0]= (V156); |
1055 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1056 |
Lpackagep(); |
Lpackagep(); |
1057 |
vs_top=sup; |
vs_top=sup; |
1058 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1059 |
goto T324;} |
goto T412;} |
1060 |
V135= (V138); |
V153= (V156); |
1061 |
goto T321; |
goto T409; |
1062 |
goto T324; |
goto T412; |
1063 |
T324:; |
T412:; |
1064 |
base[0]= coerce_to_string((V138)); |
base[0]= coerce_to_string((V156)); |
1065 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1066 |
Lfind_package(); |
Lfind_package(); |
1067 |
vs_top=sup; |
vs_top=sup; |
1068 |
V135= vs_base[0];} |
V153= vs_base[0];} |
1069 |
goto T321; |
goto T409; |
1070 |
T321:; |
T409:; |
1071 |
V136= Cnil; |
V154= Cnil; |
1072 |
V137= Cnil; |
V155= Cnil; |
1073 |
{long V139; |
{object V157; |
1074 |
long V140; |
object V158; |
1075 |
base[0]= (V135); |
base[2]= (V153); |
1076 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+2)+1; |
1077 |
(void) (*Lnk10)(); |
Lpackage_use_list(); |
1078 |
if(vs_base>=vs_top){vs_top=sup;goto T330;} |
vs_top=sup; |
1079 |
V139= fix(vs_base[0]); |
V159= vs_base[0]; |
1080 |
|
V157= make_cons((V153),V159); |
1081 |
|
V158= car((V157)); |
1082 |
|
goto T421; |
1083 |
|
T421:; |
1084 |
|
if(!(endp_prop((V157)))){ |
1085 |
|
goto T422;} |
1086 |
|
V154= Cnil; |
1087 |
|
goto T408; |
1088 |
|
goto T422; |
1089 |
|
T422:; |
1090 |
|
{long V160; |
1091 |
|
long V161; |
1092 |
|
base[2]= (V158); |
1093 |
|
vs_top=(vs_base=base+2)+1; |
1094 |
|
(void) (*Lnk15)(); |
1095 |
|
if(vs_base>=vs_top){vs_top=sup;goto T431;} |
1096 |
|
V160= fix(vs_base[0]); |
1097 |
vs_base++; |
vs_base++; |
1098 |
if(vs_base>=vs_top){vs_top=sup;goto T331;} |
if(vs_base>=vs_top){vs_top=sup;goto T432;} |
1099 |
V140= fix(vs_base[0]); |
V161= fix(vs_base[0]); |
1100 |
vs_top=sup; |
vs_top=sup; |
1101 |
goto T332; |
goto T433; |
1102 |
goto T330; |
goto T431; |
1103 |
T330:; |
T431:; |
1104 |
V139= fix(Cnil); |
V160= fix(Cnil); |
1105 |
goto T331; |
goto T432; |
1106 |
T331:; |
T432:; |
1107 |
V140= fix(Cnil); |
V161= fix(Cnil); |
1108 |
goto T332; |
goto T433; |
1109 |
T332:; |
T433:; |
1110 |
{object V141; |
if(((V153))==((V158))){ |
1111 |
register object V142; |
goto T434;} |
1112 |
V143 = make_fixnum(V140); |
V161= 0; |
1113 |
V144 = make_fixnum(V139); |
goto T434; |
1114 |
V141= number_plus(V143,V144); |
T434:; |
1115 |
V142= small_fixnum(0); |
{object V162; |
1116 |
goto T336; |
register object V163; |
1117 |
T336:; |
V164 = make_fixnum(V161); |
1118 |
if(!(number_compare((V142),(V141))>=0)){ |
V165 = make_fixnum(V160); |
1119 |
goto T337;} |
V162= number_plus(V164,V165); |
1120 |
V136= Cnil; |
V163= small_fixnum(0); |
1121 |
goto T320; |
goto T441; |
1122 |
goto T337; |
T441:; |
1123 |
T337:; |
if(!(number_compare((V163),(V162))>=0)){ |
1124 |
V145 = make_fixnum(V140); |
goto T442;} |
1125 |
if(!(number_compare((V142),V145)<0)){ |
goto T428; |
1126 |
goto T348;} |
goto T442; |
1127 |
base[1]= (V135); |
T442:; |
1128 |
base[2]= (V142); |
V166 = make_fixnum(V161); |
1129 |
vs_top=(vs_base=base+1)+2; |
if(!(number_compare((V163),V166)<0)){ |
1130 |
|
goto T451;} |
1131 |
|
base[3]= (V158); |
1132 |
|
base[4]= (V163); |
1133 |
|
vs_top=(vs_base=base+3)+2; |
1134 |
siLpackage_internal(); |
siLpackage_internal(); |
1135 |
vs_top=sup; |
vs_top=sup; |
1136 |
V137= vs_base[0]; |
V155= vs_base[0]; |
1137 |
goto T346; |
goto T449; |
1138 |
goto T348; |
goto T451; |
1139 |
T348:; |
T451:; |
1140 |
base[1]= (V135); |
base[3]= (V158); |
1141 |
V146 = make_fixnum(V140); |
V167 = make_fixnum(V161); |
1142 |
base[2]= number_minus((V142),V146); |
base[4]= number_minus((V163),V167); |
1143 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+3)+2; |
1144 |
siLpackage_external(); |
siLpackage_external(); |
1145 |
vs_top=sup; |
vs_top=sup; |
1146 |
V137= vs_base[0]; |
V155= vs_base[0]; |
1147 |
goto T346; |
goto T449; |
1148 |
T346:; |
T449:; |
1149 |
goto T344; |
goto T447; |
1150 |
T344:; |
T447:; |
1151 |
if(((V137))!=Cnil){ |
if(((V155))!=Cnil){ |
1152 |
goto T354;} |
goto T457;} |
1153 |
goto T345; |
goto T448; |
1154 |
goto T354; |
goto T457; |
1155 |
T354:; |
T457:; |
1156 |
V136= car((V137)); |
V154= car((V155)); |
1157 |
V147= coerce_to_string((V136)); |
if(((V158))==((V153))){ |
1158 |
if(((*(LnkLI33))((V118),/* INLINE-ARGS */V147))==Cnil){ |
goto T463;} |
1159 |
goto T359;} |
base[4]= symbol_name((V154)); |
1160 |
V120= make_cons((V136),(V120)); |
base[5]= (V153); |
1161 |
goto T359; |
vs_top=(vs_base=base+4)+2; |
1162 |
T359:; |
Lfind_symbol(); |
1163 |
V137= cdr((V137)); |
Llist(); |
1164 |
goto T344; |
vs_top=sup; |
1165 |
goto T345; |
base[3]= vs_base[0]; |
1166 |
T345:; |
vs_top=(vs_base=base+3)+1; |
1167 |
goto T342; |
Llast(); |
1168 |
goto T342; |
vs_top=sup; |
1169 |
T342:; |
V168= vs_base[0]; |
1170 |
V142= one_plus((V142)); |
if(!((VV[31])==(car(V168)))){ |
1171 |
goto T336;}}} |
goto T462;} |
1172 |
goto T320; |
goto T463; |
1173 |
T320:; |
T463:; |
1174 |
V134= cdr((V134)); |
V169= coerce_to_string((V154)); |
1175 |
goto T315;} |
if(((*(LnkLI43))((V132),/* INLINE-ARGS */V169))==Cnil){ |
1176 |
goto T263; |
goto T462;} |
1177 |
T263:; |
V134= make_cons((V154),(V134)); |
1178 |
{object V148; |
goto T462; |
1179 |
object V149; |
T462:; |
1180 |
|
V155= cdr((V155)); |
1181 |
|
goto T447; |
1182 |
|
goto T448; |
1183 |
|
T448:; |
1184 |
|
goto T445; |
1185 |
|
goto T445; |
1186 |
|
T445:; |
1187 |
|
V163= one_plus((V163)); |
1188 |
|
goto T441;}} |
1189 |
|
goto T428; |
1190 |
|
T428:; |
1191 |
|
V157= cdr((V157)); |
1192 |
|
V158= car((V157)); |
1193 |
|
goto T421;}} |
1194 |
|
goto T408; |
1195 |
|
T408:; |
1196 |
|
V152= cdr((V152)); |
1197 |
|
goto T403;} |
1198 |
|
goto T322; |
1199 |
|
T322:; |
1200 |
|
{object V170; |
1201 |
|
object V171; |
1202 |
vs_base=vs_top; |
vs_base=vs_top; |
1203 |
Llist_all_packages(); |
Llist_all_packages(); |
1204 |
vs_top=sup; |
vs_top=sup; |
1205 |
V148= vs_base[0]; |
V170= vs_base[0]; |
1206 |
V149= car((V148)); |
V171= car((V170)); |
1207 |
goto T374; |
goto T491; |
1208 |
T374:; |
T491:; |
1209 |
if(!(endp_prop((V148)))){ |
if(!(endp_prop((V170)))){ |
1210 |
goto T375;} |
goto T492;} |
1211 |
goto T261; |
goto T320; |
1212 |
goto T375; |
goto T492; |
1213 |
T375:; |
T492:; |
1214 |
{object V150; |
{object V172; |
1215 |
register object V151; |
register object V173; |
1216 |
register object V152; |
register object V174; |
1217 |
base[2]= V149; |
base[2]= V171; |
1218 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1219 |
Lpackagep(); |
Lpackagep(); |
1220 |
vs_top=sup; |
vs_top=sup; |
1221 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1222 |
goto T382;} |
goto T499;} |
1223 |
V150= V149; |
V172= V171; |
1224 |
goto T380; |
goto T497; |
1225 |
goto T382; |
goto T499; |
1226 |
T382:; |
T499:; |
1227 |
base[2]= coerce_to_string(V149); |
base[2]= coerce_to_string(V171); |
1228 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1229 |
Lfind_package(); |
Lfind_package(); |
1230 |
vs_top=sup; |
vs_top=sup; |
1231 |
V150= vs_base[0]; |
V172= vs_base[0]; |
1232 |
goto T380; |
goto T497; |
1233 |
T380:; |
T497:; |
1234 |
V151= Cnil; |
V173= Cnil; |
1235 |
V152= Cnil; |
V174= Cnil; |
1236 |
{long V154; |
{object V176; |
1237 |
long V155; |
object V177; |
1238 |
base[2]= (V150); |
base[4]= (V172); |
1239 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+4)+1; |
1240 |
(void) (*Lnk10)(); |
Lpackage_use_list(); |
1241 |
if(vs_base>=vs_top){vs_top=sup;goto T388;} |
vs_top=sup; |
1242 |
V154= fix(vs_base[0]); |
V178= vs_base[0]; |
1243 |
|
V176= make_cons((V172),V178); |
1244 |
|
V177= car((V176)); |
1245 |
|
goto T508; |
1246 |
|
T508:; |
1247 |
|
if(!(endp_prop((V176)))){ |
1248 |
|
goto T509;} |
1249 |
|
V173= Cnil; |
1250 |
|
goto T496; |
1251 |
|
goto T509; |
1252 |
|
T509:; |
1253 |
|
{long V179; |
1254 |
|
long V180; |
1255 |
|
base[4]= (V177); |
1256 |
|
vs_top=(vs_base=base+4)+1; |
1257 |
|
(void) (*Lnk15)(); |
1258 |
|
if(vs_base>=vs_top){vs_top=sup;goto T518;} |
1259 |
|
V179= fix(vs_base[0]); |
1260 |
vs_base++; |
vs_base++; |
1261 |
if(vs_base>=vs_top){vs_top=sup;goto T389;} |
if(vs_base>=vs_top){vs_top=sup;goto T519;} |
1262 |
V155= fix(vs_base[0]); |
V180= fix(vs_base[0]); |
1263 |
vs_top=sup; |
vs_top=sup; |
1264 |
goto T390; |
goto T520; |
1265 |
goto T388; |
goto T518; |
1266 |
T388:; |
T518:; |
1267 |
V154= fix(Cnil); |
V179= fix(Cnil); |
1268 |
goto T389; |
goto T519; |
1269 |
T389:; |
T519:; |
1270 |
V155= fix(Cnil); |
V180= fix(Cnil); |
1271 |
goto T390; |
goto T520; |
1272 |
T390:; |
T520:; |
1273 |
{object V156; |
if(((V172))==((V177))){ |
1274 |
register object V157; |
goto T521;} |
1275 |
V158 = make_fixnum(V155); |
V180= 0; |
1276 |
V159 = make_fixnum(V154); |
goto T521; |
1277 |
V156= number_plus(V158,V159); |
T521:; |
1278 |
V157= small_fixnum(0); |
{object V181; |
1279 |
goto T394; |
register object V182; |
1280 |
T394:; |
V183 = make_fixnum(V180); |
1281 |
if(!(number_compare((V157),(V156))>=0)){ |
V184 = make_fixnum(V179); |
1282 |
goto T395;} |
V181= number_plus(V183,V184); |
1283 |
V151= Cnil; |
V182= small_fixnum(0); |
1284 |
goto T379; |
goto T528; |
1285 |
goto T395; |
T528:; |
1286 |
T395:; |
if(!(number_compare((V182),(V181))>=0)){ |
1287 |
V160 = make_fixnum(V155); |
goto T529;} |
1288 |
if(!(number_compare((V157),V160)<0)){ |
goto T515; |
1289 |
goto T406;} |
goto T529; |
1290 |
base[3]= (V150); |
T529:; |
1291 |
base[4]= (V157); |
V185 = make_fixnum(V180); |
1292 |
vs_top=(vs_base=base+3)+2; |
if(!(number_compare((V182),V185)<0)){ |
1293 |
|
goto T538;} |
1294 |
|
base[5]= (V177); |
1295 |
|
base[6]= (V182); |
1296 |
|
vs_top=(vs_base=base+5)+2; |
1297 |
siLpackage_internal(); |
siLpackage_internal(); |
1298 |
vs_top=sup; |
vs_top=sup; |
1299 |
V152= vs_base[0]; |
V174= vs_base[0]; |
1300 |
goto T404; |
goto T536; |
1301 |
goto T406; |
goto T538; |
1302 |
T406:; |
T538:; |
1303 |
base[3]= (V150); |
base[5]= (V177); |
1304 |
V161 = make_fixnum(V155); |
V186 = make_fixnum(V180); |
1305 |
base[4]= number_minus((V157),V161); |
base[6]= number_minus((V182),V186); |
1306 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+5)+2; |
1307 |
siLpackage_external(); |
siLpackage_external(); |
1308 |
vs_top=sup; |
vs_top=sup; |
1309 |
V152= vs_base[0]; |
V174= vs_base[0]; |
1310 |
goto T404; |
goto T536; |
1311 |
T404:; |
T536:; |
1312 |
goto T402; |
goto T534; |
1313 |
T402:; |
T534:; |
1314 |
if(((V152))!=Cnil){ |
if(((V174))!=Cnil){ |
1315 |
goto T412;} |
goto T544;} |
1316 |
goto T403; |
goto T535; |
1317 |
goto T412; |
goto T544; |
1318 |
T412:; |
T544:; |
1319 |
V151= car((V152)); |
V173= car((V174)); |
1320 |
V162= coerce_to_string((V151)); |
if(((V177))==((V172))){ |
1321 |
if(((*(LnkLI33))((V118),/* INLINE-ARGS */V162))==Cnil){ |
goto T550;} |
1322 |
goto T417;} |
base[6]= symbol_name((V173)); |
1323 |
V120= make_cons((V151),(V120)); |
base[7]= (V172); |
1324 |
goto T417; |
vs_top=(vs_base=base+6)+2; |
1325 |
T417:; |
Lfind_symbol(); |
1326 |
V152= cdr((V152)); |
Llist(); |
1327 |
goto T402; |
vs_top=sup; |
1328 |
goto T403; |
base[5]= vs_base[0]; |
1329 |
T403:; |
vs_top=(vs_base=base+5)+1; |
1330 |
goto T400; |
Llast(); |
1331 |
goto T400; |
vs_top=sup; |
1332 |
T400:; |
V187= vs_base[0]; |
1333 |
V157= one_plus((V157)); |
if(!((VV[31])==(car(V187)))){ |
1334 |
goto T394;}}} |
goto T549;} |
1335 |
goto T379; |
goto T550; |
1336 |
T379:; |
T550:; |
1337 |
V148= cdr((V148)); |
V188= coerce_to_string((V173)); |
1338 |
V149= car((V148)); |
if(((*(LnkLI43))((V132),/* INLINE-ARGS */V188))==Cnil){ |
1339 |
goto T374;} |
goto T549;} |
1340 |
goto T261; |
V134= make_cons((V173),(V134)); |
1341 |
T261:; |
goto T549; |
1342 |
{object V163 = (V120); |
T549:; |
1343 |
VMR9(V163)}} |
V174= cdr((V174)); |
1344 |
|
goto T534; |
1345 |
|
goto T535; |
1346 |
|
T535:; |
1347 |
|
goto T532; |
1348 |
|
goto T532; |
1349 |
|
T532:; |
1350 |
|
V182= one_plus((V182)); |
1351 |
|
goto T528;}} |
1352 |
|
goto T515; |
1353 |
|
T515:; |
1354 |
|
V176= cdr((V176)); |
1355 |
|
V177= car((V176)); |
1356 |
|
goto T508;}} |
1357 |
|
goto T496; |
1358 |
|
T496:; |
1359 |
|
V170= cdr((V170)); |
1360 |
|
V171= car((V170)); |
1361 |
|
goto T491;} |
1362 |
|
goto T320; |
1363 |
|
T320:; |
1364 |
|
{object V189 = (V134); |
1365 |
|
VMR9(V189)}} |
1366 |
va_end(ap); |
va_end(ap); |
1367 |
base[0]=base[0]; |
base[0]=base[0]; |
1368 |
return Cnil;} |
return Cnil;} |
1369 |
} |
} |
1370 |
static object LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */ |
static object LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[44],(void **)&LnkLI44,1,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */ |
1371 |
static object LnkTLI33(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[33],(void **)&LnkLI33,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */ |
static object LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */ |
1372 |
static void LnkT10(){ call_or_link(VV[10],(void **)&Lnk10);} /* PACKAGE-SIZE */ |
static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* PACKAGE-SIZE */ |
1373 |
static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* FIND-DECLARATIONS */ |
static void LnkT42(){ call_or_link(VV[42],(void **)&Lnk42);} /* FIND-DECLARATIONS */ |
1374 |
|
|
1375 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1376 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |