48 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
49 |
goto TTL; |
goto TTL; |
50 |
TTL:; |
TTL:; |
51 |
V11= structure_ref((V10),VV[0],0); |
V11= append(STREF(object,(V10),0),STREF(object,(V9),0)); |
52 |
V12= structure_ref((V9),VV[0],0); |
V12= Ct; |
53 |
V13= append(/* INLINE-ARGS */V11,/* INLINE-ARGS */V12); |
STSET(object,(V9),0, /* INLINE-ARGS */V11); |
54 |
(void)(structure_set((V9),VV[0],0,/* INLINE-ARGS */V13)); |
(void)(/* INLINE-ARGS */V11); |
55 |
V14= structure_ref((V10),VV[0],1); |
V13= append(STREF(object,(V10),4),STREF(object,(V9),4)); |
56 |
V15= structure_ref((V9),VV[0],1); |
V14= Ct; |
57 |
V16= append(/* INLINE-ARGS */V14,/* INLINE-ARGS */V15); |
STSET(object,(V9),4, /* INLINE-ARGS */V13); |
58 |
(void)(structure_set((V9),VV[0],1,/* INLINE-ARGS */V16)); |
(void)(/* INLINE-ARGS */V13); |
59 |
if((structure_ref((V10),VV[0],3))==Cnil){ |
if((STREF(object,(V10),12))==Cnil){ |
60 |
goto T11;} |
goto T11;} |
61 |
{object V17 = structure_set((V9),VV[0],3,Ct); |
V15= Ct; |
62 |
VMR2(V17)} |
STSET(object,(V9),12, Ct); |
63 |
|
{object V16 = Ct; |
64 |
|
VMR2(V16)} |
65 |
goto T11; |
goto T11; |
66 |
T11:; |
T11:; |
67 |
{object V18 = Cnil; |
{object V17 = Cnil; |
68 |
VMR2(V18)} |
VMR2(V17)} |
69 |
return Cnil; |
return Cnil; |
70 |
} |
} |
71 |
/* local entry for function ARGS-INFO-CHANGED-VARS */ |
/* local entry for function ARGS-INFO-CHANGED-VARS */ |
72 |
|
|
73 |
static object LI3(V21,V22) |
static object LI3(V20,V21) |
74 |
|
|
75 |
register object V21;object V22; |
register object V20;object V21; |
76 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
77 |
goto TTL; |
goto TTL; |
78 |
TTL:; |
TTL:; |
79 |
V24= structure_ref((V21),VV[1],1); |
{object V22= STREF(object,(V20),4); |
80 |
{object V23= /* INLINE-ARGS */V24; |
if((V22== VV[71]) |
81 |
if((V23== VV[71]) |
|| (V22== VV[45]) |
82 |
|| (V23== VV[45]) |
|| (V22== VV[72]) |
83 |
|| (V23== VV[72]) |
|| (V22== VV[46]) |
84 |
|| (V23== VV[46]) |
|| (V22== VV[47]))goto T14; |
85 |
|| (V23== VV[47]))goto T14; |
if((V22!= VV[18]))goto T13; |
|
if((V23!= VV[18]))goto T13; |
|
86 |
goto T14; |
goto T14; |
87 |
T14:; |
T14:; |
88 |
{register object V25; |
{register object V23; |
89 |
register object V26; |
register object V24; |
90 |
V25= (V22); |
V23= (V21); |
91 |
V26= car((V25)); |
V24= CMPcar((V23)); |
92 |
goto T18; |
goto T18; |
93 |
T18:; |
T18:; |
94 |
if(!(endp_prop((V25)))){ |
if(!(((V23))==Cnil)){ |
95 |
goto T19;} |
goto T19;} |
96 |
{object V27 = Cnil; |
{object V25 = Cnil; |
97 |
VMR3(V27)} |
VMR3(V25)} |
98 |
goto T19; |
goto T19; |
99 |
T19:; |
T19:; |
100 |
V29= structure_ref(cadr((V26)),VV[0],0); |
{register object x= (V20),V26= STREF(object,CMPcadr((V24)),0); |
101 |
{register object x= (V21),V28= /* INLINE-ARGS */V29; |
while(V26!=Cnil) |
102 |
while(!endp(V28)) |
if(eql(x,V26->c.c_car)){ |
|
if(eql(x,V28->c.c_car)){ |
|
103 |
goto T25; |
goto T25; |
104 |
}else V28=V28->c.c_cdr; |
}else V26=V26->c.c_cdr; |
105 |
goto T23;} |
goto T23;} |
106 |
goto T25; |
goto T25; |
107 |
T25:; |
T25:; |
108 |
{object V30 = Ct; |
{object V27 = Ct; |
109 |
VMR3(V30)} |
VMR3(V27)} |
110 |
goto T23; |
goto T23; |
111 |
T23:; |
T23:; |
112 |
V25= cdr((V25)); |
V23= CMPcdr((V23)); |
113 |
V26= car((V25)); |
V24= CMPcar((V23)); |
114 |
goto T18;} |
goto T18;} |
115 |
goto T13; |
goto T13; |
116 |
T13:; |
T13:; |
117 |
if((V23!= VV[73]))goto T31; |
if((V22!= VV[73]))goto T31; |
118 |
{object V31 = Cnil; |
{object V28 = Cnil; |
119 |
VMR3(V31)} |
VMR3(V28)} |
120 |
goto T31; |
goto T31; |
121 |
T31:; |
T31:; |
122 |
{register object V32; |
{register object V29; |
123 |
register object V33; |
register object V30; |
124 |
V32= (V22); |
V29= (V21); |
125 |
V33= car((V32)); |
V30= CMPcar((V29)); |
126 |
goto T35; |
goto T35; |
127 |
T35:; |
T35:; |
128 |
if(!(endp_prop((V32)))){ |
if(!(((V29))==Cnil)){ |
129 |
goto T36;} |
goto T36;} |
130 |
{object V34 = Cnil; |
{object V31 = Cnil; |
131 |
VMR3(V34)} |
VMR3(V31)} |
132 |
goto T36; |
goto T36; |
133 |
T36:; |
T36:; |
134 |
V36= structure_ref(cadr((V33)),VV[0],0); |
{register object x= (V20),V32= STREF(object,CMPcadr((V30)),0); |
135 |
{register object x= (V21),V35= /* INLINE-ARGS */V36; |
while(V32!=Cnil) |
136 |
while(!endp(V35)) |
if(eql(x,V32->c.c_car)){ |
|
if(eql(x,V35->c.c_car)){ |
|
137 |
goto T41; |
goto T41; |
138 |
}else V35=V35->c.c_cdr;} |
}else V32=V32->c.c_cdr;} |
139 |
if((structure_ref(cadr((V33)),VV[0],3))==Cnil){ |
if((STREF(object,CMPcadr((V30)),12))==Cnil){ |
140 |
goto T40;} |
goto T40;} |
141 |
goto T41; |
goto T41; |
142 |
T41:; |
T41:; |
143 |
{object V37 = Ct; |
{object V33 = Ct; |
144 |
VMR3(V37)} |
VMR3(V33)} |
145 |
goto T40; |
goto T40; |
146 |
T40:; |
T40:; |
147 |
V32= cdr((V32)); |
V29= CMPcdr((V29)); |
148 |
V33= car((V32)); |
V30= CMPcar((V29)); |
149 |
goto T35;}} |
goto T35;}} |
150 |
base[0]=base[0]; |
base[0]=base[0]; |
151 |
return Cnil; |
return Cnil; |
152 |
} |
} |
153 |
/* local entry for function ARGS-INFO-REFERRED-VARS */ |
/* local entry for function ARGS-INFO-REFERRED-VARS */ |
154 |
|
|
155 |
static object LI4(V40,V41) |
static object LI4(V36,V37) |
156 |
|
|
157 |
register object V40;object V41; |
register object V36;object V37; |
158 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
159 |
goto TTL; |
goto TTL; |
160 |
TTL:; |
TTL:; |
161 |
V43= structure_ref((V40),VV[1],1); |
{object V38= STREF(object,(V36),4); |
162 |
{object V42= /* INLINE-ARGS */V43; |
if((V38== VV[71]) |
163 |
if((V42== VV[71]) |
|| (V38== VV[73]) |
164 |
|| (V42== VV[73]) |
|| (V38== VV[45]) |
165 |
|| (V42== VV[45]) |
|| (V38== VV[72]) |
166 |
|| (V42== VV[72]) |
|| (V38== VV[46]))goto T51; |
167 |
|| (V42== VV[46]))goto T51; |
if((V38!= VV[47]) |
168 |
if((V42!= VV[47]) |
&& (V38!= VV[18]))goto T50; |
|
&& (V42!= VV[18]))goto T50; |
|
169 |
goto T51; |
goto T51; |
170 |
T51:; |
T51:; |
171 |
{register object V44; |
{register object V39; |
172 |
register object V45; |
register object V40; |
173 |
V44= (V41); |
V39= (V37); |
174 |
V45= car((V44)); |
V40= CMPcar((V39)); |
175 |
goto T55; |
goto T55; |
176 |
T55:; |
T55:; |
177 |
if(!(endp_prop((V44)))){ |
if(!(((V39))==Cnil)){ |
178 |
goto T56;} |
goto T56;} |
179 |
{object V46 = Cnil; |
{object V41 = Cnil; |
180 |
VMR4(V46)} |
VMR4(V41)} |
181 |
goto T56; |
goto T56; |
182 |
T56:; |
T56:; |
183 |
V48= structure_ref(cadr((V45)),VV[0],1); |
{register object x= (V36),V42= STREF(object,CMPcadr((V40)),4); |
184 |
{register object x= (V40),V47= /* INLINE-ARGS */V48; |
while(V42!=Cnil) |
185 |
while(!endp(V47)) |
if(eql(x,V42->c.c_car)){ |
|
if(eql(x,V47->c.c_car)){ |
|
186 |
goto T62; |
goto T62; |
187 |
}else V47=V47->c.c_cdr; |
}else V42=V42->c.c_cdr; |
188 |
goto T60;} |
goto T60;} |
189 |
goto T62; |
goto T62; |
190 |
T62:; |
T62:; |
191 |
{object V49 = Ct; |
{object V43 = Ct; |
192 |
VMR4(V49)} |
VMR4(V43)} |
193 |
goto T60; |
goto T60; |
194 |
T60:; |
T60:; |
195 |
V44= cdr((V44)); |
V39= CMPcdr((V39)); |
196 |
V45= car((V44)); |
V40= CMPcar((V39)); |
197 |
goto T55;} |
goto T55;} |
198 |
goto T50; |
goto T50; |
199 |
T50:; |
T50:; |
200 |
{register object V50; |
{register object V44; |
201 |
register object V51; |
register object V45; |
202 |
V50= (V41); |
V44= (V37); |
203 |
V51= car((V50)); |
V45= CMPcar((V44)); |
204 |
goto T71; |
goto T71; |
205 |
T71:; |
T71:; |
206 |
if(!(endp_prop((V50)))){ |
if(!(((V44))==Cnil)){ |
207 |
goto T72;} |
goto T72;} |
208 |
{object V52 = Cnil; |
{object V46 = Cnil; |
209 |
VMR4(V52)} |
VMR4(V46)} |
210 |
goto T72; |
goto T72; |
211 |
T72:; |
T72:; |
212 |
V54= structure_ref(cadr((V51)),VV[0],1); |
{register object x= (V36),V47= STREF(object,CMPcadr((V45)),4); |
213 |
{register object x= (V40),V53= /* INLINE-ARGS */V54; |
while(V47!=Cnil) |
214 |
while(!endp(V53)) |
if(eql(x,V47->c.c_car)){ |
|
if(eql(x,V53->c.c_car)){ |
|
215 |
goto T77; |
goto T77; |
216 |
}else V53=V53->c.c_cdr;} |
}else V47=V47->c.c_cdr;} |
217 |
if((structure_ref(cadr((V51)),VV[0],3))==Cnil){ |
if((STREF(object,CMPcadr((V45)),12))==Cnil){ |
218 |
goto T76;} |
goto T76;} |
219 |
goto T77; |
goto T77; |
220 |
T77:; |
T77:; |
221 |
{object V55 = Ct; |
{object V48 = Ct; |
222 |
VMR4(V55)} |
VMR4(V48)} |
223 |
goto T76; |
goto T76; |
224 |
T76:; |
T76:; |
225 |
V50= cdr((V50)); |
V44= CMPcdr((V44)); |
226 |
V51= car((V50)); |
V45= CMPcar((V44)); |
227 |
goto T71;}} |
goto T71;}} |
228 |
base[0]=base[0]; |
base[0]=base[0]; |
229 |
return Cnil; |
return Cnil; |
230 |
} |
} |
231 |
/* function definition for INC-INLINE-BLOCKS */ |
/* local entry for function INC-INLINE-BLOCKS */ |
232 |
|
|
233 |
static void L5() |
static object LI5() |
234 |
{register object *base=vs_base; |
|
235 |
register object *sup=base+VM5; VC5 |
{ VMB5 VMS5 VMV5 |
|
vs_reserve(VM5); |
|
|
check_arg(0); |
|
|
vs_top=sup; |
|
236 |
goto TTL; |
goto TTL; |
237 |
TTL:; |
TTL:; |
238 |
if(!(type_of(symbol_value(VV[2]))==t_cons)){ |
if(!(type_of((VV[2]->s.s_dbind))==t_cons)){ |
239 |
goto T87;} |
goto T87;} |
240 |
{object V56; |
{object V49; |
241 |
object V57; |
object V50; |
242 |
V56= symbol_value(VV[2]); |
V49= (VV[2]->s.s_dbind); |
243 |
V57= number_plus(car((V56)),small_fixnum(1)); |
V50= number_plus(CMPcar((V49)),small_fixnum(1)); |
244 |
if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56)); |
((V49))->c.c_car = (V50); |
245 |
((V56))->c.c_car = (V57); |
{object V51 = (V50); |
246 |
base[1]= (V57); |
VMR5(V51)}} |
|
vs_top=(vs_base=base+1)+1; |
|
|
return;} |
|
247 |
goto T87; |
goto T87; |
248 |
T87:; |
T87:; |
249 |
setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1))); |
(VV[2]->s.s_dbind)= number_plus((VV[2]->s.s_dbind),small_fixnum(1)); |
250 |
base[0]= symbol_value(VV[2]); |
{object V52 = (VV[2]->s.s_dbind); |
251 |
vs_top=(vs_base=base+0)+1; |
VMR5(V52)} |
252 |
return; |
base[0]=base[0]; |
253 |
|
return Cnil; |
254 |
} |
} |
255 |
/* local entry for function INLINE-ARGS */ |
/* local entry for function INLINE-ARGS */ |
256 |
|
|
257 |
static object LI6(object V59,object V58,object first,...) |
static object LI6(object V54,object V53,object first,...) |
258 |
{ |
{ |
259 |
va_list ap; |
va_list ap; |
260 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
261 |
bds_check; |
bds_check; |
262 |
{object V60; |
{object V55; |
263 |
object V61; |
object V56; |
264 |
object V62; |
object V57; |
265 |
va_start(ap,first); |
va_start(ap,first); |
266 |
if(narg <2) too_few_arguments(); |
V55= V54; |
267 |
V60= V59; |
V56= V53; |
|
V61= V58; |
|
268 |
narg = narg - 2; |
narg = narg - 2; |
269 |
if (narg <= 0) goto T93; |
if (narg <= 0) goto T93; |
270 |
else { |
else { |
271 |
V62= first;} |
V57= first;} |
272 |
--narg; goto T94; |
--narg; goto T94; |
273 |
goto T93; |
goto T93; |
274 |
T93:; |
T93:; |
275 |
V62= Cnil; |
V57= Cnil; |
276 |
goto T94; |
goto T94; |
277 |
T94:; |
T94:; |
278 |
{register object V63; |
{register object V58; |
279 |
register object V64; |
register object V59; |
280 |
V63= Cnil; |
V58= Cnil; |
281 |
V64= Cnil; |
V59= Cnil; |
282 |
{register object V65; |
{register object V60; |
283 |
object V66; |
object V61; |
284 |
V65= (V60); |
V60= (V55); |
285 |
V66= (V61); |
V61= (V56); |
286 |
goto T99; |
goto T99; |
287 |
T99:; |
T99:; |
288 |
if(!(endp_prop((V65)))){ |
if(!(((V60))==Cnil)){ |
289 |
goto T100;} |
goto T100;} |
290 |
{object V67 = reverse((V63)); |
{object V62 = reverse((V58)); |
291 |
VMR6(V67)} |
VMR6(V62)} |
292 |
goto T100; |
goto T100; |
293 |
T100:; |
T100:; |
294 |
{register object V68; |
{register object V63; |
295 |
register object V69; |
register object V64; |
296 |
V68= car((V65)); |
V63= CMPcar((V60)); |
297 |
V69= car((V66)); |
V64= CMPcar((V61)); |
298 |
{object V70= car((V68)); |
{object V65= CMPcar((V63)); |
299 |
if((V70!= VV[14]))goto T107; |
if((V65!= VV[14]))goto T107; |
300 |
{object V71; |
{object V66; |
301 |
V71= (*(LnkLI74))(caddr((V68)),(V69)); |
V66= (*(LnkLI74))(CMPcaddr((V63)),(V64)); |
302 |
V63= make_cons((V71),(V63)); |
V58= make_cons((V66),(V58)); |
303 |
goto T104;} |
goto T104;} |
304 |
goto T107; |
goto T107; |
305 |
T107:; |
T107:; |
306 |
if((V70!= VV[1]))goto T110; |
if((V65!= VV[1]))goto T110; |
307 |
if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){ |
if(((*(LnkLI75))(CMPcaaddr((V63)),CMPcdr((V60))))==Cnil){ |
308 |
goto T112;} |
goto T112;} |
309 |
V73= structure_ref(caaddr((V68)),VV[1],1); |
{register object x= STREF(object,CMPcaaddr((V63)),4),V67= (VV[3]->s.s_dbind); |
310 |
{register object x= /* INLINE-ARGS */V73,V72= symbol_value(VV[3]); |
while(V67!=Cnil) |
311 |
while(!endp(V72)) |
if(eql(x,V67->c.c_car)){ |
|
if(eql(x,V72->c.c_car)){ |
|
312 |
goto T117; |
goto T117; |
313 |
}else V72=V72->c.c_cdr; |
}else V67=V67->c.c_cdr; |
314 |
goto T115;} |
goto T115;} |
315 |
goto T117; |
goto T117; |
316 |
T117:; |
T117:; |
317 |
V74= structure_ref(caaddr((V68)),VV[1],1); |
if(!(((V64))==(STREF(object,CMPcaaddr((V63)),4)))){ |
|
if(!(((V69))==(/* INLINE-ARGS */V74))){ |
|
318 |
goto T115;} |
goto T115;} |
319 |
{object V75; |
{object V68; |
320 |
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
(VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1)); |
321 |
V75= symbol_value(VV[4]); |
V68= (VV[4]->s.s_dbind); |
322 |
princ_str("\n {",VV[5]); |
princ_str("\n {",VV[5]); |
323 |
V76= (*(LnkLI77))((V69)); |
V69= (*(LnkLI77))((V64)); |
324 |
(void)((*(LnkLI76))(/* INLINE-ARGS */V76)); |
(void)((*(LnkLI76))(/* INLINE-ARGS */V69)); |
325 |
princ_char(86,VV[5]); |
princ_char(86,VV[5]); |
326 |
(void)((*(LnkLI76))((V75))); |
(void)((*(LnkLI76))((V68))); |
327 |
princ_str("= V",VV[5]); |
princ_str("= V",VV[5]); |
328 |
V77= structure_ref(caaddr((V68)),VV[1],4); |
(void)((*(LnkLI76))(STREF(object,CMPcaaddr((V63)),16))); |
|
(void)((*(LnkLI76))(/* INLINE-ARGS */V77)); |
|
329 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
330 |
{object V78; |
{object V70; |
331 |
V78= list(3,VV[6],(V75),VV[7]); |
V70= list(3,VV[6],(V68),VV[7]); |
332 |
V63= make_cons((V78),(V63));} |
V58= make_cons((V70),(V58));} |
333 |
vs_base=vs_top; |
(void)((*(LnkLI78))()); |
|
(void) (*Lnk78)(); |
|
|
vs_top=sup; |
|
334 |
goto T104;} |
goto T104;} |
335 |
goto T115; |
goto T115; |
336 |
T115:; |
T115:; |
337 |
{object V79; |
{object V71; |
338 |
V79= (*(LnkLI79))(); |
V71= (*(LnkLI79))(); |
339 |
princ_str("\n ",VV[5]); |
princ_str("\n ",VV[5]); |
340 |
(void)((*(LnkLI76))((V79))); |
(void)((*(LnkLI76))((V71))); |
341 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
342 |
(void)((*(LnkLI80))(caaddr((V68)),cadr(caddr((V68))))); |
(void)((*(LnkLI80))(CMPcaaddr((V63)),CMPcadr(CMPcaddr((V63))))); |
343 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
344 |
{object V80; |
{object V72; |
345 |
V80= (*(LnkLI74))((V79),(V69)); |
V72= (*(LnkLI74))((V71),(V64)); |
346 |
V63= make_cons((V80),(V63)); |
V58= make_cons((V72),(V58)); |
347 |
goto T104;}} |
goto T104;}} |
348 |
goto T112; |
goto T112; |
349 |
T112:; |
T112:; |
350 |
V82= structure_ref(caaddr((V68)),VV[1],1); |
{register object x= STREF(object,CMPcaaddr((V63)),4),V73= VV[8]; |
351 |
{register object x= /* INLINE-ARGS */V82,V81= VV[8]; |
while(V73!=Cnil) |
352 |
while(!endp(V81)) |
if(eql(x,V73->c.c_car)){ |
|
if(eql(x,V81->c.c_car)){ |
|
353 |
goto T145; |
goto T145; |
354 |
}else V81=V81->c.c_cdr; |
}else V73=V73->c.c_cdr; |
355 |
goto T143;} |
goto T143;} |
356 |
goto T145; |
goto T145; |
357 |
T145:; |
T145:; |
358 |
V83= structure_ref(caaddr((V68)),VV[1],1); |
if(((V64))==(STREF(object,CMPcaaddr((V63)),4))){ |
|
if(((V69))==(/* INLINE-ARGS */V83)){ |
|
359 |
goto T143;} |
goto T143;} |
360 |
{object V84; |
{object V74; |
361 |
V84= (VFUN_NARGS=1,(*(LnkLI81))((V69))); |
V74= (VFUN_NARGS=1,(*(LnkLI81))((V64))); |
362 |
princ_str("\n V",VV[5]); |
princ_str("\n V",VV[5]); |
363 |
(void)((*(LnkLI76))((V84))); |
(void)((*(LnkLI76))((V74))); |
364 |
princ_str(" = ",VV[5]); |
princ_str(" = ",VV[5]); |
365 |
V85= make_cons(VV[1],caddr((V68))); |
V75= make_cons(VV[1],CMPcaddr((V63))); |
366 |
V86= (*(LnkLI74))(/* INLINE-ARGS */V85,(V69)); |
V76= (*(LnkLI74))(/* INLINE-ARGS */V75,(V64)); |
367 |
(void)((*(LnkLI76))(/* INLINE-ARGS */V86)); |
(void)((*(LnkLI76))(/* INLINE-ARGS */V76)); |
368 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
369 |
{object V87; |
{object V77; |
370 |
V87= list(2,VV[6],(V84)); |
V77= list(2,VV[6],(V74)); |
371 |
V63= make_cons((V87),(V63)); |
V58= make_cons((V77),(V58)); |
372 |
goto T104;}} |
goto T104;}} |
373 |
goto T143; |
goto T143; |
374 |
T143:; |
T143:; |
375 |
{object V88; |
{object V78; |
376 |
V89= make_cons(VV[1],caddr((V68))); |
V79= make_cons(VV[1],CMPcaddr((V63))); |
377 |
V88= (*(LnkLI74))(/* INLINE-ARGS */V89,(V69)); |
V78= (*(LnkLI74))(/* INLINE-ARGS */V79,(V64)); |
378 |
V63= make_cons((V88),(V63)); |
V58= make_cons((V78),(V58)); |
379 |
goto T104;} |
goto T104;} |
380 |
goto T110; |
goto T110; |
381 |
T110:; |
T110:; |
382 |
if((V70!= VV[82]))goto T158; |
if((V65!= VV[82]))goto T158; |
383 |
{object V90; |
{object V80; |
384 |
V90= caddr((V68)); |
V80= CMPcaddr((V63)); |
385 |
if(((*(LnkLI83))((V90)))!=Cnil){ |
if(((*(LnkLI83))((V80)))!=Cnil){ |
386 |
goto T163;} |
goto T163;} |
387 |
goto T160; |
goto T160; |
388 |
goto T163; |
goto T163; |
389 |
T163:; |
T163:; |
390 |
V91= cadddr((V68)); |
V59= (*(LnkLI84))((V80),CMPcadddr((V63)),STREF(object,CMPcadr((V63)),8)); |
391 |
V92= structure_ref(cadr((V68)),VV[0],2); |
if(((V59))!=Cnil){ |
|
V64= (*(LnkLI84))((V90),/* INLINE-ARGS */V91,/* INLINE-ARGS */V92); |
|
|
if(((V64))!=Cnil){ |
|
392 |
goto T165;} |
goto T165;} |
393 |
goto T160; |
goto T160; |
394 |
goto T165; |
goto T165; |
395 |
T165:; |
T165:; |
396 |
base[0]= (V64); |
(void)((*(LnkLI85))((V59)));} |
397 |
vs_top=(vs_base=base+0)+1; |
{register object V81; |
398 |
(void) (*Lnk85)(); |
V81= (*(LnkLI86))((V59),CMPcadddr((V63))); |
|
vs_top=sup;} |
|
|
{register object V93; |
|
|
V93= (*(LnkLI86))((V64),cadddr((V68))); |
|
399 |
base[0]= small_fixnum(0); |
base[0]= small_fixnum(0); |
400 |
base[1]= caddr((V64)); |
base[1]= CMPcaddr((V59)); |
401 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
402 |
Llogbitp(); |
Llogbitp(); |
403 |
vs_top=sup; |
vs_top=sup; |
404 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
|
goto T173;} |
|
|
if((symbol_value(VV[9]))==Cnil){ |
|
|
goto T171;} |
|
|
goto T173; |
|
|
T173:; |
|
|
{register object x= cadr((V64)),V94= VV[10]; |
|
|
while(!endp(V94)) |
|
|
if(eql(x,V94->c.c_car)){ |
|
|
goto T180; |
|
|
}else V94=V94->c.c_cdr; |
|
|
goto T172;} |
|
|
goto T180; |
|
|
T180:; |
|
|
if(((V69))==(cadr((V64)))){ |
|
405 |
goto T172;} |
goto T172;} |
406 |
goto T171; |
if(((VV[9]->s.s_dbind))==Cnil){ |
407 |
T171:; |
goto T170;} |
408 |
{object V95; |
goto T172; |
409 |
V95= (VFUN_NARGS=1,(*(LnkLI81))((V69))); |
T172:; |
410 |
|
{register object x= CMPcadr((V59)),V82= VV[10]; |
411 |
|
while(V82!=Cnil) |
412 |
|
if(eql(x,V82->c.c_car)){ |
413 |
|
goto T179; |
414 |
|
}else V82=V82->c.c_cdr; |
415 |
|
goto T171;} |
416 |
|
goto T179; |
417 |
|
T179:; |
418 |
|
if(((V64))==(CMPcadr((V59)))){ |
419 |
|
goto T171;} |
420 |
|
goto T170; |
421 |
|
T170:; |
422 |
|
{object V83; |
423 |
|
V83= (VFUN_NARGS=1,(*(LnkLI81))((V64))); |
424 |
princ_str("\n V",VV[5]); |
princ_str("\n V",VV[5]); |
425 |
(void)((*(LnkLI76))((V95))); |
(void)((*(LnkLI76))((V83))); |
426 |
princ_str(" = ",VV[5]); |
princ_str(" = ",VV[5]); |
427 |
V96= (*(LnkLI74))((V93),(V69)); |
V84= (*(LnkLI74))((V81),(V64)); |
428 |
(void)((*(LnkLI76))(/* INLINE-ARGS */V96)); |
(void)((*(LnkLI76))(/* INLINE-ARGS */V84)); |
429 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
430 |
{object V97; |
{object V85; |
431 |
V97= list(2,VV[6],(V95)); |
V85= list(2,VV[6],(V83)); |
432 |
V63= make_cons((V97),(V63)); |
V58= make_cons((V85),(V58)); |
433 |
goto T104;}} |
goto T104;}} |
434 |
goto T172; |
goto T171; |
435 |
T172:; |
T171:; |
436 |
if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){ |
if(((*(LnkLI87))(CMPcdr((V60)),CMPcdr((V61))))!=Cnil){ |
437 |
goto T191;} |
goto T190;} |
438 |
base[0]= small_fixnum(0); |
base[0]= small_fixnum(0); |
439 |
base[1]= caddr((V64)); |
base[1]= CMPcaddr((V59)); |
440 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
441 |
Llogbitp(); |
Llogbitp(); |
442 |
vs_top=sup; |
vs_top=sup; |
443 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
444 |
goto T195;} |
goto T194;} |
445 |
if(((V62))==Cnil){ |
if(((V57))==Cnil){ |
446 |
goto T191;} |
goto T190;} |
447 |
{register object x= (V62),V98= VV[11]; |
{register object x= (V57),V86= VV[11]; |
448 |
while(!endp(V98)) |
while(V86!=Cnil) |
449 |
if(x==(V98->c.c_car)){ |
if(x==(V86->c.c_car)){ |
450 |
goto T202; |
goto T201; |
451 |
}else V98=V98->c.c_cdr; |
}else V86=V86->c.c_cdr; |
452 |
goto T191;} |
goto T190;} |
453 |
goto T202; |
goto T201; |
454 |
T202:; |
T201:; |
455 |
goto T195; |
goto T194; |
456 |
T195:; |
T194:; |
457 |
base[0]= small_fixnum(4); |
base[0]= small_fixnum(4); |
458 |
base[1]= caddr((V64)); |
base[1]= CMPcaddr((V59)); |
459 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
460 |
Llogbitp(); |
Llogbitp(); |
461 |
vs_top=sup; |
vs_top=sup; |
462 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
463 |
goto T191;} |
goto T190;} |
464 |
base[0]= small_fixnum(1); |
base[0]= small_fixnum(1); |
465 |
base[1]= caddr((V64)); |
base[1]= CMPcaddr((V59)); |
466 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
467 |
Llogbitp(); |
Llogbitp(); |
468 |
vs_top=sup; |
vs_top=sup; |
469 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
470 |
goto T192;} |
goto T191;} |
471 |
if((cdr((V65)))==Cnil){ |
if((CMPcdr((V60)))==Cnil){ |
472 |
goto T192;} |
goto T191;} |
473 |
goto T191; |
goto T190; |
474 |
T191:; |
T190:; |
475 |
{object V99; |
{object V87; |
476 |
V99= Cnil; |
V87= Cnil; |
477 |
if(!(((V69))==(Ct))){ |
if(!(((V64))==(Ct))){ |
478 |
goto T214;} |
goto T213;} |
479 |
V99= (VFUN_NARGS=0,(*(LnkLI81))()); |
V87= (VFUN_NARGS=0,(*(LnkLI81))()); |
480 |
princ_str("\n V",VV[5]); |
princ_str("\n V",VV[5]); |
481 |
(void)((*(LnkLI76))((V99))); |
(void)((*(LnkLI76))((V87))); |
482 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
483 |
base[0]= (V93); |
base[0]= (V81); |
484 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
485 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
486 |
vs_top=sup; |
vs_top=sup; |
487 |
goto T212; |
goto T211; |
488 |
goto T214; |
goto T213; |
489 |
T214:; |
T213:; |
490 |
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
(VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1)); |
491 |
V99= symbol_value(VV[4]); |
V87= (VV[4]->s.s_dbind); |
492 |
princ_str("\n {",VV[5]); |
princ_str("\n {",VV[5]); |
493 |
V100= (*(LnkLI77))((V69)); |
V88= (*(LnkLI77))((V64)); |
494 |
(void)((*(LnkLI76))(/* INLINE-ARGS */V100)); |
(void)((*(LnkLI76))(/* INLINE-ARGS */V88)); |
495 |
princ_char(86,VV[5]); |
princ_char(86,VV[5]); |
496 |
(void)((*(LnkLI76))((V99))); |
(void)((*(LnkLI76))((V87))); |
497 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
498 |
{object V101= (V69); |
{object V89= (V64); |
499 |
if((V101!= VV[45]))goto T233; |
if((V89!= VV[45]))goto T232; |
500 |
base[0]= (V93); |
base[0]= (V81); |
501 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
502 |
(void) (*Lnk89)(); |
(void) (*Lnk89)(); |
503 |
vs_top=sup; |
vs_top=sup; |
504 |
|
goto T231; |
505 |
goto T232; |
goto T232; |
506 |
goto T233; |
T232:; |
507 |
T233:; |
if((V89!= VV[40]))goto T234; |
508 |
if((V101!= VV[40]))goto T235; |
(void)((VFUN_NARGS=2,(*(LnkLI90))((V81),VV[7]))); |
509 |
base[0]= (V93); |
goto T231; |
510 |
base[1]= VV[7]; |
goto T234; |
511 |
vs_top=(vs_base=base+0)+2; |
T234:; |
512 |
(void) (*Lnk90)(); |
if((V89!= VV[72]))goto T235; |
513 |
vs_top=sup; |
base[0]= (V81); |
|
goto T232; |
|
|
goto T235; |
|
|
T235:; |
|
|
if((V101!= VV[72]))goto T238; |
|
|
base[0]= (V93); |
|
514 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
515 |
(void) (*Lnk91)(); |
(void) (*Lnk91)(); |
516 |
vs_top=sup; |
vs_top=sup; |
517 |
goto T232; |
goto T231; |
518 |
goto T238; |
goto T235; |
519 |
T238:; |
T235:; |
520 |
if((V101!= VV[46]))goto T240; |
if((V89!= VV[46]))goto T237; |
521 |
base[0]= (V93); |
base[0]= (V81); |
522 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
523 |
(void) (*Lnk92)(); |
(void) (*Lnk92)(); |
524 |
vs_top=sup; |
vs_top=sup; |
525 |
goto T232; |
goto T231; |
526 |
goto T240; |
goto T237; |
527 |
T240:; |
T237:; |
528 |
if((V101!= VV[47]))goto T242; |
if((V89!= VV[47]))goto T239; |
529 |
base[0]= (V93); |
base[0]= (V81); |
530 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
531 |
(void) (*Lnk93)(); |
(void) (*Lnk93)(); |
532 |
vs_top=sup; |
vs_top=sup; |
533 |
goto T232; |
goto T231; |
534 |
goto T242; |
goto T239; |
535 |
T242:; |
T239:; |
536 |
base[0]= (V93); |
base[0]= (V81); |
537 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
538 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
539 |
vs_top=sup;} |
vs_top=sup;} |
540 |
goto T232; |
goto T231; |
541 |
T232:; |
T231:; |
542 |
vs_base=vs_top; |
(void)((*(LnkLI78))()); |
543 |
(void) (*Lnk78)(); |
goto T211; |
544 |
vs_top=sup; |
T211:; |
|
goto T212; |
|
|
T212:; |
|
545 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
546 |
{object V102; |
{object V90; |
547 |
V102= list(3,VV[6],(V99),VV[7]); |
V90= list(3,VV[6],(V87),VV[7]); |
548 |
V63= make_cons((V102),(V63)); |
V58= make_cons((V90),(V58)); |
549 |
goto T104;}} |
goto T104;}} |
550 |
goto T192; |
goto T191; |
551 |
T192:; |
T191:; |
552 |
{object V103; |
{object V91; |
553 |
V103= (*(LnkLI74))((V93),(V69)); |
V91= (*(LnkLI74))((V81),(V64)); |
554 |
V63= make_cons((V103),(V63)); |
V58= make_cons((V91),(V58)); |
555 |
goto T104;}} |
goto T104;}} |
556 |
goto T160; |
goto T160; |
557 |
T160:; |
T160:; |
558 |
{object V104; |
{object V92; |
559 |
if((symbol_value(VV[9]))==Cnil){ |
if(((VV[9]->s.s_dbind))==Cnil){ |
560 |
goto T253;} |
goto T250;} |
561 |
V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); |
V92= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); |
562 |
goto T251; |
goto T248; |
563 |
goto T253; |
goto T250; |
564 |
T253:; |
T250:; |
565 |
V104= list(2,VV[12],(*(LnkLI94))()); |
V92= list(2,VV[12],(*(LnkLI94))()); |
566 |
goto T251; |
goto T248; |
567 |
T251:; |
T248:; |
568 |
bds_bind(VV[13],(V104)); |
bds_bind(VV[13],(V92)); |
569 |
V105= (*(LnkLI95))((V68)); |
V93= (*(LnkLI95))((V63)); |
570 |
bds_unwind1; |
bds_unwind1; |
571 |
{object V106; |
{object V94; |
572 |
V106= (*(LnkLI74))((V104),(V69)); |
V94= (*(LnkLI74))((V92),(V64)); |
573 |
V63= make_cons((V106),(V63)); |
V58= make_cons((V94),(V58)); |
574 |
goto T104;}} |
goto T104;}} |
575 |
goto T158; |
goto T158; |
576 |
T158:; |
T158:; |
577 |
if((V70!= VV[96]))goto T258; |
if((V65!= VV[96]))goto T255; |
578 |
{object V107; |
{object V95; |
579 |
V107= (*(LnkLI97))(cdr((V68)),(V69)); |
V95= (*(LnkLI97))(CMPcdr((V63)),(V64)); |
580 |
V63= make_cons((V107),(V63)); |
V58= make_cons((V95),(V58)); |
581 |
goto T104;} |
goto T104;} |
582 |
goto T258; |
goto T255; |
583 |
T258:; |
T255:; |
584 |
if((V70!= VV[98]))goto T261; |
if((V65!= VV[98]))goto T258; |
585 |
{object V108; |
{object V96; |
586 |
object V109; |
object V97; |
587 |
V108= caddr((V68)); |
V96= CMPcaddr((V63)); |
588 |
V109= cadddr((V68)); |
V97= CMPcadddr((V63)); |
589 |
base[0]= make_cons(VV[1],(V108)); |
base[0]= make_cons(VV[1],(V96)); |
590 |
bds_bind(VV[13],base[0]); |
bds_bind(VV[13],base[0]); |
591 |
V110= (*(LnkLI95))((V109)); |
V98= (*(LnkLI95))((V97)); |
592 |
bds_unwind1; |
bds_unwind1; |
593 |
if(!((car((V109)))==(VV[14]))){ |
if(!((CMPcar((V97)))==(VV[14]))){ |
594 |
goto T267;} |
goto T264;} |
595 |
{object V111; |
{object V99; |
596 |
V111= (*(LnkLI74))(caddr((V109)),(V69)); |
V99= (*(LnkLI74))(CMPcaddr((V97)),(V64)); |
597 |
V63= make_cons((V111),(V63)); |
V58= make_cons((V99),(V58)); |
598 |
goto T104;} |
goto T104;} |
599 |
goto T267; |
goto T264; |
600 |
T267:; |
T264:; |
601 |
V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65))); |
V60= listA(3,(V63),list(3,VV[1],CMPcadr((V63)),(V96)),CMPcdr((V60))); |
602 |
V66= make_cons((V69),(V66)); |
V61= make_cons((V64),(V61)); |
603 |
goto T104;} |
goto T104;} |
604 |
goto T261; |
goto T258; |
605 |
T261:; |
T258:; |
606 |
{object V112; |
{object V100; |
607 |
if((symbol_value(VV[9]))==Cnil){ |
if(((VV[9]->s.s_dbind))==Cnil){ |
608 |
|
goto T273;} |
609 |
|
if(!(((V64))==(Ct))){ |
610 |
goto T276;} |
goto T276;} |
611 |
if(!(((V69))==(Ct))){ |
V100= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); |
612 |
goto T279;} |
goto T271; |
613 |
V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); |
goto T276; |
614 |
goto T274; |
T276:; |
615 |
goto T279; |
{object V101; |
616 |
T279:; |
(VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1)); |
617 |
{object V113; |
V101= make_cons((V64),(VV[4]->s.s_dbind)); |
618 |
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
(VV[15]->s.s_dbind)= make_cons((V101),(VV[15]->s.s_dbind));} |
619 |
V113= make_cons((V69),symbol_value(VV[4])); |
{register object x= (V64),V103= (VV[3]->s.s_dbind); |
620 |
setq(VV[15],make_cons((V113),symbol_value(VV[15])));} |
while(V103!=Cnil) |
621 |
{register object x= (V69),V115= symbol_value(VV[3]); |
if(eql(x,V103->c.c_car)){ |
|
while(!endp(V115)) |
|
|
if(eql(x,V115->c.c_car)){ |
|
|
goto T288; |
|
|
}else V115=V115->c.c_cdr; |
|
|
goto T287;} |
|
|
goto T288; |
|
|
T288:; |
|
|
V114= (V69); |
|
622 |
goto T285; |
goto T285; |
623 |
goto T287; |
}else V103=V103->c.c_cdr; |
624 |
T287:; |
goto T284;} |
|
V114= VV[18]; |
|
625 |
goto T285; |
goto T285; |
626 |
T285:; |
T285:; |
627 |
V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15])))); |
V102= (V64); |
628 |
V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil); |
goto T282; |
629 |
goto T274; |
goto T284; |
630 |
goto T276; |
T284:; |
631 |
T276:; |
V102= VV[18]; |
632 |
V112= list(2,VV[12],(*(LnkLI94))()); |
goto T282; |
633 |
goto T274; |
T282:; |
634 |
T274:; |
V104= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V64),VV[17],V102,VV[19],CMPcdar((VV[15]->s.s_dbind)))); |
635 |
bds_bind(VV[13],(V112)); |
V100= list(3,VV[1],/* INLINE-ARGS */V104,Cnil); |
636 |
(void)((*(LnkLI95))((V68))); |
goto T271; |
637 |
{object V117; |
goto T273; |
638 |
V117= (*(LnkLI74))((V112),(V69)); |
T273:; |
639 |
V63= make_cons((V117),(V63)); |
V100= list(2,VV[12],(*(LnkLI94))()); |
640 |
|
goto T271; |
641 |
|
T271:; |
642 |
|
bds_bind(VV[13],(V100)); |
643 |
|
(void)((*(LnkLI95))((V63))); |
644 |
|
{object V105; |
645 |
|
V105= (*(LnkLI74))((V100),(V64)); |
646 |
|
V58= make_cons((V105),(V58)); |
647 |
bds_unwind1;}}}} |
bds_unwind1;}}}} |
648 |
goto T104; |
goto T104; |
649 |
T104:; |
T104:; |
650 |
V65= cdr((V65)); |
V60= CMPcdr((V60)); |
651 |
V66= cdr((V66)); |
V61= CMPcdr((V61)); |
652 |
goto T99;}} |
goto T99;}} |
653 |
va_end(ap); |
va_end(ap); |
654 |
base[0]=base[0]; |
base[0]=base[0]; |
656 |
} |
} |
657 |
/* local entry for function COERCE-LOC */ |
/* local entry for function COERCE-LOC */ |
658 |
|
|
659 |
static object LI7(V120,V121) |
static object LI7(V108,V109) |
660 |
|
|
661 |
register object V120;object V121; |
register object V108;object V109; |
662 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
663 |
goto TTL; |
goto TTL; |
664 |
TTL:; |
TTL:; |
665 |
{object V122= (V121); |
{object V110= (V109); |
666 |
if((V122!= VV[45]))goto T296; |
if((V110!= VV[45]))goto T293; |
667 |
{object V123 = list(2,VV[20],(V120)); |
{object V111 = list(2,VV[20],(V108)); |
668 |
VMR7(V123)} |
VMR7(V111)} |
669 |
|
goto T293; |
670 |
|
T293:; |
671 |
|
if((V110!= VV[40]))goto T294; |
672 |
|
{object V112 = list(2,VV[21],(V108)); |
673 |
|
VMR7(V112)} |
674 |
|
goto T294; |
675 |
|
T294:; |
676 |
|
if((V110!= VV[72]))goto T295; |
677 |
|
{object V113 = list(2,VV[22],(V108)); |
678 |
|
VMR7(V113)} |
679 |
|
goto T295; |
680 |
|
T295:; |
681 |
|
if((V110!= VV[46]))goto T296; |
682 |
|
{object V114 = list(2,VV[23],(V108)); |
683 |
|
VMR7(V114)} |
684 |
goto T296; |
goto T296; |
685 |
T296:; |
T296:; |
686 |
if((V122!= VV[40]))goto T297; |
if((V110!= VV[47]))goto T297; |
687 |
{object V124 = list(2,VV[21],(V120)); |
{object V115 = list(2,VV[24],(V108)); |
688 |
VMR7(V124)} |
VMR7(V115)} |
689 |
goto T297; |
goto T297; |
690 |
T297:; |
T297:; |
691 |
if((V122!= VV[72]))goto T298; |
{object V116 = (V108); |
692 |
{object V125 = list(2,VV[22],(V120)); |
VMR7(V116)}} |
|
VMR7(V125)} |
|
|
goto T298; |
|
|
T298:; |
|
|
if((V122!= VV[46]))goto T299; |
|
|
{object V126 = list(2,VV[23],(V120)); |
|
|
VMR7(V126)} |
|
|
goto T299; |
|
|
T299:; |
|
|
if((V122!= VV[47]))goto T300; |
|
|
{object V127 = list(2,VV[24],(V120)); |
|
|
VMR7(V127)} |
|
|
goto T300; |
|
|
T300:; |
|
|
{object V128 = (V120); |
|
|
VMR7(V128)}} |
|
693 |
return Cnil; |
return Cnil; |
694 |
} |
} |
695 |
/* local entry for function GET-INLINE-LOC */ |
/* local entry for function GET-INLINE-LOC */ |
696 |
|
|
697 |
static object LI8(V131,V132) |
static object LI8(V119,V120) |
698 |
|
|
699 |
object V131;object V132; |
object V119;object V120; |
700 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
701 |
goto TTL; |
goto TTL; |
702 |
TTL:; |
TTL:; |
703 |
{object V133; |
{object V121; |
704 |
|
object V122; |
705 |
|
V121= CMPcar(CMPcdddr((V119))); |
706 |
|
V122= Cnil; |
707 |
|
V122= (VFUN_NARGS=3,(*(LnkLI7))((V120),CMPcar((V119)),(V121))); |
708 |
|
if(!(type_of((V121))==t_string)){ |
709 |
|
goto T302;} |
710 |
|
if(!((((V121))->ust.ust_self[0])==(64))){ |
711 |
|
goto T302;} |
712 |
|
{register long V123; |
713 |
|
object V124; |
714 |
|
V123= 1; |
715 |
|
V124= Cnil; |
716 |
|
{unsigned char V125; |
717 |
|
V125= ((V121))->ust.ust_self[V123]; |
718 |
|
goto T311; |
719 |
|
T311:; |
720 |
|
if(!((V125)==(59))){ |
721 |
|
goto T312;} |
722 |
|
V123= (long)(V123)+(1); |
723 |
|
goto T308; |
724 |
|
goto T312; |
725 |
|
T312:; |
726 |
|
{object V126; |
727 |
|
V126= CMPmake_fixnum((long)((long)(V125))-(48)); |
728 |
|
V124= make_cons((V126),(V124));} |
729 |
|
V123= (long)(V123)+(1); |
730 |
|
V125= ((V121))->ust.ust_self[V123]; |
731 |
|
goto T311;} |
732 |
|
goto T308; |
733 |
|
T308:; |
734 |
|
{object V127; |
735 |
|
long V128; |
736 |
|
register object V129; |
737 |
|
V128= 0; |
738 |
|
V127= (V122); |
739 |
|
V129= Cnil; |
740 |
|
goto T327; |
741 |
|
T327:; |
742 |
|
if(!(((V127))==Cnil)){ |
743 |
|
goto T328;} |
744 |
|
V122= reverse((V129)); |
745 |
|
goto T302; |
746 |
|
goto T328; |
747 |
|
T328:; |
748 |
|
V131 = CMPmake_fixnum(V128); |
749 |
|
{register object x= V131,V130= (V124); |
750 |
|
while(V130!=Cnil) |
751 |
|
if(eql(x,V130->c.c_car)){ |
752 |
|
goto T336; |
753 |
|
}else V130=V130->c.c_cdr; |
754 |
|
goto T335;} |
755 |
|
goto T336; |
756 |
|
T336:; |
757 |
|
{register object V132; |
758 |
|
register object V133; |
759 |
object V134; |
object V134; |
760 |
V133= car(cdddr((V131))); |
V132= CMPcar((V127)); |
761 |
|
V133= (V132); |
762 |
V134= Cnil; |
V134= Cnil; |
763 |
V134= (VFUN_NARGS=3,(*(LnkLI7))((V132),car((V131)),(V133))); |
if(!(type_of((V132))==t_cons)){ |
764 |
if(!(type_of((V133))==t_string)){ |
goto T340;} |
765 |
goto T305;} |
{register object x= CMPcar((V132)),V135= VV[27]; |
766 |
base[1]= elt((V133),0); |
while(V135!=Cnil) |
767 |
base[2]= VV[25]; |
if(eql(x,V135->c.c_car)){ |
768 |
vs_top=(vs_base=base+1)+2; |
goto T344; |
769 |
Lchar_eq(); |
}else V135=V135->c.c_cdr; |
770 |
vs_top=sup; |
goto T340;} |
771 |
if((vs_base[0])==Cnil){ |
goto T344; |
772 |
goto T305;} |
T344:; |
773 |
{register long V135; |
V134= CMPcar((V132)); |
774 |
object V136; |
V133= CMPcadr((V132)); |
775 |
V135= 1; |
goto T340; |
776 |
V136= Cnil; |
T340:; |
777 |
{unsigned char V137; |
if(!(type_of((V133))==t_cons)){ |
778 |
V137= char_code(elt((V133),V135)); |
goto T349;} |
779 |
goto T316; |
{register object x= CMPcar((V133)),V136= VV[28]; |
780 |
T316:; |
while(V136!=Cnil) |
781 |
base[1]= code_char(V137); |
if(eql(x,V136->c.c_car)){ |
782 |
base[2]= VV[26]; |
goto T348; |
783 |
vs_top=(vs_base=base+1)+2; |
}else V136=V136->c.c_cdr;} |
784 |
Lchar_eq(); |
{register object x= CMPcar((V133)),V137= VV[29]; |
785 |
vs_top=sup; |
while(V137!=Cnil) |
786 |
if((vs_base[0])==Cnil){ |
if(eql(x,V137->c.c_car)){ |
|
goto T317;} |
|
|
V135= (long)(V135)+(1); |
|
|
goto T313; |
|
|
goto T317; |
|
|
T317:; |
|
|
{object V138; |
|
|
V138= make_fixnum((long)((long)(V137))-(48)); |
|
|
V136= make_cons((V138),(V136));} |
|
|
V135= (long)(V135)+(1); |
|
|
V137= char_code(elt((V133),V135)); |
|
|
goto T316;} |
|
|
goto T313; |
|
|
T313:; |
|
|
{object V139; |
|
|
long V140; |
|
|
register object V141; |
|
|
V140= 0; |
|
|
V139= (V134); |
|
|
V141= Cnil; |
|
|
goto T334; |
|
|
T334:; |
|
|
if(!(endp_prop((V139)))){ |
|
|
goto T335;} |
|
|
V134= reverse((V141)); |
|
|
goto T305; |
|
|
goto T335; |
|
|
T335:; |
|
|
V143 = make_fixnum(V140); |
|
|
{register object x= V143,V142= (V136); |
|
|
while(!endp(V142)) |
|
|
if(eql(x,V142->c.c_car)){ |
|
|
goto T343; |
|
|
}else V142=V142->c.c_cdr; |
|
|
goto T342;} |
|
|
goto T343; |
|
|
T343:; |
|
|
{register object V144; |
|
|
register object V145; |
|
|
object V146; |
|
|
V144= car((V139)); |
|
|
V145= (V144); |
|
|
V146= Cnil; |
|
|
if(!(type_of((V144))==t_cons)){ |
|
|
goto T347;} |
|
|
{register object x= car((V144)),V147= VV[27]; |
|
|
while(!endp(V147)) |
|
|
if(eql(x,V147->c.c_car)){ |
|
|
goto T351; |
|
|
}else V147=V147->c.c_cdr; |
|
|
goto T347;} |
|
|
goto T351; |
|
|
T351:; |
|
|
V146= car((V144)); |
|
|
V145= cadr((V144)); |
|
|
goto T347; |
|
|
T347:; |
|
|
if(!(type_of((V145))==t_cons)){ |
|
|
goto T356;} |
|
|
{register object x= car((V145)),V148= VV[28]; |
|
|
while(!endp(V148)) |
|
|
if(eql(x,V148->c.c_car)){ |
|
787 |
goto T355; |
goto T355; |
788 |
}else V148=V148->c.c_cdr;} |
}else V137=V137->c.c_cdr; |
789 |
{register object x= car((V145)),V149= VV[29]; |
goto T349;} |
790 |
while(!endp(V149)) |
goto T355; |
791 |
if(eql(x,V149->c.c_car)){ |
T355:; |
|
goto T362; |
|
|
}else V149=V149->c.c_cdr; |
|
|
goto T356;} |
|
|
goto T362; |
|
|
T362:; |
|
792 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
793 |
base[3]= cadr((V145)); |
base[3]= CMPcadr((V133)); |
794 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
795 |
Llogbitp(); |
Llogbitp(); |
796 |
vs_top=sup; |
vs_top=sup; |
797 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
798 |
goto T355;} |
goto T348;} |
799 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
800 |
base[3]= cadr((V145)); |
base[3]= CMPcadr((V133)); |
801 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
802 |
Llogbitp(); |
Llogbitp(); |
803 |
vs_top=sup; |
vs_top=sup; |
804 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
805 |
goto T356;} |
goto T349;} |
806 |
goto T355; |
goto T348; |
807 |
T355:; |
T348:; |
808 |
princ_str("\n {",VV[5]); |
princ_str("\n {",VV[5]); |
809 |
vs_base=vs_top; |
(void)((*(LnkLI78))()); |
810 |
(void) (*Lnk78)(); |
{register object V138; |
811 |
vs_top=sup; |
(VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1)); |
812 |
{register object V150; |
V138= (VV[4]->s.s_dbind); |
813 |
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
{object V139; |
814 |
V150= symbol_value(VV[4]); |
V139= list(2,VV[6],(V138)); |
815 |
{object V151; |
V129= make_cons((V139),(V129));} |
816 |
V151= list(2,VV[6],(V150)); |
{object V140= (V134); |
817 |
V141= make_cons((V151),(V141));} |
if((V140!= Cnil))goto T372; |
|
{object V152= (V146); |
|
|
if((V152!= Cnil))goto T379; |
|
818 |
princ_str("object V",VV[5]); |
princ_str("object V",VV[5]); |
819 |
(void)((*(LnkLI76))((V150))); |
(void)((*(LnkLI76))((V138))); |
820 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
821 |
base[2]= (V144); |
base[2]= (V132); |
822 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
823 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
824 |
vs_top=sup; |
vs_top=sup; |
825 |
goto T373; |
goto T366; |
826 |
goto T379; |
goto T372; |
827 |
T379:; |
T372:; |
828 |
if((V152!= VV[20]))goto T385; |
if((V140!= VV[20]))goto T378; |
829 |
princ_str("int V",VV[5]); |
princ_str("int V",VV[5]); |
830 |
(void)((*(LnkLI76))((V150))); |
(void)((*(LnkLI76))((V138))); |
831 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
832 |
base[2]= (V145); |
base[2]= (V133); |
833 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
834 |
(void) (*Lnk89)(); |
(void) (*Lnk89)(); |
835 |
vs_top=sup; |
vs_top=sup; |
836 |
goto T373; |
goto T366; |
837 |
goto T385; |
goto T378; |
838 |
T385:; |
T378:; |
839 |
if((V152!= VV[21]))goto T391; |
if((V140!= VV[21]))goto T384; |
840 |
princ_str("GEN V",VV[5]); |
princ_str("GEN V",VV[5]); |
841 |
(void)((*(LnkLI76))((V150))); |
(void)((*(LnkLI76))((V138))); |
842 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
843 |
base[2]= (V145); |
(void)((VFUN_NARGS=2,(*(LnkLI90))((V133),VV[30]))); |
844 |
base[3]= VV[30]; |
goto T366; |
845 |
vs_top=(vs_base=base+2)+2; |
goto T384; |
846 |
(void) (*Lnk90)(); |
T384:; |
847 |
vs_top=sup; |
if((V140!= VV[22]))goto T389; |
|
goto T373; |
|
|
goto T391; |
|
|
T391:; |
|
|
if((V152!= VV[22]))goto T398; |
|
848 |
princ_str("unsigned char V",VV[5]); |
princ_str("unsigned char V",VV[5]); |
849 |
(void)((*(LnkLI76))((V150))); |
(void)((*(LnkLI76))((V138))); |
850 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
851 |
base[2]= (V145); |
base[2]= (V133); |
852 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
853 |
(void) (*Lnk91)(); |
(void) (*Lnk91)(); |
854 |
vs_top=sup; |
vs_top=sup; |
855 |
goto T373; |
goto T366; |
856 |
goto T398; |
goto T389; |
857 |
T398:; |
T389:; |
858 |
if((V152!= VV[23]))goto T404; |
if((V140!= VV[23]))goto T395; |
859 |
princ_str("double V",VV[5]); |
princ_str("double V",VV[5]); |
860 |
(void)((*(LnkLI76))((V150))); |
(void)((*(LnkLI76))((V138))); |
861 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
862 |
base[2]= (V145); |
base[2]= (V133); |
863 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
864 |
(void) (*Lnk92)(); |
(void) (*Lnk92)(); |
865 |
vs_top=sup; |
vs_top=sup; |
866 |
goto T373; |
goto T366; |
867 |
goto T404; |
goto T395; |
868 |
T404:; |
T395:; |
869 |
if((V152!= VV[24]))goto T410; |
if((V140!= VV[24]))goto T401; |
870 |
princ_str("float V",VV[5]); |
princ_str("float V",VV[5]); |
871 |
(void)((*(LnkLI76))((V150))); |
(void)((*(LnkLI76))((V138))); |
872 |
princ_str("= ",VV[5]); |
princ_str("= ",VV[5]); |
873 |
base[2]= (V145); |
base[2]= (V133); |
874 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
875 |
(void) (*Lnk93)(); |
(void) (*Lnk93)(); |
876 |
vs_top=sup; |
vs_top=sup; |
877 |
goto T373; |
goto T366; |
878 |
goto T410; |
goto T401; |
879 |
T410:; |
T401:; |
880 |
(void)((*(LnkLI100))());}} |
(void)((*(LnkLI100))());}} |
881 |
goto T373; |
goto T366; |
882 |
T373:; |
T366:; |
883 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
884 |
goto T340; |
goto T333; |
885 |
goto T356; |
goto T349; |
886 |
T356:; |
T349:; |
887 |
V141= make_cons(V144,(V141)); |
V129= make_cons(V132,(V129)); |
888 |
goto T340;} |
goto T333;} |
889 |
goto T342; |
goto T335; |
890 |
T342:; |
T335:; |
891 |
{object V154; |
{object V142; |
892 |
V154= car((V139)); |
V142= CMPcar((V127)); |
893 |
V141= make_cons((V154),(V141));} |
V129= make_cons((V142),(V129));} |
894 |
goto T340; |
goto T333; |
895 |
T340:; |
T333:; |
896 |
V139= cdr((V139)); |
V127= CMPcdr((V127)); |
897 |
V140= (long)(V140)+1; |
V128= (long)(V128)+1; |
898 |
goto T334;}} |
goto T327;}} |
899 |
goto T305; |
goto T302; |
900 |
T305:; |
T302:; |
901 |
V155= (*(LnkLI101))(cadr((V131))); |
V143= (*(LnkLI101))(CMPcadr((V119))); |
902 |
{object V156 = list(4,/* INLINE-ARGS */V155,caddr((V131)),(V133),(V134)); |
{object V144 = list(4,/* INLINE-ARGS */V143,CMPcaddr((V119)),(V121),(V122)); |
903 |
VMR8(V156)}} |
VMR8(V144)}} |
904 |
base[0]=base[0]; |
base[0]=base[0]; |
905 |
return Cnil; |
return Cnil; |
906 |
} |
} |
907 |
/* local entry for function INLINE-TYPE */ |
/* local entry for function INLINE-TYPE */ |
908 |
|
|
909 |
static object LI9(V158) |
static object LI9(V146) |
910 |
|
|
911 |
object V158; |
object V146; |
912 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
913 |
goto TTL; |
goto TTL; |
914 |
TTL:;{object V159; |
TTL:;{object V147; |
915 |
{register object x= (V158),V161= symbol_value(VV[31]); |
{register object x= (V146),V149= (VV[31]->s.s_dbind); |
916 |
while(!endp(V161)) |
while(V149!=Cnil) |
917 |
if(type_of(V161->c.c_car)==t_cons &&eql(x,V161->c.c_car->c.c_car)){ |
if(eql(x,V149->c.c_car->c.c_car) &&V149->c.c_car != Cnil){ |
918 |
V160= (V161->c.c_car); |
V148= (V149->c.c_car); |
919 |
goto T426; |
goto T417; |
920 |
}else V161=V161->c.c_cdr; |
}else V149=V149->c.c_cdr; |
921 |
V160= Cnil;} |
V148= Cnil;} |
922 |
goto T426; |
goto T417; |
923 |
T426:; |
T417:; |
924 |
V159= cdr(V160); |
V147= CMPcdr(V148); |
925 |
if(V159==Cnil)goto T424; |
if(V147==Cnil)goto T415; |
926 |
{object V162 = V159; |
{object V150 = V147; |
927 |
VMR9(V162)} |
VMR9(V150)} |
928 |
goto T424; |
goto T415; |
929 |
T424:;} |
T415:;} |
930 |
{object V163 = VV[32]; |
{object V151 = VV[32]; |
931 |
VMR9(V163)} |
VMR9(V151)} |
932 |
return Cnil; |
return Cnil; |
933 |
} |
} |
934 |
/* local entry for function GET-INLINE-INFO */ |
/* local entry for function GET-INLINE-INFO */ |
935 |
|
|
936 |
static object LI10(V167,V168,V169) |
static object LI10(V155,V156,V157) |
937 |
|
|
938 |
object V167;register object V168;object V169; |
object V155;register object V156;object V157; |
939 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
940 |
goto TTL; |
goto TTL; |
941 |
TTL:; |
TTL:; |
942 |
{register object V170; |
{register object V158; |
943 |
base[0]=MMcons(Cnil,Cnil); |
base[0]=MMcons(Cnil,Cnil); |
944 |
V170= Cnil; |
V158= Cnil; |
945 |
if(((VFUN_NARGS=2,(*(LnkLI102))((V167),(V168))))!=Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI102))((V155),(V156))))!=Cnil){ |
946 |
goto T429;} |
goto T420;} |
947 |
goto T428; |
goto T419; |
948 |
goto T429; |
goto T420; |
949 |
T429:; |
T420:; |
950 |
(void)((*(LnkLI103))((V167),(V169),(V168))); |
(void)((*(LnkLI103))((V155),(V157),(V156))); |
951 |
goto T428; |
goto T419; |
952 |
T428:; |
T419:; |
953 |
{object V171; |
{object V159; |
954 |
object V172= (V168); |
object V160= (V156); |
955 |
if(endp(V172)){ |
if(V160==Cnil){ |
956 |
V168= Cnil; |
V156= Cnil; |
957 |
goto T432;} |
goto T423;} |
958 |
base[1]=V171=MMcons(Cnil,Cnil); |
base[1]=V159=MMcons(Cnil,Cnil); |
959 |
goto T433; |
goto T424; |
960 |
T433:; |
T424:; |
961 |
(V171->c.c_car)= structure_ref(cadr((V172->c.c_car)),VV[0],2); |
(V159->c.c_car)= STREF(object,CMPcadr((V160->c.c_car)),8); |
962 |
V172=MMcdr(V172); |
if((V160=MMcdr(V160))==Cnil){ |
963 |
if(endp(V172)){ |
V156= base[1]; |
964 |
V168= base[1]; |
goto T423;} |
965 |
goto T432;} |
V159=MMcdr(V159)=MMcons(Cnil,Cnil); |
966 |
V171=MMcdr(V171)=MMcons(Cnil,Cnil); |
goto T424;} |
967 |
goto T433;} |
goto T423; |
968 |
|
T423:; |
969 |
|
if(((VV[33]->s.s_dbind))==Cnil){ |
970 |
|
goto T430;} |
971 |
|
{object V162 =((V155))->s.s_plist; |
972 |
|
object ind= VV[34]; |
973 |
|
while(V162!=Cnil){ |
974 |
|
if(V162->c.c_car==ind){ |
975 |
|
(base[0]->c.c_car)= (V162->c.c_cdr->c.c_car); |
976 |
|
goto T432; |
977 |
|
}else V162=V162->c.c_cdr->c.c_cdr;} |
978 |
|
(base[0]->c.c_car)= Cnil;} |
979 |
goto T432; |
goto T432; |
980 |
T432:; |
T432:; |
|
if((symbol_value(VV[33]))==Cnil){ |
|
|
goto T439;} |
|
|
(base[0]->c.c_car)= get((V167),VV[34],Cnil); |
|
981 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
982 |
goto T435;} |
goto T426;} |
983 |
goto T437; |
goto T428; |
984 |
goto T439; |
goto T430; |
985 |
T439:; |
T430:; |
986 |
(base[0]->c.c_car)= get((V167),VV[35],Cnil); |
{object V163 =((V155))->s.s_plist; |
987 |
|
object ind= VV[35]; |
988 |
|
while(V163!=Cnil){ |
989 |
|
if(V163->c.c_car==ind){ |
990 |
|
(base[0]->c.c_car)= (V163->c.c_cdr->c.c_car); |
991 |
|
goto T433; |
992 |
|
}else V163=V163->c.c_cdr->c.c_cdr;} |
993 |
|
(base[0]->c.c_car)= Cnil;} |
994 |
|
goto T433; |
995 |
|
T433:; |
996 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
997 |
goto T435;} |
goto T426;} |
998 |
|
goto T428; |
999 |
|
T428:; |
1000 |
|
{register object V164; |
1001 |
|
object V165; |
1002 |
|
V164= (base[0]->c.c_car); |
1003 |
|
V165= CMPcar((V164)); |
1004 |
goto T437; |
goto T437; |
1005 |
T437:; |
T437:; |
1006 |
{register object V174; |
if(!(((V164))==Cnil)){ |
1007 |
object V175; |
goto T438;} |
1008 |
V174= (base[0]->c.c_car); |
goto T426; |
1009 |
V175= car((V174)); |
goto T438; |
1010 |
goto T446; |
T438:; |
1011 |
T446:; |
V158= (*(LnkLI104))((V165),(V156),(V157)); |
1012 |
if(!(endp_prop((V174)))){ |
if(((V158))==Cnil){ |
1013 |
goto T447;} |
goto T442;} |
1014 |
goto T435; |
{object V166 = (V158); |
1015 |
goto T447; |
VMR10(V166)} |
1016 |
T447:; |
goto T442; |
1017 |
V170= (*(LnkLI104))((V175),(V168),(V169)); |
T442:; |
1018 |
if(((V170))==Cnil){ |
V164= CMPcdr((V164)); |
1019 |
|
V165= CMPcar((V164)); |
1020 |
|
goto T437;} |
1021 |
|
goto T426; |
1022 |
|
T426:; |
1023 |
|
{object V167 =((V155))->s.s_plist; |
1024 |
|
object ind= VV[36]; |
1025 |
|
while(V167!=Cnil){ |
1026 |
|
if(V167->c.c_car==ind){ |
1027 |
|
(base[0]->c.c_car)= (V167->c.c_cdr->c.c_car); |
1028 |
|
goto T454; |
1029 |
|
}else V167=V167->c.c_cdr->c.c_cdr;} |
1030 |
|
(base[0]->c.c_car)= Cnil;} |
1031 |
|
goto T454; |
1032 |
|
T454:; |
1033 |
|
if(((base[0]->c.c_car))==Cnil){ |
1034 |
goto T451;} |
goto T451;} |
1035 |
{object V176 = (V170); |
{register object V168; |
1036 |
VMR10(V176)} |
object V169; |
1037 |
|
V168= (base[0]->c.c_car); |
1038 |
|
V169= CMPcar((V168)); |
1039 |
|
goto T458; |
1040 |
|
T458:; |
1041 |
|
if(!(((V168))==Cnil)){ |
1042 |
|
goto T459;} |
1043 |
|
goto T451; |
1044 |
|
goto T459; |
1045 |
|
T459:; |
1046 |
|
V158= (*(LnkLI104))((V169),(V156),(V157)); |
1047 |
|
if(((V158))==Cnil){ |
1048 |
|
goto T463;} |
1049 |
|
{object V170 = (V158); |
1050 |
|
VMR10(V170)} |
1051 |
|
goto T463; |
1052 |
|
T463:; |
1053 |
|
V168= CMPcdr((V168)); |
1054 |
|
V169= CMPcar((V168)); |
1055 |
|
goto T458;} |
1056 |
goto T451; |
goto T451; |
1057 |
T451:; |
T451:; |
1058 |
V174= cdr((V174)); |
{register object V171; |
1059 |
V175= car((V174)); |
object V172; |
1060 |
goto T446;} |
V171= (VV[37]->s.s_dbind); |
1061 |
goto T435; |
V172= CMPcar((V171)); |
1062 |
T435:; |
goto T476; |
1063 |
(base[0]->c.c_car)= get((V167),VV[36],Cnil); |
T476:; |
1064 |
if(((base[0]->c.c_car))==Cnil){ |
if(!(((V171))==Cnil)){ |
1065 |
goto T460;} |
goto T477;} |
|
{register object V177; |
|
|
object V178; |
|
|
V177= (base[0]->c.c_car); |
|
|
V178= car((V177)); |
|
|
goto T467; |
|
|
T467:; |
|
|
if(!(endp_prop((V177)))){ |
|
|
goto T468;} |
|
|
goto T460; |
|
|
goto T468; |
|
|
T468:; |
|
|
V170= (*(LnkLI104))((V178),(V168),(V169)); |
|
|
if(((V170))==Cnil){ |
|
|
goto T472;} |
|
|
{object V179 = (V170); |
|
|
VMR10(V179)} |
|
1066 |
goto T472; |
goto T472; |
1067 |
T472:; |
goto T477; |
1068 |
V177= cdr((V177)); |
T477:; |
1069 |
V178= car((V177)); |
if(!((CMPcar((V172)))==((V155)))){ |
1070 |
goto T467;} |
goto T481;} |
1071 |
goto T460; |
V158= (*(LnkLI104))(CMPcdr((V172)),(V156),(V157)); |
1072 |
T460:; |
if(((V158))==Cnil){ |
1073 |
{register object V180; |
goto T481;} |
1074 |
object V181; |
{object V173 = (V158); |
1075 |
V180= symbol_value(VV[37]); |
VMR10(V173)} |
|
V181= car((V180)); |
|
|
goto T485; |
|
|
T485:; |
|
|
if(!(endp_prop((V180)))){ |
|
|
goto T486;} |
|
|
goto T481; |
|
|
goto T486; |
|
|
T486:; |
|
|
if(!((car((V181)))==((V167)))){ |
|
|
goto T490;} |
|
|
V170= (*(LnkLI104))(cdr((V181)),(V168),(V169)); |
|
|
if(((V170))==Cnil){ |
|
|
goto T490;} |
|
|
{object V182 = (V170); |
|
|
VMR10(V182)} |
|
|
goto T490; |
|
|
T490:; |
|
|
V180= cdr((V180)); |
|
|
V181= car((V180)); |
|
|
goto T485;} |
|
1076 |
goto T481; |
goto T481; |
1077 |
T481:; |
T481:; |
1078 |
(base[0]->c.c_car)= get((V167),VV[38],Cnil); |
V171= CMPcdr((V171)); |
1079 |
|
V172= CMPcar((V171)); |
1080 |
|
goto T476;} |
1081 |
|
goto T472; |
1082 |
|
T472:; |
1083 |
|
{object V174 =((V155))->s.s_plist; |
1084 |
|
object ind= VV[38]; |
1085 |
|
while(V174!=Cnil){ |
1086 |
|
if(V174->c.c_car==ind){ |
1087 |
|
(base[0]->c.c_car)= (V174->c.c_cdr->c.c_car); |
1088 |
|
goto T496; |
1089 |
|
}else V174=V174->c.c_cdr->c.c_cdr;} |
1090 |
|
(base[0]->c.c_car)= Cnil;} |
1091 |
|
goto T496; |
1092 |
|
T496:; |
1093 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
1094 |
goto T501;} |
goto T492;} |
1095 |
if(!(type_of((base[0]->c.c_car))==t_cons)){ |
if(!(type_of((base[0]->c.c_car))==t_cons)){ |
1096 |
goto T508;} |
goto T499;} |
1097 |
if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){ |
if(!(type_of(CMPcar((base[0]->c.c_car)))==t_fixnum)){ |
1098 |
goto T508;} |
goto T499;} |
1099 |
{object V183; |
{object V175; |
1100 |
V184 = make_fixnum((long)length((V168))); |
V176 = CMPmake_fixnum((long)length((V156))); |
1101 |
V183= (number_compare(V184,car((base[0]->c.c_car)))>=0?Ct:Cnil); |
V175= (number_compare(V176,CMPcar((base[0]->c.c_car)))>=0?Ct:Cnil); |
1102 |
(base[0]->c.c_car)= cdr((base[0]->c.c_car)); |
(base[0]->c.c_car)= CMPcdr((base[0]->c.c_car)); |
1103 |
if(((V183))==Cnil){ |
if(((V175))==Cnil){ |
1104 |
goto T501;} |
goto T492;} |
1105 |
goto T506;} |
goto T497;} |
1106 |
goto T508; |
goto T499; |
1107 |
T508:; |
T499:; |
1108 |
goto T506; |
goto T497; |
1109 |
T506:; |
T497:; |
1110 |
base[1]= make_fixnum((long)length((V168))); |
base[1]= CMPmake_fixnum((long)length((V156))); |
1111 |
base[2]= VV[39]; |
base[2]= VV[39]; |
1112 |
base[3]= Ct; |
base[3]= Ct; |
1113 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1114 |
Lmake_list(); |
Lmake_list(); |
1115 |
vs_top=sup; |
vs_top=sup; |
1116 |
V185= vs_base[0]; |
V177= vs_base[0]; |
1117 |
V186= |
V178= |
1118 |
make_cclosure_new(LC27,Cnil,base[0],Cdata); |
make_cclosure_new(LC27,Cnil,base[0],Cdata); |
1119 |
{object V187 = list(4,V185,Ct,small_fixnum(3),V186); |
{object V179 = list(4,V177,Ct,small_fixnum(3),V178); |
1120 |
VMR10(V187)} |
VMR10(V179)} |
1121 |
goto T501; |
goto T492; |
1122 |
T501:; |
T492:; |
1123 |
{object V188 = Cnil; |
{object V180 = Cnil; |
1124 |
VMR10(V188)}} |
VMR10(V180)}} |
1125 |
base[0]=base[0]; |
base[0]=base[0]; |
1126 |
return Cnil; |
return Cnil; |
1127 |
} |
} |
1128 |
/* local entry for function INLINE-TYPE-MATCHES */ |
/* local entry for function INLINE-TYPE-MATCHES */ |
1129 |
|
|
1130 |
static object LI11(V192,V193,V194) |
static object LI11(V184,V185,V186) |
1131 |
|
|
1132 |
object V192;object V193;object V194; |
object V184;object V185;object V186; |
1133 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
1134 |
goto TTL; |
goto TTL; |
1135 |
TTL:; |
TTL:; |
1136 |
{register object V195; |
{register object V187; |
1137 |
V195= Cnil; |
V187= Cnil; |
1138 |
if(type_of(caddr((V192)))==t_fixnum){ |
if(type_of(CMPcaddr((V184)))==t_fixnum){ |
1139 |
goto T521;} |
goto T512;} |
1140 |
base[0]= (V192); |
(void)((*(LnkLI105))((V184))); |
1141 |
vs_top=(vs_base=base+0)+1; |
goto T512; |
1142 |
(void) (*Lnk105)(); |
T512:; |
1143 |
vs_top=sup; |
{register object x= VV[40],V188= CMPcar((V184)); |
1144 |
|
while(V188!=Cnil) |
1145 |
|
if(eql(x,V188->c.c_car)){ |
1146 |
|
goto T517; |
1147 |
|
}else V188=V188->c.c_cdr; |
1148 |
|
goto T515;} |
1149 |
|
goto T517; |
1150 |
|
T517:; |
1151 |
|
{object V189 = Cnil; |
1152 |
|
VMR11(V189)} |
1153 |
|
goto T515; |
1154 |
|
T515:; |
1155 |
|
{register object V190; |
1156 |
|
V190= CMPcar((V184)); |
1157 |
|
{register object V191; |
1158 |
|
register object V192; |
1159 |
|
V191= (V185); |
1160 |
|
V192= CMPcar((V191)); |
1161 |
|
goto T526; |
1162 |
|
T526:; |
1163 |
|
if(!(((V191))==Cnil)){ |
1164 |
|
goto T527;} |
1165 |
|
if(!(equal((V190),VV[41]))){ |
1166 |
|
goto T530;} |
1167 |
|
goto T521; |
1168 |
|
goto T530; |
1169 |
|
T530:; |
1170 |
|
if(!(((V190))==Cnil)){ |
1171 |
|
goto T519;} |
1172 |
goto T521; |
goto T521; |
|
T521:; |
|
|
{register object x= VV[40],V196= car((V192)); |
|
|
while(!endp(V196)) |
|
|
if(eql(x,V196->c.c_car)){ |
|
|
goto T527; |
|
|
}else V196=V196->c.c_cdr; |
|
|
goto T525;} |
|
1173 |
goto T527; |
goto T527; |
1174 |
T527:; |
T527:; |
1175 |
{object V197 = Cnil; |
if(!(((V190))==Cnil)){ |
1176 |
VMR11(V197)} |
goto T533;} |
1177 |
goto T525; |
goto T519; |
1178 |
T525:; |
goto T533; |
1179 |
{register object V198; |
T533:; |
1180 |
V198= car((V192)); |
if(!(equal((V190),VV[42]))){ |
1181 |
{register object V199; |
goto T536;} |
1182 |
register object V200; |
V190= VV[43]; |
|
V199= (V193); |
|
|
V200= car((V199)); |
|
1183 |
goto T536; |
goto T536; |
1184 |
T536:; |
T536:; |
1185 |
if(!(endp_prop((V199)))){ |
if(!((CMPcar((V190)))==(VV[44]))){ |
1186 |
goto T537;} |
goto T542;} |
1187 |
if(!(equal((V198),VV[41]))){ |
if(((*(LnkLI106))(VV[45],(V192)))==Cnil){ |
1188 |
|
goto T545;} |
1189 |
|
{register object V193; |
1190 |
|
V193= VV[45]; |
1191 |
|
V187= make_cons((V193),(V187)); |
1192 |
goto T540;} |
goto T540;} |
1193 |
goto T531; |
goto T545; |
1194 |
goto T540; |
T545:; |
1195 |
T540:; |
if(((*(LnkLI106))(VV[46],(V192)))==Cnil){ |
|
if(!(endp_prop((V198)))){ |
|
|
goto T529;} |
|
|
goto T531; |
|
|
goto T537; |
|
|
T537:; |
|
|
if(!(endp_prop((V198)))){ |
|
|
goto T543;} |
|
|
goto T529; |
|
|
goto T543; |
|
|
T543:; |
|
|
if(!(equal((V198),VV[42]))){ |
|
|
goto T546;} |
|
|
V198= VV[43]; |
|
|
goto T546; |
|
|
T546:; |
|
|
if(!((car((V198)))==(VV[44]))){ |
|
|
goto T552;} |
|
|
if(((*(LnkLI106))(VV[45],(V200)))==Cnil){ |
|
|
goto T555;} |
|
|
{register object V201; |
|
|
V201= VV[45]; |
|
|
V195= make_cons((V201),(V195)); |
|
1196 |
goto T550;} |
goto T550;} |
1197 |
|
{register object V194; |
1198 |
|
V194= VV[46]; |
1199 |
|
V187= make_cons((V194),(V187)); |
1200 |
|
goto T540;} |
1201 |
|
goto T550; |
1202 |
|
T550:; |
1203 |
|
if(((*(LnkLI106))(VV[47],(V192)))==Cnil){ |
1204 |
|
goto T555;} |
1205 |
|
{register object V195; |
1206 |
|
V195= VV[47]; |
1207 |
|
V187= make_cons((V195),(V187)); |
1208 |
|
goto T540;} |
1209 |
goto T555; |
goto T555; |
1210 |
T555:; |
T555:; |
1211 |
if(((*(LnkLI106))(VV[46],(V200)))==Cnil){ |
goto T519; |
1212 |
|
goto T542; |
1213 |
|
T542:; |
1214 |
|
if(((*(LnkLI106))(CMPcar((V190)),(V192)))==Cnil){ |
1215 |
goto T560;} |
goto T560;} |
1216 |
{register object V202; |
{register object V196; |
1217 |
V202= VV[46]; |
V196= CMPcar((V190)); |
1218 |
V195= make_cons((V202),(V195)); |
V187= make_cons((V196),(V187)); |
1219 |
goto T550;} |
goto T540;} |
1220 |
goto T560; |
goto T560; |
1221 |
T560:; |
T560:; |
1222 |
if(((*(LnkLI106))(VV[47],(V200)))==Cnil){ |
goto T519; |
1223 |
goto T565;} |
goto T540; |
1224 |
{register object V203; |
T540:; |
1225 |
V203= VV[47]; |
{register object V197; |
1226 |
V195= make_cons((V203),(V195)); |
V197= CMPcar((V190)); |
1227 |
goto T550;} |
V190= CMPcdr((V190));} |
1228 |
goto T565; |
V191= CMPcdr((V191)); |
1229 |
T565:; |
V192= CMPcar((V191)); |
1230 |
goto T529; |
goto T526;}} |
1231 |
goto T552; |
goto T521; |
1232 |
T552:; |
T521:; |
1233 |
if(((*(LnkLI106))(car((V198)),(V200)))==Cnil){ |
if(((*(LnkLI106))(CMPcadr((V184)),(V186)))==Cnil){ |
1234 |
goto T570;} |
goto T519;} |
1235 |
{register object V204; |
V198= reverse((V187)); |
1236 |
V204= car((V198)); |
{object V199 = make_cons(/* INLINE-ARGS */V198,CMPcdr((V184))); |
1237 |
V195= make_cons((V204),(V195)); |
VMR11(V199)} |
1238 |
goto T550;} |
goto T519; |
1239 |
goto T570; |
T519:; |
1240 |
T570:; |
{object V200 = Cnil; |
1241 |
goto T529; |
VMR11(V200)}} |
|
goto T550; |
|
|
T550:; |
|
|
{register object V205; |
|
|
V205= car((V198)); |
|
|
V198= cdr((V198));} |
|
|
V199= cdr((V199)); |
|
|
V200= car((V199)); |
|
|
goto T536;}} |
|
|
goto T531; |
|
|
T531:; |
|
|
if(((*(LnkLI106))(cadr((V192)),(V194)))==Cnil){ |
|
|
goto T529;} |
|
|
V206= reverse((V195)); |
|
|
{object V207 = make_cons(/* INLINE-ARGS */V206,cdr((V192))); |
|
|
VMR11(V207)} |
|
|
goto T529; |
|
|
T529:; |
|
|
{object V208 = Cnil; |
|
|
VMR11(V208)}} |
|
1242 |
base[0]=base[0]; |
base[0]=base[0]; |
1243 |
return Cnil; |
return Cnil; |
1244 |
} |
} |
1245 |
/* local entry for function NEED-TO-PROTECT */ |
/* local entry for function NEED-TO-PROTECT */ |
1246 |
|
|
1247 |
static object LI12(V211,V212) |
static object LI12(V203,V204) |
1248 |
|
|
1249 |
object V211;object V212; |
object V203;object V204; |
1250 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1251 |
goto TTL; |
goto TTL; |
1252 |
TTL:; |
TTL:; |
1253 |
|
{register object V205; |
1254 |
|
V205= Cnil; |
1255 |
|
{register object V206; |
1256 |
|
register object V207; |
1257 |
|
V206= (V203); |
1258 |
|
V207= (V204); |
1259 |
|
goto T576; |
1260 |
|
T576:; |
1261 |
|
if(!(((V206))==Cnil)){ |
1262 |
|
goto T577;} |
1263 |
|
{object V208 = Cnil; |
1264 |
|
VMR12(V208)} |
1265 |
|
goto T577; |
1266 |
|
T577:; |
1267 |
|
{register object V209; |
1268 |
|
V209= CMPcar((V206)); |
1269 |
|
{object V210= CMPcar((V209)); |
1270 |
|
if((V210!= VV[14]))goto T583; |
1271 |
|
goto T581; |
1272 |
|
goto T583; |
1273 |
|
T583:; |
1274 |
|
if((V210!= VV[1]))goto T584; |
1275 |
|
if(((*(LnkLI75))(CMPcaaddr((V209)),CMPcdr((V206))))!=Cnil){ |
1276 |
|
goto T585;} |
1277 |
|
{register object x= STREF(object,CMPcaaddr((V209)),4),V211= VV[48]; |
1278 |
|
while(V211!=Cnil) |
1279 |
|
if(eql(x,V211->c.c_car)){ |
1280 |
|
goto T589; |
1281 |
|
}else V211=V211->c.c_cdr; |
1282 |
|
goto T581;} |
1283 |
|
goto T589; |
1284 |
|
T589:; |
1285 |
|
if((CMPcar((V207)))==(STREF(object,CMPcaaddr((V209)),4))){ |
1286 |
|
goto T581;} |
1287 |
|
goto T585; |
1288 |
|
T585:; |
1289 |
|
{object V212 = Ct; |
1290 |
|
VMR12(V212)} |
1291 |
|
goto T584; |
1292 |
|
T584:; |
1293 |
|
if((V210!= VV[82]))goto T591; |
1294 |
{register object V213; |
{register object V213; |
1295 |
V213= Cnil; |
V213= CMPcaddr((V209)); |
1296 |
{register object V214; |
if(((*(LnkLI83))((V213)))==Cnil){ |
1297 |
register object V215; |
goto T593;} |
1298 |
V214= (V211); |
V205= (*(LnkLI84))((V213),CMPcadddr((V209)),STREF(object,CMPcadr((V209)),8)); |
1299 |
V215= (V212); |
if(((V205))==Cnil){ |
1300 |
goto T586; |
goto T593;} |
|
T586:; |
|
|
if(!(endp_prop((V214)))){ |
|
|
goto T587;} |
|
|
{object V216 = Cnil; |
|
|
VMR12(V216)} |
|
|
goto T587; |
|
|
T587:; |
|
|
{register object V217; |
|
|
V217= car((V214)); |
|
|
{object V218= car((V217)); |
|
|
if((V218!= VV[14]))goto T593; |
|
|
goto T591; |
|
|
goto T593; |
|
|
T593:; |
|
|
if((V218!= VV[1]))goto T594; |
|
|
if(((*(LnkLI75))(caaddr((V217)),cdr((V214))))!=Cnil){ |
|
|
goto T595;} |
|
|
V220= structure_ref(caaddr((V217)),VV[1],1); |
|
|
{register object x= /* INLINE-ARGS */V220,V219= VV[48]; |
|
|
while(!endp(V219)) |
|
|
if(eql(x,V219->c.c_car)){ |
|
|
goto T599; |
|
|
}else V219=V219->c.c_cdr; |
|
|
goto T591;} |
|
|
goto T599; |
|
|
T599:; |
|
|
V221= car((V215)); |
|
|
V222= structure_ref(caaddr((V217)),VV[1],1); |
|
|
if((/* INLINE-ARGS */V221)==(/* INLINE-ARGS */V222)){ |
|
|
goto T591;} |
|
|
goto T595; |
|
|
T595:; |
|
|
{object V223 = Ct; |
|
|
VMR12(V223)} |
|
|
goto T594; |
|
|
T594:; |
|
|
if((V218!= VV[82]))goto T601; |
|
|
{register object V224; |
|
|
V224= caddr((V217)); |
|
|
if(((*(LnkLI83))((V224)))==Cnil){ |
|
|
goto T603;} |
|
|
V225= cadddr((V217)); |
|
|
V226= structure_ref(cadr((V217)),VV[0],2); |
|
|
V213= (*(LnkLI84))((V224),/* INLINE-ARGS */V225,/* INLINE-ARGS */V226); |
|
|
if(((V213))==Cnil){ |
|
|
goto T603;} |
|
1301 |
base[0]= small_fixnum(0); |
base[0]= small_fixnum(0); |
1302 |
base[1]= caddr((V213)); |
base[1]= CMPcaddr((V205)); |
1303 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1304 |
Llogbitp(); |
Llogbitp(); |
1305 |
vs_top=sup; |
vs_top=sup; |
1306 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1307 |
goto T603;} |
goto T593;} |
1308 |
base[0]= small_fixnum(1); |
base[0]= small_fixnum(1); |
1309 |
base[1]= caddr((V213)); |
base[1]= CMPcaddr((V205)); |
1310 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1311 |
Llogbitp(); |
Llogbitp(); |
1312 |
vs_top=sup; |
vs_top=sup; |
1313 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1314 |
goto T603;} |
goto T593;} |
1315 |
base[0]= small_fixnum(4); |
base[0]= small_fixnum(4); |
1316 |
base[1]= caddr((V213)); |
base[1]= CMPcaddr((V205)); |
1317 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1318 |
Llogbitp(); |
Llogbitp(); |
1319 |
vs_top=sup; |
vs_top=sup; |
1320 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1321 |
goto T603;} |
goto T593;} |
1322 |
{register object x= cadr((V213)),V227= VV[49]; |
{register object x= CMPcadr((V205)),V214= VV[49]; |
1323 |
while(!endp(V227)) |
while(V214!=Cnil) |
1324 |
if(eql(x,V227->c.c_car)){ |
if(eql(x,V214->c.c_car)){ |
1325 |
goto T623; |
goto T613; |
1326 |
}else V227=V227->c.c_cdr; |
}else V214=V214->c.c_cdr; |
1327 |
goto T621;} |
goto T611;} |
1328 |
goto T623; |
goto T613; |
1329 |
T623:; |
T613:; |
1330 |
if(!((car((V215)))==(cadr((V213))))){ |
if(!((CMPcar((V207)))==(CMPcadr((V205))))){ |
1331 |
goto T603;} |
goto T593;} |
1332 |
goto T621; |
goto T611; |
1333 |
T621:; |
T611:; |
1334 |
if(((*(LnkLI87))(cadddr((V217)),car((V213))))==Cnil){ |
if(((*(LnkLI87))(CMPcadddr((V209)),CMPcar((V205))))==Cnil){ |
1335 |
goto T591;} |
goto T581;} |
1336 |
goto T603; |
goto T593; |
1337 |
T603:; |
T593:; |
1338 |
{object V228 = Ct; |
{object V215 = Ct; |
1339 |
VMR12(V228)}} |
VMR12(V215)}} |
|
goto T601; |
|
|
T601:; |
|
|
if((V218!= VV[96]))goto T626; |
|
|
V229= make_cons(caddr((V217)),Cnil); |
|
|
if(((*(LnkLI87))(/* INLINE-ARGS */V229,VV[50]))==Cnil){ |
|
|
goto T591;} |
|
|
{object V230 = Ct; |
|
|
VMR12(V230)} |
|
|
goto T626; |
|
|
T626:; |
|
|
{object V231 = Ct; |
|
|
VMR12(V231)}}} |
|
1340 |
goto T591; |
goto T591; |
1341 |
T591:; |
T591:; |
1342 |
V214= cdr((V214)); |
if((V210!= VV[96]))goto T616; |
1343 |
V215= cdr((V215)); |
V216= make_cons(CMPcaddr((V209)),Cnil); |
1344 |
goto T586;}} |
if(((*(LnkLI87))(/* INLINE-ARGS */V216,VV[50]))==Cnil){ |
1345 |
|
goto T581;} |
1346 |
|
{object V217 = Ct; |
1347 |
|
VMR12(V217)} |
1348 |
|
goto T616; |
1349 |
|
T616:; |
1350 |
|
{object V218 = Ct; |
1351 |
|
VMR12(V218)}}} |
1352 |
|
goto T581; |
1353 |
|
T581:; |
1354 |
|
V206= CMPcdr((V206)); |
1355 |
|
V207= CMPcdr((V207)); |
1356 |
|
goto T576;}} |
1357 |
base[0]=base[0]; |
base[0]=base[0]; |
1358 |
return Cnil; |
return Cnil; |
1359 |
} |
} |
1364 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1365 |
goto TTL; |
goto TTL; |
1366 |
TTL:; |
TTL:; |
1367 |
if((symbol_value(VV[9]))==Cnil){ |
if(((VV[9]->s.s_dbind))==Cnil){ |
1368 |
goto T634;} |
goto T624;} |
1369 |
vs_base=vs_top; |
(void)((*(LnkLI78))()); |
1370 |
(void) (*Lnk78)(); |
{object V219; |
1371 |
vs_top=sup; |
(VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1)); |
1372 |
{object V232; |
V219= (VV[4]->s.s_dbind); |
|
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
|
|
V232= symbol_value(VV[4]); |
|
1373 |
princ_char(123,VV[5]); |
princ_char(123,VV[5]); |
1374 |
(void)((*(LnkLI76))(symbol_value(VV[51]))); |
(void)((*(LnkLI76))((VV[51]->s.s_dbind))); |
1375 |
princ_str("object V",VV[5]); |
princ_str("object V",VV[5]); |
1376 |
(void)((*(LnkLI76))((V232))); |
(void)((*(LnkLI76))((V219))); |
1377 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
1378 |
{object V233 = list(2,VV[6],(V232)); |
{object V220 = list(2,VV[6],(V219)); |
1379 |
VMR13(V233)}} |
VMR13(V220)}} |
1380 |
goto T634; |
goto T624; |
1381 |
T634:; |
T624:; |
1382 |
{object V234 = list(2,VV[12],(*(LnkLI94))()); |
{object V221 = list(2,VV[12],(*(LnkLI94))()); |
1383 |
VMR13(V234)} |
VMR13(V221)} |
|
base[0]=base[0]; |
|
1384 |
return Cnil; |
return Cnil; |
1385 |
} |
} |
1386 |
/* local entry for function CLOSE-INLINE-BLOCKS */ |
/* local entry for function CLOSE-INLINE-BLOCKS */ |
1390 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1391 |
goto TTL; |
goto TTL; |
1392 |
TTL:; |
TTL:; |
1393 |
{register object V235; |
{register object V222; |
1394 |
V235= symbol_value(VV[2]); |
V222= (VV[2]->s.s_dbind); |
1395 |
if(!(type_of((V235))==t_cons)){ |
if(!(type_of((V222))==t_cons)){ |
1396 |
goto T646;} |
goto T636;} |
1397 |
if(!(eql(cdr((V235)),VV[52]))){ |
if(!(eql(CMPcdr((V222)),VV[52]))){ |
1398 |
goto T649;} |
goto T639;} |
1399 |
princ_str("restore_avma;",VV[5]); |
princ_str("restore_avma;",VV[5]); |
1400 |
goto T649; |
goto T639; |
1401 |
T649:; |
T639:; |
1402 |
V235= car((V235)); |
V222= CMPcar((V222)); |
1403 |
goto T646; |
goto T636; |
1404 |
T646:; |
T636:; |
1405 |
{register long V236; |
{register long V223; |
1406 |
register long V237; |
register long V224; |
1407 |
V236= fix((V235)); |
V223= fix((V222)); |
1408 |
V237= 0; |
V224= 0; |
1409 |
goto T657; |
goto T647; |
1410 |
T657:; |
T647:; |
1411 |
if(!((V237)>=(V236))){ |
if(!((V224)>=(V223))){ |
1412 |
goto T658;} |
goto T648;} |
1413 |
{object V238 = Cnil; |
{object V225 = Cnil; |
1414 |
VMR14(V238)} |
VMR14(V225)} |
1415 |
goto T658; |
goto T648; |
1416 |
T658:; |
T648:; |
1417 |
princ_char(125,VV[5]); |
princ_char(125,VV[5]); |
1418 |
V237= (long)(V237)+1; |
V224= (long)(V224)+1; |
1419 |
goto T657;}} |
goto T647;}} |
1420 |
return Cnil; |
return Cnil; |
1421 |
} |
} |
1422 |
/* function definition for WT-INLINE-LOC */ |
/* function definition for WT-INLINE-LOC */ |
1424 |
static void L15() |
static void L15() |
1425 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1426 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
1427 |
vs_reserve(VM15); |
vs_check; |
1428 |
{register object V239; |
{register object V226; |
1429 |
object V240; |
object V227; |
1430 |
check_arg(2); |
V226=(base[0]); |
1431 |
V239=(base[0]); |
V227=(base[1]); |
|
V240=(base[1]); |
|
1432 |
vs_top=sup; |
vs_top=sup; |
1433 |
goto TTL; |
goto TTL; |
1434 |
TTL:; |
TTL:; |
1435 |
{register long V241; |
{register long V228; |
1436 |
long V242; |
long V229; |
1437 |
V241= 0; |
V228= 0; |
1438 |
V242= -1; |
V229= -1; |
1439 |
if(!(type_of((V239))==t_string)){ |
if(!(type_of((V226))==t_string)){ |
1440 |
goto T670;} |
goto T660;} |
1441 |
base[2]= elt((V239),0); |
if(!((((V226))->ust.ust_self[0])==(64))){ |
1442 |
base[3]= VV[25]; |
goto T662;} |
1443 |
vs_top=(vs_base=base+2)+2; |
V228= 1; |
1444 |
Lchar_eq(); |
goto T668; |
1445 |
vs_top=sup; |
T668:; |
1446 |
if((vs_base[0])==Cnil){ |
if(!((((V226))->ust.ust_self[V228])==(59))){ |
1447 |
goto T672;} |
goto T669;} |
1448 |
V241= 1; |
V228= (long)(V228)+(1); |
1449 |
|
goto T662; |
1450 |
|
goto T669; |
1451 |
|
T669:; |
1452 |
|
V228= (long)(V228)+(1); |
1453 |
|
goto T668; |
1454 |
|
goto T662; |
1455 |
|
T662:; |
1456 |
|
{long V230; |
1457 |
|
V230= (long)((V226))->v.v_fillp; |
1458 |
goto T680; |
goto T680; |
1459 |
T680:; |
T680:; |
1460 |
base[2]= elt((V239),V241); |
if(!((V228)>=(V230))){ |
|
base[3]= VV[26]; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
Lchar_eq(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
1461 |
goto T681;} |
goto T681;} |
|
V241= (long)(V241)+(1); |
|
|
goto T672; |
|
|
goto T681; |
|
|
T681:; |
|
|
V241= (long)(V241)+(1); |
|
|
goto T680; |
|
|
goto T672; |
|
|
T672:; |
|
|
{long V243; |
|
|
V243= (long)length((V239)); |
|
|
goto T694; |
|
|
T694:; |
|
|
if(!((V241)>=(V243))){ |
|
|
goto T695;} |
|
1462 |
base[2]= Cnil; |
base[2]= Cnil; |
1463 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1464 |
return; |
return; |
1465 |
|
goto T681; |
1466 |
|
T681:; |
1467 |
|
{unsigned char V231; |
1468 |
|
V231= ((V226))->ust.ust_self[V228]; |
1469 |
|
if(!((V231)==(35))){ |
1470 |
|
goto T688;} |
1471 |
|
{register object V232; |
1472 |
|
register object V233; |
1473 |
|
V232= code_char(((V226))->ust.ust_self[(long)(V228)+1]); |
1474 |
|
V233= small_fixnum(0); |
1475 |
|
if(type_of(V232)==t_character){ |
1476 |
|
goto T695;} |
1477 |
|
goto T693; |
1478 |
goto T695; |
goto T695; |
1479 |
T695:; |
T695:; |
1480 |
{unsigned char V244; |
if(!(((long)(42))==((long)(char_code(V232))))){ |
1481 |
V244= char_code(elt((V239),V241)); |
goto T693;} |
1482 |
base[2]= code_char(V244); |
if(!((V229)>=(0))){ |
1483 |
base[3]= VV[53]; |
goto T697;} |
1484 |
vs_top=(vs_base=base+2)+2; |
V235 = CMPmake_fixnum(V229); |
1485 |
Lchar_eq(); |
V236= one_plus(V235); |
1486 |
vs_top=sup; |
V237 = CMPmake_fixnum((long)length((V227))); |
1487 |
if((vs_base[0])==Cnil){ |
if(!(number_compare(/* INLINE-ARGS */V236,V237)<0)){ |
1488 |
goto T702;} |
goto T697;} |
|
{register object V245; |
|
|
register object V246; |
|
|
V245= elt((V239),(long)(V241)+1); |
|
|
V246= small_fixnum(0); |
|
|
if(!(eql((V245),VV[54]))){ |
|
|
goto T709;} |
|
|
if(!((V242)>=(0))){ |
|
|
goto T711;} |
|
|
V247 = make_fixnum(V242); |
|
|
V248= one_plus(V247); |
|
|
V249 = make_fixnum((long)length((V240))); |
|
|
if(!(number_compare(/* INLINE-ARGS */V248,V249)<0)){ |
|
|
goto T711;} |
|
1489 |
princ_char(44,VV[5]); |
princ_char(44,VV[5]); |
1490 |
goto T711; |
goto T697; |
1491 |
T711:; |
T697:; |
1492 |
{register object V250; |
{register object V238; |
1493 |
V251 = make_fixnum(V242); |
V239 = CMPmake_fixnum(V229); |
1494 |
V252= one_plus(V251); |
V240= one_plus(V239); |
1495 |
V250= nthcdr(fixint(/* INLINE-ARGS */V252),(V240)); |
V238= nthcdr(fix(/* INLINE-ARGS */V240),(V227)); |
1496 |
goto T719; |
goto T705; |
1497 |
T719:; |
T705:; |
1498 |
if(((V250))!=Cnil){ |
if(((V238))!=Cnil){ |
1499 |
goto T720;} |
goto T706;} |
1500 |
|
goto T690; |
1501 |
goto T706; |
goto T706; |
1502 |
goto T720; |
T706:; |
1503 |
T720:; |
base[2]= CMPcar((V238)); |
|
base[2]= car((V250)); |
|
1504 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1505 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
1506 |
vs_top=sup; |
vs_top=sup; |
1507 |
if((cdr((V250)))==Cnil){ |
if((CMPcdr((V238)))==Cnil){ |
1508 |
goto T726;} |
goto T712;} |
1509 |
princ_char(44,VV[5]); |
princ_char(44,VV[5]); |
1510 |
goto T726; |
goto T712; |
1511 |
T726:; |
T712:; |
1512 |
V250= cdr((V250)); |
V238= CMPcdr((V238)); |
1513 |
goto T719;} |
goto T705;} |
1514 |
goto T709; |
goto T693; |
1515 |
T709:; |
T693:; |
1516 |
base[2]= (V245); |
base[2]= (V232); |
1517 |
base[3]= small_fixnum(10); |
base[3]= small_fixnum(10); |
1518 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1519 |
Ldigit_char_p(); |
Ldigit_char_p(); |
1520 |
vs_top=sup; |
vs_top=sup; |
1521 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1522 |
goto T706;} |
goto T690;} |
1523 |
base[2]= (V245); |
base[2]= (V232); |
1524 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1525 |
Lchar_code(); |
Lchar_code(); |
1526 |
vs_top=sup; |
vs_top=sup; |
1527 |
V253= vs_base[0]; |
V241= vs_base[0]; |
1528 |
V254 = make_fixnum((long)(48)); |
V242 = CMPmake_fixnum((long)(48)); |
1529 |
V246= number_minus(V253,V254); |
V233= number_minus(V241,V242); |
1530 |
V255 = make_fixnum((long)length((V239))); |
V243 = CMPmake_fixnum((long)length((V226))); |
1531 |
V256 = make_fixnum(V241); |
V244 = CMPmake_fixnum(V228); |
1532 |
V257= number_plus(V256,small_fixnum(2)); |
V245= number_plus(V244,small_fixnum(2)); |
1533 |
if(!(number_compare(V255,/* INLINE-ARGS */V257)>0)){ |
if(!(number_compare(V243,/* INLINE-ARGS */V245)>0)){ |
1534 |
goto T741;} |
goto T727;} |
1535 |
V258 = make_fixnum(V241); |
V246 = CMPmake_fixnum(V228); |
1536 |
V259= number_plus(V258,small_fixnum(2)); |
V247= number_plus(V246,small_fixnum(2)); |
1537 |
V245= elt((V239),fixint(/* INLINE-ARGS */V259)); |
V232= code_char(((V226))->ust.ust_self[fix(/* INLINE-ARGS */V247)]); |
1538 |
base[2]= (V245); |
base[2]= (V232); |
1539 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1540 |
Ldigit_char_p(); |
Ldigit_char_p(); |
1541 |
vs_top=sup; |
vs_top=sup; |
1542 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1543 |
goto T741;} |
goto T727;} |
1544 |
V260= number_times((V246),small_fixnum(10)); |
V248= number_times((V233),small_fixnum(10)); |
1545 |
base[2]= (V245); |
base[2]= (V232); |
1546 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1547 |
Lchar_code(); |
Lchar_code(); |
1548 |
vs_top=sup; |
vs_top=sup; |
1549 |
V261= vs_base[0]; |
V249= vs_base[0]; |
1550 |
V262 = make_fixnum((long)(48)); |
V250 = CMPmake_fixnum((long)(48)); |
1551 |
V263= number_minus(V261,V262); |
V251= number_minus(V249,V250); |
1552 |
V246= number_plus(/* INLINE-ARGS */V260,/* INLINE-ARGS */V263); |
V233= number_plus(/* INLINE-ARGS */V248,/* INLINE-ARGS */V251); |
1553 |
V241= (long)(V241)+(1); |
V228= (long)(V228)+(1); |
1554 |
goto T741; |
goto T727; |
1555 |
T741:; |
T727:; |
1556 |
V264 = make_fixnum(V242); |
V252 = CMPmake_fixnum(V229); |
1557 |
if(!(number_compare((V246),V264)>=0)){ |
if(!(number_compare((V233),V252)>=0)){ |
1558 |
goto T754;} |
goto T740;} |
1559 |
V242= fix((V246)); |
V229= fix((V233)); |
1560 |
goto T754; |
goto T740; |
1561 |
T754:; |
T740:; |
1562 |
base[2]= nth(fixint((V246)),(V240)); |
base[2]= nth(fix((V233)),(V227)); |
1563 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1564 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
1565 |
vs_top=sup;} |
vs_top=sup;} |
1566 |
goto T706; |
goto T690; |
1567 |
T706:; |
T690:; |
1568 |
V241= (long)(V241)+(2); |
V228= (long)(V228)+(2); |
1569 |
goto T699; |
goto T685; |
1570 |
goto T702; |
goto T688; |
1571 |
T702:; |
T688:; |
1572 |
(void)(princ(code_char(V244),symbol_value(VV[5]))); |
(void)(princ(code_char(V231),(VV[5]->s.s_dbind))); |
1573 |
V241= (long)(V241)+(1);} |
V228= (long)(V228)+(1);} |
1574 |
goto T699; |
goto T685; |
1575 |
T699:; |
T685:; |
1576 |
goto T694;} |
goto T680;} |
1577 |
goto T670; |
goto T660; |
1578 |
T670:; |
T660:; |
1579 |
base[2]= (V239); |
base[2]= (V226); |
1580 |
{object V265; |
{object V253; |
1581 |
V265= (V240); |
V253= (V227); |
1582 |
vs_top=base+3; |
vs_top=base+3; |
1583 |
while(!endp(V265)) |
while(V253!=Cnil) |
1584 |
{vs_push(car(V265));V265=cdr(V265);} |
{vs_push((V253)->c.c_car);V253=(V253)->c.c_cdr;} |
1585 |
vs_base=base+3;} |
vs_base=base+3;} |
1586 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
1587 |
return;} |
return;} |
1592 |
static void L16() |
static void L16() |
1593 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1594 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
1595 |
vs_reserve(VM16); |
vs_check; |
1596 |
{object V266; |
{object V254; |
1597 |
object V267; |
object V255; |
1598 |
object V268; |
object V256; |
1599 |
check_arg(3); |
V254=(base[0]); |
1600 |
V266=(base[0]); |
V255=(base[1]); |
1601 |
V267=(base[1]); |
V256=(base[2]); |
|
V268=(base[2]); |
|
1602 |
vs_top=sup; |
vs_top=sup; |
1603 |
goto TTL; |
goto TTL; |
1604 |
TTL:; |
TTL:; |
1605 |
base[3]= (V267); |
base[3]= (V255); |
1606 |
base[4]= (V268); |
base[4]= (V256); |
1607 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1608 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1609 |
return; |
return; |
1611 |
} |
} |
1612 |
/* local entry for function WT-INLINE-COND */ |
/* local entry for function WT-INLINE-COND */ |
1613 |
|
|
1614 |
static object LI17(V272,V273,V274) |
static object LI17(V260,V261,V262) |
1615 |
|
|
1616 |
object V272;object V273;object V274; |
object V260;object V261;object V262; |
1617 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1618 |
goto TTL; |
goto TTL; |
1619 |
TTL:; |
TTL:; |
1620 |
princ_char(40,VV[5]); |
princ_char(40,VV[5]); |
1621 |
base[0]= (V273); |
base[0]= (V261); |
1622 |
base[1]= (V274); |
base[1]= (V262); |
1623 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1624 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1625 |
vs_top=sup; |
vs_top=sup; |
1626 |
princ_str("?Ct:Cnil)",VV[5]); |
princ_str("?Ct:Cnil)",VV[5]); |
1627 |
{object V275 = Cnil; |
{object V263 = Cnil; |
1628 |
VMR17(V275)} |
VMR17(V263)} |
1629 |
base[0]=base[0]; |
base[0]=base[0]; |
1630 |
return Cnil; |
return Cnil; |
1631 |
} |
} |
1632 |
/* local entry for function WT-INLINE-FIXNUM */ |
/* local entry for function WT-INLINE-FIXNUM */ |
1633 |
|
|
1634 |
static object LI18(V279,V280,V281) |
static object LI18(V267,V268,V269) |
1635 |
|
|
1636 |
object V279;object V280;object V281; |
object V267;object V268;object V269; |
1637 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1638 |
goto TTL; |
goto TTL; |
1639 |
TTL:; |
TTL:; |
1640 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[56]->s.s_dbind))==0)){ |
1641 |
goto T774;} |
goto T760;} |
1642 |
princ_str("CMP",VV[5]); |
princ_str("CMP",VV[5]); |
1643 |
goto T774; |
goto T760; |
1644 |
T774:; |
T760:; |
1645 |
princ_str("make_fixnum((long)",VV[5]); |
princ_str("make_fixnum((long)",VV[5]); |
1646 |
base[0]= (V280); |
base[0]= (V268); |
1647 |
base[1]= (V281); |
base[1]= (V269); |
1648 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1649 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1650 |
vs_top=sup; |
vs_top=sup; |
1651 |
princ_char(41,VV[5]); |
princ_char(41,VV[5]); |
1652 |
{object V282 = Cnil; |
{object V270 = Cnil; |
1653 |
VMR18(V282)} |
VMR18(V270)} |
1654 |
base[0]=base[0]; |
base[0]=base[0]; |
1655 |
return Cnil; |
return Cnil; |
1656 |
} |
} |
1657 |
/* function definition for WT-INLINE-INTEGER */ |
/* local entry for function WT-INLINE-INTEGER */ |
1658 |
|
|
1659 |
static void L19() |
static object LI19(V274,V275,V276) |
1660 |
{register object *base=vs_base; |
|
1661 |
register object *sup=base+VM19; VC19 |
object V274;object V275;object V276; |
1662 |
vs_reserve(VM19); |
{ VMB19 VMS19 VMV19 |
|
{object V283; |
|
|
object V284; |
|
|
object V285; |
|
|
check_arg(3); |
|
|
V283=(base[0]); |
|
|
V284=(base[1]); |
|
|
V285=(base[2]); |
|
|
vs_top=sup; |
|
1663 |
goto TTL; |
goto TTL; |
1664 |
TTL:; |
TTL:; |
1665 |
princ_str("make_integer(",VV[5]); |
princ_str("make_integer(",VV[5]); |
1666 |
base[3]= (V284); |
base[0]= (V275); |
1667 |
base[4]= (V285); |
base[1]= (V276); |
1668 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+0)+2; |
1669 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1670 |
vs_top=sup; |
vs_top=sup; |
1671 |
princ_char(41,VV[5]); |
princ_char(41,VV[5]); |
1672 |
base[3]= Cnil; |
{object V277 = Cnil; |
1673 |
vs_top=(vs_base=base+3)+1; |
VMR19(V277)} |
1674 |
return; |
base[0]=base[0]; |
1675 |
} |
return Cnil; |
1676 |
} |
} |
1677 |
/* local entry for function WT-INLINE-CHARACTER */ |
/* local entry for function WT-INLINE-CHARACTER */ |
1678 |
|
|
1679 |
static object LI20(V289,V290,V291) |
static object LI20(V281,V282,V283) |
1680 |
|
|
1681 |
object V289;object V290;object V291; |
object V281;object V282;object V283; |
1682 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1683 |
goto TTL; |
goto TTL; |
1684 |
TTL:; |
TTL:; |
1685 |
princ_str("code_char(",VV[5]); |
princ_str("code_char(",VV[5]); |
1686 |
base[0]= (V290); |
base[0]= (V282); |
1687 |
base[1]= (V291); |
base[1]= (V283); |
1688 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1689 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1690 |
vs_top=sup; |
vs_top=sup; |
1691 |
princ_char(41,VV[5]); |
princ_char(41,VV[5]); |
1692 |
{object V292 = Cnil; |
{object V284 = Cnil; |
1693 |
VMR20(V292)} |
VMR20(V284)} |
1694 |
base[0]=base[0]; |
base[0]=base[0]; |
1695 |
return Cnil; |
return Cnil; |
1696 |
} |
} |
1697 |
/* local entry for function WT-INLINE-LONG-FLOAT */ |
/* local entry for function WT-INLINE-LONG-FLOAT */ |
1698 |
|
|
1699 |
static object LI21(V296,V297,V298) |
static object LI21(V288,V289,V290) |
1700 |
|
|
1701 |
object V296;object V297;object V298; |
object V288;object V289;object V290; |
1702 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1703 |
goto TTL; |
goto TTL; |
1704 |
TTL:; |
TTL:; |
1705 |
princ_str("make_longfloat(",VV[5]); |
princ_str("make_longfloat(",VV[5]); |
1706 |
base[0]= (V297); |
base[0]= (V289); |
1707 |
base[1]= (V298); |
base[1]= (V290); |
1708 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1709 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1710 |
vs_top=sup; |
vs_top=sup; |
1711 |
princ_char(41,VV[5]); |
princ_char(41,VV[5]); |
1712 |
{object V299 = Cnil; |
{object V291 = Cnil; |
1713 |
VMR21(V299)} |
VMR21(V291)} |
1714 |
base[0]=base[0]; |
base[0]=base[0]; |
1715 |
return Cnil; |
return Cnil; |
1716 |
} |
} |
1717 |
/* local entry for function WT-INLINE-SHORT-FLOAT */ |
/* local entry for function WT-INLINE-SHORT-FLOAT */ |
1718 |
|
|
1719 |
static object LI22(V303,V304,V305) |
static object LI22(V295,V296,V297) |
1720 |
|
|
1721 |
object V303;object V304;object V305; |
object V295;object V296;object V297; |
1722 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
1723 |
goto TTL; |
goto TTL; |
1724 |
TTL:; |
TTL:; |
1725 |
princ_str("make_shortfloat(",VV[5]); |
princ_str("make_shortfloat(",VV[5]); |
1726 |
base[0]= (V304); |
base[0]= (V296); |
1727 |
base[1]= (V305); |
base[1]= (V297); |
1728 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1729 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1730 |
vs_top=sup; |
vs_top=sup; |
1731 |
princ_char(41,VV[5]); |
princ_char(41,VV[5]); |
1732 |
{object V306 = Cnil; |
{object V298 = Cnil; |
1733 |
VMR22(V306)} |
VMR22(V298)} |
1734 |
base[0]=base[0]; |
base[0]=base[0]; |
1735 |
return Cnil; |
return Cnil; |
1736 |
} |
} |
1737 |
/* local entry for function ARGS-CAUSE-SIDE-EFFECT */ |
/* local entry for function ARGS-CAUSE-SIDE-EFFECT */ |
1738 |
|
|
1739 |
static object LI23(V308) |
static object LI23(V300) |
1740 |
|
|
1741 |
object V308; |
object V300; |
1742 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1743 |
goto TTL; |
goto TTL; |
1744 |
TTL:; |
TTL:; |
1745 |
{register object V309; |
{register object V301; |
1746 |
V309= Cnil; |
V301= Cnil; |
1747 |
{register object V310; |
{register object V302; |
1748 |
register object V311; |
register object V303; |
1749 |
V310= (V308); |
V302= (V300); |
1750 |
V311= car((V310)); |
V303= CMPcar((V302)); |
1751 |
goto T812; |
goto T798; |
1752 |
T812:; |
T798:; |
1753 |
if(!(endp_prop((V310)))){ |
if(!(((V302))==Cnil)){ |
1754 |
goto T813;} |
goto T799;} |
1755 |
{object V312 = Cnil; |
{object V304 = Cnil; |
1756 |
VMR23(V312)} |
VMR23(V304)} |
1757 |
goto T813; |
goto T799; |
1758 |
T813:; |
T799:; |
1759 |
{object V313= car((V311)); |
{object V305= CMPcar((V303)); |
1760 |
if((V313!= VV[14]) |
if((V305!= VV[14]) |
1761 |
&& (V313!= VV[1]) |
&& (V305!= VV[1]) |
1762 |
&& (V313!= VV[96]))goto T818; |
&& (V305!= VV[96]))goto T804; |
1763 |
goto T817; |
goto T803; |
1764 |
goto T818; |
goto T804; |
1765 |
T818:; |
T804:; |
1766 |
if((V313!= VV[82]))goto T819; |
if((V305!= VV[82]))goto T805; |
1767 |
{register object V314; |
{register object V306; |
1768 |
V314= caddr((V311)); |
V306= CMPcaddr((V303)); |
1769 |
if(((*(LnkLI83))((V314)))==Cnil){ |
if(((*(LnkLI83))((V306)))==Cnil){ |
1770 |
goto T821;} |
goto T807;} |
1771 |
V315= cadddr((V311)); |
V301= (*(LnkLI84))((V306),CMPcadddr((V303)),STREF(object,CMPcadr((V303)),8)); |
1772 |
V316= structure_ref(cadr((V311)),VV[0],2); |
if(((V301))==Cnil){ |
1773 |
V309= (*(LnkLI84))((V314),/* INLINE-ARGS */V315,/* INLINE-ARGS */V316); |
goto T807;} |
1774 |
if(((V309))==Cnil){ |
(void)((*(LnkLI105))((V301))); |
|
goto T821;} |
|
|
base[1]= (V309); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk105)(); |
|
|
vs_top=sup; |
|
1775 |
base[1]= small_fixnum(1); |
base[1]= small_fixnum(1); |
1776 |
base[2]= caddr((V309)); |
base[2]= CMPcaddr((V301)); |
1777 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1778 |
Llogbitp(); |
Llogbitp(); |
1779 |
vs_top=sup; |
vs_top=sup; |
1780 |
V317= vs_base[0]; |
V307= vs_base[0]; |
1781 |
if((V317)==Cnil){ |
if((V307)==Cnil){ |
1782 |
goto T817;} |
goto T803;} |
1783 |
goto T821; |
goto T807; |
1784 |
T821:; |
T807:; |
1785 |
{object V318 = Ct; |
{object V308 = Ct; |
1786 |
VMR23(V318)}} |
VMR23(V308)}} |
1787 |
goto T819; |
goto T805; |
1788 |
T819:; |
T805:; |
1789 |
{object V319 = Ct; |
{object V309 = Ct; |
1790 |
VMR23(V319)}} |
VMR23(V309)}} |
1791 |
goto T817; |
goto T803; |
1792 |
T817:; |
T803:; |
1793 |
V310= cdr((V310)); |
V302= CMPcdr((V302)); |
1794 |
V311= car((V310)); |
V303= CMPcar((V302)); |
1795 |
goto T812;}} |
goto T798;}} |
1796 |
base[0]=base[0]; |
base[0]=base[0]; |
1797 |
return Cnil; |
return Cnil; |
1798 |
} |
} |
1802 |
{ |
{ |
1803 |
va_list ap; |
va_list ap; |
1804 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
1805 |
{object V320; |
{object V310; |
1806 |
va_start(ap,first); |
va_start(ap,first); |
1807 |
narg= narg - 0; |
narg= narg - 0; |
1808 |
V321 = list_vector_new(narg,first,ap); |
V311 = list_vector_new(narg,first,ap); |
1809 |
V320= V321; |
V310= V311; |
1810 |
{object V322; |
{object V312; |
1811 |
object V323; |
object V313; |
1812 |
V322= Cnil; |
V312= Cnil; |
1813 |
V323= make_fixnum((long)length((V320))); |
V313= CMPmake_fixnum((long)length((V310))); |
1814 |
if(type_of(symbol_value(VV[13]))==t_cons){ |
if(type_of((VV[13]->s.s_dbind))==t_cons){ |
1815 |
goto T845;} |
goto T830;} |
1816 |
V322= Cnil; |
V312= Cnil; |
1817 |
goto T844; |
goto T829; |
1818 |
goto T845; |
goto T830; |
1819 |
T845:; |
T830:; |
1820 |
if((car(symbol_value(VV[13])))==(VV[1])){ |
if((CMPcar((VV[13]->s.s_dbind)))==(VV[1])){ |
1821 |
goto T847;} |
goto T832;} |
1822 |
V322= Cnil; |
V312= Cnil; |
1823 |
goto T844; |
goto T829; |
1824 |
goto T847; |
goto T832; |
1825 |
T847:; |
T832:; |
1826 |
V324= structure_ref(cadr(symbol_value(VV[13])),VV[1],5); |
V312= ((STREF(object,CMPcadr((VV[13]->s.s_dbind)),20))==(VV[57])?Ct:Cnil); |
1827 |
V322= ((/* INLINE-ARGS */V324)==(VV[57])?Ct:Cnil); |
goto T829; |
1828 |
goto T844; |
T829:; |
1829 |
T844:; |
if(((V312))==Cnil){ |
1830 |
if(((V322))==Cnil){ |
goto T827;} |
|
goto T842;} |
|
1831 |
princ_str("(ALLOCA_CONS(",VV[5]); |
princ_str("(ALLOCA_CONS(",VV[5]); |
1832 |
(void)((*(LnkLI76))((V323))); |
(void)((*(LnkLI76))((V313))); |
1833 |
princ_str("),ON_STACK_LIST(",VV[5]); |
princ_str("),ON_STACK_LIST(",VV[5]); |
1834 |
(void)((*(LnkLI76))((V323))); |
(void)((*(LnkLI76))((V313))); |
1835 |
goto T840; |
goto T825; |
1836 |
goto T842; |
goto T827; |
1837 |
T842:; |
T827:; |
1838 |
princ_str("list(",VV[5]); |
princ_str("list(",VV[5]); |
1839 |
V325 = make_fixnum((long)length((V320))); |
V314 = CMPmake_fixnum((long)length((V310))); |
1840 |
(void)((*(LnkLI76))(V325)); |
(void)((*(LnkLI76))(V314)); |
1841 |
|
goto T825; |
1842 |
|
T825:; |
1843 |
|
{register object V315; |
1844 |
|
register object V316; |
1845 |
|
V315= (V310); |
1846 |
|
V316= CMPcar((V315)); |
1847 |
|
goto T844; |
1848 |
|
T844:; |
1849 |
|
if(!(((V315))==Cnil)){ |
1850 |
|
goto T845;} |
1851 |
|
goto T840; |
1852 |
|
goto T845; |
1853 |
|
T845:; |
1854 |
|
(void)((*(LnkLI76))(VV[58])); |
1855 |
|
(void)((*(LnkLI76))((V316))); |
1856 |
|
V315= CMPcdr((V315)); |
1857 |
|
V316= CMPcar((V315)); |
1858 |
|
goto T844;} |
1859 |
goto T840; |
goto T840; |
1860 |
T840:; |
T840:; |
1861 |
{register object V326; |
(void)((*(LnkLI76))(VV[59])); |
1862 |
register object V327; |
if(((V312))==Cnil){ |
|
V326= (V320); |
|
|
V327= car((V326)); |
|
|
goto T859; |
|
|
T859:; |
|
|
if(!(endp_prop((V326)))){ |
|
1863 |
goto T860;} |
goto T860;} |
1864 |
goto T855; |
(void)((*(LnkLI76))(VV[59])); |
1865 |
|
{object V317 = Cnil; |
1866 |
|
VMR24(V317)} |
1867 |
goto T860; |
goto T860; |
1868 |
T860:; |
T860:; |
1869 |
(void)((*(LnkLI76))(VV[58])); |
{object V318 = Cnil; |
1870 |
(void)((*(LnkLI76))((V327))); |
VMR24(V318)}} |
|
V326= cdr((V326)); |
|
|
V327= car((V326)); |
|
|
goto T859;} |
|
|
goto T855; |
|
|
T855:; |
|
|
(void)((*(LnkLI76))(VV[59])); |
|
|
if(((V322))==Cnil){ |
|
|
goto T875;} |
|
|
(void)((*(LnkLI76))(VV[59])); |
|
|
{object V328 = Cnil; |
|
|
VMR24(V328)} |
|
|
goto T875; |
|
|
T875:; |
|
|
{object V329 = Cnil; |
|
|
VMR24(V329)}} |
|
1871 |
va_end(ap); |
va_end(ap); |
1872 |
base[0]=base[0]; |
base[0]=base[0]; |
1873 |
return Cnil;} |
return Cnil;} |
1878 |
{ |
{ |
1879 |
va_list ap; |
va_list ap; |
1880 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
1881 |
{register object V330; |
{register object V319; |
1882 |
va_start(ap,first); |
va_start(ap,first); |
1883 |
narg= narg - 0; |
narg= narg - 0; |
1884 |
V331 = list_vector_new(narg,first,ap); |
V320 = list_vector_new(narg,first,ap); |
1885 |
V330= V331;switch((long)length((V330))){ |
V319= V320;switch((long)length((V319))){ |
1886 |
case 1: |
case 1: |
1887 |
goto T879; |
goto T864; |
1888 |
T879:; |
T864:; |
1889 |
(void)((*(LnkLI76))(car((V330)))); |
(void)((*(LnkLI76))(CMPcar((V319)))); |
1890 |
{object V332 = Cnil; |
{object V321 = Cnil; |
1891 |
VMR25(V332)} |
VMR25(V321)} |
1892 |
case 2: |
case 2: |
1893 |
goto T880; |
goto T865; |
1894 |
T880:; |
T865:; |
1895 |
princ_str("make_cons(",VV[5]); |
princ_str("make_cons(",VV[5]); |
1896 |
(void)((*(LnkLI76))(car((V330)))); |
(void)((*(LnkLI76))(CMPcar((V319)))); |
1897 |
princ_char(44,VV[5]); |
princ_char(44,VV[5]); |
1898 |
(void)((*(LnkLI76))(cadr((V330)))); |
(void)((*(LnkLI76))(CMPcadr((V319)))); |
1899 |
princ_char(41,VV[5]); |
princ_char(41,VV[5]); |
1900 |
{object V333 = Cnil; |
{object V322 = Cnil; |
1901 |
VMR25(V333)} |
VMR25(V322)} |
1902 |
default: |
default: |
1903 |
|
goto T866; |
1904 |
|
T866:; |
1905 |
|
princ_str("listA(",VV[5]); |
1906 |
|
V323 = CMPmake_fixnum((long)length((V319))); |
1907 |
|
(void)((*(LnkLI76))(V323)); |
1908 |
|
{register object V324; |
1909 |
|
register object V325; |
1910 |
|
V324= (V319); |
1911 |
|
V325= CMPcar((V324)); |
1912 |
goto T881; |
goto T881; |
1913 |
T881:; |
T881:; |
1914 |
princ_str("listA(",VV[5]); |
if(!(((V324))==Cnil)){ |
1915 |
V334 = make_fixnum((long)length((V330))); |
goto T882;} |
1916 |
(void)((*(LnkLI76))(V334)); |
goto T877; |
1917 |
{register object V335; |
goto T882; |
1918 |
register object V336; |
T882:; |
|
V335= (V330); |
|
|
V336= car((V335)); |
|
|
goto T896; |
|
|
T896:; |
|
|
if(!(endp_prop((V335)))){ |
|
|
goto T897;} |
|
|
goto T892; |
|
|
goto T897; |
|
|
T897:; |
|
1919 |
(void)((*(LnkLI76))(VV[58])); |
(void)((*(LnkLI76))(VV[58])); |
1920 |
(void)((*(LnkLI76))((V336))); |
(void)((*(LnkLI76))((V325))); |
1921 |
V335= cdr((V335)); |
V324= CMPcdr((V324)); |
1922 |
V336= car((V335)); |
V325= CMPcar((V324)); |
1923 |
goto T896;} |
goto T881;} |
1924 |
goto T892; |
goto T877; |
1925 |
T892:; |
T877:; |
1926 |
(void)((*(LnkLI76))(VV[59])); |
(void)((*(LnkLI76))(VV[59])); |
1927 |
{object V337 = Cnil; |
{object V326 = Cnil; |
1928 |
VMR25(V337)} |
VMR25(V326)} |
1929 |
{object V338 = Cnil; |
{object V327 = Cnil; |
1930 |
VMR25(V338)}} |
VMR25(V327)}} |
1931 |
{object V339 = Cnil; |
{object V328 = Cnil; |
1932 |
VMR25(V339)} |
VMR25(V328)} |
1933 |
va_end(ap); |
va_end(ap); |
1934 |
base[0]=base[0]; |
base[0]=base[0]; |
1935 |
return Cnil;} |
return Cnil;} |
1936 |
} |
} |
1937 |
/* local entry for function DEFSYSFUN */ |
/* local entry for function DEFSYSFUN */ |
1938 |
|
|
1939 |
static object LI26(V346,V347,V348,V349,V350,V351) |
static object LI26(V335,V336,V337,V338,V339,V340) |
1940 |
|
|
1941 |
register object V346;object V347;object V348;register object V349;object V350;object V351; |
register object V335;object V336;object V337;register object V338;object V339;object V340; |
1942 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1943 |
goto TTL; |
goto TTL; |
1944 |
TTL:; |
TTL:; |
1945 |
if(((V347))==Cnil){ |
if(((V336))==Cnil){ |
1946 |
goto T910;} |
goto T895;} |
1947 |
(void)(putprop((V346),(V347),VV[60])); |
(void)(putprop((V335),(V336),VV[60])); |
1948 |
goto T910; |
goto T895; |
1949 |
T910:; |
T895:; |
1950 |
if(((V348))==Cnil){ |
if(((V337))==Cnil){ |
1951 |
|
goto T898;} |
1952 |
|
{object V342; |
1953 |
|
object V343= (V337); |
1954 |
|
if(V343==Cnil){ |
1955 |
|
V341= Cnil; |
1956 |
|
goto T901;} |
1957 |
|
base[0]=V342=MMcons(Cnil,Cnil); |
1958 |
|
goto T902; |
1959 |
|
T902:; |
1960 |
|
if(!(((V343->c.c_car))==(VV[61]))){ |
1961 |
|
goto T905;} |
1962 |
|
(V342->c.c_car)= VV[61]; |
1963 |
|
goto T903; |
1964 |
|
goto T905; |
1965 |
|
T905:; |
1966 |
|
(V342->c.c_car)= (*(LnkLI108))((V343->c.c_car)); |
1967 |
|
goto T903; |
1968 |
|
T903:; |
1969 |
|
if((V343=MMcdr(V343))==Cnil){ |
1970 |
|
V341= base[0]; |
1971 |
|
goto T901;} |
1972 |
|
V342=MMcdr(V342)=MMcons(Cnil,Cnil); |
1973 |
|
goto T902;} |
1974 |
|
goto T901; |
1975 |
|
T901:; |
1976 |
|
(void)(putprop((V335),V341,VV[62])); |
1977 |
|
goto T898; |
1978 |
|
T898:; |
1979 |
|
if(((V338))==Cnil){ |
1980 |
|
goto T907;} |
1981 |
|
{register object V345; |
1982 |
|
if(!(type_of((V338))!=t_cons)){ |
1983 |
goto T913;} |
goto T913;} |
1984 |
{object V353; |
V346= make_cons((V338),Cnil); |
1985 |
object V354= (V348); |
goto T911; |
1986 |
if(endp(V354)){ |
goto T913; |
1987 |
V352= Cnil; |
T913:; |
1988 |
goto T916;} |
V346= (V338); |
1989 |
base[0]=V353=MMcons(Cnil,Cnil); |
goto T911; |
1990 |
goto T917; |
T911:; |
1991 |
T917:; |
V345= (*(LnkLI109))(V346); |
1992 |
if(!(((V354->c.c_car))==(VV[61]))){ |
if(!(type_of((V345))==t_cons)){ |
|
goto T920;} |
|
|
(V353->c.c_car)= VV[61]; |
|
|
goto T918; |
|
|
goto T920; |
|
|
T920:; |
|
|
(V353->c.c_car)= (*(LnkLI108))((V354->c.c_car)); |
|
|
goto T918; |
|
|
T918:; |
|
|
V354=MMcdr(V354); |
|
|
if(endp(V354)){ |
|
|
V352= base[0]; |
|
1993 |
goto T916;} |
goto T916;} |
1994 |
V353=MMcdr(V353)=MMcons(Cnil,Cnil); |
goto T915; |
|
goto T917;} |
|
1995 |
goto T916; |
goto T916; |
1996 |
T916:; |
T916:; |
1997 |
(void)(putprop((V346),V352,VV[62])); |
V345= make_cons((V345),Cnil); |
1998 |
goto T913; |
goto T915; |
1999 |
T913:; |
T915:; |
2000 |
if(((V349))==Cnil){ |
if((CMPcdr((V345)))!=Cnil){ |
2001 |
goto T922;} |
goto T921;} |
2002 |
{register object V356; |
V347= CMPcar((V345)); |
2003 |
if(!(type_of((V349))!=t_cons)){ |
goto T919; |
2004 |
goto T928;} |
goto T921; |
2005 |
V357= make_cons((V349),Cnil); |
T921:; |
2006 |
goto T926; |
V347= make_cons(VV[63],(V345)); |
2007 |
goto T928; |
goto T919; |
2008 |
T928:; |
T919:; |
2009 |
V357= (V349); |
(void)(putprop((V335),V347,VV[64]));} |
2010 |
goto T926; |
goto T907; |
2011 |
T926:; |
T907:; |
2012 |
V356= (*(LnkLI109))(V357); |
if(((V339))==Cnil){ |
2013 |
if(!(type_of((V356))==t_cons)){ |
goto T923;} |
2014 |
goto T931;} |
(void)(putprop((V335),Ct,VV[65])); |
2015 |
goto T930; |
goto T923; |
2016 |
goto T931; |
T923:; |
2017 |
T931:; |
if(((V340))==Cnil){ |
2018 |
V356= make_cons((V356),Cnil); |
goto T927;} |
2019 |
goto T930; |
{object V348 = putprop((V335),Ct,VV[66]); |
2020 |
T930:; |
VMR26(V348)} |
2021 |
if((cdr((V356)))!=Cnil){ |
goto T927; |
2022 |
goto T936;} |
T927:; |
2023 |
V358= car((V356)); |
{object V349 = Cnil; |
2024 |
goto T934; |
VMR26(V349)} |
|
goto T936; |
|
|
T936:; |
|
|
V358= make_cons(VV[63],(V356)); |
|
|
goto T934; |
|
|
T934:; |
|
|
(void)(putprop((V346),V358,VV[64]));} |
|
|
goto T922; |
|
|
T922:; |
|
|
if(((V350))==Cnil){ |
|
|
goto T938;} |
|
|
(void)(putprop((V346),Ct,VV[65])); |
|
|
goto T938; |
|
|
T938:; |
|
|
if(((V351))==Cnil){ |
|
|
goto T942;} |
|
|
{object V359 = putprop((V346),Ct,VV[66]); |
|
|
VMR26(V359)} |
|
|
goto T942; |
|
|
T942:; |
|
|
{object V360 = Cnil; |
|
|
VMR26(V360)} |
|
2025 |
base[0]=base[0]; |
base[0]=base[0]; |
2026 |
return Cnil; |
return Cnil; |
2027 |
} |
} |
2031 |
register object *base0; |
register object *base0; |
2032 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2033 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
2034 |
vs_reserve(VM27); |
vs_check; |
2035 |
{object V361; |
{object V350; |
2036 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
2037 |
{object *p=vs_top; |
{object *p=vs_top; |
2038 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
2039 |
V361=(base[0]); |
V350=(base[0]); |
2040 |
vs_top=sup; |
vs_top=sup; |
2041 |
princ_str("(VFUN_NARGS=",VV[5]); |
princ_str("(VFUN_NARGS=",VV[5]); |
2042 |
V362 = make_fixnum((long)length((V361))); |
V351 = CMPmake_fixnum((long)length((V350))); |
2043 |
(void)((*(LnkLI76))(V362)); |
(void)((*(LnkLI76))(V351)); |
2044 |
princ_char(44,VV[5]); |
princ_char(44,VV[5]); |
2045 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
2046 |
base[2]= (V361); |
base[2]= (V350); |
2047 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2048 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
2049 |
vs_top=sup; |
vs_top=sup; |
2057 |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
2058 |
static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* WT-INLINE-LOC */ |
static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* WT-INLINE-LOC */ |
2059 |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */ |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */ |
2060 |
static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* FIX-OPT */ |
static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* FIX-OPT */ |
2061 |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */ |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */ |
2062 |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */ |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */ |
2063 |
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)(void *)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)(void *)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
2071 |
static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-SHORT-FLOAT-LOC */ |
static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-SHORT-FLOAT-LOC */ |
2072 |
static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-LONG-FLOAT-LOC */ |
static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-LONG-FLOAT-LOC */ |
2073 |
static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* WT-CHARACTER-LOC */ |
static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* WT-CHARACTER-LOC */ |
2074 |
static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* WT-INTEGER-LOC */ |
static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[90],(void **)(void *)&LnkLI90,first,ap);va_end(ap);return V1;} /* WT-INTEGER-LOC */ |
2075 |
static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* WT-FIXNUM-LOC */ |
static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* WT-FIXNUM-LOC */ |
2076 |
static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* WT-LOC */ |
static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* WT-LOC */ |
2077 |
static object LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */ |
static object LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */ |
2078 |
static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
2079 |
static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* SAVE-AVMA */ |
static object LnkTLI85(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[85],(void **)(void *)&LnkLI85,1,first,ap);va_end(ap);return V1;} /* SAVE-AVMA */ |
2080 |
static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
2081 |
static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
2082 |
static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)(void *)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)(void *)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
2083 |
static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */ |
static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */ |
2084 |
static object LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* WT-C-PUSH */ |
static object LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* WT-C-PUSH */ |
2085 |
static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* INC-INLINE-BLOCKS */ |
static object LnkTLI78(){return call_proc0(VV[78],(void **)(void *)&LnkLI78);} /* INC-INLINE-BLOCKS */ |
2086 |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
2087 |
static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
2088 |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */ |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */ |