64 |
V15= Cnil; |
V15= Cnil; |
65 |
V16= Cnil; |
V16= Cnil; |
66 |
V17= Cnil; |
V17= Cnil; |
67 |
if(!(endp_prop((V8)))){ |
if(!(((V8))==Cnil)){ |
68 |
goto T16;} |
goto T16;} |
69 |
(void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0))); |
70 |
goto T16; |
goto T16; |
71 |
T16:; |
T16:; |
72 |
bds_bind(VV[2],symbol_value(VV[2])); |
bds_bind(VV[2],(VV[2]->s.s_dbind)); |
73 |
{register object V18; |
{register object V18; |
74 |
register object V19; |
register object V19; |
75 |
V18= car((V8)); |
V18= CMPcar((V8)); |
76 |
V19= car((V18)); |
V19= CMPcar((V18)); |
77 |
goto T24; |
goto T24; |
78 |
T24:; |
T24:; |
79 |
if(!(endp_prop((V18)))){ |
if(!(((V18))==Cnil)){ |
80 |
goto T25;} |
goto T25;} |
81 |
goto T20; |
goto T20; |
82 |
goto T25; |
goto T25; |
83 |
T25:; |
T25:; |
84 |
if(endp_prop((V19))){ |
if(((V19))==Cnil){ |
85 |
goto T30;} |
goto T30;} |
86 |
if(!(type_of(car((V19)))==t_symbol)){ |
if(!(type_of(CMPcar((V19)))==t_symbol)){ |
87 |
goto T30;} |
goto T30;} |
88 |
if(!(endp_prop(cdr((V19))))){ |
if(!((CMPcdr((V19)))==Cnil)){ |
89 |
goto T29;} |
goto T29;} |
90 |
goto T30; |
goto T30; |
91 |
T30:; |
T30:; |
93 |
goto T29; |
goto T29; |
94 |
T29:; |
T29:; |
95 |
{object V20; |
{object V20; |
96 |
V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil)); |
V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],CMPcar((V19)),VV[5],Cnil,VV[6],Cnil)); |
97 |
(VV[2]->s.s_dbind)= make_cons(V20,(VV[2]->s.s_dbind)); |
(VV[2]->s.s_dbind)= make_cons(V20,(VV[2]->s.s_dbind)); |
98 |
{object V22; |
{object V22; |
99 |
V22= list(2,(V20),cdr((V19))); |
V22= list(2,(V20),CMPcdr((V19))); |
100 |
V15= make_cons((V22),(V15));}} |
V15= make_cons((V22),(V15));}} |
101 |
V18= cdr((V18)); |
V18= CMPcdr((V18)); |
102 |
V19= car((V18)); |
V19= CMPcar((V18)); |
103 |
goto T24;} |
goto T24;} |
104 |
goto T20; |
goto T20; |
105 |
T20:; |
T20:; |
106 |
base[1]= cdr((V8)); |
base[1]= CMPcdr((V8)); |
107 |
base[2]= Ct; |
base[2]= Ct; |
108 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
109 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
132 |
}else{ |
}else{ |
133 |
V13= Cnil;} |
V13= Cnil;} |
134 |
vs_top=sup; |
vs_top=sup; |
135 |
bds_bind(VV[7],symbol_value(VV[7])); |
bds_bind(VV[7],(VV[7]->s.s_dbind)); |
136 |
(void)((*(LnkLI46))((V10))); |
(void)((*(LnkLI46))((V10))); |
137 |
(void)((*(LnkLI47))(Cnil,(V11),(V12))); |
(void)((*(LnkLI47))(Cnil,(V11),(V12))); |
138 |
V9= (*(LnkLI48))((V13),(V9)); |
V9= (*(LnkLI48))((V13),(V9)); |
139 |
bds_unwind1; |
bds_unwind1; |
140 |
base[1]= cadr((V9)); |
base[1]= CMPcadr((V9)); |
141 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
142 |
(void) (*Lnk49)(); |
(void) (*Lnk49)(); |
143 |
vs_top=sup; |
vs_top=sup; |
146 |
{register object V23; |
{register object V23; |
147 |
register object V24; |
register object V24; |
148 |
V23= reverse((V15)); |
V23= reverse((V15)); |
149 |
V24= car((V23)); |
V24= CMPcar((V23)); |
150 |
goto T61; |
goto T61; |
151 |
T61:; |
T61:; |
152 |
if(!(endp_prop((V23)))){ |
if(!(((V23))==Cnil)){ |
153 |
goto T62;} |
goto T62;} |
154 |
goto T57; |
goto T57; |
155 |
goto T62; |
goto T62; |
156 |
T62:; |
T62:; |
157 |
if((structure_ref(car((V24)),VV[0],2))==Cnil){ |
if((STREF(object,CMPcar((V24)),8))==Cnil){ |
158 |
goto T66;} |
goto T66;} |
159 |
base[2]= make_cons(VV[8],symbol_value(VV[7])); |
base[2]= make_cons(VV[8],(VV[7]->s.s_dbind)); |
160 |
base[3]= make_cons(VV[8],symbol_value(VV[2])); |
base[3]= make_cons(VV[8],(VV[2]->s.s_dbind)); |
161 |
base[4]= make_cons(VV[8],symbol_value(VV[9])); |
base[4]= make_cons(VV[8],(VV[9]->s.s_dbind)); |
162 |
base[5]= make_cons(VV[8],symbol_value(VV[10])); |
base[5]= make_cons(VV[8],(VV[10]->s.s_dbind)); |
163 |
bds_bind(VV[7],base[2]); |
bds_bind(VV[7],base[2]); |
164 |
bds_bind(VV[2],base[3]); |
bds_bind(VV[2],base[3]); |
165 |
bds_bind(VV[9],base[4]); |
bds_bind(VV[9],base[4]); |
166 |
bds_bind(VV[10],base[5]); |
bds_bind(VV[10],base[5]); |
167 |
{object V25; |
{object V25; |
168 |
V26= cadr((V24)); |
V25= (VFUN_NARGS=2,(*(LnkLI50))(CMPcadr((V24)),STREF(object,CMPcar((V24)),0))); |
169 |
V27= structure_ref(car((V24)),VV[0],0); |
(void)((*(LnkLI51))((V14),CMPcadr((V25)))); |
170 |
V25= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V26,/* INLINE-ARGS */V27)); |
{object V26; |
171 |
(void)((*(LnkLI51))((V14),cadr((V25)))); |
V26= list(2,CMPcar((V24)),(V25)); |
172 |
{object V28; |
V17= make_cons((V26),(V17)); |
|
V28= list(2,car((V24)),(V25)); |
|
|
V17= make_cons((V28),(V17)); |
|
173 |
bds_unwind1; |
bds_unwind1; |
174 |
bds_unwind1; |
bds_unwind1; |
175 |
bds_unwind1; |
bds_unwind1; |
176 |
bds_unwind1;}} |
bds_unwind1;}} |
177 |
goto T66; |
goto T66; |
178 |
T66:; |
T66:; |
179 |
if((structure_ref(car((V24)),VV[0],1))==Cnil){ |
if((STREF(object,CMPcar((V24)),4))==Cnil){ |
180 |
goto T77;} |
goto T77;} |
181 |
base[2]= make_cons(VV[11],symbol_value(VV[9])); |
base[2]= make_cons(VV[11],(VV[9]->s.s_dbind)); |
182 |
base[3]= make_cons(VV[11],symbol_value(VV[10])); |
base[3]= make_cons(VV[11],(VV[10]->s.s_dbind)); |
183 |
base[4]= make_cons(VV[11],symbol_value(VV[7])); |
base[4]= make_cons(VV[11],(VV[7]->s.s_dbind)); |
184 |
bds_bind(VV[9],base[2]); |
bds_bind(VV[9],base[2]); |
185 |
bds_bind(VV[10],base[3]); |
bds_bind(VV[10],base[3]); |
186 |
bds_bind(VV[7],base[4]); |
bds_bind(VV[7],base[4]); |
187 |
{object V29; |
{object V27; |
188 |
V30= cadr((V24)); |
V27= (VFUN_NARGS=2,(*(LnkLI50))(CMPcadr((V24)),STREF(object,CMPcar((V24)),0))); |
189 |
V31= structure_ref(car((V24)),VV[0],0); |
(void)((*(LnkLI51))((V14),CMPcadr((V27)))); |
190 |
V29= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V30,/* INLINE-ARGS */V31)); |
{object V28; |
191 |
(void)((*(LnkLI51))((V14),cadr((V29)))); |
V28= list(2,CMPcar((V24)),(V27)); |
192 |
{object V32; |
V16= make_cons((V28),(V16)); |
|
V32= list(2,car((V24)),(V29)); |
|
|
V16= make_cons((V32),(V16)); |
|
193 |
bds_unwind1; |
bds_unwind1; |
194 |
bds_unwind1; |
bds_unwind1; |
195 |
bds_unwind1;}} |
bds_unwind1;}} |
196 |
goto T77; |
goto T77; |
197 |
T77:; |
T77:; |
198 |
if((structure_ref(car((V24)),VV[0],1))!=Cnil){ |
if((STREF(object,CMPcar((V24)),4))!=Cnil){ |
199 |
goto T88;} |
goto T88;} |
200 |
if((structure_ref(car((V24)),VV[0],2))==Cnil){ |
if((STREF(object,CMPcar((V24)),8))==Cnil){ |
201 |
goto T87;} |
goto T87;} |
202 |
goto T88; |
goto T88; |
203 |
T88:; |
T88:; |
204 |
V33= car((V24)); |
V29= CMPcar((V24)); |
205 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
206 |
(void)(structure_set(/* INLINE-ARGS */V33,VV[0],3,symbol_value(VV[12]))); |
V30= Ct; |
207 |
|
STSET(object,/* INLINE-ARGS */V29,12, (VV[12]->s.s_dbind)); |
208 |
|
(void)((VV[12]->s.s_dbind)); |
209 |
goto T87; |
goto T87; |
210 |
T87:; |
T87:; |
211 |
V23= cdr((V23)); |
V23= CMPcdr((V23)); |
212 |
V24= car((V23)); |
V24= CMPcar((V23)); |
213 |
goto T61;} |
goto T61;} |
214 |
goto T57; |
goto T57; |
215 |
T57:; |
T57:; |
219 |
goto T99;} |
goto T99;} |
220 |
goto T98; |
goto T98; |
221 |
T98:; |
T98:; |
222 |
V34= reverse((V16)); |
V31= reverse((V16)); |
223 |
{object V35 = list(5,VV[1],(V14),/* INLINE-ARGS */V34,reverse((V17)),(V9)); |
{object V32 = list(5,VV[1],(V14),/* INLINE-ARGS */V31,reverse((V17)),(V9)); |
224 |
VMR2(V35)} |
VMR2(V32)} |
225 |
goto T99; |
goto T99; |
226 |
T99:; |
T99:; |
227 |
{object V36 = (V9); |
{object V33 = (V9); |
228 |
VMR2(V36)}} |
VMR2(V33)}} |
229 |
base[0]=base[0]; |
base[0]=base[0]; |
230 |
return Cnil; |
return Cnil; |
231 |
} |
} |
234 |
static void L3() |
static void L3() |
235 |
{register object *base=vs_base; |
{register object *base=vs_base; |
236 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
237 |
vs_reserve(VM3); |
vs_check; |
238 |
bds_check; |
bds_check; |
239 |
{object V37; |
{object V34; |
240 |
object V38; |
object V35; |
241 |
object V39; |
object V36; |
242 |
check_arg(3); |
V34=(base[0]); |
243 |
V37=(base[0]); |
V35=(base[1]); |
244 |
V38=(base[1]); |
V36=(base[2]); |
|
V39=(base[2]); |
|
245 |
vs_top=sup; |
vs_top=sup; |
246 |
goto TTL; |
goto TTL; |
247 |
TTL:; |
TTL:; |
248 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],(VV[13]->s.s_dbind)); |
249 |
bds_bind(VV[14],symbol_value(VV[14])); |
bds_bind(VV[14],(VV[14]->s.s_dbind)); |
250 |
bds_bind(VV[15],symbol_value(VV[15])); |
bds_bind(VV[15],(VV[15]->s.s_dbind)); |
251 |
{register object V40; |
{register object V37; |
252 |
object V41; |
object V38; |
253 |
V40= (V37); |
V37= (V34); |
254 |
V41= car((V40)); |
V38= CMPcar((V37)); |
255 |
goto T107; |
goto T107; |
256 |
T107:; |
T107:; |
257 |
if(!(endp_prop((V40)))){ |
if(!(((V37))==Cnil)){ |
258 |
goto T108;} |
goto T108;} |
259 |
goto T103; |
goto T103; |
260 |
goto T108; |
goto T108; |
261 |
T108:; |
T108:; |
262 |
(void)(structure_set(car((V41)),VV[0],4,symbol_value(VV[16]))); |
V39= CMPcar((V38)); |
263 |
{object V42;{object V43; |
V40= Ct; |
264 |
V43= (VV[14]->s.s_dbind);{object V44; |
STSET(object,/* INLINE-ARGS */V39,16, (VV[16]->s.s_dbind)); |
265 |
V44= (VV[15]->s.s_dbind); |
(void)((VV[16]->s.s_dbind)); |
266 |
V42= list(5,Cnil,V43,V44,car((V41)),cadr((V41)));}} |
{object V41;{object V42; |
267 |
setq(VV[17],make_cons((V42),symbol_value(VV[17])));} |
V42= (VV[14]->s.s_dbind);{object V43; |
268 |
V40= cdr((V40)); |
V43= (VV[15]->s.s_dbind); |
269 |
V41= car((V40)); |
V41= list(5,Cnil,V42,V43,CMPcar((V38)),CMPcadr((V38)));}} |
270 |
|
(VV[17]->s.s_dbind)= make_cons((V41),(VV[17]->s.s_dbind));} |
271 |
|
V37= CMPcdr((V37)); |
272 |
|
V38= CMPcar((V37)); |
273 |
goto T107;} |
goto T107;} |
274 |
goto T103; |
goto T103; |
275 |
T103:; |
T103:; |
276 |
{register object V45; |
{register object V44; |
277 |
register object V46; |
register object V45; |
278 |
V45= (V38); |
V44= (V35); |
279 |
V46= car((V45)); |
V45= CMPcar((V44)); |
280 |
goto T125; |
goto T125; |
281 |
T125:; |
T125:; |
282 |
if(!(endp_prop((V45)))){ |
if(!(((V44))==Cnil)){ |
283 |
goto T126;} |
goto T126;} |
284 |
goto T121; |
goto T121; |
285 |
goto T126; |
goto T126; |
286 |
T126:; |
T126:; |
287 |
{object V47; |
{object V46; |
288 |
if(((VV[14]->s.s_dbind))!=Cnil){ |
if(((VV[14]->s.s_dbind))!=Cnil){ |
289 |
goto T134;} |
goto T134;} |
290 |
V48= Cnil; |
V47= Cnil; |
291 |
goto T132; |
goto T132; |
292 |
goto T134; |
goto T134; |
293 |
T134:; |
T134:; |
294 |
V48= make_cons(small_fixnum(0),small_fixnum(0)); |
V47= make_cons(small_fixnum(0),small_fixnum(0)); |
295 |
goto T132; |
goto T132; |
296 |
T132:;{object V49; |
T132:;{object V48; |
297 |
V49= (VV[15]->s.s_dbind); |
V48= (VV[15]->s.s_dbind); |
298 |
V47= list(5,VV[18],V48,V49,car((V46)),cadr((V46)));} |
V46= list(5,VV[18],V47,V48,CMPcar((V45)),CMPcadr((V45)));} |
299 |
setq(VV[17],make_cons((V47),symbol_value(VV[17])));} |
(VV[17]->s.s_dbind)= make_cons((V46),(VV[17]->s.s_dbind));} |
300 |
{object V50; |
{object V49; |
301 |
V50= car((V46)); |
V49= CMPcar((V45)); |
302 |
setq(VV[19],make_cons((V50),symbol_value(VV[19])));} |
(VV[19]->s.s_dbind)= make_cons((V49),(VV[19]->s.s_dbind));} |
303 |
{register object V51; |
{register object V50; |
304 |
V51= car((V46)); |
V50= CMPcar((V45)); |
305 |
V52= (*(LnkLI52))(); |
V51= (*(LnkLI52))(); |
306 |
(void)(structure_set((V51),VV[0],1,/* INLINE-ARGS */V52)); |
V52= Ct; |
307 |
|
STSET(object,(V50),4, /* INLINE-ARGS */V51); |
308 |
|
(void)(/* INLINE-ARGS */V51); |
309 |
princ_str("\n ",VV[20]); |
princ_str("\n ",VV[20]); |
310 |
V53= structure_ref((V51),VV[0],1); |
(void)((*(LnkLI53))(STREF(object,(V50),4))); |
|
(void)((*(LnkLI53))(/* INLINE-ARGS */V53)); |
|
311 |
princ_str("=make_cclosure_new(LC",VV[20]); |
princ_str("=make_cclosure_new(LC",VV[20]); |
312 |
V54= structure_ref((V51),VV[0],3); |
(void)((*(LnkLI54))(STREF(object,(V50),12))); |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V54)); |
|
313 |
princ_str(",Cnil,",VV[20]); |
princ_str(",Cnil,",VV[20]); |
314 |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
315 |
princ_str(",Cdata);",VV[20]); |
princ_str(",Cdata);",VV[20]); |
316 |
princ_str("\n ",VV[20]); |
princ_str("\n ",VV[20]); |
317 |
V55= structure_ref((V51),VV[0],1); |
(void)((*(LnkLI53))(STREF(object,(V50),4))); |
|
(void)((*(LnkLI53))(/* INLINE-ARGS */V55)); |
|
318 |
princ_str("=MMcons(",VV[20]); |
princ_str("=MMcons(",VV[20]); |
319 |
V56= structure_ref((V51),VV[0],1); |
(void)((*(LnkLI53))(STREF(object,(V50),4))); |
|
(void)((*(LnkLI53))(/* INLINE-ARGS */V56)); |
|
320 |
princ_char(44,VV[20]); |
princ_char(44,VV[20]); |
321 |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
322 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
323 |
V57= structure_ref((V51),VV[0],1); |
(void)((*(LnkLI56))(STREF(object,(V50),4))); |
324 |
(void)((*(LnkLI56))(/* INLINE-ARGS */V57)); |
V53= (*(LnkLI57))(); |
325 |
V58= (*(LnkLI57))(); |
V54= Ct; |
326 |
(void)(structure_set((V51),VV[0],2,/* INLINE-ARGS */V58));} |
STSET(object,(V50),8, /* INLINE-ARGS */V53); |
327 |
V45= cdr((V45)); |
(void)(/* INLINE-ARGS */V53);} |
328 |
V46= car((V45)); |
V44= CMPcdr((V44)); |
329 |
|
V45= CMPcar((V44)); |
330 |
goto T125;} |
goto T125;} |
331 |
goto T121; |
goto T121; |
332 |
T121:; |
T121:; |
333 |
base[6]= (V39); |
base[6]= (V36); |
334 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
335 |
(void) (*Lnk58)(); |
(void) (*Lnk58)(); |
336 |
bds_unwind1; |
bds_unwind1; |
341 |
} |
} |
342 |
/* local entry for function C1LABELS */ |
/* local entry for function C1LABELS */ |
343 |
|
|
344 |
static object LI4(V60) |
static object LI4(V56) |
345 |
|
|
346 |
object V60; |
object V56; |
347 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
348 |
bds_check; |
bds_check; |
349 |
goto TTL; |
goto TTL; |
350 |
TTL:; |
TTL:; |
351 |
{object V61; |
{object V57; |
352 |
|
object V58; |
353 |
|
object V59; |
354 |
|
object V60; |
355 |
|
object V61; |
356 |
object V62; |
object V62; |
357 |
object V63; |
object V63; |
358 |
object V64; |
object V64; |
359 |
object V65; |
object V65; |
360 |
object V66; |
object V66; |
361 |
object V67; |
register object V67; |
362 |
object V68; |
V57= Cnil; |
363 |
object V69; |
V58= Cnil; |
364 |
object V70; |
V59= Cnil; |
365 |
register object V71; |
V60= Cnil; |
366 |
V61= Cnil; |
V61= Cnil; |
367 |
V62= Cnil; |
V62= Cnil; |
368 |
V63= Cnil; |
V63= Cnil; |
370 |
V65= Cnil; |
V65= Cnil; |
371 |
V66= Cnil; |
V66= Cnil; |
372 |
V67= Cnil; |
V67= Cnil; |
373 |
V68= Cnil; |
bds_bind(VV[2],(VV[2]->s.s_dbind)); |
374 |
V69= Cnil; |
if(!(((V56))==Cnil)){ |
|
V70= Cnil; |
|
|
V71= Cnil; |
|
|
bds_bind(VV[2],symbol_value(VV[2])); |
|
|
if(!(endp_prop((V60)))){ |
|
375 |
goto T180;} |
goto T180;} |
376 |
(void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0))); |
377 |
goto T180; |
goto T180; |
378 |
T180:; |
T180:; |
379 |
{object V72; |
{object V68; |
380 |
register object V73; |
register object V69; |
381 |
V72= car((V60)); |
V68= CMPcar((V56)); |
382 |
V73= car((V72)); |
V69= CMPcar((V68)); |
383 |
goto T187; |
goto T187; |
384 |
T187:; |
T187:; |
385 |
if(!(endp_prop((V72)))){ |
if(!(((V68))==Cnil)){ |
386 |
goto T188;} |
goto T188;} |
387 |
goto T183; |
goto T183; |
388 |
goto T188; |
goto T188; |
389 |
T188:; |
T188:; |
390 |
if(endp_prop((V73))){ |
if(((V69))==Cnil){ |
391 |
goto T193;} |
goto T193;} |
392 |
if(!(type_of(car((V73)))==t_symbol)){ |
if(!(type_of(CMPcar((V69)))==t_symbol)){ |
393 |
goto T193;} |
goto T193;} |
394 |
if(!(endp_prop(cdr((V73))))){ |
if(!((CMPcdr((V69)))==Cnil)){ |
395 |
goto T192;} |
goto T192;} |
396 |
goto T193; |
goto T193; |
397 |
T193:; |
T193:; |
398 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V73)))); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V69)))); |
399 |
goto T192; |
goto T192; |
400 |
T192:; |
T192:; |
401 |
{register object x= car((V73)),V74= (V70); |
{register object x= CMPcar((V69)),V70= (V66); |
402 |
while(!endp(V74)) |
while(V70!=Cnil) |
403 |
if(eql(x,V74->c.c_car)){ |
if(eql(x,V70->c.c_car)){ |
404 |
goto T201; |
goto T201; |
405 |
}else V74=V74->c.c_cdr; |
}else V70=V70->c.c_cdr; |
406 |
goto T199;} |
goto T199;} |
407 |
goto T201; |
goto T201; |
408 |
T201:; |
T201:; |
409 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V73))))); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],CMPcar((V69))))); |
410 |
goto T199; |
goto T199; |
411 |
T199:; |
T199:; |
412 |
{object V75; |
{object V71; |
413 |
V75= car((V73)); |
V71= CMPcar((V69)); |
414 |
V70= make_cons((V75),(V70));} |
V66= make_cons((V71),(V66));} |
415 |
{object V76; |
{object V72; |
416 |
V76= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V73)),VV[5],Cnil,VV[6],Cnil)); |
V72= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],CMPcar((V69)),VV[5],Cnil,VV[6],Cnil)); |
417 |
(VV[2]->s.s_dbind)= make_cons(V76,(VV[2]->s.s_dbind)); |
(VV[2]->s.s_dbind)= make_cons(V72,(VV[2]->s.s_dbind)); |
418 |
{object V78; |
{object V74; |
419 |
V78= list(4,(V76),Cnil,Cnil,cdr((V73))); |
V74= list(4,(V72),Cnil,Cnil,CMPcdr((V69))); |
420 |
V67= make_cons((V78),(V67));}} |
V63= make_cons((V74),(V63));}} |
421 |
V72= cdr((V72)); |
V68= CMPcdr((V68)); |
422 |
V73= car((V72)); |
V69= CMPcar((V68)); |
423 |
goto T187;} |
goto T187;} |
424 |
goto T183; |
goto T183; |
425 |
T183:; |
T183:; |
426 |
V67= reverse((V67)); |
V63= reverse((V63)); |
427 |
base[1]= cdr((V60)); |
base[1]= CMPcdr((V56)); |
428 |
base[2]= Ct; |
base[2]= Ct; |
429 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
430 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
431 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
432 |
V61= vs_base[0]; |
V57= vs_base[0]; |
433 |
vs_base++; |
vs_base++; |
434 |
}else{ |
}else{ |
435 |
V61= Cnil;} |
V57= Cnil;} |
436 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
437 |
V62= vs_base[0]; |
V58= vs_base[0]; |
438 |
vs_base++; |
vs_base++; |
439 |
}else{ |
}else{ |
440 |
V62= Cnil;} |
V58= Cnil;} |
441 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
442 |
V63= vs_base[0]; |
V59= vs_base[0]; |
443 |
vs_base++; |
vs_base++; |
444 |
}else{ |
}else{ |
445 |
V63= Cnil;} |
V59= Cnil;} |
446 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
447 |
V64= vs_base[0]; |
V60= vs_base[0]; |
448 |
vs_base++; |
vs_base++; |
449 |
}else{ |
}else{ |
450 |
V64= Cnil;} |
V60= Cnil;} |
451 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
452 |
V65= vs_base[0]; |
V61= vs_base[0]; |
453 |
}else{ |
}else{ |
454 |
V65= Cnil;} |
V61= Cnil;} |
455 |
vs_top=sup; |
vs_top=sup; |
456 |
bds_bind(VV[7],symbol_value(VV[7])); |
bds_bind(VV[7],(VV[7]->s.s_dbind)); |
457 |
(void)((*(LnkLI46))((V62))); |
(void)((*(LnkLI46))((V58))); |
458 |
(void)((*(LnkLI47))(Cnil,(V63),(V64))); |
(void)((*(LnkLI47))(Cnil,(V59),(V60))); |
459 |
V61= (*(LnkLI48))((V65),(V61)); |
V57= (*(LnkLI48))((V61),(V57)); |
460 |
bds_unwind1; |
bds_unwind1; |
461 |
base[1]= cadr((V61)); |
base[1]= CMPcadr((V57)); |
462 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
463 |
(void) (*Lnk49)(); |
(void) (*Lnk49)(); |
464 |
vs_top=sup; |
vs_top=sup; |
465 |
V66= vs_base[0]; |
V62= vs_base[0]; |
466 |
goto T231; |
goto T231; |
467 |
T231:; |
T231:; |
468 |
V71= Cnil; |
V67= Cnil; |
469 |
{register object V79; |
{register object V75; |
470 |
register object V80; |
register object V76; |
471 |
V79= (V67); |
V75= (V63); |
472 |
V80= car((V79)); |
V76= CMPcar((V75)); |
473 |
goto T239; |
goto T239; |
474 |
T239:; |
T239:; |
475 |
if(!(endp_prop((V79)))){ |
if(!(((V75))==Cnil)){ |
476 |
goto T240;} |
goto T240;} |
477 |
goto T235; |
goto T235; |
478 |
goto T240; |
goto T240; |
479 |
T240:; |
T240:; |
480 |
if((structure_ref(car((V80)),VV[0],1))==Cnil){ |
if((STREF(object,CMPcar((V76)),4))==Cnil){ |
481 |
goto T244;} |
goto T244;} |
482 |
if((cadr((V80)))!=Cnil){ |
if((CMPcadr((V76)))!=Cnil){ |
483 |
goto T244;} |
goto T244;} |
484 |
V71= Ct; |
V67= Ct; |
485 |
if(type_of(cdr(V80))!=t_cons)FEwrong_type_argument(Scons,cdr(V80)); |
(CMPcdr(V76))->c.c_car = Ct; |
486 |
(cdr(V80))->c.c_car = Ct; |
(void)(CMPcdr(V76)); |
487 |
(void)(cdr(V80)); |
base[2]= make_cons(VV[11],(VV[9]->s.s_dbind)); |
488 |
base[2]= make_cons(VV[11],symbol_value(VV[9])); |
base[3]= make_cons(VV[11],(VV[10]->s.s_dbind)); |
489 |
base[3]= make_cons(VV[11],symbol_value(VV[10])); |
base[4]= make_cons(VV[11],(VV[7]->s.s_dbind)); |
|
base[4]= make_cons(VV[11],symbol_value(VV[7])); |
|
490 |
bds_bind(VV[9],base[2]); |
bds_bind(VV[9],base[2]); |
491 |
bds_bind(VV[10],base[3]); |
bds_bind(VV[10],base[3]); |
492 |
bds_bind(VV[7],base[4]); |
bds_bind(VV[7],base[4]); |
493 |
{object V83; |
{object V79; |
494 |
V84= cadddr((V80)); |
V79= (VFUN_NARGS=2,(*(LnkLI50))(CMPcadddr((V76)),STREF(object,CMPcar((V76)),0))); |
495 |
V85= structure_ref(car((V80)),VV[0],0); |
(void)((*(LnkLI51))((V62),CMPcadr((V79)))); |
496 |
V83= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V84,/* INLINE-ARGS */V85)); |
{object V80; |
497 |
(void)((*(LnkLI51))((V66),cadr((V83)))); |
V80= list(2,CMPcar((V76)),(V79)); |
498 |
{object V86; |
V64= make_cons((V80),(V64)); |
|
V86= list(2,car((V80)),(V83)); |
|
|
V68= make_cons((V86),(V68)); |
|
499 |
bds_unwind1; |
bds_unwind1; |
500 |
bds_unwind1; |
bds_unwind1; |
501 |
bds_unwind1;}} |
bds_unwind1;}} |
502 |
goto T244; |
goto T244; |
503 |
T244:; |
T244:; |
504 |
V79= cdr((V79)); |
V75= CMPcdr((V75)); |
505 |
V80= car((V79)); |
V76= CMPcar((V75)); |
506 |
goto T239;} |
goto T239;} |
507 |
goto T235; |
goto T235; |
508 |
T235:; |
T235:; |
509 |
if(((V71))!=Cnil){ |
if(((V67))!=Cnil){ |
510 |
goto T232;} |
goto T232;} |
511 |
goto T229; |
goto T229; |
512 |
goto T232; |
goto T232; |
516 |
T229:; |
T229:; |
517 |
goto T270; |
goto T270; |
518 |
T270:; |
T270:; |
519 |
V71= Cnil; |
V67= Cnil; |
520 |
{register object V87; |
{register object V81; |
521 |
register object V88; |
register object V82; |
522 |
V87= (V67); |
V81= (V63); |
523 |
V88= car((V87)); |
V82= CMPcar((V81)); |
524 |
goto T278; |
goto T278; |
525 |
T278:; |
T278:; |
526 |
if(!(endp_prop((V87)))){ |
if(!(((V81))==Cnil)){ |
527 |
goto T279;} |
goto T279;} |
528 |
goto T274; |
goto T274; |
529 |
goto T279; |
goto T279; |
530 |
T279:; |
T279:; |
531 |
if((structure_ref(car((V88)),VV[0],2))==Cnil){ |
if((STREF(object,CMPcar((V82)),8))==Cnil){ |
532 |
goto T283;} |
goto T283;} |
533 |
if((caddr((V88)))!=Cnil){ |
if((CMPcaddr((V82)))!=Cnil){ |
534 |
goto T283;} |
goto T283;} |
535 |
V71= Ct; |
V67= Ct; |
536 |
if(type_of(cddr(V88))!=t_cons)FEwrong_type_argument(Scons,cddr(V88)); |
(CMPcddr(V82))->c.c_car = Ct; |
537 |
(cddr(V88))->c.c_car = Ct; |
(void)(CMPcddr(V82)); |
538 |
(void)(cddr(V88)); |
base[2]= make_cons(VV[8],(VV[7]->s.s_dbind)); |
|
base[2]= make_cons(VV[8],symbol_value(VV[7])); |
|
539 |
base[3]= make_cons(VV[8],(VV[2]->s.s_dbind)); |
base[3]= make_cons(VV[8],(VV[2]->s.s_dbind)); |
540 |
base[4]= make_cons(VV[8],symbol_value(VV[9])); |
base[4]= make_cons(VV[8],(VV[9]->s.s_dbind)); |
541 |
base[5]= make_cons(VV[8],symbol_value(VV[10])); |
base[5]= make_cons(VV[8],(VV[10]->s.s_dbind)); |
542 |
bds_bind(VV[7],base[2]); |
bds_bind(VV[7],base[2]); |
543 |
bds_bind(VV[2],base[3]); |
bds_bind(VV[2],base[3]); |
544 |
bds_bind(VV[9],base[4]); |
bds_bind(VV[9],base[4]); |
545 |
bds_bind(VV[10],base[5]); |
bds_bind(VV[10],base[5]); |
546 |
{object V91; |
{object V85; |
547 |
V92= cadddr((V88)); |
V85= (VFUN_NARGS=2,(*(LnkLI50))(CMPcadddr((V82)),STREF(object,CMPcar((V82)),0))); |
548 |
V93= structure_ref(car((V88)),VV[0],0); |
(void)((*(LnkLI51))((V62),CMPcadr((V85)))); |
549 |
V91= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V92,/* INLINE-ARGS */V93)); |
{object V86; |
550 |
(void)((*(LnkLI51))((V66),cadr((V91)))); |
V86= list(2,CMPcar((V82)),(V85)); |
551 |
{object V94; |
V65= make_cons((V86),(V65)); |
|
V94= list(2,car((V88)),(V91)); |
|
|
V69= make_cons((V94),(V69)); |
|
552 |
bds_unwind1; |
bds_unwind1; |
553 |
bds_unwind1; |
bds_unwind1; |
554 |
bds_unwind1; |
bds_unwind1; |
555 |
bds_unwind1;}} |
bds_unwind1;}} |
556 |
goto T283; |
goto T283; |
557 |
T283:; |
T283:; |
558 |
V87= cdr((V87)); |
V81= CMPcdr((V81)); |
559 |
V88= car((V87)); |
V82= CMPcar((V81)); |
560 |
goto T278;} |
goto T278;} |
561 |
goto T274; |
goto T274; |
562 |
T274:; |
T274:; |
563 |
if(((V71))!=Cnil){ |
if(((V67))!=Cnil){ |
564 |
goto T271;} |
goto T271;} |
565 |
goto T268; |
goto T268; |
566 |
goto T271; |
goto T271; |
568 |
goto T270; |
goto T270; |
569 |
goto T268; |
goto T268; |
570 |
T268:; |
T268:; |
571 |
{object V95; |
{object V87; |
572 |
object V96; |
object V88; |
573 |
V95= (V67); |
V87= (V63); |
574 |
V96= car((V95)); |
V88= CMPcar((V87)); |
575 |
goto T312; |
goto T312; |
576 |
T312:; |
T312:; |
577 |
if(!(endp_prop((V95)))){ |
if(!(((V87))==Cnil)){ |
578 |
goto T313;} |
goto T313;} |
579 |
goto T308; |
goto T308; |
580 |
goto T313; |
goto T313; |
581 |
T313:; |
T313:; |
582 |
if((structure_ref(car((V96)),VV[0],1))!=Cnil){ |
if((STREF(object,CMPcar((V88)),4))!=Cnil){ |
583 |
goto T318;} |
goto T318;} |
584 |
if((structure_ref(car((V96)),VV[0],2))==Cnil){ |
if((STREF(object,CMPcar((V88)),8))==Cnil){ |
585 |
goto T317;} |
goto T317;} |
586 |
goto T318; |
goto T318; |
587 |
T318:; |
T318:; |
588 |
V97= car((V96)); |
V89= CMPcar((V88)); |
589 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
590 |
(void)(structure_set(/* INLINE-ARGS */V97,VV[0],3,symbol_value(VV[12]))); |
V90= Ct; |
591 |
|
STSET(object,/* INLINE-ARGS */V89,12, (VV[12]->s.s_dbind)); |
592 |
|
(void)((VV[12]->s.s_dbind)); |
593 |
goto T317; |
goto T317; |
594 |
T317:; |
T317:; |
595 |
V95= cdr((V95)); |
V87= CMPcdr((V87)); |
596 |
V96= car((V95)); |
V88= CMPcar((V87)); |
597 |
goto T312;} |
goto T312;} |
598 |
goto T308; |
goto T308; |
599 |
T308:; |
T308:; |
600 |
if(((V68))!=Cnil){ |
if(((V64))!=Cnil){ |
601 |
goto T328;} |
goto T328;} |
602 |
if(((V69))==Cnil){ |
if(((V65))==Cnil){ |
603 |
goto T329;} |
goto T329;} |
604 |
goto T328; |
goto T328; |
605 |
T328:; |
T328:; |
606 |
V98= reverse((V68)); |
V91= reverse((V64)); |
607 |
{object V99 = list(5,VV[21],(V66),/* INLINE-ARGS */V98,reverse((V69)),(V61)); |
{object V92 = list(5,VV[21],(V62),/* INLINE-ARGS */V91,reverse((V65)),(V57)); |
608 |
bds_unwind1; |
bds_unwind1; |
609 |
VMR4(V99)} |
VMR4(V92)} |
610 |
goto T329; |
goto T329; |
611 |
T329:; |
T329:; |
612 |
{object V100 = (V61); |
{object V93 = (V57); |
613 |
bds_unwind1; |
bds_unwind1; |
614 |
VMR4(V100)}} |
VMR4(V93)}} |
615 |
base[0]=base[0]; |
base[0]=base[0]; |
616 |
return Cnil; |
return Cnil; |
617 |
} |
} |
620 |
static void L5() |
static void L5() |
621 |
{register object *base=vs_base; |
{register object *base=vs_base; |
622 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
623 |
vs_reserve(VM5); |
vs_check; |
624 |
bds_check; |
bds_check; |
625 |
{object V101; |
{object V94; |
626 |
object V102; |
object V95; |
627 |
object V103; |
object V96; |
628 |
check_arg(3); |
V94=(base[0]); |
629 |
V101=(base[0]); |
V95=(base[1]); |
630 |
V102=(base[1]); |
V96=(base[2]); |
|
V103=(base[2]); |
|
631 |
vs_top=sup; |
vs_top=sup; |
632 |
goto TTL; |
goto TTL; |
633 |
TTL:; |
TTL:; |
634 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],(VV[13]->s.s_dbind)); |
635 |
bds_bind(VV[14],symbol_value(VV[14])); |
bds_bind(VV[14],(VV[14]->s.s_dbind)); |
636 |
{register object V104; |
{register object V97; |
637 |
object V105; |
object V98; |
638 |
V104= (V102); |
V97= (V95); |
639 |
V105= car((V104)); |
V98= CMPcar((V97)); |
640 |
goto T337; |
goto T337; |
641 |
T337:; |
T337:; |
642 |
if(!(endp_prop((V104)))){ |
if(!(((V97))==Cnil)){ |
643 |
goto T338;} |
goto T338;} |
644 |
goto T333; |
goto T333; |
645 |
goto T338; |
goto T338; |
646 |
T338:; |
T338:; |
647 |
{register object V106; |
{register object V99; |
648 |
V106= car((V105)); |
V99= CMPcar((V98)); |
649 |
V107= (*(LnkLI52))(); |
V100= (*(LnkLI52))(); |
650 |
(void)(structure_set((V106),VV[0],1,/* INLINE-ARGS */V107)); |
V101= Ct; |
651 |
|
STSET(object,(V99),4, /* INLINE-ARGS */V100); |
652 |
|
(void)(/* INLINE-ARGS */V100); |
653 |
princ_str("\n ",VV[20]); |
princ_str("\n ",VV[20]); |
654 |
V108= structure_ref((V106),VV[0],1); |
(void)((*(LnkLI53))(STREF(object,(V99),4))); |
|
(void)((*(LnkLI53))(/* INLINE-ARGS */V108)); |
|
655 |
princ_str("=MMcons(Cnil,",VV[20]); |
princ_str("=MMcons(Cnil,",VV[20]); |
656 |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
657 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
658 |
V109= structure_ref((V106),VV[0],1); |
(void)((*(LnkLI56))(STREF(object,(V99),4))); |
659 |
(void)((*(LnkLI56))(/* INLINE-ARGS */V109)); |
V102= (*(LnkLI57))(); |
660 |
V110= (*(LnkLI57))(); |
V103= Ct; |
661 |
(void)(structure_set((V106),VV[0],2,/* INLINE-ARGS */V110));} |
STSET(object,(V99),8, /* INLINE-ARGS */V102); |
662 |
V104= cdr((V104)); |
(void)(/* INLINE-ARGS */V102);} |
663 |
V105= car((V104)); |
V97= CMPcdr((V97)); |
664 |
|
V98= CMPcar((V97)); |
665 |
goto T337;} |
goto T337;} |
666 |
goto T333; |
goto T333; |
667 |
T333:; |
T333:; |
668 |
{register object V111; |
{register object V104; |
669 |
object V112; |
object V105; |
670 |
V111= (V101); |
V104= (V94); |
671 |
V112= car((V111)); |
V105= CMPcar((V104)); |
672 |
goto T362; |
goto T362; |
673 |
T362:; |
T362:; |
674 |
if(!(endp_prop((V111)))){ |
if(!(((V104))==Cnil)){ |
675 |
goto T363;} |
goto T363;} |
676 |
goto T358; |
goto T358; |
677 |
goto T363; |
goto T363; |
678 |
T363:; |
T363:; |
679 |
(void)(structure_set(car((V112)),VV[0],4,symbol_value(VV[16]))); |
V106= CMPcar((V105)); |
680 |
{object V113;{object V114; |
V107= Ct; |
681 |
V114= (VV[14]->s.s_dbind);{object V115; |
STSET(object,/* INLINE-ARGS */V106,16, (VV[16]->s.s_dbind)); |
682 |
V115= symbol_value(VV[15]); |
(void)((VV[16]->s.s_dbind)); |
683 |
V113= list(5,Cnil,V114,V115,car((V112)),cadr((V112)));}} |
{object V108;{object V109; |
684 |
setq(VV[17],make_cons((V113),symbol_value(VV[17])));} |
V109= (VV[14]->s.s_dbind);{object V110; |
685 |
V111= cdr((V111)); |
V110= (VV[15]->s.s_dbind); |
686 |
V112= car((V111)); |
V108= list(5,Cnil,V109,V110,CMPcar((V105)),CMPcadr((V105)));}} |
687 |
|
(VV[17]->s.s_dbind)= make_cons((V108),(VV[17]->s.s_dbind));} |
688 |
|
V104= CMPcdr((V104)); |
689 |
|
V105= CMPcar((V104)); |
690 |
goto T362;} |
goto T362;} |
691 |
goto T358; |
goto T358; |
692 |
T358:; |
T358:; |
693 |
{register object V116; |
{register object V111; |
694 |
register object V117; |
register object V112; |
695 |
V116= (V102); |
V111= (V95); |
696 |
V117= car((V116)); |
V112= CMPcar((V111)); |
697 |
goto T380; |
goto T380; |
698 |
T380:; |
T380:; |
699 |
if(!(endp_prop((V116)))){ |
if(!(((V111))==Cnil)){ |
700 |
goto T381;} |
goto T381;} |
701 |
goto T376; |
goto T376; |
702 |
goto T381; |
goto T381; |
703 |
T381:; |
T381:; |
704 |
{object V118; |
{object V113; |
705 |
if(((VV[14]->s.s_dbind))!=Cnil){ |
if(((VV[14]->s.s_dbind))!=Cnil){ |
706 |
goto T389;} |
goto T389;} |
707 |
V119= Cnil; |
V114= Cnil; |
708 |
goto T387; |
goto T387; |
709 |
goto T389; |
goto T389; |
710 |
T389:; |
T389:; |
711 |
V119= make_cons(small_fixnum(0),small_fixnum(0)); |
V114= make_cons(small_fixnum(0),small_fixnum(0)); |
712 |
goto T387; |
goto T387; |
713 |
T387:;{object V120; |
T387:;{object V115; |
714 |
V120= symbol_value(VV[15]); |
V115= (VV[15]->s.s_dbind); |
715 |
V118= list(5,VV[18],V119,V120,car((V117)),cadr((V117)));} |
V113= list(5,VV[18],V114,V115,CMPcar((V112)),CMPcadr((V112)));} |
716 |
setq(VV[17],make_cons((V118),symbol_value(VV[17])));} |
(VV[17]->s.s_dbind)= make_cons((V113),(VV[17]->s.s_dbind));} |
717 |
{object V121; |
{object V116; |
718 |
V121= car((V117)); |
V116= CMPcar((V112)); |
719 |
setq(VV[19],make_cons((V121),symbol_value(VV[19])));} |
(VV[19]->s.s_dbind)= make_cons((V116),(VV[19]->s.s_dbind));} |
720 |
princ_str("\n ",VV[20]); |
princ_str("\n ",VV[20]); |
721 |
V122= structure_ref(car((V117)),VV[0],1); |
(void)((*(LnkLI59))(STREF(object,CMPcar((V112)),4))); |
|
(void)((*(LnkLI59))(/* INLINE-ARGS */V122)); |
|
722 |
princ_str("=make_cclosure_new(LC",VV[20]); |
princ_str("=make_cclosure_new(LC",VV[20]); |
723 |
V123= structure_ref(car((V117)),VV[0],3); |
(void)((*(LnkLI54))(STREF(object,CMPcar((V112)),12))); |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V123)); |
|
724 |
princ_str(",Cnil,",VV[20]); |
princ_str(",Cnil,",VV[20]); |
725 |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
726 |
princ_str(",Cdata);",VV[20]); |
princ_str(",Cdata);",VV[20]); |
727 |
V116= cdr((V116)); |
V111= CMPcdr((V111)); |
728 |
V117= car((V116)); |
V112= CMPcar((V111)); |
729 |
goto T380;} |
goto T380;} |
730 |
goto T376; |
goto T376; |
731 |
T376:; |
T376:; |
732 |
base[5]= (V103); |
base[5]= (V96); |
733 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
734 |
(void) (*Lnk58)(); |
(void) (*Lnk58)(); |
735 |
bds_unwind1; |
bds_unwind1; |
739 |
} |
} |
740 |
/* local entry for function C1MACROLET */ |
/* local entry for function C1MACROLET */ |
741 |
|
|
742 |
static object LI6(V125) |
static object LI6(V118) |
743 |
|
|
744 |
object V125; |
object V118; |
745 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
746 |
bds_check; |
bds_check; |
747 |
goto TTL; |
goto TTL; |
748 |
TTL:; |
TTL:; |
749 |
{object V126; |
{object V119; |
750 |
object V127; |
object V120; |
751 |
object V128; |
object V121; |
752 |
object V129; |
object V122; |
753 |
object V130; |
object V123; |
754 |
V126= Cnil; |
V119= Cnil; |
755 |
V127= Cnil; |
V120= Cnil; |
756 |
V128= Cnil; |
V121= Cnil; |
757 |
V129= Cnil; |
V122= Cnil; |
758 |
V130= Cnil; |
V123= Cnil; |
759 |
bds_bind(VV[2],symbol_value(VV[2])); |
bds_bind(VV[2],(VV[2]->s.s_dbind)); |
760 |
bds_bind(VV[7],symbol_value(VV[7])); |
bds_bind(VV[7],(VV[7]->s.s_dbind)); |
761 |
if(!(endp_prop((V125)))){ |
if(!(((V118))==Cnil)){ |
762 |
goto T415;} |
goto T415;} |
763 |
(void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0))); |
764 |
goto T415; |
goto T415; |
765 |
T415:; |
T415:; |
766 |
{register object V131; |
{register object V124; |
767 |
register object V132; |
register object V125; |
768 |
V131= car((V125)); |
V124= CMPcar((V118)); |
769 |
V132= car((V131)); |
V125= CMPcar((V124)); |
770 |
goto T422; |
goto T422; |
771 |
T422:; |
T422:; |
772 |
if(!(endp_prop((V131)))){ |
if(!(((V124))==Cnil)){ |
773 |
goto T423;} |
goto T423;} |
774 |
goto T418; |
goto T418; |
775 |
goto T423; |
goto T423; |
776 |
T423:; |
T423:; |
777 |
if(endp_prop((V132))){ |
if(((V125))==Cnil){ |
778 |
goto T428;} |
goto T428;} |
779 |
if(!(type_of(car((V132)))==t_symbol)){ |
if(!(type_of(CMPcar((V125)))==t_symbol)){ |
780 |
goto T428;} |
goto T428;} |
781 |
if(!(endp_prop(cdr((V132))))){ |
if(!((CMPcdr((V125)))==Cnil)){ |
782 |
goto T427;} |
goto T427;} |
783 |
goto T428; |
goto T428; |
784 |
T428:; |
T428:; |
785 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V132)))); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V125)))); |
786 |
goto T427; |
goto T427; |
787 |
T427:; |
T427:; |
788 |
{register object V133; |
{register object V126; |
789 |
V134= car((V132)); |
V127= CMPcar((V125)); |
790 |
V135= (*(LnkLI60))(car((V132)),cadr((V132)),cddr((V132))); |
V128= (*(LnkLI60))(CMPcar((V125)),CMPcadr((V125)),CMPcddr((V125))); |
791 |
V133= list(2,/* INLINE-ARGS */V134,caddr(/* INLINE-ARGS */V135)); |
V126= list(2,/* INLINE-ARGS */V127,CMPcaddr(/* INLINE-ARGS */V128)); |
792 |
(VV[2]->s.s_dbind)= make_cons((V133),(VV[2]->s.s_dbind));} |
(VV[2]->s.s_dbind)= make_cons((V126),(VV[2]->s.s_dbind));} |
793 |
V131= cdr((V131)); |
V124= CMPcdr((V124)); |
794 |
V132= car((V131)); |
V125= CMPcar((V124)); |
795 |
goto T422;} |
goto T422;} |
796 |
goto T418; |
goto T418; |
797 |
T418:; |
T418:; |
798 |
base[2]= cdr((V125)); |
base[2]= CMPcdr((V118)); |
799 |
base[3]= Ct; |
base[3]= Ct; |
800 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
801 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
802 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
803 |
V126= vs_base[0]; |
V119= vs_base[0]; |
804 |
vs_base++; |
vs_base++; |
805 |
}else{ |
}else{ |
806 |
V126= Cnil;} |
V119= Cnil;} |
807 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
808 |
V127= vs_base[0]; |
V120= vs_base[0]; |
809 |
vs_base++; |
vs_base++; |
810 |
}else{ |
}else{ |
811 |
V127= Cnil;} |
V120= Cnil;} |
812 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
813 |
V128= vs_base[0]; |
V121= vs_base[0]; |
814 |
vs_base++; |
vs_base++; |
815 |
}else{ |
}else{ |
816 |
V128= Cnil;} |
V121= Cnil;} |
817 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
818 |
V129= vs_base[0]; |
V122= vs_base[0]; |
819 |
vs_base++; |
vs_base++; |
820 |
}else{ |
}else{ |
821 |
V129= Cnil;} |
V122= Cnil;} |
822 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
823 |
V130= vs_base[0]; |
V123= vs_base[0]; |
824 |
}else{ |
}else{ |
825 |
V130= Cnil;} |
V123= Cnil;} |
826 |
vs_top=sup; |
vs_top=sup; |
827 |
(void)((*(LnkLI46))((V127))); |
(void)((*(LnkLI46))((V120))); |
828 |
(void)((*(LnkLI47))(Cnil,(V128),(V129))); |
(void)((*(LnkLI47))(Cnil,(V121),(V122))); |
829 |
{object V136 = (*(LnkLI48))((V130),(V126)); |
{object V129 = (*(LnkLI48))((V123),(V119)); |
830 |
bds_unwind1; |
bds_unwind1; |
831 |
bds_unwind1; |
bds_unwind1; |
832 |
VMR6(V136)}} |
VMR6(V129)}} |
833 |
base[0]=base[0]; |
base[0]=base[0]; |
834 |
return Cnil; |
return Cnil; |
835 |
} |
} |
836 |
/* local entry for function C1LOCAL-FUN */ |
/* local entry for function C1LOCAL-FUN */ |
837 |
|
|
838 |
static object LI7(V138) |
static object LI7(V131) |
839 |
|
|
840 |
register object V138; |
register object V131; |
841 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
842 |
goto TTL; |
goto TTL; |
843 |
TTL:; |
TTL:; |
844 |
{register object V139; |
{register object V132; |
845 |
V139= Cnil; |
V132= Cnil; |
846 |
{register object V140; |
{register object V133; |
847 |
register object V141; |
register object V134; |
848 |
V140= symbol_value(VV[2]); |
V133= (VV[2]->s.s_dbind); |
849 |
V141= car((V140)); |
V134= CMPcar((V133)); |
850 |
goto T452; |
goto T452; |
851 |
T452:; |
T452:; |
852 |
if(!(endp_prop((V140)))){ |
if(!(((V133))==Cnil)){ |
853 |
goto T453;} |
goto T453;} |
854 |
{object V142 = Cnil; |
{object V135 = Cnil; |
855 |
VMR7(V142)} |
VMR7(V135)} |
856 |
goto T453; |
goto T453; |
857 |
T453:; |
T453:; |
858 |
if(!(((V141))==(VV[8]))){ |
if(!(((V134))==(VV[8]))){ |
859 |
goto T459;} |
goto T459;} |
860 |
V139= Ct; |
V132= Ct; |
861 |
goto T457; |
goto T457; |
862 |
goto T459; |
goto T459; |
863 |
T459:; |
T459:; |
864 |
if(!(type_of((V141))==t_cons)){ |
if(!(type_of((V134))==t_cons)){ |
865 |
goto T463;} |
goto T463;} |
866 |
if(!((car((V141)))==((V138)))){ |
if(!((CMPcar((V134)))==((V131)))){ |
867 |
goto T457;} |
goto T457;} |
868 |
{object V143 = cadr((V141)); |
{object V136 = CMPcadr((V134)); |
869 |
VMR7(V143)} |
VMR7(V136)} |
870 |
goto T463; |
goto T463; |
871 |
T463:; |
T463:; |
872 |
V144= structure_ref((V141),VV[0],0); |
if(!((STREF(object,(V134),0))==((V131)))){ |
|
if(!((/* INLINE-ARGS */V144)==((V138)))){ |
|
873 |
goto T457;} |
goto T457;} |
874 |
if(((V139))==Cnil){ |
if(((V132))==Cnil){ |
875 |
goto T471;} |
goto T471;} |
876 |
(void)(structure_set((V141),VV[0],2,Ct)); |
V137= Ct; |
877 |
|
STSET(object,(V134),8, Ct); |
878 |
|
(void)(Ct); |
879 |
goto T469; |
goto T469; |
880 |
goto T471; |
goto T471; |
881 |
T471:; |
T471:; |
882 |
(void)(structure_set((V141),VV[0],1,Ct)); |
V138= Ct; |
883 |
|
STSET(object,(V134),4, Ct); |
884 |
|
(void)(Ct); |
885 |
goto T469; |
goto T469; |
886 |
T469:; |
T469:; |
887 |
{object V145 = list(4,VV[26],symbol_value(VV[27]),(V141),(V139)); |
{object V139 = list(4,VV[26],(VV[27]->s.s_dbind),(V134),(V132)); |
888 |
VMR7(V145)} |
VMR7(V139)} |
889 |
goto T457; |
goto T457; |
890 |
T457:; |
T457:; |
891 |
V140= cdr((V140)); |
V133= CMPcdr((V133)); |
892 |
V141= car((V140)); |
V134= CMPcar((V133)); |
893 |
goto T452;}} |
goto T452;}} |
894 |
base[0]=base[0]; |
base[0]=base[0]; |
895 |
return Cnil; |
return Cnil; |
896 |
} |
} |
897 |
/* local entry for function SCH-LOCAL-FUN */ |
/* local entry for function SCH-LOCAL-FUN */ |
898 |
|
|
899 |
static object LI8(V147) |
static object LI8(V141) |
900 |
|
|
901 |
register object V147; |
register object V141; |
902 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
903 |
goto TTL; |
goto TTL; |
904 |
TTL:; |
TTL:; |
905 |
{register object V148; |
{register object V142; |
906 |
register object V149; |
register object V143; |
907 |
V148= symbol_value(VV[2]); |
V142= (VV[2]->s.s_dbind); |
908 |
V149= car((V148)); |
V143= CMPcar((V142)); |
909 |
goto T481; |
goto T481; |
910 |
T481:; |
T481:; |
911 |
if(!(endp_prop((V148)))){ |
if(!(((V142))==Cnil)){ |
912 |
goto T482;} |
goto T482;} |
913 |
{object V150 = (V147); |
{object V144 = (V141); |
914 |
VMR8(V150)} |
VMR8(V144)} |
915 |
goto T482; |
goto T482; |
916 |
T482:; |
T482:; |
917 |
if(((V149))==(VV[8])){ |
if(((V143))==(VV[8])){ |
918 |
goto T486;} |
goto T486;} |
919 |
if(type_of((V149))==t_cons){ |
if(type_of((V143))==t_cons){ |
920 |
goto T486;} |
goto T486;} |
921 |
V151= structure_ref((V149),VV[0],0); |
if(!((STREF(object,(V143),0))==((V141)))){ |
|
if(!((/* INLINE-ARGS */V151)==((V147)))){ |
|
922 |
goto T486;} |
goto T486;} |
923 |
{object V152 = (V149); |
{object V145 = (V143); |
924 |
VMR8(V152)} |
VMR8(V145)} |
925 |
goto T486; |
goto T486; |
926 |
T486:; |
T486:; |
927 |
V148= cdr((V148)); |
V142= CMPcdr((V142)); |
928 |
V149= car((V148)); |
V143= CMPcar((V142)); |
929 |
goto T481;} |
goto T481;} |
930 |
base[0]=base[0]; |
base[0]=base[0]; |
931 |
return Cnil; |
return Cnil; |
932 |
} |
} |
933 |
/* local entry for function C1LOCAL-CLOSURE */ |
/* local entry for function C1LOCAL-CLOSURE */ |
934 |
|
|
935 |
static object LI9(V154) |
static object LI9(V147) |
936 |
|
|
937 |
register object V154; |
register object V147; |
938 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
939 |
goto TTL; |
goto TTL; |
940 |
TTL:; |
TTL:; |
941 |
{register object V155; |
{register object V148; |
942 |
V155= Cnil; |
V148= Cnil; |
943 |
{register object V156; |
{register object V149; |
944 |
register object V157; |
register object V150; |
945 |
V156= symbol_value(VV[2]); |
V149= (VV[2]->s.s_dbind); |
946 |
V157= car((V156)); |
V150= CMPcar((V149)); |
947 |
goto T502; |
goto T502; |
948 |
T502:; |
T502:; |
949 |
if(!(endp_prop((V156)))){ |
if(!(((V149))==Cnil)){ |
950 |
goto T503;} |
goto T503;} |
951 |
{object V158 = Cnil; |
{object V151 = Cnil; |
952 |
VMR9(V158)} |
VMR9(V151)} |
953 |
goto T503; |
goto T503; |
954 |
T503:; |
T503:; |
955 |
if(!(((V157))==(VV[8]))){ |
if(!(((V150))==(VV[8]))){ |
956 |
goto T509;} |
goto T509;} |
957 |
V155= Ct; |
V148= Ct; |
958 |
goto T507; |
goto T507; |
959 |
goto T509; |
goto T509; |
960 |
T509:; |
T509:; |
961 |
if(!(type_of((V157))==t_cons)){ |
if(!(type_of((V150))==t_cons)){ |
962 |
goto T513;} |
goto T513;} |
963 |
if(!((car((V157)))==((V154)))){ |
if(!((CMPcar((V150)))==((V147)))){ |
964 |
goto T507;} |
goto T507;} |
965 |
{object V159 = cadr((V157)); |
{object V152 = CMPcadr((V150)); |
966 |
VMR9(V159)} |
VMR9(V152)} |
967 |
goto T513; |
goto T513; |
968 |
T513:; |
T513:; |
969 |
V160= structure_ref((V157),VV[0],0); |
if(!((STREF(object,(V150),0))==((V147)))){ |
|
if(!((/* INLINE-ARGS */V160)==((V154)))){ |
|
970 |
goto T507;} |
goto T507;} |
971 |
(void)(structure_set((V157),VV[0],2,Ct)); |
V153= Ct; |
972 |
{object V161 = list(4,VV[26],symbol_value(VV[27]),(V157),(V155)); |
STSET(object,(V150),8, Ct); |
973 |
VMR9(V161)} |
(void)(Ct); |
974 |
|
{object V154 = list(4,VV[26],(VV[27]->s.s_dbind),(V150),(V148)); |
975 |
|
VMR9(V154)} |
976 |
goto T507; |
goto T507; |
977 |
T507:; |
T507:; |
978 |
V156= cdr((V156)); |
V149= CMPcdr((V149)); |
979 |
V157= car((V156)); |
V150= CMPcar((V149)); |
980 |
goto T502;}} |
goto T502;}} |
981 |
base[0]=base[0]; |
base[0]=base[0]; |
982 |
return Cnil; |
return Cnil; |
983 |
} |
} |
984 |
/* local entry for function C2CALL-LOCAL */ |
/* local entry for function C2CALL-LOCAL */ |
985 |
|
|
986 |
static object LI10(V164,V165) |
static object LI10(V157,V158) |
987 |
|
|
988 |
register object V164;register object V165; |
register object V157;register object V158; |
989 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
990 |
bds_check; |
bds_check; |
991 |
goto TTL; |
goto TTL; |
992 |
TTL:; |
TTL:; |
993 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],(VV[13]->s.s_dbind)); |
994 |
if((cadr((V164)))==Cnil){ |
if((CMPcadr((V157)))==Cnil){ |
995 |
goto T527;} |
goto T527;} |
996 |
(void)((*(LnkLI61))((V165))); |
(void)((*(LnkLI61))((V158))); |
997 |
princ_str("\n cclosure_call(",VV[20]); |
princ_str("\n cclosure_call(",VV[20]); |
998 |
V166= structure_ref(car((V164)),VV[0],2); |
(void)((*(LnkLI62))(STREF(object,CMPcar((V157)),8))); |
|
(void)((*(LnkLI62))(/* INLINE-ARGS */V166)); |
|
999 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
1000 |
goto T525; |
goto T525; |
1001 |
goto T527; |
goto T527; |
1002 |
T527:; |
T527:; |
1003 |
if(!(type_of((V165))==t_cons||((V165))==Cnil)){ |
if(!(type_of((V158))==t_cons||((V158))==Cnil)){ |
1004 |
goto T535;} |
goto T535;} |
1005 |
if((symbol_value(VV[28]))==Cnil){ |
if(((VV[28]->s.s_dbind))==Cnil){ |
1006 |
goto T535;} |
goto T535;} |
1007 |
if((symbol_value(VV[29]))==Cnil){ |
if(((VV[29]->s.s_dbind))==Cnil){ |
1008 |
goto T535;} |
goto T535;} |
1009 |
if(!((car(symbol_value(VV[29])))==(car((V164))))){ |
if(!((CMPcar((VV[29]->s.s_dbind)))==(CMPcar((V157))))){ |
1010 |
goto T535;} |
goto T535;} |
1011 |
if(!((symbol_value(VV[30]))==(VV[31]))){ |
if(!(((VV[30]->s.s_dbind))==(VV[31]))){ |
1012 |
goto T535;} |
goto T535;} |
1013 |
if(((*(LnkLI63))())==Cnil){ |
if(((*(LnkLI63))())==Cnil){ |
1014 |
goto T535;} |
goto T535;} |
1015 |
if(!(((long)length((V165)))==((long)length(cdr(symbol_value(VV[29])))))){ |
if(!(((long)length((V158)))==((long)length(CMPcdr((VV[29]->s.s_dbind)))))){ |
1016 |
goto T535;} |
goto T535;} |
1017 |
bds_bind(VV[32],VV[33]); |
bds_bind(VV[32],VV[33]); |
1018 |
setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1))); |
(VV[34]->s.s_dbind)= number_plus((VV[34]->s.s_dbind),small_fixnum(1)); |
1019 |
bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil)); |
bds_bind(VV[30],make_cons((VV[34]->s.s_dbind),Cnil)); |
1020 |
bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35]))); |
bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),(VV[35]->s.s_dbind))); |
1021 |
{object V168; |
{object V160; |
1022 |
object V169= cdr(symbol_value(VV[29])); |
object V161= CMPcdr((VV[29]->s.s_dbind)); |
1023 |
if(endp(V169)){ |
if(V161==Cnil){ |
1024 |
V167= Cnil; |
V159= Cnil; |
1025 |
goto T554;} |
goto T554;} |
1026 |
base[4]=V168=MMcons(Cnil,Cnil); |
base[4]=V160=MMcons(Cnil,Cnil); |
1027 |
goto T555; |
goto T555; |
1028 |
T555:; |
T555:; |
1029 |
(V168->c.c_car)= list(2,(V169->c.c_car),Cnil); |
(V160->c.c_car)= list(2,(V161->c.c_car),Cnil); |
1030 |
V169=MMcdr(V169); |
if((V161=MMcdr(V161))==Cnil){ |
1031 |
if(endp(V169)){ |
V159= base[4]; |
|
V167= base[4]; |
|
1032 |
goto T554;} |
goto T554;} |
1033 |
V168=MMcdr(V168)=MMcons(Cnil,Cnil); |
V160=MMcdr(V160)=MMcons(Cnil,Cnil); |
1034 |
goto T555;} |
goto T555;} |
1035 |
goto T554; |
goto T554; |
1036 |
T554:; |
T554:; |
1037 |
(void)((*(LnkLI64))(V167,(V165))); |
(void)((*(LnkLI64))(V159,(V158))); |
1038 |
if((cdr((VV[30]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[30]->s.s_dbind)))==Cnil){ |
1039 |
bds_unwind1; |
bds_unwind1; |
1040 |
bds_unwind1; |
bds_unwind1; |
1041 |
bds_unwind1; |
bds_unwind1; |
1042 |
goto T549;} |
goto T549;} |
1043 |
princ_str("\n goto T",VV[20]); |
princ_str("\n goto T",VV[20]); |
1044 |
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
(void)((*(LnkLI54))(CMPcar((VV[30]->s.s_dbind)))); |
1045 |
princ_char(59,VV[20]); |
princ_char(59,VV[20]); |
1046 |
princ_str("\nT",VV[20]); |
princ_str("\nT",VV[20]); |
1047 |
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
(void)((*(LnkLI54))(CMPcar((VV[30]->s.s_dbind)))); |
1048 |
princ_str(":;",VV[20]); |
princ_str(":;",VV[20]); |
1049 |
bds_unwind1; |
bds_unwind1; |
1050 |
bds_unwind1; |
bds_unwind1; |
1053 |
T549:; |
T549:; |
1054 |
(void)((*(LnkLI65))(VV[36])); |
(void)((*(LnkLI65))(VV[36])); |
1055 |
princ_str("\n goto TTL;",VV[20]); |
princ_str("\n goto TTL;",VV[20]); |
1056 |
V171= structure_ref(car((V164)),VV[0],0); |
(void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],STREF(object,CMPcar((V157)),0)))); |
|
(void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V171))); |
|
1057 |
goto T525; |
goto T525; |
1058 |
goto T535; |
goto T535; |
1059 |
T535:; |
T535:; |
1060 |
(void)((*(LnkLI61))((V165))); |
(void)((*(LnkLI61))((V158))); |
1061 |
princ_str("\n L",VV[20]); |
princ_str("\n L",VV[20]); |
1062 |
V172= structure_ref(car((V164)),VV[0],3); |
(void)((*(LnkLI54))(STREF(object,CMPcar((V157)),12))); |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V172)); |
|
1063 |
princ_char(40,VV[20]); |
princ_char(40,VV[20]); |
1064 |
{register long V173; |
{register long V163; |
1065 |
register long V174; |
register long V164; |
1066 |
V173= fix(structure_ref(car((V164)),VV[0],4)); |
V163= fix(STREF(object,CMPcar((V157)),16)); |
1067 |
V174= 0; |
V164= 0; |
1068 |
goto T578; |
goto T578; |
1069 |
T578:; |
T578:; |
1070 |
if(!((V174)>=(V173))){ |
if(!((V164)>=(V163))){ |
1071 |
goto T579;} |
goto T579;} |
1072 |
goto T574; |
goto T574; |
1073 |
goto T579; |
goto T579; |
1074 |
T579:; |
T579:; |
1075 |
princ_str("base",VV[20]); |
princ_str("base",VV[20]); |
1076 |
V175 = make_fixnum(V174); |
V165 = CMPmake_fixnum(V164); |
1077 |
(void)((*(LnkLI54))(V175)); |
(void)((*(LnkLI54))(V165)); |
1078 |
princ_char(44,VV[20]); |
princ_char(44,VV[20]); |
1079 |
V174= (long)(V174)+1; |
V164= (long)(V164)+1; |
1080 |
goto T578;} |
goto T578;} |
1081 |
goto T574; |
goto T574; |
1082 |
T574:; |
T574:; |
1083 |
princ_str("base",VV[20]); |
princ_str("base",VV[20]); |
1084 |
V176= structure_ref(car((V164)),VV[0],4); |
if(number_compare(STREF(object,CMPcar((V157)),16),(VV[16]->s.s_dbind))==0){ |
|
if(number_compare(/* INLINE-ARGS */V176,symbol_value(VV[16]))==0){ |
|
1085 |
goto T592;} |
goto T592;} |
1086 |
V177= structure_ref(car((V164)),VV[0],4); |
(void)((*(LnkLI54))(STREF(object,CMPcar((V157)),16))); |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V177)); |
|
1087 |
goto T592; |
goto T592; |
1088 |
T592:; |
T592:; |
1089 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
1090 |
setq(VV[38],Ct); |
(VV[38]->s.s_dbind)= Ct; |
1091 |
goto T525; |
goto T525; |
1092 |
T525:; |
T525:; |
1093 |
{object V178 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39])); |
{object V166 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39])); |
1094 |
bds_unwind1; |
bds_unwind1; |
1095 |
VMR10(V178)} |
VMR10(V166)} |
1096 |
base[0]=base[0]; |
base[0]=base[0]; |
1097 |
return Cnil; |
return Cnil; |
1098 |
} |
} |