27 |
goto T2; |
goto T2; |
28 |
T2:; |
T2:; |
29 |
{object V5; |
{object V5; |
30 |
V5= (*(LnkLI167))(); |
V5= (*(LnkLI169))(); |
31 |
V6 = (V5); |
V6 = (V5); |
32 |
V7 = (V2); |
V7 = (V2); |
33 |
V8= Ct; |
V8= Ct; |
48 |
base[1]= VV[2]; |
base[1]= VV[2]; |
49 |
base[2]= (VV[0]->s.s_dbind); |
base[2]= (VV[0]->s.s_dbind); |
50 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
51 |
(void) (*Lnk168)(); |
(void) (*Lnk170)(); |
52 |
vs_top=sup; |
vs_top=sup; |
53 |
V10= vs_base[0]; |
V10= vs_base[0]; |
54 |
goto T7; |
goto T7; |
124 |
V20= Cnil; |
V20= Cnil; |
125 |
goto T22; |
goto T22; |
126 |
T22:; |
T22:; |
127 |
base[0]= (*(LnkLI169))(); |
base[0]= (*(LnkLI171))(); |
128 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
129 |
V21 = (base[0]->c.c_car); |
V21 = (base[0]->c.c_car); |
130 |
V22= |
V22= |
131 |
make_cclosure_new(LC45,Cnil,base[0],Cdata); |
make_cclosure_new(LC45,Cnil,base[0],Cdata); |
132 |
(void)((*(LnkLI170))(V21,V22)); |
(void)((*(LnkLI172))(V21,V22)); |
133 |
{object V23; |
{object V23; |
134 |
V23= ((base[0]->c.c_car))->cc.cc_turbo[13]; |
V23= ((base[0]->c.c_car))->cc.cc_turbo[13]; |
135 |
((V23))->c.c_car = V18;} |
((V23))->c.c_car = V18;} |
152 |
base[4]= VV[2]; |
base[4]= VV[2]; |
153 |
base[5]= (VV[0]->s.s_dbind); |
base[5]= (VV[0]->s.s_dbind); |
154 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
155 |
(void) (*Lnk168)(); |
(void) (*Lnk170)(); |
156 |
vs_top=sup; |
vs_top=sup; |
157 |
V26= vs_base[0];} |
V26= vs_base[0];} |
158 |
goto T32; |
goto T32; |
193 |
V33= ((V30))->v.v_self[11]; |
V33= ((V30))->v.v_self[11]; |
194 |
base[2]= (V33); |
base[2]= (V33); |
195 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
196 |
(void) (*Lnk172)(Lclptr172); |
(void) (*Lnk174)(Lclptr174); |
197 |
vs_top=sup; |
vs_top=sup; |
198 |
V34= vs_base[0]; |
V34= vs_base[0]; |
199 |
if(((V34))==Cnil){ |
if(((V34))==Cnil){ |
207 |
(fcall.fun=((V34)),fcalln))()); |
(fcall.fun=((V34)),fcalln))()); |
208 |
base[2]= (V33); |
base[2]= (V33); |
209 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
210 |
(void) (*Lnk173)(Lclptr173); |
(void) (*Lnk175)(Lclptr175); |
211 |
vs_top=sup; |
vs_top=sup; |
212 |
V36= vs_base[0]; |
V36= vs_base[0]; |
213 |
if(((V32))==Cnil){ |
if(((V32))==Cnil){ |
231 |
{register object V41; |
{register object V41; |
232 |
register object V42; |
register object V42; |
233 |
register object V43; |
register object V43; |
234 |
|
register object V44; |
235 |
V41= (V33); |
V41= (V33); |
236 |
V42= (V35); |
V42= (V35); |
237 |
V43= (V39); |
V43= (V39); |
238 |
base[2]= ((V31))->v.v_self[V38]; |
V44= ((V31))->v.v_self[V38]; |
239 |
base[3]= (V41); |
V45= ({object _tmp=get(VV[176],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[176])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[176])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
240 |
base[4]= (V42); |
V46 = (V44); |
241 |
base[5]= (V43); |
V47 = (V41); |
242 |
vs_top=(vs_base=base+2)+4; |
V48 = (V42); |
243 |
(void) (*Lnk174)(Lclptr174); |
V49 = (V43); |
244 |
vs_top=sup;}} |
(void)(( |
245 |
|
V50 = V45, |
246 |
|
(type_of(V50) == t_sfun ?(*((V50)->sfn.sfn_self)): |
247 |
|
(fcall.argd=4,type_of(V50)==t_vfun) ? |
248 |
|
(*((V50)->sfn.sfn_self)): |
249 |
|
(fcall.fun=(V50),fcalln))(V46,V47,V48,V49)));}} |
250 |
V38= (long)(V38)+1; |
V38= (long)(V38)+1; |
251 |
goto T60;} |
goto T60;} |
252 |
goto T54; |
goto T54; |
253 |
T54:; |
T54:; |
254 |
{object V44 = (V35); |
{object V51 = (V35); |
255 |
VMR4(V44)}} |
VMR4(V51)}} |
256 |
goto T49; |
goto T49; |
257 |
T49:; |
T49:; |
258 |
base[2]= VV[11]; |
base[2]= VV[11]; |
259 |
base[4]= (V33); |
base[4]= (V33); |
260 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
261 |
(void) (*Lnk175)(Lclptr175); |
(void) (*Lnk177)(Lclptr177); |
262 |
vs_top=sup; |
vs_top=sup; |
263 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
264 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
265 |
Lerror(); |
Lerror(); |
266 |
vs_top=sup; |
vs_top=sup; |
267 |
{object V45 = vs_base[0]; |
{object V52 = vs_base[0]; |
268 |
VMR4(V45)}} |
VMR4(V52)}} |
269 |
va_end(ap); |
va_end(ap); |
270 |
base[0]=base[0]; |
base[0]=base[0]; |
271 |
return Cnil;} |
return Cnil;} |
278 |
vs_check; |
vs_check; |
279 |
check_arg(2); |
check_arg(2); |
280 |
vs_top=sup; |
vs_top=sup; |
281 |
{object V46=base[0]->c.c_cdr; |
{object V53=base[0]->c.c_cdr; |
282 |
base[2]= V46;} |
base[2]= V53;} |
283 |
{object V48; |
{object V55; |
284 |
object V49= base[2]; |
object V56= base[2]; |
285 |
if(V49==Cnil){ |
if(V56==Cnil){ |
286 |
V47= Cnil; |
V54= Cnil; |
287 |
goto T79;} |
goto T80;} |
288 |
base[3]=V48=MMcons(Cnil,Cnil); |
base[3]=V55=MMcons(Cnil,Cnil); |
289 |
goto T80; |
goto T81; |
290 |
T80:; |
T81:; |
291 |
{register object V50; |
{register object V57; |
292 |
V50= (V49->c.c_car); |
V57= (V56->c.c_car); |
293 |
{object V51; |
{object V58; |
294 |
base[5]= Cnil; |
base[5]= Cnil; |
295 |
base[6]= VV[13]; |
base[6]= VV[13]; |
296 |
base[7]= (V50); |
base[7]= (V57); |
297 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
298 |
Lformat(); |
Lformat(); |
299 |
vs_top=sup; |
vs_top=sup; |
302 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
303 |
Lintern(); |
Lintern(); |
304 |
vs_top=sup; |
vs_top=sup; |
305 |
V51= vs_base[0]; |
V58= vs_base[0]; |
306 |
V52 = (V51); |
V59 = (V58); |
307 |
if(!(((V50))==(VV[16]))){ |
if(!(((V57))==(VV[16]))){ |
308 |
goto T90;} |
goto T91;} |
309 |
V53= VV[17]; |
V60= VV[17]; |
310 |
goto T88; |
goto T89; |
311 |
goto T90; |
goto T91; |
312 |
T90:; |
T91:; |
313 |
V53= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V50)))); |
V60= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V57)))); |
314 |
goto T88; |
goto T89; |
315 |
T88:; |
T89:; |
316 |
V54 = (V50); |
V61 = (V57); |
317 |
if(!(((V50))==(VV[16]))){ |
if(!(((V57))==(VV[16]))){ |
318 |
goto T94;} |
goto T95;} |
319 |
V55= VV[22]; |
V62= VV[22]; |
320 |
goto T92; |
goto T93; |
321 |
goto T94; |
goto T95; |
322 |
T94:; |
T95:; |
323 |
V55= VV[23]; |
V62= VV[23]; |
324 |
goto T92; |
goto T93; |
325 |
T92:; |
T93:; |
326 |
V56= list(2,VV[21],V55); |
V63= list(2,VV[21],V62); |
327 |
V57= list(2,VV[24],(V51)); |
V64= list(2,VV[24],(V58)); |
328 |
V58 = (V50); |
V65 = (V57); |
329 |
V59 = (V50); |
V66 = (V57); |
330 |
(V48->c.c_car)= list(9,VV[15],V52,V53,V54,/* INLINE-ARGS */V56,/* INLINE-ARGS */V57,V58,list(2,VV[25],list(2,VV[20],(V50))),V59);}} |
(V55->c.c_car)= list(9,VV[15],V59,V60,V61,/* INLINE-ARGS */V63,/* INLINE-ARGS */V64,V65,list(2,VV[25],list(2,VV[20],(V57))),V66);}} |
331 |
if((V49=MMcdr(V49))==Cnil){ |
if((V56=MMcdr(V56))==Cnil){ |
332 |
V47= base[3]; |
V54= base[3]; |
|
goto T79;} |
|
|
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
|
333 |
goto T80;} |
goto T80;} |
334 |
goto T79; |
V55=MMcdr(V55)=MMcons(Cnil,Cnil); |
335 |
T79:; |
goto T81;} |
336 |
base[3]= make_cons(VV[12],V47); |
goto T80; |
337 |
|
T80:; |
338 |
|
base[3]= make_cons(VV[12],V54); |
339 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
340 |
return; |
return; |
341 |
} |
} |
347 |
bds_check; |
bds_check; |
348 |
goto TTL; |
goto TTL; |
349 |
TTL:; |
TTL:; |
350 |
{object V61; |
{object V68; |
351 |
V61= (VFUN_NARGS=1,(*(LnkLI176))(VV[26])); |
V68= (VFUN_NARGS=1,(*(LnkLI178))(VV[26])); |
352 |
V63= VV[178]; |
{object V70; |
353 |
V64 = V61; |
V70= VV[179]; |
354 |
(void)((*(LnkLI177))(V63,V64)); |
V71= ({object _tmp=get(VV[180],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[180])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[180])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
355 |
(void)((*(LnkLI179))(VV[26],(V61)));} |
V72 = (V70); |
356 |
{object V65; |
V73 = V68; |
357 |
object V66; |
(void)(( |
358 |
object V67; |
V74 = V71, |
359 |
object V68; |
(type_of(V74) == t_sfun ?(*((V74)->sfn.sfn_self)): |
360 |
object V69; |
(fcall.argd=2,type_of(V74)==t_vfun) ? |
361 |
object V70; |
(*((V74)->sfn.sfn_self)): |
362 |
object V71; |
(fcall.fun=(V74),fcalln))(V72,V73)));} |
363 |
object V72; |
(void)((*(LnkLI181))(VV[26],(V68)));} |
364 |
object V73; |
{object V75; |
|
object V74; |
|
|
object V75; |
|
365 |
object V76; |
object V76; |
366 |
object V77; |
object V77; |
367 |
object V78; |
object V78; |
369 |
object V80; |
object V80; |
370 |
object V81; |
object V81; |
371 |
object V82; |
object V82; |
372 |
|
object V83; |
373 |
|
object V84; |
374 |
|
object V85; |
375 |
|
object V86; |
376 |
|
object V87; |
377 |
|
object V88; |
378 |
|
object V89; |
379 |
|
object V90; |
380 |
|
object V91; |
381 |
|
object V92; |
382 |
bds_bind(VV[27],Cnil); |
bds_bind(VV[27],Cnil); |
|
V65= Cnil; |
|
|
V66= Cnil; |
|
|
V67= Cnil; |
|
|
V68= Cnil; |
|
|
V69= Cnil; |
|
|
V70= Cnil; |
|
|
V71= Cnil; |
|
|
V72= Cnil; |
|
|
V73= Cnil; |
|
|
V74= Cnil; |
|
383 |
V75= Cnil; |
V75= Cnil; |
384 |
V76= Cnil; |
V76= Cnil; |
385 |
V77= Cnil; |
V77= Cnil; |
388 |
V80= Cnil; |
V80= Cnil; |
389 |
V81= Cnil; |
V81= Cnil; |
390 |
V82= Cnil; |
V82= Cnil; |
391 |
V83 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28])); |
V83= Cnil; |
392 |
V65= (VFUN_NARGS=1,(*(LnkLI18))(V83)); |
V84= Cnil; |
393 |
V66= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
V85= Cnil; |
394 |
(void)(((V65))->v.v_self[11]= ((V66))); |
V86= Cnil; |
395 |
(void)((*(LnkLI180))(V66,VV[28])); |
V87= Cnil; |
396 |
V86 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29])); |
V88= Cnil; |
397 |
V67= (VFUN_NARGS=1,(*(LnkLI18))(V86)); |
V89= Cnil; |
398 |
V68= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
V90= Cnil; |
399 |
(void)(((V67))->v.v_self[11]= ((V68))); |
V91= Cnil; |
400 |
(void)((*(LnkLI180))(V68,VV[29])); |
V92= Cnil; |
401 |
V89 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30])); |
V93 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28])); |
402 |
V69= (VFUN_NARGS=1,(*(LnkLI18))(V89)); |
V75= (VFUN_NARGS=1,(*(LnkLI18))(V93)); |
403 |
V70= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
V76= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
|
(void)(((V69))->v.v_self[11]= ((V70))); |
|
|
(void)((*(LnkLI180))(V70,VV[30])); |
|
|
V92 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31])); |
|
|
V71= (VFUN_NARGS=1,(*(LnkLI18))(V92)); |
|
|
V72= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
|
|
(void)(((V71))->v.v_self[11]= ((V72))); |
|
|
(void)((*(LnkLI180))(V72,VV[31])); |
|
|
V95 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32])); |
|
|
V73= (VFUN_NARGS=1,(*(LnkLI18))(V95)); |
|
|
V74= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
|
|
(void)(((V73))->v.v_self[11]= ((V74))); |
|
|
(void)((*(LnkLI180))(V74,VV[32])); |
|
|
V98 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33])); |
|
|
V75= (VFUN_NARGS=1,(*(LnkLI18))(V98)); |
|
|
V76= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
|
404 |
(void)(((V75))->v.v_self[11]= ((V76))); |
(void)(((V75))->v.v_self[11]= ((V76))); |
405 |
(void)((*(LnkLI180))(V76,VV[33])); |
V96= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
406 |
V101 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34])); |
V97 = V76; |
407 |
V77= (VFUN_NARGS=1,(*(LnkLI18))(V101)); |
V98 = VV[28]; |
408 |
V78= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
(void)(( |
409 |
|
V99 = V96, |
410 |
|
(type_of(V99) == t_sfun ?(*((V99)->sfn.sfn_self)): |
411 |
|
(fcall.argd=2,type_of(V99)==t_vfun) ? |
412 |
|
(*((V99)->sfn.sfn_self)): |
413 |
|
(fcall.fun=(V99),fcalln))(V97,V98))); |
414 |
|
V100 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29])); |
415 |
|
V77= (VFUN_NARGS=1,(*(LnkLI18))(V100)); |
416 |
|
V78= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
417 |
(void)(((V77))->v.v_self[11]= ((V78))); |
(void)(((V77))->v.v_self[11]= ((V78))); |
418 |
(void)((*(LnkLI180))(V78,VV[34])); |
V103= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
419 |
V104 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35])); |
V104 = V78; |
420 |
V79= (VFUN_NARGS=1,(*(LnkLI18))(V104)); |
V105 = VV[29]; |
421 |
V80= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
(void)(( |
422 |
|
V106 = V103, |
423 |
|
(type_of(V106) == t_sfun ?(*((V106)->sfn.sfn_self)): |
424 |
|
(fcall.argd=2,type_of(V106)==t_vfun) ? |
425 |
|
(*((V106)->sfn.sfn_self)): |
426 |
|
(fcall.fun=(V106),fcalln))(V104,V105))); |
427 |
|
V107 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30])); |
428 |
|
V79= (VFUN_NARGS=1,(*(LnkLI18))(V107)); |
429 |
|
V80= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
430 |
(void)(((V79))->v.v_self[11]= ((V80))); |
(void)(((V79))->v.v_self[11]= ((V80))); |
431 |
(void)((*(LnkLI180))(V80,VV[35])); |
V110= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
432 |
V81= (VV[17]->s.s_dbind); |
V111 = V80; |
433 |
V82= (VFUN_NARGS=1,(*(LnkLI21))((V67))); |
V112 = VV[30]; |
434 |
|
(void)(( |
435 |
|
V113 = V110, |
436 |
|
(type_of(V113) == t_sfun ?(*((V113)->sfn.sfn_self)): |
437 |
|
(fcall.argd=2,type_of(V113)==t_vfun) ? |
438 |
|
(*((V113)->sfn.sfn_self)): |
439 |
|
(fcall.fun=(V113),fcalln))(V111,V112))); |
440 |
|
V114 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31])); |
441 |
|
V81= (VFUN_NARGS=1,(*(LnkLI18))(V114)); |
442 |
|
V82= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
443 |
(void)(((V81))->v.v_self[11]= ((V82))); |
(void)(((V81))->v.v_self[11]= ((V82))); |
444 |
(void)((*(LnkLI180))(V82,VV[16])); |
V117= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
445 |
{object V109; |
V118 = V82; |
446 |
object V110; |
V119 = VV[31]; |
447 |
V109= (VV[36]->s.s_dbind); |
(void)(( |
448 |
V110= CMPcar((V109)); |
V120 = V117, |
449 |
goto T176; |
(type_of(V120) == t_sfun ?(*((V120)->sfn.sfn_self)): |
450 |
T176:; |
(fcall.argd=2,type_of(V120)==t_vfun) ? |
451 |
if(!(((V109))==Cnil)){ |
(*((V120)->sfn.sfn_self)): |
452 |
goto T177;} |
(fcall.fun=(V120),fcalln))(V118,V119))); |
453 |
goto T172; |
V121 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32])); |
454 |
goto T177; |
V83= (VFUN_NARGS=1,(*(LnkLI18))(V121)); |
455 |
T177:; |
V84= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
456 |
{object V111; |
(void)(((V83))->v.v_self[11]= ((V84))); |
457 |
object V112; |
V124= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
458 |
object V113; |
V125 = V84; |
459 |
object V114; |
V126 = VV[32]; |
460 |
V111= (*(LnkLI181))((V110)); |
(void)(( |
461 |
V112= (*(LnkLI182))((V110)); |
V127 = V124, |
462 |
{object V115= (V112); |
(type_of(V127) == t_sfun ?(*((V127)->sfn.sfn_self)): |
463 |
if((V115!= VV[30]))goto T185; |
(fcall.argd=2,type_of(V127)==t_vfun) ? |
464 |
V113= (V69); |
(*((V127)->sfn.sfn_self)): |
465 |
goto T184; |
(fcall.fun=(V127),fcalln))(V125,V126))); |
466 |
goto T185; |
V128 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33])); |
467 |
T185:; |
V85= (VFUN_NARGS=1,(*(LnkLI18))(V128)); |
468 |
if((V115!= VV[28]))goto T186; |
V86= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
469 |
V113= (V65); |
(void)(((V85))->v.v_self[11]= ((V86))); |
470 |
goto T184; |
V131= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
471 |
goto T186; |
V132 = V86; |
472 |
T186:; |
V133 = VV[33]; |
473 |
if((V115!= VV[29]))goto T187; |
(void)(( |
474 |
V113= (V67); |
V134 = V131, |
475 |
goto T184; |
(type_of(V134) == t_sfun ?(*((V134)->sfn.sfn_self)): |
476 |
|
(fcall.argd=2,type_of(V134)==t_vfun) ? |
477 |
|
(*((V134)->sfn.sfn_self)): |
478 |
|
(fcall.fun=(V134),fcalln))(V132,V133))); |
479 |
|
V135 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34])); |
480 |
|
V87= (VFUN_NARGS=1,(*(LnkLI18))(V135)); |
481 |
|
V88= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
482 |
|
(void)(((V87))->v.v_self[11]= ((V88))); |
483 |
|
V138= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
484 |
|
V139 = V88; |
485 |
|
V140 = VV[34]; |
486 |
|
(void)(( |
487 |
|
V141 = V138, |
488 |
|
(type_of(V141) == t_sfun ?(*((V141)->sfn.sfn_self)): |
489 |
|
(fcall.argd=2,type_of(V141)==t_vfun) ? |
490 |
|
(*((V141)->sfn.sfn_self)): |
491 |
|
(fcall.fun=(V141),fcalln))(V139,V140))); |
492 |
|
V142 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35])); |
493 |
|
V89= (VFUN_NARGS=1,(*(LnkLI18))(V142)); |
494 |
|
V90= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
495 |
|
(void)(((V89))->v.v_self[11]= ((V90))); |
496 |
|
V145= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
497 |
|
V146 = V90; |
498 |
|
V147 = VV[35]; |
499 |
|
(void)(( |
500 |
|
V148 = V145, |
501 |
|
(type_of(V148) == t_sfun ?(*((V148)->sfn.sfn_self)): |
502 |
|
(fcall.argd=2,type_of(V148)==t_vfun) ? |
503 |
|
(*((V148)->sfn.sfn_self)): |
504 |
|
(fcall.fun=(V148),fcalln))(V146,V147))); |
505 |
|
V91= (VV[17]->s.s_dbind); |
506 |
|
V92= (VFUN_NARGS=1,(*(LnkLI21))((V77))); |
507 |
|
(void)(((V91))->v.v_self[11]= ((V92))); |
508 |
|
V151= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
509 |
|
V152 = V92; |
510 |
|
V153 = VV[16]; |
511 |
|
(void)(( |
512 |
|
V154 = V151, |
513 |
|
(type_of(V154) == t_sfun ?(*((V154)->sfn.sfn_self)): |
514 |
|
(fcall.argd=2,type_of(V154)==t_vfun) ? |
515 |
|
(*((V154)->sfn.sfn_self)): |
516 |
|
(fcall.fun=(V154),fcalln))(V152,V153))); |
517 |
|
{object V155; |
518 |
|
object V156; |
519 |
|
V155= (VV[36]->s.s_dbind); |
520 |
|
V156= CMPcar((V155)); |
521 |
goto T187; |
goto T187; |
522 |
T187:; |
T187:; |
523 |
if((V115!= VV[31]))goto T188; |
if(!(((V155))==Cnil)){ |
524 |
V113= (V71); |
goto T188;} |
525 |
goto T184; |
goto T183; |
526 |
goto T188; |
goto T188; |
527 |
T188:; |
T188:; |
528 |
if((V115!= VV[32]))goto T189; |
{object V157; |
529 |
V113= (V73); |
object V158; |
530 |
goto T184; |
object V159; |
531 |
goto T189; |
object V160; |
532 |
T189:; |
V157= (*(LnkLI182))((V156)); |
533 |
FEerror("The ECASE key value ~s is illegal.",1,V115); |
V158= (*(LnkLI183))((V156)); |
534 |
V113= Cnil; |
{object V161= (V158); |
535 |
goto T184;} |
if((V161!= VV[30]))goto T196; |
536 |
goto T184; |
V159= (V79); |
537 |
T184:;{object V116; |
goto T195; |
538 |
V116= (VFUN_NARGS=2,(*(LnkLI25))((V111),Cnil)); |
goto T196; |
539 |
if(V116==Cnil)goto T191; |
T196:; |
540 |
V114= V116; |
if((V161!= VV[28]))goto T197; |
541 |
goto T190; |
V159= (V75); |
542 |
goto T191; |
goto T195; |
543 |
T191:;} |
goto T197; |
544 |
V114= (VFUN_NARGS=1,(*(LnkLI21))((V113))); |
T197:; |
545 |
goto T190; |
if((V161!= VV[29]))goto T198; |
546 |
T190:; |
V159= (V77); |
547 |
if(((V112))==(VV[28])){ |
goto T195; |
548 |
goto T194;} |
goto T198; |
549 |
if(!(((V112))==(VV[29]))){ |
T198:; |
550 |
goto T193;} |
if((V161!= VV[31]))goto T199; |
551 |
goto T194; |
V159= (V81); |
552 |
T194:; |
goto T195; |
553 |
(void)((*(LnkLI183))((V111))); |
goto T199; |
554 |
goto T193; |
T199:; |
555 |
T193:; |
if((V161!= VV[32]))goto T200; |
556 |
(void)((*(LnkLI180))(V114,V111));} |
V159= (V83); |
557 |
V109= CMPcdr((V109)); |
goto T195; |
558 |
V110= CMPcar((V109)); |
goto T200; |
559 |
goto T176;} |
T200:; |
560 |
goto T172; |
FEerror("The ECASE key value ~s is illegal.",1,V161); |
561 |
T172:; |
V159= Cnil; |
562 |
{object V119; |
goto T195;} |
563 |
register object V120; |
goto T195; |
564 |
V119= (VV[36]->s.s_dbind); |
T195:;{object V162; |
565 |
V120= CMPcar((V119)); |
V162= (VFUN_NARGS=2,(*(LnkLI25))((V157),Cnil)); |
566 |
goto T207; |
if(V162==Cnil)goto T202; |
567 |
T207:; |
V160= V162; |
568 |
if(!(((V119))==Cnil)){ |
goto T201; |
569 |
goto T208;} |
goto T202; |
570 |
goto T203; |
T202:;} |
571 |
goto T208; |
V160= (VFUN_NARGS=1,(*(LnkLI21))((V159))); |
572 |
T208:; |
goto T201; |
573 |
{register object V121; |
T201:; |
574 |
register object V122; |
if(((V158))==(VV[28])){ |
575 |
object V123; |
goto T205;} |
576 |
object V124; |
if(!(((V158))==(VV[29]))){ |
577 |
object V125; |
goto T204;} |
578 |
object V126; |
goto T205; |
579 |
V121= (*(LnkLI181))((V120)); |
T205:; |
580 |
V122= (*(LnkLI182))((V120)); |
(void)((*(LnkLI184))((V157))); |
581 |
V123= (*(LnkLI184))((V120)); |
goto T204; |
582 |
V124= (*(LnkLI185))((V120)); |
T204:; |
583 |
V125= (*(LnkLI186))((V120)); |
V165= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
584 |
V126= (*(LnkLI187))((V120)); |
V166 = V160; |
585 |
{object V127; |
V167 = V157; |
586 |
base[2]= (V126); |
(void)(( |
587 |
|
V168 = V165, |
588 |
|
(type_of(V168) == t_sfun ?(*((V168)->sfn.sfn_self)): |
589 |
|
(fcall.argd=2,type_of(V168)==t_vfun) ? |
590 |
|
(*((V168)->sfn.sfn_self)): |
591 |
|
(fcall.fun=(V168),fcalln))(V166,V167)));} |
592 |
|
V155= CMPcdr((V155)); |
593 |
|
V156= CMPcar((V155)); |
594 |
|
goto T187;} |
595 |
|
goto T183; |
596 |
|
T183:; |
597 |
|
{object V169; |
598 |
|
register object V170; |
599 |
|
V169= (VV[36]->s.s_dbind); |
600 |
|
V170= CMPcar((V169)); |
601 |
|
goto T219; |
602 |
|
T219:; |
603 |
|
if(!(((V169))==Cnil)){ |
604 |
|
goto T220;} |
605 |
|
goto T215; |
606 |
|
goto T220; |
607 |
|
T220:; |
608 |
|
{register object V171; |
609 |
|
register object V172; |
610 |
|
object V173; |
611 |
|
object V174; |
612 |
|
object V175; |
613 |
|
object V176; |
614 |
|
V171= (*(LnkLI182))((V170)); |
615 |
|
V172= (*(LnkLI183))((V170)); |
616 |
|
V173= (*(LnkLI185))((V170)); |
617 |
|
V174= (*(LnkLI186))((V170)); |
618 |
|
V175= (*(LnkLI187))((V170)); |
619 |
|
V176= (*(LnkLI188))((V170)); |
620 |
|
{object V177; |
621 |
|
base[2]= (V176); |
622 |
base[3]= VV[37]; |
base[3]= VV[37]; |
623 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
624 |
Lgetf(); |
Lgetf(); |
625 |
vs_top=sup; |
vs_top=sup; |
626 |
V127= vs_base[0]; |
V177= vs_base[0]; |
627 |
{register object V128; |
{register object V178; |
628 |
object V129; |
object V179; |
629 |
object V130; |
object V180; |
630 |
object V131; |
object V181; |
631 |
base[2]= (V121); |
base[2]= (V171); |
632 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
633 |
(void) (*Lnk188)(); |
(void) (*Lnk189)(); |
634 |
if(vs_base>=vs_top){vs_top=sup;goto T224;} |
if(vs_base>=vs_top){vs_top=sup;goto T236;} |
635 |
V128= vs_base[0]; |
V178= vs_base[0]; |
636 |
vs_base++; |
vs_base++; |
637 |
if(vs_base>=vs_top){vs_top=sup;goto T225;} |
if(vs_base>=vs_top){vs_top=sup;goto T237;} |
638 |
V129= vs_base[0]; |
V179= vs_base[0]; |
639 |
vs_base++; |
vs_base++; |
640 |
if(vs_base>=vs_top){vs_top=sup;goto T226;} |
if(vs_base>=vs_top){vs_top=sup;goto T238;} |
641 |
V130= vs_base[0]; |
V180= vs_base[0]; |
642 |
vs_base++; |
vs_base++; |
643 |
if(vs_base>=vs_top){vs_top=sup;goto T227;} |
if(vs_base>=vs_top){vs_top=sup;goto T239;} |
644 |
V131= vs_base[0]; |
V181= vs_base[0]; |
645 |
vs_top=sup; |
vs_top=sup; |
646 |
goto T228; |
goto T240; |
647 |
goto T224; |
goto T236; |
648 |
T224:; |
T236:; |
649 |
V128= Cnil; |
V178= Cnil; |
650 |
goto T225; |
goto T237; |
651 |
T225:; |
T237:; |
652 |
V129= Cnil; |
V179= Cnil; |
|
goto T226; |
|
|
T226:; |
|
|
V130= Cnil; |
|
|
goto T227; |
|
|
T227:; |
|
|
V131= Cnil; |
|
|
goto T228; |
|
|
T228:; |
|
|
{register object V132; |
|
|
register object V133; |
|
|
object V134; |
|
|
V132= (VFUN_NARGS=1,(*(LnkLI25))((V121))); |
|
|
if(!(((V132))==((V70)))){ |
|
|
goto T232;} |
|
|
V133= (V69); |
|
|
goto T230; |
|
|
goto T232; |
|
|
T232:; |
|
|
if(!(((V132))==((V66)))){ |
|
|
goto T235;} |
|
|
V133= (V65); |
|
|
goto T230; |
|
|
goto T235; |
|
|
T235:; |
|
|
if(!(((V132))==((V68)))){ |
|
|
goto T238;} |
|
|
V133= (V67); |
|
|
goto T230; |
|
653 |
goto T238; |
goto T238; |
654 |
T238:; |
T238:; |
655 |
if(!(((V132))==((V76)))){ |
V180= Cnil; |
656 |
goto T241;} |
goto T239; |
657 |
V133= (V75); |
T239:; |
658 |
goto T230; |
V181= Cnil; |
659 |
goto T241; |
goto T240; |
660 |
T241:; |
T240:; |
661 |
if(!(((V132))==((V78)))){ |
{register object V182; |
662 |
|
register object V183; |
663 |
|
object V184; |
664 |
|
V182= (VFUN_NARGS=1,(*(LnkLI25))((V171))); |
665 |
|
if(!(((V182))==((V80)))){ |
666 |
goto T244;} |
goto T244;} |
667 |
V133= (V77); |
V183= (V79); |
668 |
goto T230; |
goto T242; |
669 |
goto T244; |
goto T244; |
670 |
T244:; |
T244:; |
671 |
if(!(((V132))==((V72)))){ |
if(!(((V182))==((V76)))){ |
672 |
goto T247;} |
goto T247;} |
673 |
V133= (V71); |
V183= (V75); |
674 |
goto T230; |
goto T242; |
675 |
goto T247; |
goto T247; |
676 |
T247:; |
T247:; |
677 |
if(!(((V132))==((V74)))){ |
if(!(((V182))==((V78)))){ |
678 |
goto T250;} |
goto T250;} |
679 |
V133= (V73); |
V183= (V77); |
680 |
goto T230; |
goto T242; |
681 |
goto T250; |
goto T250; |
682 |
T250:; |
T250:; |
683 |
if(!(((V132))==((V80)))){ |
if(!(((V182))==((V86)))){ |
684 |
goto T253;} |
goto T253;} |
685 |
V133= (V79); |
V183= (V85); |
686 |
goto T230; |
goto T242; |
687 |
goto T253; |
goto T253; |
688 |
T253:; |
T253:; |
689 |
if(!(((V132))==((V82)))){ |
if(!(((V182))==((V88)))){ |
690 |
goto T256;} |
goto T256;} |
691 |
V133= (V81); |
V183= (V87); |
692 |
goto T230; |
goto T242; |
693 |
goto T256; |
goto T256; |
694 |
T256:; |
T256:; |
695 |
V135 = CMPmake_fixnum((long)length((V128))); |
if(!(((V182))==((V82)))){ |
|
V133= (VFUN_NARGS=2,(*(LnkLI18))(V135,(V132))); |
|
|
goto T230; |
|
|
T230:; |
|
|
V134= Cnil; |
|
|
if(!(((V121))==(Ct))){ |
|
696 |
goto T259;} |
goto T259;} |
697 |
(VV[38]->s.s_dbind)= (V133); |
V183= (V81); |
698 |
|
goto T242; |
699 |
goto T259; |
goto T259; |
700 |
T259:; |
T259:; |
701 |
|
if(!(((V182))==((V84)))){ |
702 |
|
goto T262;} |
703 |
|
V183= (V83); |
704 |
|
goto T242; |
705 |
|
goto T262; |
706 |
|
T262:; |
707 |
|
if(!(((V182))==((V90)))){ |
708 |
|
goto T265;} |
709 |
|
V183= (V89); |
710 |
|
goto T242; |
711 |
|
goto T265; |
712 |
|
T265:; |
713 |
|
if(!(((V182))==((V92)))){ |
714 |
|
goto T268;} |
715 |
|
V183= (V91); |
716 |
|
goto T242; |
717 |
|
goto T268; |
718 |
|
T268:; |
719 |
|
V185 = CMPmake_fixnum((long)length((V178))); |
720 |
|
V183= (VFUN_NARGS=2,(*(LnkLI18))(V185,(V182))); |
721 |
|
goto T242; |
722 |
|
T242:; |
723 |
|
V184= Cnil; |
724 |
|
if(!(((V171))==(Ct))){ |
725 |
|
goto T271;} |
726 |
|
(VV[38]->s.s_dbind)= (V183); |
727 |
|
goto T271; |
728 |
|
T271:; |
729 |
base[6]= Cnil; |
base[6]= Cnil; |
730 |
base[7]= VV[39]; |
base[7]= VV[39]; |
731 |
base[8]= symbol_name((V121)); |
base[8]= symbol_name((V171)); |
732 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
733 |
Lformat(); |
Lformat(); |
734 |
vs_top=sup; |
vs_top=sup; |
738 |
Lintern(); |
Lintern(); |
739 |
vs_top=sup; |
vs_top=sup; |
740 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
741 |
base[5]= (V132); |
base[5]= (V182); |
742 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
743 |
Lset(); |
Lset(); |
744 |
vs_top=sup; |
vs_top=sup; |
745 |
{register object V136; |
{register object V186; |
746 |
object V137; |
object V187; |
747 |
V136= (V128); |
V186= (V178); |
748 |
V137= CMPcar((V136)); |
V187= CMPcar((V186)); |
749 |
goto T275; |
goto T287; |
750 |
T275:; |
T287:; |
751 |
if(!(((V136))==Cnil)){ |
if(!(((V186))==Cnil)){ |
752 |
goto T276;} |
goto T288;} |
753 |
goto T271; |
goto T283; |
754 |
goto T276; |
goto T288; |
755 |
T276:; |
T288:; |
756 |
base[5]= (V137); |
base[5]= (V187); |
757 |
base[6]= VV[40]; |
base[6]= VV[40]; |
758 |
base[7]= VV[41]; |
base[7]= VV[41]; |
759 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
760 |
Lgetf(); |
Lgetf(); |
761 |
vs_top=sup; |
vs_top=sup; |
762 |
V138= vs_base[0]; |
V188= vs_base[0]; |
763 |
if((V138)==(VV[41])){ |
if((V188)==(VV[41])){ |
764 |
goto T280;} |
goto T292;} |
765 |
base[5]= VV[42]; |
base[5]= VV[42]; |
766 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
767 |
Lerror(); |
Lerror(); |
768 |
vs_top=sup; |
vs_top=sup; |
769 |
goto T280; |
goto T292; |
770 |
T280:; |
T292:; |
771 |
V136= CMPcdr((V136)); |
V186= CMPcdr((V186)); |
772 |
V137= CMPcar((V136)); |
V187= CMPcar((V186)); |
773 |
goto T275;} |
goto T287;} |
774 |
goto T271; |
goto T283; |
775 |
T271:; |
T283:; |
776 |
V139 = (V133); |
V189 = (V183); |
777 |
base[5]=VV[189]->s.s_gfdef; |
base[5]=VV[190]->s.s_gfdef; |
778 |
{object V141; |
{object V191; |
779 |
object V142= (V128); |
object V192= (V178); |
780 |
if(V142==Cnil){ |
if(V192==Cnil){ |
781 |
V140= Cnil; |
V190= Cnil; |
782 |
goto T295;} |
goto T307;} |
783 |
base[4]=V141=MMcons(Cnil,Cnil); |
base[4]=V191=MMcons(Cnil,Cnil); |
|
goto T296; |
|
|
T296:; |
|
|
base[6]= (V142->c.c_car); |
|
|
vs_top=(vs_base=base+6)+1; |
|
|
(void) (*Lnk189)(); |
|
|
vs_top=sup; |
|
|
(V141->c.c_car)= vs_base[0]; |
|
|
if((V142=MMcdr(V142))==Cnil){ |
|
|
V140= base[4]; |
|
|
goto T295;} |
|
|
V141=MMcdr(V141)=MMcons(Cnil,Cnil); |
|
|
goto T296;} |
|
|
goto T295; |
|
|
T295:; |
|
|
(void)((V139)->v.v_self[9]= (V140)); |
|
|
(void)(((V133))->v.v_self[10]= (Cnil)); |
|
|
if(!(((V122))==(VV[29]))){ |
|
|
goto T302;} |
|
|
V134= (VFUN_NARGS=1,(*(LnkLI190))((V133))); |
|
|
goto T300; |
|
|
goto T302; |
|
|
T302:; |
|
|
V134= (VFUN_NARGS=1,(*(LnkLI21))((V133))); |
|
|
goto T300; |
|
|
T300:; |
|
|
V125= (*(LnkLI191))((V121),(V132),(V125),(V75),Cnil); |
|
|
V128= (*(LnkLI191))((V121),(V132),(V128),(V77),Ct); |
|
|
{object V143= (V122); |
|
|
if((V143!= VV[28]) |
|
|
&& (V143!= VV[29]))goto T308; |
|
|
(void)((VFUN_NARGS=14,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134),(V125),(V128),(V127),(V130)))); |
|
|
goto T212; |
|
784 |
goto T308; |
goto T308; |
785 |
T308:; |
T308:; |
786 |
if((V143!= VV[31]))goto T309; |
base[6]= (V192->c.c_car); |
787 |
(void)((VFUN_NARGS=10,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134)))); |
vs_top=(vs_base=base+6)+1; |
788 |
goto T212; |
(void) (*Lnk190)(); |
789 |
goto T309; |
vs_top=sup; |
790 |
T309:; |
(V191->c.c_car)= vs_base[0]; |
791 |
if((V143!= VV[30]))goto T310; |
if((V192=MMcdr(V192))==Cnil){ |
792 |
(void)((VFUN_NARGS=10,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134)))); |
V190= base[4]; |
793 |
goto T212; |
goto T307;} |
794 |
goto T310; |
V191=MMcdr(V191)=MMcons(Cnil,Cnil); |
795 |
T310:; |
goto T308;} |
796 |
if((V143!= VV[32]))goto T311; |
goto T307; |
797 |
(void)((VFUN_NARGS=9,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133)))); |
T307:; |
798 |
goto T212; |
(void)((V189)->v.v_self[9]= (V190)); |
799 |
goto T311; |
(void)(((V183))->v.v_self[10]= (Cnil)); |
800 |
T311:;}}}}} |
if(!(((V172))==(VV[29]))){ |
801 |
goto T212; |
goto T314;} |
802 |
T212:; |
V184= (VFUN_NARGS=1,(*(LnkLI191))((V183))); |
803 |
V119= CMPcdr((V119)); |
goto T312; |
804 |
V120= CMPcar((V119)); |
goto T314; |
805 |
goto T207;} |
T314:; |
806 |
goto T203; |
V184= (VFUN_NARGS=1,(*(LnkLI21))((V183))); |
807 |
T203:; |
goto T312; |
808 |
{object V144; |
T312:; |
809 |
object V145; |
V175= (*(LnkLI192))((V171),(V182),(V175),(V85),Cnil); |
810 |
V144= (VFUN_NARGS=1,(*(LnkLI25))(VV[43])); |
V178= (*(LnkLI192))((V171),(V182),(V178),(V87),Ct); |
811 |
if(type_of(V144)==t_structure){ |
{object V193= (V172); |
812 |
goto T323;} |
if((V193!= VV[28]) |
813 |
|
&& (V193!= VV[29]))goto T320; |
814 |
|
(void)((VFUN_NARGS=14,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184),(V175),(V178),(V177),(V180)))); |
815 |
|
goto T224; |
816 |
|
goto T320; |
817 |
|
T320:; |
818 |
|
if((V193!= VV[31]))goto T321; |
819 |
|
(void)((VFUN_NARGS=10,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184)))); |
820 |
|
goto T224; |
821 |
goto T321; |
goto T321; |
822 |
|
T321:; |
823 |
|
if((V193!= VV[30]))goto T322; |
824 |
|
(void)((VFUN_NARGS=10,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184)))); |
825 |
|
goto T224; |
826 |
|
goto T322; |
827 |
|
T322:; |
828 |
|
if((V193!= VV[32]))goto T323; |
829 |
|
(void)((VFUN_NARGS=9,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183)))); |
830 |
|
goto T224; |
831 |
goto T323; |
goto T323; |
832 |
T323:; |
T323:;}}}}} |
833 |
if(!(((V144)->str.str_def)==(VV[44]))){ |
goto T224; |
834 |
goto T321;} |
T224:; |
835 |
V146= STREF(object,(V144),4); |
V169= CMPcdr((V169)); |
836 |
goto T319; |
V170= CMPcar((V169)); |
837 |
goto T321; |
goto T219;} |
838 |
T321:;{object V148; |
goto T215; |
839 |
V148= (VV[45]->s.s_dbind); |
T215:; |
840 |
|
{object V194; |
841 |
|
object V195; |
842 |
|
V194= (VFUN_NARGS=1,(*(LnkLI25))(VV[43])); |
843 |
|
if(type_of(V194)==t_structure){ |
844 |
|
goto T335;} |
845 |
|
goto T333; |
846 |
|
goto T335; |
847 |
|
T335:; |
848 |
|
if(!(((V194)->str.str_def)==(VV[44]))){ |
849 |
|
goto T333;} |
850 |
|
V196= STREF(object,(V194),4); |
851 |
|
goto T331; |
852 |
|
goto T333; |
853 |
|
T333:;{object V198; |
854 |
|
V198= (VV[45]->s.s_dbind); |
855 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
856 |
base[5]= (V144); |
base[5]= (V194); |
857 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
858 |
(void) (*Lnk193)(); |
(void) (*Lnk194)(); |
859 |
vs_top=sup; |
vs_top=sup; |
860 |
V149= vs_base[0]; |
V199= vs_base[0]; |
861 |
if(!((V148)==(CMPcar(V149)))){ |
if(!((V198)==(CMPcar(V199)))){ |
862 |
goto T326;}} |
goto T338;}} |
863 |
V146= CMPcar(((V144))->cc.cc_turbo[12]); |
V196= CMPcar(((V194))->cc.cc_turbo[12]); |
864 |
goto T319; |
goto T331; |
865 |
goto T326; |
goto T338; |
866 |
T326:; |
T338:; |
867 |
base[4]= VV[46]; |
base[4]= VV[46]; |
868 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
869 |
Lerror(); |
Lerror(); |
870 |
vs_top=sup; |
vs_top=sup; |
871 |
V146= vs_base[0]; |
V196= vs_base[0]; |
872 |
goto T319; |
goto T331; |
873 |
T319:; |
T331:; |
874 |
V150= (*(LnkLI194))(VV[28],VV[47]); |
V200= (*(LnkLI195))(VV[28],VV[47]); |
875 |
V145= (V146)->v.v_self[fix(/* INLINE-ARGS */V150)]; |
V195= (V196)->v.v_self[fix(/* INLINE-ARGS */V200)]; |
876 |
base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V145))); |
base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V195))); |
877 |
base[4]= VV[48]; |
base[4]= VV[48]; |
878 |
vs_base=vs_top; |
vs_base=vs_top; |
879 |
(void) (*Lnk195)(); |
(void) (*Lnk196)(); |
880 |
vs_top=sup; |
vs_top=sup; |
881 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
882 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
898 |
L7(base); |
L7(base); |
899 |
vs_top=sup; |
vs_top=sup; |
900 |
(VV[54]->s.s_dbind)= base[3]; |
(VV[54]->s.s_dbind)= base[3]; |
901 |
{object V151 = (VV[54]->s.s_dbind); |
{object V201 = (VV[54]->s.s_dbind); |
902 |
bds_unwind1; |
bds_unwind1; |
903 |
VMR6(V151)}}} |
VMR6(V201)}}} |
904 |
base[0]=base[0]; |
base[0]=base[0]; |
905 |
return Cnil; |
return Cnil; |
906 |
} |
} |
907 |
/* local entry for function BOOTSTRAP-INITIALIZE-CLASS */ |
/* local entry for function BOOTSTRAP-INITIALIZE-CLASS */ |
908 |
|
|
909 |
static object LI8(object V160,object V159,object V158,object V157,object V156,object V155,object V154,object V153,object V152,object first,...) |
static object LI8(object V210,object V209,object V208,object V207,object V206,object V205,object V204,object V203,object V202,object first,...) |
910 |
{ |
{ |
911 |
va_list ap; |
va_list ap; |
912 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
913 |
{register object V161; |
{register object V211; |
914 |
object V162; |
object V212; |
915 |
object V163; |
object V213; |
916 |
object V164; |
object V214; |
917 |
object V165; |
object V215; |
918 |
object V166; |
object V216; |
919 |
object V167; |
object V217; |
920 |
object V168; |
object V218; |
921 |
object V169; |
object V219; |
922 |
object V170; |
object V220; |
923 |
object V171; |
object V221; |
924 |
object V172; |
object V222; |
925 |
va_start(ap,first); |
va_start(ap,first); |
926 |
if(narg <9) too_few_arguments(); |
if(narg <9) too_few_arguments(); |
927 |
base[0]= V160; |
base[0]= V210; |
928 |
base[1]= V159; |
base[1]= V209; |
929 |
V161= V158; |
V211= V208; |
930 |
V162= V157; |
V212= V207; |
931 |
V163= V156; |
V213= V206; |
932 |
V164= V155; |
V214= V205; |
933 |
V165= V154; |
V215= V204; |
934 |
V166= V153; |
V216= V203; |
935 |
V167= V152; |
V217= V202; |
936 |
narg = narg - 9; |
narg = narg - 9; |
937 |
if (narg <= 0) goto T346; |
if (narg <= 0) goto T358; |
938 |
else { |
else { |
939 |
V168= first;} |
V218= first;} |
940 |
if (--narg <= 0) goto T347; |
if (--narg <= 0) goto T359; |
941 |
else { |
else { |
942 |
V169= va_arg(ap,object);} |
V219= va_arg(ap,object);} |
943 |
if (--narg <= 0) goto T348; |
if (--narg <= 0) goto T360; |
944 |
else { |
else { |
945 |
V170= va_arg(ap,object);} |
V220= va_arg(ap,object);} |
946 |
if (--narg <= 0) goto T349; |
if (--narg <= 0) goto T361; |
947 |
else { |
else { |
948 |
V171= va_arg(ap,object);} |
V221= va_arg(ap,object);} |
949 |
if (--narg <= 0) goto T350; |
if (--narg <= 0) goto T362; |
950 |
else { |
else { |
951 |
V172= va_arg(ap,object);} |
V222= va_arg(ap,object);} |
952 |
--narg; goto T351; |
--narg; goto T363; |
953 |
goto T346; |
goto T358; |
954 |
T346:; |
T358:; |
955 |
V168= Cnil; |
V218= Cnil; |
956 |
goto T347; |
goto T359; |
957 |
T347:; |
T359:; |
958 |
V169= Cnil; |
V219= Cnil; |
959 |
goto T348; |
goto T360; |
960 |
T348:; |
T360:; |
961 |
V170= Cnil; |
V220= Cnil; |
962 |
goto T349; |
goto T361; |
963 |
T349:; |
T361:; |
964 |
V171= Cnil; |
V221= Cnil; |
965 |
goto T350; |
goto T362; |
966 |
T350:; |
T362:; |
967 |
V172= Cnil; |
V222= Cnil; |
968 |
goto T351; |
goto T363; |
969 |
T351:; |
T363:; |
970 |
base[14]= VV[55]; |
base[14]= VV[55]; |
971 |
base[15]= (V161); |
base[15]= (V211); |
972 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
973 |
L10(base); |
L10(base); |
974 |
vs_top=sup; |
vs_top=sup; |
975 |
base[14]= VV[48]; |
base[14]= VV[48]; |
976 |
base[15]= (V163); |
base[15]= (V213); |
977 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
978 |
L10(base); |
L10(base); |
979 |
vs_top=sup; |
vs_top=sup; |
980 |
base[14]= VV[49]; |
base[14]= VV[49]; |
981 |
V173 = base[1]; |
V223 = base[1]; |
982 |
V174= (VFUN_NARGS=1,(*(LnkLI25))(Ct)); |
V224= (VFUN_NARGS=1,(*(LnkLI25))(Ct)); |
983 |
if(!((V173)==(/* INLINE-ARGS */V174))){ |
if(!((V223)==(/* INLINE-ARGS */V224))){ |
984 |
goto T367;} |
goto T379;} |
985 |
base[15]= Ct; |
base[15]= Ct; |
986 |
goto T365; |
goto T377; |
987 |
goto T367; |
goto T379; |
988 |
T367:; |
T379:; |
989 |
base[15]= list(2,VV[26],base[1]); |
base[15]= list(2,VV[26],base[1]); |
990 |
goto T365; |
goto T377; |
991 |
T365:; |
T377:; |
992 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
993 |
L10(base); |
L10(base); |
994 |
vs_top=sup; |
vs_top=sup; |
995 |
base[14]= VV[35]; |
base[14]= VV[35]; |
996 |
{object V175; |
{object V225; |
997 |
V175= (VFUN_NARGS=1,(*(LnkLI21))((V162))); |
V225= (VFUN_NARGS=1,(*(LnkLI21))((V212))); |
998 |
V176= list(2,VV[56],base[1]); |
V226= list(2,VV[56],base[1]); |
999 |
(void)((*(LnkLI196))(VV[35],(V175),VV[49],/* INLINE-ARGS */V176)); |
(void)((*(LnkLI197))(VV[35],(V225),VV[49],/* INLINE-ARGS */V226)); |
1000 |
(void)((*(LnkLI196))(VV[35],(V175),VV[57],base[1])); |
(void)((*(LnkLI197))(VV[35],(V225),VV[57],base[1])); |
1001 |
base[15]= (V175);} |
base[15]= (V225);} |
1002 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1003 |
L10(base); |
L10(base); |
1004 |
vs_top=sup; |
vs_top=sup; |
1005 |
base[14]= VV[58]; |
base[14]= VV[58]; |
1006 |
base[16]= (V166); |
base[16]= (V216); |
1007 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1008 |
L9(base); |
L9(base); |
1009 |
vs_top=sup; |
vs_top=sup; |
1012 |
L10(base); |
L10(base); |
1013 |
vs_top=sup; |
vs_top=sup; |
1014 |
base[14]= VV[59]; |
base[14]= VV[59]; |
1015 |
base[16]= CMPcdr((V166)); |
base[16]= CMPcdr((V216)); |
1016 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1017 |
L9(base); |
L9(base); |
1018 |
vs_top=sup; |
vs_top=sup; |
1026 |
L10(base); |
L10(base); |
1027 |
vs_top=sup; |
vs_top=sup; |
1028 |
base[14]= VV[61]; |
base[14]= VV[61]; |
1029 |
base[16]= (V164); |
base[16]= (V214); |
1030 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1031 |
L9(base); |
L9(base); |
1032 |
vs_top=sup; |
vs_top=sup; |
1035 |
L10(base); |
L10(base); |
1036 |
vs_top=sup; |
vs_top=sup; |
1037 |
base[14]= VV[62]; |
base[14]= VV[62]; |
1038 |
base[16]= (V165); |
base[16]= (V215); |
1039 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1040 |
L9(base); |
L9(base); |
1041 |
vs_top=sup; |
vs_top=sup; |
1049 |
L10(base); |
L10(base); |
1050 |
vs_top=sup; |
vs_top=sup; |
1051 |
base[14]= VV[47]; |
base[14]= VV[47]; |
1052 |
base[15]= (V167); |
base[15]= (V217); |
1053 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1054 |
L10(base); |
L10(base); |
1055 |
vs_top=sup; |
vs_top=sup; |
1056 |
base[14]= VV[64];{object V177; |
base[14]= VV[64];{object V227; |
1057 |
{register object x= (V161),V179= (VV[65]->s.s_dbind); |
{register object x= (V211),V229= (VV[65]->s.s_dbind); |
1058 |
while(V179!=Cnil) |
while(V229!=Cnil) |
1059 |
if(eql(x,V179->c.c_car->c.c_car) &&V179->c.c_car != Cnil){ |
if(eql(x,V229->c.c_car->c.c_car) &&V229->c.c_car != Cnil){ |
1060 |
V178= (V179->c.c_car); |
V228= (V229->c.c_car); |
1061 |
goto T405; |
goto T417; |
1062 |
}else V179=V179->c.c_cdr; |
}else V229=V229->c.c_cdr; |
1063 |
V178= Cnil;} |
V228= Cnil;} |
1064 |
goto T405; |
goto T417; |
1065 |
T405:; |
T417:; |
1066 |
V177= CMPcadr(V178); |
V227= CMPcadr(V228); |
1067 |
if(V177==Cnil)goto T403; |
if(V227==Cnil)goto T415; |
1068 |
base[15]= V177; |
base[15]= V227; |
1069 |
goto T402; |
goto T414; |
1070 |
goto T403; |
goto T415; |
1071 |
T403:;} |
T415:;} |
1072 |
base[16]= (V161); |
base[16]= (V211); |
1073 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1074 |
(void) (*Lnk197)(); |
(void) (*Lnk198)(); |
1075 |
vs_top=sup; |
vs_top=sup; |
1076 |
base[15]= vs_base[0]; |
base[15]= vs_base[0]; |
1077 |
goto T402; |
goto T414; |
1078 |
T402:; |
T414:; |
1079 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1080 |
L10(base); |
L10(base); |
1081 |
vs_top=sup; |
vs_top=sup; |
1082 |
base[14]= VV[66]; |
base[14]= VV[66]; |
1083 |
if((V171)==Cnil){ |
if((V221)==Cnil){ |
1084 |
V180= Cnil; |
V230= Cnil; |
1085 |
goto T410;} |
goto T422;} |
1086 |
V180= list(2,VV[67],(V171)); |
V230= list(2,VV[67],(V221)); |
1087 |
goto T410; |
goto T422; |
1088 |
T410:; |
T422:; |
1089 |
if((V172)==Cnil){ |
if((V222)==Cnil){ |
1090 |
V181= Cnil; |
V231= Cnil; |
1091 |
goto T411;} |
goto T423;} |
1092 |
V181= list(2,VV[68],(V172)); |
V231= list(2,VV[68],(V222)); |
1093 |
goto T411; |
goto T423; |
1094 |
T411:; |
T423:; |
1095 |
base[15]= append(V180,V181); |
base[15]= append(V230,V231); |
1096 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1097 |
L10(base); |
L10(base); |
1098 |
vs_top=sup; |
vs_top=sup; |
1099 |
{register object x= base[0],V182= VV[69]; |
{register object x= base[0],V232= VV[69]; |
1100 |
while(V182!=Cnil) |
while(V232!=Cnil) |
1101 |
if(x==(V182->c.c_car)){ |
if(x==(V232->c.c_car)){ |
1102 |
goto T414; |
goto T426; |
1103 |
}else V182=V182->c.c_cdr; |
}else V232=V232->c.c_cdr; |
1104 |
goto T412;} |
goto T424;} |
1105 |
goto T414; |
goto T426; |
1106 |
T414:; |
T426:; |
1107 |
base[14]= VV[70]; |
base[14]= VV[70]; |
1108 |
base[15]= (V169); |
base[15]= (V219); |
1109 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1110 |
L10(base); |
L10(base); |
1111 |
vs_top=sup; |
vs_top=sup; |
1112 |
base[14]= VV[71]; |
base[14]= VV[71]; |
1113 |
base[15]= (V170); |
base[15]= (V220); |
1114 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1115 |
L10(base); |
L10(base); |
1116 |
vs_top=sup; |
vs_top=sup; |
1119 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1120 |
L10(base); |
L10(base); |
1121 |
vs_top=sup; |
vs_top=sup; |
1122 |
goto T412; |
goto T424; |
1123 |
T412:; |
T424:; |
1124 |
if(!((base[0])==(VV[32]))){ |
if(!((base[0])==(VV[32]))){ |
1125 |
goto T425;} |
goto T437;} |
1126 |
base[14]= VV[64];{object V184; |
base[14]= VV[64];{object V234; |
1127 |
{register object x= (V161),V186= (VV[65]->s.s_dbind); |
{register object x= (V211),V236= (VV[65]->s.s_dbind); |
1128 |
while(V186!=Cnil) |
while(V236!=Cnil) |
1129 |
if(eql(x,V186->c.c_car->c.c_car) &&V186->c.c_car != Cnil){ |
if(eql(x,V236->c.c_car->c.c_car) &&V236->c.c_car != Cnil){ |
1130 |
V185= (V186->c.c_car); |
V235= (V236->c.c_car); |
1131 |
goto T432; |
goto T444; |
1132 |
}else V186=V186->c.c_cdr; |
}else V236=V236->c.c_cdr; |
1133 |
V185= Cnil;} |
V235= Cnil;} |
1134 |
goto T432; |
goto T444; |
1135 |
T432:; |
T444:; |
1136 |
V184= CMPcadr(V185); |
V234= CMPcadr(V235); |
1137 |
if(V184==Cnil)goto T430; |
if(V234==Cnil)goto T442; |
1138 |
base[15]= V184; |
base[15]= V234; |
1139 |
goto T429; |
goto T441; |
1140 |
goto T430; |
goto T442; |
1141 |
T430:;} |
T442:;} |
1142 |
base[16]= (V161); |
base[16]= (V211); |
1143 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1144 |
(void) (*Lnk197)(); |
(void) (*Lnk198)(); |
1145 |
vs_top=sup; |
vs_top=sup; |
1146 |
base[15]= vs_base[0]; |
base[15]= vs_base[0]; |
1147 |
goto T429; |
goto T441; |
1148 |
T429:; |
T441:; |
1149 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1150 |
L10(base); |
L10(base); |
1151 |
vs_top=sup; |
vs_top=sup; |
1180 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1181 |
L10(base); |
L10(base); |
1182 |
vs_top=sup; |
vs_top=sup; |
1183 |
goto T423; |
goto T435; |
1184 |
goto T425; |
goto T437; |
1185 |
T425:; |
T437:; |
1186 |
base[14]= VV[80]; |
base[14]= VV[80]; |
1187 |
if((V168)!=Cnil){ |
if((V218)!=Cnil){ |
1188 |
base[15]= (V168); |
base[15]= (V218); |
1189 |
goto T449;} |
goto T461;} |
1190 |
base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V167))); |
base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V217))); |
1191 |
goto T449; |
goto T461; |
1192 |
T449:; |
T461:; |
1193 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1194 |
L10(base); |
L10(base); |
1195 |
vs_top=sup; |
vs_top=sup; |
1196 |
goto T423; |
goto T435; |
1197 |
T423:; |
T435:; |
1198 |
{object V187 = base[1]; |
{object V237 = base[1]; |
1199 |
VMR7(V187)} |
VMR7(V237)} |
1200 |
va_end(ap); |
va_end(ap); |
1201 |
base[0]=base[0]; |
base[0]=base[0]; |
1202 |
return Cnil;} |
return Cnil;} |
1203 |
} |
} |
1204 |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
1205 |
|
|
1206 |
static object LI11(V193,V194,V195,V196,V197) |
static object LI11(V243,V244,V245,V246,V247) |
1207 |
|
|
1208 |
object V193;object V194;object V195;object V196;object V197; |
object V243;object V244;object V245;object V246;object V247; |
1209 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1210 |
goto TTL; |
goto TTL; |
1211 |
TTL:; |
TTL:; |
1212 |
{object V198; |
{object V248; |
1213 |
V198= small_fixnum(-1); |
V248= small_fixnum(-1); |
1214 |
{object V199; |
{object V249; |
1215 |
object V200= (V195); |
object V250= (V245); |
1216 |
if(V200==Cnil){ |
if(V250==Cnil){ |
1217 |
{object V201 = Cnil; |
{object V251 = Cnil; |
1218 |
VMR8(V201)}} |
VMR8(V251)}} |
1219 |
base[0]=V199=MMcons(Cnil,Cnil); |
base[0]=V249=MMcons(Cnil,Cnil); |
1220 |
goto T450; |
goto T462; |
1221 |
T450:; |
T462:; |
1222 |
V198= number_plus((V198),small_fixnum(1)); |
V248= number_plus((V248),small_fixnum(1)); |
1223 |
(V199->c.c_car)= (*(LnkLI198))((V193),(V194),(V200->c.c_car),(V196),(V197),(V198)); |
(V249->c.c_car)= (*(LnkLI199))((V243),(V244),(V250->c.c_car),(V246),(V247),(V248)); |
1224 |
if((V200=MMcdr(V200))==Cnil){ |
if((V250=MMcdr(V250))==Cnil){ |
1225 |
{object V203 = base[0]; |
{object V253 = base[0]; |
1226 |
VMR8(V203)}} |
VMR8(V253)}} |
1227 |
V199=MMcdr(V199)=MMcons(Cnil,Cnil); |
V249=MMcdr(V249)=MMcons(Cnil,Cnil); |
1228 |
goto T450;}} |
goto T462;}} |
1229 |
base[0]=base[0]; |
base[0]=base[0]; |
1230 |
return Cnil; |
return Cnil; |
1231 |
} |
} |
1232 |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
1233 |
|
|
1234 |
static object LI15(V210,V211,V212,V213,V214,V215) |
static object LI15(V260,V261,V262,V263,V264,V265) |
1235 |
|
|
1236 |
object V210;object V211;object V212;object V213;register object V214;register object V215; |
object V260;object V261;object V262;object V263;register object V264;register object V265; |
1237 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1238 |
goto TTL; |
goto TTL; |
1239 |
TTL:; |
TTL:; |
1240 |
base[0]= (V212); |
base[0]= (V262); |
1241 |
{register object V216; |
{register object V266; |
1242 |
if(((V214))==Cnil){ |
if(((V264))==Cnil){ |
1243 |
goto T456;} |
goto T468;} |
1244 |
base[1]= VV[34]; |
base[1]= VV[34]; |
1245 |
goto T454; |
goto T466; |
1246 |
goto T456; |
goto T468; |
1247 |
T456:; |
T468:; |
1248 |
base[1]= VV[33]; |
base[1]= VV[33]; |
1249 |
goto T454; |
goto T466; |
1250 |
T454:; |
T466:; |
1251 |
base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V213))); |
base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V263))); |
1252 |
base[4]= base[0]; |
base[4]= base[0]; |
1253 |
base[5]= VV[81]; |
base[5]= VV[81]; |
1254 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1255 |
Lgetf(); |
Lgetf(); |
1256 |
vs_top=sup; |
vs_top=sup; |
1257 |
V216= vs_base[0]; |
V266= vs_base[0]; |
1258 |
base[4]= VV[55]; |
base[4]= VV[55]; |
1259 |
base[5]= (V216); |
base[5]= (V266); |
1260 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1261 |
L17(base); |
L17(base); |
1262 |
vs_top=sup; |
vs_top=sup; |
1310 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1311 |
L17(base); |
L17(base); |
1312 |
vs_top=sup; |
vs_top=sup; |
1313 |
base[4]= VV[49];{object V217; |
base[4]= VV[49];{object V267; |
1314 |
base[6]= VV[93]; |
base[6]= VV[93]; |
1315 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1316 |
L16(base); |
L16(base); |
1317 |
vs_top=sup; |
vs_top=sup; |
1318 |
V217= vs_base[0]; |
V267= vs_base[0]; |
1319 |
if(V217==Cnil)goto T491; |
if(V267==Cnil)goto T503; |
1320 |
base[5]= V217; |
base[5]= V267; |
1321 |
goto T490; |
goto T502; |
1322 |
goto T491; |
goto T503; |
1323 |
T491:;} |
T503:;} |
1324 |
base[5]= Ct; |
base[5]= Ct; |
1325 |
goto T490; |
goto T502; |
1326 |
T490:; |
T502:; |
1327 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1328 |
L17(base); |
L17(base); |
1329 |
vs_top=sup; |
vs_top=sup; |
1330 |
base[4]= VV[51];{object V218; |
base[4]= VV[51];{object V268; |
1331 |
base[6]= VV[94]; |
base[6]= VV[94]; |
1332 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1333 |
L16(base); |
L16(base); |
1334 |
vs_top=sup; |
vs_top=sup; |
1335 |
V218= vs_base[0]; |
V268= vs_base[0]; |
1336 |
if(V218==Cnil)goto T497; |
if(V268==Cnil)goto T509; |
1337 |
base[5]= V218; |
base[5]= V268; |
1338 |
goto T496; |
goto T508; |
1339 |
goto T497; |
goto T509; |
1340 |
T497:;} |
T509:;} |
1341 |
base[5]= VV[95]; |
base[5]= VV[95]; |
1342 |
goto T496; |
goto T508; |
1343 |
T496:; |
T508:; |
1344 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1345 |
L17(base); |
L17(base); |
1346 |
vs_top=sup; |
vs_top=sup; |
1347 |
base[4]= VV[26]; |
base[4]= VV[26]; |
1348 |
base[5]= (V211); |
base[5]= (V261); |
1349 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1350 |
L17(base); |
L17(base); |
1351 |
vs_top=sup; |
vs_top=sup; |
1352 |
if(((V214))==Cnil){ |
if(((V264))==Cnil){ |
1353 |
goto T503;} |
goto T515;} |
1354 |
base[4]= VV[96]; |
base[4]= VV[96]; |
1355 |
base[5]= (V215); |
base[5]= (V265); |
1356 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1357 |
L17(base); |
L17(base); |
1358 |
vs_top=sup; |
vs_top=sup; |
1359 |
base[4]= VV[97]; |
base[4]= VV[97]; |
1360 |
base[6]= Cnil; |
base[6]= Cnil; |
1361 |
base[7]= (V216); |
base[7]= (V266); |
1362 |
base[8]= (V215); |
base[8]= (V265); |
1363 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1364 |
(void) (*Lnk199)(); |
(void) (*Lnk200)(); |
1365 |
vs_top=sup; |
vs_top=sup; |
1366 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1367 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1369 |
vs_top=sup; |
vs_top=sup; |
1370 |
base[4]= VV[98]; |
base[4]= VV[98]; |
1371 |
base[6]= Cnil; |
base[6]= Cnil; |
1372 |
base[7]= (V216); |
base[7]= (V266); |
1373 |
base[8]= (V215); |
base[8]= (V265); |
1374 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1375 |
(void) (*Lnk200)(); |
(void) (*Lnk201)(); |
1376 |
vs_top=sup; |
vs_top=sup; |
1377 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1378 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1380 |
vs_top=sup; |
vs_top=sup; |
1381 |
base[4]= VV[99]; |
base[4]= VV[99]; |
1382 |
base[6]= Cnil; |
base[6]= Cnil; |
1383 |
base[7]= (V216); |
base[7]= (V266); |
1384 |
base[8]= (V215); |
base[8]= (V265); |
1385 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1386 |
(void) (*Lnk201)(); |
(void) (*Lnk202)(); |
1387 |
vs_top=sup; |
vs_top=sup; |
1388 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1389 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1394 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1395 |
L17(base); |
L17(base); |
1396 |
vs_top=sup; |
vs_top=sup; |
1397 |
{object V220;{object V221; |
{object V270;{object V271; |
1398 |
base[4]= (V216); |
base[4]= (V266); |
1399 |
base[5]= (VV[101]->s.s_dbind); |
base[5]= (VV[101]->s.s_dbind); |
1400 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1401 |
Lgethash(); |
Lgethash(); |
1402 |
vs_top=sup; |
vs_top=sup; |
1403 |
V221= vs_base[0]; |
V271= vs_base[0]; |
1404 |
if(V221==Cnil)goto T531; |
if(V271==Cnil)goto T543; |
1405 |
V220= V221; |
V270= V271; |
1406 |
goto T530; |
goto T542; |
1407 |
goto T531; |
goto T543; |
1408 |
T531:;} |
T543:;} |
1409 |
{object V223; |
{object V273; |
1410 |
object V224; |
object V274; |
1411 |
V223= (VV[101]->s.s_dbind); |
V273= (VV[101]->s.s_dbind); |
1412 |
base[5]= VV[102]; |
base[5]= VV[102]; |
1413 |
base[6]= VV[103]; |
base[6]= VV[103]; |
1414 |
base[7]= VV[104]; |
base[7]= VV[104]; |
1416 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1417 |
Lmake_hash_table(); |
Lmake_hash_table(); |
1418 |
vs_top=sup; |
vs_top=sup; |
1419 |
V224= vs_base[0]; |
V274= vs_base[0]; |
1420 |
base[5]= V216; |
base[5]= V266; |
1421 |
base[6]= (V223); |
base[6]= (V273); |
1422 |
base[7]= (V224); |
base[7]= (V274); |
1423 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1424 |
siLhash_set(); |
siLhash_set(); |
1425 |
vs_top=sup; |
vs_top=sup; |
1426 |
V220= vs_base[0];} |
V270= vs_base[0];} |
1427 |
goto T530; |
goto T542; |
1428 |
T530:; |
T542:; |
1429 |
base[4]= V211; |
base[4]= V261; |
1430 |
base[5]= V220; |
base[5]= V270; |
1431 |
base[6]= base[2]; |
base[6]= base[2]; |
1432 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1433 |
siLhash_set(); |
siLhash_set(); |
1434 |
vs_top=sup;} |
vs_top=sup;} |
1435 |
goto T503; |
goto T515; |
1436 |
T503:; |
T515:; |
1437 |
if(!(((V210))==(VV[28]))){ |
if(!(((V260))==(VV[28]))){ |
1438 |
goto T547;} |
goto T559;} |
1439 |
if(!(((V216))==(VV[71]))){ |
if(!(((V266))==(VV[71]))){ |
1440 |
goto T547;} |
goto T559;} |
1441 |
if(((V214))==Cnil){ |
if(((V264))==Cnil){ |
1442 |
goto T547;} |
goto T559;} |
1443 |
(VV[105]->s.s_dbind)= base[2]; |
(VV[105]->s.s_dbind)= base[2]; |
1444 |
goto T547; |
goto T559; |
1445 |
T547:; |
T559:; |
1446 |
if(!(((V210))==(VV[29]))){ |
if(!(((V260))==(VV[29]))){ |
1447 |
goto T555;} |
goto T567;} |
1448 |
if(!(((V216))==(VV[71]))){ |
if(!(((V266))==(VV[71]))){ |
1449 |
goto T555;} |
goto T567;} |
1450 |
if(((V214))==Cnil){ |
if(((V264))==Cnil){ |
1451 |
goto T555;} |
goto T567;} |
1452 |
(VV[106]->s.s_dbind)= base[2]; |
(VV[106]->s.s_dbind)= base[2]; |
1453 |
goto T555; |
goto T567; |
1454 |
T555:; |
T567:; |
1455 |
{object V228 = base[2]; |
{object V278 = base[2]; |
1456 |
VMR9(V228)}} |
VMR9(V278)}} |
1457 |
base[0]=base[0]; |
base[0]=base[0]; |
1458 |
return Cnil; |
return Cnil; |
1459 |
} |
} |
1460 |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */ |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */ |
1461 |
|
|
1462 |
static object LI18(V230) |
static object LI18(V280) |
1463 |
|
|
1464 |
object V230; |
object V280; |
1465 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
1466 |
bds_check; |
bds_check; |
1467 |
goto TTL; |
goto TTL; |
1468 |
TTL:; |
TTL:; |
1469 |
bds_bind(VV[107],(V230)); |
bds_bind(VV[107],(V280)); |
1470 |
{register object V231; |
{register object V281; |
1471 |
register object V232; |
register object V282; |
1472 |
V231= (VV[36]->s.s_dbind); |
V281= (VV[36]->s.s_dbind); |
1473 |
V232= CMPcar((V231)); |
V282= CMPcar((V281)); |
1474 |
goto T566; |
goto T578; |
1475 |
T566:; |
T578:; |
1476 |
if(!(((V231))==Cnil)){ |
if(!(((V281))==Cnil)){ |
1477 |
goto T567;} |
goto T579;} |
1478 |
{object V233 = Cnil; |
{object V283 = Cnil; |
1479 |
bds_unwind1; |
bds_unwind1; |
1480 |
VMR10(V233)} |
VMR10(V283)} |
1481 |
goto T567; |
goto T579; |
1482 |
T567:; |
T579:; |
1483 |
{object V234; |
{object V284; |
1484 |
object V235; |
object V285; |
1485 |
V234= (*(LnkLI181))((V232)); |
V284= (*(LnkLI182))((V282)); |
1486 |
V235= (*(LnkLI182))((V232)); |
V285= (*(LnkLI183))((V282)); |
1487 |
if(((V235))==(VV[31])){ |
if(((V285))==(VV[31])){ |
1488 |
goto T571;} |
goto T583;} |
1489 |
{object V236; |
{object V286; |
1490 |
V236= (*(LnkLI186))((V232)); |
V286= (*(LnkLI187))((V282)); |
1491 |
{register object V237; |
{register object V287; |
1492 |
register object V238; |
register object V288; |
1493 |
V237= (V236); |
V287= (V286); |
1494 |
V238= CMPcar((V237)); |
V288= CMPcar((V287)); |
1495 |
goto T580; |
goto T592; |
1496 |
T580:; |
T592:; |
1497 |
if(!(((V237))==Cnil)){ |
if(!(((V287))==Cnil)){ |
1498 |
goto T581;} |
goto T593;} |
1499 |
goto T571; |
goto T583; |
1500 |
goto T581; |
goto T593; |
1501 |
T581:; |
T593:; |
1502 |
{register object V239; |
{register object V289; |
1503 |
register object V240; |
register object V290; |
1504 |
register object V241; |
register object V291; |
1505 |
base[3]= (V238); |
base[3]= (V288); |
1506 |
base[4]= VV[81]; |
base[4]= VV[81]; |
1507 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1508 |
Lgetf(); |
Lgetf(); |
1509 |
vs_top=sup; |
vs_top=sup; |
1510 |
V239= vs_base[0]; |
V289= vs_base[0]; |
1511 |
base[3]= (V238); |
base[3]= (V288); |
1512 |
base[4]= VV[89]; |
base[4]= VV[89]; |
1513 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1514 |
Lgetf(); |
Lgetf(); |
1515 |
vs_top=sup; |
vs_top=sup; |
1516 |
V240= vs_base[0]; |
V290= vs_base[0]; |
1517 |
base[3]= (V238); |
base[3]= (V288); |
1518 |
base[4]= VV[91]; |
base[4]= VV[91]; |
1519 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1520 |
Lgetf(); |
Lgetf(); |
1521 |
vs_top=sup; |
vs_top=sup; |
1522 |
V241= vs_base[0]; |
V291= vs_base[0]; |
1523 |
(void)((*(LnkLI202))((V234),(V239),(V240),(V241),Cnil)); |
(void)((*(LnkLI203))((V284),(V289),(V290),(V291),Cnil)); |
1524 |
V242= (*(LnkLI203))((V239)); |
V292= (*(LnkLI204))((V289)); |
1525 |
V243= make_cons(/* INLINE-ARGS */V242,Cnil); |
V293= make_cons(/* INLINE-ARGS */V292,Cnil); |
1526 |
V244= (*(LnkLI204))((V239)); |
V294= (*(LnkLI205))((V289)); |
1527 |
V245= make_cons(/* INLINE-ARGS */V244,Cnil); |
V295= make_cons(/* INLINE-ARGS */V294,Cnil); |
1528 |
V246= (*(LnkLI205))((V239)); |
V296= (*(LnkLI206))((V289)); |
1529 |
V247= make_cons(/* INLINE-ARGS */V246,Cnil); |
V297= make_cons(/* INLINE-ARGS */V296,Cnil); |
1530 |
(void)((*(LnkLI202))(VV[108],(V239),/* INLINE-ARGS */V243,/* INLINE-ARGS */V245,/* INLINE-ARGS */V247));} |
(void)((*(LnkLI203))(VV[108],(V289),/* INLINE-ARGS */V293,/* INLINE-ARGS */V295,/* INLINE-ARGS */V297));} |
1531 |
V237= CMPcdr((V237)); |
V287= CMPcdr((V287)); |
1532 |
V238= CMPcar((V237)); |
V288= CMPcar((V287)); |
1533 |
goto T580;}}} |
goto T592;}}} |
1534 |
goto T571; |
goto T583; |
1535 |
T571:; |
T583:; |
1536 |
V231= CMPcdr((V231)); |
V281= CMPcdr((V281)); |
1537 |
V232= CMPcar((V231)); |
V282= CMPcar((V281)); |
1538 |
goto T566;} |
goto T578;} |
1539 |
base[0]=base[0]; |
base[0]=base[0]; |
1540 |
return Cnil; |
return Cnil; |
1541 |
} |
} |
1545 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1546 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
1547 |
vs_check; |
vs_check; |
1548 |
{register object V248; |
{register object V298; |
1549 |
object V249; |
object V299; |
1550 |
object V250; |
object V300; |
1551 |
object V251; |
object V301; |
1552 |
check_arg(4); |
check_arg(4); |
1553 |
V248=(base[0]); |
V298=(base[0]); |
1554 |
V249=(base[1]); |
V299=(base[1]); |
1555 |
V250=(base[2]); |
V300=(base[2]); |
1556 |
V251=(base[3]); |
V301=(base[3]); |
1557 |
vs_top=sup; |
vs_top=sup; |
1558 |
goto TTL; |
goto TTL; |
1559 |
TTL:; |
TTL:; |
1560 |
{object V252; |
{object V302; |
1561 |
object V253; |
object V303; |
1562 |
object V254; |
object V304; |
1563 |
object V255; |
object V305; |
1564 |
object V256; |
object V306; |
1565 |
{object V257= (V251); |
{object V307= (V301); |
1566 |
if((V257!= VV[120]))goto T607; |
if((V307!= VV[120]))goto T619; |
1567 |
base[4]= VV[109]; |
base[4]= VV[109]; |
1568 |
base[5]= (VV[206]->s.s_gfdef); |
base[5]= (VV[207]->s.s_gfdef); |
1569 |
base[6]= make_cons((V248),Cnil); |
base[6]= make_cons((V298),Cnil); |
1570 |
base[7]= make_cons((V248),Cnil); |
base[7]= make_cons((V298),Cnil); |
1571 |
base[8]= VV[110]; |
base[8]= VV[110]; |
1572 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1573 |
goto T606; |
goto T618; |
1574 |
goto T607; |
goto T619; |
1575 |
T607:; |
T619:; |
1576 |
if((V257!= VV[121]))goto T613; |
if((V307!= VV[121]))goto T625; |
1577 |
base[4]= VV[111]; |
base[4]= VV[111]; |
1578 |
base[5]= (VV[207]->s.s_gfdef); |
base[5]= (VV[208]->s.s_gfdef); |
1579 |
base[6]= list(2,VV[112],(V248)); |
base[6]= list(2,VV[112],(V298)); |
1580 |
base[7]= list(2,Ct,(V248)); |
base[7]= list(2,Ct,(V298)); |
1581 |
base[8]= VV[113]; |
base[8]= VV[113]; |
1582 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1583 |
goto T606; |
goto T618; |
1584 |
goto T613; |
goto T625; |
1585 |
T613:; |
T625:; |
1586 |
if((V257!= VV[122]))goto T619; |
if((V307!= VV[122]))goto T631; |
1587 |
base[4]= VV[114]; |
base[4]= VV[114]; |
1588 |
base[5]= (VV[208]->s.s_gfdef); |
base[5]= (VV[209]->s.s_gfdef); |
1589 |
base[6]= make_cons((V248),Cnil); |
base[6]= make_cons((V298),Cnil); |
1590 |
base[7]= make_cons((V248),Cnil); |
base[7]= make_cons((V298),Cnil); |
1591 |
base[8]= VV[115]; |
base[8]= VV[115]; |
1592 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1593 |
goto T606; |
goto T618; |
1594 |
goto T619; |
goto T631; |
1595 |
T619:; |
T631:; |
1596 |
FEerror("The ECASE key value ~s is illegal.",1,V257); |
FEerror("The ECASE key value ~s is illegal.",1,V307); |
1597 |
base[4]= Cnil; |
base[4]= Cnil; |
1598 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1599 |
goto T606;} |
goto T618;} |
1600 |
goto T606; |
goto T618; |
1601 |
T606:; |
T618:; |
1602 |
if(vs_base>=vs_top){vs_top=sup;goto T625;} |
if(vs_base>=vs_top){vs_top=sup;goto T637;} |
1603 |
V252= vs_base[0]; |
V302= vs_base[0]; |
1604 |
vs_base++; |
vs_base++; |
1605 |
if(vs_base>=vs_top){vs_top=sup;goto T626;} |
if(vs_base>=vs_top){vs_top=sup;goto T638;} |
1606 |
V253= vs_base[0]; |
V303= vs_base[0]; |
1607 |
vs_base++; |
vs_base++; |
1608 |
if(vs_base>=vs_top){vs_top=sup;goto T627;} |
if(vs_base>=vs_top){vs_top=sup;goto T639;} |
1609 |
V254= vs_base[0]; |
V304= vs_base[0]; |
1610 |
vs_base++; |
vs_base++; |
1611 |
if(vs_base>=vs_top){vs_top=sup;goto T628;} |
if(vs_base>=vs_top){vs_top=sup;goto T640;} |
1612 |
V255= vs_base[0]; |
V305= vs_base[0]; |
1613 |
vs_base++; |
vs_base++; |
1614 |
if(vs_base>=vs_top){vs_top=sup;goto T629;} |
if(vs_base>=vs_top){vs_top=sup;goto T641;} |
1615 |
V256= vs_base[0]; |
V306= vs_base[0]; |
1616 |
vs_top=sup; |
vs_top=sup; |
|
goto T630; |
|
|
goto T625; |
|
|
T625:; |
|
|
V252= Cnil; |
|
|
goto T626; |
|
|
T626:; |
|
|
V253= Cnil; |
|
|
goto T627; |
|
|
T627:; |
|
|
V254= Cnil; |
|
|
goto T628; |
|
|
T628:; |
|
|
V255= Cnil; |
|
|
goto T629; |
|
|
T629:; |
|
|
V256= Cnil; |
|
|
goto T630; |
|
|
T630:; |
|
|
{register object V258; |
|
|
base[4]= (V249); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk209)(); |
|
|
vs_top=sup; |
|
|
V258= vs_base[0]; |
|
|
base[4]= (V255); |
|
|
if(type_of(V258)==t_structure){ |
|
|
goto T642;} |
|
|
goto T640; |
|
1617 |
goto T642; |
goto T642; |
1618 |
T642:; |
goto T637; |
1619 |
if(!(((V258)->str.str_def)==(VV[116]))){ |
T637:; |
1620 |
goto T640;} |
V302= Cnil; |
|
V259= STREF(object,(V258),4); |
|
1621 |
goto T638; |
goto T638; |
1622 |
|
T638:; |
1623 |
|
V303= Cnil; |
1624 |
|
goto T639; |
1625 |
|
T639:; |
1626 |
|
V304= Cnil; |
1627 |
goto T640; |
goto T640; |
1628 |
T640:;{object V261; |
T640:; |
1629 |
V261= (VV[45]->s.s_dbind); |
V305= Cnil; |
1630 |
|
goto T641; |
1631 |
|
T641:; |
1632 |
|
V306= Cnil; |
1633 |
|
goto T642; |
1634 |
|
T642:; |
1635 |
|
{register object V308; |
1636 |
|
base[4]= (V299); |
1637 |
|
vs_top=(vs_base=base+4)+1; |
1638 |
|
(void) (*Lnk210)(); |
1639 |
|
vs_top=sup; |
1640 |
|
V308= vs_base[0]; |
1641 |
|
base[4]= (V305); |
1642 |
|
if(type_of(V308)==t_structure){ |
1643 |
|
goto T654;} |
1644 |
|
goto T652; |
1645 |
|
goto T654; |
1646 |
|
T654:; |
1647 |
|
if(!(((V308)->str.str_def)==(VV[116]))){ |
1648 |
|
goto T652;} |
1649 |
|
V309= STREF(object,(V308),4); |
1650 |
|
goto T650; |
1651 |
|
goto T652; |
1652 |
|
T652:;{object V311; |
1653 |
|
V311= (VV[45]->s.s_dbind); |
1654 |
base[6]= small_fixnum(14); |
base[6]= small_fixnum(14); |
1655 |
base[7]= (V258); |
base[7]= (V308); |
1656 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1657 |
(void) (*Lnk193)(); |
(void) (*Lnk194)(); |
1658 |
vs_top=sup; |
vs_top=sup; |
1659 |
V262= vs_base[0]; |
V312= vs_base[0]; |
1660 |
if(!((V261)==(CMPcar(V262)))){ |
if(!((V311)==(CMPcar(V312)))){ |
1661 |
goto T645;}} |
goto T657;}} |
1662 |
V259= CMPcar(((V258))->cc.cc_turbo[12]); |
V309= CMPcar(((V308))->cc.cc_turbo[12]); |
1663 |
goto T638; |
goto T650; |
1664 |
goto T645; |
goto T657; |
1665 |
T645:; |
T657:; |
1666 |
base[6]= VV[46]; |
base[6]= VV[46]; |
1667 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1668 |
Lerror(); |
Lerror(); |
1669 |
vs_top=sup; |
vs_top=sup; |
1670 |
V259= vs_base[0]; |
V309= vs_base[0]; |
1671 |
goto T638; |
goto T650; |
1672 |
T638:; |
T650:; |
1673 |
V263 = (VV[117]->s.s_dbind); |
V313 = (VV[117]->s.s_dbind); |
1674 |
base[5]= (V259)->v.v_self[fix(V263)]; |
base[5]= (V309)->v.v_self[fix(V313)]; |
1675 |
base[6]= VV[118]; |
base[6]= VV[118]; |
1676 |
base[7]= (VV[210]->s.s_gfdef); |
base[7]= (VV[211]->s.s_gfdef); |
1677 |
base[8]= VV[102]; |
base[8]= VV[102]; |
1678 |
base[9]= (VV[211]->s.s_gfdef); |
base[9]= (VV[212]->s.s_gfdef); |
1679 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
1680 |
(void) (*Lnk212)(); |
(void) (*Lnk213)(); |
1681 |
vs_top=sup; |
vs_top=sup; |
1682 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1683 |
goto T634;} |
goto T646;} |
1684 |
{register object x= (V249),V264= (VV[119]->s.s_dbind); |
{register object x= (V299),V314= (VV[119]->s.s_dbind); |
1685 |
while(V264!=Cnil) |
while(V314!=Cnil) |
1686 |
if(equal(x,V264->c.c_car->c.c_car) &&V264->c.c_car != Cnil){ |
if(equal(x,V314->c.c_car->c.c_car) &&V314->c.c_car != Cnil){ |
1687 |
goto T656; |
goto T668; |
1688 |
}else V264=V264->c.c_cdr;} |
}else V314=V314->c.c_cdr;} |
1689 |
base[4]= (VFUN_NARGS=1,(*(LnkLI213))((V258))); |
base[4]= (VFUN_NARGS=1,(*(LnkLI214))((V308))); |
1690 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1691 |
return; |
return; |
1692 |
goto T656; |
goto T668; |
1693 |
T656:; |
T668:; |
1694 |
base[4]= Cnil; |
base[4]= Cnil; |
1695 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1696 |
return; |
return; |
1697 |
goto T634; |
goto T646; |
1698 |
T634:; |
T646:; |
1699 |
base[4]=(VV[214]->s.s_gfdef); |
base[4]=(VV[215]->s.s_gfdef); |
1700 |
base[5]= (V258); |
base[5]= (V308); |
1701 |
base[7]=(VV[215]->s.s_gfdef); |
base[7]=(VV[216]->s.s_gfdef); |
1702 |
base[8]= (V252); |
base[8]= (V302); |
1703 |
base[9]= Cnil; |
base[9]= Cnil; |
1704 |
base[10]= (V254); |
base[10]= (V304); |
1705 |
base[11]= (V255); |
base[11]= (V305); |
1706 |
base[13]= (V248); |
base[13]= (V298); |
1707 |
base[14]= (V250); |
base[14]= (V300); |
1708 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1709 |
{object _funobj = (V253);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V303);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1710 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1711 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1712 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1713 |
vs_top=sup; |
vs_top=sup; |
1714 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
1715 |
base[13]= (V256); |
base[13]= (V306); |
1716 |
base[14]= (V250); |
base[14]= (V300); |
1717 |
base[6]= simple_lispcall(base+7,7); |
base[6]= simple_lispcall(base+7,7); |
1718 |
lispcall(base+4,2); |
lispcall(base+4,2); |
1719 |
return;}} |
return;}} |
1721 |
} |
} |
1722 |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
1723 |
|
|
1724 |
static object LI24(V270,V271,V272,V273,V274) |
static object LI24(V320,V321,V322,V323,V324) |
1725 |
|
|
1726 |
object V270;object V271;object V272;object V273;object V274; |
object V320;object V321;object V322;object V323;object V324; |
1727 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1728 |
goto TTL; |
goto TTL; |
1729 |
TTL:; |
TTL:; |
1730 |
base[0]= (V271); |
base[0]= (V321); |
1731 |
base[1]= (V270); |
base[1]= (V320); |
1732 |
{register object V275; |
{register object V325; |
1733 |
register object V276; |
register object V326; |
1734 |
V275= (V272); |
V325= (V322); |
1735 |
V276= CMPcar((V275)); |
V326= CMPcar((V325)); |
1736 |
goto T673; |
goto T685; |
1737 |
T673:; |
T685:; |
1738 |
if(!(((V275))==Cnil)){ |
if(!(((V325))==Cnil)){ |
1739 |
goto T674;} |
goto T686;} |
1740 |
goto T669; |
goto T681; |
1741 |
goto T674; |
goto T686; |
1742 |
T674:; |
T686:; |
1743 |
base[3]= (V276); |
base[3]= (V326); |
1744 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1745 |
L25(base); |
L25(base); |
1746 |
vs_top=sup; |
vs_top=sup; |
1747 |
V275= CMPcdr((V275)); |
V325= CMPcdr((V325)); |
1748 |
V276= CMPcar((V275)); |
V326= CMPcar((V325)); |
1749 |
goto T673;} |
goto T685;} |
1750 |
goto T669; |
goto T681; |
1751 |
T669:; |
T681:; |
1752 |
{register object V277; |
{register object V327; |
1753 |
register object V278; |
register object V328; |
1754 |
V277= (V273); |
V327= (V323); |
1755 |
V278= CMPcar((V277)); |
V328= CMPcar((V327)); |
1756 |
goto T689; |
goto T701; |
1757 |
T689:; |
T701:; |
1758 |
if(!(((V277))==Cnil)){ |
if(!(((V327))==Cnil)){ |
1759 |
goto T690;} |
goto T702;} |
1760 |
goto T685; |
goto T697; |
1761 |
goto T690; |
goto T702; |
1762 |
T690:; |
T702:; |
1763 |
base[3]= (V278); |
base[3]= (V328); |
1764 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1765 |
L26(base); |
L26(base); |
1766 |
vs_top=sup; |
vs_top=sup; |
1767 |
V277= CMPcdr((V277)); |
V327= CMPcdr((V327)); |
1768 |
V278= CMPcar((V277)); |
V328= CMPcar((V327)); |
1769 |
goto T689;} |
goto T701;} |
1770 |
goto T685; |
goto T697; |
1771 |
T685:; |
T697:; |
1772 |
{register object V279; |
{register object V329; |
1773 |
register object V280; |
register object V330; |
1774 |
V279= (V274); |
V329= (V324); |
1775 |
V280= CMPcar((V279)); |
V330= CMPcar((V329)); |
1776 |
goto T704; |
goto T716; |
1777 |
T704:; |
T716:; |
1778 |
if(!(((V279))==Cnil)){ |
if(!(((V329))==Cnil)){ |
1779 |
goto T705;} |
goto T717;} |
1780 |
{object V281 = Cnil; |
{object V331 = Cnil; |
1781 |
VMR12(V281)} |
VMR12(V331)} |
1782 |
goto T705; |
goto T717; |
1783 |
T705:; |
T717:; |
1784 |
base[3]= (V280); |
base[3]= (V330); |
1785 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1786 |
L27(base); |
L27(base); |
1787 |
vs_top=sup; |
vs_top=sup; |
1788 |
V279= CMPcdr((V279)); |
V329= CMPcdr((V329)); |
1789 |
V280= CMPcar((V279)); |
V330= CMPcar((V329)); |
1790 |
goto T704;} |
goto T716;} |
1791 |
base[0]=base[0]; |
base[0]=base[0]; |
1792 |
return Cnil; |
return Cnil; |
1793 |
} |
} |
1794 |
/* local entry for function BOOTSTRAP-CLASS-PREDICATES */ |
/* local entry for function BOOTSTRAP-CLASS-PREDICATES */ |
1795 |
|
|
1796 |
static object LI28(V283) |
static object LI28(V333) |
1797 |
|
|
1798 |
object V283; |
object V333; |
1799 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1800 |
bds_check; |
bds_check; |
1801 |
goto TTL; |
goto TTL; |
1802 |
TTL:; |
TTL:; |
1803 |
bds_bind(VV[107],(V283)); |
bds_bind(VV[107],(V333)); |
1804 |
{register object V284; |
{register object V334; |
1805 |
register object V285; |
register object V335; |
1806 |
V284= (VV[36]->s.s_dbind); |
V334= (VV[36]->s.s_dbind); |
1807 |
V285= CMPcar((V284)); |
V335= CMPcar((V334)); |
1808 |
goto T719; |
goto T731; |
1809 |
T719:; |
T731:; |
1810 |
if(!(((V284))==Cnil)){ |
if(!(((V334))==Cnil)){ |
1811 |
goto T720;} |
goto T732;} |
1812 |
{object V286 = Cnil; |
{object V336 = Cnil; |
1813 |
bds_unwind1; |
bds_unwind1; |
1814 |
VMR13(V286)} |
VMR13(V336)} |
1815 |
goto T720; |
goto T732; |
1816 |
T720:; |
T732:; |
1817 |
{register object V287; |
{register object V337; |
1818 |
register object V288; |
register object V338; |
1819 |
V287= (*(LnkLI181))((V285)); |
V337= (*(LnkLI182))((V335)); |
1820 |
V288= (VFUN_NARGS=1,(*(LnkLI25))((V287))); |
V338= (VFUN_NARGS=1,(*(LnkLI25))((V337))); |
1821 |
{register object V289; |
{register object V339; |
1822 |
register object V290; |
register object V340; |
1823 |
V289= (V287); |
V339= (V337); |
1824 |
V291 = (V288); |
V341 = (V338); |
1825 |
base[5]= (V288); |
base[5]= (V338); |
1826 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1827 |
(void) (*Lnk217)(Lclptr217); |
(void) (*Lnk218)(Lclptr218); |
1828 |
vs_top=sup; |
vs_top=sup; |
1829 |
V292= vs_base[0]; |
V342= vs_base[0]; |
1830 |
V290= (*(LnkLI216))(V291,V292); |
V340= (*(LnkLI217))(V341,V342); |
1831 |
(void)((*(LnkLI218))((V290),(V289)));}} |
V343= ({object _tmp=get(VV[219],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[219])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[219])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
1832 |
V284= CMPcdr((V284)); |
V344 = (V340); |
1833 |
V285= CMPcar((V284)); |
V345 = (V339); |
1834 |
goto T719;} |
(void)(( |
1835 |
|
V346 = V343, |
1836 |
|
(type_of(V346) == t_sfun ?(*((V346)->sfn.sfn_self)): |
1837 |
|
(fcall.argd=2,type_of(V346)==t_vfun) ? |
1838 |
|
(*((V346)->sfn.sfn_self)): |
1839 |
|
(fcall.fun=(V346),fcalln))(V344,V345)));}} |
1840 |
|
V334= CMPcdr((V334)); |
1841 |
|
V335= CMPcar((V334)); |
1842 |
|
goto T731;} |
1843 |
base[0]=base[0]; |
base[0]=base[0]; |
1844 |
return Cnil; |
return Cnil; |
1845 |
} |
} |
1850 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1851 |
goto TTL; |
goto TTL; |
1852 |
TTL:; |
TTL:; |
1853 |
{register object V293; |
{register object V347; |
1854 |
object V294; |
object V348; |
1855 |
V293= (VV[123]->s.s_dbind); |
V347= (VV[123]->s.s_dbind); |
1856 |
V294= CMPcar((V293)); |
V348= CMPcar((V347)); |
1857 |
goto T740; |
goto T753; |
1858 |
T740:; |
T753:; |
1859 |
if(!(((V293))==Cnil)){ |
if(!(((V347))==Cnil)){ |
|
goto T741;} |
|
|
goto T736; |
|
|
goto T741; |
|
|
T741:; |
|
|
{register object V295; |
|
|
register object V296; |
|
|
V295= CMPcadr((V294)); |
|
|
V296= CMPcar((V295)); |
|
|
goto T749; |
|
|
T749:; |
|
|
if(!(((V295))==Cnil)){ |
|
|
goto T750;} |
|
|
goto T745; |
|
|
goto T750; |
|
|
T750:; |
|
|
if(((V296))==(Ct)){ |
|
1860 |
goto T754;} |
goto T754;} |
1861 |
{register object x= (V296),V297= (VV[123]->s.s_dbind); |
goto T749; |
|
while(V297!=Cnil) |
|
|
if(EQ(x,V297->c.c_car->c.c_car) &&V297->c.c_car != Cnil){ |
|
1862 |
goto T754; |
goto T754; |
1863 |
}else V297=V297->c.c_cdr;} |
T754:; |
1864 |
|
{register object V349; |
1865 |
|
register object V350; |
1866 |
|
V349= CMPcadr((V348)); |
1867 |
|
V350= CMPcar((V349)); |
1868 |
|
goto T762; |
1869 |
|
T762:; |
1870 |
|
if(!(((V349))==Cnil)){ |
1871 |
|
goto T763;} |
1872 |
|
goto T758; |
1873 |
|
goto T763; |
1874 |
|
T763:; |
1875 |
|
if(((V350))==(Ct)){ |
1876 |
|
goto T767;} |
1877 |
|
{register object x= (V350),V351= (VV[123]->s.s_dbind); |
1878 |
|
while(V351!=Cnil) |
1879 |
|
if(EQ(x,V351->c.c_car->c.c_car) &&V351->c.c_car != Cnil){ |
1880 |
|
goto T767; |
1881 |
|
}else V351=V351->c.c_cdr;} |
1882 |
base[3]= VV[124]; |
base[3]= VV[124]; |
1883 |
base[4]= CMPcar((V294)); |
base[4]= CMPcar((V348)); |
1884 |
base[5]= (V296); |
base[5]= (V350); |
1885 |
base[6]= (V296); |
base[6]= (V350); |
1886 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1887 |
Lerror(); |
Lerror(); |
1888 |
vs_top=sup; |
vs_top=sup; |
1889 |
goto T754; |
goto T767; |
1890 |
T754:; |
T767:; |
1891 |
V295= CMPcdr((V295)); |
V349= CMPcdr((V349)); |
1892 |
V296= CMPcar((V295)); |
V350= CMPcar((V349)); |
1893 |
goto T749;} |
goto T762;} |
1894 |
goto T745; |
goto T758; |
1895 |
T745:; |
T758:; |
1896 |
V293= CMPcdr((V293)); |
V347= CMPcdr((V347)); |
1897 |
V294= CMPcar((V293)); |
V348= CMPcar((V347)); |
1898 |
goto T740;} |
goto T753;} |
1899 |
goto T736; |
goto T749; |
1900 |
T736:; |
T749:; |
1901 |
{object V298; |
{object V352; |
1902 |
object V299; |
object V353; |
1903 |
V298= (VFUN_NARGS=1,(*(LnkLI25))(VV[31])); |
V352= (VFUN_NARGS=1,(*(LnkLI25))(VV[31])); |
1904 |
base[2]= (V298); |
base[2]= (V352); |
1905 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1906 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk220)(Lclptr220); |
1907 |
vs_top=sup; |
vs_top=sup; |
1908 |
V299= vs_base[0]; |
V353= vs_base[0]; |
1909 |
{register object V300; |
{register object V354; |
1910 |
object V301; |
object V355; |
1911 |
V300= (VV[123]->s.s_dbind); |
V354= (VV[123]->s.s_dbind); |
1912 |
V301= CMPcar((V300)); |
V355= CMPcar((V354)); |
1913 |
goto T780; |
goto T793; |
1914 |
T780:; |
T793:; |
1915 |
if(!(((V300))==Cnil)){ |
if(!(((V354))==Cnil)){ |
1916 |
goto T781;} |
goto T794;} |
1917 |
goto T773; |
goto T786; |
1918 |
goto T781; |
goto T794; |
1919 |
T781:; |
T794:; |
1920 |
{object V302; |
{object V356; |
1921 |
V302= (VFUN_NARGS=1,(*(LnkLI21))((V299))); |
V356= (VFUN_NARGS=1,(*(LnkLI21))((V353))); |
1922 |
{object V303; |
{object V357; |
1923 |
V303= CMPcar((V301)); |
V357= CMPcar((V355)); |
1924 |
(void)((*(LnkLI180))(V302,(V303)));}} |
V359= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
1925 |
V300= CMPcdr((V300)); |
V360 = V356; |
1926 |
V301= CMPcar((V300)); |
V361 = (V357); |
1927 |
goto T780;}} |
(void)(( |
1928 |
goto T773; |
V362 = V359, |
1929 |
T773:; |
(type_of(V362) == t_sfun ?(*((V362)->sfn.sfn_self)): |
1930 |
{object V305; |
(fcall.argd=2,type_of(V362)==t_vfun) ? |
1931 |
|
(*((V362)->sfn.sfn_self)): |
1932 |
|
(fcall.fun=(V362),fcalln))(V360,V361)));}} |
1933 |
|
V354= CMPcdr((V354)); |
1934 |
|
V355= CMPcar((V354)); |
1935 |
|
goto T793;}} |
1936 |
|
goto T786; |
1937 |
|
T786:; |
1938 |
|
{object V363; |
1939 |
base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35])); |
base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35])); |
1940 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1941 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk220)(Lclptr220); |
1942 |
vs_top=sup; |
vs_top=sup; |
1943 |
V305= vs_base[0]; |
V363= vs_base[0]; |
1944 |
{register object V306; |
{register object V364; |
1945 |
object V307; |
object V365; |
1946 |
V306= (VV[123]->s.s_dbind); |
V364= (VV[123]->s.s_dbind); |
1947 |
V307= CMPcar((V306)); |
V365= CMPcar((V364)); |
1948 |
goto T799; |
goto T813; |
1949 |
T799:; |
T813:; |
1950 |
if(!(((V306))==Cnil)){ |
if(!(((V364))==Cnil)){ |
1951 |
goto T800;} |
goto T814;} |
1952 |
goto T793; |
goto T807; |
1953 |
goto T800; |
goto T814; |
1954 |
T800:; |
T814:; |
1955 |
{object V308; |
{object V366; |
1956 |
object V309; |
object V367; |
1957 |
object V310; |
object V368; |
1958 |
object V311; |
object V369; |
1959 |
register object V312; |
register object V370; |
1960 |
register object V313; |
register object V371; |
1961 |
V308= Cnil; |
V366= Cnil; |
1962 |
V309= Cnil; |
V367= Cnil; |
1963 |
V310= Cnil; |
V368= Cnil; |
1964 |
V311= Cnil; |
V369= Cnil; |
1965 |
V312= Cnil; |
V370= Cnil; |
1966 |
V313= Cnil; |
V371= Cnil; |
1967 |
V313= (V307); |
V371= (V365); |
1968 |
V312= CMPcar((V313)); |
V370= CMPcar((V371)); |
1969 |
V313= CMPcdr((V313)); |
V371= CMPcdr((V371)); |
1970 |
V311= CMPcar((V313)); |
V369= CMPcar((V371)); |
1971 |
V313= CMPcdr((V313)); |
V371= CMPcdr((V371)); |
1972 |
V310= CMPcar((V313)); |
V368= CMPcar((V371)); |
1973 |
V313= CMPcdr((V313)); |
V371= CMPcdr((V371)); |
1974 |
V309= CMPcar((V313)); |
V367= CMPcar((V371)); |
1975 |
V313= CMPcdr((V313)); |
V371= CMPcdr((V371)); |
1976 |
V308= CMPcar((V313)); |
V366= CMPcar((V371)); |
1977 |
{object V314; |
{object V372; |
1978 |
register object V315; |
register object V373; |
1979 |
V314= (VFUN_NARGS=1,(*(LnkLI25))((V312))); |
V372= (VFUN_NARGS=1,(*(LnkLI25))((V370))); |
1980 |
V315= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V314))); |
V373= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V372))); |
1981 |
base[3]= (*(LnkLI220))((V312)); |
base[3]= (*(LnkLI221))((V370)); |
1982 |
base[4]= (V314); |
base[4]= (V372); |
1983 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1984 |
Lset(); |
Lset(); |
1985 |
vs_top=sup; |
vs_top=sup; |
1986 |
base[3]= (*(LnkLI221))((V312)); |
base[3]= (*(LnkLI222))((V370)); |
1987 |
base[4]= (V315); |
base[4]= (V373); |
1988 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1989 |
Lset(); |
Lset(); |
1990 |
vs_top=sup; |
vs_top=sup; |
1991 |
(void)(((V315))->v.v_self[9]= (Cnil)); |
(void)(((V373))->v.v_self[9]= (Cnil)); |
1992 |
(void)(((V315))->v.v_self[10]= (Cnil)); |
(void)(((V373))->v.v_self[10]= (Cnil)); |
1993 |
V316= make_cons((V312),(V309)); |
V374= make_cons((V370),(V367)); |
1994 |
(void)((VFUN_NARGS=10,(*(LnkLI192))(VV[31],(V314),(V312),(V305),Cnil,(V311),(V310),/* INLINE-ARGS */V316,(V315),(V308))));}} |
(void)((VFUN_NARGS=10,(*(LnkLI193))(VV[31],(V372),(V370),(V363),Cnil,(V369),(V368),/* INLINE-ARGS */V374,(V373),(V366))));}} |
1995 |
V306= CMPcdr((V306)); |
V364= CMPcdr((V364)); |
1996 |
V307= CMPcar((V306)); |
V365= CMPcar((V364)); |
1997 |
goto T799;}} |
goto T813;}} |
1998 |
goto T793; |
goto T807; |
1999 |
T793:; |
T807:; |
2000 |
{register object V317; |
{register object V375; |
2001 |
object V318; |
object V376; |
2002 |
V317= (VV[123]->s.s_dbind); |
V375= (VV[123]->s.s_dbind); |
2003 |
V318= CMPcar((V317)); |
V376= CMPcar((V375)); |
2004 |
goto T845; |
goto T859; |
2005 |
T845:; |
T859:; |
2006 |
if(!(((V317))==Cnil)){ |
if(!(((V375))==Cnil)){ |
2007 |
goto T846;} |
goto T860;} |
2008 |
{object V319 = Cnil; |
{object V377 = Cnil; |
2009 |
VMR14(V319)} |
VMR14(V377)} |
2010 |
goto T846; |
goto T860; |
2011 |
T846:; |
T860:; |
2012 |
{object V320; |
{object V378; |
2013 |
object V321; |
object V379; |
2014 |
V320= CMPcar((V318)); |
V378= CMPcar((V376)); |
2015 |
V321= (VFUN_NARGS=1,(*(LnkLI25))((V320))); |
V379= (VFUN_NARGS=1,(*(LnkLI25))((V378))); |
2016 |
{object V323; |
{object V381; |
2017 |
V324 = (V321); |
V382 = (V379); |
2018 |
base[4]= (V321); |
base[4]= (V379); |
2019 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2020 |
(void) (*Lnk217)(Lclptr217); |
(void) (*Lnk218)(Lclptr218); |
2021 |
vs_top=sup; |
vs_top=sup; |
2022 |
V325= vs_base[0]; |
V383= vs_base[0]; |
2023 |
V323= (*(LnkLI216))(V324,V325); |
V381= (*(LnkLI217))(V382,V383); |
2024 |
(void)((*(LnkLI218))((V323),V320));}} |
V384= ({object _tmp=get(VV[219],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[219])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[219])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
2025 |
V317= CMPcdr((V317)); |
V385 = (V381); |
2026 |
V318= CMPcar((V317)); |
V386 = V378; |
2027 |
goto T845;} |
(void)(( |
2028 |
|
V387 = V384, |
2029 |
|
(type_of(V387) == t_sfun ?(*((V387)->sfn.sfn_self)): |
2030 |
|
(fcall.argd=2,type_of(V387)==t_vfun) ? |
2031 |
|
(*((V387)->sfn.sfn_self)): |
2032 |
|
(fcall.fun=(V387),fcalln))(V385,V386)));}} |
2033 |
|
V375= CMPcdr((V375)); |
2034 |
|
V376= CMPcar((V375)); |
2035 |
|
goto T859;} |
2036 |
base[0]=base[0]; |
base[0]=base[0]; |
2037 |
return Cnil; |
return Cnil; |
2038 |
} |
} |
2039 |
/* local entry for function WRAPPER-FOR-STRUCTURE */ |
/* local entry for function WRAPPER-FOR-STRUCTURE */ |
2040 |
|
|
2041 |
static object LI30(V327) |
static object LI30(V389) |
2042 |
|
|
2043 |
object V327; |
object V389; |
2044 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
2045 |
goto TTL; |
goto TTL; |
2046 |
TTL:; |
TTL:; |
2047 |
{register object V328; |
{register object V390; |
2048 |
if(type_of((V327))==t_structure){ |
if(type_of((V389))==t_structure){ |
2049 |
goto T862;} |
goto T877;} |
2050 |
V328= Cnil; |
V390= Cnil; |
2051 |
goto T861; |
goto T876; |
2052 |
goto T862; |
goto T877; |
2053 |
T862:; |
T877:; |
2054 |
V328= ((V327))->str.str_def->str.str_self[0]; |
V390= ((V389))->str.str_def->str.str_self[0]; |
2055 |
goto T861; |
goto T876; |
2056 |
T861:; |
T876:; |
2057 |
if(!(type_of((V328))==t_symbol)){ |
if(!(type_of((V390))==t_symbol)){ |
2058 |
goto T864;} |
goto T879;} |
2059 |
if(!(((V328))==(VV[1]))){ |
if(!(((V390))==(VV[1]))){ |
2060 |
goto T868;} |
goto T883;} |
2061 |
{object V329 = STREF(object,(V327),0); |
{object V391 = STREF(object,(V389),0); |
2062 |
VMR15(V329)} |
VMR15(V391)} |
2063 |
goto T868; |
goto T883; |
2064 |
T868:; |
T883:; |
2065 |
if(!(((V328))==((VV[125]->s.s_dbind)))){ |
if(!(((V390))==((VV[125]->s.s_dbind)))){ |
2066 |
goto T871;} |
goto T886;} |
2067 |
{object V330 = (VV[126]->s.s_dbind); |
{object V392 = (VV[126]->s.s_dbind); |
2068 |
VMR15(V330)} |
VMR15(V392)} |
2069 |
goto T871; |
goto T886; |
2070 |
T871:; |
T886:; |
2071 |
if(!(((V328))==((VV[127]->s.s_dbind)))){ |
if(!(((V390))==((VV[127]->s.s_dbind)))){ |
2072 |
goto T874;} |
goto T889;} |
2073 |
{object V331 = (VV[128]->s.s_dbind); |
{object V393 = (VV[128]->s.s_dbind); |
2074 |
VMR15(V331)} |
VMR15(V393)} |
2075 |
goto T874; |
goto T889; |
2076 |
T874:; |
T889:; |
2077 |
(VV[127]->s.s_dbind)= (VV[125]->s.s_dbind); |
(VV[127]->s.s_dbind)= (VV[125]->s.s_dbind); |
2078 |
(VV[128]->s.s_dbind)= (VV[126]->s.s_dbind); |
(VV[128]->s.s_dbind)= (VV[126]->s.s_dbind); |
2079 |
goto T864; |
goto T879; |
2080 |
T864:; |
T879:; |
2081 |
{object V332; |
{object V394; |
2082 |
object V333; |
object V395; |
2083 |
object V334; |
object V396; |
2084 |
V332= (VFUN_NARGS=1,(*(LnkLI223))((V328)));{object V335; |
V394= (VFUN_NARGS=1,(*(LnkLI224))((V390)));{object V397; |
2085 |
V335= CMPcar((V332)); |
V397= CMPcar((V394)); |
2086 |
if(V335==Cnil)goto T881; |
if(V397==Cnil)goto T896; |
2087 |
V333= V335; |
V395= V397; |
2088 |
goto T880; |
goto T895; |
2089 |
goto T881; |
goto T896; |
2090 |
T881:;} |
T896:;} |
2091 |
V333= (VFUN_NARGS=2,(*(LnkLI224))((V328),(V332))); |
V395= (VFUN_NARGS=2,(*(LnkLI225))((V390),(V394))); |
2092 |
goto T880; |
goto T895; |
2093 |
T880:; |
T895:; |
2094 |
if(((V333))==Cnil){ |
if(((V395))==Cnil){ |
2095 |
goto T885;} |
goto T900;} |
2096 |
base[3]= (V333); |
base[3]= (V395); |
2097 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2098 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk220)(Lclptr220); |
2099 |
vs_top=sup; |
vs_top=sup; |
2100 |
V334= vs_base[0]; |
V396= vs_base[0]; |
2101 |
goto T883; |
goto T898; |
2102 |
goto T885; |
goto T900; |
2103 |
T885:; |
T900:; |
2104 |
V334= (VV[38]->s.s_dbind); |
V396= (VV[38]->s.s_dbind); |
2105 |
goto T883; |
goto T898; |
2106 |
T883:; |
T898:; |
2107 |
if(!(type_of((V328))==t_symbol)){ |
if(!(type_of((V390))==t_symbol)){ |
2108 |
goto T888;} |
goto T903;} |
2109 |
(VV[125]->s.s_dbind)= (V328); |
(VV[125]->s.s_dbind)= (V390); |
2110 |
(VV[126]->s.s_dbind)= (V334); |
(VV[126]->s.s_dbind)= (V396); |
2111 |
goto T888; |
goto T903; |
2112 |
T888:; |
T903:; |
2113 |
{object V336 = (V334); |
{object V398 = (V396); |
2114 |
VMR15(V336)}}} |
VMR15(V398)}}} |
2115 |
base[0]=base[0]; |
base[0]=base[0]; |
2116 |
return Cnil; |
return Cnil; |
2117 |
} |
} |
2118 |
/* local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */ |
/* local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */ |
2119 |
|
|
2120 |
static object LI31(V338) |
static object LI31(V400) |
2121 |
|
|
2122 |
object V338; |
object V400; |
2123 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
2124 |
goto TTL; |
goto TTL; |
2125 |
TTL:; |
TTL:; |
2126 |
{object V339;{object V340; |
{object V401;{object V402; |
2127 |
V340= (*(LnkLI225))((V338)); |
V402= (*(LnkLI226))((V400)); |
2128 |
if(V340==Cnil)goto T895; |
if(V402==Cnil)goto T910; |
2129 |
V339= V340; |
V401= V402; |
2130 |
goto T894; |
goto T909; |
2131 |
goto T895; |
goto T910; |
2132 |
T895:;} |
T910:;} |
2133 |
V339= (VV[38]->s.s_dbind); |
V401= (VV[38]->s.s_dbind); |
2134 |
goto T894; |
goto T909; |
2135 |
T894:;{object V341; |
T909:;{object V403; |
2136 |
if(((V339))==((VV[38]->s.s_dbind))){ |
if(((V401))==((VV[38]->s.s_dbind))){ |
2137 |
goto T899;} |
goto T914;} |
2138 |
V341= Cnil; |
V403= Cnil; |
2139 |
goto T898; |
goto T913; |
2140 |
goto T899; |
goto T914; |
2141 |
T899:; |
T914:; |
2142 |
if(type_of((V338))==t_structure){ |
if(type_of((V400))==t_structure){ |
2143 |
goto T901;} |
goto T916;} |
2144 |
V341= Cnil; |
V403= Cnil; |
2145 |
goto T898; |
goto T913; |
2146 |
goto T901; |
goto T916; |
2147 |
T901:; |
T916:; |
2148 |
{object V342; |
{object V404; |
2149 |
object V343; |
object V405; |
2150 |
base[2]= (V338); |
base[2]= (V400); |
2151 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2152 |
Ltype_of(); |
Ltype_of(); |
2153 |
vs_top=sup; |
vs_top=sup; |
2154 |
V342= vs_base[0]; |
V404= vs_base[0]; |
2155 |
V343= (VFUN_NARGS=2,(*(LnkLI25))((V342),Cnil)); |
V405= (VFUN_NARGS=2,(*(LnkLI25))((V404),Cnil)); |
2156 |
if((V343)==Cnil){ |
if((V405)==Cnil){ |
2157 |
V341= Cnil; |
V403= Cnil; |
2158 |
goto T898;} |
goto T913;} |
2159 |
base[2]= (V343); |
base[2]= (V405); |
2160 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2161 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk220)(Lclptr220); |
2162 |
vs_top=sup; |
vs_top=sup; |
2163 |
V341= vs_base[0];} |
V403= vs_base[0];} |
2164 |
goto T898; |
goto T913; |
2165 |
T898:; |
T913:; |
2166 |
if(V341==Cnil)goto T897; |
if(V403==Cnil)goto T912; |
2167 |
{object V344 = V341; |
{object V406 = V403; |
2168 |
VMR16(V344)} |
VMR16(V406)} |
2169 |
goto T897; |
goto T912; |
2170 |
T897:;} |
T912:;} |
2171 |
{object V345 = (V339); |
{object V407 = (V401); |
2172 |
VMR16(V345)}} |
VMR16(V407)}} |
2173 |
base[0]=base[0]; |
base[0]=base[0]; |
2174 |
return Cnil; |
return Cnil; |
2175 |
} |
} |
2176 |
/* local entry for function CLASS-OF */ |
/* local entry for function CLASS-OF */ |
2177 |
|
|
2178 |
static object LI32(V347) |
static object LI32(V409) |
2179 |
|
|
2180 |
register object V347; |
register object V409; |
2181 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
2182 |
goto TTL; |
goto TTL; |
2183 |
TTL:; |
TTL:; |
2184 |
if(type_of(V347)==t_structure){ |
if(type_of(V409)==t_structure){ |
|
goto T911;} |
|
|
goto T909; |
|
|
goto T911; |
|
|
T911:; |
|
|
if(!(((V347)->str.str_def)==(VV[129]))){ |
|
|
goto T909;} |
|
|
V348= STREF(object,(V347),0); |
|
|
goto T907; |
|
|
goto T909; |
|
|
T909:;{object V350; |
|
|
V350= (VV[45]->s.s_dbind); |
|
|
base[0]= small_fixnum(14); |
|
|
base[1]= (V347); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk193)(); |
|
|
vs_top=sup; |
|
|
V351= vs_base[0]; |
|
|
if(!((V350)==(CMPcar(V351)))){ |
|
|
goto T914;}} |
|
|
V348= CMPcar(((V347))->cc.cc_turbo[13]); |
|
|
goto T907; |
|
|
goto T914; |
|
|
T914:; |
|
|
if(!(type_of((V347))==t_structure)){ |
|
|
goto T920;} |
|
|
V348= (*(LnkLI226))((V347)); |
|
|
goto T907; |
|
|
goto T920; |
|
|
T920:; |
|
|
if(!(type_of((V347))==t_symbol)){ |
|
|
goto T923;} |
|
|
if(((V347))==Cnil){ |
|
2185 |
goto T926;} |
goto T926;} |
2186 |
V348= (VV[130]->s.s_dbind); |
goto T924; |
|
goto T907; |
|
2187 |
goto T926; |
goto T926; |
2188 |
T926:; |
T926:; |
2189 |
V348= (VV[131]->s.s_dbind); |
if(!(((V409)->str.str_def)==(VV[129]))){ |
2190 |
goto T907; |
goto T924;} |
2191 |
goto T923; |
V410= STREF(object,(V409),0); |
2192 |
T923:; |
goto T922; |
2193 |
V348= (*(LnkLI225))((V347)); |
goto T924; |
2194 |
goto T907; |
T924:;{object V412; |
2195 |
T907:; |
V412= (VV[45]->s.s_dbind); |
2196 |
{object V352 = (V348)->v.v_self[11]; |
base[0]= small_fixnum(14); |
2197 |
VMR17(V352)} |
base[1]= (V409); |
2198 |
|
vs_top=(vs_base=base+0)+2; |
2199 |
|
(void) (*Lnk194)(); |
2200 |
|
vs_top=sup; |
2201 |
|
V413= vs_base[0]; |
2202 |
|
if(!((V412)==(CMPcar(V413)))){ |
2203 |
|
goto T929;}} |
2204 |
|
V410= CMPcar(((V409))->cc.cc_turbo[13]); |
2205 |
|
goto T922; |
2206 |
|
goto T929; |
2207 |
|
T929:; |
2208 |
|
if(!(type_of((V409))==t_structure)){ |
2209 |
|
goto T935;} |
2210 |
|
V410= (*(LnkLI227))((V409)); |
2211 |
|
goto T922; |
2212 |
|
goto T935; |
2213 |
|
T935:; |
2214 |
|
if(!(type_of((V409))==t_symbol)){ |
2215 |
|
goto T938;} |
2216 |
|
if(((V409))==Cnil){ |
2217 |
|
goto T941;} |
2218 |
|
V410= (VV[130]->s.s_dbind); |
2219 |
|
goto T922; |
2220 |
|
goto T941; |
2221 |
|
T941:; |
2222 |
|
V410= (VV[131]->s.s_dbind); |
2223 |
|
goto T922; |
2224 |
|
goto T938; |
2225 |
|
T938:; |
2226 |
|
V410= (*(LnkLI226))((V409)); |
2227 |
|
goto T922; |
2228 |
|
T922:; |
2229 |
|
{object V414 = (V410)->v.v_self[11]; |
2230 |
|
VMR17(V414)} |
2231 |
base[0]=base[0]; |
base[0]=base[0]; |
2232 |
return Cnil; |
return Cnil; |
2233 |
} |
} |
2234 |
/* local entry for function WRAPPER-OF */ |
/* local entry for function WRAPPER-OF */ |
2235 |
|
|
2236 |
static object LI33(V354) |
static object LI33(V416) |
2237 |
|
|
2238 |
register object V354; |
register object V416; |
2239 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
2240 |
goto TTL; |
goto TTL; |
2241 |
TTL:; |
TTL:; |
2242 |
if(type_of(V354)==t_structure){ |
if(type_of(V416)==t_structure){ |
|
goto T931;} |
|
|
goto T929; |
|
|
goto T931; |
|
|
T931:; |
|
|
if(!(((V354)->str.str_def)==(VV[132]))){ |
|
|
goto T929;} |
|
|
{object V356 = STREF(object,(V354),0); |
|
|
VMR18(V356)} |
|
|
goto T929; |
|
|
T929:;{object V357; |
|
|
V357= (VV[45]->s.s_dbind); |
|
|
base[0]= small_fixnum(14); |
|
|
base[1]= (V354); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk193)(); |
|
|
vs_top=sup; |
|
|
V358= vs_base[0]; |
|
|
if(!((V357)==(CMPcar(V358)))){ |
|
|
goto T934;}} |
|
|
{object V359 = CMPcar(((V354))->cc.cc_turbo[13]); |
|
|
VMR18(V359)} |
|
|
goto T934; |
|
|
T934:; |
|
|
if(!(type_of((V354))==t_structure)){ |
|
|
goto T940;} |
|
|
{object V360 = (*(LnkLI226))((V354)); |
|
|
VMR18(V360)} |
|
|
goto T940; |
|
|
T940:; |
|
|
if(!(type_of((V354))==t_symbol)){ |
|
|
goto T943;} |
|
|
if(((V354))==Cnil){ |
|
2243 |
goto T946;} |
goto T946;} |
2244 |
{object V361 = (VV[130]->s.s_dbind); |
goto T944; |
|
VMR18(V361)} |
|
2245 |
goto T946; |
goto T946; |
2246 |
T946:; |
T946:; |
2247 |
{object V362 = (VV[131]->s.s_dbind); |
if(!(((V416)->str.str_def)==(VV[132]))){ |
2248 |
VMR18(V362)} |
goto T944;} |
2249 |
goto T943; |
{object V418 = STREF(object,(V416),0); |
2250 |
T943:; |
VMR18(V418)} |
2251 |
{object V363 = (*(LnkLI225))((V354)); |
goto T944; |
2252 |
VMR18(V363)} |
T944:;{object V419; |
2253 |
|
V419= (VV[45]->s.s_dbind); |
2254 |
|
base[0]= small_fixnum(14); |
2255 |
|
base[1]= (V416); |
2256 |
|
vs_top=(vs_base=base+0)+2; |
2257 |
|
(void) (*Lnk194)(); |
2258 |
|
vs_top=sup; |
2259 |
|
V420= vs_base[0]; |
2260 |
|
if(!((V419)==(CMPcar(V420)))){ |
2261 |
|
goto T949;}} |
2262 |
|
{object V421 = CMPcar(((V416))->cc.cc_turbo[13]); |
2263 |
|
VMR18(V421)} |
2264 |
|
goto T949; |
2265 |
|
T949:; |
2266 |
|
if(!(type_of((V416))==t_structure)){ |
2267 |
|
goto T955;} |
2268 |
|
{object V422 = (*(LnkLI227))((V416)); |
2269 |
|
VMR18(V422)} |
2270 |
|
goto T955; |
2271 |
|
T955:; |
2272 |
|
if(!(type_of((V416))==t_symbol)){ |
2273 |
|
goto T958;} |
2274 |
|
if(((V416))==Cnil){ |
2275 |
|
goto T961;} |
2276 |
|
{object V423 = (VV[130]->s.s_dbind); |
2277 |
|
VMR18(V423)} |
2278 |
|
goto T961; |
2279 |
|
T961:; |
2280 |
|
{object V424 = (VV[131]->s.s_dbind); |
2281 |
|
VMR18(V424)} |
2282 |
|
goto T958; |
2283 |
|
T958:; |
2284 |
|
{object V425 = (*(LnkLI226))((V416)); |
2285 |
|
VMR18(V425)} |
2286 |
base[0]=base[0]; |
base[0]=base[0]; |
2287 |
return Cnil; |
return Cnil; |
2288 |
} |
} |
2292 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2293 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
2294 |
vs_check; |
vs_check; |
2295 |
{object V364; |
{object V426; |
2296 |
check_arg(1); |
check_arg(1); |
2297 |
V364=(base[0]); |
V426=(base[0]); |
2298 |
vs_top=sup; |
vs_top=sup; |
2299 |
goto TTL; |
goto TTL; |
2300 |
TTL:; |
TTL:; |
2301 |
if(type_of((V364))==t_structure){ |
if(type_of((V426))==t_structure){ |
2302 |
goto T950;} |
goto T965;} |
2303 |
V365= Cnil; |
V427= Cnil; |
2304 |
goto T949; |
goto T964; |
2305 |
goto T950; |
goto T965; |
2306 |
T950:; |
T965:; |
2307 |
V365= ((V364))->str.str_def->str.str_self[0]; |
V427= ((V426))->str.str_def->str.str_self[0]; |
2308 |
goto T949; |
goto T964; |
2309 |
T949:; |
T964:; |
2310 |
base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V365)); |
base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V427)); |
2311 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2312 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk220)(Lclptr220); |
2313 |
return; |
return; |
2314 |
} |
} |
2315 |
} |
} |
2316 |
/* local entry for function EVAL-FORM */ |
/* local entry for function EVAL-FORM */ |
2317 |
|
|
2318 |
static object LI36(V367) |
static object LI36(V429) |
2319 |
|
|
2320 |
object V367; |
object V429; |
2321 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
2322 |
goto TTL; |
goto TTL; |
2323 |
TTL:; |
TTL:; |
2324 |
base[0]=MMcons((V367),Cnil); |
base[0]=MMcons((V429),Cnil); |
2325 |
{object V368 = |
{object V430 = |
2326 |
make_cclosure_new(LC47,Cnil,base[0],Cdata); |
make_cclosure_new(LC47,Cnil,base[0],Cdata); |
2327 |
VMR20(V368)} |
VMR20(V430)} |
2328 |
base[0]=base[0]; |
base[0]=base[0]; |
2329 |
return Cnil; |
return Cnil; |
2330 |
} |
} |
2331 |
/* local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
/* local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
2332 |
|
|
2333 |
static object LI37(V370) |
static object LI37(V432) |
2334 |
|
|
2335 |
register object V370; |
register object V432; |
2336 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
2337 |
goto TTL; |
goto TTL; |
2338 |
TTL:; |
TTL:; |
2339 |
base[0]= VV[81]; |
base[0]= VV[81]; |
2340 |
base[1]= (*(LnkLI227))((V370)); |
base[1]= (*(LnkLI228))((V432)); |
2341 |
base[2]= VV[133]; |
base[2]= VV[133]; |
2342 |
base[3]= (*(LnkLI228))((V370)); |
base[3]= (*(LnkLI229))((V432)); |
2343 |
base[4]= VV[134]; |
base[4]= VV[134]; |
2344 |
base[5]= (*(LnkLI229))((V370)); |
base[5]= (*(LnkLI230))((V432)); |
2345 |
base[6]= VV[135]; |
base[6]= VV[135]; |
2346 |
base[7]= (*(LnkLI230))((V370)); |
base[7]= (*(LnkLI231))((V432)); |
2347 |
base[8]= VV[93];{object V371; |
base[8]= VV[93];{object V433; |
2348 |
V371= (*(LnkLI231))((V370)); |
V433= (*(LnkLI232))((V432)); |
2349 |
if(V371==Cnil)goto T962; |
if(V433==Cnil)goto T977; |
2350 |
base[9]= V371; |
base[9]= V433; |
2351 |
goto T961; |
goto T976; |
2352 |
goto T962; |
goto T977; |
2353 |
T962:;} |
T977:;} |
2354 |
base[9]= Ct; |
base[9]= Ct; |
2355 |
goto T961; |
goto T976; |
2356 |
T961:; |
T976:; |
2357 |
base[10]= VV[83]; |
base[10]= VV[83]; |
2358 |
base[12]= (V370); |
base[12]= (V432); |
2359 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2360 |
(void) (*Lnk232)(); |
(void) (*Lnk233)(); |
2361 |
vs_top=sup; |
vs_top=sup; |
2362 |
base[11]= vs_base[0]; |
base[11]= vs_base[0]; |
2363 |
base[12]= VV[85]; |
base[12]= VV[85]; |
2364 |
base[14]= (V370); |
base[14]= (V432); |
2365 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
2366 |
(void) (*Lnk232)(); |
(void) (*Lnk233)(); |
2367 |
vs_top=sup; |
vs_top=sup; |
2368 |
V372= vs_base[0]; |
V434= vs_base[0]; |
2369 |
base[13]= (*(LnkLI233))(V372); |
base[13]= (*(LnkLI234))(V434); |
2370 |
vs_top=(vs_base=base+0)+14; |
vs_top=(vs_base=base+0)+14; |
2371 |
Llist(); |
Llist(); |
2372 |
vs_top=sup; |
vs_top=sup; |
2373 |
{object V373 = vs_base[0]; |
{object V435 = vs_base[0]; |
2374 |
VMR21(V373)} |
VMR21(V435)} |
2375 |
base[0]=base[0]; |
base[0]=base[0]; |
2376 |
return Cnil; |
return Cnil; |
2377 |
} |
} |
2382 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
2383 |
vs_check; |
vs_check; |
2384 |
bds_check; |
bds_check; |
2385 |
{register object V374; |
{register object V436; |
2386 |
check_arg(1); |
check_arg(1); |
2387 |
V374=(base[0]); |
V436=(base[0]); |
2388 |
vs_top=sup; |
vs_top=sup; |
2389 |
goto TTL; |
goto TTL; |
2390 |
TTL:; |
TTL:; |
2391 |
if(((*(LnkLI234))((V374)))==Cnil){ |
if(((*(LnkLI235))((V436)))==Cnil){ |
2392 |
goto T972;} |
goto T987;} |
2393 |
if(((VV[136]->s.s_dbind))==((V374))){ |
if(((VV[136]->s.s_dbind))==((V436))){ |
2394 |
goto T975;} |
goto T990;} |
2395 |
bds_bind(VV[136],(V374)); |
bds_bind(VV[136],(V436)); |
2396 |
base[2]= (V374); |
base[2]= (V436); |
2397 |
base[3]= VV[137]; |
base[3]= VV[137]; |
2398 |
base[4]= VV[32]; |
base[4]= VV[32]; |
2399 |
base[5]= VV[81]; |
base[5]= VV[81]; |
2400 |
base[6]= (V374); |
base[6]= (V436); |
2401 |
base[7]= VV[138]; |
base[7]= VV[138]; |
2402 |
if(((*(LnkLI235))((V374)))==Cnil){ |
if(((*(LnkLI236))((V436)))==Cnil){ |
2403 |
goto T985;} |
goto T1000;} |
2404 |
V375= (*(LnkLI235))((V374)); |
V437= (*(LnkLI236))((V436)); |
2405 |
base[8]= make_cons(/* INLINE-ARGS */V375,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V437,Cnil); |
2406 |
goto T983; |
goto T998; |
2407 |
goto T985; |
goto T1000; |
2408 |
T985:; |
T1000:; |
2409 |
base[8]= Cnil; |
base[8]= Cnil; |
2410 |
goto T983; |
goto T998; |
2411 |
T983:; |
T998:; |
2412 |
base[9]= VV[139]; |
base[9]= VV[139]; |
2413 |
V378= (*(LnkLI236))((V374)); |
V440= (*(LnkLI237))((V436)); |
2414 |
{object V376; |
{object V438; |
2415 |
object V377= /* INLINE-ARGS */V378; |
object V439= /* INLINE-ARGS */V440; |
2416 |
if(V377==Cnil){ |
if(V439==Cnil){ |
2417 |
base[10]= Cnil; |
base[10]= Cnil; |
2418 |
goto T988;} |
goto T1003;} |
2419 |
base[11]=V376=MMcons(Cnil,Cnil); |
base[11]=V438=MMcons(Cnil,Cnil); |
2420 |
goto T989; |
goto T1004; |
2421 |
T989:; |
T1004:; |
2422 |
(V376->c.c_car)= (*(LnkLI237))((V377->c.c_car)); |
(V438->c.c_car)= (*(LnkLI238))((V439->c.c_car)); |
2423 |
if((V377=MMcdr(V377))==Cnil){ |
if((V439=MMcdr(V439))==Cnil){ |
2424 |
base[10]= base[11]; |
base[10]= base[11]; |
2425 |
goto T988;} |
goto T1003;} |
2426 |
V376=MMcdr(V376)=MMcons(Cnil,Cnil); |
V438=MMcdr(V438)=MMcons(Cnil,Cnil); |
2427 |
goto T989;} |
goto T1004;} |
2428 |
goto T988; |
goto T1003; |
2429 |
T988:; |
T1003:; |
2430 |
vs_top=(vs_base=base+2)+9; |
vs_top=(vs_base=base+2)+9; |
2431 |
(void) (*Lnk238)(); |
(void) (*Lnk239)(); |
2432 |
bds_unwind1; |
bds_unwind1; |
2433 |
return; |
return; |
2434 |
goto T975; |
goto T990; |
2435 |
T975:; |
T990:; |
2436 |
base[1]= Cnil; |
base[1]= Cnil; |
2437 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2438 |
return; |
return; |
2439 |
goto T972; |
goto T987; |
2440 |
T972:; |
T987:; |
2441 |
base[1]= VV[140]; |
base[1]= VV[140]; |
2442 |
base[2]= (V374); |
base[2]= (V436); |
2443 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2444 |
Lerror(); |
Lerror(); |
2445 |
return; |
return; |
2447 |
} |
} |
2448 |
/* local entry for function BUILT-IN-WRAPPER-OF */ |
/* local entry for function BUILT-IN-WRAPPER-OF */ |
2449 |
|
|
2450 |
static object LI39(V380) |
static object LI39(V442) |
2451 |
|
|
2452 |
register object V380; |
register object V442; |
2453 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
2454 |
goto TTL; |
goto TTL; |
2455 |
TTL:;{object V381; |
TTL:;{object V443; |
2456 |
if(type_of((V380))==t_symbol){ |
if(type_of((V442))==t_symbol){ |
2457 |
goto T995;} |
goto T1010;} |
2458 |
V381= Cnil; |
V443= Cnil; |
2459 |
goto T994; |
goto T1009; |
|
goto T995; |
|
|
T995:;{object V382; |
|
|
if(((V380))==Cnil){ |
|
|
goto T999;} |
|
|
V382= Cnil; |
|
|
goto T998; |
|
|
goto T999; |
|
|
T999:; |
|
|
V382= (VV[131]->s.s_dbind); |
|
|
goto T998; |
|
|
T998:; |
|
|
if(V382==Cnil)goto T997; |
|
|
V381= V382; |
|
|
goto T994; |
|
|
goto T997; |
|
|
T997:;} |
|
|
V381= (VV[130]->s.s_dbind); |
|
|
goto T994; |
|
|
T994:; |
|
|
if(V381==Cnil)goto T993; |
|
|
{object V383 = V381; |
|
|
VMR23(V383)} |
|
|
goto T993; |
|
|
T993:;}{object V384; |
|
|
if(type_of((V380))==t_character){ |
|
|
goto T1003;} |
|
|
V384= Cnil; |
|
|
goto T1002; |
|
|
goto T1003; |
|
|
T1003:; |
|
|
V384= (VV[141]->s.s_dbind); |
|
|
goto T1002; |
|
|
T1002:; |
|
|
if(V384==Cnil)goto T1001; |
|
|
{object V385 = V384; |
|
|
VMR23(V385)} |
|
|
goto T1001; |
|
|
T1001:;}{object V386; |
|
|
if(type_of((V380))==t_array|| |
|
|
type_of((V380))==t_vector|| |
|
|
type_of((V380))==t_string|| |
|
|
type_of((V380))==t_bitvector){ |
|
|
goto T1007;} |
|
|
V386= Cnil; |
|
|
goto T1006; |
|
|
goto T1007; |
|
|
T1007:;{object V387; |
|
|
if(type_of((V380))==t_vector|| |
|
|
type_of((V380))==t_string|| |
|
|
type_of((V380))==t_bitvector){ |
|
|
goto T1011;} |
|
|
V387= Cnil; |
|
2460 |
goto T1010; |
goto T1010; |
2461 |
goto T1011; |
T1010:;{object V444; |
2462 |
T1011:;{object V388; |
if(((V442))==Cnil){ |
2463 |
if((type_of((V380))==t_bitvector)){ |
goto T1014;} |
2464 |
goto T1015;} |
V444= Cnil; |
2465 |
V388= Cnil; |
goto T1013; |
|
goto T1014; |
|
|
goto T1015; |
|
|
T1015:; |
|
|
V388= (VV[144]->s.s_dbind); |
|
2466 |
goto T1014; |
goto T1014; |
2467 |
T1014:; |
T1014:; |
2468 |
if(V388==Cnil)goto T1013; |
V444= (VV[131]->s.s_dbind); |
|
V387= V388; |
|
|
goto T1010; |
|
2469 |
goto T1013; |
goto T1013; |
2470 |
T1013:;}{object V389; |
T1013:; |
2471 |
if(type_of((V380))==t_string){ |
if(V444==Cnil)goto T1012; |
2472 |
goto T1019;} |
V443= V444; |
2473 |
V389= Cnil; |
goto T1009; |
2474 |
goto T1018; |
goto T1012; |
2475 |
goto T1019; |
T1012:;} |
2476 |
T1019:; |
V443= (VV[130]->s.s_dbind); |
2477 |
V389= (VV[145]->s.s_dbind); |
goto T1009; |
2478 |
|
T1009:; |
2479 |
|
if(V443==Cnil)goto T1008; |
2480 |
|
{object V445 = V443; |
2481 |
|
VMR23(V445)} |
2482 |
|
goto T1008; |
2483 |
|
T1008:;}{object V446; |
2484 |
|
if(type_of((V442))==t_character){ |
2485 |
|
goto T1018;} |
2486 |
|
V446= Cnil; |
2487 |
|
goto T1017; |
2488 |
goto T1018; |
goto T1018; |
2489 |
T1018:; |
T1018:; |
2490 |
if(V389==Cnil)goto T1017; |
V446= (VV[141]->s.s_dbind); |
|
V387= V389; |
|
|
goto T1010; |
|
2491 |
goto T1017; |
goto T1017; |
2492 |
T1017:;} |
T1017:; |
2493 |
V387= (VV[143]->s.s_dbind); |
if(V446==Cnil)goto T1016; |
2494 |
goto T1010; |
{object V447 = V446; |
2495 |
T1010:; |
VMR23(V447)} |
2496 |
if(V387==Cnil)goto T1009; |
goto T1016; |
2497 |
V386= V387; |
T1016:;}{object V448; |
2498 |
goto T1006; |
if(type_of((V442))==t_array|| |
2499 |
goto T1009; |
type_of((V442))==t_vector|| |
2500 |
T1009:;} |
type_of((V442))==t_string|| |
2501 |
V386= (VV[142]->s.s_dbind); |
type_of((V442))==t_bitvector){ |
2502 |
goto T1006; |
goto T1022;} |
2503 |
T1006:; |
V448= Cnil; |
2504 |
if(V386==Cnil)goto T1005; |
goto T1021; |
|
{object V390 = V386; |
|
|
VMR23(V390)} |
|
|
goto T1005; |
|
|
T1005:;}{object V391; |
|
|
if(!(type_of(V380)==t_cons||(V380)==Cnil)){ |
|
|
goto T1025;} |
|
|
goto T1023; |
|
|
goto T1025; |
|
|
T1025:; |
|
|
if(type_of(V380)==t_vector|| |
|
|
type_of(V380)==t_string|| |
|
|
type_of(V380)==t_bitvector){ |
|
|
goto T1023;} |
|
|
V391= Cnil; |
|
2505 |
goto T1022; |
goto T1022; |
2506 |
goto T1023; |
T1022:;{object V449; |
2507 |
T1023:;{object V393; |
if(type_of((V442))==t_vector|| |
2508 |
if(type_of((V380))==t_vector|| |
type_of((V442))==t_string|| |
2509 |
type_of((V380))==t_string|| |
type_of((V442))==t_bitvector){ |
2510 |
type_of((V380))==t_bitvector){ |
goto T1026;} |
2511 |
goto T1029;} |
V449= Cnil; |
2512 |
V393= Cnil; |
goto T1025; |
2513 |
goto T1028; |
goto T1026; |
2514 |
|
T1026:;{object V450; |
2515 |
|
if((type_of((V442))==t_bitvector)){ |
2516 |
|
goto T1030;} |
2517 |
|
V450= Cnil; |
2518 |
goto T1029; |
goto T1029; |
2519 |
T1029:;{object V394; |
goto T1030; |
2520 |
if((type_of((V380))==t_bitvector)){ |
T1030:; |
2521 |
goto T1033;} |
V450= (VV[144]->s.s_dbind); |
2522 |
V394= Cnil; |
goto T1029; |
2523 |
goto T1032; |
T1029:; |
2524 |
|
if(V450==Cnil)goto T1028; |
2525 |
|
V449= V450; |
2526 |
|
goto T1025; |
2527 |
|
goto T1028; |
2528 |
|
T1028:;}{object V451; |
2529 |
|
if(type_of((V442))==t_string){ |
2530 |
|
goto T1034;} |
2531 |
|
V451= Cnil; |
2532 |
|
goto T1033; |
2533 |
|
goto T1034; |
2534 |
|
T1034:; |
2535 |
|
V451= (VV[145]->s.s_dbind); |
2536 |
goto T1033; |
goto T1033; |
2537 |
T1033:; |
T1033:; |
2538 |
V394= (VV[144]->s.s_dbind); |
if(V451==Cnil)goto T1032; |
2539 |
|
V449= V451; |
2540 |
|
goto T1025; |
2541 |
goto T1032; |
goto T1032; |
2542 |
T1032:; |
T1032:;} |
2543 |
if(V394==Cnil)goto T1031; |
V449= (VV[143]->s.s_dbind); |
2544 |
V393= V394; |
goto T1025; |
2545 |
goto T1028; |
T1025:; |
2546 |
goto T1031; |
if(V449==Cnil)goto T1024; |
2547 |
T1031:;}{object V395; |
V448= V449; |
2548 |
if(type_of((V380))==t_string){ |
goto T1021; |
2549 |
goto T1037;} |
goto T1024; |
2550 |
V395= Cnil; |
T1024:;} |
2551 |
goto T1036; |
V448= (VV[142]->s.s_dbind); |
2552 |
|
goto T1021; |
2553 |
|
T1021:; |
2554 |
|
if(V448==Cnil)goto T1020; |
2555 |
|
{object V452 = V448; |
2556 |
|
VMR23(V452)} |
2557 |
|
goto T1020; |
2558 |
|
T1020:;}{object V453; |
2559 |
|
if(!(type_of(V442)==t_cons||(V442)==Cnil)){ |
2560 |
|
goto T1040;} |
2561 |
|
goto T1038; |
2562 |
|
goto T1040; |
2563 |
|
T1040:; |
2564 |
|
if(type_of(V442)==t_vector|| |
2565 |
|
type_of(V442)==t_string|| |
2566 |
|
type_of(V442)==t_bitvector){ |
2567 |
|
goto T1038;} |
2568 |
|
V453= Cnil; |
2569 |
goto T1037; |
goto T1037; |
2570 |
T1037:; |
goto T1038; |
2571 |
V395= (VV[145]->s.s_dbind); |
T1038:;{object V455; |
2572 |
goto T1036; |
if(type_of((V442))==t_vector|| |
2573 |
T1036:; |
type_of((V442))==t_string|| |
2574 |
if(V395==Cnil)goto T1035; |
type_of((V442))==t_bitvector){ |
2575 |
V393= V395; |
goto T1044;} |
2576 |
goto T1028; |
V455= Cnil; |
|
goto T1035; |
|
|
T1035:;} |
|
|
V393= (VV[143]->s.s_dbind); |
|
|
goto T1028; |
|
|
T1028:; |
|
|
if(V393==Cnil)goto T1027; |
|
|
V391= V393; |
|
|
goto T1022; |
|
|
goto T1027; |
|
|
T1027:;}{object V396; |
|
|
if(!(type_of(V380)==t_cons)){ |
|
|
goto T1043;} |
|
|
goto T1041; |
|
2577 |
goto T1043; |
goto T1043; |
2578 |
T1043:; |
goto T1044; |
2579 |
if((V380)==Cnil){ |
T1044:;{object V456; |
2580 |
goto T1041;} |
if((type_of((V442))==t_bitvector)){ |
2581 |
V396= Cnil; |
goto T1048;} |
2582 |
goto T1040; |
V456= Cnil; |
2583 |
goto T1041; |
goto T1047; |
2584 |
T1041:;{object V398; |
goto T1048; |
2585 |
if(((V380))==Cnil){ |
T1048:; |
2586 |
goto T1047;} |
V456= (VV[144]->s.s_dbind); |
|
V398= Cnil; |
|
|
goto T1046; |
|
2587 |
goto T1047; |
goto T1047; |
2588 |
T1047:; |
T1047:; |
2589 |
V398= (VV[131]->s.s_dbind); |
if(V456==Cnil)goto T1046; |
2590 |
|
V455= V456; |
2591 |
|
goto T1043; |
2592 |
goto T1046; |
goto T1046; |
2593 |
T1046:; |
T1046:;}{object V457; |
2594 |
if(V398==Cnil)goto T1045; |
if(type_of((V442))==t_string){ |
2595 |
V396= V398; |
goto T1052;} |
2596 |
goto T1040; |
V457= Cnil; |
2597 |
goto T1045; |
goto T1051; |
2598 |
T1045:;}{object V399; |
goto T1052; |
2599 |
if(type_of((V380))==t_cons){ |
T1052:; |
2600 |
goto T1051;} |
V457= (VV[145]->s.s_dbind); |
|
V399= Cnil; |
|
|
goto T1050; |
|
2601 |
goto T1051; |
goto T1051; |
2602 |
T1051:; |
T1051:; |
2603 |
V399= (VV[148]->s.s_dbind); |
if(V457==Cnil)goto T1050; |
2604 |
|
V455= V457; |
2605 |
|
goto T1043; |
2606 |
goto T1050; |
goto T1050; |
2607 |
T1050:; |
T1050:;} |
2608 |
if(V399==Cnil)goto T1049; |
V455= (VV[143]->s.s_dbind); |
2609 |
V396= V399; |
goto T1043; |
2610 |
goto T1040; |
T1043:; |
2611 |
goto T1049; |
if(V455==Cnil)goto T1042; |
2612 |
T1049:;} |
V453= V455; |
2613 |
V396= (VV[147]->s.s_dbind); |
goto T1037; |
2614 |
goto T1040; |
goto T1042; |
2615 |
T1040:; |
T1042:;}{object V458; |
2616 |
if(V396==Cnil)goto T1039; |
if(!(type_of(V442)==t_cons)){ |
2617 |
V391= V396; |
goto T1058;} |
2618 |
goto T1022; |
goto T1056; |
|
goto T1039; |
|
|
T1039:;} |
|
|
V391= (VV[146]->s.s_dbind); |
|
|
goto T1022; |
|
|
T1022:; |
|
|
if(V391==Cnil)goto T1021; |
|
|
{object V400 = V391; |
|
|
VMR23(V400)} |
|
|
goto T1021; |
|
|
T1021:;}{object V401; |
|
|
if(type_of((V380))==t_fixnum|| |
|
|
type_of((V380))==t_bignum|| |
|
|
type_of((V380))==t_ratio|| |
|
|
type_of((V380))==t_shortfloat|| |
|
|
type_of((V380))==t_longfloat|| |
|
|
type_of((V380))==t_complex){ |
|
|
goto T1055;} |
|
|
V401= Cnil; |
|
|
goto T1054; |
|
|
goto T1055; |
|
|
T1055:;{object V402; |
|
|
base[0]= (V380); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk239)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T1059;} |
|
|
V402= Cnil; |
|
|
goto T1058; |
|
|
goto T1059; |
|
|
T1059:;{object V403; |
|
|
if(type_of((V380))==t_ratio){ |
|
|
goto T1064;} |
|
|
V403= Cnil; |
|
|
goto T1063; |
|
|
goto T1064; |
|
|
T1064:; |
|
|
V403= (VV[151]->s.s_dbind); |
|
|
goto T1063; |
|
|
T1063:; |
|
|
if(V403==Cnil)goto T1062; |
|
|
V402= V403; |
|
2619 |
goto T1058; |
goto T1058; |
2620 |
|
T1058:; |
2621 |
|
if((V442)==Cnil){ |
2622 |
|
goto T1056;} |
2623 |
|
V458= Cnil; |
2624 |
|
goto T1055; |
2625 |
|
goto T1056; |
2626 |
|
T1056:;{object V460; |
2627 |
|
if(((V442))==Cnil){ |
2628 |
|
goto T1062;} |
2629 |
|
V460= Cnil; |
2630 |
|
goto T1061; |
2631 |
goto T1062; |
goto T1062; |
2632 |
T1062:;}{object V404; |
T1062:; |
2633 |
if(type_of((V380))==t_fixnum||type_of((V380))==t_bignum){ |
V460= (VV[131]->s.s_dbind); |
2634 |
goto T1068;} |
goto T1061; |
2635 |
V404= Cnil; |
T1061:; |
2636 |
goto T1067; |
if(V460==Cnil)goto T1060; |
2637 |
goto T1068; |
V458= V460; |
2638 |
T1068:; |
goto T1055; |
2639 |
V404= (VV[152]->s.s_dbind); |
goto T1060; |
2640 |
goto T1067; |
T1060:;}{object V461; |
2641 |
T1067:; |
if(type_of((V442))==t_cons){ |
2642 |
if(V404==Cnil)goto T1066; |
goto T1066;} |
2643 |
V402= V404; |
V461= Cnil; |
2644 |
goto T1058; |
goto T1065; |
2645 |
goto T1066; |
goto T1066; |
2646 |
T1066:;} |
T1066:; |
2647 |
V402= (VV[150]->s.s_dbind); |
V461= (VV[148]->s.s_dbind); |
2648 |
goto T1058; |
goto T1065; |
2649 |
T1058:; |
T1065:; |
2650 |
if(V402==Cnil)goto T1057; |
if(V461==Cnil)goto T1064; |
2651 |
V401= V402; |
V458= V461; |
2652 |
goto T1054; |
goto T1055; |
2653 |
goto T1057; |
goto T1064; |
2654 |
T1057:;}{object V405; |
T1064:;} |
2655 |
if(type_of((V380))==t_shortfloat||type_of((V380))==t_longfloat){ |
V458= (VV[147]->s.s_dbind); |
2656 |
goto T1072;} |
goto T1055; |
2657 |
V405= Cnil; |
T1055:; |
2658 |
goto T1071; |
if(V458==Cnil)goto T1054; |
2659 |
goto T1072; |
V453= V458; |
2660 |
T1072:; |
goto T1037; |
|
V405= (VV[153]->s.s_dbind); |
|
|
goto T1071; |
|
|
T1071:; |
|
|
if(V405==Cnil)goto T1070; |
|
|
V401= V405; |
|
2661 |
goto T1054; |
goto T1054; |
2662 |
|
T1054:;} |
2663 |
|
V453= (VV[146]->s.s_dbind); |
2664 |
|
goto T1037; |
2665 |
|
T1037:; |
2666 |
|
if(V453==Cnil)goto T1036; |
2667 |
|
{object V462 = V453; |
2668 |
|
VMR23(V462)} |
2669 |
|
goto T1036; |
2670 |
|
T1036:;}{object V463; |
2671 |
|
if(type_of((V442))==t_fixnum|| |
2672 |
|
type_of((V442))==t_bignum|| |
2673 |
|
type_of((V442))==t_ratio|| |
2674 |
|
type_of((V442))==t_shortfloat|| |
2675 |
|
type_of((V442))==t_longfloat|| |
2676 |
|
type_of((V442))==t_complex){ |
2677 |
|
goto T1070;} |
2678 |
|
V463= Cnil; |
2679 |
|
goto T1069; |
2680 |
goto T1070; |
goto T1070; |
2681 |
T1070:;}{object V406; |
T1070:;{object V464; |
2682 |
base[0]= (V380); |
base[0]= (V442); |
2683 |
|
base[1]= VV[156]; |
2684 |
|
vs_top=(vs_base=base+0)+2; |
2685 |
|
(void) (*Lnk240)(); |
2686 |
|
vs_top=sup; |
2687 |
|
if((vs_base[0])!=Cnil){ |
2688 |
|
goto T1074;} |
2689 |
|
V464= Cnil; |
2690 |
|
goto T1073; |
2691 |
|
goto T1074; |
2692 |
|
T1074:;{object V465; |
2693 |
|
base[0]= (V442); |
2694 |
|
vs_top=(vs_base=base+0)+1; |
2695 |
|
(void) (*Lnk241)(); |
2696 |
|
vs_top=sup; |
2697 |
|
if((vs_base[0])!=Cnil){ |
2698 |
|
goto T1080;} |
2699 |
|
V465= Cnil; |
2700 |
|
goto T1079; |
2701 |
|
goto T1080; |
2702 |
|
T1080:;{object V466; |
2703 |
|
if(type_of((V442))==t_ratio){ |
2704 |
|
goto T1085;} |
2705 |
|
V466= Cnil; |
2706 |
|
goto T1084; |
2707 |
|
goto T1085; |
2708 |
|
T1085:; |
2709 |
|
V466= (VV[152]->s.s_dbind); |
2710 |
|
goto T1084; |
2711 |
|
T1084:; |
2712 |
|
if(V466==Cnil)goto T1083; |
2713 |
|
V465= V466; |
2714 |
|
goto T1079; |
2715 |
|
goto T1083; |
2716 |
|
T1083:;}{object V467; |
2717 |
|
if(type_of((V442))==t_fixnum||type_of((V442))==t_bignum){ |
2718 |
|
goto T1089;} |
2719 |
|
V467= Cnil; |
2720 |
|
goto T1088; |
2721 |
|
goto T1089; |
2722 |
|
T1089:; |
2723 |
|
V467= (VV[153]->s.s_dbind); |
2724 |
|
goto T1088; |
2725 |
|
T1088:; |
2726 |
|
if(V467==Cnil)goto T1087; |
2727 |
|
V465= V467; |
2728 |
|
goto T1079; |
2729 |
|
goto T1087; |
2730 |
|
T1087:;} |
2731 |
|
V465= (VV[151]->s.s_dbind); |
2732 |
|
goto T1079; |
2733 |
|
T1079:; |
2734 |
|
if(V465==Cnil)goto T1078; |
2735 |
|
V464= V465; |
2736 |
|
goto T1073; |
2737 |
|
goto T1078; |
2738 |
|
T1078:;}{object V468; |
2739 |
|
if(type_of((V442))==t_shortfloat||type_of((V442))==t_longfloat){ |
2740 |
|
goto T1093;} |
2741 |
|
V468= Cnil; |
2742 |
|
goto T1092; |
2743 |
|
goto T1093; |
2744 |
|
T1093:; |
2745 |
|
V468= (VV[154]->s.s_dbind); |
2746 |
|
goto T1092; |
2747 |
|
T1092:; |
2748 |
|
if(V468==Cnil)goto T1091; |
2749 |
|
V464= V468; |
2750 |
|
goto T1073; |
2751 |
|
goto T1091; |
2752 |
|
T1091:;} |
2753 |
|
V464= (VV[150]->s.s_dbind); |
2754 |
|
goto T1073; |
2755 |
|
T1073:; |
2756 |
|
if(V464==Cnil)goto T1072; |
2757 |
|
V463= V464; |
2758 |
|
goto T1069; |
2759 |
|
goto T1072; |
2760 |
|
T1072:;}{object V469; |
2761 |
|
base[0]= (V442); |
2762 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2763 |
Lcomplexp(); |
Lcomplexp(); |
2764 |
vs_top=sup; |
vs_top=sup; |
2765 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2766 |
goto T1076;} |
goto T1097;} |
2767 |
V406= Cnil; |
V469= Cnil; |
2768 |
goto T1075; |
goto T1096; |
2769 |
goto T1076; |
goto T1097; |
2770 |
T1076:; |
T1097:; |
2771 |
V406= (VV[154]->s.s_dbind); |
V469= (VV[155]->s.s_dbind); |
2772 |
goto T1075; |
goto T1096; |
2773 |
T1075:; |
T1096:; |
2774 |
if(V406==Cnil)goto T1074; |
if(V469==Cnil)goto T1095; |
2775 |
V401= V406; |
V463= V469; |
2776 |
goto T1054; |
goto T1069; |
2777 |
goto T1074; |
goto T1095; |
2778 |
T1074:;} |
T1095:;} |
2779 |
V401= (VV[149]->s.s_dbind); |
V463= (VV[149]->s.s_dbind); |
2780 |
goto T1054; |
goto T1069; |
2781 |
T1054:; |
T1069:; |
2782 |
if(V401==Cnil)goto T1053; |
if(V463==Cnil)goto T1068; |
2783 |
{object V407 = V401; |
{object V470 = V463; |
2784 |
VMR23(V407)} |
VMR23(V470)} |
2785 |
goto T1053; |
goto T1068; |
2786 |
T1053:;} |
T1068:;} |
2787 |
{object V408 = (VV[38]->s.s_dbind); |
{object V471 = (VV[38]->s.s_dbind); |
2788 |
VMR23(V408)} |
VMR23(V471)} |
2789 |
base[0]=base[0]; |
base[0]=base[0]; |
2790 |
return Cnil; |
return Cnil; |
2791 |
} |
} |
2792 |
/* local entry for function METHOD-FUNCTION-RETURNING-NIL */ |
/* local entry for function METHOD-FUNCTION-RETURNING-NIL */ |
2793 |
|
|
2794 |
static object LI40(V411,V412) |
static object LI40(V474,V475) |
2795 |
|
|
2796 |
object V411;object V412; |
object V474;object V475; |
2797 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
2798 |
goto TTL; |
goto TTL; |
2799 |
TTL:; |
TTL:; |
2800 |
{object V413 = Cnil; |
{object V476 = Cnil; |
2801 |
VMR24(V413)} |
VMR24(V476)} |
2802 |
return Cnil; |
return Cnil; |
2803 |
} |
} |
2804 |
/* local entry for function METHOD-FUNCTION-RETURNING-T */ |
/* local entry for function METHOD-FUNCTION-RETURNING-T */ |
2805 |
|
|
2806 |
static object LI41(V416,V417) |
static object LI41(V479,V480) |
2807 |
|
|
2808 |
object V416;object V417; |
object V479;object V480; |
2809 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2810 |
goto TTL; |
goto TTL; |
2811 |
TTL:; |
TTL:; |
2812 |
{object V418 = Ct; |
{object V481 = Ct; |
2813 |
VMR25(V418)} |
VMR25(V481)} |
2814 |
return Cnil; |
return Cnil; |
2815 |
} |
} |
2816 |
/* local entry for function MAKE-CLASS-PREDICATE */ |
/* local entry for function MAKE-CLASS-PREDICATE */ |
2817 |
|
|
2818 |
static object LI42(V421,V422) |
static object LI42(V484,V485) |
2819 |
|
|
2820 |
object V421;object V422; |
object V484;object V485; |
2821 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
2822 |
goto TTL; |
goto TTL; |
2823 |
TTL:; |
TTL:; |
2824 |
{register object V423; |
{register object V486; |
2825 |
object V424; |
object V487; |
2826 |
base[2]= (V422); |
base[2]= (V485); |
2827 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2828 |
(void) (*Lnk209)(); |
(void) (*Lnk210)(); |
2829 |
vs_top=sup; |
vs_top=sup; |
2830 |
V423= vs_base[0]; |
V486= vs_base[0]; |
2831 |
if(!(((VV[155]->s.s_dbind))==(VV[156]))){ |
if(!(((VV[157]->s.s_dbind))==(VV[158]))){ |
2832 |
goto T1083;} |
goto T1104;} |
2833 |
base[2]= (V423); |
base[2]= (V486); |
2834 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2835 |
(void) (*Lnk240)(Lclptr240); |
(void) (*Lnk242)(Lclptr242); |
2836 |
vs_top=sup; |
vs_top=sup; |
2837 |
V424= vs_base[0]; |
V487= vs_base[0]; |
2838 |
goto T1081; |
goto T1102; |
2839 |
goto T1083; |
goto T1104; |
2840 |
T1083:; |
T1104:; |
2841 |
if(type_of(V423)==t_structure){ |
if(type_of(V486)==t_structure){ |
2842 |
goto T1090;} |
goto T1111;} |
2843 |
goto T1088; |
goto T1109; |
2844 |
goto T1090; |
goto T1111; |
2845 |
T1090:; |
T1111:; |
2846 |
if(!(((V423)->str.str_def)==(VV[157]))){ |
if(!(((V486)->str.str_def)==(VV[159]))){ |
2847 |
goto T1088;} |
goto T1109;} |
2848 |
V425= STREF(object,(V423),4); |
V488= STREF(object,(V486),4); |
2849 |
goto T1086; |
goto T1107; |
2850 |
goto T1088; |
goto T1109; |
2851 |
T1088:;{object V427; |
T1109:;{object V490; |
2852 |
V427= (VV[45]->s.s_dbind); |
V490= (VV[45]->s.s_dbind); |
2853 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2854 |
base[3]= (V423); |
base[3]= (V486); |
2855 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2856 |
(void) (*Lnk193)(); |
(void) (*Lnk194)(); |
2857 |
vs_top=sup; |
vs_top=sup; |
2858 |
V428= vs_base[0]; |
V491= vs_base[0]; |
2859 |
if(!((V427)==(CMPcar(V428)))){ |
if(!((V490)==(CMPcar(V491)))){ |
2860 |
goto T1093;}} |
goto T1114;}} |
2861 |
V425= CMPcar(((V423))->cc.cc_turbo[12]); |
V488= CMPcar(((V486))->cc.cc_turbo[12]); |
2862 |
goto T1086; |
goto T1107; |
2863 |
goto T1093; |
goto T1114; |
2864 |
T1093:; |
T1114:; |
2865 |
base[2]= VV[46]; |
base[2]= VV[46]; |
2866 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2867 |
Lerror(); |
Lerror(); |
2868 |
vs_top=sup; |
vs_top=sup; |
2869 |
V425= vs_base[0]; |
V488= vs_base[0]; |
2870 |
goto T1086; |
goto T1107; |
2871 |
T1086:; |
T1107:; |
2872 |
V429 = (VV[117]->s.s_dbind); |
V492 = (VV[117]->s.s_dbind); |
2873 |
V424= (V425)->v.v_self[fix(V429)]; |
V487= (V488)->v.v_self[fix(V492)]; |
|
goto T1081; |
|
|
T1081:; |
|
|
if(((V424))!=Cnil){ |
|
|
goto T1099;} |
|
|
if(((V421))==((VV[158]->s.s_dbind))){ |
|
|
goto T1102;} |
|
|
{object V430; |
|
|
object V431; |
|
|
object V432; |
|
|
V430= (VV[241]->s.s_gfdef); |
|
|
V431= list(2,VV[159],(V430)); |
|
|
base[5]= VV[160]; |
|
|
base[6]= Cnil; |
|
|
base[7]= make_cons(VV[57],Cnil); |
|
|
base[8]= make_cons((VV[158]->s.s_dbind),Cnil); |
|
|
base[9]= (V431); |
|
|
base[10]= VV[161]; |
|
|
V432= simple_symlispcall(VV[215],base+5,6); |
|
|
(void)((*(LnkLI242))(Cnil,V430,VV[162])); |
|
|
base[5]= (V423); |
|
|
base[6]= (V432); |
|
|
(void)simple_symlispcall(VV[214],base+5,2);} |
|
2874 |
goto T1102; |
goto T1102; |
2875 |
T1102:; |
T1102:; |
2876 |
{object V435; |
if(((V487))!=Cnil){ |
2877 |
object V436; |
goto T1120;} |
2878 |
object V437; |
if(((V484))==((VV[160]->s.s_dbind))){ |
2879 |
V435= (VV[243]->s.s_gfdef); |
goto T1123;} |
2880 |
V436= list(2,VV[159],(V435)); |
{object V493; |
2881 |
base[5]= VV[160]; |
object V494; |
2882 |
|
object V495; |
2883 |
|
V493= (VV[243]->s.s_gfdef); |
2884 |
|
V494= list(2,VV[161],(V493)); |
2885 |
|
base[5]= VV[162]; |
2886 |
base[6]= Cnil; |
base[6]= Cnil; |
2887 |
base[7]= make_cons(VV[57],Cnil); |
base[7]= make_cons(VV[57],Cnil); |
2888 |
base[8]= make_cons((V421),Cnil); |
base[8]= make_cons((VV[160]->s.s_dbind),Cnil); |
2889 |
base[9]= (V436); |
base[9]= (V494); |
2890 |
base[10]= VV[163]; |
base[10]= VV[163]; |
2891 |
V437= simple_symlispcall(VV[215],base+5,6); |
V495= simple_symlispcall(VV[216],base+5,6); |
2892 |
(void)((*(LnkLI242))(Ct,V435,VV[162])); |
V499= ({object _tmp=get(VV[244],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[244])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[244])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
2893 |
base[5]= (V423); |
V500 = Cnil; |
2894 |
base[6]= (V437); |
V501 = V493; |
2895 |
(void)simple_symlispcall(VV[214],base+5,2);} |
V502 = VV[164]; |
2896 |
goto T1099; |
(void)(( |
2897 |
T1099:; |
V503 = V499, |
2898 |
{object V440 = (V423); |
(type_of(V503) == t_sfun ?(*((V503)->sfn.sfn_self)): |
2899 |
VMR26(V440)}} |
(fcall.argd=3,type_of(V503)==t_vfun) ? |
2900 |
|
(*((V503)->sfn.sfn_self)): |
2901 |
|
(fcall.fun=(V503),fcalln))(V500,V501,V502))); |
2902 |
|
base[5]= (V486); |
2903 |
|
base[6]= (V495); |
2904 |
|
(void)simple_symlispcall(VV[215],base+5,2);} |
2905 |
|
goto T1123; |
2906 |
|
T1123:; |
2907 |
|
{object V504; |
2908 |
|
object V505; |
2909 |
|
object V506; |
2910 |
|
V504= (VV[245]->s.s_gfdef); |
2911 |
|
V505= list(2,VV[161],(V504)); |
2912 |
|
base[5]= VV[162]; |
2913 |
|
base[6]= Cnil; |
2914 |
|
base[7]= make_cons(VV[57],Cnil); |
2915 |
|
base[8]= make_cons((V484),Cnil); |
2916 |
|
base[9]= (V505); |
2917 |
|
base[10]= VV[165]; |
2918 |
|
V506= simple_symlispcall(VV[216],base+5,6); |
2919 |
|
V510= ({object _tmp=get(VV[244],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[244])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[244])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
2920 |
|
V511 = Ct; |
2921 |
|
V512 = V504; |
2922 |
|
V513 = VV[164]; |
2923 |
|
(void)(( |
2924 |
|
V514 = V510, |
2925 |
|
(type_of(V514) == t_sfun ?(*((V514)->sfn.sfn_self)): |
2926 |
|
(fcall.argd=3,type_of(V514)==t_vfun) ? |
2927 |
|
(*((V514)->sfn.sfn_self)): |
2928 |
|
(fcall.fun=(V514),fcalln))(V511,V512,V513))); |
2929 |
|
base[5]= (V486); |
2930 |
|
base[6]= (V506); |
2931 |
|
(void)simple_symlispcall(VV[215],base+5,2);} |
2932 |
|
goto T1120; |
2933 |
|
T1120:; |
2934 |
|
{object V515 = (V486); |
2935 |
|
VMR26(V515)}} |
2936 |
base[0]=base[0]; |
base[0]=base[0]; |
2937 |
return Cnil; |
return Cnil; |
2938 |
} |
} |
2939 |
/* function definition for G5630 */ |
/* function definition for G5599 */ |
2940 |
|
|
2941 |
static void L43() |
static void L43() |
2942 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2946 |
vs_top=sup; |
vs_top=sup; |
2947 |
goto TTL; |
goto TTL; |
2948 |
TTL:; |
TTL:; |
2949 |
base[0]= VV[164]; |
base[0]= VV[166]; |
2950 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2951 |
return; |
return; |
2952 |
} |
} |
2956 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2957 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
2958 |
vs_check; |
vs_check; |
2959 |
{object V441; |
{object V516; |
2960 |
object V442; |
object V517; |
2961 |
object V443; |
object V518; |
2962 |
object V444; |
object V519; |
2963 |
check_arg(4); |
check_arg(4); |
2964 |
V441=(base[0]); |
V516=(base[0]); |
2965 |
V442=(base[1]); |
V517=(base[1]); |
2966 |
V443=(base[2]); |
V518=(base[2]); |
2967 |
V444=(base[3]); |
V519=(base[3]); |
2968 |
vs_top=sup; |
vs_top=sup; |
2969 |
goto TTL; |
goto TTL; |
2970 |
TTL:; |
TTL:; |
2971 |
base[4]= VV[165]; |
base[4]= VV[167]; |
2972 |
base[5]= VV[166]; |
base[5]= VV[168]; |
2973 |
base[6]= (V443); |
base[6]= (V518); |
2974 |
base[7]= V444; |
base[7]= V519; |
2975 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2976 |
Lcerror(); |
Lcerror(); |
2977 |
vs_top=sup; |
vs_top=sup; |
2978 |
base[4]= (V443); |
base[4]= (V518); |
2979 |
{object V447; |
{object V522; |
2980 |
V447= V444; |
V522= V519; |
2981 |
vs_top=base+5; |
vs_top=base+5; |
2982 |
while(V447!=Cnil) |
while(V522!=Cnil) |
2983 |
{vs_push((V447)->c.c_car);V447=(V447)->c.c_cdr;} |
{vs_push((V522)->c.c_car);V522=(V522)->c.c_cdr;} |
2984 |
vs_base=base+5;} |
vs_base=base+5;} |
2985 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2986 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3010 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3011 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
3012 |
vs_check; |
vs_check; |
3013 |
{object V448; |
{object V523; |
3014 |
check_arg(1); |
check_arg(1); |
3015 |
V448=(base[0]); |
V523=(base[0]); |
3016 |
vs_top=sup; |
vs_top=sup; |
3017 |
goto TTL; |
goto TTL; |
3018 |
TTL:; |
TTL:; |
3019 |
base[1]= base0[1]; |
base[1]= base0[1]; |
3020 |
base[2]= (V448); |
base[2]= (V523); |
3021 |
base[3]= base0[0]; |
base[3]= base0[0]; |
3022 |
base[4]= VV[122]; |
base[4]= VV[122]; |
3023 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3024 |
(void) (*Lnk244)(); |
(void) (*Lnk246)(); |
3025 |
return; |
return; |
3026 |
} |
} |
3027 |
} |
} |
3032 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3033 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
3034 |
vs_check; |
vs_check; |
3035 |
{object V449; |
{object V524; |
3036 |
check_arg(1); |
check_arg(1); |
3037 |
V449=(base[0]); |
V524=(base[0]); |
3038 |
vs_top=sup; |
vs_top=sup; |
3039 |
goto TTL; |
goto TTL; |
3040 |
TTL:; |
TTL:; |
3041 |
base[1]= base0[1]; |
base[1]= base0[1]; |
3042 |
base[2]= (V449); |
base[2]= (V524); |
3043 |
base[3]= base0[0]; |
base[3]= base0[0]; |
3044 |
base[4]= VV[121]; |
base[4]= VV[121]; |
3045 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3046 |
(void) (*Lnk244)(); |
(void) (*Lnk246)(); |
3047 |
return; |
return; |
3048 |
} |
} |
3049 |
} |
} |
3054 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3055 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
3056 |
vs_check; |
vs_check; |
3057 |
{object V450; |
{object V525; |
3058 |
check_arg(1); |
check_arg(1); |
3059 |
V450=(base[0]); |
V525=(base[0]); |
3060 |
vs_top=sup; |
vs_top=sup; |
3061 |
goto TTL; |
goto TTL; |
3062 |
TTL:; |
TTL:; |
3063 |
base[1]= base0[1]; |
base[1]= base0[1]; |
3064 |
base[2]= (V450); |
base[2]= (V525); |
3065 |
base[3]= base0[0]; |
base[3]= base0[0]; |
3066 |
base[4]= VV[120]; |
base[4]= VV[120]; |
3067 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3068 |
(void) (*Lnk244)(); |
(void) (*Lnk246)(); |
3069 |
return; |
return; |
3070 |
} |
} |
3071 |
} |
} |
3076 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3077 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
3078 |
vs_check; |
vs_check; |
3079 |
{object V451; |
{object V526; |
3080 |
object V452; |
object V527; |
3081 |
check_arg(2); |
check_arg(2); |
3082 |
V451=(base[0]); |
V526=(base[0]); |
3083 |
V452=(base[1]); |
V527=(base[1]); |
3084 |
vs_top=sup; |
vs_top=sup; |
3085 |
goto TTL; |
goto TTL; |
3086 |
TTL:; |
TTL:; |
3087 |
base[2]= (*(LnkLI196))(base0[1],base0[2],(V451),(V452)); |
base[2]= (*(LnkLI197))(base0[1],base0[2],(V526),(V527)); |
3088 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3089 |
return; |
return; |
3090 |
} |
} |
3096 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3097 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
3098 |
vs_check; |
vs_check; |
3099 |
{object V453; |
{object V528; |
3100 |
check_arg(1); |
check_arg(1); |
3101 |
V453=(base[0]); |
V528=(base[0]); |
3102 |
vs_top=sup; |
vs_top=sup; |
3103 |
goto TTL; |
goto TTL; |
3104 |
TTL:; |
TTL:; |
3105 |
base[1]= base0[0]; |
base[1]= base0[0]; |
3106 |
base[2]= (V453); |
base[2]= (V528); |
3107 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3108 |
Lgetf(); |
Lgetf(); |
3109 |
return; |
return; |
3116 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3117 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
3118 |
vs_check; |
vs_check; |
3119 |
{object V454; |
{object V529; |
3120 |
object V455; |
object V530; |
3121 |
check_arg(2); |
check_arg(2); |
3122 |
V454=(base[0]); |
V529=(base[0]); |
3123 |
V455=(base[1]); |
V530=(base[1]); |
3124 |
vs_top=sup; |
vs_top=sup; |
3125 |
goto TTL; |
goto TTL; |
3126 |
TTL:; |
TTL:; |
3127 |
base[2]= (*(LnkLI196))(base0[0],base0[1],(V454),(V455)); |
base[2]= (*(LnkLI197))(base0[0],base0[1],(V529),(V530)); |
3128 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3129 |
return; |
return; |
3130 |
} |
} |
3136 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3137 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
3138 |
vs_check; |
vs_check; |
3139 |
{object V456; |
{object V531; |
3140 |
check_arg(1); |
check_arg(1); |
3141 |
V456=(base[0]); |
V531=(base[0]); |
3142 |
vs_top=sup; |
vs_top=sup; |
3143 |
goto TTL; |
goto TTL; |
3144 |
TTL:; |
TTL:; |
3145 |
base[2]=VV[25]->s.s_gfdef; |
base[2]=VV[25]->s.s_gfdef; |
3146 |
{object V457; |
{object V532; |
3147 |
object V458= (V456); |
object V533= (V531); |
3148 |
if(V458==Cnil){ |
if(V533==Cnil){ |
3149 |
base[3]= Cnil; |
base[3]= Cnil; |
3150 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3151 |
return;} |
return;} |
3152 |
base[1]=V457=MMcons(Cnil,Cnil); |
base[1]=V532=MMcons(Cnil,Cnil); |
3153 |
goto T1154; |
goto T1177; |
3154 |
T1154:; |
T1177:; |
3155 |
base[3]= (V458->c.c_car); |
base[3]= (V533->c.c_car); |
3156 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3157 |
(void) (*Lnk25)(); |
(void) (*Lnk25)(); |
3158 |
vs_top=sup; |
vs_top=sup; |
3159 |
(V457->c.c_car)= vs_base[0]; |
(V532->c.c_car)= vs_base[0]; |
3160 |
if((V458=MMcdr(V458))==Cnil){ |
if((V533=MMcdr(V533))==Cnil){ |
3161 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3162 |
return;} |
return;} |
3163 |
V457=MMcdr(V457)=MMcons(Cnil,Cnil); |
V532=MMcdr(V532)=MMcons(Cnil,Cnil); |
3164 |
goto T1154;} |
goto T1177;} |
3165 |
} |
} |
3166 |
} |
} |
3167 |
/* local function SET-SLOT */ |
/* local function SET-SLOT */ |
3171 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3172 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
3173 |
vs_check; |
vs_check; |
3174 |
{object V459; |
{object V534; |
3175 |
object V460; |
object V535; |
3176 |
check_arg(2); |
check_arg(2); |
3177 |
V459=(base[0]); |
V534=(base[0]); |
3178 |
V460=(base[1]); |
V535=(base[1]); |
3179 |
vs_top=sup; |
vs_top=sup; |
3180 |
goto TTL; |
goto TTL; |
3181 |
TTL:; |
TTL:; |
3182 |
base[2]= (*(LnkLI196))(VV[43],base0[3],(V459),(V460)); |
base[2]= (*(LnkLI197))(VV[43],base0[3],(V534),(V535)); |
3183 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3184 |
return; |
return; |
3185 |
} |
} |
3191 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3192 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
3193 |
vs_check; |
vs_check; |
3194 |
{object V461; |
{object V536; |
3195 |
check_arg(1); |
check_arg(1); |
3196 |
V461=(base[0]); |
V536=(base[0]); |
3197 |
vs_top=sup; |
vs_top=sup; |
3198 |
base[1]= Ct; |
base[1]= Ct; |
3199 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3207 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3208 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
3209 |
vs_check; |
vs_check; |
3210 |
{object V462; |
{object V537; |
3211 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
3212 |
{object *p=vs_top; |
{object *p=vs_top; |
3213 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
3214 |
V462=(base[0]); |
V537=(base[0]); |
3215 |
vs_top=sup; |
vs_top=sup; |
3216 |
base[1]= VV[10]; |
base[1]= VV[10]; |
3217 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
3221 |
} |
} |
3222 |
} |
} |
3223 |
static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* FIND-CLASS */ |
static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* FIND-CLASS */ |
3224 |
static void LnkT244(){ call_or_link(VV[244],(void **)(void *)&Lnk244);} /* BOOTSTRAP-ACCESSOR-DEFINITION */ |
static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* BOOTSTRAP-ACCESSOR-DEFINITION */ |
3225 |
static object LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,3,first,ap);va_end(ap);return V1;} /* SETF PCL METHOD-FUNCTION-GET */ |
static void LnkT242(ptr) object *ptr;{ call_or_link_closure(VV[242],(void **)(void *)&Lnk242,(void **)(void *)&Lclptr242);} /* GENERIC-FUNCTION-METHODS */ |
3226 |
static void LnkT240(ptr) object *ptr;{ call_or_link_closure(VV[240],(void **)(void *)&Lnk240,(void **)(void *)&Lclptr240);} /* GENERIC-FUNCTION-METHODS */ |
static void LnkT241(){ call_or_link(VV[241],(void **)(void *)&Lnk241);} /* RATIONALP */ |
3227 |
static void LnkT239(){ call_or_link(VV[239],(void **)(void *)&Lnk239);} /* RATIONALP */ |
static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* TYPEP */ |
3228 |
static void LnkT238(){ call_or_link(VV[238],(void **)(void *)&Lnk238);} /* ENSURE-CLASS */ |
static void LnkT239(){ call_or_link(VV[239],(void **)(void *)&Lnk239);} /* ENSURE-CLASS */ |
3229 |
static object LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
static object LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
3230 |
static object LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */ |
static object LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */ |
3231 |
static object LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
static object LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
3232 |
static object LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */ |
static object LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */ |
3233 |
static object LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[233],(void **)(void *)&LnkLI233,1,first,ap);va_end(ap);return V1;} /* EVAL-FORM */ |
static object LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* EVAL-FORM */ |
3234 |
static void LnkT232(){ call_or_link(VV[232],(void **)(void *)&Lnk232);} /* STRUCTURE-SLOTD-INIT-FORM */ |
static void LnkT233(){ call_or_link(VV[233],(void **)(void *)&Lnk233);} /* STRUCTURE-SLOTD-INIT-FORM */ |
3235 |
static object LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */ |
static object LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */ |
3236 |
static object LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */ |
static object LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */ |
3237 |
static object LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-READER-FUNCTION */ |
static object LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-READER-FUNCTION */ |
3238 |
static object LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
static object LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
3239 |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */ |
static object LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */ |
3240 |
static object LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ |
3241 |
static object LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[225],(void **)(void *)&LnkLI225,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */ |
static object LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */ |
3242 |
static object LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
static object LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[225],(void **)(void *)&LnkLI225,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
3243 |
static object LnkTLI223(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[223],(void **)(void *)&LnkLI223,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ |
static object LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ |
3244 |
static object LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[222],(void **)(void *)&LnkLI222,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */ |
static object LnkTLI223(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[223],(void **)(void *)&LnkLI223,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */ |
3245 |
static object LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-WRAPPER-SYMBOL */ |
static object LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[222],(void **)(void *)&LnkLI222,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-WRAPPER-SYMBOL */ |
3246 |
static object LnkTLI220(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[220],(void **)(void *)&LnkLI220,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-CLASS-SYMBOL */ |
static object LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-CLASS-SYMBOL */ |
3247 |
static void LnkT219(ptr) object *ptr;{ call_or_link_closure(VV[219],(void **)(void *)&Lnk219,(void **)(void *)&Lclptr219);} /* CLASS-WRAPPER */ |
static void LnkT220(ptr) object *ptr;{ call_or_link_closure(VV[220],(void **)(void *)&Lnk220,(void **)(void *)&Lclptr220);} /* CLASS-WRAPPER */ |
3248 |
static object LnkTLI218(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[218],(void **)(void *)&LnkLI218,2,first,ap);va_end(ap);return V1;} /* SETF PCL FIND-CLASS-PREDICATE */ |
static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* CLASS-PREDICATE-NAME */ |
3249 |
static void LnkT217(ptr) object *ptr;{ call_or_link_closure(VV[217],(void **)(void *)&Lnk217,(void **)(void *)&Lclptr217);} /* CLASS-PREDICATE-NAME */ |
static object LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[217],(void **)(void *)&LnkLI217,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */ |
3250 |
static object LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */ |
static object LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[214],(void **)(void *)&LnkLI214,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
3251 |
static object LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[213],(void **)(void *)&LnkLI213,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
static void LnkT213(){ call_or_link(VV[213],(void **)(void *)&Lnk213);} /* FIND */ |
3252 |
static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* FIND */ |
static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* ENSURE-GENERIC-FUNCTION */ |
3253 |
static void LnkT209(){ call_or_link(VV[209],(void **)(void *)&Lnk209);} /* ENSURE-GENERIC-FUNCTION */ |
static object LnkTLI206(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[206],(void **)(void *)&LnkLI206,1,first,ap);va_end(ap);return V1;} /* SLOT-BOUNDP-SYMBOL */ |
3254 |
static object LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,1,first,ap);va_end(ap);return V1;} /* SLOT-BOUNDP-SYMBOL */ |
static object LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,1,first,ap);va_end(ap);return V1;} /* SLOT-WRITER-SYMBOL */ |
3255 |
static object LnkTLI204(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[204],(void **)(void *)&LnkLI204,1,first,ap);va_end(ap);return V1;} /* SLOT-WRITER-SYMBOL */ |
static object LnkTLI204(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[204],(void **)(void *)&LnkLI204,1,first,ap);va_end(ap);return V1;} /* SLOT-READER-SYMBOL */ |
3256 |
static object LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[203],(void **)(void *)&LnkLI203,1,first,ap);va_end(ap);return V1;} /* SLOT-READER-SYMBOL */ |
static object LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[203],(void **)(void *)&LnkLI203,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
3257 |
static object LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[202],(void **)(void *)&LnkLI202,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
static void LnkT202(){ call_or_link(VV[202],(void **)(void *)&Lnk202);} /* MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION */ |
3258 |
static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION */ |
static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION */ |
3259 |
static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION */ |
static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION */ |
3260 |
static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION */ |
static object LnkTLI199(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[199],(void **)(void *)&LnkLI199,6,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
3261 |
static object LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,6,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
static void LnkT198(){ call_or_link(VV[198],(void **)(void *)&Lnk198);} /* MAKE-CLASS-PREDICATE-NAME */ |
3262 |
static void LnkT197(){ call_or_link(VV[197],(void **)(void *)&Lnk197);} /* MAKE-CLASS-PREDICATE-NAME */ |
static object LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[197],(void **)(void *)&LnkLI197,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */ |
3263 |
static object LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */ |
static void LnkT196(){ call_or_link(VV[196],(void **)(void *)&Lnk196);} /* LOAD-TRUENAME */ |
3264 |
static void LnkT195(){ call_or_link(VV[195],(void **)(void *)&Lnk195);} /* LOAD-TRUENAME */ |
static object LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */ |
3265 |
static object LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */ |
static void LnkT194(){ call_or_link(VV[194],(void **)(void *)&Lnk194);} /* CCLOSURE-ENV-NTHCDR */ |
3266 |
static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI193(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[193],(void **)(void *)&LnkLI193,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-INITIALIZE-CLASS */ |
3267 |
static object LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[192],(void **)(void *)&LnkLI192,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-INITIALIZE-CLASS */ |
static object LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
3268 |
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[191],(void **)(void *)&LnkLI191,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */ |
3269 |
static object LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[190],(void **)(void *)&LnkLI190,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */ |
static void LnkT190(){ call_or_link(VV[190],(void **)(void *)&Lnk190);} /* CANONICAL-SLOT-NAME */ |
3270 |
static void LnkT189(){ call_or_link(VV[189],(void **)(void *)&Lnk189);} /* CANONICAL-SLOT-NAME */ |
static void LnkT189(){ call_or_link(VV[189],(void **)(void *)&Lnk189);} /* EARLY-COLLECT-INHERITANCE */ |
3271 |
static void LnkT188(){ call_or_link(VV[188],(void **)(void *)&Lnk188);} /* EARLY-COLLECT-INHERITANCE */ |
static object LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */ |
3272 |
static object LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[187],(void **)(void *)&LnkLI187,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */ |
static object LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[187],(void **)(void *)&LnkLI187,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */ |
3273 |
static object LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[186],(void **)(void *)&LnkLI186,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */ |
static object LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[186],(void **)(void *)&LnkLI186,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */ |
3274 |
static object LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[185],(void **)(void *)&LnkLI185,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */ |
static object LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[185],(void **)(void *)&LnkLI185,1,first,ap);va_end(ap);return V1;} /* ECD-SOURCE */ |
3275 |
static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,1,first,ap);va_end(ap);return V1;} /* ECD-SOURCE */ |
static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */ |
|
static object LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */ |
|
3276 |
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
3277 |
static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* ECD-METACLASS */ |
static object LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,1,first,ap);va_end(ap);return V1;} /* ECD-METACLASS */ |
3278 |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */ |
static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */ |
|
static object LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)(void *)&LnkLI180,2,first,ap);va_end(ap);return V1;} /* SETF PCL FIND-CLASS */ |
|
3279 |
static object LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[21],(void **)(void *)&LnkLI21,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */ |
static object LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[21],(void **)(void *)&LnkLI21,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */ |
3280 |
static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,257,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SIZE */ |
static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,257,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SIZE */ |
3281 |
static object LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[18],(void **)(void *)&LnkLI18,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */ |
static object LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[18],(void **)(void *)&LnkLI18,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */ |
3282 |
static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */ |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */ |
3283 |
static object LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)(void *)&LnkLI177,2,first,ap);va_end(ap);return V1;} /* SETF PCL GDEFINITION */ |
static object LnkTLI178(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[178],(void **)(void *)&LnkLI178,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */ |
3284 |
static object LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[176],(void **)(void *)&LnkLI176,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */ |
static void LnkT177(ptr) object *ptr;{ call_or_link_closure(VV[177],(void **)(void *)&Lnk177,(void **)(void *)&Lclptr177);} /* CLASS-NAME */ |
3285 |
static void LnkT175(ptr) object *ptr;{ call_or_link_closure(VV[175],(void **)(void *)&Lnk175,(void **)(void *)&Lclptr175);} /* CLASS-NAME */ |
static void LnkT175(ptr) object *ptr;{ call_or_link_closure(VV[175],(void **)(void *)&Lnk175,(void **)(void *)&Lclptr175);} /* CLASS-SLOTS */ |
3286 |
static void LnkT174(ptr) object *ptr;{ call_or_link_closure(VV[174],(void **)(void *)&Lnk174,(void **)(void *)&Lclptr174);} /* SETF PCL SLOT-VALUE-USING-CLASS */ |
static void LnkT174(ptr) object *ptr;{ call_or_link_closure(VV[174],(void **)(void *)&Lnk174,(void **)(void *)&Lclptr174);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */ |
3287 |
static void LnkT173(ptr) object *ptr;{ call_or_link_closure(VV[173],(void **)(void *)&Lnk173,(void **)(void *)&Lclptr173);} /* CLASS-SLOTS */ |
static object LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
3288 |
static void LnkT172(ptr) object *ptr;{ call_or_link_closure(VV[172],(void **)(void *)&Lnk172,(void **)(void *)&Lclptr172);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */ |
static object LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[172],(void **)(void *)&LnkLI172,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */ |
3289 |
static object LnkTLI171(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[171],(void **)(void *)&LnkLI171,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI171(){return call_proc0(VV[171],(void **)(void *)&LnkLI171);} /* ALLOCATE-FUNCALLABLE-INSTANCE-1 */ |
3290 |
static object LnkTLI170(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[170],(void **)(void *)&LnkLI170,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */ |
static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* MAKE-ARRAY */ |
3291 |
static object LnkTLI169(){return call_proc0(VV[169],(void **)(void *)&LnkLI169);} /* ALLOCATE-FUNCALLABLE-INSTANCE-1 */ |
static object LnkTLI169(){return call_proc0(VV[169],(void **)(void *)&LnkLI169);} /* %%ALLOCATE-INSTANCE--CLASS */ |
|
static void LnkT168(){ call_or_link(VV[168],(void **)(void *)&Lnk168);} /* MAKE-ARRAY */ |
|
|
static object LnkTLI167(){return call_proc0(VV[167],(void **)(void *)&LnkLI167);} /* %%ALLOCATE-INSTANCE--CLASS */ |
|
3292 |
|
|
3293 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3294 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |