1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmptag.h" |
#include "cmptag.h" |
4 |
init_cmptag(){do_init(VV);} |
void init_cmptag(){do_init(VV);} |
5 |
/* local entry for function MAKE-TAG */ |
/* local entry for function MAKE-TAG */ |
6 |
|
|
7 |
static object LI1(va_alist) |
static object LI1(va_alist) |
17 |
object V6; |
object V6; |
18 |
object V7; |
object V7; |
19 |
object V8; |
object V8; |
20 |
narg= narg - 0; |
Vcs[0]=Vcs[0]; |
21 |
va_start(ap); |
va_start(ap); |
22 |
|
narg= narg - 0; |
23 |
{ |
{ |
24 |
parse_key_new(narg,Vcs +0,&LI1key,ap); |
parse_key_new(narg,Vcs +0,(struct key *)&LI1key,ap); |
25 |
V1=(Vcs[0]); |
V1=(Vcs[0]); |
26 |
V2=(Vcs[1]); |
V2=(Vcs[1]); |
27 |
V3=(Vcs[2]); |
V3=(Vcs[2]); |
43 |
siLmake_structure(); |
siLmake_structure(); |
44 |
vs_top=sup; |
vs_top=sup; |
45 |
{object V9 = vs_base[0]; |
{object V9 = vs_base[0]; |
46 |
VMR1(V9)}} |
VMR1(V9)} |
47 |
|
va_end(ap); |
48 |
|
base[0]=base[0]; |
49 |
|
return Cnil;} |
50 |
}} |
}} |
51 |
/* local entry for function JUMPS-TO-P */ |
/* local entry for function JUMPS-TO-P */ |
52 |
|
|
54 |
|
|
55 |
register object V12;object V13; |
register object V12;object V13; |
56 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
57 |
|
goto TTL; |
58 |
TTL:; |
TTL:; |
59 |
{object V14; |
{object V14; |
60 |
V14= Cnil; |
V14= Cnil; |
62 |
goto T12;} |
goto T12;} |
63 |
{object V15 = Cnil; |
{object V15 = Cnil; |
64 |
VMR2(V15)} |
VMR2(V15)} |
65 |
|
goto T12; |
66 |
T12:; |
T12:; |
67 |
{object V16; |
{object V16; |
68 |
if((car((V12)))==(VV[1])){ |
if((car((V12)))==(VV[1])){ |
69 |
goto T15;} |
goto T15;} |
70 |
V16= Cnil; |
V16= Cnil; |
71 |
goto T14; |
goto T14; |
72 |
|
goto T15; |
73 |
T15:; |
T15:; |
74 |
V14= cadddr(cdr((V12))); |
V14= cadddr(cdr((V12))); |
75 |
base[0]= (V14); |
base[0]= (V14); |
81 |
goto T17;} |
goto T17;} |
82 |
V16= Cnil; |
V16= Cnil; |
83 |
goto T14; |
goto T14; |
84 |
|
goto T17; |
85 |
T17:; |
T17:; |
86 |
V17= structure_ref((V14),VV[0],0); |
V17= structure_ref((V14),VV[0],0); |
87 |
V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil); |
V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil); |
88 |
|
goto T14; |
89 |
T14:; |
T14:; |
90 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
91 |
goto T23;} |
goto T23;} |
92 |
{object V18 = (V16); |
{object V18 = (V16); |
93 |
VMR2(V18)} |
VMR2(V18)} |
94 |
|
goto T23; |
95 |
T23:;{object V19; |
T23:;{object V19; |
96 |
V19= (*(LnkLI46))(car((V12)),(V13)); |
V19= (*(LnkLI46))(car((V12)),(V13)); |
97 |
if(V19==Cnil)goto T25; |
if(V19==Cnil)goto T25; |
98 |
{object V20 = V19; |
{object V20 = V19; |
99 |
VMR2(V20)} |
VMR2(V20)} |
100 |
|
goto T25; |
101 |
T25:;} |
T25:;} |
102 |
V12= cdr((V12)); |
V12= cdr((V12)); |
103 |
goto TTL;}} |
goto TTL;}} |
104 |
|
base[0]=base[0]; |
105 |
|
return Cnil; |
106 |
} |
} |
107 |
/* local entry for function ADD-REG1 */ |
/* local entry for function ADD-REG1 */ |
108 |
|
|
110 |
|
|
111 |
register object V22; |
register object V22; |
112 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
113 |
|
goto TTL; |
114 |
TTL:; |
TTL:; |
115 |
if(!(type_of((V22))!=t_cons)){ |
if(!(type_of((V22))!=t_cons)){ |
116 |
goto T31;} |
goto T31;} |
125 |
V24 = make_fixnum((/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3])))); |
V24 = make_fixnum((/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3])))); |
126 |
{object V25 = structure_set((V22),VV[2],6,V24); |
{object V25 = structure_set((V22),VV[2],6,V24); |
127 |
VMR3(V25)}} |
VMR3(V25)}} |
128 |
|
goto T34; |
129 |
T34:; |
T34:; |
130 |
{object V26 = Cnil; |
{object V26 = Cnil; |
131 |
VMR3(V26)} |
VMR3(V26)} |
132 |
|
goto T31; |
133 |
T31:; |
T31:; |
134 |
(void)((*(LnkLI47))(car((V22)))); |
(void)((*(LnkLI47))(car((V22)))); |
135 |
V22= cdr((V22)); |
V22= cdr((V22)); |
136 |
goto TTL; |
goto TTL; |
137 |
|
base[0]=base[0]; |
138 |
|
return Cnil; |
139 |
} |
} |
140 |
/* local entry for function ADD-LOOP-REGISTERS */ |
/* local entry for function ADD-LOOP-REGISTERS */ |
141 |
|
|
143 |
|
|
144 |
object V28; |
object V28; |
145 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
146 |
|
goto TTL; |
147 |
TTL:; |
TTL:; |
148 |
{register object V29; |
{register object V29; |
149 |
register object V30; |
register object V30; |
151 |
V29= (V28); |
V29= (V28); |
152 |
V30= Cnil; |
V30= Cnil; |
153 |
V31= Cnil; |
V31= Cnil; |
154 |
|
goto T42; |
155 |
T42:; |
T42:; |
156 |
if(((V29))!=Cnil){ |
if(((V29))!=Cnil){ |
157 |
goto T43;} |
goto T43;} |
158 |
{register object V32; |
{register object V32; |
159 |
V32= (V31); |
V32= (V31); |
160 |
|
goto T47; |
161 |
T47:; |
T47:; |
162 |
if(!(((V32))==((V30)))){ |
if(!(((V32))==((V30)))){ |
163 |
goto T48;} |
goto T48;} |
164 |
{object V33 = (*(LnkLI47))(car((V32))); |
{object V33 = (*(LnkLI47))(car((V32))); |
165 |
VMR4(V33)} |
VMR4(V33)} |
166 |
|
goto T48; |
167 |
T48:; |
T48:; |
168 |
(void)((*(LnkLI47))(car((V32)))); |
(void)((*(LnkLI47))(car((V32)))); |
169 |
V32= cdr((V32)); |
V32= cdr((V32)); |
170 |
goto T47;} |
goto T47;} |
171 |
|
goto T43; |
172 |
T43:; |
T43:; |
173 |
base[0]= car((V29)); |
base[0]= car((V29)); |
174 |
base[1]= VV[0]; |
base[1]= VV[0]; |
180 |
if((V31)!=Cnil){ |
if((V31)!=Cnil){ |
181 |
goto T62;} |
goto T62;} |
182 |
V31= (V29); |
V31= (V29); |
183 |
|
goto T62; |
184 |
T62:; |
T62:; |
185 |
{register object V34; |
{register object V34; |
186 |
register object V35; |
register object V35; |
187 |
V34= cdr((V29)); |
V34= cdr((V29)); |
188 |
V35= structure_ref(car((V29)),VV[0],0); |
V35= structure_ref(car((V29)),VV[0],0); |
189 |
|
goto T67; |
190 |
T67:; |
T67:; |
191 |
if(((V34))!=Cnil){ |
if(((V34))!=Cnil){ |
192 |
goto T68;} |
goto T68;} |
193 |
goto T57; |
goto T57; |
194 |
|
goto T68; |
195 |
T68:; |
T68:; |
196 |
if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){ |
if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){ |
197 |
goto T72;} |
goto T72;} |
198 |
V30= (V34); |
V30= (V34); |
199 |
|
goto T72; |
200 |
T72:; |
T72:; |
201 |
V34= cdr((V34)); |
V34= cdr((V34)); |
202 |
goto T67;} |
goto T67;} |
203 |
|
goto T57; |
204 |
T57:; |
T57:; |
205 |
V29= cdr((V29)); |
V29= cdr((V29)); |
206 |
goto T42;} |
goto T42;} |
207 |
|
base[0]=base[0]; |
208 |
|
return Cnil; |
209 |
} |
} |
210 |
/* local entry for function C1TAGBODY */ |
/* local entry for function C1TAGBODY */ |
211 |
|
|
214 |
object V37; |
object V37; |
215 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
216 |
bds_check; |
bds_check; |
217 |
|
goto TTL; |
218 |
TTL:; |
TTL:; |
219 |
{register object V38; |
{register object V38; |
220 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
225 |
V37= Cnil; |
V37= Cnil; |
226 |
goto T84;} |
goto T84;} |
227 |
base[2]=V39=MMcons(Cnil,Cnil); |
base[2]=V39=MMcons(Cnil,Cnil); |
228 |
|
goto T85; |
229 |
T85:; |
T85:; |
230 |
if(type_of((V40->c.c_car))==t_symbol){ |
if(type_of((V40->c.c_car))==t_symbol){ |
231 |
goto T87;} |
goto T87;} |
232 |
if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){ |
if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){ |
233 |
goto T88;} |
goto T88;} |
234 |
|
goto T87; |
235 |
T87:; |
T87:; |
236 |
{object V42; |
{object V42; |
237 |
V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
238 |
(VV[4]->s.s_dbind)= make_cons((V42),(VV[4]->s.s_dbind)); |
(VV[4]->s.s_dbind)= make_cons((V42),(VV[4]->s.s_dbind)); |
239 |
(V39->c.c_car)= (V42); |
(V39->c.c_car)= (V42); |
240 |
goto T86;} |
goto T86;} |
241 |
|
goto T88; |
242 |
T88:; |
T88:; |
243 |
(V39->c.c_car)= (V40->c.c_car); |
(V39->c.c_car)= (V40->c.c_car); |
244 |
|
goto T86; |
245 |
T86:; |
T86:; |
246 |
if(endp(V40=MMcdr(V40))){ |
if(endp(V40=MMcdr(V40))){ |
247 |
V37= base[2]; |
V37= base[2]; |
248 |
goto T84;} |
goto T84;} |
249 |
V39=MMcdr(V39)=MMcons(Cnil,Cnil); |
V39=MMcdr(V39)=MMcons(Cnil,Cnil); |
250 |
goto T85;} |
goto T85;} |
251 |
|
goto T84; |
252 |
T84:; |
T84:; |
253 |
{object V43; |
{object V43; |
254 |
object V44= (V37); |
object V44= (V37); |
256 |
V37= Cnil; |
V37= Cnil; |
257 |
goto T96;} |
goto T96;} |
258 |
base[2]=V43=MMcons(Cnil,Cnil); |
base[2]=V43=MMcons(Cnil,Cnil); |
259 |
|
goto T97; |
260 |
T97:; |
T97:; |
261 |
base[3]= (V44->c.c_car); |
base[3]= (V44->c.c_car); |
262 |
base[4]= VV[0]; |
base[4]= VV[0]; |
267 |
goto T100;} |
goto T100;} |
268 |
(V43->c.c_car)= (V44->c.c_car); |
(V43->c.c_car)= (V44->c.c_car); |
269 |
goto T98; |
goto T98; |
270 |
|
goto T100; |
271 |
T100:; |
T100:; |
272 |
(V43->c.c_car)= (*(LnkLI50))((V44->c.c_car),(V38)); |
(V43->c.c_car)= (*(LnkLI50))((V44->c.c_car),(V38)); |
273 |
|
goto T98; |
274 |
T98:; |
T98:; |
275 |
if(endp(V44=MMcdr(V44))){ |
if(endp(V44=MMcdr(V44))){ |
276 |
V37= base[2]; |
V37= base[2]; |
277 |
goto T96;} |
goto T96;} |
278 |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
279 |
goto T97;} |
goto T97;} |
280 |
|
goto T96; |
281 |
T96:; |
T96:; |
282 |
{register object V46; |
{register object V46; |
283 |
register object V47; |
register object V47; |
289 |
V48= Cnil; |
V48= Cnil; |
290 |
V49= Cnil; |
V49= Cnil; |
291 |
V50= Cnil; |
V50= Cnil; |
292 |
|
goto T105; |
293 |
T105:; |
T105:; |
294 |
if(!(endp((V46)))){ |
if(!(endp((V46)))){ |
295 |
goto T106;} |
goto T106;} |
299 |
goto T109;} |
goto T109;} |
300 |
if(((V48))==Cnil){ |
if(((V48))==Cnil){ |
301 |
goto T110;} |
goto T110;} |
302 |
|
goto T109; |
303 |
T109:; |
T109:; |
304 |
V47= reverse((V47)); |
V47= reverse((V47)); |
305 |
if(((V49))!=Cnil){ |
if(((V49))!=Cnil){ |
306 |
goto T119;} |
goto T119;} |
307 |
if(((V50))==Cnil){ |
if(((V50))==Cnil){ |
308 |
goto T120;} |
goto T120;} |
309 |
|
goto T119; |
310 |
T119:; |
T119:; |
311 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
312 |
goto T118; |
goto T118; |
313 |
|
goto T120; |
314 |
T120:; |
T120:; |
315 |
(void)((*(LnkLI51))((V47))); |
(void)((*(LnkLI51))((V47))); |
316 |
|
goto T118; |
317 |
T118:; |
T118:; |
318 |
{object V51 = list(5,VV[10],(V38),(V49),(V50),(V47)); |
{object V51 = list(5,VV[10],(V38),(V49),(V50),(V47)); |
319 |
bds_unwind1; |
bds_unwind1; |
320 |
VMR5(V51)} |
VMR5(V51)} |
321 |
|
goto T110; |
322 |
T110:; |
T110:; |
323 |
V52= (*(LnkLI52))(); |
V52= (*(LnkLI52))(); |
324 |
V53= make_cons(/* INLINE-ARGS */V52,(V47)); |
V53= make_cons(/* INLINE-ARGS */V52,(V47)); |
325 |
{object V54 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V53)); |
{object V54 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V53)); |
326 |
bds_unwind1; |
bds_unwind1; |
327 |
VMR5(V54)} |
VMR5(V54)} |
328 |
|
goto T106; |
329 |
T106:; |
T106:; |
330 |
base[2]= car((V46)); |
base[2]= car((V46)); |
331 |
base[3]= VV[0]; |
base[3]= VV[0]; |
343 |
(void)(structure_set(/* INLINE-ARGS */V55,VV[0],6,/* INLINE-ARGS */V57)); |
(void)(structure_set(/* INLINE-ARGS */V55,VV[0],6,/* INLINE-ARGS */V57)); |
344 |
V50= Ct; |
V50= Ct; |
345 |
goto T126; |
goto T126; |
346 |
|
goto T133; |
347 |
T133:; |
T133:; |
348 |
if((structure_ref(car((V46)),VV[0],2))==Cnil){ |
if((structure_ref(car((V46)),VV[0],2))==Cnil){ |
349 |
goto T140;} |
goto T140;} |
354 |
(void)(structure_set(/* INLINE-ARGS */V58,VV[0],6,/* INLINE-ARGS */V60)); |
(void)(structure_set(/* INLINE-ARGS */V58,VV[0],6,/* INLINE-ARGS */V60)); |
355 |
V49= Ct; |
V49= Ct; |
356 |
goto T126; |
goto T126; |
357 |
|
goto T140; |
358 |
T140:; |
T140:; |
359 |
if((structure_ref(car((V46)),VV[0],1))==Cnil){ |
if((structure_ref(car((V46)),VV[0],1))==Cnil){ |
360 |
goto T126;} |
goto T126;} |
361 |
V47= make_cons(car((V46)),(V47)); |
V47= make_cons(car((V46)),(V47)); |
362 |
V48= Ct; |
V48= Ct; |
363 |
goto T126; |
goto T126; |
364 |
|
goto T128; |
365 |
T128:; |
T128:; |
366 |
V47= make_cons(car((V46)),(V47)); |
V47= make_cons(car((V46)),(V47)); |
367 |
|
goto T126; |
368 |
T126:; |
T126:; |
369 |
V46= cdr((V46)); |
V46= cdr((V46)); |
370 |
goto T105;}} |
goto T105;}} |
371 |
|
base[0]=base[0]; |
372 |
|
return Cnil; |
373 |
} |
} |
374 |
/* local entry for function C2TAGBODY */ |
/* local entry for function C2TAGBODY */ |
375 |
|
|
377 |
|
|
378 |
object V64;object V65;object V66; |
object V64;object V65;object V66; |
379 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
380 |
|
goto TTL; |
381 |
TTL:; |
TTL:; |
382 |
if(((V65))==Cnil){ |
if(((V65))==Cnil){ |
383 |
goto T156;} |
goto T156;} |
384 |
{object V67 = (*(LnkLI54))((V66)); |
{object V67 = (*(LnkLI54))((V66)); |
385 |
VMR6(V67)} |
VMR6(V67)} |
386 |
|
goto T156; |
387 |
T156:; |
T156:; |
388 |
if(((V64))==Cnil){ |
if(((V64))==Cnil){ |
389 |
goto T159;} |
goto T159;} |
390 |
{object V68 = (*(LnkLI55))((V66)); |
{object V68 = (*(LnkLI55))((V66)); |
391 |
VMR6(V68)} |
VMR6(V68)} |
392 |
|
goto T159; |
393 |
T159:; |
T159:; |
394 |
{object V69 = (*(LnkLI56))((V66)); |
{object V69 = (*(LnkLI56))((V66)); |
395 |
VMR6(V69)} |
VMR6(V69)} |
396 |
|
return Cnil; |
397 |
} |
} |
398 |
/* local entry for function C2TAGBODY-LOCAL */ |
/* local entry for function C2TAGBODY-LOCAL */ |
399 |
|
|
402 |
object V71; |
object V71; |
403 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
404 |
bds_check; |
bds_check; |
405 |
|
goto TTL; |
406 |
TTL:; |
TTL:; |
407 |
{register object V72; |
{register object V72; |
408 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
411 |
register object V74; |
register object V74; |
412 |
V73= (V71); |
V73= (V71); |
413 |
V74= car((V73)); |
V74= car((V73)); |
414 |
|
goto T167; |
415 |
T167:; |
T167:; |
416 |
if(!(endp((V73)))){ |
if(!(endp((V73)))){ |
417 |
goto T168;} |
goto T168;} |
418 |
goto T163; |
goto T163; |
419 |
|
goto T168; |
420 |
T168:; |
T168:; |
421 |
base[2]= (V74); |
base[2]= (V74); |
422 |
base[3]= VV[0]; |
base[3]= VV[0]; |
429 |
V75= make_cons(symbol_value(VV[12]),Ct); |
V75= make_cons(symbol_value(VV[12]),Ct); |
430 |
(void)(structure_set((V74),VV[0],4,/* INLINE-ARGS */V75)); |
(void)(structure_set((V74),VV[0],4,/* INLINE-ARGS */V75)); |
431 |
(void)(structure_set((V74),VV[0],5,(V72))); |
(void)(structure_set((V74),VV[0],5,(V72))); |
432 |
|
goto T172; |
433 |
T172:; |
T172:; |
434 |
V73= cdr((V73)); |
V73= cdr((V73)); |
435 |
V74= car((V73)); |
V74= car((V73)); |
436 |
goto T167;} |
goto T167;} |
437 |
|
goto T163; |
438 |
T163:; |
T163:; |
439 |
base[1]= make_cons((V72),symbol_value(VV[13])); |
base[1]= make_cons((V72),symbol_value(VV[13])); |
440 |
bds_bind(VV[13],base[1]); |
bds_bind(VV[13],base[1]); |
441 |
{object V76 = (*(LnkLI57))((V71)); |
{object V76 = (*(LnkLI57))((V71)); |
442 |
bds_unwind1; |
bds_unwind1; |
443 |
VMR7(V76)}} |
VMR7(V76)}} |
444 |
|
base[0]=base[0]; |
445 |
|
return Cnil; |
446 |
} |
} |
447 |
/* local entry for function C2TAGBODY-BODY */ |
/* local entry for function C2TAGBODY-BODY */ |
448 |
|
|
451 |
object V78; |
object V78; |
452 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
453 |
bds_check; |
bds_check; |
454 |
|
goto TTL; |
455 |
TTL:; |
TTL:; |
456 |
{register object V79; |
{register object V79; |
457 |
register object V80; |
register object V80; |
458 |
V79= (V78); |
V79= (V78); |
459 |
V80= Cnil; |
V80= Cnil; |
460 |
|
goto T186; |
461 |
T186:; |
T186:; |
462 |
if(!(endp(cdr((V79))))){ |
if(!(endp(cdr((V79))))){ |
463 |
goto T187;} |
goto T187;} |
465 |
goto T191;} |
goto T191;} |
466 |
{object V81 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V81 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
467 |
VMR8(V81)} |
VMR8(V81)} |
468 |
|
goto T191; |
469 |
T191:; |
T191:; |
470 |
base[0]= car((V79)); |
base[0]= car((V79)); |
471 |
base[1]= VV[0]; |
base[1]= VV[0]; |
479 |
V83= structure_ref(car((V79)),VV[0],4); |
V83= structure_ref(car((V79)),VV[0],4); |
480 |
if((cdr(/* INLINE-ARGS */V83))==Cnil){ |
if((cdr(/* INLINE-ARGS */V83))==Cnil){ |
481 |
goto T199;} |
goto T199;} |
482 |
princ_str("\nT",VV[14]); |
princ_str("\ngoto T",VV[14]); |
483 |
V84= structure_ref(car((V79)),VV[0],4); |
V84= structure_ref(car((V79)),VV[0],4); |
484 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V84))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V84))); |
485 |
|
princ_char(59,VV[14]); |
486 |
|
princ_str("\nT",VV[14]); |
487 |
|
V85= structure_ref(car((V79)),VV[0],4); |
488 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V85))); |
489 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
490 |
|
goto T199; |
491 |
T199:; |
T199:; |
492 |
{object V85 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
493 |
VMR8(V85)} |
VMR8(V86)} |
494 |
|
goto T194; |
495 |
T194:; |
T194:; |
496 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
497 |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
505 |
bds_unwind1; |
bds_unwind1; |
506 |
bds_unwind1; |
bds_unwind1; |
507 |
bds_unwind1; |
bds_unwind1; |
508 |
goto T205;} |
goto T209;} |
509 |
|
princ_str("\ngoto T",VV[14]); |
510 |
|
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
511 |
|
princ_char(59,VV[14]); |
512 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
513 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
514 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
515 |
bds_unwind1; |
bds_unwind1; |
516 |
bds_unwind1; |
bds_unwind1; |
517 |
bds_unwind1; |
bds_unwind1; |
518 |
T205:; |
goto T209; |
519 |
|
T209:; |
520 |
if((caar((V79)))==(VV[1])){ |
if((caar((V79)))==(VV[1])){ |
521 |
goto T217;} |
goto T225;} |
522 |
{object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V87 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
|
VMR8(V86)} |
|
|
T217:; |
|
|
{object V87 = Cnil; |
|
523 |
VMR8(V87)} |
VMR8(V87)} |
524 |
|
goto T225; |
525 |
|
T225:; |
526 |
|
{object V88 = Cnil; |
527 |
|
VMR8(V88)} |
528 |
|
goto T187; |
529 |
T187:; |
T187:; |
530 |
if(((V80))==Cnil){ |
if(((V80))==Cnil){ |
531 |
goto T222;} |
goto T230;} |
532 |
V80= Cnil; |
V80= Cnil; |
533 |
goto T220; |
goto T228; |
534 |
T222:; |
goto T230; |
535 |
|
T230:; |
536 |
base[0]= car((V79)); |
base[0]= car((V79)); |
537 |
base[1]= VV[0]; |
base[1]= VV[0]; |
538 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
539 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
540 |
vs_top=sup; |
vs_top=sup; |
541 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
542 |
goto T226;} |
goto T234;} |
543 |
V88= structure_ref(car((V79)),VV[0],7); |
V89= structure_ref(car((V79)),VV[0],7); |
544 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V88)); |
(void)((*(LnkLI59))(/* INLINE-ARGS */V89)); |
|
V89= structure_ref(car((V79)),VV[0],4); |
|
|
if((cdr(/* INLINE-ARGS */V89))==Cnil){ |
|
|
goto T220;} |
|
|
princ_str("\nT",VV[14]); |
|
545 |
V90= structure_ref(car((V79)),VV[0],4); |
V90= structure_ref(car((V79)),VV[0],4); |
546 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V90))); |
if((cdr(/* INLINE-ARGS */V90))==Cnil){ |
547 |
|
goto T228;} |
548 |
|
princ_str("\ngoto T",VV[14]); |
549 |
|
V91= structure_ref(car((V79)),VV[0],4); |
550 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V91))); |
551 |
|
princ_char(59,VV[14]); |
552 |
|
princ_str("\nT",VV[14]); |
553 |
|
V92= structure_ref(car((V79)),VV[0],4); |
554 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V92))); |
555 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
556 |
goto T220; |
goto T228; |
557 |
T226:; |
goto T234; |
558 |
|
T234:; |
559 |
base[3]= cadr((V79)); |
base[3]= cadr((V79)); |
560 |
base[4]= VV[0]; |
base[4]= VV[0]; |
561 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
562 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
563 |
vs_top=sup; |
vs_top=sup; |
564 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
565 |
goto T238;} |
goto T250;} |
566 |
V80= Ct; |
V80= Ct; |
567 |
bds_bind(VV[15],structure_ref(cadr((V79)),VV[0],4)); |
bds_bind(VV[15],structure_ref(cadr((V79)),VV[0],4)); |
568 |
goto T236; |
goto T248; |
569 |
T238:; |
goto T250; |
570 |
|
T250:; |
571 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
572 |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
573 |
T236:; |
goto T248; |
574 |
|
T248:; |
575 |
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
576 |
bds_bind(VV[16],VV[17]); |
bds_bind(VV[16],VV[17]); |
577 |
base[3]= car((V79)); |
base[3]= car((V79)); |
584 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
585 |
vs_top=sup; |
vs_top=sup; |
586 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
587 |
goto T249;} |
goto T261;} |
588 |
goto T248; |
goto T260; |
589 |
T249:; |
goto T261; |
590 |
V91= structure_ref(cadr((V79)),VV[0],7); |
T261:; |
591 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V91)); |
V93= structure_ref(cadr((V79)),VV[0],7); |
592 |
T248:; |
(void)((*(LnkLI59))(/* INLINE-ARGS */V93)); |
593 |
|
goto T260; |
594 |
|
T260:; |
595 |
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
596 |
bds_unwind1; |
bds_unwind1; |
597 |
bds_unwind1; |
bds_unwind1; |
598 |
bds_unwind1; |
bds_unwind1; |
599 |
goto T220;} |
goto T228;} |
600 |
|
princ_str("\ngoto T",VV[14]); |
601 |
|
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
602 |
|
princ_char(59,VV[14]); |
603 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
604 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
605 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
606 |
bds_unwind1; |
bds_unwind1; |
607 |
bds_unwind1; |
bds_unwind1; |
608 |
bds_unwind1; |
bds_unwind1; |
609 |
T220:; |
goto T228; |
610 |
|
T228:; |
611 |
V79= cdr((V79)); |
V79= cdr((V79)); |
612 |
goto T186;} |
goto T186;} |
613 |
|
base[0]=base[0]; |
614 |
|
return Cnil; |
615 |
} |
} |
616 |
/* local entry for function C2TAGBODY-CLB */ |
/* local entry for function C2TAGBODY-CLB */ |
617 |
|
|
618 |
static object LI9(V93) |
static object LI9(V95) |
619 |
|
|
620 |
object V93; |
object V95; |
621 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
622 |
bds_check; |
bds_check; |
623 |
|
goto TTL; |
624 |
TTL:; |
TTL:; |
625 |
{register object V94; |
{register object V96; |
626 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
627 |
V94= make_cons(symbol_value(VV[12]),Cnil); |
V96= make_cons(symbol_value(VV[12]),Cnil); |
628 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],symbol_value(VV[18])); |
629 |
{register object V95; |
{register object V97; |
630 |
base[2]= make_cons(VV[19],symbol_value(VV[13])); |
base[2]= make_cons(VV[19],symbol_value(VV[13])); |
631 |
V95= (*(LnkLI62))(); |
V97= (*(LnkLI62))(); |
632 |
bds_bind(VV[13],base[2]); |
bds_bind(VV[13],base[2]); |
633 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
634 |
(void)((*(LnkLI63))((V95))); |
(void)((*(LnkLI63))((V97))); |
635 |
princ_str("=alloc_frame_id();",VV[14]); |
princ_str("=alloc_frame_id();",VV[14]); |
636 |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
637 |
(void)((*(LnkLI63))((V95))); |
(void)((*(LnkLI63))((V97))); |
638 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
639 |
princ_str("\n if(nlj_active){",VV[14]); |
princ_str("\n if(nlj_active){",VV[14]); |
640 |
princ_str("\n nlj_active=FALSE;",VV[14]); |
princ_str("\n nlj_active=FALSE;",VV[14]); |
641 |
{register object V96; |
{register object V98; |
642 |
register object V97; |
register object V99; |
643 |
V96= (V93); |
V98= (V95); |
644 |
V97= car((V96)); |
V99= car((V98)); |
645 |
T282:; |
goto T298; |
646 |
if(!(endp((V96)))){ |
T298:; |
647 |
goto T283;} |
if(!(endp((V98)))){ |
648 |
goto T278; |
goto T299;} |
649 |
T283:; |
goto T294; |
650 |
base[4]= (V97); |
goto T299; |
651 |
|
T299:; |
652 |
|
base[4]= (V99); |
653 |
base[5]= VV[0]; |
base[5]= VV[0]; |
654 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
655 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
656 |
vs_top=sup; |
vs_top=sup; |
657 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
658 |
goto T287;} |
goto T303;} |
659 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
660 |
V98= make_cons(symbol_value(VV[12]),Ct); |
V100= make_cons(symbol_value(VV[12]),Ct); |
661 |
(void)(structure_set((V97),VV[0],4,/* INLINE-ARGS */V98)); |
(void)(structure_set((V99),VV[0],4,/* INLINE-ARGS */V100)); |
662 |
(void)(structure_set((V97),VV[0],5,(V94))); |
(void)(structure_set((V99),VV[0],5,(V96))); |
663 |
if((structure_ref((V97),VV[0],2))==Cnil){ |
if((structure_ref((V99),VV[0],2))==Cnil){ |
664 |
goto T287;} |
goto T303;} |
665 |
(void)(structure_set((V97),VV[0],2,(V95))); |
(void)(structure_set((V99),VV[0],2,(V97))); |
666 |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
667 |
V99= structure_ref((V97),VV[0],6); |
V101= structure_ref((V99),VV[0],6); |
668 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V99)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V101)); |
669 |
princ_str("]))",VV[14]); |
princ_str("]))",VV[14]); |
670 |
V100= structure_ref((V97),VV[0],4); |
V102= structure_ref((V99),VV[0],4); |
671 |
if(type_of(/* INLINE-ARGS */V100)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V100); |
if(type_of(/* INLINE-ARGS */V102)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V102); |
672 |
(/* INLINE-ARGS */V100)->c.c_cdr = Ct; |
(/* INLINE-ARGS */V102)->c.c_cdr = Ct; |
673 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
674 |
V101= structure_ref((V97),VV[0],4); |
V103= structure_ref((V99),VV[0],4); |
675 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V101))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V103))); |
676 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
677 |
T287:; |
goto T303; |
678 |
V96= cdr((V96)); |
T303:; |
679 |
V97= car((V96)); |
V98= cdr((V98)); |
680 |
goto T282;} |
V99= car((V98)); |
681 |
T278:; |
goto T298;} |
682 |
|
goto T294; |
683 |
|
T294:; |
684 |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
685 |
princ_str("\n }",VV[14]); |
princ_str("\n }",VV[14]); |
686 |
base[3]= make_cons((V94),(VV[13]->s.s_dbind)); |
base[3]= make_cons((V96),(VV[13]->s.s_dbind)); |
687 |
bds_bind(VV[13],base[3]); |
bds_bind(VV[13],base[3]); |
688 |
{object V102 = (*(LnkLI57))((V93)); |
{object V104 = (*(LnkLI57))((V95)); |
689 |
bds_unwind1; |
bds_unwind1; |
690 |
bds_unwind1; |
bds_unwind1; |
691 |
bds_unwind1; |
bds_unwind1; |
692 |
VMR9(V102)}}} |
VMR9(V104)}}} |
693 |
|
base[0]=base[0]; |
694 |
|
return Cnil; |
695 |
} |
} |
696 |
/* local entry for function C2TAGBODY-CCB */ |
/* local entry for function C2TAGBODY-CCB */ |
697 |
|
|
698 |
static object LI10(V104) |
static object LI10(V106) |
699 |
|
|
700 |
object V104; |
object V106; |
701 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
702 |
bds_check; |
bds_check; |
703 |
|
goto TTL; |
704 |
TTL:; |
TTL:; |
705 |
{register object V105; |
{register object V107; |
706 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
707 |
V105= make_cons(symbol_value(VV[12]),Cnil); |
V107= make_cons(symbol_value(VV[12]),Cnil); |
708 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],symbol_value(VV[18])); |
709 |
bds_bind(VV[20],symbol_value(VV[20])); |
bds_bind(VV[20],symbol_value(VV[20])); |
710 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],symbol_value(VV[21])); |
711 |
{register object V106; |
{register object V108; |
712 |
register object V107; |
register object V109; |
713 |
base[4]= make_cons(VV[19],symbol_value(VV[13])); |
base[4]= make_cons(VV[19],symbol_value(VV[13])); |
714 |
V106= (*(LnkLI62))(); |
V108= (*(LnkLI62))(); |
715 |
bds_bind(VV[13],base[4]); |
bds_bind(VV[13],base[4]); |
716 |
V107= Cnil; |
V109= Cnil; |
717 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
718 |
(void)((*(LnkLI63))((V106))); |
(void)((*(LnkLI63))((V108))); |
719 |
princ_str("=alloc_frame_id();",VV[14]); |
princ_str("=alloc_frame_id();",VV[14]); |
720 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
721 |
(void)((*(LnkLI63))((V106))); |
(void)((*(LnkLI63))((V108))); |
722 |
princ_str("=MMcons(",VV[14]); |
princ_str("=MMcons(",VV[14]); |
723 |
(void)((*(LnkLI63))((V106))); |
(void)((*(LnkLI63))((V108))); |
724 |
princ_char(44,VV[14]); |
princ_char(44,VV[14]); |
725 |
(void)((VFUN_NARGS=0,(*(LnkLI64))())); |
(void)((VFUN_NARGS=0,(*(LnkLI64))())); |
726 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
727 |
(void)((*(LnkLI65))((V106))); |
(void)((*(LnkLI65))((V108))); |
728 |
V107= (*(LnkLI66))(); |
V109= (*(LnkLI66))(); |
729 |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
730 |
(void)((*(LnkLI67))((V106))); |
(void)((*(LnkLI67))((V108))); |
731 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
732 |
princ_str("\n if(nlj_active){",VV[14]); |
princ_str("\n if(nlj_active){",VV[14]); |
733 |
princ_str("\n nlj_active=FALSE;",VV[14]); |
princ_str("\n nlj_active=FALSE;",VV[14]); |
734 |
{register object V108; |
{register object V110; |
735 |
register object V109; |
register object V111; |
736 |
V108= (V104); |
V110= (V106); |
737 |
V109= car((V108)); |
V111= car((V110)); |
738 |
T350:; |
goto T366; |
739 |
if(!(endp((V108)))){ |
T366:; |
740 |
goto T351;} |
if(!(endp((V110)))){ |
741 |
goto T346; |
goto T367;} |
742 |
T351:; |
goto T362; |
743 |
base[6]= (V109); |
goto T367; |
744 |
|
T367:; |
745 |
|
base[6]= (V111); |
746 |
base[7]= VV[0]; |
base[7]= VV[0]; |
747 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
748 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
749 |
vs_top=sup; |
vs_top=sup; |
750 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
751 |
goto T355;} |
goto T371;} |
752 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
753 |
V110= make_cons(symbol_value(VV[12]),Ct); |
V112= make_cons(symbol_value(VV[12]),Ct); |
754 |
(void)(structure_set((V109),VV[0],4,/* INLINE-ARGS */V110)); |
(void)(structure_set((V111),VV[0],4,/* INLINE-ARGS */V112)); |
755 |
(void)(structure_set((V109),VV[0],5,(V105))); |
(void)(structure_set((V111),VV[0],5,(V107))); |
756 |
if((structure_ref((V109),VV[0],2))!=Cnil){ |
if((structure_ref((V111),VV[0],2))!=Cnil){ |
757 |
goto T363;} |
goto T379;} |
758 |
if((structure_ref((V109),VV[0],3))==Cnil){ |
if((structure_ref((V111),VV[0],3))==Cnil){ |
759 |
goto T355;} |
goto T371;} |
760 |
T363:; |
goto T379; |
761 |
(void)(structure_set((V109),VV[0],2,(V106))); |
T379:; |
762 |
if((structure_ref((V109),VV[0],3))==Cnil){ |
(void)(structure_set((V111),VV[0],2,(V108))); |
763 |
goto T368;} |
if((structure_ref((V111),VV[0],3))==Cnil){ |
764 |
(void)(structure_set((V109),VV[0],3,(V107))); |
goto T384;} |
765 |
T368:; |
(void)(structure_set((V111),VV[0],3,(V109))); |
766 |
|
goto T384; |
767 |
|
T384:; |
768 |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
769 |
V111= structure_ref((V109),VV[0],6); |
V113= structure_ref((V111),VV[0],6); |
770 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V111)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V113)); |
771 |
princ_str("]))",VV[14]); |
princ_str("]))",VV[14]); |
772 |
V112= structure_ref((V109),VV[0],4); |
V114= structure_ref((V111),VV[0],4); |
773 |
if(type_of(/* INLINE-ARGS */V112)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V112); |
if(type_of(/* INLINE-ARGS */V114)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V114); |
774 |
(/* INLINE-ARGS */V112)->c.c_cdr = Ct; |
(/* INLINE-ARGS */V114)->c.c_cdr = Ct; |
775 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
776 |
V113= structure_ref((V109),VV[0],4); |
V115= structure_ref((V111),VV[0],4); |
777 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V113))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V115))); |
778 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
779 |
T355:; |
goto T371; |
780 |
V108= cdr((V108)); |
T371:; |
781 |
V109= car((V108)); |
V110= cdr((V110)); |
782 |
goto T350;} |
V111= car((V110)); |
783 |
T346:; |
goto T366;} |
784 |
|
goto T362; |
785 |
|
T362:; |
786 |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
787 |
princ_str("\n }",VV[14]); |
princ_str("\n }",VV[14]); |
788 |
base[5]= make_cons((V105),(VV[13]->s.s_dbind)); |
base[5]= make_cons((V107),(VV[13]->s.s_dbind)); |
789 |
bds_bind(VV[13],base[5]); |
bds_bind(VV[13],base[5]); |
790 |
{object V114 = (*(LnkLI57))((V104)); |
{object V116 = (*(LnkLI57))((V106)); |
791 |
bds_unwind1; |
bds_unwind1; |
792 |
bds_unwind1; |
bds_unwind1; |
793 |
bds_unwind1; |
bds_unwind1; |
794 |
bds_unwind1; |
bds_unwind1; |
795 |
bds_unwind1; |
bds_unwind1; |
796 |
VMR10(V114)}}} |
VMR10(V116)}}} |
797 |
|
base[0]=base[0]; |
798 |
|
return Cnil; |
799 |
} |
} |
800 |
/* local entry for function C1GO */ |
/* local entry for function C1GO */ |
801 |
|
|
802 |
static object LI11(V116) |
static object LI11(V118) |
803 |
|
|
804 |
object V116; |
object V118; |
805 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
806 |
|
goto TTL; |
807 |
TTL:; |
TTL:; |
808 |
if(!(endp((V116)))){ |
if(!(endp((V118)))){ |
809 |
goto T391;} |
goto T407;} |
810 |
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
811 |
goto T389; |
goto T405; |
812 |
T391:; |
goto T407; |
813 |
if(endp(cdr((V116)))){ |
T407:; |
814 |
goto T394;} |
if(endp(cdr((V118)))){ |
815 |
V117 = make_fixnum(length((V116))); |
goto T410;} |
816 |
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V117)); |
V119 = make_fixnum(length((V118))); |
817 |
goto T389; |
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V119)); |
818 |
T394:; |
goto T405; |
819 |
if(type_of(car((V116)))==t_symbol){ |
goto T410; |
820 |
goto T389;} |
T410:; |
821 |
{object V118= car((V116)); |
if(type_of(car((V118)))==t_symbol){ |
|
if(type_of(V118)==t_fixnum||type_of(V118)==t_bignum){ |
|
|
goto T389;}} |
|
|
(void)(car((V116))); |
|
|
T389:; |
|
|
{register object V119; |
|
|
register object V120; |
|
|
register object V121; |
|
|
register object V122; |
|
|
V119= symbol_value(VV[4]); |
|
|
V120= car((V116)); |
|
|
V121= Cnil; |
|
|
V122= Cnil; |
|
|
T404:; |
|
|
if(!(endp((V119)))){ |
|
822 |
goto T405;} |
goto T405;} |
823 |
{object V123 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V120))); |
{object V120= car((V118)); |
824 |
VMR11(V123)} |
if(type_of(V120)==t_fixnum||type_of(V120)==t_bignum){ |
825 |
|
goto T405;}} |
826 |
|
(void)(car((V118))); |
827 |
|
goto T405; |
828 |
T405:; |
T405:; |
829 |
{object V124= car((V119)); |
{register object V121; |
830 |
if((V124!= VV[71]))goto T410; |
register object V122; |
831 |
V121= Ct; |
register object V123; |
832 |
goto T409; |
register object V124; |
833 |
T410:; |
V121= symbol_value(VV[4]); |
834 |
if((V124!= VV[72]))goto T412; |
V122= car((V118)); |
835 |
V122= Ct; |
V123= Cnil; |
836 |
goto T409; |
V124= Cnil; |
837 |
T412:; |
goto T420; |
838 |
V125= structure_ref(car((V119)),VV[0],0); |
T420:; |
839 |
if(!((/* INLINE-ARGS */V125)==((V120)))){ |
if(!(endp((V121)))){ |
840 |
goto T409;} |
goto T421;} |
841 |
{register object V126; |
{object V125 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V122))); |
842 |
V126= car((V119)); |
VMR11(V125)} |
843 |
if(((V121))==Cnil){ |
goto T421; |
844 |
goto T419;} |
T421:; |
845 |
(void)(structure_set((V126),VV[0],3,Ct)); |
{object V126= car((V121)); |
846 |
goto T417; |
if((V126!= VV[71]))goto T426; |
847 |
T419:; |
V123= Ct; |
848 |
if(((V122))==Cnil){ |
goto T425; |
849 |
goto T422;} |
goto T426; |
850 |
(void)(structure_set((V126),VV[0],2,Ct)); |
T426:; |
851 |
goto T417; |
if((V126!= VV[72]))goto T428; |
852 |
T422:; |
V124= Ct; |
853 |
(void)(structure_set((V126),VV[0],1,Ct)); |
goto T425; |
854 |
T417:; |
goto T428; |
855 |
{object V127 = list(5,VV[1],symbol_value(VV[24]),(V122),(V121),(V126)); |
T428:; |
856 |
VMR11(V127)}}} |
V127= structure_ref(car((V121)),VV[0],0); |
857 |
T409:; |
if(!((/* INLINE-ARGS */V127)==((V122)))){ |
858 |
V119= cdr((V119)); |
goto T425;} |
859 |
goto T404;} |
{register object V128; |
860 |
|
V128= car((V121)); |
861 |
|
if(((V123))==Cnil){ |
862 |
|
goto T435;} |
863 |
|
(void)(structure_set((V128),VV[0],3,Ct)); |
864 |
|
goto T433; |
865 |
|
goto T435; |
866 |
|
T435:; |
867 |
|
if(((V124))==Cnil){ |
868 |
|
goto T438;} |
869 |
|
(void)(structure_set((V128),VV[0],2,Ct)); |
870 |
|
goto T433; |
871 |
|
goto T438; |
872 |
|
T438:; |
873 |
|
(void)(structure_set((V128),VV[0],1,Ct)); |
874 |
|
goto T433; |
875 |
|
T433:; |
876 |
|
{object V129 = list(5,VV[1],symbol_value(VV[24]),(V124),(V123),(V128)); |
877 |
|
VMR11(V129)}}} |
878 |
|
goto T425; |
879 |
|
T425:; |
880 |
|
V121= cdr((V121)); |
881 |
|
goto T420;} |
882 |
|
return Cnil; |
883 |
} |
} |
884 |
/* local entry for function C2GO */ |
/* local entry for function C2GO */ |
885 |
|
|
886 |
static object LI12(V131,V132,V133) |
static object LI12(V133,V134,V135) |
887 |
|
|
888 |
object V131;object V132;object V133; |
object V133;object V134;object V135; |
889 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
890 |
|
goto TTL; |
891 |
TTL:; |
TTL:; |
892 |
if(((V132))==Cnil){ |
if(((V134))==Cnil){ |
893 |
goto T428;} |
goto T444;} |
894 |
{object V134 = (*(LnkLI73))((V133)); |
{object V136 = (*(LnkLI73))((V135)); |
|
VMR12(V134)} |
|
|
T428:; |
|
|
if(((V131))==Cnil){ |
|
|
goto T431;} |
|
|
{object V135 = (*(LnkLI74))((V133)); |
|
|
VMR12(V135)} |
|
|
T431:; |
|
|
{object V136 = (*(LnkLI75))((V133)); |
|
895 |
VMR12(V136)} |
VMR12(V136)} |
896 |
|
goto T444; |
897 |
|
T444:; |
898 |
|
if(((V133))==Cnil){ |
899 |
|
goto T447;} |
900 |
|
{object V137 = (*(LnkLI74))((V135)); |
901 |
|
VMR12(V137)} |
902 |
|
goto T447; |
903 |
|
T447:; |
904 |
|
{object V138 = (*(LnkLI75))((V135)); |
905 |
|
VMR12(V138)} |
906 |
|
return Cnil; |
907 |
} |
} |
908 |
/* local entry for function C2GO-LOCAL */ |
/* local entry for function C2GO-LOCAL */ |
909 |
|
|
910 |
static object LI13(V138) |
static object LI13(V140) |
911 |
|
|
912 |
object V138; |
object V140; |
913 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
914 |
|
goto TTL; |
915 |
TTL:; |
TTL:; |
916 |
V139= structure_ref((V138),VV[0],5); |
V141= structure_ref((V140),VV[0],5); |
917 |
(void)((*(LnkLI76))(/* INLINE-ARGS */V139)); |
(void)((*(LnkLI76))(/* INLINE-ARGS */V141)); |
918 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
919 |
V140= structure_ref((V138),VV[0],4); |
V142= structure_ref((V140),VV[0],4); |
920 |
if(type_of(/* INLINE-ARGS */V140)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V140); |
if(type_of(/* INLINE-ARGS */V142)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V142); |
921 |
(/* INLINE-ARGS */V140)->c.c_cdr = Ct; |
(/* INLINE-ARGS */V142)->c.c_cdr = Ct; |
922 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
923 |
V141= structure_ref((V138),VV[0],4); |
V143= structure_ref((V140),VV[0],4); |
924 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V141))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V143))); |
925 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
926 |
{object V142 = Cnil; |
{object V144 = Cnil; |
927 |
VMR13(V142)} |
VMR13(V144)} |
928 |
|
return Cnil; |
929 |
} |
} |
930 |
/* local entry for function C2GO-CLB */ |
/* local entry for function C2GO-CLB */ |
931 |
|
|
932 |
static object LI14(V144) |
static object LI14(V146) |
933 |
|
|
934 |
register object V144; |
register object V146; |
935 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
936 |
|
goto TTL; |
937 |
TTL:; |
TTL:; |
938 |
princ_str("\n vs_base=vs_top;",VV[14]); |
princ_str("\n vs_base=vs_top;",VV[14]); |
939 |
princ_str("\n unwind(frs_sch(",VV[14]); |
princ_str("\n unwind(frs_sch(",VV[14]); |
940 |
if((structure_ref((V144),VV[0],3))==Cnil){ |
if((structure_ref((V146),VV[0],3))==Cnil){ |
941 |
goto T445;} |
goto T461;} |
942 |
V145= structure_ref((V144),VV[0],2); |
V147= structure_ref((V146),VV[0],2); |
943 |
(void)((*(LnkLI67))(/* INLINE-ARGS */V145)); |
(void)((*(LnkLI67))(/* INLINE-ARGS */V147)); |
944 |
goto T443; |
goto T459; |
945 |
T445:; |
goto T461; |
946 |
V146= structure_ref((V144),VV[0],2); |
T461:; |
947 |
(void)((*(LnkLI63))(/* INLINE-ARGS */V146)); |
V148= structure_ref((V146),VV[0],2); |
948 |
T443:; |
(void)((*(LnkLI63))(/* INLINE-ARGS */V148)); |
949 |
|
goto T459; |
950 |
|
T459:; |
951 |
princ_str("),VV[",VV[14]); |
princ_str("),VV[",VV[14]); |
952 |
V147= structure_ref((V144),VV[0],6); |
V149= structure_ref((V146),VV[0],6); |
953 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V147)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V149)); |
954 |
princ_str("]);",VV[14]); |
princ_str("]);",VV[14]); |
955 |
{object V148 = Cnil; |
{object V150 = Cnil; |
956 |
VMR14(V148)} |
VMR14(V150)} |
957 |
|
return Cnil; |
958 |
} |
} |
959 |
/* local entry for function C2GO-CCB */ |
/* local entry for function C2GO-CCB */ |
960 |
|
|
961 |
static object LI15(V150) |
static object LI15(V152) |
962 |
|
|
963 |
object V150; |
object V152; |
964 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
965 |
|
goto TTL; |
966 |
TTL:; |
TTL:; |
967 |
princ_str("\n {frame_ptr fr;",VV[14]); |
princ_str("\n {frame_ptr fr;",VV[14]); |
968 |
princ_str("\n fr=frs_sch(",VV[14]); |
princ_str("\n fr=frs_sch(",VV[14]); |
969 |
V151= structure_ref((V150),VV[0],3); |
V153= structure_ref((V152),VV[0],3); |
970 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V151)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V153)); |
971 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
972 |
princ_str("\n if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]); |
princ_str("\n if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]); |
973 |
V152= structure_ref((V150),VV[0],6); |
V154= structure_ref((V152),VV[0],6); |
974 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V152)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V154)); |
975 |
princ_str("]);",VV[14]); |
princ_str("]);",VV[14]); |
976 |
princ_str("\n vs_base=vs_top;",VV[14]); |
princ_str("\n vs_base=vs_top;",VV[14]); |
977 |
princ_str("\n unwind(fr,VV[",VV[14]); |
princ_str("\n unwind(fr,VV[",VV[14]); |
978 |
V153= structure_ref((V150),VV[0],6); |
V155= structure_ref((V152),VV[0],6); |
979 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V153)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V155)); |
980 |
princ_str("]);}",VV[14]); |
princ_str("]);}",VV[14]); |
981 |
{object V154 = Cnil; |
{object V156 = Cnil; |
982 |
VMR15(V154)} |
VMR15(V156)} |
983 |
|
return Cnil; |
984 |
} |
} |
985 |
/* local entry for function WT-SWITCH-CASE */ |
/* local entry for function WT-SWITCH-CASE */ |
986 |
|
|
987 |
static object LI16(V156) |
static object LI16(V158) |
988 |
|
|
989 |
register object V156; |
register object V158; |
990 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
991 |
|
goto TTL; |
992 |
TTL:; |
TTL:; |
993 |
if(((V156))==Cnil){ |
if(((V158))==Cnil){ |
994 |
goto T467;} |
goto T483;} |
995 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
996 |
if(!(type_of((V156))==t_fixnum)){ |
if(!(type_of((V158))==t_fixnum)){ |
997 |
goto T473;} |
goto T489;} |
998 |
V157= VV[25]; |
V159= VV[25]; |
999 |
goto T471; |
goto T487; |
1000 |
T473:; |
goto T489; |
1001 |
V157= VV[26]; |
T489:; |
1002 |
T471:; |
V159= VV[26]; |
1003 |
(void)((*(LnkLI60))(V157)); |
goto T487; |
1004 |
(void)((*(LnkLI60))((V156))); |
T487:; |
1005 |
|
(void)((*(LnkLI60))(V159)); |
1006 |
|
(void)((*(LnkLI60))((V158))); |
1007 |
princ_char(58,VV[14]); |
princ_char(58,VV[14]); |
1008 |
{object V158 = Cnil; |
{object V160 = Cnil; |
1009 |
VMR16(V158)} |
VMR16(V160)} |
1010 |
T467:; |
goto T483; |
1011 |
{object V159 = Cnil; |
T483:; |
1012 |
VMR16(V159)} |
{object V161 = Cnil; |
1013 |
|
VMR16(V161)} |
1014 |
|
return Cnil; |
1015 |
} |
} |
1016 |
/* local entry for function C1SWITCH */ |
/* local entry for function C1SWITCH */ |
1017 |
|
|
1018 |
static object LI17(V161) |
static object LI17(V163) |
1019 |
|
|
1020 |
object V161; |
object V163; |
1021 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1022 |
bds_check; |
bds_check; |
1023 |
|
goto TTL; |
1024 |
TTL:; |
TTL:; |
1025 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
1026 |
{object V162; |
{object V164; |
1027 |
register object V163; |
register object V165; |
1028 |
object V164; |
object V166; |
1029 |
V162= car((V161)); |
V164= car((V163)); |
1030 |
V163= cdr((V161)); |
V165= cdr((V163)); |
1031 |
V164= (*(LnkLI78))((V162)); |
V166= (*(LnkLI78))((V164)); |
1032 |
base[4]= cadr((V164)); |
base[4]= cadr((V166)); |
1033 |
base[5]= VV[27]; |
base[5]= VV[27]; |
1034 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1035 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
1036 |
vs_top=sup; |
vs_top=sup; |
1037 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1038 |
goto T481;} |
goto T497;} |
1039 |
base[4]= structure_ref(cadr((V164)),VV[27],2); |
base[4]= structure_ref(cadr((V166)),VV[27],2); |
1040 |
base[5]= VV[28]; |
base[5]= VV[28]; |
1041 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1042 |
(void) (*Lnk79)(); |
(void) (*Lnk79)(); |
1043 |
vs_top=sup; |
vs_top=sup; |
1044 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1045 |
goto T481;}{object V165; |
goto T497;}{object V167; |
1046 |
{register object x= Ct,V166= (V163); |
{register object x= Ct,V168= (V165); |
1047 |
while(!endp(V166)) |
while(!endp(V168)) |
1048 |
if(eql(x,V166->c.c_car)){ |
if(eql(x,V168->c.c_car)){ |
1049 |
V165= V166; |
V167= V168; |
1050 |
goto T491; |
goto T507; |
1051 |
}else V166=V166->c.c_cdr; |
}else V168=V168->c.c_cdr; |
1052 |
V165= Cnil;} |
V167= Cnil;} |
1053 |
T491:; |
goto T507; |
1054 |
if(V165==Cnil)goto T490; |
T507:; |
1055 |
goto T489; |
if(V167==Cnil)goto T506; |
1056 |
T490:;} |
goto T505; |
1057 |
V167= make_cons(Ct,Cnil); |
goto T506; |
1058 |
V163= append((V163),/* INLINE-ARGS */V167); |
T506:;} |
1059 |
T489:; |
V169= make_cons(Ct,Cnil); |
1060 |
{object V168; |
V165= append((V165),/* INLINE-ARGS */V169); |
1061 |
object V169= (V163); |
goto T505; |
|
if(endp(V169)){ |
|
|
V163= Cnil; |
|
|
goto T494;} |
|
|
base[4]=V168=MMcons(Cnil,Cnil); |
|
|
T495:; |
|
|
{register object V170; |
|
|
V170= (V169->c.c_car); |
|
|
if(type_of((V170))==t_symbol){ |
|
|
goto T497;} |
|
|
if(!(type_of((V170))==t_fixnum||type_of((V170))==t_bignum)){ |
|
|
goto T498;} |
|
|
T497:; |
|
|
{register object V171; |
|
|
V171= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V170),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
|
|
if(!(type_of((V170))==t_fixnum)){ |
|
|
goto T505;} |
|
|
(void)(structure_set((V171),VV[0],1,Ct)); |
|
|
(void)(structure_set((V171),VV[0],7,(V170))); |
|
|
goto T503; |
|
1062 |
T505:; |
T505:; |
1063 |
if(!((Ct)==((V170)))){ |
{object V170; |
1064 |
goto T503;} |
object V171= (V165); |
1065 |
(void)(structure_set((V171),VV[0],1,Ct)); |
if(endp(V171)){ |
1066 |
(void)(structure_set((V171),VV[0],7,VV[29])); |
V165= Cnil; |
1067 |
T503:; |
goto T510;} |
1068 |
(V168->c.c_car)= (V171); |
base[4]=V170=MMcons(Cnil,Cnil); |
1069 |
goto T496;} |
goto T511; |
1070 |
T498:; |
T511:; |
1071 |
(V168->c.c_car)= (V170);} |
{register object V172; |
1072 |
T496:; |
V172= (V171->c.c_car); |
1073 |
if(endp(V169=MMcdr(V169))){ |
if(type_of((V172))==t_symbol){ |
1074 |
V163= base[4]; |
goto T513;} |
1075 |
goto T494;} |
if(!(type_of((V172))==t_fixnum||type_of((V172))==t_bignum)){ |
1076 |
V168=MMcdr(V168)=MMcons(Cnil,Cnil); |
goto T514;} |
1077 |
goto T495;} |
goto T513; |
1078 |
T494:; |
T513:; |
1079 |
{object V172; |
{register object V173; |
1080 |
V173= append((V163),VV[30]); |
V173= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V172),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
1081 |
V172= (*(LnkLI80))(/* INLINE-ARGS */V173); |
if(!(type_of((V172))==t_fixnum)){ |
1082 |
V174= list(3,VV[31],cadr((V172)),(V164)); |
goto T521;} |
1083 |
{object V175 = nconc(/* INLINE-ARGS */V174,cddr((V172))); |
(void)(structure_set((V173),VV[0],1,Ct)); |
1084 |
bds_unwind1; |
(void)(structure_set((V173),VV[0],7,(V172))); |
1085 |
VMR17(V175)}} |
goto T519; |
1086 |
T481:; |
goto T521; |
1087 |
V176= make_cons(VV[31],(V161)); |
T521:; |
1088 |
V177= (*(LnkLI81))(/* INLINE-ARGS */V176); |
if(!((Ct)==((V172)))){ |
1089 |
{object V178 = (*(LnkLI78))(/* INLINE-ARGS */V177); |
goto T519;} |
1090 |
|
(void)(structure_set((V173),VV[0],1,Ct)); |
1091 |
|
(void)(structure_set((V173),VV[0],7,VV[29])); |
1092 |
|
goto T519; |
1093 |
|
T519:; |
1094 |
|
(V170->c.c_car)= (V173); |
1095 |
|
goto T512;} |
1096 |
|
goto T514; |
1097 |
|
T514:; |
1098 |
|
(V170->c.c_car)= (V172);} |
1099 |
|
goto T512; |
1100 |
|
T512:; |
1101 |
|
if(endp(V171=MMcdr(V171))){ |
1102 |
|
V165= base[4]; |
1103 |
|
goto T510;} |
1104 |
|
V170=MMcdr(V170)=MMcons(Cnil,Cnil); |
1105 |
|
goto T511;} |
1106 |
|
goto T510; |
1107 |
|
T510:; |
1108 |
|
{object V174; |
1109 |
|
V175= append((V165),VV[30]); |
1110 |
|
V174= (*(LnkLI80))(/* INLINE-ARGS */V175); |
1111 |
|
V176= list(3,VV[31],cadr((V174)),(V166)); |
1112 |
|
{object V177 = nconc(/* INLINE-ARGS */V176,cddr((V174))); |
1113 |
bds_unwind1; |
bds_unwind1; |
1114 |
VMR17(V178)}} |
VMR17(V177)}} |
1115 |
|
goto T497; |
1116 |
|
T497:; |
1117 |
|
V178= make_cons(VV[31],(V163)); |
1118 |
|
V179= (*(LnkLI81))(/* INLINE-ARGS */V178); |
1119 |
|
{object V180 = (*(LnkLI78))(/* INLINE-ARGS */V179); |
1120 |
|
bds_unwind1; |
1121 |
|
VMR17(V180)}} |
1122 |
|
base[0]=base[0]; |
1123 |
|
return Cnil; |
1124 |
} |
} |
1125 |
/* local entry for function C2SWITCH */ |
/* local entry for function C2SWITCH */ |
1126 |
|
|
1127 |
static object LI18(V183,V184,V185,V186) |
static object LI18(V185,V186,V187,V188) |
1128 |
|
|
1129 |
object V183;object V184;object V185;object V186; |
object V185;object V186;object V187;object V188; |
1130 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1131 |
bds_check; |
bds_check; |
1132 |
|
goto TTL; |
1133 |
TTL:; |
TTL:; |
1134 |
bds_bind(VV[32],small_fixnum(0)); |
bds_bind(VV[32],small_fixnum(0)); |
1135 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],symbol_value(VV[18])); |
1136 |
{object V187; |
{object V189; |
1137 |
V188= make_cons((V183),Cnil); |
V190= make_cons((V185),Cnil); |
1138 |
V187= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V188,VV[33])); |
V189= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V190,VV[33])); |
1139 |
base[2]= VV[34]; |
base[2]= VV[34]; |
1140 |
base[3]= (V187); |
base[3]= (V189); |
1141 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1142 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
1143 |
vs_top=sup; |
vs_top=sup; |
1144 |
if(((V185))==Cnil){ |
if(((V187))==Cnil){ |
1145 |
goto T518;} |
goto T534;} |
1146 |
(void)((*(LnkLI54))((V186))); |
(void)((*(LnkLI54))((V188))); |
1147 |
goto T516; |
goto T532; |
1148 |
T518:; |
goto T534; |
1149 |
if(((V184))==Cnil){ |
T534:; |
1150 |
goto T521;} |
if(((V186))==Cnil){ |
1151 |
(void)((*(LnkLI55))((V186))); |
goto T537;} |
1152 |
goto T516; |
(void)((*(LnkLI55))((V188))); |
1153 |
T521:; |
goto T532; |
1154 |
(void)((*(LnkLI56))((V186))); |
goto T537; |
1155 |
T516:; |
T537:; |
1156 |
|
(void)((*(LnkLI56))((V188))); |
1157 |
|
goto T532; |
1158 |
|
T532:; |
1159 |
princ_char(125,VV[14]); |
princ_char(125,VV[14]); |
1160 |
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
1161 |
{object V189 = (*(LnkLI84))(); |
{object V191 = (*(LnkLI84))(); |
1162 |
bds_unwind1; |
bds_unwind1; |
1163 |
bds_unwind1; |
bds_unwind1; |
1164 |
VMR18(V189)}} |
VMR18(V191)}} |
1165 |
|
base[0]=base[0]; |
1166 |
|
return Cnil; |
1167 |
} |
} |
1168 |
/* macro definition for SWITCH */ |
/* macro definition for SWITCH */ |
1169 |
|
|
1170 |
static L19() |
static void L19() |
1171 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1172 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1173 |
vs_reserve(VM19); |
vs_reserve(VM19); |
1174 |
check_arg(2); |
check_arg(2); |
1175 |
vs_top=sup; |
vs_top=sup; |
1176 |
{object V190=base[0]->c.c_cdr; |
{object V192=base[0]->c.c_cdr; |
1177 |
if(endp(V190))invalid_macro_call(); |
if(endp(V192))invalid_macro_call(); |
1178 |
base[2]= (V190->c.c_car); |
base[2]= (V192->c.c_car); |
1179 |
V190=V190->c.c_cdr; |
V192=V192->c.c_cdr; |
1180 |
base[3]= V190; |
base[3]= V192; |
1181 |
base[4]= Cnil;} |
base[4]= Cnil;} |
1182 |
{register object V191; |
{register object V193; |
1183 |
register object V192; |
register object V194; |
1184 |
V191= base[3]; |
V193= base[3]; |
1185 |
V192= car((V191)); |
V194= car((V193)); |
1186 |
T531:; |
goto T547; |
1187 |
if(!(endp((V191)))){ |
T547:; |
1188 |
goto T532;} |
if(!(endp((V193)))){ |
1189 |
goto T527; |
goto T548;} |
1190 |
T532:; |
goto T543; |
1191 |
if(!(type_of((V192))==t_fixnum||type_of((V192))==t_bignum)){ |
goto T548; |
1192 |
goto T536;} |
T548:; |
1193 |
V193= list(3,VV[36],(V192),base[2]); |
if(!(type_of((V194))==t_fixnum||type_of((V194))==t_bignum)){ |
1194 |
V194= list(4,VV[35],/* INLINE-ARGS */V193,list(2,VV[1],(V192)),Cnil); |
goto T552;} |
1195 |
base[4]= make_cons(/* INLINE-ARGS */V194,base[4]); |
V195= list(3,VV[36],(V194),base[2]); |
1196 |
T536:; |
V196= list(4,VV[35],/* INLINE-ARGS */V195,list(2,VV[1],(V194)),Cnil); |
1197 |
V191= cdr((V191)); |
base[4]= make_cons(/* INLINE-ARGS */V196,base[4]); |
1198 |
V192= car((V191)); |
goto T552; |
1199 |
goto T531;} |
T552:; |
1200 |
T527:; |
V193= cdr((V193)); |
1201 |
V195= nreverse(base[4]); |
V194= car((V193)); |
1202 |
|
goto T547;} |
1203 |
|
goto T543; |
1204 |
|
T543:; |
1205 |
|
V197= nreverse(base[4]); |
1206 |
base[5]= base[3]; |
base[5]= base[3]; |
1207 |
{register object x= Ct,V197= base[3]; |
{register object x= Ct,V199= base[3]; |
1208 |
while(!endp(V197)) |
while(!endp(V199)) |
1209 |
if(eql(x,V197->c.c_car)){ |
if(eql(x,V199->c.c_car)){ |
1210 |
goto T550; |
goto T566; |
1211 |
}else V197=V197->c.c_cdr; |
}else V199=V199->c.c_cdr; |
1212 |
goto T549;} |
goto T565;} |
1213 |
T550:; |
goto T566; |
1214 |
|
T566:; |
1215 |
base[6]= Cnil; |
base[6]= Cnil; |
1216 |
goto T547; |
goto T563; |
1217 |
T549:; |
goto T565; |
1218 |
|
T565:; |
1219 |
base[6]= VV[38]; |
base[6]= VV[38]; |
1220 |
T547:; |
goto T563; |
1221 |
|
T563:; |
1222 |
base[7]= VV[39]; |
base[7]= VV[39]; |
1223 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1224 |
Lappend(); |
Lappend(); |
1225 |
vs_top=sup; |
vs_top=sup; |
1226 |
V196= vs_base[0]; |
V198= vs_base[0]; |
1227 |
V198= make_cons(VV[37],V196); |
V200= make_cons(VV[37],V198); |
1228 |
V199= append(/* INLINE-ARGS */V195,/* INLINE-ARGS */V198); |
V201= append(/* INLINE-ARGS */V197,/* INLINE-ARGS */V200); |
1229 |
base[5]= make_cons(VV[10],/* INLINE-ARGS */V199); |
base[5]= make_cons(VV[10],/* INLINE-ARGS */V201); |
1230 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1231 |
return; |
return; |
1232 |
} |
} |
1233 |
/* macro definition for SWITCH-FINISH */ |
/* macro definition for SWITCH-FINISH */ |
1234 |
|
|
1235 |
static L20() |
static void L20() |
1236 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1237 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1238 |
vs_reserve(VM20); |
vs_reserve(VM20); |
1239 |
check_arg(2); |
check_arg(2); |
1240 |
vs_top=sup; |
vs_top=sup; |
1241 |
{object V200=base[0]->c.c_cdr; |
{object V202=base[0]->c.c_cdr; |
1242 |
if(!endp(V200))invalid_macro_call();} |
if(!endp(V202))invalid_macro_call();} |
1243 |
base[2]= VV[40]; |
base[2]= VV[40]; |
1244 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1245 |
return; |
return; |
1246 |
} |
} |
1247 |
static object LnkTLI84(){return call_proc0(VV[84],&LnkLI84);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI84(){return call_proc0(VV[84],(void **)&LnkLI84);} /* CLOSE-INLINE-BLOCKS */ |
1248 |
static LnkT83(){ call_or_link(VV[83],&Lnk83);} /* WT-INLINE-LOC */ |
static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* WT-INLINE-LOC */ |
1249 |
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],&LnkLI82,ap);} /* INLINE-ARGS */ |
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],(void **)&LnkLI82,ap);} /* INLINE-ARGS */ |
1250 |
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* CMP-MACROEXPAND-1 */ |
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],(void **)&LnkLI81,1,ap);} /* CMP-MACROEXPAND-1 */ |
1251 |
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* C1TAGBODY */ |
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],(void **)&LnkLI80,1,ap);} /* C1TAGBODY */ |
1252 |
static LnkT79(){ call_or_link(VV[79],&Lnk79);} /* SUBTYPEP */ |
static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* SUBTYPEP */ |
1253 |
static object LnkTLI78(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[78],&LnkLI78,1,ap);} /* C1EXPR */ |
static object LnkTLI78(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[78],(void **)&LnkLI78,1,ap);} /* C1EXPR */ |
1254 |
static object LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],&LnkLI77,1,ap);} /* WT-CCB-VS */ |
static object LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],(void **)&LnkLI77,1,ap);} /* WT-CCB-VS */ |
1255 |
static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,1,ap);} /* UNWIND-NO-EXIT */ |
static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],(void **)&LnkLI76,1,ap);} /* UNWIND-NO-EXIT */ |
1256 |
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* C2GO-LOCAL */ |
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,1,ap);} /* C2GO-LOCAL */ |
1257 |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* C2GO-CLB */ |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,1,ap);} /* C2GO-CLB */ |
1258 |
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* C2GO-CCB */ |
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],(void **)&LnkLI73,1,ap);} /* C2GO-CCB */ |
1259 |
static object LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],&LnkLI70,ap);} /* CMPERR */ |
static object LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],(void **)&LnkLI70,ap);} /* CMPERR */ |
1260 |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,3,ap);} /* TOO-MANY-ARGS */ |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],(void **)&LnkLI69,3,ap);} /* TOO-MANY-ARGS */ |
1261 |
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,3,ap);} /* TOO-FEW-ARGS */ |
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,3,ap);} /* TOO-FEW-ARGS */ |
1262 |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,1,ap);} /* WT-VS* */ |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],(void **)&LnkLI67,1,ap);} /* WT-VS* */ |
1263 |
static object LnkTLI66(){return call_proc0(VV[66],&LnkLI66);} /* CCB-VS-PUSH */ |
static object LnkTLI66(){return call_proc0(VV[66],(void **)&LnkLI66);} /* CCB-VS-PUSH */ |
1264 |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* CLINK */ |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],(void **)&LnkLI65,1,ap);} /* CLINK */ |
1265 |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],&LnkLI64,ap);} /* WT-CLINK */ |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],(void **)&LnkLI64,ap);} /* WT-CLINK */ |
1266 |
static object LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,1,ap);} /* WT-VS */ |
static object LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],(void **)&LnkLI63,1,ap);} /* WT-VS */ |
1267 |
static object LnkTLI62(){return call_proc0(VV[62],&LnkLI62);} /* VS-PUSH */ |
static object LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* VS-PUSH */ |
1268 |
static LnkT61(){ call_or_link(VV[61],&Lnk61);} /* C2EXPR */ |
static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* C2EXPR */ |
1269 |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,1,ap);} /* WT1 */ |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,1,ap);} /* WT1 */ |
1270 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* WT-SWITCH-CASE */ |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,1,ap);} /* WT-SWITCH-CASE */ |
1271 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[58],&LnkLI58,ap);} /* UNWIND-EXIT */ |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[58],(void **)&LnkLI58,ap);} /* UNWIND-EXIT */ |
1272 |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* C2TAGBODY-BODY */ |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* C2TAGBODY-BODY */ |
1273 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* C2TAGBODY-LOCAL */ |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* C2TAGBODY-LOCAL */ |
1274 |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,1,ap);} /* C2TAGBODY-CLB */ |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],(void **)&LnkLI55,1,ap);} /* C2TAGBODY-CLB */ |
1275 |
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* C2TAGBODY-CCB */ |
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* C2TAGBODY-CCB */ |
1276 |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* ADD-OBJECT */ |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* ADD-OBJECT */ |
1277 |
static object LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* C1NIL */ |
static object LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1NIL */ |
1278 |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* ADD-LOOP-REGISTERS */ |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,1,ap);} /* ADD-LOOP-REGISTERS */ |
1279 |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,2,ap);} /* C1EXPR* */ |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],(void **)&LnkLI50,2,ap);} /* C1EXPR* */ |
1280 |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[49],&LnkLI49,ap);} /* MAKE-TAG */ |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[49],(void **)&LnkLI49,ap);} /* MAKE-TAG */ |
1281 |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */ |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],(void **)&LnkLI48,ap);} /* MAKE-INFO */ |
1282 |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,1,ap);} /* ADD-REG1 */ |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,1,ap);} /* ADD-REG1 */ |
1283 |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,2,ap);} /* JUMPS-TO-P */ |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,2,ap);} /* JUMPS-TO-P */ |
1284 |
static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* STRUCTURE-SUBTYPE-P */ |
1285 |
|
|
1286 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1287 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |