188 |
goto T20;} |
goto T20;} |
189 |
if(!((car(base[5]))==(VV[5]))){ |
if(!((car(base[5]))==(VV[5]))){ |
190 |
goto T24;} |
goto T24;} |
191 |
V18 = make_fixnum(length(cdr(base[5]))); |
V18 = make_fixnum((long)length(cdr(base[5]))); |
192 |
V17= one_minus(V18); |
V17= one_minus(V18); |
193 |
goto T20; |
goto T20; |
194 |
goto T24; |
goto T24; |
216 |
goto T20;} |
goto T20;} |
217 |
goto T32; |
goto T32; |
218 |
T32:; |
T32:; |
219 |
V22 = make_fixnum(length(cdr(base[5]))); |
V22 = make_fixnum((long)length(cdr(base[5]))); |
220 |
V17= number_minus(V22,small_fixnum(2)); |
V17= number_minus(V22,small_fixnum(2)); |
221 |
goto T20; |
goto T20; |
222 |
T20:; |
T20:; |
876 |
base[28]= VV[60]; |
base[28]= VV[60]; |
877 |
{object V100; |
{object V100; |
878 |
object V101; |
object V101; |
879 |
V100= make_fixnum(length((V98))); |
V100= make_fixnum((long)length((V98))); |
880 |
base[32]= VV[61]; |
base[32]= VV[61]; |
881 |
if(!(number_compare((V100),small_fixnum(10))<0)){ |
if(!(number_compare((V100),small_fixnum(10))<0)){ |
882 |
goto T217;} |
goto T217;} |
1210 |
base[7]= Cnil; |
base[7]= Cnil; |
1211 |
base[8]= Cnil; |
base[8]= Cnil; |
1212 |
base[9]= Cnil;} |
base[9]= Cnil;} |
1213 |
if((length(base[3]))==(length(base[5]))){ |
if(((long)length(base[3]))==((long)length(base[5]))){ |
1214 |
goto T323;} |
goto T323;} |
1215 |
base[10]= VV[68]; |
base[10]= VV[68]; |
1216 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1575 |
L40(base); |
L40(base); |
1576 |
vs_top=sup; |
vs_top=sup; |
1577 |
V175= fix(vs_base[0]); |
V175= fix(vs_base[0]); |
1578 |
base[2]= make_fixnum((fix((V172)))+(V175)); |
base[2]= make_fixnum((long)(fix((V172)))+(V175)); |
1579 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1580 |
return; |
return; |
1581 |
goto T506; |
goto T506; |
1604 |
L40(base); |
L40(base); |
1605 |
vs_top=sup; |
vs_top=sup; |
1606 |
V178= fix(vs_base[0]); |
V178= fix(vs_base[0]); |
1607 |
base[2]= make_fixnum((/* INLINE-ARGS */V177)+(V178)); |
base[2]= make_fixnum((long)(/* INLINE-ARGS */V177)+(V178)); |
1608 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1609 |
return;} |
return;} |
1610 |
goto T513; |
goto T513; |
1631 |
vs_top=sup; |
vs_top=sup; |
1632 |
V182= vs_base[0]; |
V182= vs_base[0]; |
1633 |
V173= fix(number_plus(V181,V182)); |
V173= fix(number_plus(V181,V182)); |
1634 |
V173= (V173)+(1); |
V173= (long)(V173)+(1); |
1635 |
V179= cdr((V179)); |
V179= cdr((V179)); |
1636 |
V180= car((V179)); |
V180= car((V179)); |
1637 |
goto T524;} |
goto T524;} |
1737 |
T585:; |
T585:; |
1738 |
if(!(((V171))==(VV[85]))){ |
if(!(((V171))==(VV[85]))){ |
1739 |
goto T596;} |
goto T596;} |
1740 |
{long V186= length(cadr((V168))); |
{long V186= (long)length(cadr((V168))); |
1741 |
base[2]= cddr((V168)); |
base[2]= cddr((V168)); |
1742 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1743 |
L40(base); |
L40(base); |
1744 |
vs_top=sup; |
vs_top=sup; |
1745 |
V187= fix(vs_base[0]); |
V187= fix(vs_base[0]); |
1746 |
base[2]= make_fixnum((/* INLINE-ARGS */V186)+(V187)); |
base[2]= make_fixnum((long)(/* INLINE-ARGS */V186)+(V187)); |
1747 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1748 |
return;} |
return;} |
1749 |
goto T596; |
goto T596; |
1817 |
L40(base); |
L40(base); |
1818 |
vs_top=sup; |
vs_top=sup; |
1819 |
V192= fix(vs_base[0]); |
V192= fix(vs_base[0]); |
1820 |
base[2]= make_fixnum((3)+(V192)); |
base[2]= make_fixnum((long)(3)+(V192)); |
1821 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1822 |
return;}} |
return;}} |
1823 |
goto T497; |
goto T497; |
4458 |
goto T1531;} |
goto T1531;} |
4459 |
goto T1533; |
goto T1533; |
4460 |
T1533:; |
T1533:; |
4461 |
V406= length((V405)); |
V406= (long)length((V405)); |
4462 |
V407= make_fixnum(V406); |
V407= make_fixnum(V406); |
4463 |
goto T1531; |
goto T1531; |
4464 |
T1531:; |
T1531:; |
5192 |
vs_top=sup; |
vs_top=sup; |
5193 |
goto T1826; |
goto T1826; |
5194 |
T1826:; |
T1826:; |
5195 |
V486 = make_fixnum(length((V476))); |
V486 = make_fixnum((long)length((V476))); |
5196 |
{register object x= V486,V485= VV[238]; |
{register object x= V486,V485= VV[238]; |
5197 |
while(!endp(V485)) |
while(!endp(V485)) |
5198 |
if(eql(x,V485->c.c_car)){ |
if(eql(x,V485->c.c_car)){ |
6042 |
V556= vs_base[0]; |
V556= vs_base[0]; |
6043 |
V554= ( |
V554= ( |
6044 |
V557 = V556, |
V557 = V556, |
6045 |
(type_of(V557) == t_sfun ?(*(object (*)())((V557)->sfn.sfn_self)): |
(type_of(V557) == t_sfun ?(*((V557)->sfn.sfn_self)): |
6046 |
(fcall.fun=(V557),fcall.argd=2,fcalln))((V537),(V541))); |
(fcall.fun=(V557),fcall.argd=2,fcalln))((V537),(V541))); |
6047 |
if(((V554))==Cnil){ |
if(((V554))==Cnil){ |
6048 |
goto T2197;} |
goto T2197;} |
7413 |
TTL:; |
TTL:; |
7414 |
{object V695; |
{object V695; |
7415 |
object V696; |
object V696; |
7416 |
V695= make_fixnum(length((V694))); |
V695= make_fixnum((long)length((V694))); |
7417 |
base[3]= VV[61]; |
base[3]= VV[61]; |
7418 |
if(!(number_compare((V695),small_fixnum(10))<0)){ |
if(!(number_compare((V695),small_fixnum(10))<0)){ |
7419 |
goto T2696;} |
goto T2696;} |
7515 |
goto T2722; |
goto T2722; |
7516 |
T2722:; |
T2722:; |
7517 |
V702= list(2,VV[17],(V702)); |
V702= list(2,VV[17],(V702)); |
7518 |
V703= (V703)-(4); |
V703= (long)(V703)-(4); |
7519 |
goto T2721; |
goto T2721; |
7520 |
} |
} |
7521 |
} |
} |
7525 |
static void LnkT393(){ call_or_link(VV[393],(void **)&Lnk393);} /* MAKE-STANDARD-LOOP-UNIVERSE */ |
static void LnkT393(){ call_or_link(VV[393],(void **)&Lnk393);} /* MAKE-STANDARD-LOOP-UNIVERSE */ |
7526 |
static void LnkT390(){ call_or_link(VV[390],(void **)&Lnk390);} /* NAMED-VARIABLE */ |
static void LnkT390(){ call_or_link(VV[390],(void **)&Lnk390);} /* NAMED-VARIABLE */ |
7527 |
static void LnkT385(){ call_or_link(VV[385],(void **)&Lnk385);} /* LOOP-SEQUENCER */ |
static void LnkT385(){ call_or_link(VV[385],(void **)&Lnk385);} /* LOOP-SEQUENCER */ |
7528 |
static object LnkTLI382(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[382],(void **)&LnkLI382,ap);} /* DELETE */ |
static object LnkTLI382(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[382],(void **)&LnkLI382,ap);va_end(ap);return V1;} /* DELETE */ |
7529 |
static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* LOOP-TASSOC */ |
static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* LOOP-TASSOC */ |
7530 |
static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
7531 |
static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* MAKE-LOOP-PATH */ |
static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* MAKE-LOOP-PATH */ |
7540 |
static void LnkT368(){ call_or_link(VV[368],(void **)&Lnk368);} /* LOOP-EMIT-FINAL-VALUE */ |
static void LnkT368(){ call_or_link(VV[368],(void **)&Lnk368);} /* LOOP-EMIT-FINAL-VALUE */ |
7541 |
static void LnkT367(){ call_or_link(VV[367],(void **)&Lnk367);} /* LOOP-GET-COLLECTION-INFO */ |
static void LnkT367(){ call_or_link(VV[367],(void **)&Lnk367);} /* LOOP-GET-COLLECTION-INFO */ |
7542 |
static void LnkT366(){ call_or_link(VV[366],(void **)&Lnk366);} /* MAKE-LOOP-COLLECTOR */ |
static void LnkT366(){ call_or_link(VV[366],(void **)&Lnk366);} /* MAKE-LOOP-COLLECTOR */ |
7543 |
static object LnkTLI364(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[364],(void **)&LnkLI364,ap);} /* FIND */ |
static object LnkTLI364(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[364],(void **)&LnkLI364,ap);va_end(ap);return V1;} /* FIND */ |
7544 |
static void LnkT363(){ call_or_link(VV[363],(void **)&Lnk363);} /* LOOP-OPTIONAL-TYPE */ |
static void LnkT363(){ call_or_link(VV[363],(void **)&Lnk363);} /* LOOP-OPTIONAL-TYPE */ |
7545 |
static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-EMIT-BODY */ |
static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-EMIT-BODY */ |
7546 |
static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-GET-PROGN */ |
static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-GET-PROGN */ |
7550 |
static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-MAKE-VARIABLE */ |
static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-MAKE-VARIABLE */ |
7551 |
static void LnkT354(){ call_or_link(VV[354],(void **)&Lnk354);} /* LOOP-DECLARE-VARIABLE */ |
static void LnkT354(){ call_or_link(VV[354],(void **)&Lnk354);} /* LOOP-DECLARE-VARIABLE */ |
7552 |
static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-TEQUAL */ |
static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-TEQUAL */ |
7553 |
static object LnkTLI352(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[352],(void **)&LnkLI352,2,ap);} /* COERCE */ |
static object LnkTLI352(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[352],(void **)&LnkLI352,2,ap);va_end(ap);return V1;} /* COERCE */ |
7554 |
static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-CONSTRUCT-RETURN */ |
static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-CONSTRUCT-RETURN */ |
7555 |
static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-PSEUDO-BODY */ |
static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-PSEUDO-BODY */ |
7556 |
static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-TMEMBER */ |
static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-TMEMBER */ |
7561 |
static void LnkT344(){ call_or_link(VV[344],(void **)&Lnk344);} /* LOOP-ITERATION-DRIVER */ |
static void LnkT344(){ call_or_link(VV[344],(void **)&Lnk344);} /* LOOP-ITERATION-DRIVER */ |
7562 |
static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* LOOP-ERROR */ |
static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* LOOP-ERROR */ |
7563 |
static void LnkT323(){ call_or_link(VV[323],(void **)&Lnk323);} /* SUBTYPEP */ |
static void LnkT323(){ call_or_link(VV[323],(void **)&Lnk323);} /* SUBTYPEP */ |
7564 |
static object LnkTLI342(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[342],(void **)&LnkLI342,ap);} /* WARN */ |
static object LnkTLI342(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[342],(void **)&LnkLI342,ap);va_end(ap);return V1;} /* WARN */ |
7565 |
static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* LOOP-CONTEXT */ |
static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* LOOP-CONTEXT */ |
7566 |
static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* SPECIAL-OPERATOR-P */ |
static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* SPECIAL-OPERATOR-P */ |
7567 |
static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* ESTIMATE-CODE-SIZE-1 */ |
static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* ESTIMATE-CODE-SIZE-1 */ |