65 |
|
|
66 |
static object LI2(V9,V10,V11) |
static object LI2(V9,V10,V11) |
67 |
|
|
68 |
object V9;register object V10;register object V11; |
object V9;object V10;register object V11; |
69 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
70 |
bds_check; |
bds_check; |
71 |
goto TTL; |
goto TTL; |
174 |
goto T70; |
goto T70; |
175 |
goto T75; |
goto T75; |
176 |
T75:; |
T75:; |
177 |
V21= list(3,VV[9],car((V20)),VV[10]); |
{register object V21; |
178 |
V22= list(3,VV[12],car((V20)),VV[13]); |
V22= list(3,VV[9],car((V20)),VV[10]); |
179 |
V23= make_cons(/* INLINE-ARGS */V22,Cnil); |
V23= list(3,VV[12],car((V20)),VV[13]); |
180 |
V24= list(3,VV[8],/* INLINE-ARGS */V21,list(4,VV[11],/* INLINE-ARGS */V23,VV[14],list(3,VV[8],list(3,VV[15],VV[16],list(2,VV[17],cdr((V20)))),VV[18]))); |
V24= make_cons(/* INLINE-ARGS */V23,Cnil); |
181 |
V11= make_cons(/* INLINE-ARGS */V24,(V11)); |
V21= list(3,VV[8],/* INLINE-ARGS */V22,list(4,VV[11],/* INLINE-ARGS */V24,VV[14],list(3,VV[8],list(3,VV[15],VV[16],list(2,VV[17],cdr((V20)))),VV[18]))); |
182 |
|
V11= make_cons((V21),(V11));} |
183 |
V19= cdr((V19)); |
V19= cdr((V19)); |
184 |
V20= car((V19)); |
V20= car((V19)); |
185 |
goto T74;} |
goto T74;} |
189 |
register object V26; |
register object V26; |
190 |
V25= (VV[3]->s.s_dbind); |
V25= (VV[3]->s.s_dbind); |
191 |
V26= car((V25)); |
V26= car((V25)); |
|
goto T90; |
|
|
T90:; |
|
|
if(!(endp_prop((V25)))){ |
|
|
goto T91;} |
|
|
goto T86; |
|
192 |
goto T91; |
goto T91; |
193 |
T91:; |
T91:; |
194 |
|
if(!(endp_prop((V25)))){ |
195 |
|
goto T92;} |
196 |
|
goto T87; |
197 |
|
goto T92; |
198 |
|
T92:; |
199 |
|
{register object V27; |
200 |
V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]); |
V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]); |
201 |
V11= make_cons(/* INLINE-ARGS */V27,(V11)); |
V11= make_cons((V27),(V11));} |
202 |
V25= cdr((V25)); |
V25= cdr((V25)); |
203 |
V26= car((V25)); |
V26= car((V25)); |
204 |
goto T90;} |
goto T91;} |
205 |
goto T86; |
goto T87; |
206 |
T86:; |
T87:; |
207 |
if(((V17))!=Cnil){ |
if(((V17))!=Cnil){ |
208 |
goto T102;} |
goto T104;} |
209 |
|
{object V28; |
210 |
V28= list(2,VV[21],list(2,VV[22],(V16))); |
V28= list(2,VV[21],list(2,VV[22],(V16))); |
211 |
V11= make_cons(/* INLINE-ARGS */V28,(V11)); |
V11= make_cons((V28),(V11));} |
212 |
goto T102; |
goto T104; |
213 |
T102:; |
T104:; |
214 |
V29= reverse((VV[1]->s.s_dbind)); |
V29= reverse((VV[1]->s.s_dbind)); |
215 |
{object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11)))); |
{object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11)))); |
216 |
bds_unwind1; |
bds_unwind1; |
240 |
register object V46; |
register object V46; |
241 |
object V47; |
object V47; |
242 |
if(((V36))==Cnil){ |
if(((V36))==Cnil){ |
243 |
goto T108;} |
goto T111;} |
244 |
V46= small_fixnum(1); |
V46= small_fixnum(1); |
245 |
goto T106; |
goto T109; |
246 |
goto T108; |
goto T111; |
247 |
T108:; |
T111:; |
248 |
V46= small_fixnum(0); |
V46= small_fixnum(0); |
249 |
goto T106; |
goto T109; |
250 |
T106:; |
T109:; |
251 |
V37= Cnil; |
V37= Cnil; |
252 |
V38= Cnil; |
V38= Cnil; |
253 |
V39= Cnil; |
V39= Cnil; |
258 |
V44= Cnil; |
V44= Cnil; |
259 |
V45= Cnil; |
V45= Cnil; |
260 |
V47= Cnil; |
V47= Cnil; |
261 |
goto T111; |
goto T114; |
262 |
T111:; |
T114:; |
263 |
if(type_of((V34))==t_cons){ |
if(type_of((V34))==t_cons){ |
|
goto T112;} |
|
|
if(((V34))==Cnil){ |
|
264 |
goto T115;} |
goto T115;} |
265 |
if(((V38))==Cnil){ |
if(((V34))==Cnil){ |
266 |
goto T118;} |
goto T118;} |
267 |
|
if(((V38))==Cnil){ |
268 |
|
goto T121;} |
269 |
(void)((*(LnkLI57))(VV[4])); |
(void)((*(LnkLI57))(VV[4])); |
270 |
goto T118; |
goto T121; |
271 |
T118:; |
T121:; |
272 |
|
{object V48; |
273 |
V48= list(2,(V34),(*(LnkLI56))((V46),(V35))); |
V48= list(2,(V34),(*(LnkLI56))((V46),(V35))); |
274 |
setq(VV[1],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[1]))); |
setq(VV[1],make_cons((V48),symbol_value(VV[1])));} |
275 |
V45= Ct; |
V45= Ct; |
276 |
goto T115; |
goto T118; |
277 |
T115:; |
T118:; |
278 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
279 |
goto T124;} |
goto T128;} |
280 |
if(((V43))!=Cnil){ |
if(((V43))!=Cnil){ |
281 |
goto T124;} |
goto T128;} |
282 |
|
{object V49; |
283 |
V49= make_cons((V42),(V44)); |
V49= make_cons((V42),(V44)); |
284 |
setq(VV[2],make_cons(/* INLINE-ARGS */V49,symbol_value(VV[2]))); |
setq(VV[2],make_cons((V49),symbol_value(VV[2])));} |
285 |
goto T124; |
goto T128; |
286 |
T124:; |
T128:; |
287 |
if(((V45))!=Cnil){ |
if(((V45))!=Cnil){ |
288 |
goto T130;} |
goto T135;} |
289 |
|
{object V50; |
290 |
V50= make_cons((V35),(V46)); |
V50= make_cons((V35),(V46)); |
291 |
setq(VV[3],make_cons(/* INLINE-ARGS */V50,symbol_value(VV[3]))); |
setq(VV[3],make_cons((V50),symbol_value(VV[3])));} |
292 |
goto T130; |
goto T135; |
293 |
T130:; |
T135:; |
294 |
{object V51 = (V47); |
{object V51 = (V47); |
295 |
VMR3(V51)} |
VMR3(V51)} |
296 |
goto T112; |
goto T115; |
297 |
T112:; |
T115:; |
298 |
{register object V52; |
{register object V52; |
299 |
V52= car((V34)); |
V52= car((V34)); |
300 |
if(!(((V52))==(VV[24]))){ |
if(!(((V52))==(VV[24]))){ |
301 |
goto T138;} |
goto T144;} |
302 |
if(((V37))==Cnil){ |
if(((V37))==Cnil){ |
303 |
goto T140;} |
goto T146;} |
304 |
(void)((*(LnkLI57))(VV[24])); |
(void)((*(LnkLI57))(VV[24])); |
305 |
goto T140; |
goto T146; |
306 |
T140:; |
T146:; |
307 |
V37= Ct; |
V37= Ct; |
308 |
{object V53; |
{object V53; |
309 |
V53= car((V34)); |
V53= car((V34)); |
310 |
V34= cdr((V34)); |
V34= cdr((V34)); |
311 |
goto T135;} |
goto T141;} |
312 |
goto T138; |
goto T144; |
313 |
T138:; |
T144:; |
314 |
if(((V52))==(VV[4])){ |
if(((V52))==(VV[4])){ |
315 |
goto T148;} |
goto T154;} |
316 |
if(!(((V52))==(VV[25]))){ |
if(!(((V52))==(VV[25]))){ |
317 |
goto T149;} |
goto T155;} |
318 |
goto T148; |
goto T154; |
319 |
T148:; |
T154:; |
320 |
if(((V38))==Cnil){ |
if(((V38))==Cnil){ |
321 |
goto T153;} |
goto T159;} |
322 |
(void)((*(LnkLI57))((V52))); |
(void)((*(LnkLI57))((V52))); |
323 |
goto T153; |
goto T159; |
324 |
T153:; |
T159:; |
325 |
V54= cadr((V34)); |
V54= cadr((V34)); |
326 |
V55= (*(LnkLI56))((V46),(V35)); |
V55= (*(LnkLI56))((V46),(V35)); |
327 |
(void)((*(LnkLI58))(/* INLINE-ARGS */V54,/* INLINE-ARGS */V55)); |
(void)((*(LnkLI58))(/* INLINE-ARGS */V54,/* INLINE-ARGS */V55)); |
330 |
V45= Ct; |
V45= Ct; |
331 |
V34= cddr((V34)); |
V34= cddr((V34)); |
332 |
if(!(((V52))==(VV[25]))){ |
if(!(((V52))==(VV[25]))){ |
333 |
goto T135;} |
goto T141;} |
334 |
if(((V36))==Cnil){ |
if(((V36))==Cnil){ |
335 |
goto T169;} |
goto T175;} |
336 |
V47= one_minus((V46)); |
V47= one_minus((V46)); |
337 |
goto T167; |
goto T173; |
338 |
goto T169; |
goto T175; |
339 |
T169:; |
T175:; |
340 |
V47= (V46); |
V47= (V46); |
341 |
goto T167; |
goto T173; |
342 |
T167:; |
T173:; |
343 |
goto T135; |
goto T141; |
344 |
goto T149; |
goto T155; |
345 |
T149:; |
T155:; |
346 |
if(!(((V52))==(VV[26]))){ |
if(!(((V52))==(VV[26]))){ |
347 |
goto T172;} |
goto T178;} |
348 |
if(((V39))==Cnil){ |
if(((V39))==Cnil){ |
349 |
goto T174;} |
goto T180;} |
350 |
(void)((*(LnkLI57))(VV[26])); |
(void)((*(LnkLI57))(VV[26])); |
351 |
goto T174; |
goto T180; |
352 |
T174:; |
T180:; |
353 |
vs_base=vs_top; |
vs_base=vs_top; |
354 |
Lgensym(); |
Lgensym(); |
355 |
vs_top=sup; |
vs_top=sup; |
356 |
V42= vs_base[0]; |
V42= vs_base[0]; |
357 |
|
{object V56; |
358 |
V56= list(2,(V42),(*(LnkLI56))((V46),(V35))); |
V56= list(2,(V42),(*(LnkLI56))((V46),(V35))); |
359 |
setq(VV[1],make_cons(/* INLINE-ARGS */V56,symbol_value(VV[1]))); |
setq(VV[1],make_cons((V56),symbol_value(VV[1])));} |
360 |
V39= Ct; |
V39= Ct; |
361 |
V38= Ct; |
V38= Ct; |
362 |
V37= Ct; |
V37= Ct; |
364 |
{object V57; |
{object V57; |
365 |
V57= car((V34)); |
V57= car((V34)); |
366 |
V34= cdr((V34)); |
V34= cdr((V34)); |
367 |
goto T135;} |
goto T141;} |
368 |
goto T172; |
goto T178; |
369 |
T172:; |
T178:; |
370 |
if(!(((V52))==(VV[27]))){ |
if(!(((V52))==(VV[27]))){ |
371 |
goto T193;} |
goto T200;} |
372 |
if(((V39))==Cnil){ |
if(((V39))==Cnil){ |
373 |
goto T196;} |
goto T203;} |
374 |
if(((V40))==Cnil){ |
if(((V40))==Cnil){ |
375 |
goto T195;} |
goto T202;} |
376 |
goto T196; |
goto T203; |
377 |
T196:; |
T203:; |
378 |
(void)((*(LnkLI57))(VV[27])); |
(void)((*(LnkLI57))(VV[27])); |
379 |
goto T195; |
goto T202; |
380 |
T195:; |
T202:; |
381 |
V40= Ct; |
V40= Ct; |
382 |
V43= Ct; |
V43= Ct; |
383 |
{object V58; |
{object V58; |
384 |
V58= car((V34)); |
V58= car((V34)); |
385 |
V34= cdr((V34)); |
V34= cdr((V34)); |
386 |
goto T135;} |
goto T141;} |
387 |
goto T193; |
goto T200; |
388 |
T193:; |
T200:; |
389 |
if(!(((V52))==(VV[7]))){ |
if(!(((V52))==(VV[7]))){ |
390 |
goto T208;} |
goto T215;} |
391 |
if(((V41))==Cnil){ |
if(((V41))==Cnil){ |
392 |
goto T210;} |
goto T217;} |
393 |
(void)((*(LnkLI57))(VV[7])); |
(void)((*(LnkLI57))(VV[7])); |
394 |
goto T210; |
goto T217; |
395 |
T210:; |
T217:; |
396 |
V41= Ct; |
V41= Ct; |
397 |
V40= Ct; |
V40= Ct; |
398 |
V39= Ct; |
V39= Ct; |
401 |
{object V59; |
{object V59; |
402 |
V59= car((V34)); |
V59= car((V34)); |
403 |
V34= cdr((V34)); |
V34= cdr((V34)); |
404 |
goto T135;} |
goto T141;} |
405 |
goto T208; |
goto T215; |
406 |
T208:; |
T215:; |
407 |
if(((V41))==Cnil){ |
if(((V41))==Cnil){ |
408 |
goto T227;} |
goto T234;} |
409 |
{object V60; |
{object V60; |
410 |
object V61; |
object V61; |
411 |
V60= Cnil; |
V60= Cnil; |
412 |
V61= Cnil; |
V61= Cnil; |
413 |
if(!(type_of((V52))==t_symbol)){ |
if(!(type_of((V52))==t_symbol)){ |
414 |
goto T232;} |
goto T239;} |
415 |
V60= (V52); |
V60= (V52); |
416 |
goto T230; |
goto T237; |
417 |
goto T232; |
goto T239; |
418 |
T232:; |
T239:; |
419 |
V60= car((V52)); |
V60= car((V52)); |
420 |
if(endp_prop(cdr((V52)))){ |
if(endp_prop(cdr((V52)))){ |
421 |
goto T230;} |
goto T237;} |
422 |
V61= cadr((V52)); |
V61= cadr((V52)); |
423 |
goto T230; |
goto T237; |
424 |
T230:; |
T237:; |
425 |
(void)((*(LnkLI58))((V60),(V61)));} |
(void)((*(LnkLI58))((V60),(V61)));} |
426 |
{object V62; |
{object V62; |
427 |
V62= car((V34)); |
V62= car((V34)); |
428 |
V34= cdr((V34)); |
V34= cdr((V34)); |
429 |
goto T135;} |
goto T141;} |
430 |
goto T227; |
goto T234; |
431 |
T227:; |
T234:; |
432 |
if(((V39))==Cnil){ |
if(((V39))==Cnil){ |
433 |
goto T244;} |
goto T251;} |
434 |
{object V63; |
{object V63; |
435 |
object V64; |
object V64; |
436 |
register object V65; |
register object V65; |
445 |
V66= Cnil; |
V66= Cnil; |
446 |
V67= Cnil; |
V67= Cnil; |
447 |
if(!(type_of((V52))==t_symbol)){ |
if(!(type_of((V52))==t_symbol)){ |
448 |
goto T250;} |
goto T257;} |
449 |
V64= (V52); |
V64= (V52); |
450 |
base[0]= coerce_to_string((V52)); |
base[0]= coerce_to_string((V52)); |
451 |
base[1]= VV[28]; |
base[1]= VV[28]; |
453 |
Lintern(); |
Lintern(); |
454 |
vs_top=sup; |
vs_top=sup; |
455 |
V65= vs_base[0]; |
V65= vs_base[0]; |
456 |
goto T248; |
goto T255; |
457 |
goto T250; |
goto T257; |
458 |
T250:; |
T257:; |
459 |
if(!(type_of(car((V52)))==t_symbol)){ |
if(!(type_of(car((V52)))==t_symbol)){ |
460 |
goto T259;} |
goto T266;} |
461 |
V64= car((V52)); |
V64= car((V52)); |
462 |
base[0]= coerce_to_string(car((V52))); |
base[0]= coerce_to_string(car((V52))); |
463 |
base[1]= VV[28]; |
base[1]= VV[28]; |
465 |
Lintern(); |
Lintern(); |
466 |
vs_top=sup; |
vs_top=sup; |
467 |
V65= vs_base[0]; |
V65= vs_base[0]; |
468 |
goto T257; |
goto T264; |
469 |
goto T259; |
goto T266; |
470 |
T259:; |
T266:; |
471 |
V64= cadar((V52)); |
V64= cadar((V52)); |
472 |
V65= caar((V52)); |
V65= caar((V52)); |
473 |
goto T257; |
goto T264; |
474 |
T257:; |
T264:; |
475 |
if(endp_prop(cdr((V52)))){ |
if(endp_prop(cdr((V52)))){ |
476 |
goto T248;} |
goto T255;} |
477 |
V66= cadr((V52)); |
V66= cadr((V52)); |
478 |
if(endp_prop(cddr((V52)))){ |
if(endp_prop(cddr((V52)))){ |
479 |
goto T248;} |
goto T255;} |
480 |
V67= caddr((V52)); |
V67= caddr((V52)); |
481 |
goto T248; |
goto T255; |
482 |
T248:; |
T255:; |
483 |
V68= list(4,VV[9],(V42),(V65),VV[29]); |
V68= list(4,VV[9],(V42),(V65),VV[29]); |
484 |
(void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68)); |
(void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68)); |
485 |
V69= list(4,VV[30],list(3,VV[31],(V63),VV[32]),(V66),(V63)); |
V69= list(4,VV[30],list(3,VV[31],(V63),VV[32]),(V66),(V63)); |
486 |
(void)((*(LnkLI58))((V64),/* INLINE-ARGS */V69)); |
(void)((*(LnkLI58))((V64),/* INLINE-ARGS */V69)); |
487 |
if(((V67))==Cnil){ |
if(((V67))==Cnil){ |
488 |
goto T278;} |
goto T285;} |
489 |
V70= list(2,VV[33],list(3,VV[31],(V63),VV[34])); |
V70= list(2,VV[33],list(3,VV[31],(V63),VV[34])); |
490 |
(void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70)); |
(void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70)); |
491 |
goto T278; |
goto T285; |
492 |
T278:; |
T285:; |
493 |
V44= make_cons((V65),(V44));} |
V44= make_cons(V65,(V44));} |
494 |
{object V71; |
{object V72; |
495 |
V71= car((V34)); |
V72= car((V34)); |
496 |
V34= cdr((V34)); |
V34= cdr((V34)); |
497 |
goto T135;} |
goto T141;} |
498 |
goto T244; |
goto T251; |
499 |
T244:; |
T251:; |
500 |
if(((V37))==Cnil){ |
if(((V37))==Cnil){ |
501 |
goto T286;} |
goto T293;} |
502 |
{object V72; |
{object V73; |
|
object V73; |
|
503 |
object V74; |
object V74; |
504 |
V72= Cnil; |
object V75; |
505 |
V73= Cnil; |
V73= Cnil; |
506 |
V74= Cnil; |
V74= Cnil; |
507 |
|
V75= Cnil; |
508 |
if(!(type_of((V52))==t_symbol)){ |
if(!(type_of((V52))==t_symbol)){ |
509 |
goto T291;} |
goto T298;} |
510 |
V72= (V52); |
V73= (V52); |
511 |
goto T289; |
goto T296; |
512 |
goto T291; |
goto T298; |
513 |
T291:; |
T298:; |
514 |
V72= car((V52)); |
V73= car((V52)); |
515 |
if(endp_prop(cdr((V52)))){ |
if(endp_prop(cdr((V52)))){ |
516 |
goto T289;} |
goto T296;} |
517 |
V73= cadr((V52)); |
V74= cadr((V52)); |
518 |
if(endp_prop(cddr((V52)))){ |
if(endp_prop(cddr((V52)))){ |
519 |
goto T289;} |
goto T296;} |
520 |
V74= caddr((V52)); |
V75= caddr((V52)); |
521 |
goto T289; |
goto T296; |
522 |
T289:; |
T296:; |
523 |
V75= (*(LnkLI56))((V46),(V35)); |
V76= (*(LnkLI56))((V46),(V35)); |
524 |
V76= (*(LnkLI59))((V46),(V35)); |
V77= (*(LnkLI59))((V46),(V35)); |
525 |
V77= list(4,VV[30],/* INLINE-ARGS */V75,/* INLINE-ARGS */V76,(V73)); |
V78= list(4,VV[30],/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,(V74)); |
526 |
(void)((*(LnkLI58))((V72),/* INLINE-ARGS */V77)); |
(void)((*(LnkLI58))((V73),/* INLINE-ARGS */V78)); |
527 |
if(((V74))==Cnil){ |
if(((V75))==Cnil){ |
528 |
goto T288;} |
goto T295;} |
529 |
V78= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35)))); |
V79= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35)))); |
530 |
(void)((*(LnkLI58))((V74),/* INLINE-ARGS */V78));} |
(void)((*(LnkLI58))((V75),/* INLINE-ARGS */V79));} |
531 |
goto T288; |
goto T295; |
532 |
T288:; |
T295:; |
533 |
V46= number_plus((V46),small_fixnum(1)); |
V46= number_plus((V46),small_fixnum(1)); |
534 |
{object V79; |
{object V80; |
535 |
V79= car((V34)); |
V80= car((V34)); |
536 |
V34= cdr((V34)); |
V34= cdr((V34)); |
537 |
goto T135;} |
goto T141;} |
538 |
goto T286; |
goto T293; |
539 |
T286:; |
T293:; |
540 |
V80= (*(LnkLI56))((V46),(V35)); |
V81= (*(LnkLI56))((V46),(V35)); |
541 |
V81= (*(LnkLI59))((V46),(V35)); |
V82= (*(LnkLI59))((V46),(V35)); |
542 |
V82= list(4,VV[30],/* INLINE-ARGS */V80,/* INLINE-ARGS */V81,VV[36]); |
V83= list(4,VV[30],/* INLINE-ARGS */V81,/* INLINE-ARGS */V82,VV[36]); |
543 |
(void)((*(LnkLI58))((V52),/* INLINE-ARGS */V82)); |
(void)((*(LnkLI58))((V52),/* INLINE-ARGS */V83)); |
544 |
V46= number_plus((V46),small_fixnum(1)); |
V46= number_plus((V46),small_fixnum(1)); |
545 |
{object V83; |
{object V84; |
546 |
V83= car((V34)); |
V84= car((V34)); |
547 |
V34= cdr((V34));}} |
V34= cdr((V34));}} |
548 |
goto T135; |
goto T141; |
549 |
T135:; |
T141:; |
550 |
goto T111;} |
goto T114;} |
551 |
base[0]=base[0]; |
base[0]=base[0]; |
552 |
return Cnil; |
return Cnil; |
553 |
} |
} |
554 |
/* local entry for function DM-V */ |
/* local entry for function DM-V */ |
555 |
|
|
556 |
static object LI4(V86,V87) |
static object LI4(V87,V88) |
557 |
|
|
558 |
register object V86;register object V87; |
register object V87;register object V88; |
559 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
560 |
goto TTL; |
goto TTL; |
561 |
TTL:; |
TTL:; |
562 |
if(!(type_of((V86))==t_symbol)){ |
if(!(type_of((V87))==t_symbol)){ |
563 |
goto T320;} |
goto T327;} |
564 |
if(((V87))==Cnil){ |
{object V89; |
565 |
goto T325;} |
if(((V88))==Cnil){ |
566 |
V88= list(2,(V86),(V87)); |
goto T331;} |
567 |
goto T323; |
V89= list(2,(V87),(V88)); |
568 |
goto T325; |
goto T329; |
569 |
T325:; |
goto T331; |
570 |
V88= (V86); |
T331:; |
571 |
goto T323; |
V89= (V87); |
572 |
T323:; |
goto T329; |
573 |
setq(VV[1],make_cons(V88,symbol_value(VV[1]))); |
T329:; |
574 |
{object V89 = symbol_value(VV[1]); |
setq(VV[1],make_cons((V89),symbol_value(VV[1]))); |
575 |
VMR4(V89)} |
{object V90 = symbol_value(VV[1]); |
576 |
goto T320; |
VMR4(V90)}} |
577 |
T320:; |
goto T327; |
578 |
{object V90; |
T327:; |
579 |
|
{object V91; |
580 |
vs_base=vs_top; |
vs_base=vs_top; |
581 |
Lgensym(); |
Lgensym(); |
582 |
vs_top=sup; |
vs_top=sup; |
583 |
V90= vs_base[0]; |
V91= vs_base[0]; |
584 |
if(((V87))==Cnil){ |
{object V92; |
585 |
goto T332;} |
if(((V88))==Cnil){ |
586 |
V91= list(2,(V90),(V87)); |
goto T338;} |
587 |
goto T330; |
V92= list(2,(V91),(V88)); |
588 |
goto T332; |
goto T336; |
589 |
T332:; |
goto T338; |
590 |
V91= (V90); |
T338:; |
591 |
goto T330; |
V92= (V91); |
592 |
T330:; |
goto T336; |
593 |
setq(VV[1],make_cons(V91,symbol_value(VV[1]))); |
T336:; |
594 |
{object V92 = (*(LnkLI55))((V86),(V90),Cnil); |
setq(VV[1],make_cons((V92),symbol_value(VV[1])));} |
595 |
VMR4(V92)}} |
{object V93 = (*(LnkLI55))((V87),(V91),Cnil); |
596 |
|
VMR4(V93)}} |
597 |
base[0]=base[0]; |
base[0]=base[0]; |
598 |
return Cnil; |
return Cnil; |
599 |
} |
} |
600 |
/* local entry for function DM-NTH */ |
/* local entry for function DM-NTH */ |
601 |
|
|
602 |
static object LI5(V95,V96) |
static object LI5(V96,V97) |
603 |
|
|
604 |
object V95;register object V96; |
object V96;register object V97; |
605 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
606 |
goto TTL; |
goto TTL; |
607 |
TTL:; |
TTL:; |
608 |
{object V97; |
{object V98; |
609 |
object V98; |
object V99; |
610 |
base[0]= (V95); |
base[0]= (V96); |
611 |
base[1]= small_fixnum(4); |
base[1]= small_fixnum(4); |
612 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
613 |
Lfloor(); |
Lfloor(); |
614 |
if(vs_base>=vs_top){vs_top=sup;goto T337;} |
if(vs_base>=vs_top){vs_top=sup;goto T344;} |
|
V97= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T338;} |
|
615 |
V98= vs_base[0]; |
V98= vs_base[0]; |
616 |
|
vs_base++; |
617 |
|
if(vs_base>=vs_top){vs_top=sup;goto T345;} |
618 |
|
V99= vs_base[0]; |
619 |
vs_top=sup; |
vs_top=sup; |
620 |
goto T339; |
goto T346; |
|
goto T337; |
|
|
T337:; |
|
|
V97= Cnil; |
|
|
goto T338; |
|
|
T338:; |
|
|
V98= Cnil; |
|
|
goto T339; |
|
|
T339:; |
|
|
{register object V99; |
|
|
register object V100; |
|
|
V99= (V97); |
|
|
V100= small_fixnum(0); |
|
621 |
goto T344; |
goto T344; |
622 |
T344:; |
T344:; |
623 |
if(!(number_compare((V100),(V99))>=0)){ |
V98= Cnil; |
|
goto T345;} |
|
|
goto T340; |
|
624 |
goto T345; |
goto T345; |
625 |
T345:; |
T345:; |
626 |
V96= list(2,VV[37],(V96)); |
V99= Cnil; |
627 |
V100= one_plus((V100)); |
goto T346; |
628 |
goto T344;} |
T346:; |
629 |
goto T340; |
{register object V100; |
630 |
T340:; |
register object V101; |
631 |
{object V101= (V98); |
V100= (V98); |
632 |
if(!eql(V101,VV[38]))goto T354; |
V101= small_fixnum(0); |
633 |
{object V102 = list(2,VV[39],(V96)); |
goto T351; |
634 |
VMR5(V102)} |
T351:; |
635 |
goto T354; |
if(!(number_compare((V101),(V100))>=0)){ |
636 |
T354:; |
goto T352;} |
637 |
if(!eql(V101,VV[40]))goto T355; |
goto T347; |
638 |
{object V103 = list(2,VV[41],(V96)); |
goto T352; |
639 |
|
T352:; |
640 |
|
V97= list(2,VV[37],(V97)); |
641 |
|
V101= one_plus((V101)); |
642 |
|
goto T351;} |
643 |
|
goto T347; |
644 |
|
T347:; |
645 |
|
{object V102= (V99); |
646 |
|
if(!eql(V102,VV[38]))goto T361; |
647 |
|
{object V103 = list(2,VV[39],(V97)); |
648 |
VMR5(V103)} |
VMR5(V103)} |
649 |
goto T355; |
goto T361; |
650 |
T355:; |
T361:; |
651 |
if(!eql(V101,VV[42]))goto T356; |
if(!eql(V102,VV[40]))goto T362; |
652 |
{object V104 = list(2,VV[43],(V96)); |
{object V104 = list(2,VV[41],(V97)); |
653 |
VMR5(V104)} |
VMR5(V104)} |
654 |
goto T356; |
goto T362; |
655 |
T356:; |
T362:; |
656 |
if(!eql(V101,VV[44]))goto T357; |
if(!eql(V102,VV[42]))goto T363; |
657 |
{object V105 = list(2,VV[45],(V96)); |
{object V105 = list(2,VV[43],(V97)); |
658 |
VMR5(V105)} |
VMR5(V105)} |
659 |
goto T357; |
goto T363; |
660 |
T357:; |
T363:; |
661 |
{object V106 = Cnil; |
if(!eql(V102,VV[44]))goto T364; |
662 |
VMR5(V106)}}} |
{object V106 = list(2,VV[45],(V97)); |
663 |
|
VMR5(V106)} |
664 |
|
goto T364; |
665 |
|
T364:; |
666 |
|
{object V107 = Cnil; |
667 |
|
VMR5(V107)}}} |
668 |
base[0]=base[0]; |
base[0]=base[0]; |
669 |
return Cnil; |
return Cnil; |
670 |
} |
} |
671 |
/* local entry for function DM-NTH-CDR */ |
/* local entry for function DM-NTH-CDR */ |
672 |
|
|
673 |
static object LI6(V109,V110) |
static object LI6(V110,V111) |
674 |
|
|
675 |
object V109;register object V110; |
object V110;register object V111; |
676 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
677 |
goto TTL; |
goto TTL; |
678 |
TTL:; |
TTL:; |
679 |
{object V111; |
{object V112; |
680 |
object V112; |
object V113; |
681 |
base[0]= (V109); |
base[0]= (V110); |
682 |
base[1]= small_fixnum(4); |
base[1]= small_fixnum(4); |
683 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
684 |
Lfloor(); |
Lfloor(); |
685 |
if(vs_base>=vs_top){vs_top=sup;goto T361;} |
if(vs_base>=vs_top){vs_top=sup;goto T368;} |
|
V111= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T362;} |
|
686 |
V112= vs_base[0]; |
V112= vs_base[0]; |
687 |
|
vs_base++; |
688 |
|
if(vs_base>=vs_top){vs_top=sup;goto T369;} |
689 |
|
V113= vs_base[0]; |
690 |
vs_top=sup; |
vs_top=sup; |
691 |
goto T363; |
goto T370; |
|
goto T361; |
|
|
T361:; |
|
|
V111= Cnil; |
|
|
goto T362; |
|
|
T362:; |
|
|
V112= Cnil; |
|
|
goto T363; |
|
|
T363:; |
|
|
{register object V113; |
|
|
register object V114; |
|
|
V113= (V111); |
|
|
V114= small_fixnum(0); |
|
692 |
goto T368; |
goto T368; |
693 |
T368:; |
T368:; |
694 |
if(!(number_compare((V114),(V113))>=0)){ |
V112= Cnil; |
|
goto T369;} |
|
|
goto T364; |
|
695 |
goto T369; |
goto T369; |
696 |
T369:; |
T369:; |
697 |
V110= list(2,VV[37],(V110)); |
V113= Cnil; |
698 |
V114= one_plus((V114)); |
goto T370; |
699 |
goto T368;} |
T370:; |
700 |
goto T364; |
{register object V114; |
701 |
T364:; |
register object V115; |
702 |
{object V115= (V112); |
V114= (V112); |
703 |
if(!eql(V115,VV[38]))goto T378; |
V115= small_fixnum(0); |
704 |
{object V116 = (V110); |
goto T375; |
705 |
VMR6(V116)} |
T375:; |
706 |
goto T378; |
if(!(number_compare((V115),(V114))>=0)){ |
707 |
T378:; |
goto T376;} |
708 |
if(!eql(V115,VV[40]))goto T379; |
goto T371; |
709 |
{object V117 = list(2,VV[46],(V110)); |
goto T376; |
710 |
|
T376:; |
711 |
|
V111= list(2,VV[37],(V111)); |
712 |
|
V115= one_plus((V115)); |
713 |
|
goto T375;} |
714 |
|
goto T371; |
715 |
|
T371:; |
716 |
|
{object V116= (V113); |
717 |
|
if(!eql(V116,VV[38]))goto T385; |
718 |
|
{object V117 = (V111); |
719 |
VMR6(V117)} |
VMR6(V117)} |
720 |
goto T379; |
goto T385; |
721 |
T379:; |
T385:; |
722 |
if(!eql(V115,VV[42]))goto T380; |
if(!eql(V116,VV[40]))goto T386; |
723 |
{object V118 = list(2,VV[47],(V110)); |
{object V118 = list(2,VV[46],(V111)); |
724 |
VMR6(V118)} |
VMR6(V118)} |
725 |
goto T380; |
goto T386; |
726 |
T380:; |
T386:; |
727 |
if(!eql(V115,VV[44]))goto T381; |
if(!eql(V116,VV[42]))goto T387; |
728 |
{object V119 = list(2,VV[48],(V110)); |
{object V119 = list(2,VV[47],(V111)); |
729 |
VMR6(V119)} |
VMR6(V119)} |
730 |
goto T381; |
goto T387; |
731 |
T381:; |
T387:; |
732 |
{object V120 = Cnil; |
if(!eql(V116,VV[44]))goto T388; |
733 |
VMR6(V120)}}} |
{object V120 = list(2,VV[48],(V111)); |
734 |
|
VMR6(V120)} |
735 |
|
goto T388; |
736 |
|
T388:; |
737 |
|
{object V121 = Cnil; |
738 |
|
VMR6(V121)}}} |
739 |
base[0]=base[0]; |
base[0]=base[0]; |
740 |
return Cnil; |
return Cnil; |
741 |
} |
} |
742 |
/* local entry for function DM-BAD-KEY */ |
/* local entry for function DM-BAD-KEY */ |
743 |
|
|
744 |
static object LI7(V122) |
static object LI7(V123) |
745 |
|
|
746 |
object V122; |
object V123; |
747 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
748 |
goto TTL; |
goto TTL; |
749 |
TTL:; |
TTL:; |
750 |
base[0]= VV[49]; |
base[0]= VV[49]; |
751 |
base[1]= (V122); |
base[1]= (V123); |
752 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
753 |
Lerror(); |
Lerror(); |
754 |
vs_top=sup; |
vs_top=sup; |
755 |
{object V123 = vs_base[0]; |
{object V124 = vs_base[0]; |
756 |
VMR7(V123)} |
VMR7(V124)} |
757 |
base[0]=base[0]; |
base[0]=base[0]; |
758 |
return Cnil; |
return Cnil; |
759 |
} |
} |
768 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
769 |
Lerror(); |
Lerror(); |
770 |
vs_top=sup; |
vs_top=sup; |
771 |
{object V124 = vs_base[0]; |
{object V125 = vs_base[0]; |
772 |
VMR8(V124)} |
VMR8(V125)} |
773 |
base[0]=base[0]; |
base[0]=base[0]; |
774 |
return Cnil; |
return Cnil; |
775 |
} |
} |
784 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
785 |
Lerror(); |
Lerror(); |
786 |
vs_top=sup; |
vs_top=sup; |
787 |
{object V125 = vs_base[0]; |
{object V126 = vs_base[0]; |
788 |
VMR9(V125)} |
VMR9(V126)} |
789 |
base[0]=base[0]; |
base[0]=base[0]; |
790 |
return Cnil; |
return Cnil; |
791 |
} |
} |
792 |
/* local entry for function DM-KEY-NOT-ALLOWED */ |
/* local entry for function DM-KEY-NOT-ALLOWED */ |
793 |
|
|
794 |
static object LI10(V127) |
static object LI10(V128) |
795 |
|
|
796 |
object V127; |
object V128; |
797 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
798 |
goto TTL; |
goto TTL; |
799 |
TTL:; |
TTL:; |
800 |
base[0]= VV[52]; |
base[0]= VV[52]; |
801 |
base[1]= (V127); |
base[1]= (V128); |
802 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
803 |
Lerror(); |
Lerror(); |
804 |
vs_top=sup; |
vs_top=sup; |
805 |
{object V128 = vs_base[0]; |
{object V129 = vs_base[0]; |
806 |
VMR10(V128)} |
VMR10(V129)} |
807 |
base[0]=base[0]; |
base[0]=base[0]; |
808 |
return Cnil; |
return Cnil; |
809 |
} |
} |
813 |
{register object *base=vs_base; |
{register object *base=vs_base; |
814 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
815 |
vs_reserve(VM11); |
vs_reserve(VM11); |
816 |
{register object V129; |
{register object V130; |
817 |
object V130; |
object V131; |
818 |
check_arg(2); |
check_arg(2); |
819 |
V129=(base[0]); |
V130=(base[0]); |
820 |
V130=(base[1]); |
V131=(base[1]); |
821 |
vs_top=sup; |
vs_top=sup; |
822 |
goto TTL; |
goto TTL; |
823 |
TTL:; |
TTL:; |
824 |
if(!(endp_prop((V129)))){ |
if(!(endp_prop((V130)))){ |
825 |
goto T389;} |
goto T396;} |
826 |
base[2]= Cnil; |
base[2]= Cnil; |
827 |
base[3]= Cnil; |
base[3]= Cnil; |
828 |
base[4]= Cnil; |
base[4]= Cnil; |
829 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
830 |
return; |
return; |
831 |
goto T389; |
goto T396; |
832 |
T389:; |
T396:; |
833 |
{register object V131; |
{register object V132; |
834 |
base[2]= car((V129)); |
base[2]= car((V130)); |
835 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
836 |
Lmacroexpand(); |
Lmacroexpand(); |
837 |
vs_top=sup; |
vs_top=sup; |
838 |
V131= vs_base[0]; |
V132= vs_base[0]; |
839 |
if(!(type_of((V131))==t_string)){ |
if(!(type_of((V132))==t_string)){ |
840 |
goto T397;} |
goto T404;} |
841 |
if(endp_prop(cdr((V129)))){ |
if(endp_prop(cdr((V130)))){ |
842 |
goto T399;} |
goto T406;} |
843 |
if(((V130))==Cnil){ |
if(((V131))==Cnil){ |
844 |
goto T400;} |
goto T407;} |
845 |
goto T399; |
goto T406; |
846 |
T399:; |
T406:; |
847 |
base[2]= Cnil; |
base[2]= Cnil; |
848 |
base[3]= Cnil; |
base[3]= Cnil; |
849 |
base[4]= make_cons((V131),cdr((V129))); |
base[4]= make_cons((V132),cdr((V130))); |
850 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
851 |
return; |
return; |
852 |
goto T400; |
goto T407; |
853 |
T400:; |
T407:; |
854 |
{object V132; |
{object V133; |
|
object V133; |
|
855 |
object V134; |
object V134; |
856 |
base[2]= cdr((V129)); |
object V135; |
857 |
|
base[2]= cdr((V130)); |
858 |
base[3]= Ct; |
base[3]= Ct; |
859 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
860 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
861 |
if(vs_base>=vs_top){vs_top=sup;goto T410;} |
if(vs_base>=vs_top){vs_top=sup;goto T417;} |
|
V132= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T411;} |
|
862 |
V133= vs_base[0]; |
V133= vs_base[0]; |
863 |
vs_base++; |
vs_base++; |
864 |
if(vs_base>=vs_top){vs_top=sup;goto T412;} |
if(vs_base>=vs_top){vs_top=sup;goto T418;} |
865 |
V134= vs_base[0]; |
V134= vs_base[0]; |
866 |
|
vs_base++; |
867 |
|
if(vs_base>=vs_top){vs_top=sup;goto T419;} |
868 |
|
V135= vs_base[0]; |
869 |
vs_top=sup; |
vs_top=sup; |
870 |
goto T413; |
goto T420; |
871 |
goto T410; |
goto T417; |
872 |
T410:; |
T417:; |
|
V132= Cnil; |
|
|
goto T411; |
|
|
T411:; |
|
873 |
V133= Cnil; |
V133= Cnil; |
874 |
goto T412; |
goto T418; |
875 |
T412:; |
T418:; |
876 |
V134= Cnil; |
V134= Cnil; |
877 |
goto T413; |
goto T419; |
878 |
T413:; |
T419:; |
879 |
base[2]= (V131); |
V135= Cnil; |
880 |
base[3]= (V133); |
goto T420; |
881 |
base[4]= (V134); |
T420:; |
882 |
|
base[2]= (V132); |
883 |
|
base[3]= (V134); |
884 |
|
base[4]= (V135); |
885 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
886 |
return;} |
return;} |
887 |
goto T397; |
goto T404; |
888 |
T397:; |
T404:; |
889 |
if(!(type_of((V131))==t_cons)){ |
if(!(type_of((V132))==t_cons)){ |
890 |
goto T418;} |
goto T425;} |
891 |
if(!((car((V131)))==(VV[21]))){ |
if(!((car((V132)))==(VV[21]))){ |
892 |
goto T418;} |
goto T425;} |
893 |
{object V135; |
{object V136; |
|
object V136; |
|
894 |
object V137; |
object V137; |
895 |
base[2]= cdr((V129)); |
object V138; |
896 |
base[3]= (V130); |
base[2]= cdr((V130)); |
897 |
|
base[3]= (V131); |
898 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
899 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
900 |
if(vs_base>=vs_top){vs_top=sup;goto T425;} |
if(vs_base>=vs_top){vs_top=sup;goto T432;} |
|
V135= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T426;} |
|
901 |
V136= vs_base[0]; |
V136= vs_base[0]; |
902 |
vs_base++; |
vs_base++; |
903 |
if(vs_base>=vs_top){vs_top=sup;goto T427;} |
if(vs_base>=vs_top){vs_top=sup;goto T433;} |
904 |
V137= vs_base[0]; |
V137= vs_base[0]; |
905 |
|
vs_base++; |
906 |
|
if(vs_base>=vs_top){vs_top=sup;goto T434;} |
907 |
|
V138= vs_base[0]; |
908 |
vs_top=sup; |
vs_top=sup; |
909 |
goto T428; |
goto T435; |
910 |
goto T425; |
goto T432; |
911 |
T425:; |
T432:; |
|
V135= Cnil; |
|
|
goto T426; |
|
|
T426:; |
|
912 |
V136= Cnil; |
V136= Cnil; |
913 |
goto T427; |
goto T433; |
914 |
T427:; |
T433:; |
915 |
V137= Cnil; |
V137= Cnil; |
916 |
goto T428; |
goto T434; |
917 |
T428:; |
T434:; |
918 |
base[2]= (V135); |
V138= Cnil; |
919 |
base[3]= make_cons((V131),(V136)); |
goto T435; |
920 |
base[4]= (V137); |
T435:; |
921 |
|
base[2]= (V136); |
922 |
|
base[3]= make_cons((V132),(V137)); |
923 |
|
base[4]= (V138); |
924 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
925 |
return;} |
return;} |
926 |
goto T418; |
goto T425; |
927 |
T418:; |
T425:; |
928 |
base[2]= Cnil; |
base[2]= Cnil; |
929 |
base[3]= Cnil; |
base[3]= Cnil; |
930 |
base[4]= make_cons((V131),cdr((V129))); |
base[4]= make_cons((V132),cdr((V130))); |
931 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
932 |
return;} |
return;} |
933 |
} |
} |
938 |
{register object *base=vs_base; |
{register object *base=vs_base; |
939 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
940 |
vs_reserve(VM12); |
vs_reserve(VM12); |
941 |
{register object V138; |
{register object V139; |
942 |
check_arg(1); |
check_arg(1); |
943 |
V138=(base[0]); |
V139=(base[0]); |
944 |
vs_top=sup; |
vs_top=sup; |
945 |
goto TTL; |
goto TTL; |
946 |
TTL:; |
TTL:; |
947 |
if(!(endp_prop((V138)))){ |
if(!(endp_prop((V139)))){ |
948 |
goto T436;} |
goto T443;} |
949 |
base[1]= Cnil; |
base[1]= Cnil; |
950 |
base[2]= Cnil; |
base[2]= Cnil; |
951 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
952 |
return; |
return; |
953 |
goto T436; |
goto T443; |
954 |
T436:; |
T443:; |
955 |
{register object V139; |
{register object V140; |
956 |
base[1]= car((V138)); |
base[1]= car((V139)); |
957 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
958 |
Lmacroexpand(); |
Lmacroexpand(); |
959 |
vs_top=sup; |
vs_top=sup; |
960 |
V139= vs_base[0]; |
V140= vs_base[0]; |
961 |
if(!(type_of((V139))==t_string)){ |
if(!(type_of((V140))==t_string)){ |
962 |
goto T443;} |
goto T450;} |
963 |
if(!(endp_prop(cdr((V138))))){ |
if(!(endp_prop(cdr((V139))))){ |
964 |
goto T446;} |
goto T453;} |
965 |
base[1]= Cnil; |
base[1]= Cnil; |
966 |
base[2]= make_cons((V139),Cnil); |
base[2]= make_cons((V140),Cnil); |
967 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
968 |
return; |
return; |
969 |
goto T446; |
goto T453; |
970 |
T446:; |
T453:; |
971 |
{object V140; |
{object V141; |
972 |
object V141; |
object V142; |
973 |
base[1]= cdr((V138)); |
base[1]= cdr((V139)); |
974 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
975 |
(void) (*Lnk60)(); |
(void) (*Lnk60)(); |
976 |
if(vs_base>=vs_top){vs_top=sup;goto T452;} |
if(vs_base>=vs_top){vs_top=sup;goto T459;} |
|
V140= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T453;} |
|
977 |
V141= vs_base[0]; |
V141= vs_base[0]; |
978 |
|
vs_base++; |
979 |
|
if(vs_base>=vs_top){vs_top=sup;goto T460;} |
980 |
|
V142= vs_base[0]; |
981 |
vs_top=sup; |
vs_top=sup; |
982 |
goto T454; |
goto T461; |
983 |
goto T452; |
goto T459; |
984 |
T452:; |
T459:; |
|
V140= Cnil; |
|
|
goto T453; |
|
|
T453:; |
|
985 |
V141= Cnil; |
V141= Cnil; |
986 |
goto T454; |
goto T460; |
987 |
T454:; |
T460:; |
988 |
base[1]= make_cons((V139),(V140)); |
V142= Cnil; |
989 |
base[2]= (V141); |
goto T461; |
990 |
|
T461:; |
991 |
|
base[1]= make_cons((V140),(V141)); |
992 |
|
base[2]= (V142); |
993 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
994 |
return;} |
return;} |
995 |
goto T443; |
goto T450; |
996 |
T443:; |
T450:; |
997 |
if(!(type_of((V139))==t_cons)){ |
if(!(type_of((V140))==t_cons)){ |
998 |
goto T458;} |
goto T465;} |
999 |
if(!((car((V139)))==(VV[21]))){ |
if(!((car((V140)))==(VV[21]))){ |
1000 |
goto T458;} |
goto T465;} |
1001 |
{object V142; |
{object V143; |
1002 |
object V143; |
object V144; |
1003 |
base[1]= cdr((V138)); |
base[1]= cdr((V139)); |
1004 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1005 |
(void) (*Lnk60)(); |
(void) (*Lnk60)(); |
1006 |
if(vs_base>=vs_top){vs_top=sup;goto T464;} |
if(vs_base>=vs_top){vs_top=sup;goto T471;} |
|
V142= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
|
1007 |
V143= vs_base[0]; |
V143= vs_base[0]; |
1008 |
|
vs_base++; |
1009 |
|
if(vs_base>=vs_top){vs_top=sup;goto T472;} |
1010 |
|
V144= vs_base[0]; |
1011 |
vs_top=sup; |
vs_top=sup; |
1012 |
goto T466; |
goto T473; |
1013 |
goto T464; |
goto T471; |
1014 |
T464:; |
T471:; |
|
V142= Cnil; |
|
|
goto T465; |
|
|
T465:; |
|
1015 |
V143= Cnil; |
V143= Cnil; |
1016 |
goto T466; |
goto T472; |
1017 |
T466:; |
T472:; |
1018 |
base[1]= make_cons((V139),(V142)); |
V144= Cnil; |
1019 |
base[2]= (V143); |
goto T473; |
1020 |
|
T473:; |
1021 |
|
base[1]= make_cons((V140),(V143)); |
1022 |
|
base[2]= (V144); |
1023 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1024 |
return;} |
return;} |
1025 |
goto T458; |
goto T465; |
1026 |
T458:; |
T465:; |
1027 |
base[1]= Cnil; |
base[1]= Cnil; |
1028 |
base[2]= make_cons((V139),cdr((V138))); |
base[2]= make_cons((V140),cdr((V139))); |
1029 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1030 |
return;} |
return;} |
1031 |
} |
} |