10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
11 |
check_arg(0); |
check_arg(0); |
12 |
vs_top=sup; |
vs_top=sup; |
13 |
goto TTL; |
goto TTL; |
14 |
TTL:; |
TTL:; |
15 |
princ_str("first",VV[0]); |
princ_str("first",VV[0]); |
16 |
base[0]= Cnil; |
base[0]= Cnil; |
22 |
static object LI2() |
static object LI2() |
23 |
|
|
24 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
25 |
goto TTL; |
goto TTL; |
26 |
TTL:; |
TTL:; |
27 |
princ_str("va_arg(ap,object)",VV[0]); |
princ_str("va_arg(ap,object)",VV[0]); |
28 |
{object V1 = Cnil; |
{object V1 = Cnil; |
39 |
check_arg(1); |
check_arg(1); |
40 |
V2=(base[0]); |
V2=(base[0]); |
41 |
vs_top=sup; |
vs_top=sup; |
42 |
goto TTL; |
goto TTL; |
43 |
TTL:; |
TTL:; |
44 |
{register object V3; |
{register object V3; |
45 |
V3= Cnil; |
V3= Cnil; |
48 |
base[1]= (*(LnkLI34))((V2)); |
base[1]= (*(LnkLI34))((V2)); |
49 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
50 |
return; |
return; |
51 |
goto T5; |
goto T5; |
52 |
T5:; |
T5:; |
53 |
if(!((symbol_value(VV[1]))==(VV[3]))){ |
if(!((symbol_value(VV[1]))==(VV[3]))){ |
54 |
goto T8;} |
goto T8;} |
60 |
goto T15; |
goto T15; |
61 |
}else V4=V4->c.c_cdr; |
}else V4=V4->c.c_cdr; |
62 |
goto T11;} |
goto T11;} |
63 |
goto T15; |
goto T15; |
64 |
T15:; |
T15:; |
65 |
if((cadr((V2)))==Cnil){ |
if((cadr((V2)))==Cnil){ |
66 |
goto T11;} |
goto T11;} |
75 |
base[1]= Cnil; |
base[1]= Cnil; |
76 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
77 |
return; |
return; |
78 |
goto T11; |
goto T11; |
79 |
T11:; |
T11:; |
80 |
if(!(type_of((V2))==t_cons)){ |
if(!(type_of((V2))==t_cons)){ |
81 |
goto T25;} |
goto T25;} |
87 |
base[1]= Cnil; |
base[1]= Cnil; |
88 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
89 |
return; |
return; |
90 |
goto T25; |
goto T25; |
91 |
T25:; |
T25:; |
92 |
base[1]= Cnil; |
base[1]= Cnil; |
93 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
94 |
return; |
return; |
95 |
goto T8; |
goto T8; |
96 |
T8:; |
T8:; |
97 |
if(!((symbol_value(VV[1]))==(VV[6]))){ |
if(!((symbol_value(VV[1]))==(VV[6]))){ |
98 |
goto T33;} |
goto T33;} |
101 |
base[1]= (*(LnkLI37))((V2)); |
base[1]= (*(LnkLI37))((V2)); |
102 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
103 |
return; |
return; |
104 |
goto T36; |
goto T36; |
105 |
T36:; |
T36:; |
106 |
base[1]= Cnil; |
base[1]= Cnil; |
107 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
108 |
return; |
return; |
109 |
goto T33; |
goto T33; |
110 |
T33:; |
T33:; |
111 |
if(!((symbol_value(VV[1]))==(VV[8]))){ |
if(!((symbol_value(VV[1]))==(VV[8]))){ |
112 |
goto T39;} |
goto T39;} |
114 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
115 |
(void) (*Lnk38)(); |
(void) (*Lnk38)(); |
116 |
return; |
return; |
117 |
goto T39; |
goto T39; |
118 |
T39:; |
T39:; |
119 |
if(!((symbol_value(VV[1]))==(VV[9]))){ |
if(!((symbol_value(VV[1]))==(VV[9]))){ |
120 |
goto T43;} |
goto T43;} |
122 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
123 |
(void) (*Lnk39)(); |
(void) (*Lnk39)(); |
124 |
return; |
return; |
125 |
goto T43; |
goto T43; |
126 |
T43:; |
T43:; |
127 |
if(!((symbol_value(VV[1]))==(VV[10]))){ |
if(!((symbol_value(VV[1]))==(VV[10]))){ |
128 |
goto T47;} |
goto T47;} |
130 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
131 |
(void) (*Lnk40)(); |
(void) (*Lnk40)(); |
132 |
return; |
return; |
133 |
goto T47; |
goto T47; |
134 |
T47:; |
T47:; |
135 |
if(!((symbol_value(VV[1]))==(VV[11]))){ |
if(!((symbol_value(VV[1]))==(VV[11]))){ |
136 |
goto T51;} |
goto T51;} |
138 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
139 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
140 |
return; |
return; |
141 |
goto T51; |
goto T51; |
142 |
T51:; |
T51:; |
143 |
if(!(type_of(symbol_value(VV[1]))==t_cons)){ |
if(!(type_of(symbol_value(VV[1]))==t_cons)){ |
144 |
goto T54;} |
goto T54;} |
145 |
if(type_of(car(symbol_value(VV[1])))==t_symbol){ |
if(type_of(car(symbol_value(VV[1])))==t_symbol){ |
146 |
goto T55;} |
goto T55;} |
147 |
goto T54; |
goto T54; |
148 |
T54:; |
T54:; |
149 |
base[1]= (*(LnkLI42))(); |
base[1]= (*(LnkLI42))(); |
150 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
151 |
return; |
return; |
152 |
goto T55; |
goto T55; |
153 |
T55:; |
T55:; |
154 |
V3= get(car(symbol_value(VV[1])),VV[12],Cnil); |
V3= get(car(symbol_value(VV[1])),VV[12],Cnil); |
155 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
164 |
vs_base=base+2;} |
vs_base=base+2;} |
165 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
166 |
return; |
return; |
167 |
goto T60; |
goto T60; |
168 |
T60:; |
T60:; |
169 |
V3= get(car(symbol_value(VV[1])),VV[13],Cnil); |
V3= get(car(symbol_value(VV[1])),VV[13],Cnil); |
170 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
185 |
base[1]= Cnil; |
base[1]= Cnil; |
186 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
187 |
return; |
return; |
188 |
goto T67; |
goto T67; |
189 |
T67:; |
T67:; |
190 |
base[1]= (*(LnkLI42))(); |
base[1]= (*(LnkLI42))(); |
191 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
202 |
check_arg(1); |
check_arg(1); |
203 |
V7=(base[0]); |
V7=(base[0]); |
204 |
vs_top=sup; |
vs_top=sup; |
205 |
goto TTL; |
goto TTL; |
206 |
TTL:; |
TTL:; |
207 |
if(!(((V7))==(Cnil))){ |
if(!(((V7))==(Cnil))){ |
208 |
goto T78;} |
goto T78;} |
210 |
base[1]= Cnil; |
base[1]= Cnil; |
211 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
212 |
return; |
return; |
213 |
goto T78; |
goto T78; |
214 |
T78:; |
T78:; |
215 |
if(!(((V7))==(Ct))){ |
if(!(((V7))==(Ct))){ |
216 |
goto T82;} |
goto T82;} |
218 |
base[1]= Cnil; |
base[1]= Cnil; |
219 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
220 |
return; |
return; |
221 |
goto T82; |
goto T82; |
222 |
T82:; |
T82:; |
223 |
if(!(((V7))==(VV[7]))){ |
if(!(((V7))==(VV[7]))){ |
224 |
goto T86;} |
goto T86;} |
226 |
base[1]= Cnil; |
base[1]= Cnil; |
227 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
228 |
return; |
return; |
229 |
goto T86; |
goto T86; |
230 |
T86:; |
T86:; |
231 |
if(!(type_of((V7))==t_cons)){ |
if(!(type_of((V7))==t_cons)){ |
232 |
goto T89;} |
goto T89;} |
233 |
if(type_of(car((V7)))==t_symbol){ |
if(type_of(car((V7)))==t_symbol){ |
234 |
goto T90;} |
goto T90;} |
235 |
goto T89; |
goto T89; |
236 |
T89:; |
T89:; |
237 |
base[1]= (*(LnkLI42))(); |
base[1]= (*(LnkLI42))(); |
238 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
239 |
return; |
return; |
240 |
goto T90; |
goto T90; |
241 |
T90:; |
T90:; |
242 |
{object V8; |
{object V8; |
243 |
V8= get(car((V7)),VV[13],Cnil); |
V8= get(car((V7)),VV[13],Cnil); |
244 |
if(((V8))!=Cnil){ |
if(((V8))!=Cnil){ |
245 |
goto T95;} |
goto T95;} |
246 |
(void)((*(LnkLI42))()); |
(void)((*(LnkLI42))()); |
247 |
goto T95; |
goto T95; |
248 |
T95:; |
T95:; |
249 |
base[1]= (V8); |
base[1]= (V8); |
250 |
{object V9; |
{object V9; |
263 |
|
|
264 |
register object V11; |
register object V11; |
265 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
266 |
goto TTL; |
goto TTL; |
267 |
TTL:; |
TTL:; |
268 |
{object V12; |
{object V12; |
269 |
V12= (((V11))==(VV[7])?Ct:Cnil); |
V12= (((V11))==(VV[7])?Ct:Cnil); |
271 |
goto T102;} |
goto T102;} |
272 |
{object V13 = (V12); |
{object V13 = (V12); |
273 |
VMR5(V13)} |
VMR5(V13)} |
274 |
goto T102; |
goto T102; |
275 |
T102:; |
T102:; |
276 |
if(!(type_of((V11))==t_cons)){ |
if(!(type_of((V11))==t_cons)){ |
277 |
goto T105;} |
goto T105;} |
285 |
setq(VV[16],Ct); |
setq(VV[16],Ct); |
286 |
{object V14 = Ct; |
{object V14 = Ct; |
287 |
VMR5(V14)} |
VMR5(V14)} |
288 |
goto T105; |
goto T105; |
289 |
T105:; |
T105:; |
290 |
if(!(type_of((V11))==t_cons)){ |
if(!(type_of((V11))==t_cons)){ |
291 |
goto T117;} |
goto T117;} |
306 |
setq(VV[16],Ct); |
setq(VV[16],Ct); |
307 |
{object V18 = Ct; |
{object V18 = Ct; |
308 |
VMR5(V18)} |
VMR5(V18)} |
309 |
goto T117; |
goto T117; |
310 |
T117:; |
T117:; |
311 |
{object V19 = (*(LnkLI37))((V11)); |
{object V19 = (*(LnkLI37))((V11)); |
312 |
VMR5(V19)}} |
VMR5(V19)}} |
319 |
object V21; |
object V21; |
320 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
321 |
bds_check; |
bds_check; |
322 |
goto TTL; |
goto TTL; |
323 |
TTL:; |
TTL:; |
324 |
bds_bind(VV[19],symbol_value(VV[19])); |
bds_bind(VV[19],symbol_value(VV[19])); |
325 |
princ_str("\n ",VV[0]); |
princ_str("\n ",VV[0]); |
345 |
|
|
346 |
object V26; |
object V26; |
347 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
348 |
goto TTL; |
goto TTL; |
349 |
TTL:; |
TTL:; |
350 |
princ_str("vs_base[",VV[0]); |
princ_str("vs_base[",VV[0]); |
351 |
(void)((*(LnkLI36))((V26))); |
(void)((*(LnkLI36))((V26))); |
360 |
|
|
361 |
object V29; |
object V29; |
362 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
363 |
goto TTL; |
goto TTL; |
364 |
TTL:; |
TTL:; |
365 |
princ_str("(V",VV[0]); |
princ_str("(V",VV[0]); |
366 |
(void)((*(LnkLI36))((V29))); |
(void)((*(LnkLI36))((V29))); |
375 |
|
|
376 |
object V32; |
object V32; |
377 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
378 |
goto TTL; |
goto TTL; |
379 |
TTL:; |
TTL:; |
380 |
princ_str("(V",VV[0]); |
princ_str("(V",VV[0]); |
381 |
(void)((*(LnkLI36))((V32))); |
(void)((*(LnkLI36))((V32))); |
390 |
|
|
391 |
object V35; |
object V35; |
392 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
393 |
goto TTL; |
goto TTL; |
394 |
TTL:; |
TTL:; |
395 |
princ_str("(V",VV[0]); |
princ_str("(V",VV[0]); |
396 |
(void)((*(LnkLI36))((V35))); |
(void)((*(LnkLI36))((V35))); |
416 |
else { |
else { |
417 |
V39= first;} |
V39= first;} |
418 |
--narg; goto T156; |
--narg; goto T156; |
419 |
goto T155; |
goto T155; |
420 |
T155:; |
T155:; |
421 |
V39= Cnil; |
V39= Cnil; |
422 |
goto T156; |
goto T156; |
423 |
T156:; |
T156:; |
424 |
if(((V39))==Cnil){ |
if(((V39))==Cnil){ |
425 |
goto T158;} |
goto T158;} |
427 |
V40= symbol_name((V39)); |
V40= symbol_name((V39)); |
428 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V40)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V40)); |
429 |
princ_str(" */",VV[0]); |
princ_str(" */",VV[0]); |
430 |
goto T158; |
goto T158; |
431 |
T158:; |
T158:; |
432 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
433 |
(void)((*(LnkLI36))((V38))); |
(void)((*(LnkLI36))((V38))); |
442 |
|
|
443 |
object V43; |
object V43; |
444 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
445 |
goto TTL; |
goto TTL; |
446 |
TTL:; |
TTL:; |
447 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
448 |
(void)((*(LnkLI36))((V43))); |
(void)((*(LnkLI36))((V43))); |
461 |
check_arg(1); |
check_arg(1); |
462 |
V45=(base[0]); |
V45=(base[0]); |
463 |
vs_top=sup; |
vs_top=sup; |
464 |
goto TTL; |
goto TTL; |
465 |
TTL:; |
TTL:; |
466 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
467 |
goto T170;} |
goto T170;} |
476 |
base[1]= Cnil; |
base[1]= Cnil; |
477 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
478 |
return; |
return; |
479 |
goto T170; |
goto T170; |
480 |
T170:; |
T170:; |
481 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
482 |
goto T179;} |
goto T179;} |
488 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
489 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
490 |
return; |
return; |
491 |
goto T179; |
goto T179; |
492 |
T179:; |
T179:; |
493 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
494 |
goto T188;} |
goto T188;} |
498 |
base[1]= Cnil; |
base[1]= Cnil; |
499 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
500 |
return; |
return; |
501 |
goto T188; |
goto T188; |
502 |
T188:; |
T188:; |
503 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
504 |
goto T194;} |
goto T194;} |
508 |
goto T197; |
goto T197; |
509 |
}else V48=V48->c.c_cdr; |
}else V48=V48->c.c_cdr; |
510 |
goto T194;} |
goto T194;} |
511 |
goto T197; |
goto T197; |
512 |
T197:; |
T197:; |
513 |
princ_str("((long)(",VV[0]); |
princ_str("((long)(",VV[0]); |
514 |
base[1]= caddr((V45)); |
base[1]= caddr((V45)); |
520 |
base[1]= Cnil; |
base[1]= Cnil; |
521 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
522 |
return; |
return; |
523 |
goto T194; |
goto T194; |
524 |
T194:; |
T194:; |
525 |
princ_str("fix(",VV[0]); |
princ_str("fix(",VV[0]); |
526 |
(void)((*(LnkLI36))((V45))); |
(void)((*(LnkLI36))((V45))); |
546 |
V50=(base[1]); |
V50=(base[1]); |
547 |
vs_top=sup; |
vs_top=sup; |
548 |
goto T208; |
goto T208; |
549 |
goto T207; |
goto T207; |
550 |
T207:; |
T207:; |
551 |
V50= Cnil; |
V50= Cnil; |
552 |
goto T208; |
goto T208; |
553 |
T208:; |
T208:; |
554 |
{object V51; |
{object V51; |
555 |
object V52; |
object V52; |
558 |
goto T212;} |
goto T212;} |
559 |
V52= Cnil; |
V52= Cnil; |
560 |
goto T211; |
goto T211; |
561 |
goto T212; |
goto T212; |
562 |
T212:; |
T212:; |
563 |
V52= car((V49)); |
V52= car((V49)); |
564 |
goto T211; |
goto T211; |
565 |
T211:; |
T211:; |
566 |
{object V53= (V52); |
{object V53= (V52); |
567 |
if((V53!= VV[21]))goto T215; |
if((V53!= VV[21]))goto T215; |
573 |
vs_top=sup; |
vs_top=sup; |
574 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
575 |
goto T214; |
goto T214; |
576 |
goto T215; |
goto T215; |
577 |
T215:; |
T215:; |
578 |
if((V53!= VV[46]))goto T222; |
if((V53!= VV[46]))goto T222; |
579 |
V51= Cnil; |
V51= Cnil; |
583 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
584 |
vs_top=sup; |
vs_top=sup; |
585 |
goto T214; |
goto T214; |
586 |
goto T222; |
goto T222; |
587 |
T222:; |
T222:; |
588 |
if((V53!= VV[22]))goto T227; |
if((V53!= VV[22]))goto T227; |
589 |
princ_str("stoi(",VV[0]); |
princ_str("stoi(",VV[0]); |
590 |
(void)((*(LnkLI36))(caddr((V49)))); |
(void)((*(LnkLI36))(caddr((V49)))); |
591 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
592 |
goto T214; |
goto T214; |
593 |
goto T227; |
goto T227; |
594 |
T227:; |
T227:; |
595 |
if((V53!= VV[17]))goto T231; |
if((V53!= VV[17]))goto T231; |
596 |
V55= structure_ref(cadr((V49)),VV[17],1); |
V55= structure_ref(cadr((V49)),VV[17],1); |
601 |
V56= structure_ref(cadr((V49)),VV[17],4); |
V56= structure_ref(cadr((V49)),VV[17],4); |
602 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V56)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V56)); |
603 |
goto T214; |
goto T214; |
604 |
goto T232; |
goto T232; |
605 |
T232:; |
T232:; |
606 |
if((V54!= VV[20]))goto T237; |
if((V54!= VV[20]))goto T237; |
607 |
princ_str("stoi(V",VV[0]); |
princ_str("stoi(V",VV[0]); |
609 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V57)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V57)); |
610 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
611 |
goto T214; |
goto T214; |
612 |
goto T237; |
goto T237; |
613 |
T237:; |
T237:; |
614 |
princ_str("otoi(",VV[0]); |
princ_str("otoi(",VV[0]); |
615 |
(void)((*(LnkLI36))((V49))); |
(void)((*(LnkLI36))((V49))); |
616 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
617 |
goto T214;} |
goto T214;} |
618 |
goto T231; |
goto T231; |
619 |
T231:; |
T231:; |
620 |
princ_str("otoi(",VV[0]); |
princ_str("otoi(",VV[0]); |
621 |
(void)((*(LnkLI36))((V49))); |
(void)((*(LnkLI36))((V49))); |
622 |
princ_char(41,VV[0]);} |
princ_char(41,VV[0]);} |
623 |
goto T214; |
goto T214; |
624 |
T214:; |
T214:; |
625 |
if((V51)==Cnil){ |
if((V51)==Cnil){ |
626 |
base[3]= Cnil; |
base[3]= Cnil; |
631 |
base[3]= Cnil; |
base[3]= Cnil; |
632 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
633 |
return; |
return; |
634 |
goto T247; |
goto T247; |
635 |
T247:; |
T247:; |
636 |
base[3]= (*(LnkLI48))(); |
base[3]= (*(LnkLI48))(); |
637 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
644 |
|
|
645 |
register object V59; |
register object V59; |
646 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
647 |
goto TTL; |
goto TTL; |
648 |
TTL:; |
TTL:; |
649 |
if(type_of((V59))==t_cons){ |
if(type_of((V59))==t_cons){ |
650 |
goto T249;} |
goto T249;} |
651 |
{object V60 = Cnil; |
{object V60 = Cnil; |
652 |
VMR15(V60)} |
VMR15(V60)} |
653 |
goto T249; |
goto T249; |
654 |
T249:;{object V61; |
T249:;{object V61; |
655 |
if((car((V59)))==(VV[17])){ |
if((car((V59)))==(VV[17])){ |
656 |
goto T253;} |
goto T253;} |
657 |
V61= Cnil; |
V61= Cnil; |
658 |
goto T252; |
goto T252; |
659 |
goto T253; |
goto T253; |
660 |
T253:; |
T253:; |
661 |
V62= structure_ref(cadr((V59)),VV[17],1); |
V62= structure_ref(cadr((V59)),VV[17],1); |
662 |
V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil); |
V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil); |
663 |
goto T252; |
goto T252; |
664 |
T252:; |
T252:; |
665 |
if(V61==Cnil)goto T251; |
if(V61==Cnil)goto T251; |
666 |
{object V63 = V61; |
{object V63 = V61; |
667 |
VMR15(V63)} |
VMR15(V63)} |
668 |
goto T251; |
goto T251; |
669 |
T251:;} |
T251:;} |
670 |
if(!((car((V59)))==(VV[21]))){ |
if(!((car((V59)))==(VV[21]))){ |
671 |
goto T255;} |
goto T255;} |
672 |
{object V64 = Ct; |
{object V64 = Ct; |
673 |
VMR15(V64)} |
VMR15(V64)} |
674 |
goto T255; |
goto T255; |
675 |
T255:; |
T255:; |
676 |
{object V65 = ((car((V59)))==(VV[22])?Ct:Cnil); |
{object V65 = ((car((V59)))==(VV[22])?Ct:Cnil); |
677 |
VMR15(V65)} |
VMR15(V65)} |
683 |
|
|
684 |
object V68;object V69; |
object V68;object V69; |
685 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
686 |
goto TTL; |
goto TTL; |
687 |
TTL:; |
TTL:; |
688 |
if(((V68))==Cnil){ |
if(((V68))==Cnil){ |
689 |
goto T258;} |
goto T258;} |
692 |
princ_char(93,VV[0]); |
princ_char(93,VV[0]); |
693 |
{object V70 = Cnil; |
{object V70 = Cnil; |
694 |
VMR16(V70)} |
VMR16(V70)} |
695 |
goto T258; |
goto T258; |
696 |
T258:; |
T258:; |
697 |
princ_str("small_fixnum(",VV[0]); |
princ_str("small_fixnum(",VV[0]); |
698 |
(void)((*(LnkLI36))((V69))); |
(void)((*(LnkLI36))((V69))); |
711 |
check_arg(1); |
check_arg(1); |
712 |
V72=(base[0]); |
V72=(base[0]); |
713 |
vs_top=sup; |
vs_top=sup; |
714 |
goto TTL; |
goto TTL; |
715 |
TTL:; |
TTL:; |
716 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
717 |
goto T267;} |
goto T267;} |
726 |
base[1]= Cnil; |
base[1]= Cnil; |
727 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
728 |
return; |
return; |
729 |
goto T267; |
goto T267; |
730 |
T267:; |
T267:; |
731 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
732 |
goto T276;} |
goto T276;} |
737 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
738 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
739 |
return; |
return; |
740 |
goto T276; |
goto T276; |
741 |
T276:; |
T276:; |
742 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
743 |
goto T283;} |
goto T283;} |
747 |
base[1]= Cnil; |
base[1]= Cnil; |
748 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
749 |
return; |
return; |
750 |
goto T283; |
goto T283; |
751 |
T283:; |
T283:; |
752 |
princ_str("char_code(",VV[0]); |
princ_str("char_code(",VV[0]); |
753 |
(void)((*(LnkLI36))((V72))); |
(void)((*(LnkLI36))((V72))); |
763 |
|
|
764 |
register object V76; |
register object V76; |
765 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
766 |
goto TTL; |
goto TTL; |
767 |
TTL:; |
TTL:; |
768 |
if(type_of((V76))==t_cons){ |
if(type_of((V76))==t_cons){ |
769 |
goto T291;} |
goto T291;} |
770 |
{object V77 = Cnil; |
{object V77 = Cnil; |
771 |
VMR18(V77)} |
VMR18(V77)} |
772 |
goto T291; |
goto T291; |
773 |
T291:;{object V78; |
T291:;{object V78; |
774 |
if((car((V76)))==(VV[17])){ |
if((car((V76)))==(VV[17])){ |
775 |
goto T295;} |
goto T295;} |
776 |
V78= Cnil; |
V78= Cnil; |
777 |
goto T294; |
goto T294; |
778 |
goto T295; |
goto T295; |
779 |
T295:; |
T295:; |
780 |
V79= structure_ref(cadr((V76)),VV[17],1); |
V79= structure_ref(cadr((V76)),VV[17],1); |
781 |
V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil); |
V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil); |
782 |
goto T294; |
goto T294; |
783 |
T294:; |
T294:; |
784 |
if(V78==Cnil)goto T293; |
if(V78==Cnil)goto T293; |
785 |
{object V80 = V78; |
{object V80 = V78; |
786 |
VMR18(V80)} |
VMR18(V80)} |
787 |
goto T293; |
goto T293; |
788 |
T293:;} |
T293:;} |
789 |
if(!((car((V76)))==(VV[26]))){ |
if(!((car((V76)))==(VV[26]))){ |
790 |
goto T297;} |
goto T297;} |
791 |
{object V81 = Ct; |
{object V81 = Ct; |
792 |
VMR18(V81)} |
VMR18(V81)} |
793 |
goto T297; |
goto T297; |
794 |
T297:; |
T297:; |
795 |
{object V82 = ((car((V76)))==(VV[27])?Ct:Cnil); |
{object V82 = ((car((V76)))==(VV[27])?Ct:Cnil); |
796 |
VMR18(V82)} |
VMR18(V82)} |
802 |
|
|
803 |
object V85;object V86; |
object V85;object V86; |
804 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
805 |
goto TTL; |
goto TTL; |
806 |
TTL:; |
TTL:; |
807 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
808 |
(void)((*(LnkLI36))((V85))); |
(void)((*(LnkLI36))((V85))); |
821 |
check_arg(1); |
check_arg(1); |
822 |
V88=(base[0]); |
V88=(base[0]); |
823 |
vs_top=sup; |
vs_top=sup; |
824 |
goto TTL; |
goto TTL; |
825 |
TTL:; |
TTL:; |
826 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
827 |
goto T303;} |
goto T303;} |
836 |
base[1]= Cnil; |
base[1]= Cnil; |
837 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
838 |
return; |
return; |
839 |
goto T303; |
goto T303; |
840 |
T303:; |
T303:; |
841 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
842 |
goto T312;} |
goto T312;} |
847 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
848 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
849 |
return; |
return; |
850 |
goto T312; |
goto T312; |
851 |
T312:; |
T312:; |
852 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
853 |
goto T319;} |
goto T319;} |
857 |
base[1]= Cnil; |
base[1]= Cnil; |
858 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
859 |
return; |
return; |
860 |
goto T319; |
goto T319; |
861 |
T319:; |
T319:; |
862 |
princ_str("lf(",VV[0]); |
princ_str("lf(",VV[0]); |
863 |
(void)((*(LnkLI36))((V88))); |
(void)((*(LnkLI36))((V88))); |
873 |
|
|
874 |
register object V92; |
register object V92; |
875 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
876 |
goto TTL; |
goto TTL; |
877 |
TTL:; |
TTL:; |
878 |
if(type_of((V92))==t_cons){ |
if(type_of((V92))==t_cons){ |
879 |
goto T327;} |
goto T327;} |
880 |
{object V93 = Cnil; |
{object V93 = Cnil; |
881 |
VMR21(V93)} |
VMR21(V93)} |
882 |
goto T327; |
goto T327; |
883 |
T327:;{object V94; |
T327:;{object V94; |
884 |
if((car((V92)))==(VV[17])){ |
if((car((V92)))==(VV[17])){ |
885 |
goto T331;} |
goto T331;} |
886 |
V94= Cnil; |
V94= Cnil; |
887 |
goto T330; |
goto T330; |
888 |
goto T331; |
goto T331; |
889 |
T331:; |
T331:; |
890 |
V95= structure_ref(cadr((V92)),VV[17],1); |
V95= structure_ref(cadr((V92)),VV[17],1); |
891 |
V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil); |
V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil); |
892 |
goto T330; |
goto T330; |
893 |
T330:; |
T330:; |
894 |
if(V94==Cnil)goto T329; |
if(V94==Cnil)goto T329; |
895 |
{object V96 = V94; |
{object V96 = V94; |
896 |
VMR21(V96)} |
VMR21(V96)} |
897 |
goto T329; |
goto T329; |
898 |
T329:;} |
T329:;} |
899 |
if(!((car((V92)))==(VV[29]))){ |
if(!((car((V92)))==(VV[29]))){ |
900 |
goto T333;} |
goto T333;} |
901 |
{object V97 = Ct; |
{object V97 = Ct; |
902 |
VMR21(V97)} |
VMR21(V97)} |
903 |
goto T333; |
goto T333; |
904 |
T333:; |
T333:; |
905 |
{object V98 = ((car((V92)))==(VV[30])?Ct:Cnil); |
{object V98 = ((car((V92)))==(VV[30])?Ct:Cnil); |
906 |
VMR21(V98)} |
VMR21(V98)} |
912 |
|
|
913 |
object V101;object V102; |
object V101;object V102; |
914 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
915 |
goto TTL; |
goto TTL; |
916 |
TTL:; |
TTL:; |
917 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
918 |
(void)((*(LnkLI36))((V101))); |
(void)((*(LnkLI36))((V101))); |
931 |
check_arg(1); |
check_arg(1); |
932 |
V104=(base[0]); |
V104=(base[0]); |
933 |
vs_top=sup; |
vs_top=sup; |
934 |
goto TTL; |
goto TTL; |
935 |
TTL:; |
TTL:; |
936 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
937 |
goto T339;} |
goto T339;} |
946 |
base[1]= Cnil; |
base[1]= Cnil; |
947 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
948 |
return; |
return; |
949 |
goto T339; |
goto T339; |
950 |
T339:; |
T339:; |
951 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
952 |
goto T348;} |
goto T348;} |
957 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
958 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
959 |
return; |
return; |
960 |
goto T348; |
goto T348; |
961 |
T348:; |
T348:; |
962 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
963 |
goto T355;} |
goto T355;} |
967 |
base[1]= Cnil; |
base[1]= Cnil; |
968 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
969 |
return; |
return; |
970 |
goto T355; |
goto T355; |
971 |
T355:; |
T355:; |
972 |
princ_str("sf(",VV[0]); |
princ_str("sf(",VV[0]); |
973 |
(void)((*(LnkLI36))((V104))); |
(void)((*(LnkLI36))((V104))); |
983 |
|
|
984 |
register object V108; |
register object V108; |
985 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
986 |
goto TTL; |
goto TTL; |
987 |
TTL:; |
TTL:; |
988 |
if(type_of((V108))==t_cons){ |
if(type_of((V108))==t_cons){ |
989 |
goto T363;} |
goto T363;} |
990 |
{object V109 = Cnil; |
{object V109 = Cnil; |
991 |
VMR24(V109)} |
VMR24(V109)} |
992 |
goto T363; |
goto T363; |
993 |
T363:;{object V110; |
T363:;{object V110; |
994 |
if((car((V108)))==(VV[17])){ |
if((car((V108)))==(VV[17])){ |
995 |
goto T367;} |
goto T367;} |
996 |
V110= Cnil; |
V110= Cnil; |
997 |
goto T366; |
goto T366; |
998 |
goto T367; |
goto T367; |
999 |
T367:; |
T367:; |
1000 |
V111= structure_ref(cadr((V108)),VV[17],1); |
V111= structure_ref(cadr((V108)),VV[17],1); |
1001 |
V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil); |
V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil); |
1002 |
goto T366; |
goto T366; |
1003 |
T366:; |
T366:; |
1004 |
if(V110==Cnil)goto T365; |
if(V110==Cnil)goto T365; |
1005 |
{object V112 = V110; |
{object V112 = V110; |
1006 |
VMR24(V112)} |
VMR24(V112)} |
1007 |
goto T365; |
goto T365; |
1008 |
T365:;} |
T365:;} |
1009 |
if(!((car((V108)))==(VV[32]))){ |
if(!((car((V108)))==(VV[32]))){ |
1010 |
goto T369;} |
goto T369;} |
1011 |
{object V113 = Ct; |
{object V113 = Ct; |
1012 |
VMR24(V113)} |
VMR24(V113)} |
1013 |
goto T369; |
goto T369; |
1014 |
T369:; |
T369:; |
1015 |
{object V114 = ((car((V108)))==(VV[33])?Ct:Cnil); |
{object V114 = ((car((V108)))==(VV[33])?Ct:Cnil); |
1016 |
VMR24(V114)} |
VMR24(V114)} |
1022 |
|
|
1023 |
object V117;object V118; |
object V117;object V118; |
1024 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1025 |
goto TTL; |
goto TTL; |
1026 |
TTL:; |
TTL:; |
1027 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
1028 |
(void)((*(LnkLI36))((V117))); |
(void)((*(LnkLI36))((V117))); |