1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmpif.h" |
#include "cmpif.h" |
4 |
init_cmpif(){do_init(VV);} |
void init_cmpif(){do_init(VV);} |
5 |
/* local entry for function C1IF */ |
/* local entry for function C1IF */ |
6 |
|
|
7 |
static object LI1(V2) |
static object LI1(V2) |
8 |
|
|
9 |
register object V2; |
register object V2; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
{register object V3; |
{register object V3; |
14 |
object V4; |
object V4; |
18 |
goto T4;} |
goto T4;} |
19 |
if(!(endp(cdr((V2))))){ |
if(!(endp(cdr((V2))))){ |
20 |
goto T3;} |
goto T3;} |
21 |
|
goto T4; |
22 |
T4:; |
T4:; |
23 |
V5 = make_fixnum(length((V2))); |
V5 = make_fixnum(length((V2))); |
24 |
(void)((*(LnkLI43))(VV[0],small_fixnum(2),V5)); |
(void)((*(LnkLI43))(VV[0],small_fixnum(2),V5)); |
25 |
|
goto T3; |
26 |
T3:; |
T3:; |
27 |
if(endp(cddr((V2)))){ |
if(endp(cddr((V2)))){ |
28 |
goto T8;} |
goto T8;} |
30 |
goto T8;} |
goto T8;} |
31 |
V6 = make_fixnum(length((V2))); |
V6 = make_fixnum(length((V2))); |
32 |
(void)((*(LnkLI44))(VV[0],small_fixnum(3),V6)); |
(void)((*(LnkLI44))(VV[0],small_fixnum(3),V6)); |
33 |
|
goto T8; |
34 |
T8:; |
T8:; |
35 |
V4= (*(LnkLI45))(car((V2))); |
V4= (*(LnkLI45))(car((V2))); |
36 |
{object V7= (V4); |
{object V7= (V4); |
37 |
if((V7!= Ct))goto T15; |
if((V7!= Ct))goto T15; |
38 |
{object V8 = (*(LnkLI46))(cadr((V2))); |
{object V8 = (*(LnkLI46))(cadr((V2))); |
39 |
VMR1(V8)} |
VMR1(V8)} |
40 |
|
goto T15; |
41 |
T15:; |
T15:; |
42 |
if((V7!= Cnil))goto T16; |
if((V7!= Cnil))goto T16; |
43 |
if(!(endp(cddr((V2))))){ |
if(!(endp(cddr((V2))))){ |
44 |
goto T18;} |
goto T18;} |
45 |
{object V9 = (*(LnkLI47))(); |
{object V9 = (*(LnkLI47))(); |
46 |
VMR1(V9)} |
VMR1(V9)} |
47 |
|
goto T18; |
48 |
T18:; |
T18:; |
49 |
{object V10 = (*(LnkLI46))(caddr((V2))); |
{object V10 = (*(LnkLI46))(caddr((V2))); |
50 |
VMR1(V10)} |
VMR1(V10)} |
51 |
|
goto T16; |
52 |
T16:; |
T16:; |
53 |
V3= (VFUN_NARGS=0,(*(LnkLI48))()); |
V3= (VFUN_NARGS=0,(*(LnkLI48))()); |
54 |
V11= (*(LnkLI49))((V4),(V3)); |
V11= (*(LnkLI49))((V4),(V3)); |
57 |
goto T24;} |
goto T24;} |
58 |
V13= (*(LnkLI47))(); |
V13= (*(LnkLI47))(); |
59 |
goto T22; |
goto T22; |
60 |
|
goto T24; |
61 |
T24:; |
T24:; |
62 |
V13= (*(LnkLI50))(caddr((V2)),(V3)); |
V13= (*(LnkLI50))(caddr((V2)),(V3)); |
63 |
|
goto T22; |
64 |
T22:; |
T22:; |
65 |
{object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13); |
{object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13); |
66 |
VMR1(V14)}}} |
VMR1(V14)}}} |
67 |
|
return Cnil; |
68 |
} |
} |
69 |
/* local entry for function C1FMLA-CONSTANT */ |
/* local entry for function C1FMLA-CONSTANT */ |
70 |
|
|
72 |
|
|
73 |
register object V16; |
register object V16; |
74 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
75 |
|
goto TTL; |
76 |
TTL:; |
TTL:; |
77 |
{register object V17; |
{register object V17; |
78 |
V17= Cnil; |
V17= Cnil; |
82 |
if((V18!= VV[1]))goto T30; |
if((V18!= VV[1]))goto T30; |
83 |
{register object V19; |
{register object V19; |
84 |
V19= cdr((V16)); |
V19= cdr((V16)); |
85 |
|
goto T33; |
86 |
T33:; |
T33:; |
87 |
if(!(endp((V19)))){ |
if(!(endp((V19)))){ |
88 |
goto T34;} |
goto T34;} |
89 |
{object V20 = Ct; |
{object V20 = Ct; |
90 |
VMR2(V20)} |
VMR2(V20)} |
91 |
|
goto T34; |
92 |
T34:; |
T34:; |
93 |
V17= (*(LnkLI45))(car((V19))); |
V17= (*(LnkLI45))(car((V19))); |
94 |
{object V21= (V17); |
{object V21= (V17); |
95 |
if((V21!= Ct))goto T41; |
if((V21!= Ct))goto T41; |
96 |
goto T40; |
goto T40; |
97 |
|
goto T41; |
98 |
T41:; |
T41:; |
99 |
if((V21!= Cnil))goto T42; |
if((V21!= Cnil))goto T42; |
100 |
{object V22 = Cnil; |
{object V22 = Cnil; |
101 |
VMR2(V22)} |
VMR2(V22)} |
102 |
|
goto T42; |
103 |
T42:; |
T42:; |
104 |
if(!(endp(cdr((V19))))){ |
if(!(endp(cdr((V19))))){ |
105 |
goto T44;} |
goto T44;} |
106 |
{object V23 = (V17); |
{object V23 = (V17); |
107 |
VMR2(V23)} |
VMR2(V23)} |
108 |
|
goto T44; |
109 |
T44:; |
T44:; |
110 |
{object V24 = listA(3,VV[1],(V17),cdr((V19))); |
{object V24 = listA(3,VV[1],(V17),cdr((V19))); |
111 |
VMR2(V24)}} |
VMR2(V24)}} |
112 |
|
goto T40; |
113 |
T40:; |
T40:; |
114 |
V19= cdr((V19)); |
V19= cdr((V19)); |
115 |
goto T33;} |
goto T33;} |
116 |
|
goto T30; |
117 |
T30:; |
T30:; |
118 |
if((V18!= VV[2]))goto T49; |
if((V18!= VV[2]))goto T49; |
119 |
{register object V25; |
{register object V25; |
120 |
V25= cdr((V16)); |
V25= cdr((V16)); |
121 |
|
goto T52; |
122 |
T52:; |
T52:; |
123 |
if(!(endp((V25)))){ |
if(!(endp((V25)))){ |
124 |
goto T53;} |
goto T53;} |
125 |
{object V26 = Cnil; |
{object V26 = Cnil; |
126 |
VMR2(V26)} |
VMR2(V26)} |
127 |
|
goto T53; |
128 |
T53:; |
T53:; |
129 |
V17= (*(LnkLI45))(car((V25))); |
V17= (*(LnkLI45))(car((V25))); |
130 |
{object V27= (V17); |
{object V27= (V17); |
131 |
if((V27!= Ct))goto T60; |
if((V27!= Ct))goto T60; |
132 |
{object V28 = Ct; |
{object V28 = Ct; |
133 |
VMR2(V28)} |
VMR2(V28)} |
134 |
|
goto T60; |
135 |
T60:; |
T60:; |
136 |
if((V27!= Cnil))goto T61; |
if((V27!= Cnil))goto T61; |
137 |
goto T59; |
goto T59; |
138 |
|
goto T61; |
139 |
T61:; |
T61:; |
140 |
if(!(endp(cdr((V25))))){ |
if(!(endp(cdr((V25))))){ |
141 |
goto T63;} |
goto T63;} |
142 |
{object V29 = (V17); |
{object V29 = (V17); |
143 |
VMR2(V29)} |
VMR2(V29)} |
144 |
|
goto T63; |
145 |
T63:; |
T63:; |
146 |
{object V30 = listA(3,VV[2],(V17),cdr((V25))); |
{object V30 = listA(3,VV[2],(V17),cdr((V25))); |
147 |
VMR2(V30)}} |
VMR2(V30)}} |
148 |
|
goto T59; |
149 |
T59:; |
T59:; |
150 |
V25= cdr((V25)); |
V25= cdr((V25)); |
151 |
goto T52;} |
goto T52;} |
152 |
|
goto T49; |
153 |
T49:; |
T49:; |
154 |
if((V18!= VV[3]) |
if((V18!= VV[3]) |
155 |
&& (V18!= VV[51]))goto T68; |
&& (V18!= VV[51]))goto T68; |
156 |
if(!(endp(cdr((V16))))){ |
if(!(endp(cdr((V16))))){ |
157 |
goto T69;} |
goto T69;} |
158 |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
159 |
|
goto T69; |
160 |
T69:; |
T69:; |
161 |
if(endp(cddr((V16)))){ |
if(endp(cddr((V16)))){ |
162 |
goto T72;} |
goto T72;} |
163 |
V31 = make_fixnum(length(cdr((V16)))); |
V31 = make_fixnum(length(cdr((V16)))); |
164 |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V31)); |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V31)); |
165 |
|
goto T72; |
166 |
T72:; |
T72:; |
167 |
V17= (*(LnkLI45))(cadr((V16))); |
V17= (*(LnkLI45))(cadr((V16))); |
168 |
{object V32= (V17); |
{object V32= (V17); |
169 |
if((V32!= Ct))goto T77; |
if((V32!= Ct))goto T77; |
170 |
{object V33 = Cnil; |
{object V33 = Cnil; |
171 |
VMR2(V33)} |
VMR2(V33)} |
172 |
|
goto T77; |
173 |
T77:; |
T77:; |
174 |
if((V32!= Cnil))goto T78; |
if((V32!= Cnil))goto T78; |
175 |
{object V34 = Ct; |
{object V34 = Ct; |
176 |
VMR2(V34)} |
VMR2(V34)} |
177 |
|
goto T78; |
178 |
T78:; |
T78:; |
179 |
{object V35 = list(2,VV[3],(V17)); |
{object V35 = list(2,VV[3],(V17)); |
180 |
VMR2(V35)}} |
VMR2(V35)}} |
181 |
|
goto T68; |
182 |
T68:; |
T68:; |
183 |
{object V36 = (V16); |
{object V36 = (V16); |
184 |
VMR2(V36)}} |
VMR2(V36)}} |
185 |
|
goto T28; |
186 |
T28:; |
T28:; |
187 |
if(!(type_of((V16))==t_symbol)){ |
if(!(type_of((V16))==t_symbol)){ |
188 |
goto T80;} |
goto T80;} |
200 |
goto T87;} |
goto T87;} |
201 |
{object V37 = Ct; |
{object V37 = Ct; |
202 |
VMR2(V37)} |
VMR2(V37)} |
203 |
|
goto T87; |
204 |
T87:; |
T87:; |
205 |
{object V38 = Cnil; |
{object V38 = Cnil; |
206 |
VMR2(V38)} |
VMR2(V38)} |
207 |
|
goto T83; |
208 |
T83:; |
T83:; |
209 |
{object V39 = (V16); |
{object V39 = (V16); |
210 |
VMR2(V39)} |
VMR2(V39)} |
211 |
|
goto T80; |
212 |
T80:; |
T80:; |
213 |
{object V40 = Ct; |
{object V40 = Ct; |
214 |
VMR2(V40)}} |
VMR2(V40)}} |
215 |
|
base[0]=base[0]; |
216 |
|
return Cnil; |
217 |
} |
} |
218 |
/* local entry for function C1FMLA */ |
/* local entry for function C1FMLA */ |
219 |
|
|
221 |
|
|
222 |
register object V43;register object V44; |
register object V43;register object V44; |
223 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
224 |
|
goto TTL; |
225 |
TTL:; |
TTL:; |
226 |
if(!(type_of((V43))==t_cons)){ |
if(!(type_of((V43))==t_cons)){ |
227 |
goto T91;} |
goto T91;} |
228 |
{object V45= car((V43)); |
{object V45= car((V43)); |
229 |
if((V45!= VV[1]))goto T93;switch(length(cdr((V43)))){ |
if((V45!= VV[1]))goto T93;switch(length(cdr((V43)))){ |
230 |
case 0: |
case 0: |
231 |
|
goto T95; |
232 |
T95:; |
T95:; |
233 |
{object V46 = (*(LnkLI52))(); |
{object V46 = (*(LnkLI52))(); |
234 |
VMR3(V46)} |
VMR3(V46)} |
235 |
case 1: |
case 1: |
236 |
|
goto T96; |
237 |
T96:; |
T96:; |
238 |
V43= cadr((V43)); |
V43= cadr((V43)); |
239 |
goto TTL; |
goto TTL; |
240 |
default: |
default: |
241 |
|
goto T97; |
242 |
T97:; |
T97:; |
243 |
{object V48; |
{object V48; |
244 |
object V49= cdr((V43)); |
object V49= cdr((V43)); |
246 |
V47= Cnil; |
V47= Cnil; |
247 |
goto T102;} |
goto T102;} |
248 |
base[0]=V48=MMcons(Cnil,Cnil); |
base[0]=V48=MMcons(Cnil,Cnil); |
249 |
|
goto T103; |
250 |
T103:; |
T103:; |
251 |
{register object V50; |
{register object V50; |
252 |
V50= (V49->c.c_car); |
V50= (V49->c.c_car); |
256 |
goto T102;} |
goto T102;} |
257 |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
258 |
goto T103;} |
goto T103;} |
259 |
|
goto T102; |
260 |
T102:; |
T102:; |
261 |
{object V51 = make_cons(VV[4],V47); |
{object V51 = make_cons(VV[4],V47); |
262 |
VMR3(V51)} |
VMR3(V51)} |
264 |
VMR3(V52)}} |
VMR3(V52)}} |
265 |
{object V53 = Cnil; |
{object V53 = Cnil; |
266 |
VMR3(V53)} |
VMR3(V53)} |
267 |
|
goto T93; |
268 |
T93:; |
T93:; |
269 |
if((V45!= VV[2]))goto T105;switch(length(cdr((V43)))){ |
if((V45!= VV[2]))goto T105;switch(length(cdr((V43)))){ |
270 |
case 0: |
case 0: |
271 |
|
goto T107; |
272 |
T107:; |
T107:; |
273 |
{object V54 = (*(LnkLI47))(); |
{object V54 = (*(LnkLI47))(); |
274 |
VMR3(V54)} |
VMR3(V54)} |
275 |
case 1: |
case 1: |
276 |
|
goto T108; |
277 |
T108:; |
T108:; |
278 |
V43= cadr((V43)); |
V43= cadr((V43)); |
279 |
goto TTL; |
goto TTL; |
280 |
default: |
default: |
281 |
|
goto T109; |
282 |
T109:; |
T109:; |
283 |
{object V56; |
{object V56; |
284 |
object V57= cdr((V43)); |
object V57= cdr((V43)); |
286 |
V55= Cnil; |
V55= Cnil; |
287 |
goto T114;} |
goto T114;} |
288 |
base[0]=V56=MMcons(Cnil,Cnil); |
base[0]=V56=MMcons(Cnil,Cnil); |
289 |
|
goto T115; |
290 |
T115:; |
T115:; |
291 |
{register object V58; |
{register object V58; |
292 |
V58= (V57->c.c_car); |
V58= (V57->c.c_car); |
296 |
goto T114;} |
goto T114;} |
297 |
V56=MMcdr(V56)=MMcons(Cnil,Cnil); |
V56=MMcdr(V56)=MMcons(Cnil,Cnil); |
298 |
goto T115;} |
goto T115;} |
299 |
|
goto T114; |
300 |
T114:; |
T114:; |
301 |
{object V59 = make_cons(VV[5],V55); |
{object V59 = make_cons(VV[5],V55); |
302 |
VMR3(V59)} |
VMR3(V59)} |
304 |
VMR3(V60)}} |
VMR3(V60)}} |
305 |
{object V61 = Cnil; |
{object V61 = Cnil; |
306 |
VMR3(V61)} |
VMR3(V61)} |
307 |
|
goto T105; |
308 |
T105:; |
T105:; |
309 |
if((V45!= VV[3]) |
if((V45!= VV[3]) |
310 |
&& (V45!= VV[51]))goto T117; |
&& (V45!= VV[51]))goto T117; |
311 |
if(!(endp(cdr((V43))))){ |
if(!(endp(cdr((V43))))){ |
312 |
goto T118;} |
goto T118;} |
313 |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
314 |
|
goto T118; |
315 |
T118:; |
T118:; |
316 |
if(endp(cddr((V43)))){ |
if(endp(cddr((V43)))){ |
317 |
goto T121;} |
goto T121;} |
318 |
V62 = make_fixnum(length(cdr((V43)))); |
V62 = make_fixnum(length(cdr((V43)))); |
319 |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V62)); |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V62)); |
320 |
|
goto T121; |
321 |
T121:; |
T121:; |
322 |
{object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44))); |
{object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44))); |
323 |
VMR3(V63)} |
VMR3(V63)} |
324 |
|
goto T117; |
325 |
T117:; |
T117:; |
326 |
V64= list(3,VV[7],VV[8],(V43)); |
V64= list(3,VV[7],VV[8],(V43)); |
327 |
{object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44)); |
{object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44)); |
328 |
VMR3(V65)}} |
VMR3(V65)}} |
329 |
|
goto T91; |
330 |
T91:; |
T91:; |
331 |
{object V66 = (*(LnkLI50))((V43),(V44)); |
{object V66 = (*(LnkLI50))((V43),(V44)); |
332 |
VMR3(V66)} |
VMR3(V66)} |
333 |
|
base[0]=base[0]; |
334 |
|
return Cnil; |
335 |
} |
} |
336 |
/* function definition for C2IF */ |
/* function definition for C2IF */ |
337 |
|
|
338 |
static L4() |
static void L4() |
339 |
{register object *base=vs_base; |
{register object *base=vs_base; |
340 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
341 |
vs_reserve(VM4); |
vs_reserve(VM4); |
348 |
V68=(base[1]); |
V68=(base[1]); |
349 |
V69=(base[2]); |
V69=(base[2]); |
350 |
vs_top=sup; |
vs_top=sup; |
351 |
|
goto TTL; |
352 |
TTL:; |
TTL:; |
353 |
{register object V70; |
{register object V70; |
354 |
register object V71; |
register object V71; |
373 |
bds_unwind1;} |
bds_unwind1;} |
374 |
if((cdr((V70)))==Cnil){ |
if((cdr((V70)))==Cnil){ |
375 |
goto T139;} |
goto T139;} |
376 |
|
princ_str("\ngoto T",VV[16]); |
377 |
|
(void)((*(LnkLI54))(car((V70)))); |
378 |
|
princ_char(59,VV[16]); |
379 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
380 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(car((V70)))); |
381 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
382 |
|
goto T139; |
383 |
T139:; |
T139:; |
384 |
base[4]= (V68); |
base[4]= (V68); |
385 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
386 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
387 |
return; |
return; |
388 |
|
goto T128; |
389 |
T128:; |
T128:; |
390 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
391 |
V71= make_cons(symbol_value(VV[9]),Cnil); |
V71= make_cons(symbol_value(VV[9]),Cnil); |
396 |
bds_unwind1; |
bds_unwind1; |
397 |
bds_unwind1; |
bds_unwind1; |
398 |
if((cdr((V70)))==Cnil){ |
if((cdr((V70)))==Cnil){ |
399 |
goto T151;} |
goto T155;} |
400 |
|
princ_str("\ngoto T",VV[16]); |
401 |
|
(void)((*(LnkLI54))(car((V70)))); |
402 |
|
princ_char(59,VV[16]); |
403 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
404 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(car((V70)))); |
405 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
406 |
T151:; |
goto T155; |
407 |
|
T155:; |
408 |
base[4]= make_cons(VV[17],symbol_value(VV[15])); |
base[4]= make_cons(VV[17],symbol_value(VV[15])); |
409 |
bds_bind(VV[15],base[4]); |
bds_bind(VV[15],base[4]); |
410 |
base[5]= (V68); |
base[5]= (V68); |
413 |
vs_top=sup; |
vs_top=sup; |
414 |
bds_unwind1; |
bds_unwind1; |
415 |
if((cdr((V71)))==Cnil){ |
if((cdr((V71)))==Cnil){ |
416 |
goto T160;} |
goto T168;} |
417 |
|
princ_str("\ngoto T",VV[16]); |
418 |
|
(void)((*(LnkLI54))(car((V71)))); |
419 |
|
princ_char(59,VV[16]); |
420 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
421 |
(void)((*(LnkLI54))(car((V71)))); |
(void)((*(LnkLI54))(car((V71)))); |
422 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
423 |
T160:; |
goto T168; |
424 |
|
T168:; |
425 |
base[4]= (V69); |
base[4]= (V69); |
426 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
427 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
435 |
object V78;object V79;object V80; |
object V78;object V79;object V80; |
436 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
437 |
bds_check; |
bds_check; |
438 |
|
goto TTL; |
439 |
TTL:; |
TTL:; |
440 |
{object V81= car((V78)); |
{object V81= car((V78)); |
441 |
if((V81!= VV[4]))goto T167; |
if((V81!= VV[4]))goto T179; |
442 |
{register object V82; |
{register object V82; |
443 |
V82= cdr((V78)); |
V82= cdr((V78)); |
444 |
T170:; |
goto T182; |
445 |
|
T182:; |
446 |
if(!(endp(cdr((V82))))){ |
if(!(endp(cdr((V82))))){ |
447 |
goto T171;} |
goto T183;} |
448 |
V78= car((V82)); |
V78= car((V82)); |
449 |
goto TTL; |
goto TTL; |
450 |
T171:; |
goto T183; |
451 |
|
T183:; |
452 |
{register object V83; |
{register object V83; |
453 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
454 |
V83= make_cons(symbol_value(VV[9]),Cnil); |
V83= make_cons(symbol_value(VV[9]),Cnil); |
456 |
(void)((*(LnkLI53))(car((V82)),(V83),(V80))); |
(void)((*(LnkLI53))(car((V82)),(V83),(V80))); |
457 |
if((cdr((V83)))==Cnil){ |
if((cdr((V83)))==Cnil){ |
458 |
bds_unwind1; |
bds_unwind1; |
459 |
goto T179;} |
goto T191;} |
460 |
|
princ_str("\ngoto T",VV[16]); |
461 |
|
(void)((*(LnkLI54))(car((V83)))); |
462 |
|
princ_char(59,VV[16]); |
463 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
464 |
(void)((*(LnkLI54))(car((V83)))); |
(void)((*(LnkLI54))(car((V83)))); |
465 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
466 |
bds_unwind1;} |
bds_unwind1;} |
467 |
T179:; |
goto T191; |
468 |
|
T191:; |
469 |
V82= cdr((V82)); |
V82= cdr((V82)); |
470 |
goto T170;} |
goto T182;} |
471 |
T167:; |
goto T179; |
472 |
if((V81!= VV[5]))goto T192; |
T179:; |
473 |
|
if((V81!= VV[5]))goto T208; |
474 |
{register object V84; |
{register object V84; |
475 |
V84= cdr((V78)); |
V84= cdr((V78)); |
476 |
T195:; |
goto T211; |
477 |
|
T211:; |
478 |
if(!(endp(cdr((V84))))){ |
if(!(endp(cdr((V84))))){ |
479 |
goto T196;} |
goto T212;} |
480 |
V78= car((V84)); |
V78= car((V84)); |
481 |
goto TTL; |
goto TTL; |
482 |
T196:; |
goto T212; |
483 |
|
T212:; |
484 |
{register object V85; |
{register object V85; |
485 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
486 |
V85= make_cons(symbol_value(VV[9]),Cnil); |
V85= make_cons(symbol_value(VV[9]),Cnil); |
488 |
(void)((*(LnkLI56))(car((V84)),(V79),(V85))); |
(void)((*(LnkLI56))(car((V84)),(V79),(V85))); |
489 |
if((cdr((V85)))==Cnil){ |
if((cdr((V85)))==Cnil){ |
490 |
bds_unwind1; |
bds_unwind1; |
491 |
goto T204;} |
goto T220;} |
492 |
|
princ_str("\ngoto T",VV[16]); |
493 |
|
(void)((*(LnkLI54))(car((V85)))); |
494 |
|
princ_char(59,VV[16]); |
495 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
496 |
(void)((*(LnkLI54))(car((V85)))); |
(void)((*(LnkLI54))(car((V85)))); |
497 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
498 |
bds_unwind1;} |
bds_unwind1;} |
499 |
T204:; |
goto T220; |
500 |
|
T220:; |
501 |
V84= cdr((V84)); |
V84= cdr((V84)); |
502 |
goto T195;} |
goto T211;} |
503 |
T192:; |
goto T208; |
504 |
if((V81!= VV[6]))goto T217; |
T208:; |
505 |
|
if((V81!= VV[6]))goto T237; |
506 |
{object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79)); |
{object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79)); |
507 |
VMR5(V86)} |
VMR5(V86)} |
508 |
T217:; |
goto T237; |
509 |
if((V81!= VV[10]))goto T218; |
T237:; |
510 |
|
if((V81!= VV[10]))goto T238; |
511 |
{object V87= caddr((V78)); |
{object V87= caddr((V78)); |
512 |
if((V87!= Ct))goto T219; |
if((V87!= Ct))goto T239; |
513 |
(void)((*(LnkLI57))((V79))); |
(void)((*(LnkLI57))((V79))); |
514 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
515 |
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79)); |
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79)); |
519 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
520 |
{object V88 = Cnil; |
{object V88 = Cnil; |
521 |
VMR5(V88)} |
VMR5(V88)} |
522 |
T219:; |
goto T239; |
523 |
if((V87!= Cnil))goto T226; |
T239:; |
524 |
|
if((V87!= Cnil))goto T246; |
525 |
{object V89 = Cnil; |
{object V89 = Cnil; |
526 |
VMR5(V89)} |
VMR5(V89)} |
527 |
T226:; |
goto T246; |
528 |
|
T246:; |
529 |
base[0]= list(2,VV[18],(V79)); |
base[0]= list(2,VV[18],(V79)); |
530 |
bds_bind(VV[11],base[0]); |
bds_bind(VV[11],base[0]); |
531 |
{object V90 = (*(LnkLI58))((V78)); |
{object V90 = (*(LnkLI58))((V78)); |
532 |
bds_unwind1; |
bds_unwind1; |
533 |
VMR5(V90)}} |
VMR5(V90)}} |
534 |
T218:; |
goto T238; |
535 |
|
T238:; |
536 |
base[0]= list(2,VV[18],(V79)); |
base[0]= list(2,VV[18],(V79)); |
537 |
bds_bind(VV[11],base[0]); |
bds_bind(VV[11],base[0]); |
538 |
{object V91 = (*(LnkLI58))((V78)); |
{object V91 = (*(LnkLI58))((V78)); |
539 |
bds_unwind1; |
bds_unwind1; |
540 |
VMR5(V91)}} |
VMR5(V91)}} |
541 |
|
base[0]=base[0]; |
542 |
|
return Cnil; |
543 |
} |
} |
544 |
/* local entry for function CJF */ |
/* local entry for function CJF */ |
545 |
|
|
548 |
object V95;object V96;object V97; |
object V95;object V96;object V97; |
549 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
550 |
bds_check; |
bds_check; |
551 |
|
goto TTL; |
552 |
TTL:; |
TTL:; |
553 |
{object V98= car((V95)); |
{object V98= car((V95)); |
554 |
if((V98!= VV[4]))goto T229; |
if((V98!= VV[4]))goto T249; |
555 |
{register object V99; |
{register object V99; |
556 |
V99= cdr((V95)); |
V99= cdr((V95)); |
557 |
T232:; |
goto T252; |
558 |
|
T252:; |
559 |
if(!(endp(cdr((V99))))){ |
if(!(endp(cdr((V99))))){ |
560 |
goto T233;} |
goto T253;} |
561 |
V95= car((V99)); |
V95= car((V99)); |
562 |
goto TTL; |
goto TTL; |
563 |
T233:; |
goto T253; |
564 |
|
T253:; |
565 |
{register object V100; |
{register object V100; |
566 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
567 |
V100= make_cons(symbol_value(VV[9]),Cnil); |
V100= make_cons(symbol_value(VV[9]),Cnil); |
569 |
(void)((*(LnkLI53))(car((V99)),(V100),(V97))); |
(void)((*(LnkLI53))(car((V99)),(V100),(V97))); |
570 |
if((cdr((V100)))==Cnil){ |
if((cdr((V100)))==Cnil){ |
571 |
bds_unwind1; |
bds_unwind1; |
572 |
goto T241;} |
goto T261;} |
573 |
|
princ_str("\ngoto T",VV[16]); |
574 |
|
(void)((*(LnkLI54))(car((V100)))); |
575 |
|
princ_char(59,VV[16]); |
576 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
577 |
(void)((*(LnkLI54))(car((V100)))); |
(void)((*(LnkLI54))(car((V100)))); |
578 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
579 |
bds_unwind1;} |
bds_unwind1;} |
580 |
T241:; |
goto T261; |
581 |
|
T261:; |
582 |
V99= cdr((V99)); |
V99= cdr((V99)); |
583 |
goto T232;} |
goto T252;} |
584 |
T229:; |
goto T249; |
585 |
if((V98!= VV[5]))goto T254; |
T249:; |
586 |
|
if((V98!= VV[5]))goto T278; |
587 |
{register object V101; |
{register object V101; |
588 |
V101= cdr((V95)); |
V101= cdr((V95)); |
589 |
T257:; |
goto T281; |
590 |
|
T281:; |
591 |
if(!(endp(cdr((V101))))){ |
if(!(endp(cdr((V101))))){ |
592 |
goto T258;} |
goto T282;} |
593 |
V95= car((V101)); |
V95= car((V101)); |
594 |
goto TTL; |
goto TTL; |
595 |
T258:; |
goto T282; |
596 |
|
T282:; |
597 |
{register object V102; |
{register object V102; |
598 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
599 |
V102= make_cons(symbol_value(VV[9]),Cnil); |
V102= make_cons(symbol_value(VV[9]),Cnil); |
601 |
(void)((*(LnkLI56))(car((V101)),(V96),(V102))); |
(void)((*(LnkLI56))(car((V101)),(V96),(V102))); |
602 |
if((cdr((V102)))==Cnil){ |
if((cdr((V102)))==Cnil){ |
603 |
bds_unwind1; |
bds_unwind1; |
604 |
goto T266;} |
goto T290;} |
605 |
|
princ_str("\ngoto T",VV[16]); |
606 |
|
(void)((*(LnkLI54))(car((V102)))); |
607 |
|
princ_char(59,VV[16]); |
608 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
609 |
(void)((*(LnkLI54))(car((V102)))); |
(void)((*(LnkLI54))(car((V102)))); |
610 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
611 |
bds_unwind1;} |
bds_unwind1;} |
612 |
T266:; |
goto T290; |
613 |
|
T290:; |
614 |
V101= cdr((V101)); |
V101= cdr((V101)); |
615 |
goto T257;} |
goto T281;} |
616 |
T254:; |
goto T278; |
617 |
if((V98!= VV[6]))goto T279; |
T278:; |
618 |
|
if((V98!= VV[6]))goto T307; |
619 |
{object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96)); |
{object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96)); |
620 |
VMR6(V103)} |
VMR6(V103)} |
621 |
T279:; |
goto T307; |
622 |
if((V98!= VV[10]))goto T280; |
T307:; |
623 |
|
if((V98!= VV[10]))goto T308; |
624 |
{object V104= caddr((V95)); |
{object V104= caddr((V95)); |
625 |
if((V104!= Ct))goto T281; |
if((V104!= Ct))goto T309; |
626 |
{object V105 = Cnil; |
{object V105 = Cnil; |
627 |
VMR6(V105)} |
VMR6(V105)} |
628 |
T281:; |
goto T309; |
629 |
if((V104!= Cnil))goto T282; |
T309:; |
630 |
|
if((V104!= Cnil))goto T310; |
631 |
(void)((*(LnkLI57))((V97))); |
(void)((*(LnkLI57))((V97))); |
632 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
633 |
if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97)); |
if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97)); |
637 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
638 |
{object V106 = Cnil; |
{object V106 = Cnil; |
639 |
VMR6(V106)} |
VMR6(V106)} |
640 |
T282:; |
goto T310; |
641 |
|
T310:; |
642 |
base[0]= list(2,VV[19],(V97)); |
base[0]= list(2,VV[19],(V97)); |
643 |
bds_bind(VV[11],base[0]); |
bds_bind(VV[11],base[0]); |
644 |
{object V107 = (*(LnkLI58))((V95)); |
{object V107 = (*(LnkLI58))((V95)); |
645 |
bds_unwind1; |
bds_unwind1; |
646 |
VMR6(V107)}} |
VMR6(V107)}} |
647 |
T280:; |
goto T308; |
648 |
|
T308:; |
649 |
base[0]= list(2,VV[19],(V97)); |
base[0]= list(2,VV[19],(V97)); |
650 |
bds_bind(VV[11],base[0]); |
bds_bind(VV[11],base[0]); |
651 |
{object V108 = (*(LnkLI58))((V95)); |
{object V108 = (*(LnkLI58))((V95)); |
652 |
bds_unwind1; |
bds_unwind1; |
653 |
VMR6(V108)}} |
VMR6(V108)}} |
654 |
|
base[0]=base[0]; |
655 |
|
return Cnil; |
656 |
} |
} |
657 |
/* local entry for function C1AND */ |
/* local entry for function C1AND */ |
658 |
|
|
660 |
|
|
661 |
register object V110; |
register object V110; |
662 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
663 |
|
goto TTL; |
664 |
TTL:; |
TTL:; |
665 |
if(!(endp((V110)))){ |
if(!(endp((V110)))){ |
666 |
goto T292;} |
goto T320;} |
667 |
{object V111 = (*(LnkLI52))(); |
{object V111 = (*(LnkLI52))(); |
668 |
VMR7(V111)} |
VMR7(V111)} |
669 |
T292:; |
goto T320; |
670 |
|
T320:; |
671 |
if(!(endp(cdr((V110))))){ |
if(!(endp(cdr((V110))))){ |
672 |
goto T295;} |
goto T323;} |
673 |
{object V112 = (*(LnkLI46))(car((V110))); |
{object V112 = (*(LnkLI46))(car((V110))); |
674 |
VMR7(V112)} |
VMR7(V112)} |
675 |
T295:; |
goto T323; |
676 |
|
T323:; |
677 |
{object V113; |
{object V113; |
678 |
V113= (VFUN_NARGS=0,(*(LnkLI48))()); |
V113= (VFUN_NARGS=0,(*(LnkLI48))()); |
679 |
{object V114 = list(3,VV[1],(V113),(*(LnkLI59))((V110),(V113))); |
{object V114 = list(3,VV[1],(V113),(*(LnkLI59))((V110),(V113))); |
680 |
VMR7(V114)}} |
VMR7(V114)}} |
681 |
|
return Cnil; |
682 |
} |
} |
683 |
/* function definition for C2AND */ |
/* function definition for C2AND */ |
684 |
|
|
685 |
static L8() |
static void L8() |
686 |
{register object *base=vs_base; |
{register object *base=vs_base; |
687 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
688 |
vs_reserve(VM8); |
vs_reserve(VM8); |
691 |
check_arg(1); |
check_arg(1); |
692 |
V115=(base[0]); |
V115=(base[0]); |
693 |
vs_top=sup; |
vs_top=sup; |
694 |
|
goto TTL; |
695 |
TTL:; |
TTL:; |
696 |
{register object V116; |
{register object V116; |
697 |
V116= (V115); |
V116= (V115); |
698 |
T299:; |
goto T327; |
699 |
|
T327:; |
700 |
if(!(endp(cdr((V116))))){ |
if(!(endp(cdr((V116))))){ |
701 |
goto T300;} |
goto T328;} |
702 |
base[1]= car((V116)); |
base[1]= car((V116)); |
703 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
704 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
705 |
return; |
return; |
706 |
T300:; |
goto T328; |
707 |
|
T328:; |
708 |
if(!((caar((V116)))==(VV[10]))){ |
if(!((caar((V116)))==(VV[10]))){ |
709 |
goto T307;} |
goto T335;} |
710 |
{object V117= caddar((V116)); |
{object V117= caddar((V116)); |
711 |
if((V117!= Ct))goto T309; |
if((V117!= Ct))goto T337; |
712 |
goto T305; |
goto T333; |
713 |
T309:; |
goto T337; |
714 |
if((V117!= Cnil))goto T310; |
T337:; |
715 |
|
if((V117!= Cnil))goto T338; |
716 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
717 |
goto T305; |
goto T333; |
718 |
T310:; |
goto T338; |
719 |
|
T338:; |
720 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
721 |
(void)((*(LnkLI54))(caddar((V116)))); |
(void)((*(LnkLI54))(caddar((V116)))); |
722 |
princ_str("==Cnil){",VV[16]); |
princ_str("==Cnil){",VV[16]); |
723 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
724 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
725 |
goto T305;} |
goto T333;} |
726 |
T307:; |
goto T335; |
727 |
|
T335:; |
728 |
if(!((caar((V116)))==(VV[20]))){ |
if(!((caar((V116)))==(VV[20]))){ |
729 |
goto T318;} |
goto T346;} |
730 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
731 |
(void)((*(LnkLI61))(car(caddar((V116))),cadr(caddar((V116))))); |
(void)((*(LnkLI61))(car(caddar((V116))),cadr(caddar((V116))))); |
732 |
princ_str("==Cnil){",VV[16]); |
princ_str("==Cnil){",VV[16]); |
733 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
734 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
735 |
goto T305; |
goto T333; |
736 |
T318:; |
goto T346; |
737 |
|
T346:; |
738 |
{register object V118; |
{register object V118; |
739 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
740 |
V118= make_cons(symbol_value(VV[9]),Cnil); |
V118= make_cons(symbol_value(VV[9]),Cnil); |
746 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
747 |
if((cdr((V118)))==Cnil){ |
if((cdr((V118)))==Cnil){ |
748 |
bds_unwind1; |
bds_unwind1; |
749 |
goto T305;} |
goto T333;} |
750 |
|
princ_str("\ngoto T",VV[16]); |
751 |
|
(void)((*(LnkLI54))(car((V118)))); |
752 |
|
princ_char(59,VV[16]); |
753 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
754 |
(void)((*(LnkLI54))(car((V118)))); |
(void)((*(LnkLI54))(car((V118)))); |
755 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
756 |
bds_unwind1;} |
bds_unwind1;} |
757 |
T305:; |
goto T333; |
758 |
|
T333:; |
759 |
V116= cdr((V116)); |
V116= cdr((V116)); |
760 |
goto T299;} |
goto T327;} |
761 |
} |
} |
762 |
} |
} |
763 |
/* local entry for function C1OR */ |
/* local entry for function C1OR */ |
766 |
|
|
767 |
register object V121; |
register object V121; |
768 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
769 |
|
goto TTL; |
770 |
TTL:; |
TTL:; |
771 |
if(!(endp((V121)))){ |
if(!(endp((V121)))){ |
772 |
goto T342;} |
goto T374;} |
773 |
{object V122 = (*(LnkLI47))(); |
{object V122 = (*(LnkLI47))(); |
774 |
VMR9(V122)} |
VMR9(V122)} |
775 |
T342:; |
goto T374; |
776 |
|
T374:; |
777 |
if(!(endp(cdr((V121))))){ |
if(!(endp(cdr((V121))))){ |
778 |
goto T345;} |
goto T377;} |
779 |
{object V123 = (*(LnkLI46))(car((V121))); |
{object V123 = (*(LnkLI46))(car((V121))); |
780 |
VMR9(V123)} |
VMR9(V123)} |
781 |
T345:; |
goto T377; |
782 |
|
T377:; |
783 |
{object V124; |
{object V124; |
784 |
V124= (VFUN_NARGS=0,(*(LnkLI48))()); |
V124= (VFUN_NARGS=0,(*(LnkLI48))()); |
785 |
{object V125 = list(3,VV[2],(V124),(*(LnkLI59))((V121),(V124))); |
{object V125 = list(3,VV[2],(V124),(*(LnkLI59))((V121),(V124))); |
786 |
VMR9(V125)}} |
VMR9(V125)}} |
787 |
|
return Cnil; |
788 |
} |
} |
789 |
/* function definition for C2OR */ |
/* function definition for C2OR */ |
790 |
|
|
791 |
static L10() |
static void L10() |
792 |
{register object *base=vs_base; |
{register object *base=vs_base; |
793 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
794 |
vs_reserve(VM10); |
vs_reserve(VM10); |
797 |
check_arg(1); |
check_arg(1); |
798 |
V126=(base[0]); |
V126=(base[0]); |
799 |
vs_top=sup; |
vs_top=sup; |
800 |
|
goto TTL; |
801 |
TTL:; |
TTL:; |
802 |
{object V127; |
{object V127; |
803 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],symbol_value(VV[21])); |
804 |
V127= Cnil; |
V127= Cnil; |
805 |
{register object V128; |
{register object V128; |
806 |
V128= (V126); |
V128= (V126); |
807 |
T350:; |
goto T382; |
808 |
|
T382:; |
809 |
if(!(endp(cdr((V128))))){ |
if(!(endp(cdr((V128))))){ |
810 |
goto T351;} |
goto T383;} |
811 |
base[2]= car((V128)); |
base[2]= car((V128)); |
812 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
813 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
814 |
bds_unwind1; |
bds_unwind1; |
815 |
return; |
return; |
816 |
T351:; |
goto T383; |
817 |
|
T383:; |
818 |
if(!((caar((V128)))==(VV[10]))){ |
if(!((caar((V128)))==(VV[10]))){ |
819 |
goto T358;} |
goto T390;} |
820 |
{object V129= caddar((V128)); |
{object V129= caddar((V128)); |
821 |
if((V129!= Ct))goto T360; |
if((V129!= Ct))goto T392; |
822 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
823 |
goto T356; |
goto T388; |
824 |
T360:; |
goto T392; |
825 |
if((V129!= Cnil))goto T361; |
T392:; |
826 |
goto T356; |
if((V129!= Cnil))goto T393; |
827 |
T361:; |
goto T388; |
828 |
|
goto T393; |
829 |
|
T393:; |
830 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
831 |
(void)((*(LnkLI54))(caddar((V128)))); |
(void)((*(LnkLI54))(caddar((V128)))); |
832 |
princ_str("!=Cnil){",VV[16]); |
princ_str("!=Cnil){",VV[16]); |
833 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17]))); |
834 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
835 |
goto T356;} |
goto T388;} |
836 |
T358:; |
goto T390; |
837 |
|
T390:; |
838 |
if(!((caar((V128)))==(VV[20]))){ |
if(!((caar((V128)))==(VV[20]))){ |
839 |
goto T369;} |
goto T401;} |
840 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
841 |
(void)((*(LnkLI61))(car(caddar((V128))),cadr(caddar((V128))))); |
(void)((*(LnkLI61))(car(caddar((V128))),cadr(caddar((V128))))); |
842 |
princ_str("!=Cnil){",VV[16]); |
princ_str("!=Cnil){",VV[16]); |
843 |
V130= make_cons(VV[20],caddar((V128))); |
V130= make_cons(VV[20],caddar((V128))); |
844 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17]))); |
845 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
846 |
goto T356; |
goto T388; |
847 |
T369:; |
goto T401; |
848 |
|
T401:; |
849 |
if(!((caar((V128)))==(VV[22]))){ |
if(!((caar((V128)))==(VV[22]))){ |
850 |
goto T379;} |
goto T411;} |
851 |
if((get(caddar((V128)),VV[23],Cnil))==Cnil){ |
if((get(caddar((V128)),VV[23],Cnil))==Cnil){ |
852 |
goto T379;} |
goto T411;} |
853 |
{register object V131; |
{register object V131; |
854 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
855 |
V131= make_cons(symbol_value(VV[9]),Cnil); |
V131= make_cons(symbol_value(VV[9]),Cnil); |
861 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
862 |
if((cdr((V131)))==Cnil){ |
if((cdr((V131)))==Cnil){ |
863 |
bds_unwind1; |
bds_unwind1; |
864 |
goto T356;} |
goto T388;} |
865 |
|
princ_str("\ngoto T",VV[16]); |
866 |
|
(void)((*(LnkLI54))(car((V131)))); |
867 |
|
princ_char(59,VV[16]); |
868 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
869 |
(void)((*(LnkLI54))(car((V131)))); |
(void)((*(LnkLI54))(car((V131)))); |
870 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
871 |
bds_unwind1; |
bds_unwind1; |
872 |
goto T356;} |
goto T388;} |
873 |
T379:; |
goto T411; |
874 |
|
T411:; |
875 |
{register object V133; |
{register object V133; |
876 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
877 |
V133= make_cons(symbol_value(VV[9]),Cnil); |
V133= make_cons(symbol_value(VV[9]),Cnil); |
891 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
892 |
(void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17]))); |
893 |
if((cdr((V133)))==Cnil){ |
if((cdr((V133)))==Cnil){ |
894 |
goto T410;} |
goto T446;} |
895 |
|
princ_str("\ngoto T",VV[16]); |
896 |
|
(void)((*(LnkLI54))(car((V133)))); |
897 |
|
princ_char(59,VV[16]); |
898 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
899 |
(void)((*(LnkLI54))(car((V133)))); |
(void)((*(LnkLI54))(car((V133)))); |
900 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
901 |
T410:; |
goto T446; |
902 |
|
T446:; |
903 |
V135= (*(LnkLI63))(); |
V135= (*(LnkLI63))(); |
904 |
bds_unwind1; |
bds_unwind1; |
905 |
bds_unwind1;} |
bds_unwind1;} |
906 |
T356:; |
goto T388; |
907 |
|
T388:; |
908 |
V128= cdr((V128)); |
V128= cdr((V128)); |
909 |
goto T350;}} |
goto T382;}} |
910 |
} |
} |
911 |
} |
} |
912 |
/* local entry for function SET-JUMP-TRUE */ |
/* local entry for function SET-JUMP-TRUE */ |
915 |
|
|
916 |
register object V138;object V139; |
register object V138;object V139; |
917 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
918 |
|
goto TTL; |
919 |
TTL:; |
TTL:; |
920 |
if(((V138))==Cnil){ |
if(((V138))==Cnil){ |
921 |
goto T420;} |
goto T460;} |
922 |
{object V140; |
{object V140; |
923 |
V140= (((V138))==(Ct)?Ct:Cnil); |
V140= (((V138))==(Ct)?Ct:Cnil); |
924 |
if(((V140))==Cnil){ |
if(((V140))==Cnil){ |
925 |
goto T425;} |
goto T465;} |
926 |
goto T422; |
goto T462; |
927 |
T425:; |
goto T465; |
928 |
|
T465:; |
929 |
if(!(type_of((V138))==t_cons)){ |
if(!(type_of((V138))==t_cons)){ |
930 |
goto T428;} |
goto T468;} |
931 |
if(!((car((V138)))==(VV[25]))){ |
if(!((car((V138)))==(VV[25]))){ |
932 |
goto T428;} |
goto T468;} |
933 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
934 |
base[0]= caddr((V138)); |
base[0]= caddr((V138)); |
935 |
base[1]= cadddr((V138)); |
base[1]= cadddr((V138)); |
937 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
938 |
vs_top=sup; |
vs_top=sup; |
939 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
940 |
goto T422; |
goto T462; |
941 |
T428:; |
goto T468; |
942 |
|
T468:; |
943 |
princ_str("\n if((",VV[16]); |
princ_str("\n if((",VV[16]); |
944 |
(void)((*(LnkLI54))((V138))); |
(void)((*(LnkLI54))((V138))); |
945 |
princ_str(")!=Cnil)",VV[16]);} |
princ_str(")!=Cnil)",VV[16]);} |
946 |
T422:; |
goto T462; |
947 |
|
T462:; |
948 |
if(((V138))==(Ct)){ |
if(((V138))==(Ct)){ |
949 |
goto T441;} |
goto T481;} |
950 |
princ_char(123,VV[16]); |
princ_char(123,VV[16]); |
951 |
T441:; |
goto T481; |
952 |
|
T481:; |
953 |
(void)((*(LnkLI57))((V139))); |
(void)((*(LnkLI57))((V139))); |
954 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
955 |
if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139)); |
if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139)); |
958 |
(void)((*(LnkLI54))(car((V139)))); |
(void)((*(LnkLI54))(car((V139)))); |
959 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
960 |
if(((V138))==(Ct)){ |
if(((V138))==(Ct)){ |
961 |
goto T453;} |
goto T493;} |
962 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
963 |
{object V141 = Cnil; |
{object V141 = Cnil; |
964 |
VMR11(V141)} |
VMR11(V141)} |
965 |
T453:; |
goto T493; |
966 |
|
T493:; |
967 |
{object V142 = Cnil; |
{object V142 = Cnil; |
968 |
VMR11(V142)} |
VMR11(V142)} |
969 |
T420:; |
goto T460; |
970 |
|
T460:; |
971 |
{object V143 = Cnil; |
{object V143 = Cnil; |
972 |
VMR11(V143)} |
VMR11(V143)} |
973 |
|
base[0]=base[0]; |
974 |
|
return Cnil; |
975 |
} |
} |
976 |
/* local entry for function SET-JUMP-FALSE */ |
/* local entry for function SET-JUMP-FALSE */ |
977 |
|
|
979 |
|
|
980 |
register object V146;object V147; |
register object V146;object V147; |
981 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
982 |
|
goto TTL; |
983 |
TTL:; |
TTL:; |
984 |
if(((V146))==(Ct)){ |
if(((V146))==(Ct)){ |
985 |
goto T457;} |
goto T497;} |
986 |
{object V148; |
{object V148; |
987 |
V148= (((V146))==Cnil?Ct:Cnil); |
V148= (((V146))==Cnil?Ct:Cnil); |
988 |
if(((V148))==Cnil){ |
if(((V148))==Cnil){ |
989 |
goto T462;} |
goto T502;} |
990 |
goto T459; |
goto T499; |
991 |
T462:; |
goto T502; |
992 |
|
T502:; |
993 |
if(!(type_of((V146))==t_cons)){ |
if(!(type_of((V146))==t_cons)){ |
994 |
goto T465;} |
goto T505;} |
995 |
if(!((car((V146)))==(VV[25]))){ |
if(!((car((V146)))==(VV[25]))){ |
996 |
goto T465;} |
goto T505;} |
997 |
princ_str("\n if(!(",VV[16]); |
princ_str("\n if(!(",VV[16]); |
998 |
base[0]= caddr((V146)); |
base[0]= caddr((V146)); |
999 |
base[1]= cadddr((V146)); |
base[1]= cadddr((V146)); |
1001 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
1002 |
vs_top=sup; |
vs_top=sup; |
1003 |
princ_str("))",VV[16]); |
princ_str("))",VV[16]); |
1004 |
goto T459; |
goto T499; |
1005 |
T465:; |
goto T505; |
1006 |
|
T505:; |
1007 |
princ_str("\n if((",VV[16]); |
princ_str("\n if((",VV[16]); |
1008 |
(void)((*(LnkLI54))((V146))); |
(void)((*(LnkLI54))((V146))); |
1009 |
princ_str(")==Cnil)",VV[16]);} |
princ_str(")==Cnil)",VV[16]);} |
1010 |
T459:; |
goto T499; |
1011 |
|
T499:; |
1012 |
if(((V146))==Cnil){ |
if(((V146))==Cnil){ |
1013 |
goto T478;} |
goto T518;} |
1014 |
princ_char(123,VV[16]); |
princ_char(123,VV[16]); |
1015 |
T478:; |
goto T518; |
1016 |
|
T518:; |
1017 |
(void)((*(LnkLI57))((V147))); |
(void)((*(LnkLI57))((V147))); |
1018 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
1019 |
if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147)); |
if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147)); |
1022 |
(void)((*(LnkLI54))(car((V147)))); |
(void)((*(LnkLI54))(car((V147)))); |
1023 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1024 |
if(((V146))==Cnil){ |
if(((V146))==Cnil){ |
1025 |
goto T490;} |
goto T530;} |
1026 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
1027 |
{object V149 = Cnil; |
{object V149 = Cnil; |
1028 |
VMR12(V149)} |
VMR12(V149)} |
1029 |
T490:; |
goto T530; |
1030 |
|
T530:; |
1031 |
{object V150 = Cnil; |
{object V150 = Cnil; |
1032 |
VMR12(V150)} |
VMR12(V150)} |
1033 |
T457:; |
goto T497; |
1034 |
|
T497:; |
1035 |
{object V151 = Cnil; |
{object V151 = Cnil; |
1036 |
VMR12(V151)} |
VMR12(V151)} |
1037 |
|
base[0]=base[0]; |
1038 |
|
return Cnil; |
1039 |
} |
} |
1040 |
/* local entry for function C1ECASE */ |
/* local entry for function C1ECASE */ |
1041 |
|
|
1043 |
|
|
1044 |
object V153; |
object V153; |
1045 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1046 |
|
goto TTL; |
1047 |
TTL:; |
TTL:; |
1048 |
{object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct)); |
{object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct)); |
1049 |
VMR13(V154)} |
VMR13(V154)} |
1050 |
|
return Cnil; |
1051 |
} |
} |
1052 |
/* local entry for function CONVERT-CASE-TO-SWITCH */ |
/* local entry for function CONVERT-CASE-TO-SWITCH */ |
1053 |
|
|
1055 |
|
|
1056 |
object V157;object V158; |
object V157;object V158; |
1057 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1058 |
|
goto TTL; |
1059 |
TTL:; |
TTL:; |
1060 |
{object V159; |
{object V159; |
1061 |
register object V160; |
register object V160; |
1070 |
register object V163; |
register object V163; |
1071 |
V162= cdr((V157)); |
V162= cdr((V157)); |
1072 |
V163= car((V162)); |
V163= car((V162)); |
1073 |
T498:; |
goto T538; |
1074 |
|
T538:; |
1075 |
if(!(endp((V162)))){ |
if(!(endp((V162)))){ |
1076 |
goto T499;} |
goto T539;} |
1077 |
goto T494; |
goto T534; |
1078 |
T499:; |
goto T539; |
1079 |
|
T539:; |
1080 |
if(!(type_of(car((V163)))==t_fixnum)){ |
if(!(type_of(car((V163)))==t_fixnum)){ |
1081 |
goto T505;} |
goto T545;} |
1082 |
V160= make_cons(car((V163)),(V160)); |
V160= make_cons(car((V163)),(V160)); |
1083 |
goto T503; |
goto T543; |
1084 |
T505:; |
goto T545; |
1085 |
|
T545:; |
1086 |
if(!(type_of(car((V163)))==t_cons)){ |
if(!(type_of(car((V163)))==t_cons)){ |
1087 |
goto T509;} |
goto T549;} |
1088 |
{register object V164; |
{register object V164; |
1089 |
register object V165; |
register object V165; |
1090 |
V164= car((V163)); |
V164= car((V163)); |
1091 |
V165= car((V164)); |
V165= car((V164)); |
1092 |
T514:; |
goto T554; |
1093 |
|
T554:; |
1094 |
if(!(endp((V164)))){ |
if(!(endp((V164)))){ |
1095 |
goto T515;} |
goto T555;} |
1096 |
goto T503; |
goto T543; |
1097 |
T515:; |
goto T555; |
1098 |
|
T555:; |
1099 |
V160= make_cons((V165),(V160)); |
V160= make_cons((V165),(V160)); |
1100 |
V164= cdr((V164)); |
V164= cdr((V164)); |
1101 |
V165= car((V164)); |
V165= car((V164)); |
1102 |
goto T514;} |
goto T554;} |
1103 |
T509:; |
goto T549; |
1104 |
|
T549:; |
1105 |
{register object x= car((V163)),V166= VV[26]; |
{register object x= car((V163)),V166= VV[26]; |
1106 |
while(!endp(V166)) |
while(!endp(V166)) |
1107 |
if(eql(x,V166->c.c_car)){ |
if(eql(x,V166->c.c_car)){ |
1108 |
goto T527; |
goto T567; |
1109 |
}else V166=V166->c.c_cdr; |
}else V166=V166->c.c_cdr; |
1110 |
goto T503;} |
goto T543;} |
1111 |
T527:; |
goto T567; |
1112 |
|
T567:; |
1113 |
if((V158)==Cnil){ |
if((V158)==Cnil){ |
1114 |
goto T528;} |
goto T568;} |
1115 |
base[2]= VV[27]; |
base[2]= VV[27]; |
1116 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1117 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1118 |
vs_top=sup; |
vs_top=sup; |
1119 |
T528:; |
goto T568; |
1120 |
|
T568:; |
1121 |
V160= make_cons(Ct,(V160)); |
V160= make_cons(Ct,(V160)); |
1122 |
T503:; |
goto T543; |
1123 |
|
T543:; |
1124 |
V167= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163)))); |
V167= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163)))); |
1125 |
V160= make_cons(/* INLINE-ARGS */V167,(V160)); |
V160= make_cons(/* INLINE-ARGS */V167,(V160)); |
1126 |
V162= cdr((V162)); |
V162= cdr((V162)); |
1127 |
V163= car((V162)); |
V163= car((V162)); |
|
goto T498;} |
|
|
T494:; |
|
|
if(((V158))==Cnil){ |
|
1128 |
goto T538;} |
goto T538;} |
1129 |
|
goto T534; |
1130 |
|
T534:; |
1131 |
|
if(((V158))==Cnil){ |
1132 |
|
goto T578;} |
1133 |
V160= make_cons(Ct,(V160)); |
V160= make_cons(Ct,(V160)); |
1134 |
{register object V168; |
{register object V168; |
1135 |
object V169; |
object V169; |
1136 |
V168= cdr((V157)); |
V168= cdr((V157)); |
1137 |
V169= car((V168)); |
V169= car((V168)); |
1138 |
T547:; |
goto T587; |
1139 |
|
T587:; |
1140 |
if(!(endp((V168)))){ |
if(!(endp((V168)))){ |
1141 |
goto T548;} |
goto T588;} |
1142 |
goto T543; |
goto T583; |
1143 |
T548:; |
goto T588; |
1144 |
|
T588:; |
1145 |
if(!(type_of(car((V169)))!=t_cons)){ |
if(!(type_of(car((V169)))!=t_cons)){ |
1146 |
goto T554;} |
goto T594;} |
1147 |
V161= make_cons(car((V169)),(V161)); |
V161= make_cons(car((V169)),(V161)); |
1148 |
goto T552; |
goto T592; |
1149 |
T554:; |
goto T594; |
1150 |
|
T594:; |
1151 |
V161= append(car((V169)),(V161)); |
V161= append(car((V169)),(V161)); |
1152 |
T552:; |
goto T592; |
1153 |
|
T592:; |
1154 |
V168= cdr((V168)); |
V168= cdr((V168)); |
1155 |
V169= car((V168)); |
V169= car((V168)); |
1156 |
goto T547;} |
goto T587;} |
1157 |
T543:; |
goto T583; |
1158 |
|
T583:; |
1159 |
V170= car((V157)); |
V170= car((V157)); |
1160 |
V171= list(4,VV[30],VV[31],/* INLINE-ARGS */V170,list(2,VV[32],(V161))); |
V171= list(4,VV[30],VV[31],/* INLINE-ARGS */V170,list(2,VV[32],(V161))); |
1161 |
V160= make_cons(/* INLINE-ARGS */V171,(V160)); |
V160= make_cons(/* INLINE-ARGS */V171,(V160)); |
1162 |
T538:; |
goto T578; |
1163 |
|
T578:; |
1164 |
V172= car((V157)); |
V172= car((V157)); |
1165 |
{object V173 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V172,nreverse((V160)))); |
{object V173 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V172,nreverse((V160)))); |
1166 |
VMR14(V173)}} |
VMR14(V173)}} |
1167 |
|
base[0]=base[0]; |
1168 |
|
return Cnil; |
1169 |
} |
} |
1170 |
/* local entry for function C1CASE */ |
/* local entry for function C1CASE */ |
1171 |
|
|
1177 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
1178 |
{object V175; |
{object V175; |
1179 |
register object V176; |
register object V176; |
1180 |
|
Vcs[0]=Vcs[0]; |
1181 |
|
va_start(ap); |
1182 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1183 |
V175= V174; |
V175= V174; |
1184 |
narg = narg - 1; |
narg = narg - 1; |
1185 |
if (narg <= 0) goto T564; |
if (narg <= 0) goto T604; |
1186 |
else { |
else { |
|
va_start(ap); |
|
1187 |
V176= va_arg(ap,object);} |
V176= va_arg(ap,object);} |
1188 |
--narg; goto T565; |
--narg; goto T605; |
1189 |
T564:; |
goto T604; |
1190 |
|
T604:; |
1191 |
V176= Cnil; |
V176= Cnil; |
1192 |
T565:; |
goto T605; |
1193 |
|
T605:; |
1194 |
if(!(endp((V175)))){ |
if(!(endp((V175)))){ |
1195 |
goto T567;} |
goto T607;} |
1196 |
(void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0))); |
1197 |
T567:; |
goto T607; |
1198 |
|
T607:; |
1199 |
{register object V177; |
{register object V177; |
1200 |
object V178; |
object V178; |
1201 |
object V179; |
object V179; |
1208 |
(void) (*Lnk67)(); |
(void) (*Lnk67)(); |
1209 |
vs_top=sup; |
vs_top=sup; |
1210 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1211 |
goto T573;} |
goto T613;} |
1212 |
V180= (*(LnkLI68))((V175),(V176)); |
V180= (*(LnkLI68))((V175),(V176)); |
1213 |
{object V181 = (*(LnkLI46))(/* INLINE-ARGS */V180); |
{object V181 = (*(LnkLI46))(/* INLINE-ARGS */V180); |
1214 |
VMR15(V181)} |
VMR15(V181)} |
1215 |
T573:; |
goto T613; |
1216 |
|
T613:; |
1217 |
{register object V182; |
{register object V182; |
1218 |
register object V183; |
register object V183; |
1219 |
V182= cdr((V175)); |
V182= cdr((V175)); |
1220 |
V183= car((V182)); |
V183= car((V182)); |
1221 |
T582:; |
goto T622; |
1222 |
|
T622:; |
1223 |
if(!(endp((V182)))){ |
if(!(endp((V182)))){ |
1224 |
goto T583;} |
goto T623;} |
1225 |
goto T578; |
goto T618; |
1226 |
T583:; |
goto T623; |
1227 |
|
T623:; |
1228 |
if(!(endp((V183)))){ |
if(!(endp((V183)))){ |
1229 |
goto T587;} |
goto T627;} |
1230 |
(void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V183)))); |
(void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V183)))); |
1231 |
T587:; |
goto T627; |
1232 |
|
T627:; |
1233 |
{object V184= car((V183)); |
{object V184= car((V183)); |
1234 |
if((V184!= Cnil))goto T591; |
if((V184!= Cnil))goto T631; |
1235 |
goto T590; |
goto T630; |
1236 |
T591:; |
goto T631; |
1237 |
|
T631:; |
1238 |
if((V184!= Ct) |
if((V184!= Ct) |
1239 |
&& (V184!= VV[70]))goto T592; |
&& (V184!= VV[70]))goto T632; |
1240 |
if(((V176))==Cnil){ |
if(((V176))==Cnil){ |
1241 |
goto T593;} |
goto T633;} |
1242 |
if(!(((V176))==(Ct))){ |
if(!(((V176))==(Ct))){ |
1243 |
goto T598;} |
goto T638;} |
1244 |
V185= VV[39]; |
V185= VV[39]; |
1245 |
goto T596; |
goto T636; |
1246 |
T598:; |
goto T638; |
1247 |
|
T638:; |
1248 |
V185= VV[40]; |
V185= VV[40]; |
1249 |
T596:; |
goto T636; |
1250 |
|
T636:; |
1251 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(V185))); |
(void)((VFUN_NARGS=1,(*(LnkLI69))(V185))); |
1252 |
T593:; |
goto T633; |
1253 |
|
T633:; |
1254 |
V176= (*(LnkLI71))(cdr((V183))); |
V176= (*(LnkLI71))(cdr((V183))); |
1255 |
(void)((*(LnkLI72))((V177),cadr((V176)))); |
(void)((*(LnkLI72))((V177),cadr((V176)))); |
1256 |
goto T590; |
goto T630; |
1257 |
T592:; |
goto T632; |
1258 |
|
T632:; |
1259 |
{object V186; |
{object V186; |
1260 |
register object V187; |
register object V187; |
1261 |
if(!(type_of(car((V183)))==t_cons)){ |
if(!(type_of(car((V183)))==t_cons)){ |
1262 |
goto T604;} |
goto T644;} |
1263 |
{object V188; |
{object V188; |
1264 |
object V189= car((V183)); |
object V189= car((V183)); |
1265 |
if(endp(V189)){ |
if(endp(V189)){ |
1266 |
V186= Cnil; |
V186= Cnil; |
1267 |
goto T602;} |
goto T642;} |
1268 |
base[6]=V188=MMcons(Cnil,Cnil); |
base[6]=V188=MMcons(Cnil,Cnil); |
1269 |
T606:; |
goto T646; |
1270 |
|
T646:; |
1271 |
{register object V190; |
{register object V190; |
1272 |
V190= (V189->c.c_car); |
V190= (V189->c.c_car); |
1273 |
if(!(type_of((V190))==t_symbol)){ |
if(!(type_of((V190))==t_symbol)){ |
1274 |
goto T609;} |
goto T649;} |
1275 |
(V188->c.c_car)= (V190); |
(V188->c.c_car)= (V190); |
1276 |
goto T607; |
goto T647; |
1277 |
T609:; |
goto T649; |
1278 |
|
T649:; |
1279 |
(V188->c.c_car)= (*(LnkLI73))((V190));} |
(V188->c.c_car)= (*(LnkLI73))((V190));} |
1280 |
T607:; |
goto T647; |
1281 |
|
T647:; |
1282 |
if(endp(V189=MMcdr(V189))){ |
if(endp(V189=MMcdr(V189))){ |
1283 |
V186= base[6]; |
V186= base[6]; |
1284 |
goto T602;} |
goto T642;} |
1285 |
V188=MMcdr(V188)=MMcons(Cnil,Cnil); |
V188=MMcdr(V188)=MMcons(Cnil,Cnil); |
1286 |
goto T606;} |
goto T646;} |
1287 |
T604:; |
goto T644; |
1288 |
|
T644:; |
1289 |
if(!(type_of(car((V183)))==t_symbol)){ |
if(!(type_of(car((V183)))==t_symbol)){ |
1290 |
goto T612;} |
goto T652;} |
1291 |
V186= make_cons(car((V183)),Cnil); |
V186= make_cons(car((V183)),Cnil); |
1292 |
goto T602; |
goto T642; |
1293 |
T612:; |
goto T652; |
1294 |
|
T652:; |
1295 |
V191= (*(LnkLI73))(car((V183))); |
V191= (*(LnkLI73))(car((V183))); |
1296 |
V186= make_cons(/* INLINE-ARGS */V191,Cnil); |
V186= make_cons(/* INLINE-ARGS */V191,Cnil); |
1297 |
T602:; |
goto T642; |
1298 |
|
T642:; |
1299 |
V187= (*(LnkLI71))(cdr((V183))); |
V187= (*(LnkLI71))(cdr((V183))); |
1300 |
(void)((*(LnkLI72))((V177),cadr((V187)))); |
(void)((*(LnkLI72))((V177),cadr((V187)))); |
1301 |
V192= make_cons((V186),(V187)); |
V192= make_cons((V186),(V187)); |
1302 |
V179= make_cons(/* INLINE-ARGS */V192,(V179));}} |
V179= make_cons(/* INLINE-ARGS */V192,(V179));}} |
1303 |
T590:; |
goto T630; |
1304 |
|
T630:; |
1305 |
V182= cdr((V182)); |
V182= cdr((V182)); |
1306 |
V183= car((V182)); |
V183= car((V182)); |
1307 |
goto T582;} |
goto T622;} |
1308 |
T578:; |
goto T618; |
1309 |
|
T618:; |
1310 |
V193= reverse((V179)); |
V193= reverse((V179)); |
1311 |
if((V176)!=Cnil){ |
if((V176)!=Cnil){ |
1312 |
V194= (V176); |
V194= (V176); |
1313 |
goto T622;} |
goto T662;} |
1314 |
V194= (*(LnkLI47))(); |
V194= (*(LnkLI47))(); |
1315 |
T622:; |
goto T662; |
1316 |
|
T662:; |
1317 |
{object V195 = list(5,VV[35],(V177),(V178),/* INLINE-ARGS */V193,V194); |
{object V195 = list(5,VV[35],(V177),(V178),/* INLINE-ARGS */V193,V194); |
1318 |
VMR15(V195)}}} |
VMR15(V195)}} |
1319 |
|
va_end(ap); |
1320 |
|
base[0]=base[0]; |
1321 |
|
return Cnil;} |
1322 |
} |
} |
1323 |
/* local entry for function C2CASE */ |
/* local entry for function C2CASE */ |
1324 |
|
|
1327 |
object V199;object V200;object V201; |
object V199;object V200;object V201; |
1328 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1329 |
bds_check; |
bds_check; |
1330 |
|
goto TTL; |
1331 |
TTL:; |
TTL:; |
1332 |
{register object V202; |
{register object V202; |
1333 |
setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1))); |
setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1))); |
1346 |
object V206; |
object V206; |
1347 |
V205= (V200); |
V205= (V200); |
1348 |
V206= car((V205)); |
V206= car((V205)); |
1349 |
T637:; |
goto T677; |
1350 |
|
T677:; |
1351 |
if(!(endp((V205)))){ |
if(!(endp((V205)))){ |
1352 |
goto T638;} |
goto T678;} |
1353 |
goto T633; |
goto T673; |
1354 |
T638:; |
goto T678; |
1355 |
|
T678:; |
1356 |
{object V207; |
{object V207; |
1357 |
register object V208; |
register object V208; |
1358 |
register object V209; |
register object V209; |
1360 |
V207= make_cons(symbol_value(VV[9]),Cnil); |
V207= make_cons(symbol_value(VV[9]),Cnil); |
1361 |
V208= car((V206)); |
V208= car((V206)); |
1362 |
V209= Cnil; |
V209= Cnil; |
1363 |
T649:; |
goto T689; |
1364 |
|
T689:; |
1365 |
if(!((length((V208)))<=(5))){ |
if(!((length((V208)))<=(5))){ |
1366 |
goto T650;} |
goto T690;} |
1367 |
goto T647; |
goto T687; |
1368 |
T650:; |
goto T690; |
1369 |
|
T690:; |
1370 |
if(((V209))!=Cnil){ |
if(((V209))!=Cnil){ |
1371 |
goto T654;} |
goto T694;} |
1372 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
1373 |
V209= make_cons(symbol_value(VV[9]),Cnil); |
V209= make_cons(symbol_value(VV[9]),Cnil); |
1374 |
T654:; |
goto T694; |
1375 |
|
T694:; |
1376 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
1377 |
{register object V211; |
{register object V211; |
1378 |
V211= small_fixnum(0); |
V211= small_fixnum(0); |
1379 |
T664:; |
goto T704; |
1380 |
|
T704:; |
1381 |
if(!(number_compare((V211),small_fixnum(5))>=0)){ |
if(!(number_compare((V211),small_fixnum(5))>=0)){ |
1382 |
goto T665;} |
goto T705;} |
1383 |
goto T661; |
goto T701; |
1384 |
T665:; |
goto T705; |
1385 |
|
T705:; |
1386 |
if(!(type_of(car((V208)))==t_symbol)){ |
if(!(type_of(car((V208)))==t_symbol)){ |
1387 |
goto T671;} |
goto T711;} |
1388 |
princ_str("(V",VV[16]); |
princ_str("(V",VV[16]); |
1389 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V202))); |
1390 |
princ_str("== ",VV[16]); |
princ_str("== ",VV[16]); |
1391 |
{object V212= car((V208)); |
{object V212= car((V208)); |
1392 |
if((V212!= Ct))goto T678; |
if((V212!= Ct))goto T718; |
1393 |
princ_str("Ct",VV[16]); |
princ_str("Ct",VV[16]); |
1394 |
goto T677; |
goto T717; |
1395 |
T678:; |
goto T718; |
1396 |
if((V212!= Cnil))goto T680; |
T718:; |
1397 |
|
if((V212!= Cnil))goto T720; |
1398 |
princ_str("Cnil",VV[16]); |
princ_str("Cnil",VV[16]); |
1399 |
goto T677; |
goto T717; |
1400 |
T680:; |
goto T720; |
1401 |
|
T720:; |
1402 |
princ_str("VV[",VV[16]); |
princ_str("VV[",VV[16]); |
1403 |
V213= (*(LnkLI75))(car((V208))); |
V213= (*(LnkLI75))(car((V208))); |
1404 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V213)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V213)); |
1405 |
princ_char(93,VV[16]);} |
princ_char(93,VV[16]);} |
1406 |
T677:; |
goto T717; |
1407 |
|
T717:; |
1408 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1409 |
goto T669; |
goto T709; |
1410 |
T671:; |
goto T711; |
1411 |
|
T711:; |
1412 |
princ_str("eql(V",VV[16]); |
princ_str("eql(V",VV[16]); |
1413 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V202))); |
1414 |
princ_str(",VV[",VV[16]); |
princ_str(",VV[",VV[16]); |
1415 |
(void)((*(LnkLI54))(car((V208)))); |
(void)((*(LnkLI54))(car((V208)))); |
1416 |
princ_str("])",VV[16]); |
princ_str("])",VV[16]); |
1417 |
T669:; |
goto T709; |
1418 |
|
T709:; |
1419 |
if(!(number_compare((V211),small_fixnum(4))<0)){ |
if(!(number_compare((V211),small_fixnum(4))<0)){ |
1420 |
goto T691;} |
goto T731;} |
1421 |
princ_str("\n || ",VV[16]); |
princ_str("\n || ",VV[16]); |
1422 |
T691:; |
goto T731; |
1423 |
|
T731:; |
1424 |
{object V214; |
{object V214; |
1425 |
V214= car((V208)); |
V214= car((V208)); |
1426 |
V208= cdr((V208));} |
V208= cdr((V208));} |
1427 |
V211= one_plus((V211)); |
V211= one_plus((V211)); |
1428 |
goto T664;} |
goto T704;} |
1429 |
T661:; |
goto T701; |
1430 |
|
T701:; |
1431 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1432 |
if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209)); |
if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209)); |
1433 |
((V209))->c.c_cdr = Ct; |
((V209))->c.c_cdr = Ct; |
1434 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
1435 |
(void)((*(LnkLI54))(car((V209)))); |
(void)((*(LnkLI54))(car((V209)))); |
1436 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1437 |
goto T649; |
goto T689; |
1438 |
T647:; |
goto T687; |
1439 |
|
T687:; |
1440 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
1441 |
T715:; |
goto T755; |
1442 |
|
T755:; |
1443 |
if(!(endp((V208)))){ |
if(!(endp((V208)))){ |
1444 |
goto T716;} |
goto T756;} |
1445 |
goto T713; |
goto T753; |
1446 |
T716:; |
goto T756; |
1447 |
|
T756:; |
1448 |
if(!(type_of(car((V208)))==t_symbol)){ |
if(!(type_of(car((V208)))==t_symbol)){ |
1449 |
goto T722;} |
goto T762;} |
1450 |
princ_str("(V",VV[16]); |
princ_str("(V",VV[16]); |
1451 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V202))); |
1452 |
princ_str("!= ",VV[16]); |
princ_str("!= ",VV[16]); |
1453 |
{object V215= car((V208)); |
{object V215= car((V208)); |
1454 |
if((V215!= Ct))goto T729; |
if((V215!= Ct))goto T769; |
1455 |
princ_str("Ct",VV[16]); |
princ_str("Ct",VV[16]); |
1456 |
goto T728; |
goto T768; |
1457 |
T729:; |
goto T769; |
1458 |
if((V215!= Cnil))goto T731; |
T769:; |
1459 |
|
if((V215!= Cnil))goto T771; |
1460 |
princ_str("Cnil",VV[16]); |
princ_str("Cnil",VV[16]); |
1461 |
goto T728; |
goto T768; |
1462 |
T731:; |
goto T771; |
1463 |
|
T771:; |
1464 |
princ_str("VV[",VV[16]); |
princ_str("VV[",VV[16]); |
1465 |
V216= (*(LnkLI75))(car((V208))); |
V216= (*(LnkLI75))(car((V208))); |
1466 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V216)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V216)); |
1467 |
princ_char(93,VV[16]);} |
princ_char(93,VV[16]);} |
1468 |
T728:; |
goto T768; |
1469 |
|
T768:; |
1470 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1471 |
goto T720; |
goto T760; |
1472 |
T722:; |
goto T762; |
1473 |
|
T762:; |
1474 |
princ_str("!eql(V",VV[16]); |
princ_str("!eql(V",VV[16]); |
1475 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V202))); |
1476 |
princ_str(",VV[",VV[16]); |
princ_str(",VV[",VV[16]); |
1477 |
(void)((*(LnkLI54))(car((V208)))); |
(void)((*(LnkLI54))(car((V208)))); |
1478 |
princ_str("])",VV[16]); |
princ_str("])",VV[16]); |
1479 |
T720:; |
goto T760; |
1480 |
|
T760:; |
1481 |
if(endp(cdr((V208)))){ |
if(endp(cdr((V208)))){ |
1482 |
goto T742;} |
goto T782;} |
1483 |
princ_str("\n && ",VV[16]); |
princ_str("\n && ",VV[16]); |
1484 |
T742:; |
goto T782; |
1485 |
|
T782:; |
1486 |
{object V217; |
{object V217; |
1487 |
V217= car((V208)); |
V217= car((V208)); |
1488 |
V208= cdr((V208));} |
V208= cdr((V208));} |
1489 |
goto T715; |
goto T755; |
1490 |
T713:; |
goto T753; |
1491 |
|
T753:; |
1492 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1493 |
if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207)); |
if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207)); |
1494 |
((V207))->c.c_cdr = Ct; |
((V207))->c.c_cdr = Ct; |
1496 |
(void)((*(LnkLI54))(car((V207)))); |
(void)((*(LnkLI54))(car((V207)))); |
1497 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1498 |
if(((V209))==Cnil){ |
if(((V209))==Cnil){ |
1499 |
goto T759;} |
goto T799;} |
1500 |
if((cdr((V209)))==Cnil){ |
if((cdr((V209)))==Cnil){ |
1501 |
goto T759;} |
goto T799;} |
1502 |
|
princ_str("\ngoto T",VV[16]); |
1503 |
|
(void)((*(LnkLI54))(car((V209)))); |
1504 |
|
princ_char(59,VV[16]); |
1505 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
1506 |
(void)((*(LnkLI54))(car((V209)))); |
(void)((*(LnkLI54))(car((V209)))); |
1507 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
1508 |
T759:; |
goto T799; |
1509 |
|
T799:; |
1510 |
base[6]= make_cons(VV[17],symbol_value(VV[15])); |
base[6]= make_cons(VV[17],symbol_value(VV[15])); |
1511 |
bds_bind(VV[15],base[6]); |
bds_bind(VV[15],base[6]); |
1512 |
base[7]= cdr((V206)); |
base[7]= cdr((V206)); |
1515 |
vs_top=sup; |
vs_top=sup; |
1516 |
bds_unwind1; |
bds_unwind1; |
1517 |
if((cdr((V207)))==Cnil){ |
if((cdr((V207)))==Cnil){ |
1518 |
goto T642;} |
goto T682;} |
1519 |
|
princ_str("\ngoto T",VV[16]); |
1520 |
|
(void)((*(LnkLI54))(car((V207)))); |
1521 |
|
princ_char(59,VV[16]); |
1522 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
1523 |
(void)((*(LnkLI54))(car((V207)))); |
(void)((*(LnkLI54))(car((V207)))); |
1524 |
princ_str(":;",VV[16]);} |
princ_str(":;",VV[16]);} |
1525 |
T642:; |
goto T682; |
1526 |
|
T682:; |
1527 |
V205= cdr((V205)); |
V205= cdr((V205)); |
1528 |
V206= car((V205)); |
V206= car((V205)); |
1529 |
goto T637;} |
goto T677;} |
1530 |
T633:; |
goto T673; |
1531 |
|
T673:; |
1532 |
if(!(((V201))==(Ct))){ |
if(!(((V201))==(Ct))){ |
1533 |
goto T782;} |
goto T830;} |
1534 |
princ_str("\n FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]); |
princ_str("\n FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]); |
1535 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V202))); |
1536 |
princ_str(");",VV[16]); |
princ_str(");",VV[16]); |
1537 |
goto T780; |
base[3]= cdr(car((V200))); |
1538 |
T782:; |
vs_top=(vs_base=base+3)+1; |
1539 |
|
(void) (*Lnk55)(); |
1540 |
|
vs_top=sup; |
1541 |
|
goto T828; |
1542 |
|
goto T830; |
1543 |
|
T830:; |
1544 |
base[3]= (V201); |
base[3]= (V201); |
1545 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1546 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
1547 |
vs_top=sup; |
vs_top=sup; |
1548 |
T780:; |
goto T828; |
1549 |
|
T828:; |
1550 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
1551 |
{object V218 = (*(LnkLI63))(); |
{object V218 = (*(LnkLI63))(); |
1552 |
bds_unwind1; |
bds_unwind1; |
1553 |
bds_unwind1; |
bds_unwind1; |
1554 |
VMR16(V218)}} |
VMR16(V218)}} |
1555 |
|
base[0]=base[0]; |
1556 |
|
return Cnil; |
1557 |
} |
} |
1558 |
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* ADD-SYMBOL */ |
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,1,ap);} /* ADD-SYMBOL */ |
1559 |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[74],&LnkLI74,ap);} /* INLINE-ARGS */ |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[74],(void **)&LnkLI74,ap);} /* INLINE-ARGS */ |
1560 |
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* ADD-OBJECT */ |
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],(void **)&LnkLI73,1,ap);} /* ADD-OBJECT */ |
1561 |
static object LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],&LnkLI72,2,ap);} /* ADD-INFO */ |
static object LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],(void **)&LnkLI72,2,ap);} /* ADD-INFO */ |
1562 |
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,1,ap);} /* C1PROGN */ |
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],(void **)&LnkLI71,1,ap);} /* C1PROGN */ |
1563 |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],&LnkLI69,ap);} /* CMPERR */ |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],(void **)&LnkLI69,ap);} /* CMPERR */ |
1564 |
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,2,ap);} /* CONVERT-CASE-TO-SWITCH */ |
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,2,ap);} /* CONVERT-CASE-TO-SWITCH */ |
1565 |
static LnkT67(){ call_or_link(VV[67],&Lnk67);} /* SUBTYPEP */ |
static void LnkT67(){ call_or_link(VV[67],(void **)&Lnk67);} /* SUBTYPEP */ |
1566 |
static LnkT66(){ call_or_link(VV[66],&Lnk66);} /* CMPERROR */ |
static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* CMPERROR */ |
1567 |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* C1CASE */ |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],(void **)&LnkLI65,ap);} /* C1CASE */ |
1568 |
static LnkT64(){ call_or_link(VV[64],&Lnk64);} /* WT-INLINE-LOC */ |
static void LnkT64(){ call_or_link(VV[64],(void **)&Lnk64);} /* WT-INLINE-LOC */ |
1569 |
static object LnkTLI63(){return call_proc0(VV[63],&LnkLI63);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* CLOSE-INLINE-BLOCKS */ |
1570 |
static object LnkTLI62(){return call_proc0(VV[62],&LnkLI62);} /* WT-C-PUSH */ |
static object LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* WT-C-PUSH */ |
1571 |
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,2,ap);} /* WT-VAR */ |
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,2,ap);} /* WT-VAR */ |
1572 |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],&LnkLI60,ap);} /* UNWIND-EXIT */ |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],(void **)&LnkLI60,ap);} /* UNWIND-EXIT */ |
1573 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* C1ARGS */ |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* C1ARGS */ |
1574 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* C2EXPR* */ |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* C2EXPR* */ |
1575 |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* UNWIND-NO-EXIT */ |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* UNWIND-NO-EXIT */ |
1576 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,3,ap);} /* CJT */ |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,3,ap);} /* CJT */ |
1577 |
static LnkT55(){ call_or_link(VV[55],&Lnk55);} /* C2EXPR */ |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* C2EXPR */ |
1578 |
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* WT1 */ |
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* WT1 */ |
1579 |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,3,ap);} /* CJF */ |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,3,ap);} /* CJF */ |
1580 |
static object LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* C1T */ |
static object LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1T */ |
1581 |
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* */ |
1582 |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1FMLA */ |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* C1FMLA */ |
1583 |
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 */ |
1584 |
static object LnkTLI47(){return call_proc0(VV[47],&LnkLI47);} /* C1NIL */ |
static object LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* C1NIL */ |
1585 |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* C1EXPR */ |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* C1EXPR */ |
1586 |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],&LnkLI45,1,ap);} /* C1FMLA-CONSTANT */ |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],(void **)&LnkLI45,1,ap);} /* C1FMLA-CONSTANT */ |
1587 |
static object LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,3,ap);} /* TOO-MANY-ARGS */ |
static object LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],(void **)&LnkLI44,3,ap);} /* TOO-MANY-ARGS */ |
1588 |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,3,ap);} /* TOO-FEW-ARGS */ |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,3,ap);} /* TOO-FEW-ARGS */ |
1589 |
|
|
1590 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1591 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |