34 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
35 |
return;} |
return;} |
36 |
} |
} |
37 |
/* function definition for FIND-ALL-SYMBOLS */ |
/* local entry for function FIND-ALL-SYMBOLS */ |
38 |
|
|
39 |
static void L2() |
static object LI2(V8) |
40 |
{register object *base=vs_base; |
|
41 |
register object *sup=base+VM2; VC2 |
register object V8; |
42 |
vs_reserve(VM2); |
{ VMB2 VMS2 VMV2 |
|
{register object V7; |
|
|
check_arg(1); |
|
|
V7=(base[0]); |
|
|
vs_top=sup; |
|
43 |
goto TTL; |
goto TTL; |
44 |
TTL:; |
TTL:; |
45 |
if(!(type_of((V7))==t_symbol)){ |
if(!(type_of((V8))==t_symbol)){ |
46 |
goto T5;} |
goto T5;} |
47 |
V7= symbol_name((V7)); |
V8= symbol_name((V8)); |
48 |
goto T5; |
goto T5; |
49 |
T5:; |
T5:; |
50 |
vs_base=vs_top; |
vs_base=vs_top; |
51 |
Llist_all_packages(); |
Llist_all_packages(); |
52 |
vs_top=sup; |
vs_top=sup; |
53 |
V10= vs_base[0]; |
V11= vs_base[0]; |
54 |
{object V8; |
{object V9; |
55 |
object V9= V10; |
object V10= V11; |
56 |
if(endp(V9)){ |
if(endp(V10)){ |
57 |
base[2]= Cnil; |
{object V12 = Cnil; |
58 |
vs_top=(vs_base=base+2)+1; |
VMR2(V12)}} |
59 |
return;} |
base[0]=V9=MMcons(Cnil,Cnil); |
|
base[1]=V8=MMcons(Cnil,Cnil); |
|
60 |
goto T9; |
goto T9; |
61 |
T9:; |
T9:; |
62 |
{object V12; |
{object V14; |
63 |
object V13; |
object V15; |
64 |
base[2]= (V7); |
base[1]= (V8); |
65 |
base[3]= (V9->c.c_car); |
base[2]= (V10->c.c_car); |
66 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+1)+2; |
67 |
Lfind_symbol(); |
Lfind_symbol(); |
68 |
if(vs_base>=vs_top){vs_top=sup;goto T15;} |
if(vs_base>=vs_top){vs_top=sup;goto T15;} |
69 |
V12= vs_base[0]; |
V14= vs_base[0]; |
70 |
vs_base++; |
vs_base++; |
71 |
if(vs_base>=vs_top){vs_top=sup;goto T16;} |
if(vs_base>=vs_top){vs_top=sup;goto T16;} |
72 |
V13= vs_base[0]; |
V15= vs_base[0]; |
73 |
vs_top=sup; |
vs_top=sup; |
74 |
goto T17; |
goto T17; |
75 |
goto T15; |
goto T15; |
76 |
T15:; |
T15:; |
77 |
V12= Cnil; |
V14= Cnil; |
78 |
goto T16; |
goto T16; |
79 |
T16:; |
T16:; |
80 |
V13= Cnil; |
V15= Cnil; |
81 |
goto T17; |
goto T17; |
82 |
T17:; |
T17:; |
83 |
if(((V13))==(VV[11])){ |
if(((V15))==(VV[11])){ |
84 |
goto T18;} |
goto T18;} |
85 |
if(!(((V13))==(VV[12]))){ |
if(!(((V15))==(VV[12]))){ |
86 |
goto T19;} |
goto T19;} |
87 |
goto T18; |
goto T18; |
88 |
T18:; |
T18:; |
89 |
(V8->c.c_cdr)= make_cons((V12),Cnil); |
(V9->c.c_cdr)= make_cons((V14),Cnil); |
90 |
goto T11; |
goto T11; |
91 |
goto T19; |
goto T19; |
92 |
T19:; |
T19:; |
93 |
(V8->c.c_cdr)= Cnil;} |
(V9->c.c_cdr)= Cnil;} |
94 |
goto T11; |
goto T11; |
95 |
T11:; |
T11:; |
96 |
{object cdr_V8=MMcdr(V8);while(!endp(cdr_V8)) {cdr_V8=MMcdr(cdr_V8);V8=MMcdr(V8);}} |
{object cdr_V9=MMcdr(V9);while(!endp(cdr_V9)) {cdr_V9=MMcdr(cdr_V9);V9=MMcdr(V9);}} |
97 |
V9=MMcdr(V9); |
V10=MMcdr(V10); |
98 |
if(endp(V9)){ |
if(endp(V10)){ |
99 |
base[1]=base[1]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
100 |
vs_top=(vs_base=base+1)+1; |
{object V16 = base[0]; |
101 |
return;} |
VMR2(V16)}} |
102 |
goto T9;} |
goto T9;} |
103 |
} |
base[0]=base[0]; |
104 |
|
return Cnil; |
105 |
} |
} |
106 |
/* macro definition for DO-SYMBOLS */ |
/* macro definition for DO-SYMBOLS */ |
107 |
|
|
111 |
vs_reserve(VM3); |
vs_reserve(VM3); |
112 |
check_arg(2); |
check_arg(2); |
113 |
vs_top=sup; |
vs_top=sup; |
114 |
{object V14=base[0]->c.c_cdr; |
{object V17=base[0]->c.c_cdr; |
115 |
if(endp(V14))invalid_macro_call(); |
if(endp(V17))invalid_macro_call(); |
116 |
{object V15= (V14->c.c_car); |
{object V18= (V17->c.c_car); |
117 |
if(endp(V15))invalid_macro_call(); |
if(endp(V18))invalid_macro_call(); |
118 |
base[2]= (V15->c.c_car); |
base[2]= (V18->c.c_car); |
119 |
V15=V15->c.c_cdr; |
V18=V18->c.c_cdr; |
120 |
if(endp(V15)){ |
if(endp(V18)){ |
121 |
base[3]= VV[0]; |
base[3]= VV[0]; |
122 |
} else { |
} else { |
123 |
base[3]= (V15->c.c_car); |
base[3]= (V18->c.c_car); |
124 |
V15=V15->c.c_cdr;} |
V18=V18->c.c_cdr;} |
125 |
if(endp(V15)){ |
if(endp(V18)){ |
126 |
base[4]= Cnil; |
base[4]= Cnil; |
127 |
} else { |
} else { |
128 |
base[4]= (V15->c.c_car); |
base[4]= (V18->c.c_car); |
129 |
V15=V15->c.c_cdr;} |
V18=V18->c.c_cdr;} |
130 |
if(!endp(V15))invalid_macro_call();} |
if(!endp(V18))invalid_macro_call();} |
131 |
V14=V14->c.c_cdr; |
V17=V17->c.c_cdr; |
132 |
base[5]= V14;} |
base[5]= V17;} |
133 |
{register object V16; |
{register object V19; |
134 |
register object V17; |
register object V20; |
|
register object V18; |
|
|
register object V19; |
|
|
object V20; |
|
135 |
register object V21; |
register object V21; |
136 |
object V22; |
register object V22; |
137 |
object V23; |
object V23; |
138 |
object V24; |
register object V24; |
139 |
|
object V25; |
140 |
|
object V26; |
141 |
|
object V27; |
142 |
vs_base=vs_top; |
vs_base=vs_top; |
143 |
Lgensym(); |
Lgensym(); |
144 |
vs_top=sup; |
vs_top=sup; |
145 |
V16= vs_base[0]; |
V19= vs_base[0]; |
146 |
vs_base=vs_top; |
vs_base=vs_top; |
147 |
Lgensym(); |
Lgensym(); |
148 |
vs_top=sup; |
vs_top=sup; |
149 |
V17= vs_base[0]; |
V20= vs_base[0]; |
150 |
vs_base=vs_top; |
vs_base=vs_top; |
151 |
Lgensym(); |
Lgensym(); |
152 |
vs_top=sup; |
vs_top=sup; |
153 |
V18= vs_base[0]; |
V21= vs_base[0]; |
154 |
vs_base=vs_top; |
vs_base=vs_top; |
155 |
Lgensym(); |
Lgensym(); |
156 |
vs_top=sup; |
vs_top=sup; |
157 |
V19= vs_base[0]; |
V22= vs_base[0]; |
158 |
vs_base=vs_top; |
vs_base=vs_top; |
159 |
Lgensym(); |
Lgensym(); |
160 |
vs_top=sup; |
vs_top=sup; |
161 |
V20= vs_base[0]; |
V23= vs_base[0]; |
162 |
vs_base=vs_top; |
vs_base=vs_top; |
163 |
Lgensym(); |
Lgensym(); |
164 |
vs_top=sup; |
vs_top=sup; |
165 |
V21= vs_base[0]; |
V24= vs_base[0]; |
166 |
vs_base=vs_top; |
vs_base=vs_top; |
167 |
Lgensym(); |
Lgensym(); |
168 |
vs_top=sup; |
vs_top=sup; |
169 |
V22= vs_base[0]; |
V25= vs_base[0]; |
170 |
vs_base=vs_top; |
vs_base=vs_top; |
171 |
Lgensym(); |
Lgensym(); |
172 |
vs_top=sup; |
vs_top=sup; |
173 |
V23= vs_base[0]; |
V26= vs_base[0]; |
174 |
V24= Cnil; |
V27= Cnil; |
175 |
base[6]= base[5]; |
base[6]= base[5]; |
176 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
177 |
(void) (*Lnk65)(); |
(void) (*Lnk65)(); |
178 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
179 |
V24= vs_base[0]; |
V27= vs_base[0]; |
180 |
vs_base++; |
vs_base++; |
181 |
}else{ |
}else{ |
182 |
V24= Cnil;} |
V27= Cnil;} |
183 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
184 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
185 |
}else{ |
}else{ |
186 |
base[5]= Cnil;} |
base[5]= Cnil;} |
187 |
vs_top=sup; |
vs_top=sup; |
188 |
V25= list(3,list(2,(V16),list(2,VV[13],base[3])),base[2],(V18)); |
V28= list(3,list(2,(V19),list(2,VV[13],base[3])),base[2],(V21)); |
189 |
V26= list(3,VV[15],(V16),list(2,VV[16],(V16))); |
V29= list(3,VV[15],(V19),list(2,VV[16],(V19))); |
190 |
V27= list(3,(V19),/* INLINE-ARGS */V26,list(3,VV[17],list(3,VV[5],base[2],Cnil),base[4])); |
V30= list(3,(V22),/* INLINE-ARGS */V29,list(3,VV[17],list(3,VV[5],base[2],Cnil),base[4])); |
191 |
V28= list(2,(V22),(V21)); |
V31= list(2,(V25),(V24)); |
192 |
V29= list(2,VV[19],(V19)); |
V32= list(2,VV[19],(V22)); |
193 |
V30= list(2,VV[20],list(3,VV[21],(V21),(V22))); |
V33= list(2,VV[20],list(3,VV[21],(V24),(V25))); |
194 |
V31= list(2,VV[23],list(3,VV[24],(V16),(V19))); |
V34= list(2,VV[23],list(3,VV[24],(V19),(V22))); |
195 |
V32= list(3,VV[22],/* INLINE-ARGS */V31,list(3,VV[5],(V21),small_fixnum(0))); |
V35= list(3,VV[22],/* INLINE-ARGS */V34,list(3,VV[5],(V24),small_fixnum(0))); |
196 |
V33= list(2,(V17),list(3,VV[26],(V21),(V22))); |
V36= list(2,(V20),list(3,VV[26],(V24),(V25))); |
197 |
V34= list(3,VV[27],(V17),(V21)); |
V37= list(3,VV[27],(V20),(V24)); |
198 |
V35= list(3,VV[28],(V19),(V17)); |
V38= list(3,VV[28],(V22),(V20)); |
199 |
V36= list(3,VV[5],(V18),list(4,VV[22],/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,list(3,VV[29],(V19),list(3,VV[30],(V17),(V21))))); |
V39= list(3,VV[5],(V21),list(4,VV[22],/* INLINE-ARGS */V37,/* INLINE-ARGS */V38,list(3,VV[29],(V22),list(3,VV[30],(V20),(V24))))); |
200 |
V37= list(2,VV[32],(V18)); |
V40= list(2,VV[32],(V21)); |
201 |
V38= list(3,VV[31],/* INLINE-ARGS */V37,list(2,VV[33],(V23))); |
V41= list(3,VV[31],/* INLINE-ARGS */V40,list(2,VV[33],(V26))); |
202 |
V39= list(3,VV[5],base[2],list(2,VV[34],(V18))); |
V42= list(3,VV[5],base[2],list(2,VV[34],(V21))); |
203 |
V40= list(3,VV[24],(V19),(V16)); |
V43= list(3,VV[24],(V22),(V19)); |
204 |
V41= list(3,VV[3],/* INLINE-ARGS */V40,list(3,VV[24],VV[35],list(2,VV[34],list(2,VV[36],list(2,VV[37],list(3,VV[38],list(2,VV[39],base[2]),(V16))))))); |
V44= list(3,VV[3],/* INLINE-ARGS */V43,list(3,VV[24],VV[35],list(2,VV[34],list(2,VV[36],list(2,VV[37],list(3,VV[38],list(2,VV[39],base[2]),(V19))))))); |
205 |
V42= list(3,VV[22],/* INLINE-ARGS */V41,make_cons(VV[40],base[5])); |
V45= list(3,VV[22],/* INLINE-ARGS */V44,make_cons(VV[40],base[5])); |
206 |
V43= list(3,VV[5],(V18),list(2,VV[41],(V18))); |
V46= list(3,VV[5],(V21),list(2,VV[41],(V21))); |
207 |
V44= list(3,VV[14],/* INLINE-ARGS */V27,list(6,VV[18],/* INLINE-ARGS */V28,/* INLINE-ARGS */V29,/* INLINE-ARGS */V30,/* INLINE-ARGS */V32,list(10,VV[25],/* INLINE-ARGS */V33,/* INLINE-ARGS */V36,(V20),/* INLINE-ARGS */V38,/* INLINE-ARGS */V39,/* INLINE-ARGS */V42,/* INLINE-ARGS */V43,list(2,VV[33],(V20)),(V23)))); |
V47= list(3,VV[14],/* INLINE-ARGS */V30,list(6,VV[18],/* INLINE-ARGS */V31,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,/* INLINE-ARGS */V35,list(10,VV[25],/* INLINE-ARGS */V36,/* INLINE-ARGS */V39,(V23),/* INLINE-ARGS */V41,/* INLINE-ARGS */V42,/* INLINE-ARGS */V45,/* INLINE-ARGS */V46,list(2,VV[33],(V23)),(V26)))); |
208 |
V45= make_cons(/* INLINE-ARGS */V44,Cnil); |
V48= make_cons(/* INLINE-ARGS */V47,Cnil); |
209 |
base[6]= listA(3,VV[1],/* INLINE-ARGS */V25,append((V24),/* INLINE-ARGS */V45)); |
base[6]= listA(3,VV[1],/* INLINE-ARGS */V28,append((V27),/* INLINE-ARGS */V48)); |
210 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
211 |
return;} |
return;} |
212 |
} |
} |
218 |
vs_reserve(VM4); |
vs_reserve(VM4); |
219 |
check_arg(2); |
check_arg(2); |
220 |
vs_top=sup; |
vs_top=sup; |
221 |
{object V46=base[0]->c.c_cdr; |
{object V49=base[0]->c.c_cdr; |
222 |
if(endp(V46))invalid_macro_call(); |
if(endp(V49))invalid_macro_call(); |
223 |
{object V47= (V46->c.c_car); |
{object V50= (V49->c.c_car); |
224 |
if(endp(V47))invalid_macro_call(); |
if(endp(V50))invalid_macro_call(); |
225 |
base[2]= (V47->c.c_car); |
base[2]= (V50->c.c_car); |
226 |
V47=V47->c.c_cdr; |
V50=V50->c.c_cdr; |
227 |
if(endp(V47)){ |
if(endp(V50)){ |
228 |
base[3]= VV[0]; |
base[3]= VV[0]; |
229 |
} else { |
} else { |
230 |
base[3]= (V47->c.c_car); |
base[3]= (V50->c.c_car); |
231 |
V47=V47->c.c_cdr;} |
V50=V50->c.c_cdr;} |
232 |
if(endp(V47)){ |
if(endp(V50)){ |
233 |
base[4]= Cnil; |
base[4]= Cnil; |
234 |
} else { |
} else { |
235 |
base[4]= (V47->c.c_car); |
base[4]= (V50->c.c_car); |
236 |
V47=V47->c.c_cdr;} |
V50=V50->c.c_cdr;} |
237 |
if(!endp(V47))invalid_macro_call();} |
if(!endp(V50))invalid_macro_call();} |
238 |
V46=V46->c.c_cdr; |
V49=V49->c.c_cdr; |
239 |
base[5]= V46;} |
base[5]= V49;} |
240 |
{object V48; |
{object V51; |
|
object V49; |
|
|
register object V50; |
|
|
object V51; |
|
241 |
object V52; |
object V52; |
242 |
object V53; |
register object V53; |
243 |
|
object V54; |
244 |
|
object V55; |
245 |
|
object V56; |
246 |
vs_base=vs_top; |
vs_base=vs_top; |
247 |
Lgensym(); |
Lgensym(); |
248 |
vs_top=sup; |
vs_top=sup; |
249 |
V48= vs_base[0]; |
V51= vs_base[0]; |
250 |
vs_base=vs_top; |
vs_base=vs_top; |
251 |
Lgensym(); |
Lgensym(); |
252 |
vs_top=sup; |
vs_top=sup; |
253 |
V49= vs_base[0]; |
V52= vs_base[0]; |
254 |
vs_base=vs_top; |
vs_base=vs_top; |
255 |
Lgensym(); |
Lgensym(); |
256 |
vs_top=sup; |
vs_top=sup; |
257 |
V50= vs_base[0]; |
V53= vs_base[0]; |
258 |
vs_base=vs_top; |
vs_base=vs_top; |
259 |
Lgensym(); |
Lgensym(); |
260 |
vs_top=sup; |
vs_top=sup; |
261 |
V51= vs_base[0]; |
V54= vs_base[0]; |
262 |
vs_base=vs_top; |
vs_base=vs_top; |
263 |
Lgensym(); |
Lgensym(); |
264 |
vs_top=sup; |
vs_top=sup; |
265 |
V52= vs_base[0]; |
V55= vs_base[0]; |
266 |
V53= Cnil; |
V56= Cnil; |
267 |
base[6]= base[5]; |
base[6]= base[5]; |
268 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
269 |
(void) (*Lnk65)(); |
(void) (*Lnk65)(); |
270 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
271 |
V53= vs_base[0]; |
V56= vs_base[0]; |
272 |
vs_base++; |
vs_base++; |
273 |
}else{ |
}else{ |
274 |
V53= Cnil;} |
V56= Cnil;} |
275 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
276 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
277 |
}else{ |
}else{ |
278 |
base[5]= Cnil;} |
base[5]= Cnil;} |
279 |
vs_top=sup; |
vs_top=sup; |
280 |
V54= list(3,list(2,(V48),list(2,VV[13],base[3])),base[2],(V50)); |
V57= list(3,list(2,(V51),list(2,VV[13],base[3])),base[2],(V53)); |
281 |
V55= list(2,VV[19],(V48)); |
V58= list(2,VV[19],(V51)); |
282 |
V56= list(3,(V49),/* INLINE-ARGS */V55,list(3,VV[17],list(3,VV[5],base[2],Cnil),base[4])); |
V59= list(3,(V52),/* INLINE-ARGS */V58,list(3,VV[17],list(3,VV[5],base[2],Cnil),base[4])); |
283 |
V57= list(3,VV[5],(V50),list(3,VV[29],(V48),(V49))); |
V60= list(3,VV[5],(V53),list(3,VV[29],(V51),(V52))); |
284 |
V58= list(2,VV[32],(V50)); |
V61= list(2,VV[32],(V53)); |
285 |
V59= list(3,VV[31],/* INLINE-ARGS */V58,list(2,VV[33],(V52))); |
V62= list(3,VV[31],/* INLINE-ARGS */V61,list(2,VV[33],(V55))); |
286 |
V60= list(3,VV[5],base[2],list(2,VV[34],(V50))); |
V63= list(3,VV[5],base[2],list(2,VV[34],(V53))); |
287 |
V61= list(3,VV[5],(V50),list(2,VV[41],(V50))); |
V64= list(3,VV[5],(V53),list(2,VV[41],(V53))); |
288 |
V62= list(3,/* INLINE-ARGS */V61,list(2,VV[33],(V51)),(V52)); |
V65= list(3,/* INLINE-ARGS */V64,list(2,VV[33],(V54)),(V55)); |
289 |
V63= listA(7,VV[25],/* INLINE-ARGS */V56,/* INLINE-ARGS */V57,(V51),/* INLINE-ARGS */V59,/* INLINE-ARGS */V60,append(base[5],/* INLINE-ARGS */V62)); |
V66= listA(7,VV[25],/* INLINE-ARGS */V59,/* INLINE-ARGS */V60,(V54),/* INLINE-ARGS */V62,/* INLINE-ARGS */V63,append(base[5],/* INLINE-ARGS */V65)); |
290 |
V64= make_cons(/* INLINE-ARGS */V63,Cnil); |
V67= make_cons(/* INLINE-ARGS */V66,Cnil); |
291 |
base[6]= listA(3,VV[1],/* INLINE-ARGS */V54,append((V53),/* INLINE-ARGS */V64)); |
base[6]= listA(3,VV[1],/* INLINE-ARGS */V57,append((V56),/* INLINE-ARGS */V67)); |
292 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
293 |
return;} |
return;} |
294 |
} |
} |
300 |
vs_reserve(VM5); |
vs_reserve(VM5); |
301 |
check_arg(2); |
check_arg(2); |
302 |
vs_top=sup; |
vs_top=sup; |
303 |
{object V65=base[0]->c.c_cdr; |
{object V68=base[0]->c.c_cdr; |
304 |
if(endp(V65))invalid_macro_call(); |
if(endp(V68))invalid_macro_call(); |
305 |
{object V66= (V65->c.c_car); |
{object V69= (V68->c.c_car); |
306 |
if(endp(V66))invalid_macro_call(); |
if(endp(V69))invalid_macro_call(); |
307 |
base[2]= (V66->c.c_car); |
base[2]= (V69->c.c_car); |
308 |
V66=V66->c.c_cdr; |
V69=V69->c.c_cdr; |
309 |
if(endp(V66)){ |
if(endp(V69)){ |
310 |
base[3]= Cnil; |
base[3]= Cnil; |
311 |
} else { |
} else { |
312 |
base[3]= (V66->c.c_car); |
base[3]= (V69->c.c_car); |
313 |
V66=V66->c.c_cdr;} |
V69=V69->c.c_cdr;} |
314 |
if(!endp(V66))invalid_macro_call();} |
if(!endp(V69))invalid_macro_call();} |
315 |
V65=V65->c.c_cdr; |
V68=V68->c.c_cdr; |
316 |
base[4]= V65;} |
base[4]= V68;} |
317 |
V67= list(3,VV[42],VV[43],base[3]); |
V70= list(3,VV[42],VV[43],base[3]); |
318 |
V68= list(2,base[2],VV[42]); |
V71= list(2,base[2],VV[42]); |
319 |
base[5]= list(3,VV[14],/* INLINE-ARGS */V67,list(3,VV[44],/* INLINE-ARGS */V68,make_cons(VV[40],base[4]))); |
base[5]= list(3,VV[14],/* INLINE-ARGS */V70,list(3,VV[44],/* INLINE-ARGS */V71,make_cons(VV[40],base[4]))); |
320 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
321 |
return; |
return; |
322 |
} |
} |
323 |
/* function definition for SUBSTRINGP */ |
/* local entry for function SUBSTRINGP */ |
324 |
|
|
325 |
static void L6() |
static object LI6(V74,V75) |
326 |
{register object *base=vs_base; |
|
327 |
register object *sup=base+VM6; VC6 |
register object V74;register object V75; |
328 |
vs_reserve(VM6); |
{ VMB6 VMS6 VMV6 |
|
{register object V69; |
|
|
register object V70; |
|
|
check_arg(2); |
|
|
V69=(base[0]); |
|
|
V70=(base[1]); |
|
|
vs_top=sup; |
|
329 |
goto TTL; |
goto TTL; |
330 |
TTL:; |
TTL:; |
331 |
{register object V71; |
{register object V76; |
332 |
register object V72; |
register object V77; |
333 |
register object V73; |
register object V78; |
334 |
V74 = make_fixnum((long)length((V70))); |
V79 = make_fixnum((long)length((V75))); |
335 |
V75 = make_fixnum((long)length((V69))); |
V80 = make_fixnum((long)length((V74))); |
336 |
V71= number_minus(V74,V75); |
V76= number_minus(V79,V80); |
337 |
V72= make_fixnum((long)length((V69))); |
V77= make_fixnum((long)length((V74))); |
338 |
V73= small_fixnum(0); |
V78= small_fixnum(0); |
339 |
goto T50; |
goto T50; |
340 |
T50:; |
T50:; |
341 |
if(!(number_compare((V73),(V71))>0)){ |
if(!(number_compare((V78),(V76))>0)){ |
342 |
goto T51;} |
goto T51;} |
343 |
base[2]= Cnil; |
{object V81 = Cnil; |
344 |
vs_top=(vs_base=base+2)+1; |
VMR6(V81)} |
|
return; |
|
345 |
goto T51; |
goto T51; |
346 |
T51:; |
T51:; |
347 |
base[2]= (V69); |
base[0]= (V74); |
348 |
base[3]= (V70); |
base[1]= (V75); |
349 |
base[4]= VV[45]; |
base[2]= VV[45]; |
350 |
base[5]= (V73); |
base[3]= (V78); |
351 |
base[6]= VV[46]; |
base[4]= VV[46]; |
352 |
base[7]= number_plus((V73),(V72)); |
base[5]= number_plus((V78),(V77)); |
353 |
vs_top=(vs_base=base+2)+6; |
vs_top=(vs_base=base+0)+6; |
354 |
Lstring_equal(); |
Lstring_equal(); |
355 |
vs_top=sup; |
vs_top=sup; |
356 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
357 |
goto T55;} |
goto T55;} |
358 |
base[2]= Ct; |
{object V82 = Ct; |
359 |
vs_top=(vs_base=base+2)+1; |
VMR6(V82)} |
|
return; |
|
360 |
goto T55; |
goto T55; |
361 |
T55:; |
T55:; |
362 |
V73= one_plus((V73)); |
V78= one_plus((V78)); |
363 |
goto T50;} |
goto T50;} |
364 |
} |
base[0]=base[0]; |
365 |
|
return Cnil; |
366 |
} |
} |
367 |
/* function definition for PRINT-SYMBOL-APROPOS */ |
/* local entry for function PRINT-SYMBOL-APROPOS */ |
368 |
|
|
369 |
static void L7() |
static object LI7(V84) |
370 |
{register object *base=vs_base; |
|
371 |
register object *sup=base+VM7; VC7 |
register object V84; |
372 |
vs_reserve(VM7); |
{ VMB7 VMS7 VMV7 |
|
{register object V76; |
|
|
check_arg(1); |
|
|
V76=(base[0]); |
|
|
vs_top=sup; |
|
373 |
goto TTL; |
goto TTL; |
374 |
TTL:; |
TTL:; |
375 |
(void)(prin1((V76),Cnil)); |
(void)(prin1((V84),Cnil)); |
376 |
base[1]= (V76); |
base[0]= (V84); |
377 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
378 |
Lfboundp(); |
Lfboundp(); |
379 |
vs_top=sup; |
vs_top=sup; |
380 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
381 |
goto T68;} |
goto T68;} |
382 |
base[1]= (V76); |
base[0]= (V84); |
383 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
384 |
Lspecial_form_p(); |
Lspecial_form_p(); |
385 |
vs_top=sup; |
vs_top=sup; |
386 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
389 |
goto T68; |
goto T68; |
390 |
goto T73; |
goto T73; |
391 |
T73:; |
T73:; |
392 |
base[1]= (V76); |
base[0]= (V84); |
393 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
394 |
Lmacro_function(); |
Lmacro_function(); |
395 |
vs_top=sup; |
vs_top=sup; |
396 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
402 |
princ_str(" Function",Cnil); |
princ_str(" Function",Cnil); |
403 |
goto T68; |
goto T68; |
404 |
T68:; |
T68:; |
405 |
base[1]= (V76); |
base[0]= (V84); |
406 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
407 |
Lboundp(); |
Lboundp(); |
408 |
vs_top=sup; |
vs_top=sup; |
409 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
410 |
goto T80;} |
goto T80;} |
411 |
base[1]= (V76); |
base[0]= (V84); |
412 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
413 |
Lconstantp(); |
Lconstantp(); |
414 |
vs_top=sup; |
vs_top=sup; |
415 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
421 |
princ_str(" has value: ",Cnil); |
princ_str(" has value: ",Cnil); |
422 |
goto T84; |
goto T84; |
423 |
T84:; |
T84:; |
424 |
base[1]= (V76); |
base[0]= (V84); |
425 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
426 |
Lsymbol_value(); |
Lsymbol_value(); |
427 |
vs_top=sup; |
vs_top=sup; |
428 |
V77= vs_base[0]; |
V85= vs_base[0]; |
429 |
(void)(prin1(V77,Cnil)); |
(void)(prin1(V85,Cnil)); |
430 |
goto T80; |
goto T80; |
431 |
T80:; |
T80:; |
432 |
base[1]= terpri(Cnil); |
{object V86 = terpri(Cnil); |
433 |
vs_top=(vs_base=base+1)+1; |
VMR7(V86)} |
434 |
return; |
base[0]=base[0]; |
435 |
} |
return Cnil; |
436 |
} |
} |
437 |
/* function definition for APROPOS-LIST */ |
/* local entry for function APROPOS-LIST */ |
438 |
|
|
439 |
static void L8() |
static object LI8(object V87,object first,...) |
440 |
{register object *base=vs_base; |
{ |
441 |
register object *sup=base+VM8; VC8 |
va_list ap; |
442 |
vs_reserve(VM8); |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
443 |
{object V78; |
{object V88; |
444 |
object V79; |
object V89; |
445 |
if(vs_top-vs_base<1) too_few_arguments(); |
va_start(ap,first); |
446 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(narg <1) too_few_arguments(); |
447 |
V78=(base[0]); |
V88= V87; |
448 |
vs_base=vs_base+1; |
narg = narg - 1; |
449 |
if(vs_base>=vs_top){vs_top=sup;goto T91;} |
if (narg <= 0) goto T91; |
450 |
V79=(base[1]); |
else { |
451 |
vs_top=sup; |
V89= first;} |
452 |
goto T92; |
--narg; goto T92; |
453 |
goto T91; |
goto T91; |
454 |
T91:; |
T91:; |
455 |
V79= Cnil; |
V89= Cnil; |
456 |
goto T92; |
goto T92; |
457 |
T92:; |
T92:; |
458 |
{register object V80; |
{register object V90; |
459 |
V80= Cnil; |
V90= Cnil; |
460 |
V80= Cnil; |
V90= Cnil; |
461 |
V78= coerce_to_string((V78)); |
V88= coerce_to_string((V88)); |
462 |
if(((V79))==Cnil){ |
if(((V89))==Cnil){ |
463 |
goto T101;} |
goto T101;} |
464 |
{object V81; |
{object V91; |
465 |
object V82; |
object V92; |
466 |
object V83; |
object V93; |
467 |
{object V84; |
{object V94; |
468 |
V84= (V79); |
V94= (V89); |
469 |
base[2]= (V84); |
base[0]= (V94); |
470 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
471 |
Lpackagep(); |
Lpackagep(); |
472 |
vs_top=sup; |
vs_top=sup; |
473 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
474 |
goto T105;} |
goto T105;} |
475 |
base[2]= coerce_to_string((V84)); |
base[0]= coerce_to_string((V94)); |
476 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
477 |
Lfind_package(); |
Lfind_package(); |
478 |
vs_top=sup; |
vs_top=sup; |
479 |
V84= vs_base[0]; |
V94= vs_base[0]; |
480 |
if(((V84))!=Cnil){ |
if(((V94))!=Cnil){ |
481 |
goto T105;} |
goto T105;} |
482 |
base[2]= VV[9]; |
base[0]= VV[9]; |
483 |
base[3]= VV[10]; |
base[1]= VV[10]; |
484 |
base[4]= (V79); |
base[2]= (V89); |
485 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+0)+3; |
486 |
(void) (*Lnk8)(); |
(void) (*Lnk8)(); |
487 |
vs_top=sup; |
vs_top=sup; |
488 |
goto T105; |
goto T105; |
489 |
T105:; |
T105:; |
490 |
V81= (V84);} |
V91= (V94);} |
491 |
V82= Cnil; |
V92= Cnil; |
492 |
V83= Cnil; |
V93= Cnil; |
493 |
{object V85; |
{object V95; |
494 |
object V86; |
object V96; |
495 |
base[4]= (V81); |
base[2]= (V91); |
496 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+2)+1; |
497 |
Lpackage_use_list(); |
Lpackage_use_list(); |
498 |
vs_top=sup; |
vs_top=sup; |
499 |
V87= vs_base[0]; |
V97= vs_base[0]; |
500 |
V85= make_cons((V81),V87); |
V95= make_cons((V91),V97); |
501 |
V86= car((V85)); |
V96= car((V95)); |
502 |
goto T121; |
goto T121; |
503 |
T121:; |
T121:; |
504 |
if(!(endp_prop((V85)))){ |
if(!(endp_prop((V95)))){ |
505 |
goto T122;} |
goto T122;} |
506 |
V82= Cnil; |
V92= Cnil; |
507 |
goto T103; |
goto T103; |
508 |
goto T122; |
goto T122; |
509 |
T122:; |
T122:; |
510 |
{long V88; |
{long V98; |
511 |
long V89; |
long V99; |
512 |
base[4]= (V86); |
base[2]= (V96); |
513 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+2)+1; |
514 |
(void) (*Lnk19)(); |
(void) (*Lnk19)(); |
515 |
if(vs_base>=vs_top){vs_top=sup;goto T131;} |
if(vs_base>=vs_top){vs_top=sup;goto T131;} |
516 |
V88= fix(vs_base[0]); |
V98= fix(vs_base[0]); |
517 |
vs_base++; |
vs_base++; |
518 |
if(vs_base>=vs_top){vs_top=sup;goto T132;} |
if(vs_base>=vs_top){vs_top=sup;goto T132;} |
519 |
V89= fix(vs_base[0]); |
V99= fix(vs_base[0]); |
520 |
vs_top=sup; |
vs_top=sup; |
521 |
goto T133; |
goto T133; |
522 |
goto T131; |
goto T131; |
523 |
T131:; |
T131:; |
524 |
V88= fix(Cnil); |
V98= fix(Cnil); |
525 |
goto T132; |
goto T132; |
526 |
T132:; |
T132:; |
527 |
V89= fix(Cnil); |
V99= fix(Cnil); |
528 |
goto T133; |
goto T133; |
529 |
T133:; |
T133:; |
530 |
if(((V81))==((V86))){ |
if(((V91))==((V96))){ |
531 |
goto T134;} |
goto T134;} |
532 |
V89= 0; |
V99= 0; |
533 |
goto T134; |
goto T134; |
534 |
T134:; |
T134:; |
535 |
{object V90; |
{object V100; |
536 |
object V91; |
object V101; |
537 |
V92 = make_fixnum(V89); |
V102 = make_fixnum(V99); |
538 |
V93 = make_fixnum(V88); |
V103 = make_fixnum(V98); |
539 |
V90= number_plus(V92,V93); |
V100= number_plus(V102,V103); |
540 |
V91= small_fixnum(0); |
V101= small_fixnum(0); |
541 |
goto T141; |
goto T141; |
542 |
T141:; |
T141:; |
543 |
if(!(number_compare((V91),(V90))>=0)){ |
if(!(number_compare((V101),(V100))>=0)){ |
544 |
goto T142;} |
goto T142;} |
545 |
goto T128; |
goto T128; |
546 |
goto T142; |
goto T142; |
547 |
T142:; |
T142:; |
548 |
V94 = make_fixnum(V89); |
V104 = make_fixnum(V99); |
549 |
if(!(number_compare((V91),V94)<0)){ |
if(!(number_compare((V101),V104)<0)){ |
550 |
goto T151;} |
goto T151;} |
551 |
base[5]= (V86); |
base[3]= (V96); |
552 |
base[6]= (V91); |
base[4]= (V101); |
553 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+3)+2; |
554 |
siLpackage_internal(); |
siLpackage_internal(); |
555 |
vs_top=sup; |
vs_top=sup; |
556 |
V83= vs_base[0]; |
V93= vs_base[0]; |
557 |
goto T149; |
goto T149; |
558 |
goto T151; |
goto T151; |
559 |
T151:; |
T151:; |
560 |
base[5]= (V86); |
base[3]= (V96); |
561 |
V95 = make_fixnum(V89); |
V105 = make_fixnum(V99); |
562 |
base[6]= number_minus((V91),V95); |
base[4]= number_minus((V101),V105); |
563 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+3)+2; |
564 |
siLpackage_external(); |
siLpackage_external(); |
565 |
vs_top=sup; |
vs_top=sup; |
566 |
V83= vs_base[0]; |
V93= vs_base[0]; |
567 |
goto T149; |
goto T149; |
568 |
T149:; |
T149:; |
569 |
goto T147; |
goto T147; |
570 |
T147:; |
T147:; |
571 |
if(((V83))!=Cnil){ |
if(((V93))!=Cnil){ |
572 |
goto T157;} |
goto T157;} |
573 |
goto T148; |
goto T148; |
574 |
goto T157; |
goto T157; |
575 |
T157:; |
T157:; |
576 |
V82= car((V83)); |
V92= car((V93)); |
577 |
if(((V86))==((V81))){ |
if(((V96))==((V91))){ |
578 |
goto T163;} |
goto T163;} |
579 |
base[6]= symbol_name((V82)); |
base[4]= symbol_name((V92)); |
580 |
base[7]= (V81); |
base[5]= (V91); |
581 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+4)+2; |
582 |
Lfind_symbol(); |
Lfind_symbol(); |
583 |
Llist(); |
Llist(); |
584 |
vs_top=sup; |
vs_top=sup; |
585 |
base[5]= vs_base[0]; |
base[3]= vs_base[0]; |
586 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+3)+1; |
587 |
Llast(); |
Llast(); |
588 |
vs_top=sup; |
vs_top=sup; |
589 |
V96= vs_base[0]; |
V106= vs_base[0]; |
590 |
if(!((VV[35])==(car(V96)))){ |
if(!((VV[35])==(car(V106)))){ |
591 |
goto T162;} |
goto T162;} |
592 |
goto T163; |
goto T163; |
593 |
T163:; |
T163:; |
594 |
base[5]= (V78); |
V107= coerce_to_string((V92)); |
595 |
base[6]= coerce_to_string((V82)); |
if(((*(LnkLI66))((V88),/* INLINE-ARGS */V107))==Cnil){ |
|
vs_top=(vs_base=base+5)+2; |
|
|
(void) (*Lnk66)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
596 |
goto T172;} |
goto T172;} |
597 |
V80= make_cons((V82),(V80)); |
V90= make_cons((V92),(V90)); |
598 |
goto T172; |
goto T172; |
599 |
T172:; |
T172:; |
600 |
goto T162; |
goto T162; |
601 |
T162:; |
T162:; |
602 |
V83= cdr((V83)); |
V93= cdr((V93)); |
603 |
goto T147; |
goto T147; |
604 |
goto T148; |
goto T148; |
605 |
T148:; |
T148:; |
606 |
goto T145; |
goto T145; |
607 |
goto T145; |
goto T145; |
608 |
T145:; |
T145:; |
609 |
V91= one_plus((V91)); |
V101= one_plus((V101)); |
610 |
goto T141;}} |
goto T141;}} |
611 |
goto T128; |
goto T128; |
612 |
T128:; |
T128:; |
613 |
V85= cdr((V85)); |
V95= cdr((V95)); |
614 |
V86= car((V85)); |
V96= car((V95)); |
615 |
goto T121;}} |
goto T121;}} |
616 |
goto T103; |
goto T103; |
617 |
T103:; |
T103:; |
618 |
{object V97; |
{object V108; |
619 |
base[2]= (V79); |
base[0]= (V89); |
620 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
621 |
Lpackage_use_list(); |
Lpackage_use_list(); |
622 |
vs_top=sup; |
vs_top=sup; |
623 |
V97= vs_base[0]; |
V108= vs_base[0]; |
624 |
goto T191; |
goto T189; |
625 |
T191:; |
T189:; |
626 |
if(((V97))!=Cnil){ |
if(((V108))!=Cnil){ |
627 |
goto T192;} |
goto T190;} |
628 |
goto T99; |
goto T99; |
629 |
goto T192; |
goto T190; |
630 |
T192:; |
T190:; |
631 |
{object V98; |
{object V109; |
632 |
object V99; |
object V110; |
633 |
register object V100; |
register object V111; |
634 |
{object V101; |
{object V112; |
635 |
V101= car((V97)); |
V112= car((V108)); |
636 |
base[2]= (V101); |
base[0]= (V112); |
637 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
638 |
Lpackagep(); |
Lpackagep(); |
639 |
vs_top=sup; |
vs_top=sup; |
640 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
641 |
goto T199;} |
goto T197;} |
642 |
base[2]= coerce_to_string((V101)); |
base[0]= coerce_to_string((V112)); |
643 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
644 |
Lfind_package(); |
Lfind_package(); |
645 |
vs_top=sup; |
vs_top=sup; |
646 |
V101= vs_base[0]; |
V112= vs_base[0]; |
647 |
if(((V101))!=Cnil){ |
if(((V112))!=Cnil){ |
648 |
goto T199;} |
goto T197;} |
649 |
base[2]= VV[9]; |
base[0]= VV[9]; |
650 |
base[3]= VV[10]; |
base[1]= VV[10]; |
651 |
base[4]= car((V97)); |
base[2]= car((V108)); |
652 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+0)+3; |
653 |
(void) (*Lnk8)(); |
(void) (*Lnk8)(); |
654 |
vs_top=sup; |
vs_top=sup; |
655 |
goto T199; |
goto T197; |
656 |
T199:; |
T197:; |
657 |
V98= (V101);} |
V109= (V112);} |
658 |
V99= Cnil; |
V110= Cnil; |
659 |
V100= Cnil; |
V111= Cnil; |
660 |
{object V102; |
{object V113; |
661 |
object V103; |
object V114; |
662 |
base[3]= (V98); |
base[1]= (V109); |
663 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+1)+1; |
664 |
(void) (*Lnk19)(); |
(void) (*Lnk19)(); |
665 |
vs_top=sup; |
vs_top=sup; |
666 |
V102= vs_base[0]; |
V113= vs_base[0]; |
667 |
V103= small_fixnum(0); |
V114= small_fixnum(0); |
668 |
goto T214; |
goto T212; |
669 |
T214:; |
T212:; |
670 |
if(!(number_compare((V103),(V102))>=0)){ |
if(!(number_compare((V114),(V113))>=0)){ |
671 |
goto T215;} |
goto T213;} |
672 |
V99= Cnil; |
V110= Cnil; |
673 |
goto T196; |
goto T194; |
674 |
goto T215; |
goto T213; |
675 |
T215:; |
T213:; |
676 |
base[3]= (V98); |
base[1]= (V109); |
677 |
base[4]= (V103); |
base[2]= (V114); |
678 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+1)+2; |
679 |
siLpackage_external(); |
siLpackage_external(); |
680 |
vs_top=sup; |
vs_top=sup; |
681 |
V100= vs_base[0]; |
V111= vs_base[0]; |
|
goto T222; |
|
|
T222:; |
|
|
if(((V100))!=Cnil){ |
|
|
goto T227;} |
|
|
goto T223; |
|
|
goto T227; |
|
|
T227:; |
|
|
V99= car((V100)); |
|
|
base[3]= (V78); |
|
|
base[4]= coerce_to_string((V99)); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk66)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T232;} |
|
|
V80= make_cons((V99),(V80)); |
|
|
goto T232; |
|
|
T232:; |
|
|
V100= cdr((V100)); |
|
|
goto T222; |
|
|
goto T223; |
|
|
T223:; |
|
|
goto T220; |
|
682 |
goto T220; |
goto T220; |
683 |
T220:; |
T220:; |
684 |
V103= one_plus((V103)); |
if(((V111))!=Cnil){ |
685 |
goto T214;}} |
goto T225;} |
686 |
goto T196; |
goto T221; |
687 |
T196:; |
goto T225; |
688 |
V97= cdr((V97)); |
T225:; |
689 |
goto T191;} |
V110= car((V111)); |
690 |
|
V115= coerce_to_string((V110)); |
691 |
|
if(((*(LnkLI66))((V88),/* INLINE-ARGS */V115))==Cnil){ |
692 |
|
goto T230;} |
693 |
|
V90= make_cons((V110),(V90)); |
694 |
|
goto T230; |
695 |
|
T230:; |
696 |
|
V111= cdr((V111)); |
697 |
|
goto T220; |
698 |
|
goto T221; |
699 |
|
T221:; |
700 |
|
goto T218; |
701 |
|
goto T218; |
702 |
|
T218:; |
703 |
|
V114= one_plus((V114)); |
704 |
|
goto T212;}} |
705 |
|
goto T194; |
706 |
|
T194:; |
707 |
|
V108= cdr((V108)); |
708 |
|
goto T189;} |
709 |
goto T101; |
goto T101; |
710 |
T101:; |
T101:; |
711 |
{object V104; |
{object V116; |
712 |
object V105; |
object V117; |
713 |
vs_base=vs_top; |
vs_base=vs_top; |
714 |
Llist_all_packages(); |
Llist_all_packages(); |
715 |
vs_top=sup; |
vs_top=sup; |
716 |
V104= vs_base[0]; |
V116= vs_base[0]; |
717 |
V105= car((V104)); |
V117= car((V116)); |
718 |
goto T249; |
goto T245; |
719 |
T249:; |
T245:; |
720 |
if(!(endp_prop((V104)))){ |
if(!(endp_prop((V116)))){ |
721 |
goto T250;} |
goto T246;} |
722 |
goto T99; |
goto T99; |
723 |
goto T250; |
goto T246; |
724 |
T250:; |
T246:; |
725 |
{object V106; |
{object V118; |
726 |
register object V107; |
register object V119; |
727 |
register object V108; |
register object V120; |
728 |
{object V109; |
{object V121; |
729 |
V109= (V105); |
V121= (V117); |
730 |
base[4]= (V109); |
base[2]= (V121); |
731 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+2)+1; |
732 |
Lpackagep(); |
Lpackagep(); |
733 |
vs_top=sup; |
vs_top=sup; |
734 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
735 |
goto T256;} |
goto T252;} |
736 |
base[4]= coerce_to_string((V109)); |
base[2]= coerce_to_string((V121)); |
737 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+2)+1; |
738 |
Lfind_package(); |
Lfind_package(); |
739 |
vs_top=sup; |
vs_top=sup; |
740 |
V109= vs_base[0]; |
V121= vs_base[0]; |
741 |
if(((V109))!=Cnil){ |
if(((V121))!=Cnil){ |
742 |
goto T256;} |
goto T252;} |
743 |
base[4]= VV[9]; |
base[2]= VV[9]; |
744 |
base[5]= VV[10]; |
base[3]= VV[10]; |
745 |
base[6]= (V105); |
base[4]= (V117); |
746 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+2)+3; |
747 |
(void) (*Lnk8)(); |
(void) (*Lnk8)(); |
748 |
vs_top=sup; |
vs_top=sup; |
749 |
goto T256; |
goto T252; |
750 |
T256:; |
T252:; |
751 |
V106= (V109);} |
V118= (V121);} |
752 |
V107= Cnil; |
V119= Cnil; |
753 |
V108= Cnil; |
V120= Cnil; |
754 |
{object V110; |
{object V122; |
755 |
register object V111; |
register object V123; |
756 |
base[6]= (V106); |
base[4]= (V118); |
757 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+4)+1; |
758 |
Lpackage_use_list(); |
Lpackage_use_list(); |
759 |
vs_top=sup; |
vs_top=sup; |
760 |
V112= vs_base[0]; |
V124= vs_base[0]; |
761 |
V110= make_cons((V106),V112); |
V122= make_cons((V118),V124); |
762 |
V111= car((V110)); |
V123= car((V122)); |
763 |
goto T272; |
goto T268; |
764 |
T272:; |
T268:; |
765 |
if(!(endp_prop((V110)))){ |
if(!(endp_prop((V122)))){ |
766 |
goto T273;} |
goto T269;} |
767 |
V107= Cnil; |
V119= Cnil; |
768 |
goto T254; |
goto T250; |
769 |
goto T273; |
goto T269; |
770 |
T273:; |
T269:; |
771 |
{long V113; |
{long V125; |
772 |
long V114; |
long V126; |
773 |
base[6]= (V111); |
base[4]= (V123); |
774 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+4)+1; |
775 |
(void) (*Lnk19)(); |
(void) (*Lnk19)(); |
776 |
if(vs_base>=vs_top){vs_top=sup;goto T282;} |
if(vs_base>=vs_top){vs_top=sup;goto T278;} |
777 |
V113= fix(vs_base[0]); |
V125= fix(vs_base[0]); |
778 |
vs_base++; |
vs_base++; |
779 |
if(vs_base>=vs_top){vs_top=sup;goto T283;} |
if(vs_base>=vs_top){vs_top=sup;goto T279;} |
780 |
V114= fix(vs_base[0]); |
V126= fix(vs_base[0]); |
781 |
vs_top=sup; |
vs_top=sup; |
782 |
goto T284; |
goto T280; |
783 |
goto T282; |
goto T278; |
784 |
T282:; |
T278:; |
785 |
V113= fix(Cnil); |
V125= fix(Cnil); |
|
goto T283; |
|
|
T283:; |
|
|
V114= fix(Cnil); |
|
|
goto T284; |
|
|
T284:; |
|
|
if(((V106))==((V111))){ |
|
|
goto T285;} |
|
|
V114= 0; |
|
|
goto T285; |
|
|
T285:; |
|
|
{object V115; |
|
|
register object V116; |
|
|
V117 = make_fixnum(V114); |
|
|
V118 = make_fixnum(V113); |
|
|
V115= number_plus(V117,V118); |
|
|
V116= small_fixnum(0); |
|
|
goto T292; |
|
|
T292:; |
|
|
if(!(number_compare((V116),(V115))>=0)){ |
|
|
goto T293;} |
|
786 |
goto T279; |
goto T279; |
787 |
goto T293; |
T279:; |
788 |
T293:; |
V126= fix(Cnil); |
789 |
V119 = make_fixnum(V114); |
goto T280; |
790 |
if(!(number_compare((V116),V119)<0)){ |
T280:; |
791 |
goto T302;} |
if(((V118))==((V123))){ |
792 |
base[7]= (V111); |
goto T281;} |
793 |
base[8]= (V116); |
V126= 0; |
794 |
vs_top=(vs_base=base+7)+2; |
goto T281; |
795 |
|
T281:; |
796 |
|
{object V127; |
797 |
|
register object V128; |
798 |
|
V129 = make_fixnum(V126); |
799 |
|
V130 = make_fixnum(V125); |
800 |
|
V127= number_plus(V129,V130); |
801 |
|
V128= small_fixnum(0); |
802 |
|
goto T288; |
803 |
|
T288:; |
804 |
|
if(!(number_compare((V128),(V127))>=0)){ |
805 |
|
goto T289;} |
806 |
|
goto T275; |
807 |
|
goto T289; |
808 |
|
T289:; |
809 |
|
V131 = make_fixnum(V126); |
810 |
|
if(!(number_compare((V128),V131)<0)){ |
811 |
|
goto T298;} |
812 |
|
base[5]= (V123); |
813 |
|
base[6]= (V128); |
814 |
|
vs_top=(vs_base=base+5)+2; |
815 |
siLpackage_internal(); |
siLpackage_internal(); |
816 |
vs_top=sup; |
vs_top=sup; |
817 |
V108= vs_base[0]; |
V120= vs_base[0]; |
818 |
goto T300; |
goto T296; |
|
goto T302; |
|
|
T302:; |
|
|
base[7]= (V111); |
|
|
V120 = make_fixnum(V114); |
|
|
base[8]= number_minus((V116),V120); |
|
|
vs_top=(vs_base=base+7)+2; |
|
|
siLpackage_external(); |
|
|
vs_top=sup; |
|
|
V108= vs_base[0]; |
|
|
goto T300; |
|
|
T300:; |
|
819 |
goto T298; |
goto T298; |
820 |
T298:; |
T298:; |
821 |
if(((V108))!=Cnil){ |
base[5]= (V123); |
822 |
goto T308;} |
V132 = make_fixnum(V126); |
823 |
goto T299; |
base[6]= number_minus((V128),V132); |
824 |
goto T308; |
vs_top=(vs_base=base+5)+2; |
825 |
T308:; |
siLpackage_external(); |
826 |
V107= car((V108)); |
vs_top=sup; |
827 |
if(((V111))==((V106))){ |
V120= vs_base[0]; |
828 |
goto T314;} |
goto T296; |
829 |
base[8]= symbol_name((V107)); |
T296:; |
830 |
base[9]= (V106); |
goto T294; |
831 |
vs_top=(vs_base=base+8)+2; |
T294:; |
832 |
|
if(((V120))!=Cnil){ |
833 |
|
goto T304;} |
834 |
|
goto T295; |
835 |
|
goto T304; |
836 |
|
T304:; |
837 |
|
V119= car((V120)); |
838 |
|
if(((V123))==((V118))){ |
839 |
|
goto T310;} |
840 |
|
base[6]= symbol_name((V119)); |
841 |
|
base[7]= (V118); |
842 |
|
vs_top=(vs_base=base+6)+2; |
843 |
Lfind_symbol(); |
Lfind_symbol(); |
844 |
Llist(); |
Llist(); |
845 |
vs_top=sup; |
vs_top=sup; |
846 |
base[7]= vs_base[0]; |
base[5]= vs_base[0]; |
847 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+5)+1; |
848 |
Llast(); |
Llast(); |
849 |
vs_top=sup; |
vs_top=sup; |
850 |
V121= vs_base[0]; |
V133= vs_base[0]; |
851 |
if(!((VV[35])==(car(V121)))){ |
if(!((VV[35])==(car(V133)))){ |
852 |
goto T313;} |
goto T309;} |
853 |
goto T314; |
goto T310; |
854 |
T314:; |
T310:; |
855 |
base[7]= (V78); |
V134= coerce_to_string((V119)); |
856 |
base[8]= coerce_to_string((V107)); |
if(((*(LnkLI66))((V88),/* INLINE-ARGS */V134))==Cnil){ |
857 |
vs_top=(vs_base=base+7)+2; |
goto T320;} |
858 |
(void) (*Lnk66)(); |
V90= make_cons((V119),(V90)); |
859 |
vs_top=sup; |
goto T320; |
860 |
if((vs_base[0])==Cnil){ |
T320:; |
861 |
goto T324;} |
goto T309; |
862 |
V80= make_cons((V107),(V80)); |
T309:; |
863 |
goto T324; |
V120= cdr((V120)); |
864 |
T324:; |
goto T294; |
865 |
goto T313; |
goto T295; |
866 |
T313:; |
T295:; |
867 |
V108= cdr((V108)); |
goto T292; |
868 |
goto T298; |
goto T292; |
869 |
goto T299; |
T292:; |
870 |
T299:; |
V128= one_plus((V128)); |
871 |
goto T296; |
goto T288;}} |
872 |
goto T296; |
goto T275; |
873 |
T296:; |
T275:; |
874 |
V116= one_plus((V116)); |
V122= cdr((V122)); |
875 |
goto T292;}} |
V123= car((V122)); |
876 |
goto T279; |
goto T268;}} |
877 |
T279:; |
goto T250; |
878 |
V110= cdr((V110)); |
T250:; |
879 |
V111= car((V110)); |
V116= cdr((V116)); |
880 |
goto T272;}} |
V117= car((V116)); |
881 |
goto T254; |
goto T245;} |
|
T254:; |
|
|
V104= cdr((V104)); |
|
|
V105= car((V104)); |
|
|
goto T249;} |
|
882 |
goto T99; |
goto T99; |
883 |
T99:; |
T99:; |
884 |
base[3]= (V80); |
V135= symbol_function(VV[24]); |
885 |
base[4]= VV[47]; |
base[0]= (VFUN_NARGS=3,(*(LnkLI67))((V90),VV[47],V135)); |
886 |
base[5]= symbol_function(VV[24]); |
base[1]= symbol_function(VV[68]); |
887 |
vs_top=(vs_base=base+3)+3; |
base[2]= VV[48]; |
888 |
(void) (*Lnk67)(); |
base[3]= symbol_function(VV[39]); |
889 |
vs_top=sup; |
vs_top=(vs_base=base+0)+4; |
|
base[2]= vs_base[0]; |
|
|
base[3]= symbol_function(VV[68]); |
|
|
base[4]= VV[48]; |
|
|
base[5]= symbol_function(VV[39]); |
|
|
vs_top=(vs_base=base+2)+4; |
|
890 |
(void) (*Lnk69)(); |
(void) (*Lnk69)(); |
891 |
return;} |
vs_top=sup; |
892 |
|
{object V136 = vs_base[0]; |
893 |
|
VMR8(V136)}} |
894 |
|
va_end(ap); |
895 |
|
base[0]=base[0]; |
896 |
|
return Cnil;} |
897 |
} |
} |
|
} |
|
898 |
/* function definition for APROPOS */ |
/* function definition for APROPOS */ |
899 |
|
|
900 |
static void L9() |
static void L9() |
901 |
{register object *base=vs_base; |
{register object *base=vs_base; |
902 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
903 |
vs_reserve(VM9); |
vs_reserve(VM9); |
904 |
{object V122; |
{object V137; |
905 |
object V123; |
object V138; |
906 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
907 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
908 |
V122=(base[0]); |
V137=(base[0]); |
909 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
910 |
if(vs_base>=vs_top){vs_top=sup;goto T352;} |
if(vs_base>=vs_top){vs_top=sup;goto T344;} |
911 |
V123=(base[1]); |
V138=(base[1]); |
912 |
vs_top=sup; |
vs_top=sup; |
913 |
goto T353; |
goto T345; |
914 |
|
goto T344; |
915 |
|
T344:; |
916 |
|
V138= Cnil; |
917 |
|
goto T345; |
918 |
|
T345:; |
919 |
|
{register object V139; |
920 |
|
register object V140; |
921 |
|
V139= (VFUN_NARGS=2,(*(LnkLI70))((V137),(V138))); |
922 |
|
V140= car((V139)); |
923 |
|
goto T351; |
924 |
|
T351:; |
925 |
|
if(!(endp_prop((V139)))){ |
926 |
|
goto T352;} |
927 |
|
goto T347; |
928 |
goto T352; |
goto T352; |
929 |
T352:; |
T352:; |
930 |
V123= Cnil; |
(void)((*(LnkLI71))((V140))); |
931 |
goto T353; |
V139= cdr((V139)); |
932 |
T353:; |
V140= car((V139)); |
933 |
{register object V124; |
goto T351;} |
934 |
register object V125; |
goto T347; |
935 |
base[4]= (V122); |
T347:; |
|
base[5]= (V123); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk70)(); |
|
|
vs_top=sup; |
|
|
V124= vs_base[0]; |
|
|
V125= car((V124)); |
|
|
goto T361; |
|
|
T361:; |
|
|
if(!(endp_prop((V124)))){ |
|
|
goto T362;} |
|
|
goto T355; |
|
|
goto T362; |
|
|
T362:; |
|
|
base[4]= (V125); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk71)(); |
|
|
vs_top=sup; |
|
|
V124= cdr((V124)); |
|
|
V125= car((V124)); |
|
|
goto T361;} |
|
|
goto T355; |
|
|
T355:; |
|
936 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
937 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
938 |
return; |
return; |
946 |
vs_reserve(VM10); |
vs_reserve(VM10); |
947 |
check_arg(2); |
check_arg(2); |
948 |
vs_top=sup; |
vs_top=sup; |
949 |
{object V126=base[0]->c.c_cdr; |
{object V141=base[0]->c.c_cdr; |
950 |
if(endp(V126))invalid_macro_call(); |
if(endp(V141))invalid_macro_call(); |
951 |
{object V127= (V126->c.c_car); |
{object V142= (V141->c.c_car); |
952 |
if(endp(V127))invalid_macro_call(); |
if(endp(V142))invalid_macro_call(); |
953 |
base[2]= (V127->c.c_car); |
base[2]= (V142->c.c_car); |
954 |
V127=V127->c.c_cdr; |
V142=V142->c.c_cdr; |
955 |
if(endp(V127))invalid_macro_call(); |
if(endp(V142))invalid_macro_call(); |
956 |
base[3]= (V127->c.c_car); |
base[3]= (V142->c.c_car); |
957 |
V127=V127->c.c_cdr; |
V142=V142->c.c_cdr; |
958 |
base[4]= V127;} |
base[4]= V142;} |
959 |
V126=V126->c.c_cdr; |
V141=V141->c.c_cdr; |
960 |
base[5]= V126;} |
base[5]= V141;} |
961 |
{register object V128; |
{register object V143; |
962 |
register object V129; |
register object V144; |
963 |
register object V130; |
register object V145; |
964 |
register object V131; |
register object V146; |
965 |
object V132; |
object V147; |
966 |
register object V133; |
register object V148; |
967 |
register object V134; |
register object V149; |
968 |
register object V135; |
register object V150; |
969 |
object V136; |
object V151; |
970 |
vs_base=vs_top; |
vs_base=vs_top; |
971 |
Lgensym(); |
Lgensym(); |
972 |
vs_top=sup; |
vs_top=sup; |
973 |
V128= vs_base[0]; |
V143= vs_base[0]; |
974 |
vs_base=vs_top; |
vs_base=vs_top; |
975 |
Lgensym(); |
Lgensym(); |
976 |
vs_top=sup; |
vs_top=sup; |
977 |
V129= vs_base[0]; |
V144= vs_base[0]; |
978 |
vs_base=vs_top; |
vs_base=vs_top; |
979 |
Lgensym(); |
Lgensym(); |
980 |
vs_top=sup; |
vs_top=sup; |
981 |
V130= vs_base[0]; |
V145= vs_base[0]; |
982 |
vs_base=vs_top; |
vs_base=vs_top; |
983 |
Lgensym(); |
Lgensym(); |
984 |
vs_top=sup; |
vs_top=sup; |
985 |
V131= vs_base[0]; |
V146= vs_base[0]; |
986 |
vs_base=vs_top; |
vs_base=vs_top; |
987 |
Lgensym(); |
Lgensym(); |
988 |
vs_top=sup; |
vs_top=sup; |
989 |
V132= vs_base[0]; |
V147= vs_base[0]; |
990 |
vs_base=vs_top; |
vs_base=vs_top; |
991 |
Lgensym(); |
Lgensym(); |
992 |
vs_top=sup; |
vs_top=sup; |
993 |
V133= vs_base[0]; |
V148= vs_base[0]; |
994 |
vs_base=vs_top; |
vs_base=vs_top; |
995 |
Lgensym(); |
Lgensym(); |
996 |
vs_top=sup; |
vs_top=sup; |
997 |
V134= vs_base[0]; |
V149= vs_base[0]; |
998 |
vs_base=vs_top; |
vs_base=vs_top; |
999 |
Lgensym(); |
Lgensym(); |
1000 |
vs_top=sup; |
vs_top=sup; |
1001 |
V135= vs_base[0]; |
V150= vs_base[0]; |
1002 |
V136= Cnil; |
V151= Cnil; |
1003 |
base[6]= base[5]; |
base[6]= base[5]; |
1004 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1005 |
(void) (*Lnk65)(); |
(void) (*Lnk65)(); |
1006 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
1007 |
V136= vs_base[0]; |
V151= vs_base[0]; |
1008 |
vs_base++; |
vs_base++; |
1009 |
}else{ |
}else{ |
1010 |
V136= Cnil;} |
V151= Cnil;} |
1011 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
1012 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1013 |
}else{ |
}else{ |
1014 |
base[5]= Cnil;} |
base[5]= Cnil;} |
1015 |
vs_top=sup; |
vs_top=sup; |
1016 |
if((base[4])!=Cnil){ |
if((base[4])!=Cnil){ |
1017 |
goto T384;} |
goto T373;} |
1018 |
base[6]= VV[49]; |
base[6]= VV[49]; |
1019 |
base[7]= VV[50]; |
base[7]= VV[50]; |
1020 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1021 |
(void) (*Lnk8)(); |
(void) (*Lnk8)(); |
1022 |
vs_top=sup; |
vs_top=sup; |
1023 |
goto T384; |
goto T373; |
1024 |
T384:; |
T373:; |
1025 |
V137= list(2,VV[51],base[3]); |
V152= list(2,VV[51],base[3]); |
1026 |
V138= list(2,(V128),list(3,VV[15],Ct,list(4,VV[22],/* INLINE-ARGS */V137,list(2,VV[52],base[3]),base[3]))); |
V153= list(2,(V143),list(3,VV[15],Ct,list(4,VV[22],/* INLINE-ARGS */V152,list(2,VV[52],base[3]),base[3]))); |
1027 |
V139= list(2,(V131),Cnil); |
V154= list(2,(V146),Cnil); |
1028 |
V140= list(2,(V130),Cnil); |
V155= list(2,(V145),Cnil); |
1029 |
V141= list(2,(V129),small_fixnum(-1)); |
V156= list(2,(V144),small_fixnum(-1)); |
1030 |
V142= list(2,(V133),small_fixnum(0)); |
V157= list(2,(V148),small_fixnum(0)); |
1031 |
V143= list(2,(V134),small_fixnum(0)); |
V158= list(2,(V149),small_fixnum(0)); |
1032 |
V144= list(2,(V132),Cnil); |
V159= list(2,(V147),Cnil); |
1033 |
V145= list(8,/* INLINE-ARGS */V138,/* INLINE-ARGS */V139,/* INLINE-ARGS */V140,/* INLINE-ARGS */V141,/* INLINE-ARGS */V142,/* INLINE-ARGS */V143,/* INLINE-ARGS */V144,list(2,(V135),Cnil)); |
V160= list(8,/* INLINE-ARGS */V153,/* INLINE-ARGS */V154,/* INLINE-ARGS */V155,/* INLINE-ARGS */V156,/* INLINE-ARGS */V157,/* INLINE-ARGS */V158,/* INLINE-ARGS */V159,list(2,(V150),Cnil)); |
1034 |
V146= list(2,VV[20],list(3,VV[21],(V133),(V134))); |
V161= list(2,VV[20],list(3,VV[21],(V148),(V149))); |
1035 |
V147= list(2,VV[32],list(3,VV[5],(V130),list(2,VV[41],(V130)))); |
V162= list(2,VV[32],list(3,VV[5],(V145),list(2,VV[41],(V145)))); |
1036 |
V148= list(2,VV[55],(V129)); |
V163= list(2,VV[55],(V144)); |
1037 |
V149= list(3,VV[54],/* INLINE-ARGS */V148,list(3,VV[26],(V133),(V134))); |
V164= list(3,VV[54],/* INLINE-ARGS */V163,list(3,VV[26],(V148),(V149))); |
1038 |
V150= list(2,VV[32],list(3,VV[5],(V131),list(2,VV[41],(V131)))); |
V165= list(2,VV[32],list(3,VV[5],(V146),list(2,VV[41],(V146)))); |
1039 |
V151= list(2,VV[32],list(3,VV[5],(V128),list(2,VV[41],(V128)))); |
V166= list(2,VV[32],list(3,VV[5],(V143),list(2,VV[41],(V143)))); |
1040 |
V152= list(3,VV[31],/* INLINE-ARGS */V151,list(3,VV[56],base[2],Cnil)); |
V167= list(3,VV[31],/* INLINE-ARGS */V166,list(3,VV[56],base[2],Cnil)); |
1041 |
V153= list(3,VV[57],(V128),list(2,VV[13],list(2,VV[34],(V128)))); |
V168= list(3,VV[57],(V143),list(2,VV[13],list(2,VV[34],(V143)))); |
1042 |
V154= list(3,VV[5],(V131),list(2,VV[52],list(2,VV[13],list(2,VV[34],(V128))))); |
V169= list(3,VV[5],(V146),list(2,VV[52],list(2,VV[13],list(2,VV[34],(V143))))); |
1043 |
V155= list(3,VV[58],VV[35],make_cons(VV[52],base[4])); |
V170= list(3,VV[58],VV[35],make_cons(VV[52],base[4])); |
1044 |
V156= list(6,VV[31],/* INLINE-ARGS */V150,/* INLINE-ARGS */V152,/* INLINE-ARGS */V153,/* INLINE-ARGS */V154,list(3,VV[31],/* INLINE-ARGS */V155,list(3,VV[59],(V131),list(2,VV[16],list(2,VV[34],(V131)))))); |
V171= list(6,VV[31],/* INLINE-ARGS */V165,/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,/* INLINE-ARGS */V169,list(3,VV[31],/* INLINE-ARGS */V170,list(3,VV[59],(V146),list(2,VV[16],list(2,VV[34],(V146)))))); |
1045 |
V157= list(2,(V134),(V133)); |
V172= list(2,(V149),(V148)); |
1046 |
V158= list(3,VV[60],/* INLINE-ARGS */V157,list(2,VV[19],list(2,VV[34],(V131)))); |
V173= list(3,VV[60],/* INLINE-ARGS */V172,list(2,VV[19],list(2,VV[34],(V146)))); |
1047 |
V159= list(2,VV[23],list(3,VV[58],VV[11],make_cons(VV[52],base[4]))); |
V174= list(2,VV[23],list(3,VV[58],VV[11],make_cons(VV[52],base[4]))); |
1048 |
V160= list(2,VV[34],(V128)); |
V175= list(2,VV[34],(V143)); |
1049 |
V161= list(3,VV[3],/* INLINE-ARGS */V159,list(2,VV[23],list(3,VV[24],/* INLINE-ARGS */V160,list(2,VV[34],(V131))))); |
V176= list(3,VV[3],/* INLINE-ARGS */V174,list(2,VV[23],list(3,VV[24],/* INLINE-ARGS */V175,list(2,VV[34],(V146))))); |
1050 |
V162= list(3,VV[31],/* INLINE-ARGS */V161,list(3,VV[5],(V133),small_fixnum(0))); |
V177= list(3,VV[31],/* INLINE-ARGS */V176,list(3,VV[5],(V148),small_fixnum(0))); |
1051 |
V163= list(2,VV[23],list(3,VV[58],VV[12],make_cons(VV[52],base[4]))); |
V178= list(2,VV[23],list(3,VV[58],VV[12],make_cons(VV[52],base[4]))); |
1052 |
V164= list(2,VV[34],(V128)); |
V179= list(2,VV[34],(V143)); |
1053 |
V165= list(3,VV[61],/* INLINE-ARGS */V163,list(3,VV[24],/* INLINE-ARGS */V164,list(2,VV[34],(V131)))); |
V180= list(3,VV[61],/* INLINE-ARGS */V178,list(3,VV[24],/* INLINE-ARGS */V179,list(2,VV[34],(V146)))); |
1054 |
V166= list(3,VV[31],/* INLINE-ARGS */V165,list(3,VV[5],(V134),small_fixnum(0))); |
V181= list(3,VV[31],/* INLINE-ARGS */V180,list(3,VV[5],(V149),small_fixnum(0))); |
1055 |
V167= list(2,VV[62],list(3,VV[26],(V133),(V134))); |
V182= list(2,VV[62],list(3,VV[26],(V148),(V149))); |
1056 |
V168= list(3,VV[5],(V129),small_fixnum(-1)); |
V183= list(3,VV[5],(V144),small_fixnum(-1)); |
1057 |
V169= list(4,VV[31],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,list(2,VV[33],base[2])); |
V184= list(4,VV[31],/* INLINE-ARGS */V182,/* INLINE-ARGS */V183,list(2,VV[33],base[2])); |
1058 |
V170= list(8,VV[31],/* INLINE-ARGS */V149,/* INLINE-ARGS */V156,/* INLINE-ARGS */V158,/* INLINE-ARGS */V162,/* INLINE-ARGS */V166,/* INLINE-ARGS */V169,list(3,VV[5],(V129),small_fixnum(0))); |
V185= list(8,VV[31],/* INLINE-ARGS */V164,/* INLINE-ARGS */V171,/* INLINE-ARGS */V173,/* INLINE-ARGS */V177,/* INLINE-ARGS */V181,/* INLINE-ARGS */V184,list(3,VV[5],(V144),small_fixnum(0))); |
1059 |
V171= list(3,VV[27],(V129),(V133)); |
V186= list(3,VV[27],(V144),(V148)); |
1060 |
V172= list(3,VV[28],list(2,VV[34],(V131)),(V129)); |
V187= list(3,VV[28],list(2,VV[34],(V146)),(V144)); |
1061 |
V173= list(2,VV[34],(V131)); |
V188= list(2,VV[34],(V146)); |
1062 |
V174= list(4,VV[31],/* INLINE-ARGS */V147,/* INLINE-ARGS */V170,list(3,VV[5],(V130),list(4,VV[22],/* INLINE-ARGS */V171,/* INLINE-ARGS */V172,list(3,VV[29],/* INLINE-ARGS */V173,list(3,VV[30],(V129),(V133)))))); |
V189= list(4,VV[31],/* INLINE-ARGS */V162,/* INLINE-ARGS */V185,list(3,VV[5],(V145),list(4,VV[22],/* INLINE-ARGS */V186,/* INLINE-ARGS */V187,list(3,VV[29],/* INLINE-ARGS */V188,list(3,VV[30],(V144),(V148)))))); |
1063 |
V175= list(2,VV[32],(V130)); |
V190= list(2,VV[32],(V145)); |
1064 |
V176= list(3,VV[31],/* INLINE-ARGS */V175,list(2,VV[33],base[2])); |
V191= list(3,VV[31],/* INLINE-ARGS */V190,list(2,VV[33],base[2])); |
1065 |
V177= list(2,(V132),(V135)); |
V192= list(2,(V147),(V150)); |
1066 |
V178= list(2,VV[39],list(2,VV[34],(V130))); |
V193= list(2,VV[39],list(2,VV[34],(V145))); |
1067 |
V179= list(3,VV[60],/* INLINE-ARGS */V177,list(3,VV[38],/* INLINE-ARGS */V178,list(2,VV[34],(V128)))); |
V194= list(3,VV[60],/* INLINE-ARGS */V192,list(3,VV[38],/* INLINE-ARGS */V193,list(2,VV[34],(V143)))); |
1068 |
V180= list(2,VV[23],list(3,VV[24],(V135),VV[35])); |
V195= list(2,VV[23],list(3,VV[24],(V150),VV[35])); |
1069 |
V181= list(2,VV[34],(V128)); |
V196= list(2,VV[34],(V143)); |
1070 |
V182= list(3,VV[61],/* INLINE-ARGS */V180,list(2,VV[23],list(3,VV[24],/* INLINE-ARGS */V181,list(2,VV[34],(V131))))); |
V197= list(3,VV[61],/* INLINE-ARGS */V195,list(2,VV[23],list(3,VV[24],/* INLINE-ARGS */V196,list(2,VV[34],(V146))))); |
1071 |
V183= list(6,VV[40],base[2],/* INLINE-ARGS */V174,/* INLINE-ARGS */V176,/* INLINE-ARGS */V179,list(3,VV[31],/* INLINE-ARGS */V182,list(2,VV[33],base[2]))); |
V198= list(6,VV[40],base[2],/* INLINE-ARGS */V189,/* INLINE-ARGS */V191,/* INLINE-ARGS */V194,list(3,VV[31],/* INLINE-ARGS */V197,list(2,VV[33],base[2]))); |
1072 |
V184= list(2,VV[34],(V130)); |
V199= list(2,VV[34],(V145)); |
1073 |
V185= list(4,base[2],Cnil,/* INLINE-ARGS */V183,list(5,VV[63],VV[64],/* INLINE-ARGS */V184,(V135),list(2,VV[34],(V128)))); |
V200= list(4,base[2],Cnil,/* INLINE-ARGS */V198,list(5,VV[63],VV[64],/* INLINE-ARGS */V199,(V150),list(2,VV[34],(V143)))); |
1074 |
V186= make_cons(/* INLINE-ARGS */V185,Cnil); |
V201= make_cons(/* INLINE-ARGS */V200,Cnil); |
1075 |
base[6]= list(4,VV[1],/* INLINE-ARGS */V145,/* INLINE-ARGS */V146,listA(3,VV[53],/* INLINE-ARGS */V186,append((V136),base[5]))); |
base[6]= list(4,VV[1],/* INLINE-ARGS */V160,/* INLINE-ARGS */V161,listA(3,VV[53],/* INLINE-ARGS */V201,append((V151),base[5]))); |
1076 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1077 |
return;} |
return;} |
1078 |
} |
} |
1079 |
static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* PRINT-SYMBOL-APROPOS */ |
static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,1,first,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */ |
1080 |
static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* APROPOS-LIST */ |
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* APROPOS-LIST */ |
1081 |
static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* STABLE-SORT */ |
static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* STABLE-SORT */ |
1082 |
static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* DELETE-DUPLICATES */ |
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */ |
1083 |
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* SUBSTRINGP */ |
static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* SUBSTRINGP */ |
1084 |
static void LnkT19(){ call_or_link(VV[19],(void **)(void *)&Lnk19);} /* PACKAGE-SIZE */ |
static void LnkT19(){ call_or_link(VV[19],(void **)(void *)&Lnk19);} /* PACKAGE-SIZE */ |
1085 |
static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* SPECIFIC-ERROR */ |
static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* SPECIFIC-ERROR */ |
1086 |
static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* FIND-DECLARATIONS */ |
static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* FIND-DECLARATIONS */ |