65 |
TTL:; |
TTL:; |
66 |
if((symbol_value(VV[3]))!=Cnil){ |
if((symbol_value(VV[3]))!=Cnil){ |
67 |
goto T19;} |
goto T19;} |
68 |
(void)((*(LnkLI158))()); |
(void)((*(LnkLI159))()); |
69 |
if(((V5))==Cnil){ |
if(((V5))==Cnil){ |
70 |
goto T25;} |
goto T25;} |
71 |
(void)(princ((V3),Cnil)); |
(void)(princ((V3),Cnil)); |
72 |
base[3]= (V4); |
base[3]= (V4); |
73 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
74 |
(void) (*Lnk159)(); |
(void) (*Lnk160)(); |
75 |
vs_top=sup; |
vs_top=sup; |
76 |
goto T23; |
goto T23; |
77 |
goto T25; |
goto T25; |
91 |
T19:; |
T19:; |
92 |
goto T33; |
goto T33; |
93 |
T33:; |
T33:; |
94 |
(void)((*(LnkLI158))()); |
(void)((*(LnkLI159))()); |
95 |
if(((V5))==Cnil){ |
if(((V5))==Cnil){ |
96 |
goto T38;} |
goto T38;} |
97 |
(void)(princ((V3),Cnil)); |
(void)(princ((V3),Cnil)); |
98 |
(void)((*(LnkLI160))()); |
(void)((*(LnkLI161))()); |
99 |
(void)(prin1((V4),Cnil)); |
(void)(prin1((V4),Cnil)); |
100 |
goto T36; |
goto T36; |
101 |
goto T38; |
goto T38; |
155 |
goto T67;} |
goto T67;} |
156 |
base[3]= (V4); |
base[3]= (V4); |
157 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
158 |
(void) (*Lnk159)(); |
(void) (*Lnk160)(); |
159 |
vs_top=sup; |
vs_top=sup; |
160 |
goto T67; |
goto T67; |
161 |
T67:; |
T67:; |
166 |
T66:; |
T66:; |
167 |
if(!eql(V6,VV[6]) |
if(!eql(V6,VV[6]) |
168 |
&& !eql(V6,VV[7]))goto T71; |
&& !eql(V6,VV[7]))goto T71; |
169 |
(void)((*(LnkLI161))()); |
(void)((*(LnkLI162))()); |
170 |
if(((V5))==Cnil){ |
if(((V5))==Cnil){ |
171 |
goto T73;} |
goto T73;} |
172 |
base[3]= (V4); |
base[3]= (V4); |
173 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
174 |
(void) (*Lnk159)(); |
(void) (*Lnk160)(); |
175 |
vs_top=sup; |
vs_top=sup; |
176 |
goto T73; |
goto T73; |
177 |
T73:; |
T73:; |
182 |
T71:; |
T71:; |
183 |
if(!eql(V6,VV[8]) |
if(!eql(V6,VV[8]) |
184 |
&& !eql(V6,VV[9]))goto T77; |
&& !eql(V6,VV[9]))goto T77; |
185 |
(void)((*(LnkLI161))()); |
(void)((*(LnkLI162))()); |
186 |
base[3]= Cnil; |
base[3]= Cnil; |
187 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
188 |
return; |
return; |
190 |
T77:; |
T77:; |
191 |
if(!eql(V6,VV[10]) |
if(!eql(V6,VV[10]) |
192 |
&& !eql(V6,VV[11]))goto T79; |
&& !eql(V6,VV[11]))goto T79; |
193 |
(void)((*(LnkLI161))()); |
(void)((*(LnkLI162))()); |
194 |
bds_bind(VV[12],Ct); |
bds_bind(VV[12],Ct); |
195 |
bds_bind(VV[13],Cnil); |
bds_bind(VV[13],Cnil); |
196 |
bds_bind(VV[14],Cnil); |
bds_bind(VV[14],Cnil); |
204 |
T79:; |
T79:; |
205 |
if(!eql(V6,VV[15]) |
if(!eql(V6,VV[15]) |
206 |
&& !eql(V6,VV[16]))goto T82; |
&& !eql(V6,VV[16]))goto T82; |
207 |
(void)((*(LnkLI161))()); |
(void)((*(LnkLI162))()); |
208 |
{frame_ptr fr; |
{frame_ptr fr; |
209 |
fr=frs_sch_catch(VV[17]); |
fr=frs_sch_catch(VV[17]); |
210 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[17]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[17]); |
219 |
{object V9; |
{object V9; |
220 |
base[6]= symbol_value(VV[0]); |
base[6]= symbol_value(VV[0]); |
221 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
222 |
(void) (*Lnk162)(); |
(void) (*Lnk163)(); |
223 |
vs_top=sup; |
vs_top=sup; |
224 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
225 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
226 |
Leval(); |
Leval(); |
227 |
vs_top=sup; |
vs_top=sup; |
228 |
V9= vs_base[0]; |
V9= vs_base[0]; |
229 |
(void)((*(LnkLI161))()); |
(void)((*(LnkLI162))()); |
230 |
base[4]= (V9);} |
base[4]= (V9);} |
231 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
232 |
return; |
return; |
238 |
register object V11; |
register object V11; |
239 |
base[6]= symbol_value(VV[0]); |
base[6]= symbol_value(VV[0]); |
240 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
241 |
(void) (*Lnk162)(); |
(void) (*Lnk163)(); |
242 |
vs_top=sup; |
vs_top=sup; |
243 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
244 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
251 |
base[0]=base[0]; |
base[0]=base[0]; |
252 |
vs_reserve(VM3); |
vs_reserve(VM3); |
253 |
vs_top=sup; |
vs_top=sup; |
254 |
(void)((*(LnkLI161))()); |
(void)((*(LnkLI162))()); |
255 |
}} |
}} |
256 |
vs_base=V12;vs_top=V13;} |
vs_base=V12;vs_top=V13;} |
257 |
Llist(); |
Llist(); |
281 |
T92:; |
T92:; |
282 |
if(!eql(V6,VV[26]) |
if(!eql(V6,VV[26]) |
283 |
&& !eql(V6,VV[27]))goto T118; |
&& !eql(V6,VV[27]))goto T118; |
284 |
(void)((*(LnkLI161))()); |
(void)((*(LnkLI162))()); |
285 |
{frame_ptr fr; |
{frame_ptr fr; |
286 |
fr=frs_sch_catch(VV[28]); |
fr=frs_sch_catch(VV[28]); |
287 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[28]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[28]); |
290 |
unwind(fr,VV[28]);} |
unwind(fr,VV[28]);} |
291 |
goto T118; |
goto T118; |
292 |
T118:; |
T118:; |
293 |
(void)((*(LnkLI161))()); |
(void)((*(LnkLI162))()); |
294 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
295 |
base[3]= Ct; |
base[3]= Ct; |
296 |
base[4]= VV[29]; |
base[4]= VV[29]; |
701 |
base[0]= (V24); |
base[0]= (V24); |
702 |
base[1]= Ct; |
base[1]= Ct; |
703 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
704 |
(void) (*Lnk163)(); |
(void) (*Lnk164)(); |
705 |
vs_top=sup; |
vs_top=sup; |
706 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
707 |
goto T265;} |
goto T265;} |
801 |
T297:; |
T297:; |
802 |
base[0]= (V45); |
base[0]= (V45); |
803 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
804 |
(void) (*Lnk164)(); |
(void) (*Lnk165)(); |
805 |
vs_top=sup; |
vs_top=sup; |
806 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
807 |
goto T309;} |
goto T309;} |
808 |
base[0]= VV[59]; |
base[0]= VV[59]; |
809 |
base[2]= (V45); |
base[2]= (V45); |
810 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
811 |
(void) (*Lnk164)(); |
(void) (*Lnk165)(); |
812 |
vs_top=sup; |
vs_top=sup; |
813 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
814 |
base[2]= Cnil; |
base[2]= Cnil; |
935 |
vs_top=sup; |
vs_top=sup; |
936 |
V56= vs_base[0]; |
V56= vs_base[0]; |
937 |
{object V55= V56; |
{object V55= V56; |
938 |
if((V55!= VV[165]))goto T358; |
if((V55!= VV[166]))goto T358; |
939 |
base[0]= Ct; |
base[0]= Ct; |
940 |
base[1]= VV[66]; |
base[1]= VV[66]; |
941 |
base[2]= (V54); |
base[2]= (V54); |
946 |
VMR11(V57)} |
VMR11(V57)} |
947 |
goto T358; |
goto T358; |
948 |
T358:; |
T358:; |
949 |
if((V55!= VV[166]))goto T362; |
if((V55!= VV[167]))goto T362; |
950 |
base[0]= Ct; |
base[0]= Ct; |
951 |
base[1]= VV[67]; |
base[1]= VV[67]; |
952 |
base[2]= (V54); |
base[2]= (V54); |
957 |
VMR11(V58)} |
VMR11(V58)} |
958 |
goto T362; |
goto T362; |
959 |
T362:; |
T362:; |
960 |
if((V55!= VV[167]))goto T366; |
if((V55!= VV[168]))goto T366; |
961 |
base[0]= Ct; |
base[0]= Ct; |
962 |
base[1]= VV[68]; |
base[1]= VV[68]; |
963 |
base[2]= (V54); |
base[2]= (V54); |
1001 |
VMR11(V60)} |
VMR11(V60)} |
1002 |
goto T366; |
goto T366; |
1003 |
T366:; |
T366:; |
1004 |
if((V55!= VV[168]))goto T387; |
if((V55!= VV[169]))goto T387; |
1005 |
base[0]= Ct; |
base[0]= Ct; |
1006 |
base[1]= VV[71]; |
base[1]= VV[71]; |
1007 |
base[2]= (V54); |
base[2]= (V54); |
1045 |
VMR11(V62)} |
VMR11(V62)} |
1046 |
goto T387; |
goto T387; |
1047 |
T387:; |
T387:; |
1048 |
if((V55!= VV[169]) |
if((V55!= VV[170]) |
1049 |
&& (V55!= VV[170]))goto T408; |
&& (V55!= VV[171]))goto T408; |
1050 |
base[0]= Ct; |
base[0]= Ct; |
1051 |
base[1]= VV[74]; |
base[1]= VV[74]; |
1052 |
base[2]= (V54); |
base[2]= (V54); |
1109 |
VMR11(V67)}} |
VMR11(V67)}} |
1110 |
goto T408; |
goto T408; |
1111 |
T408:; |
T408:; |
1112 |
if((V55!= VV[171]) |
if((V55!= VV[172]) |
1113 |
&& (V55!= VV[172]))goto T433; |
&& (V55!= VV[173]))goto T433; |
1114 |
base[0]= Ct; |
base[0]= Ct; |
1115 |
base[1]= VV[77]; |
base[1]= VV[77]; |
1116 |
base[2]= (V54); |
base[2]= (V54); |
1188 |
TTL:; |
TTL:; |
1189 |
base[0]= Ct; |
base[0]= Ct; |
1190 |
{object V76= car((V75)); |
{object V76= car((V75)); |
1191 |
if((V76!= VV[173]) |
if((V76!= VV[174]) |
|
&& (V76!= VV[174]) |
|
1192 |
&& (V76!= VV[175]) |
&& (V76!= VV[175]) |
1193 |
&& (V76!= VV[176]))goto T461; |
&& (V76!= VV[176]) |
1194 |
|
&& (V76!= VV[177]))goto T461; |
1195 |
base[1]= VV[80]; |
base[1]= VV[80]; |
1196 |
goto T460; |
goto T460; |
1197 |
goto T461; |
goto T461; |
1198 |
T461:; |
T461:; |
1199 |
if((V76!= VV[177]))goto T462; |
if((V76!= VV[178]))goto T462; |
1200 |
base[1]= VV[81]; |
base[1]= VV[81]; |
1201 |
goto T460; |
goto T460; |
1202 |
goto T462; |
goto T462; |
1359 |
T518:; |
T518:; |
1360 |
base[0]= (V93); |
base[0]= (V93); |
1361 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1362 |
(void) (*Lnk178)(); |
(void) (*Lnk179)(); |
1363 |
vs_top=sup; |
vs_top=sup; |
1364 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1365 |
goto T527;} |
goto T527;} |
1504 |
T580:; |
T580:; |
1505 |
base[0]= (V103); |
base[0]= (V103); |
1506 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1507 |
(void) (*Lnk178)(); |
(void) (*Lnk179)(); |
1508 |
vs_top=sup; |
vs_top=sup; |
1509 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1510 |
goto T589;} |
goto T589;} |
1647 |
goto T642; |
goto T642; |
1648 |
T642:; |
T642:; |
1649 |
base[0]= VV[98]; |
base[0]= VV[98]; |
1650 |
base[1]= (*(LnkLI179))((V113)); |
base[1]= (*(LnkLI180))((V113)); |
1651 |
base[2]= Cnil; |
base[2]= Cnil; |
1652 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1653 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
1661 |
base[0]= VV[99]; |
base[0]= VV[99]; |
1662 |
base[2]= (V113); |
base[2]= (V113); |
1663 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1664 |
(void) (*Lnk180)(); |
(void) (*Lnk181)(); |
1665 |
vs_top=sup; |
vs_top=sup; |
1666 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
1667 |
base[2]= Cnil; |
base[2]= Cnil; |
1735 |
base[10]= (V117); |
base[10]= (V117); |
1736 |
base[11]= car(cddddr((V122))); |
base[11]= car(cddddr((V122))); |
1737 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
1738 |
(void) (*Lnk181)(); |
(void) (*Lnk182)(); |
1739 |
vs_top=sup; |
vs_top=sup; |
1740 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
1741 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
1761 |
goto TTL; |
goto TTL; |
1762 |
TTL:; |
TTL:; |
1763 |
bds_bind(VV[41],symbol_value(VV[41])); |
bds_bind(VV[41],symbol_value(VV[41])); |
1764 |
(void)((*(LnkLI160))()); |
(void)((*(LnkLI161))()); |
1765 |
if((symbol_value(VV[3]))!=Cnil){ |
if((symbol_value(VV[3]))!=Cnil){ |
1766 |
goto T701;} |
goto T701;} |
1767 |
if(number_compare((VV[41]->s.s_dbind),small_fixnum(5))>0){ |
if(number_compare((VV[41]->s.s_dbind),small_fixnum(5))>0){ |
1793 |
else{ |
else{ |
1794 |
if(!(type_of((V125))==t_symbol)){ |
if(!(type_of((V125))==t_symbol)){ |
1795 |
goto T715;} |
goto T715;} |
1796 |
V128= (*(LnkLI182))((V125)); |
V128= (*(LnkLI183))((V125)); |
1797 |
frs_pop(); |
frs_pop(); |
1798 |
base[2]= V128; |
base[2]= V128; |
1799 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1807 |
vs_top=sup; |
vs_top=sup; |
1808 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1809 |
goto T718;} |
goto T718;} |
1810 |
V129= (*(LnkLI183))((V125)); |
V129= (*(LnkLI184))((V125)); |
1811 |
frs_pop(); |
frs_pop(); |
1812 |
base[2]= V129; |
base[2]= V129; |
1813 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1817 |
T718:; |
T718:; |
1818 |
if(!(type_of((V125))==t_character)){ |
if(!(type_of((V125))==t_character)){ |
1819 |
goto T722;} |
goto T722;} |
1820 |
V130= (*(LnkLI184))((V125)); |
V130= (*(LnkLI185))((V125)); |
1821 |
frs_pop(); |
frs_pop(); |
1822 |
base[2]= V130; |
base[2]= V130; |
1823 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1832 |
type_of((V125))==t_longfloat|| |
type_of((V125))==t_longfloat|| |
1833 |
type_of((V125))==t_complex)){ |
type_of((V125))==t_complex)){ |
1834 |
goto T725;} |
goto T725;} |
1835 |
V131= (*(LnkLI185))((V125)); |
V131= (*(LnkLI186))((V125)); |
1836 |
frs_pop(); |
frs_pop(); |
1837 |
base[2]= V131; |
base[2]= V131; |
1838 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1842 |
T725:; |
T725:; |
1843 |
if(!(type_of((V125))==t_cons)){ |
if(!(type_of((V125))==t_cons)){ |
1844 |
goto T728;} |
goto T728;} |
1845 |
V132= (*(LnkLI186))((V125)); |
V132= (*(LnkLI187))((V125)); |
1846 |
frs_pop(); |
frs_pop(); |
1847 |
base[2]= V132; |
base[2]= V132; |
1848 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1852 |
T728:; |
T728:; |
1853 |
if(!(type_of((V125))==t_string)){ |
if(!(type_of((V125))==t_string)){ |
1854 |
goto T731;} |
goto T731;} |
1855 |
V133= (*(LnkLI187))((V125)); |
V133= (*(LnkLI188))((V125)); |
1856 |
frs_pop(); |
frs_pop(); |
1857 |
base[2]= V133; |
base[2]= V133; |
1858 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1864 |
type_of((V125))==t_string|| |
type_of((V125))==t_string|| |
1865 |
type_of((V125))==t_bitvector)){ |
type_of((V125))==t_bitvector)){ |
1866 |
goto T734;} |
goto T734;} |
1867 |
V134= (*(LnkLI188))((V125)); |
V134= (*(LnkLI189))((V125)); |
1868 |
frs_pop(); |
frs_pop(); |
1869 |
base[2]= V134; |
base[2]= V134; |
1870 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1877 |
type_of((V125))==t_string|| |
type_of((V125))==t_string|| |
1878 |
type_of((V125))==t_bitvector)){ |
type_of((V125))==t_bitvector)){ |
1879 |
goto T737;} |
goto T737;} |
1880 |
V135= (*(LnkLI189))((V125)); |
V135= (*(LnkLI190))((V125)); |
1881 |
frs_pop(); |
frs_pop(); |
1882 |
base[2]= V135; |
base[2]= V135; |
1883 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1887 |
T737:; |
T737:; |
1888 |
if(!(type_of((V125))==t_structure)){ |
if(!(type_of((V125))==t_structure)){ |
1889 |
goto T740;} |
goto T740;} |
1890 |
V136= (*(LnkLI190))((V125)); |
V136= (*(LnkLI191))((V125)); |
1891 |
frs_pop(); |
frs_pop(); |
1892 |
base[2]= V136; |
base[2]= V136; |
1893 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1937 |
else{ |
else{ |
1938 |
base[6]= (V137); |
base[6]= (V137); |
1939 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1940 |
(void) (*Lnk159)(); |
(void) (*Lnk160)(); |
1941 |
vs_top=sup; |
vs_top=sup; |
1942 |
frs_pop();} |
frs_pop();} |
1943 |
goto T748; |
goto T748; |
1986 |
else{ |
else{ |
1987 |
base[8]= (V138); |
base[8]= (V138); |
1988 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1989 |
(void) (*Lnk159)(); |
(void) (*Lnk160)(); |
1990 |
vs_top=sup; |
vs_top=sup; |
1991 |
frs_pop();} |
frs_pop();} |
1992 |
goto T755; |
goto T755; |
2033 |
vs_top=sup; |
vs_top=sup; |
2034 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2035 |
goto T766;}{object V141; |
goto T766;}{object V141; |
2036 |
V141= (*(LnkLI191))(base[0],VV[105]); |
V141= (*(LnkLI192))(base[0],VV[105]); |
2037 |
if(V141==Cnil)goto T770; |
if(V141==Cnil)goto T770; |
2038 |
base[3]= V141; |
base[3]= V141; |
2039 |
goto T769; |
goto T769; |
2067 |
vs_top=sup; |
vs_top=sup; |
2068 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2069 |
goto T778;}{object V142; |
goto T778;}{object V142; |
2070 |
V142= (*(LnkLI191))(base[0],VV[105]); |
V142= (*(LnkLI192))(base[0],VV[105]); |
2071 |
if(V142==Cnil)goto T782; |
if(V142==Cnil)goto T782; |
2072 |
base[3]= V142; |
base[3]= V142; |
2073 |
goto T781; |
goto T781; |
2089 |
vs_top=sup; |
vs_top=sup; |
2090 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2091 |
goto T786;}{object V143; |
goto T786;}{object V143; |
2092 |
V143= (*(LnkLI191))(base[0],VV[105]); |
V143= (*(LnkLI192))(base[0],VV[105]); |
2093 |
if(V143==Cnil)goto T790; |
if(V143==Cnil)goto T790; |
2094 |
base[3]= V143; |
base[3]= V143; |
2095 |
goto T789; |
goto T789; |
2103 |
if(!(type_of((V140))==t_cons)){ |
if(!(type_of((V140))==t_cons)){ |
2104 |
goto T793;} |
goto T793;} |
2105 |
{object V144= car((V140)); |
{object V144= car((V140)); |
2106 |
if((V144!= VV[173]))goto T797; |
if((V144!= VV[174]))goto T797; |
2107 |
base[4]= Cnil; |
base[4]= Cnil; |
2108 |
base[5]= VV[111]; |
base[5]= VV[111]; |
2109 |
base[6]= cadr((V140)); |
base[6]= cadr((V140)); |
2114 |
goto T789; |
goto T789; |
2115 |
goto T797; |
goto T797; |
2116 |
T797:; |
T797:; |
2117 |
if((V144!= VV[174]))goto T801; |
if((V144!= VV[175]))goto T801; |
2118 |
base[4]= Cnil; |
base[4]= Cnil; |
2119 |
base[5]= VV[112]; |
base[5]= VV[112]; |
2120 |
base[6]= caddr((V140)); |
base[6]= caddr((V140)); |
2125 |
goto T789; |
goto T789; |
2126 |
goto T801; |
goto T801; |
2127 |
T801:; |
T801:; |
2128 |
if((V144!= VV[175]))goto T805; |
if((V144!= VV[176]))goto T805; |
2129 |
base[4]= Cnil; |
base[4]= Cnil; |
2130 |
base[5]= VV[113]; |
base[5]= VV[113]; |
2131 |
base[6]= car(cddddr((V140))); |
base[6]= car(cddddr((V140))); |
2136 |
goto T789; |
goto T789; |
2137 |
goto T805; |
goto T805; |
2138 |
T805:; |
T805:; |
2139 |
if((V144!= VV[176]))goto T809; |
if((V144!= VV[177]))goto T809; |
2140 |
base[4]= Cnil; |
base[4]= Cnil; |
2141 |
base[5]= VV[114]; |
base[5]= VV[114]; |
2142 |
base[6]= cadr(cddddr((V140))); |
base[6]= cadr(cddddr((V140))); |
2161 |
goto T764; |
goto T764; |
2162 |
goto T786; |
goto T786; |
2163 |
T786:; |
T786:; |
2164 |
V140= (*(LnkLI191))(base[0],VV[105]); |
V140= (*(LnkLI192))(base[0],VV[105]); |
2165 |
if(((V140))==Cnil){ |
if(((V140))==Cnil){ |
2166 |
goto T764;} |
goto T764;} |
2167 |
base[3]= (V140); |
base[3]= (V140); |
2189 |
V146= vs_base[0]; |
V146= vs_base[0]; |
2190 |
if(!((V145)==(V146))){ |
if(!((V145)==(V146))){ |
2191 |
goto T824;} |
goto T824;} |
2192 |
if(((*(LnkLI191))(base[0],VV[120]))==Cnil){ |
if(((*(LnkLI192))(base[0],VV[120]))==Cnil){ |
2193 |
goto T819;} |
goto T819;} |
2194 |
goto T824; |
goto T824; |
2195 |
T824:;{object V147; |
T824:;{object V147; |
2196 |
V147= (*(LnkLI191))(base[0],VV[120]); |
V147= (*(LnkLI192))(base[0],VV[120]); |
2197 |
if(V147==Cnil)goto T833; |
if(V147==Cnil)goto T833; |
2198 |
base[3]= V147; |
base[3]= V147; |
2199 |
goto T832; |
goto T832; |
2215 |
vs_top=sup; |
vs_top=sup; |
2216 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2217 |
goto T837;}{object V148; |
goto T837;}{object V148; |
2218 |
V148= (*(LnkLI191))(base[0],VV[120]); |
V148= (*(LnkLI192))(base[0],VV[120]); |
2219 |
if(V148==Cnil)goto T841; |
if(V148==Cnil)goto T841; |
2220 |
base[3]= V148; |
base[3]= V148; |
2221 |
goto T840; |
goto T840; |
2231 |
goto T819; |
goto T819; |
2232 |
goto T837; |
goto T837; |
2233 |
T837:; |
T837:; |
2234 |
V140= (*(LnkLI191))(base[0],VV[120]); |
V140= (*(LnkLI192))(base[0],VV[120]); |
2235 |
if(((V140))!=Cnil){ |
if(((V140))!=Cnil){ |
2236 |
goto T844;} |
goto T844;} |
2237 |
base[3]= base[0]; |
base[3]= base[0]; |
2254 |
vs_top=sup; |
vs_top=sup; |
2255 |
goto T819; |
goto T819; |
2256 |
T819:; |
T819:; |
2257 |
V140= (*(LnkLI191))(base[0],VV[127]); |
V140= (*(LnkLI192))(base[0],VV[127]); |
2258 |
if(((V140))==Cnil){ |
if(((V140))==Cnil){ |
2259 |
goto T854;} |
goto T854;} |
2260 |
base[3]= (V140); |
base[3]= (V140); |
2287 |
bds_unwind1; |
bds_unwind1; |
2288 |
goto T852; |
goto T852; |
2289 |
T852:; |
T852:; |
2290 |
V140= (*(LnkLI191))(base[0],VV[133]); |
V140= (*(LnkLI192))(base[0],VV[133]); |
2291 |
if(((V140))==Cnil){ |
if(((V140))==Cnil){ |
2292 |
goto T870;} |
goto T870;} |
2293 |
base[3]= (V140); |
base[3]= (V140); |
2314 |
vs_top=sup; |
vs_top=sup; |
2315 |
goto T868; |
goto T868; |
2316 |
T868:; |
T868:; |
2317 |
V140= (*(LnkLI191))(base[0],VV[35]); |
V140= (*(LnkLI192))(base[0],VV[35]); |
2318 |
if(((V140))==Cnil){ |
if(((V140))==Cnil){ |
2319 |
goto T884;} |
goto T884;} |
2320 |
base[3]= (V140); |
base[3]= (V140); |
2386 |
if(!(type_of((V140))==t_cons)){ |
if(!(type_of((V140))==t_cons)){ |
2387 |
goto T920;} |
goto T920;} |
2388 |
{object V151= car((V140)); |
{object V151= car((V140)); |
2389 |
if((V151!= VV[173]))goto T922; |
if((V151!= VV[174]))goto T922; |
2390 |
base[7]= make_cons(VV[148],cdr((V140))); |
base[7]= make_cons(VV[148],cdr((V140))); |
2391 |
goto T918; |
goto T918; |
2392 |
goto T922; |
goto T922; |
2393 |
T922:; |
T922:; |
2394 |
if((V151!= VV[174]))goto T923; |
if((V151!= VV[175]))goto T923; |
2395 |
base[7]= make_cons(VV[148],cddr((V140))); |
base[7]= make_cons(VV[148],cddr((V140))); |
2396 |
goto T918; |
goto T918; |
2397 |
goto T923; |
goto T923; |
2398 |
T923:; |
T923:; |
2399 |
if((V151!= VV[175]))goto T924; |
if((V151!= VV[176]))goto T924; |
2400 |
base[7]= make_cons(VV[148],cddddr((V140))); |
base[7]= make_cons(VV[148],cddddr((V140))); |
2401 |
goto T918; |
goto T918; |
2402 |
goto T924; |
goto T924; |
2403 |
T924:; |
T924:; |
2404 |
if((V151!= VV[176]))goto T925; |
if((V151!= VV[177]))goto T925; |
2405 |
base[7]= make_cons(VV[148],cdr(cddddr((V140)))); |
base[7]= make_cons(VV[148],cdr(cddddr((V140)))); |
2406 |
goto T918; |
goto T918; |
2407 |
goto T925; |
goto T925; |
2426 |
T763:; |
T763:; |
2427 |
base[3]= symbol_name(base[0]); |
base[3]= symbol_name(base[0]); |
2428 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2429 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2430 |
vs_top=sup; |
vs_top=sup; |
2431 |
if(((V139))==Cnil){ |
if(((V139))==Cnil){ |
2432 |
goto T930;} |
goto T930;} |
2484 |
if(((V153))==Cnil){ |
if(((V153))==Cnil){ |
2485 |
goto T949;} |
goto T949;} |
2486 |
{object V155; |
{object V155; |
2487 |
register object V156; |
object V156; |
2488 |
register object V157; |
register object V157; |
2489 |
base[2]= V153; |
base[2]= V153; |
2490 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2505 |
T951:; |
T951:; |
2506 |
V156= Cnil; |
V156= Cnil; |
2507 |
V157= Cnil; |
V157= Cnil; |
2508 |
{long V159; |
{object V159; |
2509 |
long V160; |
object V160; |
2510 |
base[2]= (V155); |
base[4]= (V155); |
2511 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+4)+1; |
2512 |
(void) (*Lnk193)(); |
Lpackage_use_list(); |
|
if(vs_base>=vs_top){vs_top=sup;goto T959;} |
|
|
V159= fix(vs_base[0]); |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T960;} |
|
|
V160= fix(vs_base[0]); |
|
2513 |
vs_top=sup; |
vs_top=sup; |
2514 |
goto T961; |
V161= vs_base[0]; |
2515 |
goto T959; |
V159= make_cons((V155),V161); |
2516 |
T959:; |
V160= car((V159)); |
2517 |
V159= fix(Cnil); |
goto T962; |
2518 |
goto T960; |
T962:; |
2519 |
T960:; |
if(!(endp_prop((V159)))){ |
2520 |
V160= fix(Cnil); |
goto T963;} |
|
goto T961; |
|
|
T961:; |
|
|
{object V161; |
|
|
object V162; |
|
|
V163 = make_fixnum(V160); |
|
|
V164 = make_fixnum(V159); |
|
|
V161= number_plus(V163,V164); |
|
|
V162= small_fixnum(0); |
|
|
goto T965; |
|
|
T965:; |
|
|
if(!(number_compare((V162),(V161))>=0)){ |
|
|
goto T966;} |
|
2521 |
V156= Cnil; |
V156= Cnil; |
2522 |
goto T947; |
goto T947; |
2523 |
goto T966; |
goto T963; |
2524 |
T966:; |
T963:; |
2525 |
V165 = make_fixnum(V160); |
{long V162; |
2526 |
if(!(number_compare((V162),V165)<0)){ |
long V163; |
2527 |
goto T977;} |
base[4]= (V160); |
2528 |
base[3]= (V155); |
vs_top=(vs_base=base+4)+1; |
2529 |
base[4]= (V162); |
(void) (*Lnk194)(); |
2530 |
vs_top=(vs_base=base+3)+2; |
if(vs_base>=vs_top){vs_top=sup;goto T972;} |
2531 |
siLpackage_internal(); |
V162= fix(vs_base[0]); |
2532 |
vs_top=sup; |
vs_base++; |
2533 |
V157= vs_base[0]; |
if(vs_base>=vs_top){vs_top=sup;goto T973;} |
2534 |
goto T975; |
V163= fix(vs_base[0]); |
|
goto T977; |
|
|
T977:; |
|
|
base[3]= (V155); |
|
|
V166 = make_fixnum(V160); |
|
|
base[4]= number_minus((V162),V166); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
siLpackage_external(); |
|
2535 |
vs_top=sup; |
vs_top=sup; |
2536 |
V157= vs_base[0]; |
goto T974; |
2537 |
goto T975; |
goto T972; |
2538 |
T975:; |
T972:; |
2539 |
|
V162= fix(Cnil); |
2540 |
goto T973; |
goto T973; |
2541 |
T973:; |
T973:; |
2542 |
if(((V157))!=Cnil){ |
V163= fix(Cnil); |
2543 |
|
goto T974; |
2544 |
|
T974:; |
2545 |
|
if(((V155))==((V160))){ |
2546 |
|
goto T975;} |
2547 |
|
V163= 0; |
2548 |
|
goto T975; |
2549 |
|
T975:; |
2550 |
|
{object V164; |
2551 |
|
object V165; |
2552 |
|
V166 = make_fixnum(V163); |
2553 |
|
V167 = make_fixnum(V162); |
2554 |
|
V164= number_plus(V166,V167); |
2555 |
|
V165= small_fixnum(0); |
2556 |
|
goto T982; |
2557 |
|
T982:; |
2558 |
|
if(!(number_compare((V165),(V164))>=0)){ |
2559 |
goto T983;} |
goto T983;} |
2560 |
goto T974; |
goto T969; |
2561 |
goto T983; |
goto T983; |
2562 |
T983:; |
T983:; |
2563 |
V156= car((V157)); |
V168 = make_fixnum(V163); |
2564 |
V167= coerce_to_string((V156)); |
if(!(number_compare((V165),V168)<0)){ |
2565 |
if(((*(LnkLI194))((V152),/* INLINE-ARGS */V167))==Cnil){ |
goto T992;} |
2566 |
goto T988;}{object V168; |
base[5]= (V160); |
2567 |
base[3]= (V156); |
base[6]= (V165); |
2568 |
base[4]= Ct; |
vs_top=(vs_base=base+5)+2; |
2569 |
vs_top=(vs_base=base+3)+2; |
siLpackage_internal(); |
|
(void) (*Lnk163)(); |
|
2570 |
vs_top=sup; |
vs_top=sup; |
2571 |
V168= vs_base[0]; |
V157= vs_base[0]; |
2572 |
if(V168==Cnil)goto T992; |
goto T990; |
|
V154= V168; |
|
|
goto T991; |
|
2573 |
goto T992; |
goto T992; |
2574 |
T992:;} |
T992:; |
2575 |
goto T991; |
base[5]= (V160); |
2576 |
T991:; |
V169 = make_fixnum(V163); |
2577 |
|
base[6]= number_minus((V165),V169); |
2578 |
|
vs_top=(vs_base=base+5)+2; |
2579 |
|
siLpackage_external(); |
2580 |
|
vs_top=sup; |
2581 |
|
V157= vs_base[0]; |
2582 |
|
goto T990; |
2583 |
|
T990:; |
2584 |
goto T988; |
goto T988; |
2585 |
T988:; |
T988:; |
2586 |
|
if(((V157))!=Cnil){ |
2587 |
|
goto T998;} |
2588 |
|
goto T989; |
2589 |
|
goto T998; |
2590 |
|
T998:; |
2591 |
|
V156= car((V157)); |
2592 |
|
if(((V160))==((V155))){ |
2593 |
|
goto T1004;} |
2594 |
|
base[6]= symbol_name((V156)); |
2595 |
|
base[7]= (V155); |
2596 |
|
vs_top=(vs_base=base+6)+2; |
2597 |
|
Lfind_symbol(); |
2598 |
|
Llist(); |
2599 |
|
vs_top=sup; |
2600 |
|
base[5]= vs_base[0]; |
2601 |
|
vs_top=(vs_base=base+5)+1; |
2602 |
|
Llast(); |
2603 |
|
vs_top=sup; |
2604 |
|
V170= vs_base[0]; |
2605 |
|
if(!((VV[156])==(car(V170)))){ |
2606 |
|
goto T1003;} |
2607 |
|
goto T1004; |
2608 |
|
T1004:; |
2609 |
|
V171= coerce_to_string((V156)); |
2610 |
|
if(((*(LnkLI195))((V152),/* INLINE-ARGS */V171))==Cnil){ |
2611 |
|
goto T1013;}{object V172; |
2612 |
|
base[5]= (V156); |
2613 |
|
base[6]= Ct; |
2614 |
|
vs_top=(vs_base=base+5)+2; |
2615 |
|
(void) (*Lnk164)(); |
2616 |
|
vs_top=sup; |
2617 |
|
V172= vs_base[0]; |
2618 |
|
if(V172==Cnil)goto T1017; |
2619 |
|
V154= V172; |
2620 |
|
goto T1016; |
2621 |
|
goto T1017; |
2622 |
|
T1017:;} |
2623 |
|
goto T1016; |
2624 |
|
T1016:; |
2625 |
|
goto T1013; |
2626 |
|
T1013:; |
2627 |
|
goto T1003; |
2628 |
|
T1003:; |
2629 |
V157= cdr((V157)); |
V157= cdr((V157)); |
2630 |
goto T973; |
goto T988; |
2631 |
goto T974; |
goto T989; |
2632 |
T974:; |
T989:; |
2633 |
goto T971; |
goto T986; |
2634 |
goto T971; |
goto T986; |
2635 |
T971:; |
T986:; |
2636 |
V162= one_plus((V162)); |
V165= one_plus((V165)); |
2637 |
goto T965;}}} |
goto T982;}} |
2638 |
|
goto T969; |
2639 |
|
T969:; |
2640 |
|
V159= cdr((V159)); |
2641 |
|
V160= car((V159)); |
2642 |
|
goto T962;}} |
2643 |
goto T949; |
goto T949; |
2644 |
T949:; |
T949:; |
2645 |
{object V169; |
{object V173; |
2646 |
object V170; |
object V174; |
2647 |
vs_base=vs_top; |
vs_base=vs_top; |
2648 |
Llist_all_packages(); |
Llist_all_packages(); |
2649 |
vs_top=sup; |
vs_top=sup; |
2650 |
V169= vs_base[0]; |
V173= vs_base[0]; |
2651 |
V170= car((V169)); |
V174= car((V173)); |
2652 |
goto T1004; |
goto T1034; |
2653 |
T1004:; |
T1034:; |
2654 |
if(!(endp_prop((V169)))){ |
if(!(endp_prop((V173)))){ |
2655 |
goto T1005;} |
goto T1035;} |
2656 |
goto T947; |
goto T947; |
2657 |
goto T1005; |
goto T1035; |
2658 |
T1005:; |
T1035:; |
2659 |
{object V171; |
{object V175; |
2660 |
register object V172; |
register object V176; |
2661 |
register object V173; |
register object V177; |
2662 |
base[4]= V170; |
base[4]= V174; |
2663 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2664 |
Lpackagep(); |
Lpackagep(); |
2665 |
vs_top=sup; |
vs_top=sup; |
2666 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2667 |
goto T1012;} |
goto T1042;} |
2668 |
V171= V170; |
V175= V174; |
2669 |
goto T1010; |
goto T1040; |
2670 |
goto T1012; |
goto T1042; |
2671 |
T1012:; |
T1042:; |
2672 |
base[4]= coerce_to_string(V170); |
base[4]= coerce_to_string(V174); |
2673 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2674 |
Lfind_package(); |
Lfind_package(); |
2675 |
vs_top=sup; |
vs_top=sup; |
2676 |
V171= vs_base[0]; |
V175= vs_base[0]; |
2677 |
goto T1010; |
goto T1040; |
2678 |
T1010:; |
T1040:; |
2679 |
V172= Cnil; |
V176= Cnil; |
2680 |
V173= Cnil; |
V177= Cnil; |
2681 |
{long V175; |
{object V179; |
2682 |
long V176; |
register object V180; |
2683 |
base[4]= (V171); |
base[6]= (V175); |
2684 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+6)+1; |
2685 |
(void) (*Lnk193)(); |
Lpackage_use_list(); |
2686 |
if(vs_base>=vs_top){vs_top=sup;goto T1018;} |
vs_top=sup; |
2687 |
V175= fix(vs_base[0]); |
V181= vs_base[0]; |
2688 |
|
V179= make_cons((V175),V181); |
2689 |
|
V180= car((V179)); |
2690 |
|
goto T1051; |
2691 |
|
T1051:; |
2692 |
|
if(!(endp_prop((V179)))){ |
2693 |
|
goto T1052;} |
2694 |
|
V176= Cnil; |
2695 |
|
goto T1039; |
2696 |
|
goto T1052; |
2697 |
|
T1052:; |
2698 |
|
{long V182; |
2699 |
|
long V183; |
2700 |
|
base[6]= (V180); |
2701 |
|
vs_top=(vs_base=base+6)+1; |
2702 |
|
(void) (*Lnk194)(); |
2703 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1061;} |
2704 |
|
V182= fix(vs_base[0]); |
2705 |
vs_base++; |
vs_base++; |
2706 |
if(vs_base>=vs_top){vs_top=sup;goto T1019;} |
if(vs_base>=vs_top){vs_top=sup;goto T1062;} |
2707 |
V176= fix(vs_base[0]); |
V183= fix(vs_base[0]); |
2708 |
vs_top=sup; |
vs_top=sup; |
2709 |
goto T1020; |
goto T1063; |
2710 |
goto T1018; |
goto T1061; |
2711 |
T1018:; |
T1061:; |
2712 |
V175= fix(Cnil); |
V182= fix(Cnil); |
2713 |
goto T1019; |
goto T1062; |
2714 |
T1019:; |
T1062:; |
2715 |
V176= fix(Cnil); |
V183= fix(Cnil); |
2716 |
goto T1020; |
goto T1063; |
2717 |
T1020:; |
T1063:; |
2718 |
{object V177; |
if(((V175))==((V180))){ |
2719 |
register object V178; |
goto T1064;} |
2720 |
V179 = make_fixnum(V176); |
V183= 0; |
2721 |
V180 = make_fixnum(V175); |
goto T1064; |
2722 |
V177= number_plus(V179,V180); |
T1064:; |
2723 |
V178= small_fixnum(0); |
{object V184; |
2724 |
goto T1024; |
register object V185; |
2725 |
T1024:; |
V186 = make_fixnum(V183); |
2726 |
if(!(number_compare((V178),(V177))>=0)){ |
V187 = make_fixnum(V182); |
2727 |
goto T1025;} |
V184= number_plus(V186,V187); |
2728 |
V172= Cnil; |
V185= small_fixnum(0); |
2729 |
goto T1009; |
goto T1071; |
2730 |
goto T1025; |
T1071:; |
2731 |
T1025:; |
if(!(number_compare((V185),(V184))>=0)){ |
2732 |
V181 = make_fixnum(V176); |
goto T1072;} |
2733 |
if(!(number_compare((V178),V181)<0)){ |
goto T1058; |
2734 |
goto T1036;} |
goto T1072; |
2735 |
base[5]= (V171); |
T1072:; |
2736 |
base[6]= (V178); |
V188 = make_fixnum(V183); |
2737 |
vs_top=(vs_base=base+5)+2; |
if(!(number_compare((V185),V188)<0)){ |
2738 |
|
goto T1081;} |
2739 |
|
base[7]= (V180); |
2740 |
|
base[8]= (V185); |
2741 |
|
vs_top=(vs_base=base+7)+2; |
2742 |
siLpackage_internal(); |
siLpackage_internal(); |
2743 |
vs_top=sup; |
vs_top=sup; |
2744 |
V173= vs_base[0]; |
V177= vs_base[0]; |
2745 |
goto T1034; |
goto T1079; |
2746 |
goto T1036; |
goto T1081; |
2747 |
T1036:; |
T1081:; |
2748 |
base[5]= (V171); |
base[7]= (V180); |
2749 |
V182 = make_fixnum(V176); |
V189 = make_fixnum(V183); |
2750 |
base[6]= number_minus((V178),V182); |
base[8]= number_minus((V185),V189); |
2751 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+7)+2; |
2752 |
siLpackage_external(); |
siLpackage_external(); |
2753 |
vs_top=sup; |
vs_top=sup; |
2754 |
V173= vs_base[0]; |
V177= vs_base[0]; |
2755 |
goto T1034; |
goto T1079; |
2756 |
T1034:; |
T1079:; |
2757 |
goto T1032; |
goto T1077; |
2758 |
T1032:; |
T1077:; |
2759 |
if(((V173))!=Cnil){ |
if(((V177))!=Cnil){ |
2760 |
goto T1042;} |
goto T1087;} |
2761 |
goto T1033; |
goto T1078; |
2762 |
goto T1042; |
goto T1087; |
2763 |
T1042:; |
T1087:; |
2764 |
V172= car((V173)); |
V176= car((V177)); |
2765 |
V183= coerce_to_string((V172)); |
if(((V180))==((V175))){ |
2766 |
if(((*(LnkLI194))((V152),/* INLINE-ARGS */V183))==Cnil){ |
goto T1093;} |
2767 |
goto T1047;}{object V184; |
base[8]= symbol_name((V176)); |
2768 |
base[5]= (V172); |
base[9]= (V175); |
2769 |
base[6]= Ct; |
vs_top=(vs_base=base+8)+2; |
2770 |
vs_top=(vs_base=base+5)+2; |
Lfind_symbol(); |
2771 |
(void) (*Lnk163)(); |
Llist(); |
2772 |
vs_top=sup; |
vs_top=sup; |
2773 |
V184= vs_base[0]; |
base[7]= vs_base[0]; |
2774 |
if(V184==Cnil)goto T1051; |
vs_top=(vs_base=base+7)+1; |
2775 |
V154= V184; |
Llast(); |
2776 |
goto T1050; |
vs_top=sup; |
2777 |
goto T1051; |
V190= vs_base[0]; |
2778 |
T1051:;} |
if(!((VV[156])==(car(V190)))){ |
2779 |
goto T1050; |
goto T1092;} |
2780 |
T1050:; |
goto T1093; |
2781 |
goto T1047; |
T1093:; |
2782 |
T1047:; |
V191= coerce_to_string((V176)); |
2783 |
|
if(((*(LnkLI195))((V152),/* INLINE-ARGS */V191))==Cnil){ |
2784 |
|
goto T1103;}{object V192; |
2785 |
|
base[7]= (V176); |
2786 |
|
base[8]= Ct; |
2787 |
|
vs_top=(vs_base=base+7)+2; |
2788 |
|
(void) (*Lnk164)(); |
2789 |
|
vs_top=sup; |
2790 |
|
V192= vs_base[0]; |
2791 |
|
if(V192==Cnil)goto T1107; |
2792 |
|
V154= V192; |
2793 |
|
goto T1106; |
2794 |
|
goto T1107; |
2795 |
|
T1107:;} |
2796 |
|
goto T1106; |
2797 |
|
T1106:; |
2798 |
|
goto T1103; |
2799 |
|
T1103:; |
2800 |
|
goto T1092; |
2801 |
|
T1092:; |
2802 |
|
V177= cdr((V177)); |
2803 |
|
goto T1077; |
2804 |
|
goto T1078; |
2805 |
|
T1078:; |
2806 |
|
goto T1075; |
2807 |
|
goto T1075; |
2808 |
|
T1075:; |
2809 |
|
V185= one_plus((V185)); |
2810 |
|
goto T1071;}} |
2811 |
|
goto T1058; |
2812 |
|
T1058:; |
2813 |
|
V179= cdr((V179)); |
2814 |
|
V180= car((V179)); |
2815 |
|
goto T1051;}} |
2816 |
|
goto T1039; |
2817 |
|
T1039:; |
2818 |
V173= cdr((V173)); |
V173= cdr((V173)); |
2819 |
goto T1032; |
V174= car((V173)); |
2820 |
goto T1033; |
goto T1034;} |
|
T1033:; |
|
|
goto T1030; |
|
|
goto T1030; |
|
|
T1030:; |
|
|
V178= one_plus((V178)); |
|
|
goto T1024;}}} |
|
|
goto T1009; |
|
|
T1009:; |
|
|
V169= cdr((V169)); |
|
|
V170= car((V169)); |
|
|
goto T1004;} |
|
2821 |
goto T947; |
goto T947; |
2822 |
T947:; |
T947:; |
2823 |
if(((V154))==Cnil){ |
if(((V154))==Cnil){ |
2824 |
goto T1067;} |
goto T1128;} |
2825 |
base[2]= Ct; |
base[2]= Ct; |
2826 |
base[3]= VV[156]; |
base[3]= VV[157]; |
2827 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2828 |
Lformat(); |
Lformat(); |
2829 |
vs_top=sup; |
vs_top=sup; |
2830 |
goto T1065; |
goto T1126; |
2831 |
goto T1067; |
goto T1128; |
2832 |
T1067:; |
T1128:; |
2833 |
base[2]= Ct; |
base[2]= Ct; |
2834 |
base[3]= VV[157]; |
base[3]= VV[158]; |
2835 |
base[4]= (V152); |
base[4]= (V152); |
2836 |
base[5]= (V153); |
base[5]= (V153); |
2837 |
if((V153)==Cnil){ |
if((V153)==Cnil){ |
2838 |
base[6]= Cnil; |
base[6]= Cnil; |
2839 |
goto T1075;} |
goto T1136;} |
2840 |
base[8]= V153; |
base[8]= V153; |
2841 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2842 |
Lpackagep(); |
Lpackagep(); |
2843 |
vs_top=sup; |
vs_top=sup; |
2844 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2845 |
goto T1078;} |
goto T1139;} |
2846 |
base[7]= V153; |
base[7]= V153; |
2847 |
goto T1076; |
goto T1137; |
2848 |
goto T1078; |
goto T1139; |
2849 |
T1078:; |
T1139:; |
2850 |
base[8]= coerce_to_string(V153); |
base[8]= coerce_to_string(V153); |
2851 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2852 |
Lfind_package(); |
Lfind_package(); |
2853 |
vs_top=sup; |
vs_top=sup; |
2854 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
2855 |
goto T1076; |
goto T1137; |
2856 |
T1076:; |
T1137:; |
2857 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2858 |
Lpackage_name(); |
Lpackage_name(); |
2859 |
vs_top=sup; |
vs_top=sup; |
2860 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2861 |
goto T1075; |
goto T1136; |
2862 |
T1075:; |
T1136:; |
2863 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
2864 |
Lformat(); |
Lformat(); |
2865 |
vs_top=sup; |
vs_top=sup; |
2866 |
goto T1065; |
goto T1126; |
2867 |
T1065:; |
T1126:; |
2868 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
2869 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
2870 |
return;} |
return;} |
2885 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2886 |
Lsymbol_package(); |
Lsymbol_package(); |
2887 |
vs_top=sup; |
vs_top=sup; |
2888 |
V186= vs_base[0]; |
V194= vs_base[0]; |
2889 |
base[0]= VV[151]; |
base[0]= VV[151]; |
2890 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2891 |
Lfind_package(); |
Lfind_package(); |
2892 |
vs_top=sup; |
vs_top=sup; |
2893 |
V187= vs_base[0]; |
V195= vs_base[0]; |
2894 |
if(!((V186)==(V187))){ |
if(!((V194)==(V195))){ |
2895 |
goto T1083;} |
goto T1144;} |
2896 |
base[0]= VV[152]; |
base[0]= VV[152]; |
2897 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2898 |
Lfind_package(); |
Lfind_package(); |
2899 |
return; |
return; |
2900 |
goto T1083; |
goto T1144; |
2901 |
T1083:; |
T1144:; |
2902 |
base[0]= symbol_value(VV[130]); |
base[0]= symbol_value(VV[130]); |
2903 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2904 |
return; |
return; |
2910 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2911 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
2912 |
vs_reserve(VM23); |
vs_reserve(VM23); |
2913 |
{object V188; |
{object V196; |
2914 |
object V189; |
object V197; |
2915 |
check_arg(2); |
check_arg(2); |
2916 |
V188=(base[0]); |
V196=(base[0]); |
2917 |
V189=(base[1]); |
V197=(base[1]); |
2918 |
vs_top=sup; |
vs_top=sup; |
2919 |
goto TTL; |
goto TTL; |
2920 |
TTL:; |
TTL:; |
2922 |
base[2]= Ct; |
base[2]= Ct; |
2923 |
base[3]= VV[150]; |
base[3]= VV[150]; |
2924 |
base[4]= base0[0]; |
base[4]= base0[0]; |
2925 |
base[5]= (V189); |
base[5]= (V197); |
2926 |
base[6]= (V188); |
base[6]= (V196); |
2927 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
2928 |
Lformat(); |
Lformat(); |
2929 |
return; |
return; |
2930 |
} |
} |
2931 |
} |
} |
2932 |
static object LnkTLI194(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[194],(void **)&LnkLI194,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */ |
static object LnkTLI195(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[195],(void **)&LnkLI195,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */ |
2933 |
static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* PACKAGE-SIZE */ |
static void LnkT194(){ call_or_link(VV[194],(void **)&Lnk194);} /* PACKAGE-SIZE */ |
2934 |
static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* IDESCRIBE */ |
static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* IDESCRIBE */ |
2935 |
static object LnkTLI191(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[191],(void **)&LnkLI191,2,ap);va_end(ap);return V1;} /* DOCUMENTATION */ |
static object LnkTLI192(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[192],(void **)&LnkLI192,2,ap);va_end(ap);return V1;} /* DOCUMENTATION */ |
2936 |
static object LnkTLI190(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[190],(void **)&LnkLI190,1,ap);va_end(ap);return V1;} /* INSPECT-STRUCTURE */ |
static object LnkTLI191(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[191],(void **)&LnkLI191,1,ap);va_end(ap);return V1;} /* INSPECT-STRUCTURE */ |
2937 |
static object LnkTLI189(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[189],(void **)&LnkLI189,1,ap);va_end(ap);return V1;} /* INSPECT-ARRAY */ |
static object LnkTLI190(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[190],(void **)&LnkLI190,1,ap);va_end(ap);return V1;} /* INSPECT-ARRAY */ |
2938 |
static object LnkTLI188(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[188],(void **)&LnkLI188,1,ap);va_end(ap);return V1;} /* INSPECT-VECTOR */ |
static object LnkTLI189(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[189],(void **)&LnkLI189,1,ap);va_end(ap);return V1;} /* INSPECT-VECTOR */ |
2939 |
static object LnkTLI187(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[187],(void **)&LnkLI187,1,ap);va_end(ap);return V1;} /* INSPECT-STRING */ |
static object LnkTLI188(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[188],(void **)&LnkLI188,1,ap);va_end(ap);return V1;} /* INSPECT-STRING */ |
2940 |
static object LnkTLI186(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[186],(void **)&LnkLI186,1,ap);va_end(ap);return V1;} /* INSPECT-CONS */ |
static object LnkTLI187(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[187],(void **)&LnkLI187,1,ap);va_end(ap);return V1;} /* INSPECT-CONS */ |
2941 |
static object LnkTLI185(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[185],(void **)&LnkLI185,1,ap);va_end(ap);return V1;} /* INSPECT-NUMBER */ |
static object LnkTLI186(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[186],(void **)&LnkLI186,1,ap);va_end(ap);return V1;} /* INSPECT-NUMBER */ |
2942 |
static object LnkTLI184(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[184],(void **)&LnkLI184,1,ap);va_end(ap);return V1;} /* INSPECT-CHARACTER */ |
static object LnkTLI185(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[185],(void **)&LnkLI185,1,ap);va_end(ap);return V1;} /* INSPECT-CHARACTER */ |
2943 |
static object LnkTLI183(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[183],(void **)&LnkLI183,1,ap);va_end(ap);return V1;} /* INSPECT-PACKAGE */ |
static object LnkTLI184(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[184],(void **)&LnkLI184,1,ap);va_end(ap);return V1;} /* INSPECT-PACKAGE */ |
2944 |
static object LnkTLI182(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[182],(void **)&LnkLI182,1,ap);va_end(ap);return V1;} /* INSPECT-SYMBOL */ |
static object LnkTLI183(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[183],(void **)&LnkLI183,1,ap);va_end(ap);return V1;} /* INSPECT-SYMBOL */ |
2945 |
static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* STRUCTURE-REF1 */ |
static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* STRUCTURE-REF1 */ |
2946 |
static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* ARRAY-TOTAL-SIZE */ |
static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* ARRAY-TOTAL-SIZE */ |
2947 |
static object LnkTLI179(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[179],(void **)&LnkLI179,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
static object LnkTLI180(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[180],(void **)&LnkLI180,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
2948 |
static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* ARRAY-HAS-FILL-POINTER-P */ |
2949 |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* PACKAGE-SHADOWING-SYMBOLS */ |
static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* PACKAGE-SHADOWING-SYMBOLS */ |
2950 |
static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* PRINT-DOC */ |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* PRINT-DOC */ |
2951 |
static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* READ-INSPECT-COMMAND */ |
static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* READ-INSPECT-COMMAND */ |
2952 |
static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* READ-PRESERVING-WHITESPACE */ |
static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* READ-PRESERVING-WHITESPACE */ |
2953 |
static object LnkTLI161(){return call_proc0(VV[161],(void **)&LnkLI161);} /* INSPECT-READ-LINE */ |
static object LnkTLI162(){return call_proc0(VV[162],(void **)&LnkLI162);} /* INSPECT-READ-LINE */ |
2954 |
static object LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* INSPECT-INDENT */ |
static object LnkTLI161(){return call_proc0(VV[161],(void **)&LnkLI161);} /* INSPECT-INDENT */ |
2955 |
static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* INSPECT-OBJECT */ |
static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* INSPECT-OBJECT */ |
2956 |
static object LnkTLI158(){return call_proc0(VV[158],(void **)&LnkLI158);} /* INSPECT-INDENT-1 */ |
static object LnkTLI159(){return call_proc0(VV[159],(void **)&LnkLI159);} /* INSPECT-INDENT-1 */ |
2957 |
|
|
2958 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2959 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |