1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmptop.h" |
#include "cmptop.h" |
4 |
init_cmptop(){do_init(VV);} |
void init_cmptop(){do_init(VV);} |
5 |
/* function definition for T1EXPR */ |
/* function definition for T1EXPR */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
9 |
register object *VOL sup=base+VM1; VC1 |
register object *VOL sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
13 |
check_arg(1); |
check_arg(1); |
14 |
V1=(base[0]); |
V1=(base[0]); |
15 |
vs_top=sup; |
vs_top=sup; |
16 |
|
goto TTL; |
17 |
TTL:; |
TTL:; |
18 |
bds_bind(VV[0],(V1)); |
bds_bind(VV[0],(V1)); |
19 |
bds_bind(VV[1],Ct); |
bds_bind(VV[1],Ct); |
36 |
goto T8;} |
goto T8;} |
37 |
if(!(((V2))==(VV[3]))){ |
if(!(((V2))==(VV[3]))){ |
38 |
goto T11;} |
goto T11;} |
39 |
V5= (VFUN_NARGS=1,(*(LnkLI253))(VV[4])); |
V5= (VFUN_NARGS=1,(*(LnkLI258))(VV[4])); |
40 |
frs_pop(); |
frs_pop(); |
41 |
base[3]= V5; |
base[3]= V5; |
42 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
43 |
bds_unwind1; |
bds_unwind1; |
44 |
bds_unwind1; |
bds_unwind1; |
45 |
return; |
return; |
46 |
|
goto T11; |
47 |
T11:; |
T11:; |
48 |
if((get((V2),VV[5],Cnil))==Cnil){ |
if((get((V2),VV[5],Cnil))==Cnil){ |
49 |
goto T14;} |
goto T14;} |
50 |
if((symbol_value(VV[6]))==Cnil){ |
if((symbol_value(VV[6]))==Cnil){ |
51 |
goto T16;} |
goto T16;} |
52 |
(void)((VFUN_NARGS=2,(*(LnkLI254))(VV[7],(V1)))); |
(void)((VFUN_NARGS=2,(*(LnkLI259))(VV[7],(V1)))); |
53 |
|
goto T16; |
54 |
T16:; |
T16:; |
55 |
(void)((*(LnkLI255))(Ct,(V1))); |
(void)((*(LnkLI260))(Ct,(V1))); |
56 |
V6= (*(LnkLI256))((V1)); |
V6= (*(LnkLI261))((V1)); |
57 |
frs_pop(); |
frs_pop(); |
58 |
base[3]= V6; |
base[3]= V6; |
59 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
60 |
bds_unwind1; |
bds_unwind1; |
61 |
bds_unwind1; |
bds_unwind1; |
62 |
return; |
return; |
63 |
|
goto T14; |
64 |
T14:; |
T14:; |
65 |
V4= get((V2),VV[8],Cnil); |
V4= get((V2),VV[8],Cnil); |
66 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
67 |
goto T21;} |
goto T21;} |
68 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
69 |
goto T24;} |
goto T24;} |
70 |
(void)((*(LnkLI257))()); |
(void)((*(LnkLI262))()); |
71 |
|
goto T24; |
72 |
T24:; |
T24:; |
73 |
base[3]= (V3); |
base[3]= (V3); |
74 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
77 |
bds_unwind1; |
bds_unwind1; |
78 |
bds_unwind1; |
bds_unwind1; |
79 |
return; |
return; |
80 |
|
goto T21; |
81 |
T21:; |
T21:; |
82 |
if((get((V2),VV[10],Cnil))==Cnil){ |
if((get((V2),VV[10],Cnil))==Cnil){ |
83 |
goto T29;} |
goto T29;} |
84 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
85 |
goto T31;} |
goto T31;} |
86 |
(void)((*(LnkLI257))()); |
(void)((*(LnkLI262))()); |
87 |
|
goto T31; |
88 |
T31:; |
T31:; |
89 |
base[3]= (*(LnkLI258))((V1)); |
base[3]= (*(LnkLI263))((V1)); |
90 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
91 |
(void) (*Lnk259)(); |
(void) (*Lnk264)(); |
92 |
frs_pop(); |
frs_pop(); |
93 |
bds_unwind1; |
bds_unwind1; |
94 |
bds_unwind1; |
bds_unwind1; |
95 |
return; |
return; |
96 |
|
goto T29; |
97 |
T29:; |
T29:; |
98 |
if((get((V2),VV[11],Cnil))==Cnil){ |
if((get((V2),VV[11],Cnil))==Cnil){ |
99 |
goto T36;} |
goto T36;} |
100 |
V7= (*(LnkLI260))((V1)); |
V7= (*(LnkLI265))((V1)); |
101 |
frs_pop(); |
frs_pop(); |
102 |
base[3]= V7; |
base[3]= V7; |
103 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
104 |
bds_unwind1; |
bds_unwind1; |
105 |
bds_unwind1; |
bds_unwind1; |
106 |
return; |
return; |
107 |
|
goto T36; |
108 |
T36:; |
T36:; |
109 |
base[3]= (V2); |
base[3]= (V2); |
110 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
119 |
Lcopy_list(); |
Lcopy_list(); |
120 |
vs_top=sup; |
vs_top=sup; |
121 |
V9= vs_base[0]; |
V9= vs_base[0]; |
122 |
V8= (*(LnkLI261))((V4),(V2),V9); |
V8= (*(LnkLI266))((V4),(V2),V9); |
123 |
base[3]= (V8); |
base[3]= (V8); |
124 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
125 |
(void) (*Lnk259)(); |
(void) (*Lnk264)(); |
126 |
frs_pop(); |
frs_pop(); |
127 |
bds_unwind1; |
bds_unwind1; |
128 |
bds_unwind1; |
bds_unwind1; |
129 |
return;} |
return;} |
130 |
|
goto T39; |
131 |
T39:; |
T39:; |
132 |
V10= (*(LnkLI260))((V1)); |
V10= (*(LnkLI265))((V1)); |
133 |
frs_pop(); |
frs_pop(); |
134 |
base[3]= V10; |
base[3]= V10; |
135 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
136 |
bds_unwind1; |
bds_unwind1; |
137 |
bds_unwind1; |
bds_unwind1; |
138 |
return; |
return; |
139 |
|
goto T8; |
140 |
T8:; |
T8:; |
141 |
if(!(type_of((V2))==t_cons)){ |
if(!(type_of((V2))==t_cons)){ |
142 |
goto T48;} |
goto T48;} |
143 |
V11= (*(LnkLI260))((V1)); |
V11= (*(LnkLI265))((V1)); |
144 |
frs_pop(); |
frs_pop(); |
145 |
base[3]= V11; |
base[3]= V11; |
146 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
147 |
bds_unwind1; |
bds_unwind1; |
148 |
bds_unwind1; |
bds_unwind1; |
149 |
return; |
return; |
150 |
|
goto T48; |
151 |
T48:; |
T48:; |
152 |
V12= (VFUN_NARGS=2,(*(LnkLI253))(VV[12],(V2))); |
V12= (VFUN_NARGS=2,(*(LnkLI258))(VV[12],(V2))); |
153 |
frs_pop(); |
frs_pop(); |
154 |
base[3]= V12; |
base[3]= V12; |
155 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
156 |
bds_unwind1; |
bds_unwind1; |
157 |
bds_unwind1; |
bds_unwind1; |
158 |
return;} |
return;} |
159 |
|
goto T3; |
160 |
T3:; |
T3:; |
161 |
frs_pop(); |
frs_pop(); |
162 |
base[3]= Cnil; |
base[3]= Cnil; |
173 |
object V14; |
object V14; |
174 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
175 |
bds_check; |
bds_check; |
176 |
|
goto TTL; |
177 |
TTL:; |
TTL:; |
178 |
{object V15; |
{object V15; |
179 |
V15= Cnil; |
V15= Cnil; |
185 |
bds_bind(VV[19],Cnil); |
bds_bind(VV[19],Cnil); |
186 |
bds_bind(VV[0],Cnil); |
bds_bind(VV[0],Cnil); |
187 |
setq(VV[20],reverse(symbol_value(VV[20]))); |
setq(VV[20],reverse(symbol_value(VV[20]))); |
188 |
princ_str("\ninit_",VV[21]); |
princ_str("\nvoid init_",VV[21]); |
189 |
(void)((*(LnkLI262))((V14))); |
(void)((*(LnkLI267))((V14))); |
190 |
princ_str("(){",VV[21]); |
princ_str("(){",VV[21]); |
191 |
princ_str("do_init(VV);",VV[21]); |
princ_str("do_init(VV);",VV[21]); |
192 |
princ_char(125,VV[21]); |
princ_char(125,VV[21]); |
193 |
{object V16; |
{object V16; |
194 |
V16= symbol_value(VV[20]); |
V16= symbol_value(VV[20]); |
195 |
bds_bind(VV[0],car((V16))); |
bds_bind(VV[0],car((V16))); |
196 |
|
goto T63; |
197 |
T63:; |
T63:; |
198 |
if(!(endp((V16)))){ |
if(!(endp((V16)))){ |
199 |
goto T64;} |
goto T64;} |
200 |
bds_unwind1; |
bds_unwind1; |
201 |
goto T59; |
goto T59; |
202 |
|
goto T64; |
203 |
T64:; |
T64:; |
204 |
setq(VV[1],Ct); |
setq(VV[1],Ct); |
205 |
V15= get(car((VV[0]->s.s_dbind)),VV[22],Cnil); |
V15= get(car((VV[0]->s.s_dbind)),VV[22],Cnil); |
214 |
vs_base=base+9;} |
vs_base=base+9;} |
215 |
super_funcall_no_event(base[8]); |
super_funcall_no_event(base[8]); |
216 |
vs_top=sup; |
vs_top=sup; |
217 |
|
goto T70; |
218 |
T70:; |
T70:; |
219 |
V16= cdr((V16)); |
V16= cdr((V16)); |
220 |
(VV[0]->s.s_dbind)= car((V16)); |
(VV[0]->s.s_dbind)= car((V16)); |
221 |
goto T63;} |
goto T63;} |
222 |
|
goto T59; |
223 |
T59:; |
T59:; |
224 |
{object V18; |
{object V18; |
225 |
V18= symbol_value(VV[20]); |
V18= symbol_value(VV[20]); |
226 |
bds_bind(VV[0],car((V18))); |
bds_bind(VV[0],car((V18))); |
227 |
|
goto T85; |
228 |
T85:; |
T85:; |
229 |
if(!(endp((V18)))){ |
if(!(endp((V18)))){ |
230 |
goto T86;} |
goto T86;} |
231 |
bds_unwind1; |
bds_unwind1; |
232 |
goto T81; |
goto T81; |
233 |
|
goto T86; |
234 |
T86:; |
T86:; |
235 |
setq(VV[1],Ct); |
setq(VV[1],Ct); |
236 |
V15= get(car((VV[0]->s.s_dbind)),VV[23],Cnil); |
V15= get(car((VV[0]->s.s_dbind)),VV[23],Cnil); |
245 |
vs_base=base+9;} |
vs_base=base+9;} |
246 |
super_funcall_no_event(base[8]); |
super_funcall_no_event(base[8]); |
247 |
vs_top=sup; |
vs_top=sup; |
248 |
|
goto T92; |
249 |
T92:; |
T92:; |
250 |
V18= cdr((V18)); |
V18= cdr((V18)); |
251 |
(VV[0]->s.s_dbind)= car((V18)); |
(VV[0]->s.s_dbind)= car((V18)); |
252 |
goto T85;} |
goto T85;} |
253 |
|
goto T81; |
254 |
T81:; |
T81:; |
255 |
{object V20; |
{object V20; |
256 |
V20= Cnil; |
V20= Cnil; |
257 |
|
goto T105; |
258 |
T105:; |
T105:; |
259 |
if(!(endp(symbol_value(VV[24])))){ |
if(!(endp(symbol_value(VV[24])))){ |
260 |
goto T107;} |
goto T107;} |
261 |
goto T103; |
goto T103; |
262 |
|
goto T107; |
263 |
T107:; |
T107:; |
264 |
V20= car(symbol_value(VV[24])); |
V20= car(symbol_value(VV[24])); |
265 |
{object V21; |
{object V21; |
271 |
while(!endp(V22)) |
while(!endp(V22)) |
272 |
{vs_push(car(V22));V22=cdr(V22);} |
{vs_push(car(V22));V22=cdr(V22);} |
273 |
vs_base=base+7;} |
vs_base=base+7;} |
274 |
(void) (*Lnk245)(); |
(void) (*Lnk250)(); |
275 |
vs_top=sup; |
vs_top=sup; |
276 |
goto T105;} |
goto T105;} |
277 |
|
goto T103; |
278 |
T103:; |
T103:; |
279 |
{object V23; |
{object V23; |
280 |
object V24; |
object V24; |
281 |
V23= symbol_value(VV[25]); |
V23= symbol_value(VV[25]); |
282 |
V24= car((V23)); |
V24= car((V23)); |
283 |
|
goto T122; |
284 |
T122:; |
T122:; |
285 |
if(!(endp((V23)))){ |
if(!(endp((V23)))){ |
286 |
goto T123;} |
goto T123;} |
287 |
goto T118; |
goto T118; |
288 |
|
goto T123; |
289 |
T123:; |
T123:; |
290 |
{object V25; |
{object V25; |
291 |
V25= (V24); |
V25= (V24); |
293 |
while(!endp(V25)) |
while(!endp(V25)) |
294 |
{vs_push(car(V25));V25=cdr(V25);} |
{vs_push(car(V25));V25=cdr(V25);} |
295 |
vs_base=base+8;} |
vs_base=base+8;} |
296 |
(void) (*Lnk263)(); |
(void) (*Lnk268)(); |
297 |
vs_top=sup; |
vs_top=sup; |
298 |
V23= cdr((V23)); |
V23= cdr((V23)); |
299 |
V24= car((V23)); |
V24= car((V23)); |
300 |
goto T122;} |
goto T122;} |
301 |
|
goto T118; |
302 |
T118:; |
T118:; |
303 |
{object V26; |
{object V26; |
304 |
object V27; |
object V27; |
305 |
V26= (VV[13]->s.s_dbind); |
V26= (VV[13]->s.s_dbind); |
306 |
V27= car((V26)); |
V27= car((V26)); |
307 |
|
goto T138; |
308 |
T138:; |
T138:; |
309 |
if(!(endp((V26)))){ |
if(!(endp((V26)))){ |
310 |
goto T139;} |
goto T139;} |
311 |
goto T134; |
goto T134; |
312 |
|
goto T139; |
313 |
T139:; |
T139:; |
314 |
(void)((*(LnkLI264))((V27))); |
(void)((*(LnkLI269))((V27))); |
315 |
V26= cdr((V26)); |
V26= cdr((V26)); |
316 |
V27= car((V26)); |
V27= car((V26)); |
317 |
goto T138;} |
goto T138;} |
318 |
|
goto T134; |
319 |
T134:; |
T134:; |
320 |
{object V28; |
{object V28; |
321 |
object V29; |
object V29; |
322 |
V28= symbol_value(VV[26]); |
V28= symbol_value(VV[26]); |
323 |
V29= car((V28)); |
V29= car((V28)); |
324 |
|
goto T153; |
325 |
T153:; |
T153:; |
326 |
if(!(endp((V28)))){ |
if(!(endp((V28)))){ |
327 |
goto T154;} |
goto T154;} |
328 |
goto T149; |
goto T149; |
329 |
|
goto T154; |
330 |
T154:; |
T154:; |
331 |
princ_str("\nstatic LC",VV[27]); |
princ_str("\nstatic void LC",VV[27]); |
332 |
V30= structure_ref((V29),VV[28],3); |
V30= structure_ref((V29),VV[28],3); |
333 |
(void)((*(LnkLI265))(/* INLINE-ARGS */V30)); |
(void)((*(LnkLI270))(/* INLINE-ARGS */V30)); |
334 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
335 |
V28= cdr((V28)); |
V28= cdr((V28)); |
336 |
V29= car((V28)); |
V29= car((V28)); |
337 |
goto T153;} |
goto T153;} |
338 |
|
goto T149; |
339 |
T149:; |
T149:; |
340 |
{object V31; |
{object V31; |
341 |
object V32; |
object V32; |
342 |
V31= symbol_value(VV[29]); |
V31= symbol_value(VV[29]); |
343 |
V32= car((V31)); |
V32= car((V31)); |
344 |
|
goto T171; |
345 |
T171:; |
T171:; |
346 |
if(!(endp((V31)))){ |
if(!(endp((V31)))){ |
347 |
goto T172;} |
goto T172;} |
348 |
goto T167; |
goto T167; |
349 |
|
goto T172; |
350 |
T172:; |
T172:; |
351 |
princ_str("\n#define VM",VV[27]); |
princ_str("\n#define VM",VV[27]); |
352 |
(void)((*(LnkLI265))(car((V32)))); |
(void)((*(LnkLI270))(car((V32)))); |
353 |
princ_char(32,VV[27]); |
princ_char(32,VV[27]); |
354 |
(void)((*(LnkLI265))(cdr((V32)))); |
(void)((*(LnkLI270))(cdr((V32)))); |
355 |
V31= cdr((V31)); |
V31= cdr((V31)); |
356 |
V32= car((V31)); |
V32= car((V31)); |
357 |
goto T171;} |
goto T171;} |
358 |
|
goto T167; |
359 |
T167:; |
T167:; |
360 |
(void)((*(LnkLI266))(Cnil)); |
(void)((*(LnkLI271))(Cnil)); |
361 |
{object V33; |
{object V33; |
362 |
object V34; |
object V34; |
363 |
base[8]= (VV[18]->s.s_dbind); |
base[8]= (VV[18]->s.s_dbind); |
368 |
vs_top=sup; |
vs_top=sup; |
369 |
V33= vs_base[0]; |
V33= vs_base[0]; |
370 |
V34= small_fixnum(0); |
V34= small_fixnum(0); |
371 |
|
goto T194; |
372 |
T194:; |
T194:; |
373 |
if(!(number_compare((V34),(V33))>=0)){ |
if(!(number_compare((V34),(V33))>=0)){ |
374 |
goto T195;} |
goto T195;} |
375 |
goto T187; |
goto T187; |
376 |
|
goto T195; |
377 |
T195:; |
T195:; |
378 |
(void)((*(LnkLI266))(Cnil)); |
(void)((*(LnkLI271))(Cnil)); |
379 |
V34= one_plus((V34)); |
V34= one_plus((V34)); |
380 |
goto T194;} |
goto T194;} |
381 |
|
goto T187; |
382 |
T187:; |
T187:; |
383 |
princ_str("\nstatic char * VVi[",VV[27]); |
princ_str("\nstatic char * VVi[",VV[27]); |
384 |
V35= number_plus(small_fixnum(1),symbol_value(VV[30])); |
V35= number_plus(small_fixnum(1),symbol_value(VV[30])); |
385 |
(void)((*(LnkLI265))(/* INLINE-ARGS */V35)); |
(void)((*(LnkLI270))(/* INLINE-ARGS */V35)); |
386 |
princ_str("]={",VV[27]); |
princ_str("]={",VV[27]); |
387 |
princ_str("\n#define Cdata VV[",VV[27]); |
princ_str("\n#define Cdata VV[",VV[27]); |
388 |
(void)((*(LnkLI265))(symbol_value(VV[30]))); |
(void)((*(LnkLI270))(symbol_value(VV[30]))); |
389 |
princ_char(93,VV[27]); |
princ_char(93,VV[27]); |
390 |
if((VV[17]->s.s_dbind)!=Cnil){ |
if((VV[17]->s.s_dbind)!=Cnil){ |
391 |
goto T211;} |
goto T211;} |
392 |
princ_char(10,VV[27]); |
princ_char(10,VV[27]); |
393 |
(void)((*(LnkLI265))(small_fixnum(0))); |
(void)((*(LnkLI270))(small_fixnum(0))); |
394 |
|
goto T211; |
395 |
T211:; |
T211:; |
396 |
{register object V36; |
{register object V36; |
397 |
V36= nreverse((VV[17]->s.s_dbind)); |
V36= nreverse((VV[17]->s.s_dbind)); |
398 |
|
goto T217; |
399 |
T217:; |
T217:; |
400 |
if(((V36))!=Cnil){ |
if(((V36))!=Cnil){ |
401 |
goto T218;} |
goto T218;} |
402 |
princ_str("\n};",VV[27]); |
princ_str("\n};",VV[27]); |
403 |
goto T214; |
goto T214; |
404 |
|
goto T218; |
405 |
T218:; |
T218:; |
406 |
princ_str("\n(char *)(",VV[27]); |
princ_str("\n(char *)(",VV[27]); |
407 |
(void)((*(LnkLI265))(caar((V36)))); |
(void)((*(LnkLI270))(caar((V36)))); |
408 |
(void)((*(LnkLI265))(cadar((V36)))); |
(void)((*(LnkLI270))(cadar((V36)))); |
409 |
if((cdr((V36)))==Cnil){ |
if((cdr((V36)))==Cnil){ |
410 |
goto T230;} |
goto T230;} |
411 |
V37= VV[31]; |
V37= VV[31]; |
412 |
goto T228; |
goto T228; |
413 |
|
goto T230; |
414 |
T230:; |
T230:; |
415 |
V37= VV[32]; |
V37= VV[32]; |
416 |
|
goto T228; |
417 |
T228:; |
T228:; |
418 |
(void)((*(LnkLI265))(V37)); |
(void)((*(LnkLI270))(V37)); |
419 |
V36= cdr((V36)); |
V36= cdr((V36)); |
420 |
goto T217;} |
goto T217;} |
421 |
|
goto T214; |
422 |
T214:; |
T214:; |
423 |
princ_str("\n#define VV ((object *)VVi)",VV[27]); |
princ_str("\n#define VV ((object *)VVi)",VV[27]); |
424 |
vs_base=vs_top; |
vs_base=vs_top; |
425 |
(void) (*Lnk267)(); |
(void) (*Lnk272)(); |
426 |
vs_top=sup; |
vs_top=sup; |
427 |
{object V38; |
{object V38; |
428 |
object V39; |
object V39; |
429 |
V38= (VV[13]->s.s_dbind); |
V38= (VV[13]->s.s_dbind); |
430 |
V39= car((V38)); |
V39= car((V38)); |
431 |
|
goto T241; |
432 |
T241:; |
T241:; |
433 |
if(!(endp((V38)))){ |
if(!(endp((V38)))){ |
434 |
goto T242;} |
goto T242;} |
441 |
bds_unwind1; |
bds_unwind1; |
442 |
bds_unwind1; |
bds_unwind1; |
443 |
VMR2(V40)} |
VMR2(V40)} |
444 |
|
goto T242; |
445 |
T242:; |
T242:; |
446 |
{register object V41; |
{register object V41; |
447 |
register object V42; |
register object V42; |
450 |
if(!(((V42))==(VV[33]))){ |
if(!(((V42))==(VV[33]))){ |
451 |
goto T251;} |
goto T251;} |
452 |
princ_str("\nstatic object *Lclptr",VV[27]); |
princ_str("\nstatic object *Lclptr",VV[27]); |
453 |
(void)((*(LnkLI265))((V41))); |
(void)((*(LnkLI270))((V41))); |
454 |
princ_char(59,VV[27]); |
princ_char(59,VV[27]); |
455 |
V42= VV[34]; |
V42= VV[34]; |
456 |
goto T249; |
goto T249; |
457 |
|
goto T251; |
458 |
T251:; |
T251:; |
459 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
460 |
goto T260;} |
goto T260;} |
461 |
V42= (*(LnkLI268))((V42)); |
V42= (*(LnkLI273))((V42)); |
462 |
goto T258; |
goto T258; |
463 |
|
goto T260; |
464 |
T260:; |
T260:; |
465 |
V42= VV[35]; |
V42= VV[35]; |
466 |
|
goto T258; |
467 |
T258:; |
T258:; |
468 |
|
goto T249; |
469 |
T249:; |
T249:; |
470 |
princ_str("\nstatic ",VV[27]); |
princ_str("\nstatic ",VV[27]); |
471 |
(void)((*(LnkLI265))((V42))); |
if(!(equal((V42),VV[36]))){ |
472 |
|
goto T267;} |
473 |
|
V43= VV[37]; |
474 |
|
goto T265; |
475 |
|
goto T267; |
476 |
|
T267:; |
477 |
|
V43= (V42); |
478 |
|
goto T265; |
479 |
|
T265:; |
480 |
|
(void)((*(LnkLI270))(V43)); |
481 |
princ_str(" LnkT",VV[27]); |
princ_str(" LnkT",VV[27]); |
482 |
(void)((*(LnkLI265))((V41))); |
(void)((*(LnkLI270))((V41))); |
483 |
princ_str("() ;",VV[27]); |
princ_str("() ;",VV[27]); |
484 |
princ_str("\nstatic ",VV[27]); |
princ_str("\nstatic ",VV[27]); |
485 |
(void)((*(LnkLI265))((V42))); |
if(!(equal((V42),VV[38]))){ |
486 |
|
goto T276;} |
487 |
|
V44= VV[39]; |
488 |
|
goto T274; |
489 |
|
goto T276; |
490 |
|
T276:; |
491 |
|
V44= (V42); |
492 |
|
goto T274; |
493 |
|
T274:; |
494 |
|
(void)((*(LnkLI270))(V44)); |
495 |
princ_str(" (*Lnk",VV[27]); |
princ_str(" (*Lnk",VV[27]); |
496 |
(void)((*(LnkLI265))((V41))); |
(void)((*(LnkLI270))((V41))); |
497 |
princ_str(")() = LnkT",VV[27]); |
princ_str(")() = LnkT",VV[27]); |
498 |
(void)((*(LnkLI265))((V41))); |
(void)((*(LnkLI270))((V41))); |
499 |
princ_char(59,VV[27]);} |
princ_char(59,VV[27]);} |
500 |
V38= cdr((V38)); |
V38= cdr((V38)); |
501 |
V39= car((V38)); |
V39= car((V38)); |
502 |
goto T241;}} |
goto T241;}} |
503 |
|
base[0]=base[0]; |
504 |
|
return Cnil; |
505 |
} |
} |
506 |
/* local entry for function MAYBE-EVAL */ |
/* local entry for function MAYBE-EVAL */ |
507 |
|
|
508 |
static object LI3(V45,V46) |
static object LI3(V47,V48) |
509 |
|
|
510 |
object V45;register object V46; |
object V47;register object V48; |
511 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
512 |
|
goto TTL; |
513 |
TTL:; |
TTL:; |
514 |
if((V45)!=Cnil){ |
if((V47)!=Cnil){ |
515 |
goto T280;} |
goto T288;} |
516 |
if(type_of(car((V46)))==t_symbol){ |
if(type_of(car((V48)))==t_symbol){ |
517 |
goto T281;} |
goto T289;} |
518 |
goto T280; |
goto T288; |
519 |
T281:; |
goto T289; |
520 |
V45= get(car((V46)),VV[36],Cnil); |
T289:; |
521 |
T280:; |
V47= get(car((V48)),VV[40],Cnil); |
522 |
if(((V45))==Cnil){ |
goto T288; |
523 |
goto T286;} |
T288:; |
524 |
if((VV[37])==(symbol_value(VV[38]))){ |
if(((V47))==Cnil){ |
525 |
goto T284;} |
goto T294;} |
526 |
T286:; |
if((VV[41])==(symbol_value(VV[42]))){ |
527 |
if(!(type_of(symbol_value(VV[38]))==t_cons)){ |
goto T292;} |
528 |
goto T285;} |
goto T294; |
529 |
{register object x= VV[39],V47= symbol_value(VV[38]); |
T294:; |
530 |
while(!endp(V47)) |
if(!(type_of(symbol_value(VV[42]))==t_cons)){ |
531 |
if(eql(x,V47->c.c_car)){ |
goto T293;} |
532 |
goto T292; |
{register object x= VV[43],V49= symbol_value(VV[42]); |
533 |
}else V47=V47->c.c_cdr; |
while(!endp(V49)) |
534 |
goto T285;} |
if(eql(x,V49->c.c_car)){ |
535 |
T292:; |
goto T300; |
536 |
T284:; |
}else V49=V49->c.c_cdr; |
|
if(((V46))==Cnil){ |
|
537 |
goto T293;} |
goto T293;} |
538 |
base[0]= (V46); |
goto T300; |
539 |
|
T300:; |
540 |
|
goto T292; |
541 |
|
T292:; |
542 |
|
if(((V48))==Cnil){ |
543 |
|
goto T301;} |
544 |
|
base[0]= (V48); |
545 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
546 |
(void) (*Lnk269)(); |
(void) (*Lnk274)(); |
547 |
vs_top=sup; |
vs_top=sup; |
548 |
|
goto T301; |
549 |
|
T301:; |
550 |
|
{object V50 = Ct; |
551 |
|
VMR3(V50)} |
552 |
|
goto T293; |
553 |
T293:; |
T293:; |
554 |
{object V48 = Ct; |
{object V51 = Cnil; |
555 |
VMR3(V48)} |
VMR3(V51)} |
556 |
T285:; |
base[0]=base[0]; |
557 |
{object V49 = Cnil; |
return Cnil; |
|
VMR3(V49)} |
|
558 |
} |
} |
559 |
/* function definition for T1EVAL-WHEN */ |
/* function definition for T1EVAL-WHEN */ |
560 |
|
|
561 |
static L4() |
static void L4() |
562 |
{register object *base=vs_base; |
{register object *base=vs_base; |
563 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
564 |
vs_reserve(VM4); |
vs_reserve(VM4); |
565 |
bds_check; |
bds_check; |
566 |
{register object V50; |
{register object V52; |
567 |
check_arg(1); |
check_arg(1); |
568 |
V50=(base[0]); |
V52=(base[0]); |
569 |
vs_top=sup; |
vs_top=sup; |
570 |
|
goto TTL; |
571 |
TTL:; |
TTL:; |
|
{register object V51; |
|
|
register object V52; |
|
|
V51= Cnil; |
|
|
V52= Cnil; |
|
|
if(!(endp((V50)))){ |
|
|
goto T299;} |
|
|
(void)((*(LnkLI270))(VV[40],small_fixnum(1),small_fixnum(0))); |
|
|
T299:; |
|
572 |
{register object V53; |
{register object V53; |
573 |
register object V54; |
register object V54; |
574 |
V53= car((V50)); |
V53= Cnil; |
575 |
V54= car((V53)); |
V54= Cnil; |
576 |
T306:; |
if(!(endp((V52)))){ |
|
if(!(endp((V53)))){ |
|
577 |
goto T307;} |
goto T307;} |
578 |
goto T302; |
(void)((*(LnkLI275))(VV[44],small_fixnum(1),small_fixnum(0))); |
579 |
|
goto T307; |
580 |
T307:; |
T307:; |
581 |
{object V55= (V54); |
{register object V55; |
582 |
if((V55!= VV[271]))goto T312; |
register object V56; |
583 |
V51= Ct; |
V55= car((V52)); |
584 |
goto T311; |
V56= car((V55)); |
585 |
T312:; |
goto T314; |
|
if((V55!= VV[39]))goto T314; |
|
|
V52= Ct; |
|
|
goto T311; |
|
586 |
T314:; |
T314:; |
587 |
if((V55!= VV[272]))goto T316; |
if(!(endp((V55)))){ |
588 |
goto T311; |
goto T315;} |
589 |
T316:; |
goto T310; |
590 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[41],(V54))));} |
goto T315; |
591 |
T311:; |
T315:; |
592 |
V53= cdr((V53)); |
{object V57= (V56); |
593 |
V54= car((V53)); |
if((V57!= VV[276]))goto T320; |
594 |
goto T306;} |
V53= Ct; |
595 |
T302:; |
goto T319; |
596 |
base[1]= car((V50)); |
goto T320; |
597 |
bds_bind(VV[38],base[1]); |
T320:; |
598 |
if(((V51))==Cnil){ |
if((V57!= VV[43]))goto T322; |
599 |
goto T324;} |
V54= Ct; |
600 |
base[2]= (*(LnkLI273))(cdr((V50))); |
goto T319; |
601 |
|
goto T322; |
602 |
|
T322:; |
603 |
|
if((V57!= VV[277]))goto T324; |
604 |
|
goto T319; |
605 |
|
goto T324; |
606 |
|
T324:; |
607 |
|
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[45],(V56))));} |
608 |
|
goto T319; |
609 |
|
T319:; |
610 |
|
V55= cdr((V55)); |
611 |
|
V56= car((V55)); |
612 |
|
goto T314;} |
613 |
|
goto T310; |
614 |
|
T310:; |
615 |
|
base[1]= car((V52)); |
616 |
|
bds_bind(VV[42],base[1]); |
617 |
|
if(((V53))==Cnil){ |
618 |
|
goto T332;} |
619 |
|
base[2]= (*(LnkLI278))(cdr((V52))); |
620 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
621 |
bds_unwind1; |
bds_unwind1; |
622 |
return; |
return; |
623 |
T324:; |
goto T332; |
624 |
if(((V52))==Cnil){ |
T332:; |
625 |
goto T327;} |
if(((V54))==Cnil){ |
626 |
base[2]= make_cons(VV[42],cdr((V50))); |
goto T335;} |
627 |
|
base[2]= make_cons(VV[46],cdr((V52))); |
628 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
629 |
(void) (*Lnk269)(); |
(void) (*Lnk274)(); |
630 |
bds_unwind1; |
bds_unwind1; |
631 |
return; |
return; |
632 |
T327:; |
goto T335; |
633 |
|
T335:; |
634 |
base[2]= Cnil; |
base[2]= Cnil; |
635 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
636 |
bds_unwind1; |
bds_unwind1; |
639 |
} |
} |
640 |
/* local entry for function T1PROGN */ |
/* local entry for function T1PROGN */ |
641 |
|
|
642 |
static object LI5(V57) |
static object LI5(V59) |
643 |
|
|
644 |
object V57; |
object V59; |
645 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
646 |
bds_check; |
bds_check; |
647 |
|
goto TTL; |
648 |
TTL:; |
TTL:; |
649 |
if(!(equal(car((V57)),VV[43]))){ |
if(!(equal(car((V59)),VV[47]))){ |
650 |
goto T331;} |
goto T339;} |
651 |
bds_bind(VV[44],Ct); |
bds_bind(VV[48],Ct); |
652 |
{object V58 = (*(LnkLI273))(cdr((V57))); |
{object V60 = (*(LnkLI278))(cdr((V59))); |
653 |
bds_unwind1; |
bds_unwind1; |
654 |
VMR5(V58)} |
VMR5(V60)} |
655 |
T331:; |
goto T339; |
656 |
{register object V59; |
T339:; |
657 |
register object V60; |
{register object V61; |
658 |
V59= (V57); |
register object V62; |
659 |
V60= car((V59)); |
V61= (V59); |
660 |
T336:; |
V62= car((V61)); |
661 |
if(!(endp((V59)))){ |
goto T344; |
662 |
goto T337;} |
T344:; |
663 |
{object V61 = Cnil; |
if(!(endp((V61)))){ |
664 |
VMR5(V61)} |
goto T345;} |
665 |
T337:; |
{object V63 = Cnil; |
666 |
base[1]= (V60); |
VMR5(V63)} |
667 |
|
goto T345; |
668 |
|
T345:; |
669 |
|
base[1]= (V62); |
670 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
671 |
(void) (*Lnk259)(); |
(void) (*Lnk264)(); |
672 |
vs_top=sup; |
vs_top=sup; |
673 |
V59= cdr((V59)); |
V61= cdr((V61)); |
674 |
V60= car((V59)); |
V62= car((V61)); |
675 |
goto T336;} |
goto T344;} |
676 |
|
base[0]=base[0]; |
677 |
|
return Cnil; |
678 |
} |
} |
679 |
/* local entry for function CMPFIX-ARGS */ |
/* local entry for function CMPFIX-ARGS */ |
680 |
|
|
681 |
static object LI6(V64,V65) |
static object LI6(V66,V67) |
682 |
|
|
683 |
object V64;object V65; |
object V66;object V67; |
684 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
685 |
|
goto TTL; |
686 |
TTL:; |
TTL:; |
687 |
{register object V66; |
{register object V68; |
688 |
register object V67; |
register object V69; |
689 |
V66= Cnil; |
V68= Cnil; |
690 |
base[1]= cadr((V64)); |
base[1]= cadr((V66)); |
691 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
692 |
Lcopy_list(); |
Lcopy_list(); |
693 |
vs_top=sup; |
vs_top=sup; |
694 |
V67= vs_base[0]; |
V69= vs_base[0]; |
695 |
{register object V68; |
{register object V70; |
696 |
register object V69; |
register object V71; |
697 |
V68= (V65); |
V70= (V67); |
698 |
V69= car((V68)); |
V71= car((V70)); |
699 |
T355:; |
goto T363; |
700 |
if(!(endp((V68)))){ |
T363:; |
701 |
goto T356;} |
if(!(endp((V70)))){ |
702 |
goto T351; |
goto T364;} |
703 |
T356:; |
goto T359; |
704 |
{register object x= car((V69)),V70= (V67); |
goto T364; |
705 |
while(!endp(V70)) |
T364:; |
706 |
if(eql(x,V70->c.c_car)){ |
{register object x= car((V71)),V72= (V69); |
707 |
V66= V70; |
while(!endp(V72)) |
708 |
goto T361; |
if(eql(x,V72->c.c_car)){ |
709 |
}else V70=V70->c.c_cdr; |
V68= V72; |
710 |
V66= Cnil;} |
goto T369; |
711 |
T361:; |
}else V72=V72->c.c_cdr; |
712 |
if((V66)==Cnil){ |
V68= Cnil;} |
713 |
goto T362;} |
goto T369; |
714 |
{register object V71; |
T369:; |
715 |
register object V72; |
if((V68)==Cnil){ |
716 |
V71= (V66); |
goto T370;} |
717 |
V72= cadr((V69)); |
{register object V73; |
718 |
if(type_of((V71))!=t_cons)FEwrong_type_argument(Scons,(V71)); |
register object V74; |
719 |
((V71))->c.c_car = (V72);} |
V73= (V68); |
720 |
T362:; |
V74= cadr((V71)); |
721 |
V68= cdr((V68)); |
if(type_of((V73))!=t_cons)FEwrong_type_argument(Scons,(V73)); |
722 |
V69= car((V68)); |
((V73))->c.c_car = (V74);} |
723 |
goto T355;} |
goto T370; |
724 |
T351:; |
T370:; |
725 |
{register object x= VV[45],V73= (V67); |
V70= cdr((V70)); |
726 |
while(!endp(V73)) |
V71= car((V70)); |
727 |
if(eql(x,V73->c.c_car)){ |
goto T363;} |
728 |
V66= V73; |
goto T359; |
729 |
goto T375; |
T359:; |
730 |
}else V73=V73->c.c_cdr; |
{register object x= VV[49],V75= (V69); |
731 |
V66= Cnil;} |
while(!endp(V75)) |
732 |
T375:; |
if(eql(x,V75->c.c_car)){ |
733 |
if(((V66))==Cnil){ |
V68= V75; |
734 |
goto T373;} |
goto T383; |
735 |
{object V75; |
}else V75=V75->c.c_cdr; |
736 |
V75= append((V65),cdr((V66))); |
V68= Cnil;} |
737 |
if(type_of(V66)!=t_cons)FEwrong_type_argument(Scons,V66); |
goto T383; |
738 |
(V66)->c.c_cdr = (V75); |
T383:; |
739 |
goto T371;} |
if(((V68))==Cnil){ |
740 |
T373:; |
goto T381;} |
741 |
V76= make_cons(VV[45],(V65)); |
{object V77; |
742 |
V67= append((V67),/* INLINE-ARGS */V76); |
V77= append((V67),cdr((V68))); |
743 |
T371:; |
if(type_of(V68)!=t_cons)FEwrong_type_argument(Scons,V68); |
744 |
{object V77 = listA(3,car((V64)),(V67),cddr((V64))); |
(V68)->c.c_cdr = (V77); |
745 |
VMR6(V77)}} |
goto T379;} |
746 |
|
goto T381; |
747 |
|
T381:; |
748 |
|
V78= make_cons(VV[49],(V67)); |
749 |
|
V69= append((V69),/* INLINE-ARGS */V78); |
750 |
|
goto T379; |
751 |
|
T379:; |
752 |
|
{object V79 = listA(3,car((V66)),(V69),cddr((V66))); |
753 |
|
VMR6(V79)}} |
754 |
|
base[0]=base[0]; |
755 |
|
return Cnil; |
756 |
} |
} |
757 |
/* local entry for function T1DEFUN */ |
/* local entry for function T1DEFUN */ |
758 |
|
|
759 |
static object LI7(V79) |
static object LI7(V81) |
760 |
|
|
761 |
object V79; |
object V81; |
762 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
763 |
bds_check; |
bds_check; |
764 |
|
goto TTL; |
765 |
TTL:; |
TTL:; |
766 |
{object V80; |
{object V82; |
767 |
V80= symbol_value(VV[46]); |
V82= symbol_value(VV[50]); |
|
bds_bind(VV[48],Cnil); |
|
|
if(endp((V79))){ |
|
|
goto T381;} |
|
|
if(!(endp(cdr((V79))))){ |
|
|
goto T380;} |
|
|
T381:; |
|
|
V82 = make_fixnum(length((V79))); |
|
|
(void)((*(LnkLI270))(VV[47],small_fixnum(2),V82)); |
|
|
T380:; |
|
|
if(type_of(car((V79)))==t_symbol){ |
|
|
goto T385;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[49],car((V79))))); |
|
|
T385:; |
|
|
V83= make_cons(VV[47],(V79)); |
|
|
(void)((*(LnkLI255))(Cnil,/* INLINE-ARGS */V83)); |
|
|
T390:; |
|
|
setq(VV[6],Ct); |
|
|
setq(VV[50],Cnil); |
|
|
{register object V84; |
|
|
object V85; |
|
|
object V86; |
|
|
register object V87;{object V88; |
|
|
V88= get(car((V79)),VV[56],Cnil); |
|
|
if(V88==Cnil)goto T397; |
|
|
V85= V88; |
|
|
goto T396; |
|
|
T397:;} |
|
|
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
|
|
V85= symbol_value(VV[57]); |
|
|
T396:; |
|
|
V87= car((V79)); |
|
|
bds_bind(VV[51],Cnil); |
|
768 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
769 |
bds_bind(VV[53],Cnil); |
if(endp((V81))){ |
770 |
bds_bind(VV[54],Cnil); |
goto T389;} |
771 |
V84= Cnil; |
if(!(endp(cdr((V81))))){ |
772 |
|
goto T388;} |
773 |
|
goto T389; |
774 |
|
T389:; |
775 |
|
V84 = make_fixnum(length((V81))); |
776 |
|
(void)((*(LnkLI275))(VV[51],small_fixnum(2),V84)); |
777 |
|
goto T388; |
778 |
|
T388:; |
779 |
|
if(type_of(car((V81)))==t_symbol){ |
780 |
|
goto T393;} |
781 |
|
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[53],car((V81))))); |
782 |
|
goto T393; |
783 |
|
T393:; |
784 |
|
V85= make_cons(VV[51],(V81)); |
785 |
|
(void)((*(LnkLI260))(Cnil,/* INLINE-ARGS */V85)); |
786 |
|
goto T398; |
787 |
|
T398:; |
788 |
|
setq(VV[6],Ct); |
789 |
|
setq(VV[54],Cnil); |
790 |
|
{register object V86; |
791 |
|
object V87; |
792 |
|
object V88; |
793 |
|
register object V89;{object V90; |
794 |
|
V90= get(car((V81)),VV[60],Cnil); |
795 |
|
if(V90==Cnil)goto T405; |
796 |
|
V87= V90; |
797 |
|
goto T404; |
798 |
|
goto T405; |
799 |
|
T405:;} |
800 |
|
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
801 |
|
V87= symbol_value(VV[61]); |
802 |
|
goto T404; |
803 |
|
T404:; |
804 |
|
V89= car((V81)); |
805 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
806 |
|
bds_bind(VV[56],Cnil); |
807 |
|
bds_bind(VV[57],Cnil); |
808 |
|
bds_bind(VV[58],Cnil); |
809 |
V86= Cnil; |
V86= Cnil; |
810 |
V84= (VFUN_NARGS=2,(*(LnkLI274))(cdr((V79)),(V87))); |
bds_bind(VV[59],Cnil); |
811 |
if(!(eql((V80),symbol_value(VV[46])))){ |
V88= Cnil; |
812 |
goto T404;} |
V86= (VFUN_NARGS=2,(*(LnkLI279))(cdr((V81)),(V89))); |
813 |
goto T403; |
if(!(eql((V82),symbol_value(VV[50])))){ |
814 |
T404:; |
goto T412;} |
815 |
(void)(structure_set(cadr((V84)),VV[58],4,Ct)); |
goto T411; |
816 |
T403:; |
goto T412; |
817 |
V89= structure_ref(cadr((V84)),VV[58],1); |
T412:; |
818 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V89)); |
(void)(structure_set(cadr((V86)),VV[62],4,Ct)); |
819 |
if((get((V87),VV[59],Cnil))==Cnil){ |
goto T411; |
820 |
goto T407;} |
T411:; |
821 |
{object V90; |
V91= structure_ref(cadr((V86)),VV[62],1); |
822 |
V90= make_fixnum(length(car(caddr((V84))))); |
(void)((*(LnkLI280))(/* INLINE-ARGS */V91)); |
823 |
(void)(sputprop((V87),VV[59],(V90))); |
if((get((V89),VV[63],Cnil))==Cnil){ |
824 |
base[6]= (V90); |
goto T415;} |
825 |
base[7]= VV[61]; |
{object V92; |
826 |
|
V92= make_fixnum(length(car(caddr((V86))))); |
827 |
|
(void)(sputprop((V89),VV[63],(V92))); |
828 |
|
base[6]= (V92); |
829 |
|
base[7]= VV[65]; |
830 |
base[8]= Ct; |
base[8]= Ct; |
831 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
832 |
Lmake_list(); |
Lmake_list(); |
833 |
vs_top=sup; |
vs_top=sup; |
834 |
V91= vs_base[0]; |
V93= vs_base[0]; |
835 |
V92= list(4,VV[60],(V87),V91,Ct); |
V94= list(4,VV[64],(V89),V93,Ct); |
836 |
(void)((*(LnkLI276))(/* INLINE-ARGS */V92));} |
(void)((*(LnkLI281))(/* INLINE-ARGS */V94));} |
837 |
T407:; |
goto T415; |
838 |
if((get((V87),VV[62],Cnil))==Cnil){ |
T415:; |
839 |
goto T418;} |
if((get((V89),VV[66],Cnil))==Cnil){ |
840 |
{object V93; |
goto T426;} |
841 |
register object V94; |
{object V95; |
|
V93= caddr((V84)); |
|
|
V94= Cnil; |
|
|
if((cadr((V93)))==Cnil){ |
|
|
goto T423;} |
|
|
goto T418; |
|
|
T423:; |
|
|
if((caddr((V93)))==Cnil){ |
|
|
goto T425;} |
|
|
goto T418; |
|
|
T425:; |
|
|
if((cadddr((V93)))==Cnil){ |
|
|
goto T427;} |
|
|
goto T418; |
|
|
T427:; |
|
|
if((length(car((V93))))<(64)){ |
|
|
goto T429;} |
|
|
goto T418; |
|
|
T429:; |
|
|
{register object V95; |
|
842 |
register object V96; |
register object V96; |
843 |
object V97; |
V95= caddr((V86)); |
844 |
V95= car((V93)); |
V96= Cnil; |
845 |
V96= get((V87),VV[63],Cnil); |
if((cadr((V95)))==Cnil){ |
846 |
V97= Cnil; |
goto T431;} |
847 |
T436:; |
goto T426; |
848 |
if(!(endp((V95)))){ |
goto T431; |
849 |
|
T431:; |
850 |
|
if((caddr((V95)))==Cnil){ |
851 |
|
goto T433;} |
852 |
|
goto T426; |
853 |
|
goto T433; |
854 |
|
T433:; |
855 |
|
if((cadddr((V95)))==Cnil){ |
856 |
|
goto T435;} |
857 |
|
goto T426; |
858 |
|
goto T435; |
859 |
|
T435:; |
860 |
|
if((length(car((V95))))<(64)){ |
861 |
goto T437;} |
goto T437;} |
862 |
if(endp((V96))){ |
goto T426; |
863 |
goto T440;} |
goto T437; |
864 |
goto T432; |
T437:; |
865 |
T440:; |
{register object V97; |
866 |
if(((V94))==Cnil){ |
register object V98; |
867 |
goto T443;} |
object V99; |
868 |
V79= (*(LnkLI277))((V79),(V94)); |
V97= car((V95)); |
869 |
|
V98= get((V89),VV[67],Cnil); |
870 |
|
V99= Cnil; |
871 |
|
goto T444; |
872 |
|
T444:; |
873 |
|
if(!(endp((V97)))){ |
874 |
|
goto T445;} |
875 |
|
if(endp((V98))){ |
876 |
|
goto T448;} |
877 |
|
goto T440; |
878 |
|
goto T448; |
879 |
|
T448:; |
880 |
|
if(((V96))==Cnil){ |
881 |
|
goto T451;} |
882 |
|
V81= (*(LnkLI282))((V81),(V96)); |
883 |
bds_unwind1; |
bds_unwind1; |
884 |
bds_unwind1; |
bds_unwind1; |
885 |
bds_unwind1; |
bds_unwind1; |
886 |
bds_unwind1; |
bds_unwind1; |
887 |
bds_unwind1; |
bds_unwind1; |
888 |
goto T390; |
goto T398; |
889 |
T443:; |
goto T451; |
890 |
if(((V97))==Cnil){ |
T451:; |
891 |
goto T431;} |
if(((V99))==Cnil){ |
892 |
goto T432; |
goto T439;} |
893 |
T437:; |
goto T440; |
894 |
{register object V98; |
goto T445; |
895 |
V98= car((V95)); |
T445:; |
896 |
if(!(equal(car((V96)),VV[64]))){ |
{register object V100; |
897 |
goto T450;} |
V100= car((V97)); |
898 |
goto T432; |
if(!(equal(car((V98)),VV[68]))){ |
899 |
T450:; |
goto T458;} |
900 |
V99= structure_ref((V98),VV[65],1); |
goto T440; |
901 |
if((/* INLINE-ARGS */V99)==(VV[66])){ |
goto T458; |
902 |
goto T456;} |
T458:; |
903 |
V100= structure_ref((V98),VV[65],1); |
V101= structure_ref((V100),VV[69],1); |
904 |
if(!((/* INLINE-ARGS */V100)==(VV[67]))){ |
if((/* INLINE-ARGS */V101)==(VV[70])){ |
905 |
goto T455;} |
goto T464;} |
906 |
if(!((car((V96)))==(Ct))){ |
V102= structure_ref((V100),VV[69],1); |
907 |
goto T455;} |
if(!((/* INLINE-ARGS */V102)==(VV[71]))){ |
908 |
T456:; |
goto T463;} |
909 |
if((structure_ref((V98),VV[65],3))!=Cnil){ |
if(!((car((V98)))==(Ct))){ |
910 |
goto T455;} |
goto T463;} |
911 |
V101= structure_ref((V98),VV[65],4); |
goto T464; |
912 |
if(!((/* INLINE-ARGS */V101)==(VV[68]))){ |
T464:; |
913 |
goto T454;} |
if((structure_ref((V100),VV[69],3))!=Cnil){ |
914 |
T455:; |
goto T463;} |
915 |
V102= structure_ref((V98),VV[65],0); |
V103= structure_ref((V100),VV[69],4); |
916 |
|
if(!((/* INLINE-ARGS */V103)==(VV[72]))){ |
917 |
|
goto T462;} |
918 |
|
goto T463; |
919 |
|
T463:; |
920 |
|
V104= structure_ref((V100),VV[69],0); |
921 |
vs_base=vs_top; |
vs_base=vs_top; |
922 |
Lgensym(); |
Lgensym(); |
923 |
vs_top=sup; |
vs_top=sup; |
924 |
V103= vs_base[0]; |
V105= vs_base[0]; |
925 |
V104= list(2,/* INLINE-ARGS */V102,V103); |
V106= list(2,/* INLINE-ARGS */V104,V105); |
926 |
V94= make_cons(/* INLINE-ARGS */V104,(V94)); |
V96= make_cons(/* INLINE-ARGS */V106,(V96)); |
927 |
T454:; |
goto T462; |
928 |
V105= car((V96)); |
T462:; |
929 |
V106= structure_ref((V98),VV[65],5); |
V107= car((V98)); |
930 |
if(((*(LnkLI278))(/* INLINE-ARGS */V105,/* INLINE-ARGS */V106))==Cnil){ |
V108= structure_ref((V100),VV[69],5); |
931 |
goto T453;} |
if(((*(LnkLI283))(/* INLINE-ARGS */V107,/* INLINE-ARGS */V108))==Cnil){ |
932 |
{register object x= car((V96)),V107= VV[69]; |
goto T461;} |
933 |
while(!endp(V107)) |
{register object x= car((V98)),V109= VV[73]; |
|
if(eql(x,V107->c.c_car)){ |
|
|
goto T448; |
|
|
}else V107=V107->c.c_cdr;} |
|
|
V108= structure_ref((V98),VV[65],4); |
|
|
if((/* INLINE-ARGS */V108)==(VV[70])){ |
|
|
goto T448;} |
|
|
if((symbol_value(VV[71]))!=Cnil){ |
|
|
goto T448;} |
|
|
V110= structure_ref(cadr((V84)),VV[58],0); |
|
|
{register object x= (V98),V109= /* INLINE-ARGS */V110; |
|
934 |
while(!endp(V109)) |
while(!endp(V109)) |
935 |
if(eql(x,V109->c.c_car)){ |
if(eql(x,V109->c.c_car)){ |
936 |
goto T477; |
goto T456; |
937 |
}else V109=V109->c.c_cdr; |
}else V109=V109->c.c_cdr;} |
938 |
goto T448;} |
V110= structure_ref((V100),VV[69],4); |
939 |
T477:; |
if((/* INLINE-ARGS */V110)==(VV[74])){ |
940 |
T453:; |
goto T456;} |
941 |
if(((V94))!=Cnil){ |
if((symbol_value(VV[75]))!=Cnil){ |
942 |
goto T478;} |
goto T456;} |
943 |
V111= structure_ref((V98),VV[65],0); |
V112= structure_ref(cadr((V86)),VV[62],0); |
944 |
(void)((VFUN_NARGS=3,(*(LnkLI254))(VV[72],(V87),/* INLINE-ARGS */V111))); |
{register object x= (V100),V111= /* INLINE-ARGS */V112; |
945 |
T478:; |
while(!endp(V111)) |
946 |
V97= Ct;} |
if(eql(x,V111->c.c_car)){ |
947 |
T448:; |
goto T485; |
948 |
V95= cdr((V95)); |
}else V111=V111->c.c_cdr; |
949 |
V96= cdr((V96)); |
goto T456;} |
950 |
goto T436;} |
goto T485; |
951 |
T432:; |
T485:; |
952 |
goto T418; |
goto T461; |
953 |
T431:; |
T461:; |
954 |
if(!(type_of((V85))==t_fixnum|| |
if(((V96))!=Cnil){ |
955 |
type_of((V85))==t_bignum|| |
goto T486;} |
956 |
type_of((V85))==t_ratio|| |
V113= structure_ref((V100),VV[69],0); |
957 |
type_of((V85))==t_shortfloat|| |
(void)((VFUN_NARGS=3,(*(LnkLI259))(VV[76],(V89),/* INLINE-ARGS */V113))); |
958 |
type_of((V85))==t_longfloat|| |
goto T486; |
959 |
type_of((V85))==t_complex)){ |
T486:; |
960 |
goto T418;}} |
V99= Ct;} |
961 |
V112= get((V87),VV[63],Cnil); |
goto T456; |
962 |
V113= get((V87),VV[74],Cnil); |
T456:; |
963 |
V114= get((V87),VV[63],Cnil); |
V97= cdr((V97)); |
964 |
V115= list(5,(V87),V112,V113,small_fixnum(3),(*(LnkLI279))((V85),V114)); |
V98= cdr((V98)); |
965 |
setq(VV[73],make_cons(/* INLINE-ARGS */V115,symbol_value(VV[73]))); |
goto T444;} |
966 |
goto T416; |
goto T440; |
967 |
T418:; |
T440:; |
968 |
{object V116; |
goto T426; |
969 |
V117= get((V87),VV[74],Cnil); |
goto T439; |
970 |
V116= ((V117)==(Ct)?Ct:Cnil); |
T439:; |
971 |
if(((V116))==Cnil){ |
if(!(type_of((V87))==t_fixnum|| |
972 |
goto T416;}} |
type_of((V87))==t_bignum|| |
973 |
T416:; |
type_of((V87))==t_ratio|| |
974 |
if((cadddr((V84)))==Cnil){ |
type_of((V87))==t_shortfloat|| |
975 |
goto T494;} |
type_of((V87))==t_longfloat|| |
976 |
V86= cadddr((V84)); |
type_of((V87))==t_complex)){ |
977 |
T494:; |
goto T426;}} |
978 |
(void)((*(LnkLI280))()); |
V114= get((V89),VV[67],Cnil); |
979 |
V118= list(6,VV[47],(V87),(V85),(V84),(V86),(VV[55]->s.s_dbind)); |
V115= get((V89),VV[78],Cnil); |
980 |
setq(VV[20],make_cons(/* INLINE-ARGS */V118,symbol_value(VV[20]))); |
V116= get((V89),VV[67],Cnil); |
981 |
V119= make_cons((V87),(V85)); |
V117= list(5,(V89),V114,V115,small_fixnum(3),(*(LnkLI284))((V87),V116)); |
982 |
setq(VV[75],make_cons(/* INLINE-ARGS */V119,symbol_value(VV[75]))); |
setq(VV[77],make_cons(/* INLINE-ARGS */V117,symbol_value(VV[77]))); |
983 |
V120= symbol_value(VV[75]); |
goto T424; |
984 |
|
goto T426; |
985 |
|
T426:; |
986 |
|
{object V118; |
987 |
|
V119= get((V89),VV[78],Cnil); |
988 |
|
V118= ((V119)==(Ct)?Ct:Cnil); |
989 |
|
if(((V118))==Cnil){ |
990 |
|
goto T424;}} |
991 |
|
goto T424; |
992 |
|
T424:; |
993 |
|
if((cadddr((V86)))==Cnil){ |
994 |
|
goto T502;} |
995 |
|
V88= cadddr((V86)); |
996 |
|
goto T502; |
997 |
|
T502:; |
998 |
|
(void)((*(LnkLI285))()); |
999 |
|
V120= list(6,VV[51],(V89),(V87),(V86),(V88),(VV[59]->s.s_dbind)); |
1000 |
|
setq(VV[20],make_cons(/* INLINE-ARGS */V120,symbol_value(VV[20]))); |
1001 |
|
V121= make_cons((V89),(V87)); |
1002 |
|
setq(VV[79],make_cons(/* INLINE-ARGS */V121,symbol_value(VV[79]))); |
1003 |
|
V122= symbol_value(VV[79]); |
1004 |
bds_unwind1; |
bds_unwind1; |
1005 |
bds_unwind1; |
bds_unwind1; |
1006 |
bds_unwind1; |
bds_unwind1; |
1007 |
bds_unwind1; |
bds_unwind1; |
1008 |
bds_unwind1;} |
bds_unwind1;} |
1009 |
{object V121 = Cnil; |
{object V123 = Cnil; |
1010 |
bds_unwind1; |
bds_unwind1; |
1011 |
VMR7(V121)}} |
VMR7(V123)}} |
1012 |
|
base[0]=base[0]; |
1013 |
|
return Cnil; |
1014 |
} |
} |
1015 |
/* local entry for function MAKE-INLINE-STRING */ |
/* local entry for function MAKE-INLINE-STRING */ |
1016 |
|
|
1017 |
static object LI8(V124,V125) |
static object LI8(V126,V127) |
1018 |
|
|
1019 |
object V124;object V125; |
object V126;object V127; |
1020 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1021 |
|
goto TTL; |
1022 |
TTL:; |
TTL:; |
1023 |
if(((V125))!=Cnil){ |
if(((V127))!=Cnil){ |
1024 |
goto T503;} |
goto T511;} |
1025 |
base[0]= Cnil; |
base[0]= Cnil; |
1026 |
base[1]= VV[76]; |
base[1]= VV[80]; |
1027 |
base[2]= (V124); |
base[2]= (V126); |
1028 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1029 |
Lformat(); |
Lformat(); |
1030 |
vs_top=sup; |
vs_top=sup; |
1031 |
{object V126 = vs_base[0]; |
{object V128 = vs_base[0]; |
1032 |
VMR8(V126)} |
VMR8(V128)} |
1033 |
T503:; |
goto T511; |
1034 |
{register object V127; |
T511:; |
1035 |
V127= (VFUN_NARGS=7,(*(LnkLI281))(small_fixnum(100),VV[77],VV[78],VV[79],small_fixnum(0),VV[80],Ct)); |
{register object V129; |
1036 |
base[0]= (V127); |
V129= (VFUN_NARGS=7,(*(LnkLI286))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct)); |
1037 |
base[1]= VV[81]; |
base[0]= (V129); |
1038 |
base[2]= (V124); |
base[1]= VV[85]; |
1039 |
|
base[2]= (V126); |
1040 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1041 |
Lformat(); |
Lformat(); |
1042 |
vs_top=sup; |
vs_top=sup; |
1043 |
{register object V128; |
{register object V130; |
1044 |
register long V129; |
register long V131; |
1045 |
V129= 0; |
V131= 0; |
1046 |
V128= (V125); |
V130= (V127); |
1047 |
T516:; |
goto T524; |
1048 |
if(!(endp(cdr((V128))))){ |
T524:; |
1049 |
goto T517;} |
if(!(endp(cdr((V130))))){ |
1050 |
base[0]= (V127); |
goto T525;} |
1051 |
base[1]= VV[82]; |
base[0]= (V129); |
1052 |
base[2]= make_fixnum(V129); |
base[1]= VV[86]; |
1053 |
|
base[2]= make_fixnum(V131); |
1054 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1055 |
Lformat(); |
Lformat(); |
1056 |
vs_top=sup; |
vs_top=sup; |
1057 |
goto T513; |
goto T521; |
1058 |
T517:; |
goto T525; |
1059 |
base[0]= (V127); |
T525:; |
1060 |
base[1]= VV[83]; |
base[0]= (V129); |
1061 |
base[2]= make_fixnum(V129); |
base[1]= VV[87]; |
1062 |
|
base[2]= make_fixnum(V131); |
1063 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1064 |
Lformat(); |
Lformat(); |
1065 |
vs_top=sup; |
vs_top=sup; |
1066 |
V128= cdr((V128)); |
V130= cdr((V130)); |
1067 |
V129= (V129)+1; |
V131= (V131)+1; |
1068 |
goto T516;} |
goto T524;} |
1069 |
T513:; |
goto T521; |
1070 |
{object V130 = (V127); |
T521:; |
1071 |
VMR8(V130)}} |
{object V132 = (V129); |
1072 |
|
VMR8(V132)}} |
1073 |
|
base[0]=base[0]; |
1074 |
|
return Cnil; |
1075 |
} |
} |
1076 |
/* local entry for function CS-PUSH */ |
/* local entry for function CS-PUSH */ |
1077 |
|
|
1080 |
{ |
{ |
1081 |
va_list ap; |
va_list ap; |
1082 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
1083 |
{object V131; |
{object V133; |
1084 |
|
Vcs[0]=Vcs[0]; |
1085 |
|
va_start(ap); |
1086 |
narg = narg - 0; |
narg = narg - 0; |
1087 |
if (narg <= 0) goto T532; |
if (narg <= 0) goto T540; |
1088 |
else { |
else { |
1089 |
va_start(ap); |
V133= va_arg(ap,object);} |
1090 |
V131= va_arg(ap,object);} |
--narg; goto T541; |
1091 |
--narg; goto T533; |
goto T540; |
1092 |
T532:; |
T540:; |
1093 |
V131= Cnil; |
V133= Cnil; |
1094 |
T533:; |
goto T541; |
|
{object V132; |
|
|
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
|
|
V132= symbol_value(VV[84]); |
|
|
if(((V131))==Cnil){ |
|
|
goto T541;} |
|
|
V133= make_cons((V131),(V132)); |
|
|
goto T539; |
|
1095 |
T541:; |
T541:; |
1096 |
V133= (V132); |
{object V134; |
1097 |
T539:; |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1098 |
setq(VV[14],make_cons(V133,symbol_value(VV[14]))); |
V134= symbol_value(VV[88]); |
1099 |
{object V134 = (V132); |
if(((V133))==Cnil){ |
1100 |
VMR9(V134)}}} |
goto T549;} |
1101 |
|
V135= make_cons((V133),(V134)); |
1102 |
|
goto T547; |
1103 |
|
goto T549; |
1104 |
|
T549:; |
1105 |
|
V135= (V134); |
1106 |
|
goto T547; |
1107 |
|
T547:; |
1108 |
|
setq(VV[14],make_cons(V135,symbol_value(VV[14]))); |
1109 |
|
{object V136 = (V134); |
1110 |
|
VMR9(V136)}} |
1111 |
|
va_end(ap); |
1112 |
|
return Cnil;} |
1113 |
} |
} |
1114 |
/* local entry for function F-TYPE */ |
/* local entry for function F-TYPE */ |
1115 |
|
|
1116 |
static long LI10(V136) |
static long LI10(V138) |
1117 |
|
|
1118 |
register object V136; |
register object V138; |
1119 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
1120 |
|
goto TTL; |
1121 |
TTL:; |
TTL:; |
1122 |
base[0]= (V136); |
base[0]= (V138); |
1123 |
base[1]= VV[65]; |
base[1]= VV[69]; |
1124 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1125 |
(void) (*Lnk282)(); |
(void) (*Lnk287)(); |
1126 |
vs_top=sup; |
vs_top=sup; |
1127 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1128 |
goto T543;} |
goto T551;} |
1129 |
V136= structure_ref((V136),VV[65],5); |
V138= structure_ref((V138),VV[69],5); |
1130 |
T543:; |
goto T551; |
1131 |
if(((V136))==Cnil){ |
T551:; |
1132 |
goto T550;} |
if(((V138))==Cnil){ |
1133 |
base[0]= (V136); |
goto T558;} |
1134 |
base[1]= VV[85]; |
base[0]= (V138); |
1135 |
|
base[1]= VV[89]; |
1136 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1137 |
(void) (*Lnk283)(); |
(void) (*Lnk288)(); |
1138 |
vs_top=sup; |
vs_top=sup; |
1139 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1140 |
goto T550;} |
goto T558;} |
1141 |
{long V137 = 1; |
{long V139 = 1; |
1142 |
VMR10(V137)} |
VMR10(V139)} |
1143 |
T550:; |
goto T558; |
1144 |
{long V138 = 0; |
T558:; |
1145 |
VMR10(V138)} |
{long V140 = 0; |
1146 |
|
VMR10(V140)} |
1147 |
|
base[0]=base[0]; |
1148 |
} |
} |
1149 |
/* local entry for function PROCLAIMED-ARGD */ |
/* local entry for function PROCLAIMED-ARGD */ |
1150 |
|
|
1151 |
static long LI11(V141,V142) |
static long LI11(V143,V144) |
1152 |
|
|
1153 |
register object V141;object V142; |
register object V143;object V144; |
1154 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
1155 |
|
goto TTL; |
1156 |
TTL:; |
TTL:; |
1157 |
{register long V143; |
{register long V145; |
1158 |
register long V144; |
register long V146; |
1159 |
register object V145; |
register object V147; |
1160 |
register object V146; |
register object V148; |
1161 |
V143= length((V141)); |
V145= length((V143)); |
1162 |
V144= 8; |
V146= 8; |
1163 |
V145= make_fixnum((*(LnkLI284))((V142))); |
V147= make_fixnum((*(LnkLI289))((V144))); |
1164 |
V146= Ct; |
V148= Ct; |
1165 |
T560:; |
goto T568; |
1166 |
if(eql(small_fixnum(0),(V145))){ |
T568:; |
1167 |
goto T562;} |
if(eql(small_fixnum(0),(V147))){ |
1168 |
V143= (V143)+(((fix((V145))) << (V144))); |
goto T570;} |
1169 |
T562:; |
V145= (V145)+(((fix((V147))) << (V146))); |
1170 |
if(((V146))==Cnil){ |
goto T570; |
1171 |
goto T566;} |
T570:; |
1172 |
V144= 10; |
if(((V148))==Cnil){ |
1173 |
V146= Cnil; |
goto T574;} |
1174 |
T566:; |
V146= 10; |
1175 |
if(((V141))!=Cnil){ |
V148= Cnil; |
1176 |
goto T572;} |
goto T574; |
1177 |
{long V147 = V143; |
T574:; |
1178 |
VMR11(V147)} |
if(((V143))!=Cnil){ |
1179 |
T572:; |
goto T580;} |
1180 |
V144= (V144)+(2); |
{long V149 = V145; |
1181 |
{register object V149; |
VMR11(V149)} |
1182 |
V149= car((V141)); |
goto T580; |
1183 |
V141= cdr((V141)); |
T580:; |
1184 |
V148= (V149);} |
V146= (V146)+(2); |
1185 |
V145= make_fixnum((*(LnkLI284))(V148)); |
{register object V151; |
1186 |
goto T560;} |
V151= car((V143)); |
1187 |
|
V143= cdr((V143)); |
1188 |
|
V150= (V151);} |
1189 |
|
V147= make_fixnum((*(LnkLI289))(V150)); |
1190 |
|
goto T568;} |
1191 |
} |
} |
1192 |
/* local entry for function WT-IF-PROCLAIMED */ |
/* local entry for function WT-IF-PROCLAIMED */ |
1193 |
|
|
1194 |
static object LI12(V153,V154,V155) |
static object LI12(V155,V156,V157) |
1195 |
|
|
1196 |
register object V153;object V154;object V155; |
register object V155;object V156;object V157; |
1197 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1198 |
|
goto TTL; |
1199 |
TTL:; |
TTL:; |
1200 |
if(((VFUN_NARGS=1,(*(LnkLI286))((V153))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI291))((V155))))==Cnil){ |
1201 |
goto T584;} |
goto T592;} |
1202 |
{register object x= (V153),V156= symbol_value(VV[73]); |
{register object x= (V155),V158= symbol_value(VV[77]); |
1203 |
while(!endp(V156)) |
while(!endp(V158)) |
1204 |
if(type_of(V156->c.c_car)==t_cons &&eql(x,V156->c.c_car->c.c_car)){ |
if(type_of(V158->c.c_car)==t_cons &&eql(x,V158->c.c_car->c.c_car)){ |
|
goto T588; |
|
|
}else V156=V156->c.c_cdr; |
|
|
goto T587;} |
|
|
T588:; |
|
|
V157= list(2,VV[87],(V153)); |
|
|
V158= (*(LnkLI288))(VV[88],(V154)); |
|
|
V159= get((V153),VV[63],Cnil); |
|
|
V160= get((V153),VV[74],Cnil); |
|
|
V161 = make_fixnum((*(LnkLI289))(V159,V160)); |
|
|
V162= list(4,VV[86],/* INLINE-ARGS */V157,/* INLINE-ARGS */V158,V161); |
|
|
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V162))); |
|
|
{object V163 = Ct; |
|
|
VMR12(V163)} |
|
|
T587:; |
|
|
{register object V164; |
|
|
register object V165; |
|
|
object V166; |
|
|
V164= make_fixnum(length(car(caddr((V155))))); |
|
|
V167= get((V153),VV[63],Cnil); |
|
|
V165= make_fixnum(length(V167)); |
|
|
V169= get((V153),VV[63],Cnil); |
|
|
{register object x= VV[64],V168= V169; |
|
|
while(!endp(V168)) |
|
|
if(eql(x,V168->c.c_car)){ |
|
|
V166= V168; |
|
1205 |
goto T596; |
goto T596; |
1206 |
}else V168=V168->c.c_cdr; |
}else V158=V158->c.c_cdr; |
1207 |
V166= Cnil;} |
goto T595;} |
1208 |
|
goto T596; |
1209 |
T596:; |
T596:; |
1210 |
if(((V166))==Cnil){ |
V159= list(2,VV[91],(V155)); |
1211 |
goto T599;} |
V160= (*(LnkLI293))(VV[92],(V156)); |
1212 |
base[0]= (V164); |
V161= get((V155),VV[67],Cnil); |
1213 |
|
V162= get((V155),VV[78],Cnil); |
1214 |
|
V163 = make_fixnum((*(LnkLI294))(V161,V162)); |
1215 |
|
V164= list(4,VV[90],/* INLINE-ARGS */V159,/* INLINE-ARGS */V160,V163); |
1216 |
|
(void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V164))); |
1217 |
|
{object V165 = Ct; |
1218 |
|
VMR12(V165)} |
1219 |
|
goto T595; |
1220 |
|
T595:; |
1221 |
|
{register object V166; |
1222 |
|
register object V167; |
1223 |
|
object V168; |
1224 |
|
V166= make_fixnum(length(car(caddr((V157))))); |
1225 |
|
V169= get((V155),VV[67],Cnil); |
1226 |
|
V167= make_fixnum(length(V169)); |
1227 |
|
V171= get((V155),VV[67],Cnil); |
1228 |
|
{register object x= VV[68],V170= V171; |
1229 |
|
while(!endp(V170)) |
1230 |
|
if(eql(x,V170->c.c_car)){ |
1231 |
|
V168= V170; |
1232 |
|
goto T604; |
1233 |
|
}else V170=V170->c.c_cdr; |
1234 |
|
V168= Cnil;} |
1235 |
|
goto T604; |
1236 |
|
T604:; |
1237 |
|
if(((V168))==Cnil){ |
1238 |
|
goto T607;} |
1239 |
|
base[0]= (V166); |
1240 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1241 |
Lmonotonically_nonincreasing(); |
Lmonotonically_nonincreasing(); |
1242 |
vs_top=sup; |
vs_top=sup; |
1243 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1244 |
goto T601;} |
goto T609;} |
1245 |
goto T592; |
goto T600; |
1246 |
T601:;{object V170; |
goto T609; |
1247 |
V171 = make_fixnum(length((V166))); |
T609:;{object V172; |
1248 |
V170= number_minus((V165),V171); |
V173 = make_fixnum(length((V168))); |
1249 |
if(V170==Cnil)goto T604; |
V172= number_minus((V167),V173); |
1250 |
goto T592; |
if(V172==Cnil)goto T612; |
1251 |
T604:;} |
goto T600; |
1252 |
V172 = make_fixnum(length((V166))); |
goto T612; |
1253 |
V173= number_minus((V165),V172); |
T612:;} |
1254 |
(void)((VFUN_NARGS=4,(*(LnkLI254))(VV[89],(V153),/* INLINE-ARGS */V173,(V164)))); |
V174 = make_fixnum(length((V168))); |
1255 |
goto T592; |
V175= number_minus((V167),V174); |
1256 |
T599:; |
(void)((VFUN_NARGS=4,(*(LnkLI259))(VV[93],(V155),/* INLINE-ARGS */V175,(V166)))); |
1257 |
if(eql((V164),(V165))){ |
goto T600; |
1258 |
goto T607;} |
goto T607; |
|
(void)((VFUN_NARGS=4,(*(LnkLI254))(VV[90],(V153),(V165),(V164)))); |
|
|
goto T592; |
|
1259 |
T607:; |
T607:; |
1260 |
(void)((VFUN_NARGS=2,(*(LnkLI254))(VV[91],(V153))));} |
if(eql((V166),(V167))){ |
1261 |
|
goto T615;} |
1262 |
|
(void)((VFUN_NARGS=4,(*(LnkLI259))(VV[94],(V155),(V167),(V166)))); |
1263 |
|
goto T600; |
1264 |
|
goto T615; |
1265 |
|
T615:; |
1266 |
|
(void)((VFUN_NARGS=2,(*(LnkLI259))(VV[95],(V155))));} |
1267 |
|
goto T600; |
1268 |
|
T600:; |
1269 |
|
{object V176 = Cnil; |
1270 |
|
VMR12(V176)} |
1271 |
|
goto T592; |
1272 |
T592:; |
T592:; |
1273 |
{object V174 = Cnil; |
{object V177 = Cnil; |
1274 |
VMR12(V174)} |
VMR12(V177)} |
1275 |
T584:; |
base[0]=base[0]; |
1276 |
{object V175 = Cnil; |
return Cnil; |
|
VMR12(V175)} |
|
1277 |
} |
} |
1278 |
/* local entry for function VOLATILE */ |
/* local entry for function VOLATILE */ |
1279 |
|
|
1280 |
static object LI13(V177) |
static object LI13(V179) |
1281 |
|
|
1282 |
object V177; |
object V179; |
1283 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1284 |
|
goto TTL; |
1285 |
TTL:; |
TTL:; |
1286 |
if((structure_ref((V177),VV[58],4))==Cnil){ |
if((structure_ref((V179),VV[62],4))==Cnil){ |
1287 |
goto T610;} |
goto T618;} |
1288 |
{object V178 = VV[92]; |
{object V180 = VV[96]; |
1289 |
VMR13(V178)} |
VMR13(V180)} |
1290 |
T610:; |
goto T618; |
1291 |
{object V179 = VV[93]; |
T618:; |
1292 |
VMR13(V179)} |
{object V181 = VV[97]; |
1293 |
|
VMR13(V181)} |
1294 |
|
return Cnil; |
1295 |
} |
} |
1296 |
/* local entry for function REGISTER */ |
/* local entry for function REGISTER */ |
1297 |
|
|
1298 |
static object LI14(V181) |
static object LI14(V183) |
1299 |
|
|
1300 |
object V181; |
object V183; |
1301 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1302 |
|
goto TTL; |
1303 |
TTL:; |
TTL:; |
1304 |
if(!(equal(symbol_value(VV[16]),VV[94]))){ |
if(!(equal(symbol_value(VV[16]),VV[98]))){ |
1305 |
goto T613;} |
goto T621;} |
1306 |
{long V182= fix(structure_ref((V181),VV[65],6)); |
{long V184= fix(structure_ref((V183),VV[69],6)); |
1307 |
if(!((/* INLINE-ARGS */V182)>=(fix(symbol_value(VV[95]))))){ |
if(!((/* INLINE-ARGS */V184)>=(fix(symbol_value(VV[99]))))){ |
1308 |
goto T613;}} |
goto T621;}} |
1309 |
{object V183 = VV[96]; |
{object V185 = VV[100]; |
1310 |
VMR14(V183)} |
VMR14(V185)} |
1311 |
T613:; |
goto T621; |
1312 |
{object V184 = VV[97]; |
T621:; |
1313 |
VMR14(V184)} |
{object V186 = VV[101]; |
1314 |
|
VMR14(V186)} |
1315 |
|
return Cnil; |
1316 |
} |
} |
1317 |
/* local entry for function VARARG-P */ |
/* local entry for function VARARG-P */ |
1318 |
|
|
1319 |
static object LI15(V186) |
static object LI15(V188) |
1320 |
|
|
1321 |
object V186; |
object V188; |
1322 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1323 |
|
goto TTL; |
1324 |
TTL:; |
TTL:; |
1325 |
V187= get((V186),VV[74],Cnil); |
V189= get((V188),VV[78],Cnil); |
1326 |
if(equal(V187,Ct)){ |
if(equal(V189,Ct)){ |
1327 |
goto T617;} |
goto T625;} |
1328 |
{object V188 = Cnil; |
{object V190 = Cnil; |
|
VMR15(V188)} |
|
|
T617:; |
|
|
{register object V189; |
|
|
V189= get((V186),VV[63],Cnil); |
|
|
T622:; |
|
|
if(((V189))!=Cnil){ |
|
|
goto T623;} |
|
|
{object V190 = Ct; |
|
1329 |
VMR15(V190)} |
VMR15(V190)} |
1330 |
T623:; |
goto T625; |
1331 |
if(!(type_of((V189))==t_cons)){ |
T625:; |
1332 |
goto T628;} |
{register object V191; |
1333 |
goto T627; |
V191= get((V188),VV[67],Cnil); |
1334 |
T628:; |
goto T630; |
1335 |
{object V191 = Cnil; |
T630:; |
1336 |
VMR15(V191)} |
if(((V191))!=Cnil){ |
|
T627:; |
|
|
if(!((car((V189)))==(Ct))){ |
|
1337 |
goto T631;} |
goto T631;} |
1338 |
goto T630; |
{object V192 = Ct; |
|
T631:; |
|
|
if(!((car((V189)))==(VV[64]))){ |
|
|
goto T633;} |
|
|
goto T630; |
|
|
T633:; |
|
|
{object V192 = Cnil; |
|
1339 |
VMR15(V192)} |
VMR15(V192)} |
1340 |
T630:; |
goto T631; |
1341 |
V189= cdr((V189)); |
T631:; |
1342 |
goto T622;} |
if(!(type_of((V191))==t_cons)){ |
1343 |
|
goto T636;} |
1344 |
|
goto T635; |
1345 |
|
goto T636; |
1346 |
|
T636:; |
1347 |
|
{object V193 = Cnil; |
1348 |
|
VMR15(V193)} |
1349 |
|
goto T635; |
1350 |
|
T635:; |
1351 |
|
if(!((car((V191)))==(Ct))){ |
1352 |
|
goto T639;} |
1353 |
|
goto T638; |
1354 |
|
goto T639; |
1355 |
|
T639:; |
1356 |
|
if(!((car((V191)))==(VV[68]))){ |
1357 |
|
goto T641;} |
1358 |
|
goto T638; |
1359 |
|
goto T641; |
1360 |
|
T641:; |
1361 |
|
{object V194 = Cnil; |
1362 |
|
VMR15(V194)} |
1363 |
|
goto T638; |
1364 |
|
T638:; |
1365 |
|
V191= cdr((V191)); |
1366 |
|
goto T630;} |
1367 |
|
return Cnil; |
1368 |
} |
} |
1369 |
/* local entry for function MAXARGS */ |
/* local entry for function MAXARGS */ |
1370 |
|
|
1371 |
static object LI16(V194) |
static object LI16(V196) |
1372 |
|
|
1373 |
register object V194; |
register object V196; |
1374 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1375 |
|
goto TTL; |
1376 |
TTL:; |
TTL:; |
1377 |
if((cadr(cddddr((V194))))!=Cnil){ |
if((cadr(cddddr((V196))))!=Cnil){ |
1378 |
goto T638;} |
goto T646;} |
1379 |
if((caddr((V194)))==Cnil){ |
if((caddr((V196)))==Cnil){ |
1380 |
goto T639;} |
goto T647;} |
1381 |
T638:; |
goto T646; |
1382 |
{object V195 = small_fixnum(64); |
T646:; |
1383 |
VMR16(V195)} |
{object V197 = small_fixnum(64); |
1384 |
T639:; |
VMR16(V197)} |
1385 |
base[0]= make_fixnum(length(car((V194)))); |
goto T647; |
1386 |
base[1]= make_fixnum(length(cadr((V194)))); |
T647:; |
1387 |
V196 = make_fixnum(length(car(cddddr((V194))))); |
base[0]= make_fixnum(length(car((V196)))); |
1388 |
base[2]= number_times(small_fixnum(2),V196); |
base[1]= make_fixnum(length(cadr((V196)))); |
1389 |
|
V198 = make_fixnum(length(car(cddddr((V196))))); |
1390 |
|
base[2]= number_times(small_fixnum(2),V198); |
1391 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1392 |
Lplus(); |
Lplus(); |
1393 |
vs_top=sup; |
vs_top=sup; |
1394 |
{object V197 = vs_base[0]; |
{object V199 = vs_base[0]; |
1395 |
VMR16(V197)} |
VMR16(V199)} |
1396 |
|
base[0]=base[0]; |
1397 |
|
return Cnil; |
1398 |
} |
} |
1399 |
/* local entry for function ADD-ADDRESS */ |
/* local entry for function ADD-ADDRESS */ |
1400 |
|
|
1401 |
static object LI17(V200,V201) |
static object LI17(V202,V203) |
1402 |
|
|
1403 |
object V200;object V201; |
object V202;object V203; |
1404 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1405 |
|
goto TTL; |
1406 |
TTL:; |
TTL:; |
1407 |
V202= list(2,(V200),(V201)); |
V204= list(2,(V202),(V203)); |
1408 |
setq(VV[17],make_cons(/* INLINE-ARGS */V202,symbol_value(VV[17]))); |
setq(VV[17],make_cons(/* INLINE-ARGS */V204,symbol_value(VV[17]))); |
1409 |
{object V203; |
{object V205; |
1410 |
V203= symbol_value(VV[18]); |
V205= symbol_value(VV[18]); |
1411 |
setq(VV[18],number_plus(symbol_value(VV[18]),small_fixnum(1))); |
setq(VV[18],number_plus(symbol_value(VV[18]),small_fixnum(1))); |
1412 |
{object V204 = (V203); |
{object V206 = (V205); |
1413 |
VMR17(V204)}} |
VMR17(V206)}} |
1414 |
|
return Cnil; |
1415 |
} |
} |
1416 |
/* local entry for function T2DEFUN */ |
/* local entry for function T2DEFUN */ |
1417 |
|
|
1418 |
static object LI18(V210,V211,V212,V213,V214) |
static object LI18(V212,V213,V214,V215,V216) |
1419 |
|
|
1420 |
register object V210;register object V211;register object V212;object V213;object V214; |
register object V212;register object V213;register object V214;object V215;object V216; |
1421 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1422 |
|
goto TTL; |
1423 |
TTL:; |
TTL:; |
1424 |
if((get((V210),VV[98],Cnil))==Cnil){ |
if((get((V212),VV[102],Cnil))==Cnil){ |
1425 |
goto T650;} |
goto T658;} |
1426 |
{object V215 = Cnil; |
{object V217 = Cnil; |
1427 |
VMR18(V215)} |
VMR18(V217)} |
1428 |
T650:; |
goto T658; |
1429 |
if(((V213))==Cnil){ |
T658:; |
1430 |
goto T653;} |
if(((V215))==Cnil){ |
1431 |
V216= list(4,VV[99],list(2,VV[87],(V210)),(V213),VV[100]); |
goto T661;} |
1432 |
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V216))); |
V218= list(4,VV[103],list(2,VV[91],(V212)),(V215),VV[104]); |
1433 |
T653:; |
(void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V218))); |
1434 |
{object V217; |
goto T661; |
1435 |
V217= (*(LnkLI290))((V210),(V211),(V212)); |
T661:; |
1436 |
if(((V217))==Cnil){ |
{object V219; |
1437 |
goto T659;} |
V219= (*(LnkLI295))((V212),(V213),(V214)); |
1438 |
goto T656; |
if(((V219))==Cnil){ |
1439 |
T659:; |
goto T667;} |
1440 |
if(((*(LnkLI291))((V210)))==Cnil){ |
goto T664; |
1441 |
goto T662;} |
goto T667; |
1442 |
{object V218; |
T667:; |
1443 |
V218= cadddr(caddr((V212))); |
if(((*(LnkLI296))((V212)))==Cnil){ |
1444 |
|
goto T670;} |
1445 |
|
{object V220; |
1446 |
|
V220= cadddr(caddr((V214))); |
1447 |
princ_str("\nstatic object LI",VV[27]); |
princ_str("\nstatic object LI",VV[27]); |
1448 |
(void)((*(LnkLI265))((V211))); |
(void)((*(LnkLI270))((V213))); |
1449 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
1450 |
if(((V218))==Cnil){ |
if(((V220))==Cnil){ |
1451 |
goto T670;} |
goto T678;} |
1452 |
V219= list(2,VV[87],(V210)); |
V221= list(2,VV[91],(V212)); |
1453 |
V220= (*(LnkLI288))(VV[102],(V211)); |
V222= (*(LnkLI293))(VV[106],(V213)); |
1454 |
V221 = make_fixnum(length(car(caddr((V212))))); |
V223 = make_fixnum(length(car(caddr((V214))))); |
1455 |
V222= (*(LnkLI292))(caddr((V212))); |
V224= (*(LnkLI297))(caddr((V214))); |
1456 |
V223= (*(LnkLI285))(/* INLINE-ARGS */V222,small_fixnum(8)); |
V225= (*(LnkLI290))(/* INLINE-ARGS */V224,small_fixnum(8)); |
1457 |
V224= number_plus(V221,/* INLINE-ARGS */V223); |
V226= number_plus(V223,/* INLINE-ARGS */V225); |
1458 |
base[0]= Cnil; |
base[0]= Cnil; |
1459 |
base[1]= VV[103]; |
base[1]= VV[107]; |
1460 |
base[2]= (V211); |
base[2]= (V213); |
1461 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1462 |
Lformat(); |
Lformat(); |
1463 |
vs_top=sup; |
vs_top=sup; |
1464 |
V225= vs_base[0]; |
V227= vs_base[0]; |
1465 |
V226= list(5,VV[101],/* INLINE-ARGS */V219,/* INLINE-ARGS */V220,/* INLINE-ARGS */V224,(*(LnkLI288))(V225,VV[104])); |
V228= list(5,VV[105],/* INLINE-ARGS */V221,/* INLINE-ARGS */V222,/* INLINE-ARGS */V226,(*(LnkLI293))(V227,VV[108])); |
1466 |
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V226))); |
(void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V228))); |
1467 |
goto T656; |
goto T664; |
1468 |
|
goto T678; |
1469 |
|
T678:; |
1470 |
|
V229= list(2,VV[91],(V212)); |
1471 |
|
V230= (*(LnkLI293))(VV[110],(V213)); |
1472 |
|
V231 = make_fixnum(length(car(caddr((V214))))); |
1473 |
|
V232= (*(LnkLI297))(caddr((V214))); |
1474 |
|
V233= (*(LnkLI290))(/* INLINE-ARGS */V232,small_fixnum(8)); |
1475 |
|
V234= list(4,VV[109],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,number_plus(V231,/* INLINE-ARGS */V233)); |
1476 |
|
(void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V234))); |
1477 |
|
goto T664;} |
1478 |
|
goto T670; |
1479 |
T670:; |
T670:; |
1480 |
V227= list(2,VV[87],(V210)); |
if(!(type_of((V213))==t_fixnum|| |
1481 |
V228= (*(LnkLI288))(VV[106],(V211)); |
type_of((V213))==t_bignum|| |
1482 |
V229 = make_fixnum(length(car(caddr((V212))))); |
type_of((V213))==t_ratio|| |
1483 |
V230= (*(LnkLI292))(caddr((V212))); |
type_of((V213))==t_shortfloat|| |
1484 |
V231= (*(LnkLI285))(/* INLINE-ARGS */V230,small_fixnum(8)); |
type_of((V213))==t_longfloat|| |
1485 |
V232= list(4,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,number_plus(V229,/* INLINE-ARGS */V231)); |
type_of((V213))==t_complex)){ |
1486 |
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V232))); |
goto T685;} |
1487 |
goto T656;} |
princ_str("\nstatic void L",VV[27]); |
1488 |
T662:; |
(void)((*(LnkLI270))((V213))); |
|
if(!(type_of((V211))==t_fixnum|| |
|
|
type_of((V211))==t_bignum|| |
|
|
type_of((V211))==t_ratio|| |
|
|
type_of((V211))==t_shortfloat|| |
|
|
type_of((V211))==t_longfloat|| |
|
|
type_of((V211))==t_complex)){ |
|
|
goto T677;} |
|
|
princ_str("\nstatic L",VV[27]); |
|
|
(void)((*(LnkLI265))((V211))); |
|
1489 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
1490 |
V233= list(2,VV[87],(V210)); |
V235= list(2,VV[91],(V212)); |
1491 |
V234= list(3,VV[107],/* INLINE-ARGS */V233,(*(LnkLI288))(VV[108],(V211))); |
V236= list(3,VV[111],/* INLINE-ARGS */V235,(*(LnkLI293))(VV[112],(V213))); |
1492 |
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V234))); |
(void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V236))); |
1493 |
goto T656; |
goto T664; |
1494 |
T677:; |
goto T685; |
1495 |
|
T685:; |
1496 |
princ_char(10,VV[27]); |
princ_char(10,VV[27]); |
1497 |
(void)((*(LnkLI265))((V211))); |
(void)((*(LnkLI270))((V213))); |
1498 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
1499 |
V235= list(2,VV[87],(V210)); |
V237= list(2,VV[91],(V212)); |
1500 |
V236= list(3,VV[107],/* INLINE-ARGS */V235,(*(LnkLI288))(VV[109],(V211))); |
V238= list(3,VV[111],/* INLINE-ARGS */V237,(*(LnkLI293))(VV[113],(V213))); |
1501 |
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V236)));} |
(void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V238)));} |
1502 |
T656:; |
goto T664; |
1503 |
if(!(number_compare(symbol_value(VV[110]),small_fixnum(2))<0)){ |
T664:; |
1504 |
goto T688;} |
if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){ |
1505 |
{object V237 = sputprop((V210),VV[111],Ct); |
goto T696;} |
1506 |
VMR18(V237)} |
{object V239 = sputprop((V212),VV[115],Ct); |
1507 |
T688:; |
VMR18(V239)} |
1508 |
{object V238 = Cnil; |
goto T696; |
1509 |
VMR18(V238)} |
T696:; |
1510 |
|
{object V240 = Cnil; |
1511 |
|
VMR18(V240)} |
1512 |
|
base[0]=base[0]; |
1513 |
|
return Cnil; |
1514 |
} |
} |
1515 |
/* local entry for function ADD-DEBUG */ |
/* local entry for function ADD-DEBUG */ |
1516 |
|
|
1517 |
static object LI19(V241,V242) |
static object LI19(V243,V244) |
1518 |
|
|
1519 |
object V241;object V242; |
object V243;object V244; |
1520 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1521 |
|
goto TTL; |
1522 |
TTL:; |
TTL:; |
1523 |
{object V243 = putprop((V241),(V242),VV[112]); |
{object V245 = putprop((V243),(V244),VV[116]); |
1524 |
VMR19(V243)} |
VMR19(V245)} |
1525 |
|
return Cnil; |
1526 |
} |
} |
1527 |
/* local entry for function T3DEFUN */ |
/* local entry for function T3DEFUN */ |
1528 |
|
|
1529 |
static object LI20(V249,V250,V251,V252,V253) |
static object LI20(V251,V252,V253,V254,V255) |
1530 |
|
|
1531 |
register object V249;register object V250;register object V251;object V252;object V253; |
register object V251;register object V252;register object V253;object V254;object V255; |
1532 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1533 |
bds_check; |
bds_check; |
1534 |
|
goto TTL; |
1535 |
TTL:; |
TTL:; |
1536 |
{register object V254; |
{register object V256; |
1537 |
V254= Cnil; |
V256= Cnil; |
1538 |
bds_bind(VV[0],list(2,VV[47],(V249))); |
bds_bind(VV[0],list(2,VV[51],(V251))); |
1539 |
bds_bind(VV[16],(*(LnkLI293))(cadr((V251)))); |
bds_bind(VV[16],(*(LnkLI298))(cadr((V253)))); |
1540 |
bds_bind(VV[113],Cnil); |
bds_bind(VV[117],Cnil); |
1541 |
{register object V255; |
{register object V257; |
1542 |
register object V256; |
register object V258; |
1543 |
V255= symbol_value(VV[73]); |
V257= symbol_value(VV[77]); |
1544 |
V256= car((V255)); |
V258= car((V257)); |
1545 |
T700:; |
goto T708; |
1546 |
if(!(endp((V255)))){ |
T708:; |
1547 |
goto T701;} |
if(!(endp((V257)))){ |
1548 |
goto T695; |
goto T709;} |
1549 |
T701:;{object V257; |
goto T703; |
1550 |
base[4]= cadddr((V256)); |
goto T709; |
1551 |
|
T709:;{object V259; |
1552 |
|
base[4]= cadddr((V258)); |
1553 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1554 |
(void) (*Lnk294)(); |
(void) (*Lnk299)(); |
1555 |
vs_top=sup; |
vs_top=sup; |
1556 |
V257= vs_base[0]; |
V259= vs_base[0]; |
1557 |
if(V257==Cnil)goto T706; |
if(V259==Cnil)goto T714; |
1558 |
goto T705; |
goto T713; |
1559 |
T706:;} |
goto T714; |
1560 |
base[4]= VV[114]; |
T714:;} |
1561 |
|
base[4]= VV[118]; |
1562 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1563 |
Lerror(); |
Lerror(); |
1564 |
vs_top=sup; |
vs_top=sup; |
1565 |
T705:; |
goto T713; |
|
if((car((V256)))==((V249))){ |
|
|
goto T711;} |
|
|
goto T710; |
|
|
T711:; |
|
|
if((cadr(cddddr((V256))))==Cnil){ |
|
|
goto T713;} |
|
|
goto T710; |
|
1566 |
T713:; |
T713:; |
1567 |
V254= (V256); |
if((car((V258)))==((V251))){ |
1568 |
if(((V254))==Cnil){ |
goto T719;} |
1569 |
goto T695;} |
goto T718; |
1570 |
goto T696; |
goto T719; |
1571 |
T710:; |
T719:; |
1572 |
V255= cdr((V255)); |
if((cadr(cddddr((V258))))==Cnil){ |
|
V256= car((V255)); |
|
|
goto T700;} |
|
|
T696:; |
|
|
if(((VFUN_NARGS=1,(*(LnkLI286))((V249))))!=Cnil){ |
|
1573 |
goto T721;} |
goto T721;} |
1574 |
V258= list(4,(V249),(V250),cadr((V254)),caddr((V254))); |
goto T718; |
1575 |
setq(VV[25],make_cons(/* INLINE-ARGS */V258,symbol_value(VV[25]))); |
goto T721; |
1576 |
T721:; |
T721:; |
1577 |
V259= structure_ref(cadr((V251)),VV[58],1); |
V256= (V258); |
1578 |
(void)((*(LnkLI295))(/* INLINE-ARGS */V259,small_fixnum(0))); |
if(((V256))==Cnil){ |
1579 |
base[3]= VV[115]; |
goto T703;} |
1580 |
{object V260= caddr((V254)); |
goto T704; |
1581 |
if((V260!= VV[85]))goto T728; |
goto T718; |
1582 |
base[4]= VV[116]; |
T718:; |
1583 |
goto T727; |
V257= cdr((V257)); |
1584 |
T728:; |
V258= car((V257)); |
1585 |
if((V260!= VV[138]))goto T729; |
goto T708;} |
1586 |
base[4]= VV[117]; |
goto T704; |
1587 |
goto T727; |
T704:; |
1588 |
|
if(((VFUN_NARGS=1,(*(LnkLI291))((V251))))!=Cnil){ |
1589 |
|
goto T729;} |
1590 |
|
V260= list(4,(V251),(V252),cadr((V256)),caddr((V256))); |
1591 |
|
setq(VV[25],make_cons(/* INLINE-ARGS */V260,symbol_value(VV[25]))); |
1592 |
|
goto T729; |
1593 |
T729:; |
T729:; |
1594 |
if((V260!= VV[139]))goto T730; |
V261= structure_ref(cadr((V253)),VV[62],1); |
1595 |
base[4]= VV[118]; |
(void)((*(LnkLI300))(/* INLINE-ARGS */V261,small_fixnum(0))); |
1596 |
goto T727; |
base[3]= VV[119]; |
1597 |
T730:; |
{object V262= caddr((V256)); |
1598 |
if((V260!= VV[140]))goto T731; |
if((V262!= VV[89]))goto T736; |
1599 |
base[4]= VV[119]; |
base[4]= VV[120]; |
1600 |
goto T727; |
goto T735; |
1601 |
T731:; |
goto T736; |
1602 |
base[4]= VV[120];} |
T736:; |
1603 |
T727:; |
if((V262!= VV[142]))goto T737; |
1604 |
base[5]= (V249); |
base[4]= VV[121]; |
1605 |
base[6]= (V250); |
goto T735; |
1606 |
base[7]= (V251); |
goto T737; |
1607 |
base[8]= (V253); |
T737:; |
1608 |
base[9]= (V254); |
if((V262!= VV[143]))goto T738; |
1609 |
|
base[4]= VV[122]; |
1610 |
|
goto T735; |
1611 |
|
goto T738; |
1612 |
|
T738:; |
1613 |
|
if((V262!= VV[144]))goto T739; |
1614 |
|
base[4]= VV[123]; |
1615 |
|
goto T735; |
1616 |
|
goto T739; |
1617 |
|
T739:; |
1618 |
|
base[4]= VV[124];} |
1619 |
|
goto T735; |
1620 |
|
T735:; |
1621 |
|
base[5]= (V251); |
1622 |
|
base[6]= (V252); |
1623 |
|
base[7]= (V253); |
1624 |
|
base[8]= (V255); |
1625 |
|
base[9]= (V256); |
1626 |
vs_top=(vs_base=base+3)+7; |
vs_top=(vs_base=base+3)+7; |
1627 |
(void) (*Lnk296)(); |
(void) (*Lnk301)(); |
1628 |
vs_top=sup; |
vs_top=sup; |
1629 |
goto T693; |
goto T701; |
1630 |
T695:; |
goto T703; |
1631 |
if(((*(LnkLI291))((V249)))==Cnil){ |
T703:; |
1632 |
goto T738;} |
if(((*(LnkLI296))((V251)))==Cnil){ |
1633 |
V261= structure_ref(cadr((V251)),VV[58],1); |
goto T746;} |
1634 |
(void)((*(LnkLI295))(/* INLINE-ARGS */V261,small_fixnum(0))); |
V263= structure_ref(cadr((V253)),VV[62],1); |
1635 |
base[3]= VV[121]; |
(void)((*(LnkLI300))(/* INLINE-ARGS */V263,small_fixnum(0))); |
1636 |
base[4]= VV[120]; |
base[3]= VV[125]; |
1637 |
base[5]= (V249); |
base[4]= VV[124]; |
1638 |
base[6]= (V250); |
base[5]= (V251); |
1639 |
base[7]= (V251); |
base[6]= (V252); |
1640 |
base[8]= (V253); |
base[7]= (V253); |
1641 |
|
base[8]= (V255); |
1642 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1643 |
(void) (*Lnk296)(); |
(void) (*Lnk301)(); |
1644 |
vs_top=sup; |
vs_top=sup; |
1645 |
goto T693; |
goto T701; |
1646 |
T738:; |
goto T746; |
1647 |
V262= structure_ref(cadr((V251)),VV[58],1); |
T746:; |
1648 |
(void)((*(LnkLI295))(/* INLINE-ARGS */V262,small_fixnum(2))); |
V264= structure_ref(cadr((V253)),VV[62],1); |
1649 |
base[3]= VV[122]; |
(void)((*(LnkLI300))(/* INLINE-ARGS */V264,small_fixnum(2))); |
1650 |
base[4]= VV[123]; |
base[3]= VV[126]; |
1651 |
base[5]= (V249); |
base[4]= VV[127]; |
1652 |
base[6]= (V250); |
base[5]= (V251); |
1653 |
base[7]= (V251); |
base[6]= (V252); |
1654 |
base[8]= (V253); |
base[7]= (V253); |
1655 |
|
base[8]= (V255); |
1656 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1657 |
(void) (*Lnk296)(); |
(void) (*Lnk301)(); |
1658 |
vs_top=sup; |
vs_top=sup; |
1659 |
T693:; |
goto T701; |
1660 |
(void)((*(LnkLI297))((V250))); |
T701:; |
1661 |
{object V263 = (*(LnkLI298))((V249),(V251)); |
(void)((*(LnkLI302))((V252))); |
1662 |
|
{object V265 = (*(LnkLI303))((V251),(V253)); |
1663 |
bds_unwind1; |
bds_unwind1; |
1664 |
bds_unwind1; |
bds_unwind1; |
1665 |
bds_unwind1; |
bds_unwind1; |
1666 |
VMR20(V263)}} |
VMR20(V265)}} |
1667 |
|
base[0]=base[0]; |
1668 |
|
return Cnil; |
1669 |
} |
} |
1670 |
/* function definition for T3DEFUN-AUX */ |
/* function definition for T3DEFUN-AUX */ |
1671 |
|
|
1672 |
static L21() |
static void L21() |
1673 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1674 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1675 |
vs_reserve(VM21); |
vs_reserve(VM21); |
1676 |
bds_check; |
bds_check; |
1677 |
{object V264; |
{object V266; |
1678 |
object V265; |
object V267; |
1679 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1680 |
V264=(base[0]); |
V266=(base[0]); |
1681 |
bds_bind(VV[124],base[1]); |
bds_bind(VV[128],base[1]); |
1682 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1683 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1684 |
{object *p=vs_top; |
{object *p=vs_top; |
1685 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1686 |
V265=(base[2]); |
V267=(base[2]); |
1687 |
vs_top=sup; |
vs_top=sup; |
1688 |
bds_bind(VV[14],Cnil); |
bds_bind(VV[14],Cnil); |
1689 |
bds_bind(VV[125],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
1690 |
bds_bind(VV[126],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
1691 |
bds_bind(VV[127],small_fixnum(0)); |
bds_bind(VV[131],small_fixnum(0)); |
1692 |
bds_bind(VV[128],small_fixnum(0)); |
bds_bind(VV[132],small_fixnum(0)); |
1693 |
bds_bind(VV[129],Cnil); |
bds_bind(VV[133],Cnil); |
1694 |
bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil)); |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
1695 |
bds_bind(VV[131],(VV[124]->s.s_dbind)); |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
1696 |
setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1))); |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
1697 |
bds_bind(VV[132],symbol_value(VV[133])); |
bds_bind(VV[136],symbol_value(VV[137])); |
1698 |
bds_bind(VV[134],Cnil); |
bds_bind(VV[138],Cnil); |
1699 |
bds_bind(VV[135],Cnil); |
bds_bind(VV[139],Cnil); |
1700 |
bds_bind(VV[136],Cnil); |
bds_bind(VV[140],Cnil); |
1701 |
bds_bind(VV[137],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
1702 |
base[16]= (V264); |
base[16]= (V266); |
1703 |
{object V266; |
{object V268; |
1704 |
V266= (V265); |
V268= (V267); |
1705 |
vs_top=base+17; |
vs_top=base+17; |
1706 |
while(!endp(V266)) |
while(!endp(V268)) |
1707 |
{vs_push(car(V266));V266=cdr(V266);} |
{vs_push(car(V268));V268=cdr(V268);} |
1708 |
vs_base=base+17;} |
vs_base=base+17;} |
1709 |
super_funcall_no_event(base[16]); |
super_funcall_no_event(base[16]); |
1710 |
bds_unwind1; |
bds_unwind1; |
1726 |
} |
} |
1727 |
/* local entry for function T3DEFUN-LOCAL-ENTRY */ |
/* local entry for function T3DEFUN-LOCAL-ENTRY */ |
1728 |
|
|
1729 |
static object LI22(V272,V273,V274,V275,V276) |
static object LI22(V274,V275,V276,V277,V278) |
1730 |
|
|
1731 |
object V272;object V273;object V274;object V275;object V276; |
object V274;object V275;object V276;object V277;object V278; |
1732 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
1733 |
bds_check; |
bds_check; |
1734 |
|
goto TTL; |
1735 |
TTL:; |
TTL:; |
1736 |
{object V277; |
{object V279; |
|
object V278; |
|
|
V277= Cnil; |
|
|
V278= caaddr((V274)); |
|
|
{register object V279; |
|
1737 |
object V280; |
object V280; |
1738 |
V280= cadr((V276)); |
V279= Cnil; |
1739 |
V279= (V278); |
V280= caaddr((V276)); |
1740 |
T765:; |
{register object V281; |
1741 |
if(!(endp((V279)))){ |
object V282; |
1742 |
goto T766;} |
V282= cadr((V278)); |
1743 |
goto T762; |
V281= (V280); |
1744 |
T766:; |
goto T773; |
1745 |
V281= structure_ref(car((V279)),VV[65],1); |
T773:; |
1746 |
if(!((/* INLINE-ARGS */V281)==(VV[67]))){ |
if(!(endp((V281)))){ |
1747 |
goto T772;} |
goto T774;} |
|
V282= car((V279)); |
|
|
V283= structure_ref(car((V279)),VV[65],4); |
|
|
V284= make_cons(/* INLINE-ARGS */V282,/* INLINE-ARGS */V283); |
|
|
V277= make_cons(/* INLINE-ARGS */V284,(V277)); |
|
1748 |
goto T770; |
goto T770; |
1749 |
T772:; |
goto T774; |
1750 |
V285= car((V279)); |
T774:; |
1751 |
{object V287= car((V280)); |
V283= structure_ref(car((V281)),VV[69],1); |
1752 |
if((V287!= VV[85]))goto T776; |
if(!((/* INLINE-ARGS */V283)==(VV[71]))){ |
1753 |
V286= VV[85]; |
goto T780;} |
1754 |
goto T775; |
V284= car((V281)); |
1755 |
T776:; |
V285= structure_ref(car((V281)),VV[69],4); |
1756 |
if((V287!= VV[138]))goto T777; |
V286= make_cons(/* INLINE-ARGS */V284,/* INLINE-ARGS */V285); |
1757 |
V286= VV[138]; |
V279= make_cons(/* INLINE-ARGS */V286,(V279)); |
1758 |
goto T775; |
goto T778; |
1759 |
T777:; |
goto T780; |
1760 |
if((V287!= VV[139]))goto T778; |
T780:; |
1761 |
V286= VV[139]; |
V287= car((V281)); |
1762 |
goto T775; |
{object V289= car((V282)); |
1763 |
|
if((V289!= VV[89]))goto T784; |
1764 |
|
V288= VV[89]; |
1765 |
|
goto T783; |
1766 |
|
goto T784; |
1767 |
|
T784:; |
1768 |
|
if((V289!= VV[142]))goto T785; |
1769 |
|
V288= VV[142]; |
1770 |
|
goto T783; |
1771 |
|
goto T785; |
1772 |
|
T785:; |
1773 |
|
if((V289!= VV[143]))goto T786; |
1774 |
|
V288= VV[143]; |
1775 |
|
goto T783; |
1776 |
|
goto T786; |
1777 |
|
T786:; |
1778 |
|
if((V289!= VV[144]))goto T787; |
1779 |
|
V288= VV[144]; |
1780 |
|
goto T783; |
1781 |
|
goto T787; |
1782 |
|
T787:; |
1783 |
|
V288= VV[74];} |
1784 |
|
goto T783; |
1785 |
|
T783:; |
1786 |
|
(void)(structure_set(/* INLINE-ARGS */V287,VV[69],1,V288)); |
1787 |
|
goto T778; |
1788 |
T778:; |
T778:; |
1789 |
if((V287!= VV[140]))goto T779; |
V290= car((V281)); |
1790 |
V286= VV[140]; |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1791 |
goto T775; |
(void)(structure_set(/* INLINE-ARGS */V290,VV[69],4,symbol_value(VV[88]))); |
1792 |
T779:; |
V281= cdr((V281)); |
1793 |
V286= VV[70];} |
V282= cdr((V282)); |
1794 |
T775:; |
goto T773;} |
1795 |
(void)(structure_set(/* INLINE-ARGS */V285,VV[65],1,V286)); |
goto T770; |
1796 |
T770:; |
T770:; |
1797 |
V288= car((V279)); |
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[145],(V274)))); |
|
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
|
|
(void)(structure_set(/* INLINE-ARGS */V288,VV[65],4,symbol_value(VV[84]))); |
|
|
V279= cdr((V279)); |
|
|
V280= cdr((V280)); |
|
|
goto T765;} |
|
|
T762:; |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[141],(V272)))); |
|
1798 |
princ_str("\nstatic ",VV[27]); |
princ_str("\nstatic ",VV[27]); |
1799 |
V289= (*(LnkLI268))(caddr((V276))); |
V291= (*(LnkLI273))(caddr((V278))); |
1800 |
(void)((*(LnkLI265))(/* INLINE-ARGS */V289)); |
(void)((*(LnkLI270))(/* INLINE-ARGS */V291)); |
1801 |
princ_str("LI",VV[27]); |
princ_str("LI",VV[27]); |
1802 |
(void)((*(LnkLI265))((V273))); |
(void)((*(LnkLI270))((V275))); |
1803 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
1804 |
princ_str("\nstatic ",VV[21]); |
princ_str("\nstatic ",VV[21]); |
1805 |
V290= (*(LnkLI268))(caddr((V276))); |
V292= (*(LnkLI273))(caddr((V278))); |
1806 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V290)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V292)); |
1807 |
princ_str("LI",VV[21]); |
princ_str("LI",VV[21]); |
1808 |
(void)((*(LnkLI262))((V273))); |
(void)((*(LnkLI267))((V275))); |
1809 |
princ_char(40,VV[21]); |
princ_char(40,VV[21]); |
1810 |
(void)((*(LnkLI300))((V278),cadr((V276)))); |
(void)((*(LnkLI305))((V280),cadr((V278)))); |
1811 |
{object V291; |
{object V293; |
1812 |
V291= symbol_value(VV[132]); |
V293= symbol_value(VV[136]); |
1813 |
if((symbol_value(VV[143]))==Cnil){ |
if((symbol_value(VV[147]))==Cnil){ |
1814 |
goto T803;} |
goto T811;} |
1815 |
base[1]= make_cons((V272),(V278)); |
base[1]= make_cons((V274),(V280)); |
1816 |
goto T801; |
goto T809; |
1817 |
T803:; |
goto T811; |
1818 |
|
T811:; |
1819 |
base[1]= Cnil; |
base[1]= Cnil; |
1820 |
T801:; |
goto T809; |
1821 |
bds_bind(VV[142],base[1]); |
T809:; |
1822 |
bds_bind(VV[130],symbol_value(VV[130])); |
bds_bind(VV[146],base[1]); |
1823 |
|
bds_bind(VV[134],symbol_value(VV[134])); |
1824 |
princ_str("\n{ ",VV[21]); |
princ_str("\n{ ",VV[21]); |
1825 |
V292= structure_ref(cadr((V274)),VV[58],1); |
V294= structure_ref(cadr((V276)),VV[62],1); |
1826 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V292,(V273),VV[144])); |
(void)((*(LnkLI306))(/* INLINE-ARGS */V294,(V275),VV[148])); |
1827 |
princ_str(" VMB",VV[21]); |
princ_str(" VMB",VV[21]); |
1828 |
(void)((*(LnkLI262))((V291))); |
(void)((*(LnkLI267))((V293))); |
1829 |
princ_str(" VMS",VV[21]); |
princ_str(" VMS",VV[21]); |
1830 |
(void)((*(LnkLI262))((V291))); |
(void)((*(LnkLI267))((V293))); |
1831 |
princ_str(" VMV",VV[21]); |
princ_str(" VMV",VV[21]); |
1832 |
(void)((*(LnkLI262))((V291))); |
(void)((*(LnkLI267))((V293))); |
1833 |
if(((V275))==Cnil){ |
if(((V277))==Cnil){ |
1834 |
goto T815;} |
goto T823;} |
1835 |
princ_str("\n bds_check;",VV[21]); |
princ_str("\n bds_check;",VV[21]); |
1836 |
T815:; |
goto T823; |
1837 |
if((symbol_value(VV[145]))==Cnil){ |
T823:; |
1838 |
goto T819;} |
if((symbol_value(VV[149]))==Cnil){ |
1839 |
|
goto T827;} |
1840 |
princ_str("\n ihs_check;",VV[21]); |
princ_str("\n ihs_check;",VV[21]); |
1841 |
T819:; |
goto T827; |
1842 |
if(((VV[142]->s.s_dbind))==Cnil){ |
T827:; |
1843 |
goto T823;} |
if(((VV[146]->s.s_dbind))==Cnil){ |
1844 |
(VV[130]->s.s_dbind)= make_cons(VV[146],(VV[130]->s.s_dbind)); |
goto T831;} |
1845 |
|
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
1846 |
|
princ_str("\ngoto TTL;",VV[21]); |
1847 |
princ_str("\nTTL:;",VV[21]); |
princ_str("\nTTL:;",VV[21]); |
1848 |
T823:; |
goto T831; |
1849 |
{register object V293; |
T831:; |
1850 |
register object V294; |
{register object V295; |
1851 |
V293= (V277); |
register object V296; |
1852 |
V294= car((V293)); |
V295= (V279); |
1853 |
T833:; |
V296= car((V295)); |
1854 |
if(!(endp((V293)))){ |
goto T843; |
1855 |
goto T834;} |
T843:; |
1856 |
goto T829; |
if(!(endp((V295)))){ |
1857 |
T834:; |
goto T844;} |
1858 |
|
goto T839; |
1859 |
|
goto T844; |
1860 |
|
T844:; |
1861 |
princ_str("\n bds_bind(VV[",VV[21]); |
princ_str("\n bds_bind(VV[",VV[21]); |
1862 |
(void)((*(LnkLI262))(cdr((V294)))); |
(void)((*(LnkLI267))(cdr((V296)))); |
1863 |
princ_str("],V",VV[21]); |
princ_str("],V",VV[21]); |
1864 |
V295= structure_ref(car((V294)),VV[65],4); |
V297= structure_ref(car((V296)),VV[69],4); |
1865 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V295)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V297)); |
1866 |
princ_str(");",VV[21]); |
princ_str(");",VV[21]); |
1867 |
(VV[130]->s.s_dbind)= make_cons(VV[147],(VV[130]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind)); |
1868 |
(void)(structure_set(car((V294)),VV[65],1,VV[67])); |
(void)(structure_set(car((V296)),VV[69],1,VV[71])); |
1869 |
(void)(structure_set(car((V294)),VV[65],4,cdr((V294)))); |
(void)(structure_set(car((V296)),VV[69],4,cdr((V296)))); |
1870 |
V293= cdr((V293)); |
V295= cdr((V295)); |
1871 |
V294= car((V293)); |
V296= car((V295)); |
1872 |
goto T833;} |
goto T843;} |
1873 |
T829:; |
goto T839; |
1874 |
base[3]= caddr(cddr((V274))); |
T839:; |
1875 |
|
base[3]= caddr(cddr((V276))); |
1876 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1877 |
(void) (*Lnk302)(); |
(void) (*Lnk307)(); |
1878 |
vs_top=sup; |
vs_top=sup; |
1879 |
|
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
1880 |
|
goto T867;} |
1881 |
|
if((symbol_value(VV[138]))!=Cnil){ |
1882 |
|
goto T867;} |
1883 |
|
if((symbol_value(VV[140]))!=Cnil){ |
1884 |
|
goto T867;} |
1885 |
|
goto T865; |
1886 |
|
goto T867; |
1887 |
|
T867:; |
1888 |
|
princ_str("\n base[0]=base[0];",VV[21]); |
1889 |
|
goto T865; |
1890 |
|
T865:; |
1891 |
|
V298= (*(LnkLI273))(caddr((V278))); |
1892 |
|
if(!(equal(VV[152],/* INLINE-ARGS */V298))){ |
1893 |
|
goto T874;} |
1894 |
|
princ_str("\n return Cnil;",VV[21]); |
1895 |
|
goto T874; |
1896 |
|
T874:; |
1897 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
1898 |
{object V296 = (*(LnkLI303))((V291),caddr((V276))); |
{object V299 = (*(LnkLI308))((V293),caddr((V278))); |
1899 |
bds_unwind1; |
bds_unwind1; |
1900 |
bds_unwind1; |
bds_unwind1; |
1901 |
VMR22(V296)}}} |
VMR22(V299)}}} |
1902 |
|
base[0]=base[0]; |
1903 |
|
return Cnil; |
1904 |
} |
} |
1905 |
/* local entry for function SET-UP-VAR-CVS */ |
/* local entry for function SET-UP-VAR-CVS */ |
1906 |
|
|
1907 |
static object LI23(V298) |
static object LI23(V301) |
1908 |
|
|
1909 |
object V298; |
object V301; |
1910 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1911 |
|
goto TTL; |
1912 |
TTL:; |
TTL:; |
1913 |
if((symbol_value(VV[148]))==Cnil){ |
if((symbol_value(VV[153]))==Cnil){ |
1914 |
goto T858;} |
goto T881;} |
1915 |
V299= (*(LnkLI304))(); |
V302= (*(LnkLI309))(); |
1916 |
{object V300 = structure_set((V298),VV[65],2,/* INLINE-ARGS */V299); |
{object V303 = structure_set((V301),VV[69],2,/* INLINE-ARGS */V302); |
1917 |
VMR23(V300)} |
VMR23(V303)} |
1918 |
T858:; |
goto T881; |
1919 |
V301= (*(LnkLI305))(); |
T881:; |
1920 |
{object V302 = structure_set((V298),VV[65],2,/* INLINE-ARGS */V301); |
V304= (*(LnkLI310))(); |
1921 |
VMR23(V302)} |
{object V305 = structure_set((V301),VV[69],2,/* INLINE-ARGS */V304); |
1922 |
|
VMR23(V305)} |
1923 |
|
return Cnil; |
1924 |
} |
} |
1925 |
/* local entry for function T3DEFUN-VARARG */ |
/* local entry for function T3DEFUN-VARARG */ |
1926 |
|
|
1927 |
static object LI24(V307,V308,V309,V310) |
static object LI24(V310,V311,V312,V313) |
1928 |
|
|
1929 |
object V307;object V308;object V309;object V310; |
object V310;object V311;object V312;object V313; |
1930 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1931 |
bds_check; |
bds_check; |
1932 |
|
goto TTL; |
1933 |
TTL:; |
TTL:; |
1934 |
{object V311; |
{object V314; |
1935 |
register object V312; |
register object V315; |
|
object V313; |
|
|
object V314; |
|
|
object V315; |
|
1936 |
object V316; |
object V316; |
1937 |
object V317; |
object V317; |
1938 |
object V318; |
object V318; |
1939 |
V311= Cnil; |
object V319; |
1940 |
bds_bind(VV[148],Cnil); |
object V320; |
1941 |
base[1]= Cnil; |
object V321; |
|
V312= Cnil; |
|
|
V313= Ct; |
|
1942 |
V314= Cnil; |
V314= Cnil; |
1943 |
bds_bind(VV[149],small_fixnum(0)); |
bds_bind(VV[153],Cnil); |
1944 |
|
base[1]= Cnil; |
1945 |
V315= Cnil; |
V315= Cnil; |
1946 |
V316= caddr((V309)); |
V316= Ct; |
1947 |
V317= Cnil;{object V319; |
V317= Cnil; |
1948 |
V319= caddr((V316)); |
bds_bind(VV[154],small_fixnum(0)); |
1949 |
if(V319==Cnil)goto T868; |
V318= Cnil; |
1950 |
V318= V319; |
V319= caddr((V312)); |
1951 |
goto T867; |
V320= Cnil;{object V322; |
1952 |
T868:;}{object V320; |
V322= caddr((V319)); |
1953 |
V320= cadr((V316)); |
if(V322==Cnil)goto T891; |
1954 |
if(V320==Cnil)goto T870; |
V321= V322; |
1955 |
V318= V320; |
goto T890; |
1956 |
goto T867; |
goto T891; |
1957 |
T870:;} |
T891:;}{object V323; |
1958 |
V318= cadddr((V316)); |
V323= cadr((V319)); |
1959 |
T867:; |
if(V323==Cnil)goto T893; |
1960 |
{object V321; |
V321= V323; |
1961 |
register object V322; |
goto T890; |
1962 |
V321= car((V316)); |
goto T893; |
1963 |
V322= car((V321)); |
T893:;} |
1964 |
T876:; |
V321= cadddr((V319)); |
1965 |
if(!(endp((V321)))){ |
goto T890; |
1966 |
goto T877;} |
T890:; |
1967 |
goto T872; |
{object V324; |
1968 |
T877:; |
register object V325; |
1969 |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
V324= car((V319)); |
1970 |
V323= list(2,VV[150],symbol_value(VV[84])); |
V325= car((V324)); |
1971 |
V311= make_cons(/* INLINE-ARGS */V323,(V311)); |
goto T899; |
1972 |
V321= cdr((V321)); |
T899:; |
1973 |
V322= car((V321)); |
if(!(endp((V324)))){ |
1974 |
goto T876;} |
goto T900;} |
1975 |
T872:; |
goto T895; |
1976 |
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[151],(V307)))); |
goto T900; |
1977 |
|
T900:; |
1978 |
|
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1979 |
|
V326= list(2,VV[155],symbol_value(VV[88])); |
1980 |
|
V314= make_cons(/* INLINE-ARGS */V326,(V314)); |
1981 |
|
V324= cdr((V324)); |
1982 |
|
V325= car((V324)); |
1983 |
|
goto T899;} |
1984 |
|
goto T895; |
1985 |
|
T895:; |
1986 |
|
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[156],(V310)))); |
1987 |
princ_str("\nstatic object LI",VV[27]); |
princ_str("\nstatic object LI",VV[27]); |
1988 |
(void)((*(LnkLI265))((V308))); |
(void)((*(LnkLI270))((V311))); |
1989 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
1990 |
princ_str("\nstatic object LI",VV[21]); |
princ_str("\nstatic object LI",VV[21]); |
1991 |
(void)((*(LnkLI262))((V308))); |
(void)((*(LnkLI267))((V311))); |
1992 |
princ_char(40,VV[21]); |
princ_char(40,VV[21]); |
1993 |
(void)((*(LnkLI306))((V311))); |
(void)((*(LnkLI311))((V314))); |
1994 |
if(((V318))==Cnil){ |
if(((V321))==Cnil){ |
1995 |
goto T899;} |
goto T922;} |
1996 |
if(((V311))==Cnil){ |
if(((V314))==Cnil){ |
1997 |
goto T902;} |
goto T925;} |
1998 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
1999 |
T902:; |
goto T925; |
2000 |
|
T925:; |
2001 |
princ_str("va_alist",VV[21]); |
princ_str("va_alist",VV[21]); |
2002 |
T899:; |
goto T922; |
2003 |
|
T922:; |
2004 |
princ_char(41,VV[21]); |
princ_char(41,VV[21]); |
2005 |
if(((V311))==Cnil){ |
if(((V314))==Cnil){ |
2006 |
goto T909;} |
goto T932;} |
2007 |
princ_str("\n object ",VV[21]); |
princ_str("\n object ",VV[21]); |
2008 |
(void)((*(LnkLI306))((V311))); |
(void)((*(LnkLI311))((V314))); |
2009 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
2010 |
T909:; |
goto T932; |
2011 |
if(((V318))==Cnil){ |
T932:; |
2012 |
goto T916;} |
if(((V321))==Cnil){ |
2013 |
|
goto T939;} |
2014 |
princ_str("\n va_dcl ",VV[21]); |
princ_str("\n va_dcl ",VV[21]); |
2015 |
T916:; |
goto T939; |
2016 |
{object V324; |
T939:; |
2017 |
V324= symbol_value(VV[132]); |
{object V327; |
2018 |
if(symbol_value(VV[143])==Cnil){ |
V327= symbol_value(VV[136]); |
2019 |
|
if(symbol_value(VV[147])==Cnil){ |
2020 |
base[5]= Cnil; |
base[5]= Cnil; |
2021 |
goto T921;} |
goto T944;} |
2022 |
if((caddr((V316)))==Cnil){ |
if((caddr((V319)))==Cnil){ |
2023 |
goto T922;} |
goto T945;} |
2024 |
base[5]= Cnil; |
base[5]= Cnil; |
2025 |
goto T921; |
goto T944; |
2026 |
T922:; |
goto T945; |
2027 |
{object V325; |
T945:; |
2028 |
object V326; |
{object V328; |
2029 |
V325= car((V316)); |
object V329; |
2030 |
V326= car((V325)); |
V328= car((V319)); |
2031 |
T929:; |
V329= car((V328)); |
2032 |
if(!(endp((V325)))){ |
goto T952; |
2033 |
goto T930;} |
T952:; |
2034 |
goto T924; |
if(!(endp((V328)))){ |
2035 |
T930:; |
goto T953;} |
2036 |
if((structure_ref((V326),VV[65],3))==Cnil){ |
goto T947; |
2037 |
goto T934;} |
goto T953; |
2038 |
goto T925; |
T953:; |
2039 |
T934:; |
if((structure_ref((V329),VV[69],3))==Cnil){ |
2040 |
V325= cdr((V325)); |
goto T957;} |
2041 |
V326= car((V325)); |
goto T948; |
2042 |
goto T929;} |
goto T957; |
2043 |
T925:; |
T957:; |
2044 |
|
V328= cdr((V328)); |
2045 |
|
V329= car((V328)); |
2046 |
|
goto T952;} |
2047 |
|
goto T948; |
2048 |
|
T948:; |
2049 |
base[5]= Cnil; |
base[5]= Cnil; |
2050 |
goto T921; |
goto T944; |
2051 |
T924:; |
goto T947; |
2052 |
if((cadr((V316)))==Cnil){ |
T947:; |
2053 |
goto T942;} |
if((cadr((V319)))==Cnil){ |
2054 |
|
goto T965;} |
2055 |
base[5]= Cnil; |
base[5]= Cnil; |
2056 |
goto T921; |
goto T944; |
2057 |
T942:; |
goto T965; |
2058 |
if((car(cddddr((V316))))==Cnil){ |
T965:; |
2059 |
goto T944;} |
if((car(cddddr((V319))))==Cnil){ |
2060 |
|
goto T967;} |
2061 |
base[5]= Cnil; |
base[5]= Cnil; |
2062 |
goto T921; |
goto T944; |
2063 |
|
goto T967; |
2064 |
|
T967:; |
2065 |
|
base[5]= make_cons((V310),car((V319))); |
2066 |
|
goto T944; |
2067 |
T944:; |
T944:; |
2068 |
base[5]= make_cons((V307),car((V316))); |
bds_bind(VV[146],base[5]); |
2069 |
T921:; |
bds_bind(VV[134],symbol_value(VV[134])); |
|
bds_bind(VV[142],base[5]); |
|
|
bds_bind(VV[130],symbol_value(VV[130])); |
|
2070 |
princ_str("\n{ ",VV[21]); |
princ_str("\n{ ",VV[21]); |
2071 |
if(((V318))==Cnil){ |
if(((V321))==Cnil){ |
2072 |
goto T948;} |
goto T971;} |
2073 |
princ_str("\n va_list ap;",VV[21]); |
princ_str("\n va_list ap;",VV[21]); |
2074 |
T948:; |
goto T971; |
2075 |
|
T971:; |
2076 |
princ_str("\n int narg = VFUN_NARGS;",VV[21]); |
princ_str("\n int narg = VFUN_NARGS;",VV[21]); |
2077 |
V327= structure_ref(cadr((V309)),VV[58],1); |
V330= structure_ref(cadr((V312)),VV[62],1); |
2078 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V327,(V308),VV[144])); |
(void)((*(LnkLI306))(/* INLINE-ARGS */V330,(V311),VV[148])); |
2079 |
princ_str(" VMB",VV[21]); |
princ_str(" VMB",VV[21]); |
2080 |
(void)((*(LnkLI262))((V324))); |
(void)((*(LnkLI267))((V327))); |
2081 |
princ_str(" VMS",VV[21]); |
princ_str(" VMS",VV[21]); |
2082 |
(void)((*(LnkLI262))((V324))); |
(void)((*(LnkLI267))((V327))); |
2083 |
princ_str(" VMV",VV[21]); |
princ_str(" VMV",VV[21]); |
2084 |
(void)((*(LnkLI262))((V324))); |
(void)((*(LnkLI267))((V327))); |
2085 |
if(((V310))==Cnil){ |
if(((V313))==Cnil){ |
2086 |
goto T962;} |
goto T985;} |
2087 |
princ_str("\n bds_check;",VV[21]); |
princ_str("\n bds_check;",VV[21]); |
2088 |
T962:; |
goto T985; |
2089 |
if((symbol_value(VV[145]))==Cnil){ |
T985:; |
2090 |
goto T966;} |
if((symbol_value(VV[149]))==Cnil){ |
2091 |
|
goto T989;} |
2092 |
princ_str("\n ihs_check;",VV[21]); |
princ_str("\n ihs_check;",VV[21]); |
2093 |
T966:; |
goto T989; |
2094 |
if((V318)!=Cnil){ |
T989:; |
2095 |
goto T970;} |
if((V321)!=Cnil){ |
2096 |
|
goto T993;} |
2097 |
princ_str("\n if ( narg!= ",VV[21]); |
princ_str("\n if ( narg!= ",VV[21]); |
2098 |
V328 = make_fixnum(length((V311))); |
V331 = make_fixnum(length((V314))); |
2099 |
(void)((*(LnkLI262))(V328)); |
(void)((*(LnkLI267))(V331)); |
2100 |
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[21]); |
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[21]); |
2101 |
V329 = make_fixnum(length((V311))); |
V332 = make_fixnum(length((V314))); |
2102 |
(void)((*(LnkLI262))(V329)); |
(void)((*(LnkLI267))(V332)); |
2103 |
princ_str("));",VV[21]); |
princ_str("));",VV[21]); |
2104 |
T970:; |
goto T993; |
2105 |
{object V330; |
T993:; |
2106 |
object V331; |
{object V333; |
2107 |
V330= car((V316)); |
object V334; |
2108 |
V331= car((V330)); |
V333= car((V319)); |
2109 |
T981:; |
V334= car((V333)); |
2110 |
if(!(endp((V330)))){ |
goto T1004; |
2111 |
goto T982;} |
T1004:; |
2112 |
goto T977; |
if(!(endp((V333)))){ |
2113 |
T982:; |
goto T1005;} |
2114 |
base[9]= (V331); |
goto T1000; |
2115 |
vs_top=(vs_base=base+9)+1; |
goto T1005; |
2116 |
L25(base); |
T1005:; |
2117 |
vs_top=sup; |
base[9]= (V334); |
|
V330= cdr((V330)); |
|
|
V331= car((V330)); |
|
|
goto T981;} |
|
|
T977:; |
|
|
{object V332; |
|
|
object V333; |
|
|
V332= cadr((V316)); |
|
|
V333= car((V332)); |
|
|
T997:; |
|
|
if(!(endp((V332)))){ |
|
|
goto T998;} |
|
|
goto T993; |
|
|
T998:; |
|
|
base[9]= car((V333)); |
|
2118 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2119 |
L25(base); |
L25(base); |
2120 |
vs_top=sup; |
vs_top=sup; |
2121 |
if((caddr((V333)))==Cnil){ |
V333= cdr((V333)); |
2122 |
|
V334= car((V333)); |
2123 |
goto T1004;} |
goto T1004;} |
2124 |
base[9]= caddr((V333)); |
goto T1000; |
2125 |
vs_top=(vs_base=base+9)+1; |
T1000:; |
2126 |
L25(base); |
{object V335; |
2127 |
vs_top=sup; |
object V336; |
2128 |
T1004:; |
V335= cadr((V319)); |
2129 |
V332= cdr((V332)); |
V336= car((V335)); |
2130 |
V333= car((V332)); |
goto T1020; |
|
goto T997;} |
|
|
T993:; |
|
|
if((caddr((V316)))==Cnil){ |
|
|
goto T1013;} |
|
|
base[7]= caddr((V316)); |
|
|
vs_top=(vs_base=base+7)+1; |
|
|
L25(base); |
|
|
vs_top=sup; |
|
|
T1013:; |
|
|
{object V334; |
|
|
object V335; |
|
|
V334= car(cddddr((V316))); |
|
|
V335= car((V334)); |
|
2131 |
T1020:; |
T1020:; |
2132 |
if(!(endp((V334)))){ |
if(!(endp((V335)))){ |
2133 |
goto T1021;} |
goto T1021;} |
2134 |
goto T976; |
goto T1016; |
2135 |
|
goto T1021; |
2136 |
T1021:; |
T1021:; |
2137 |
base[9]= cadr((V335)); |
base[9]= car((V336)); |
2138 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2139 |
L25(base); |
L25(base); |
2140 |
vs_top=sup; |
vs_top=sup; |
2141 |
if((cadddr((V335)))==Cnil){ |
if((caddr((V336)))==Cnil){ |
2142 |
goto T1027;} |
goto T1027;} |
2143 |
base[9]= cadddr((V335)); |
base[9]= caddr((V336)); |
2144 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2145 |
L25(base); |
L25(base); |
2146 |
vs_top=sup; |
vs_top=sup; |
2147 |
|
goto T1027; |
2148 |
T1027:; |
T1027:; |
2149 |
V334= cdr((V334)); |
V335= cdr((V335)); |
2150 |
V335= car((V334)); |
V336= car((V335)); |
2151 |
goto T1020;} |
goto T1020;} |
2152 |
T976:; |
goto T1016; |
2153 |
if((symbol_value(VV[152]))!=Cnil){ |
T1016:; |
2154 |
goto T1038;} |
if((caddr((V319)))==Cnil){ |
|
if((symbol_value(VV[153]))==Cnil){ |
|
2155 |
goto T1036;} |
goto T1036;} |
2156 |
T1038:; |
base[7]= caddr((V319)); |
2157 |
if((car((V316)))==Cnil){ |
vs_top=(vs_base=base+7)+1; |
2158 |
goto T1036;} |
L25(base); |
2159 |
princ_str("\n if(narg <",VV[21]); |
vs_top=sup; |
2160 |
V336 = make_fixnum(length(car((V316)))); |
goto T1036; |
|
(void)((*(LnkLI262))(V336)); |
|
|
princ_str(") too_few_arguments();",VV[21]); |
|
2161 |
T1036:; |
T1036:; |
2162 |
{object V337; |
{object V337; |
2163 |
object V338; |
object V338; |
2164 |
V337= car((V316)); |
V337= car(cddddr((V319))); |
2165 |
V338= car((V337)); |
V338= car((V337)); |
2166 |
T1050:; |
goto T1043; |
2167 |
|
T1043:; |
2168 |
if(!(endp((V337)))){ |
if(!(endp((V337)))){ |
2169 |
goto T1051;} |
goto T1044;} |
2170 |
goto T1046; |
goto T999; |
2171 |
T1051:; |
goto T1044; |
2172 |
(void)((*(LnkLI307))((V338))); |
T1044:; |
2173 |
|
base[9]= cadr((V338)); |
2174 |
|
vs_top=(vs_base=base+9)+1; |
2175 |
|
L25(base); |
2176 |
|
vs_top=sup; |
2177 |
|
if((cadddr((V338)))==Cnil){ |
2178 |
|
goto T1050;} |
2179 |
|
base[9]= cadddr((V338)); |
2180 |
|
vs_top=(vs_base=base+9)+1; |
2181 |
|
L25(base); |
2182 |
|
vs_top=sup; |
2183 |
|
goto T1050; |
2184 |
|
T1050:; |
2185 |
V337= cdr((V337)); |
V337= cdr((V337)); |
2186 |
V338= car((V337)); |
V338= car((V337)); |
2187 |
goto T1050;} |
goto T1043;} |
2188 |
T1046:; |
goto T999; |
2189 |
{object V339; |
T999:; |
2190 |
object V340; |
if(((VV[153]->s.s_dbind))==Cnil){ |
2191 |
V339= cadr((V316)); |
goto T1061;} |
2192 |
V340= car((V339)); |
goto T1059; |
2193 |
T1065:; |
goto T1061; |
|
if(!(endp((V339)))){ |
|
|
goto T1066;} |
|
|
goto T1061; |
|
|
T1066:; |
|
|
(void)((*(LnkLI307))(car((V340)))); |
|
|
V339= cdr((V339)); |
|
|
V340= car((V339)); |
|
|
goto T1065;} |
|
2194 |
T1061:; |
T1061:; |
2195 |
if((caddr((V316)))==Cnil){ |
princ_str("\n Vcs[0]=Vcs[0];",VV[21]); |
2196 |
|
goto T1059; |
2197 |
|
T1059:; |
2198 |
|
if((cadr((V319)))!=Cnil){ |
2199 |
|
goto T1065;} |
2200 |
|
if((caddr((V319)))!=Cnil){ |
2201 |
|
goto T1065;} |
2202 |
|
if((cadddr((V319)))==Cnil){ |
2203 |
|
goto T1064;} |
2204 |
|
goto T1065; |
2205 |
|
T1065:; |
2206 |
|
if(((V320))!=Cnil){ |
2207 |
|
goto T1064;} |
2208 |
|
V320= Ct; |
2209 |
|
princ_str("\n va_start(ap);",VV[21]); |
2210 |
|
goto T1064; |
2211 |
|
T1064:; |
2212 |
|
if((symbol_value(VV[157]))!=Cnil){ |
2213 |
|
goto T1078;} |
2214 |
|
if((symbol_value(VV[158]))==Cnil){ |
2215 |
goto T1076;} |
goto T1076;} |
2216 |
(void)((*(LnkLI307))(caddr((V316)))); |
goto T1078; |
2217 |
|
T1078:; |
2218 |
|
if((car((V319)))==Cnil){ |
2219 |
|
goto T1076;} |
2220 |
|
princ_str("\n if(narg <",VV[21]); |
2221 |
|
V339 = make_fixnum(length(car((V319)))); |
2222 |
|
(void)((*(LnkLI267))(V339)); |
2223 |
|
princ_str(") too_few_arguments();",VV[21]); |
2224 |
|
goto T1076; |
2225 |
T1076:; |
T1076:; |
2226 |
if(((VV[148]->s.s_dbind))==Cnil){ |
{object V340; |
2227 |
goto T1082;} |
object V341; |
2228 |
V314= symbol_value(VV[125]); |
V340= car((V319)); |
2229 |
goto T1080; |
V341= car((V340)); |
2230 |
T1082:; |
goto T1090; |
2231 |
V314= symbol_value(VV[137]); |
T1090:; |
2232 |
T1080:; |
if(!(endp((V340)))){ |
2233 |
{object V341; |
goto T1091;} |
2234 |
object V342; |
goto T1086; |
2235 |
V341= car(cddddr((V316))); |
goto T1091; |
2236 |
V342= car((V341)); |
T1091:; |
2237 |
T1088:; |
(void)((*(LnkLI312))((V341))); |
2238 |
if(!(endp((V341)))){ |
V340= cdr((V340)); |
2239 |
goto T1089;} |
V341= car((V340)); |
2240 |
goto T1084; |
goto T1090;} |
2241 |
T1089:; |
goto T1086; |
2242 |
(void)((*(LnkLI307))(cadr((V342)))); |
T1086:; |
2243 |
V341= cdr((V341)); |
{object V342; |
2244 |
V342= car((V341)); |
object V343; |
2245 |
goto T1088;} |
V342= cadr((V319)); |
2246 |
T1084:; |
V343= car((V342)); |
2247 |
{object V343; |
goto T1105; |
2248 |
object V344; |
T1105:; |
2249 |
V343= car(cddddr((V316))); |
if(!(endp((V342)))){ |
2250 |
V344= car((V343)); |
goto T1106;} |
2251 |
T1103:; |
goto T1101; |
2252 |
if(!(endp((V343)))){ |
goto T1106; |
2253 |
goto T1104;} |
T1106:; |
2254 |
goto T1099; |
(void)((*(LnkLI312))(car((V343)))); |
2255 |
T1104:; |
V342= cdr((V342)); |
2256 |
(void)((*(LnkLI307))(cadddr((V344)))); |
V343= car((V342)); |
2257 |
V343= cdr((V343)); |
goto T1105;} |
2258 |
V344= car((V343)); |
goto T1101; |
2259 |
goto T1103;} |
T1101:; |
2260 |
T1099:; |
if((caddr((V319)))==Cnil){ |
2261 |
{object V345; |
goto T1116;} |
2262 |
object V346; |
(void)((*(LnkLI312))(caddr((V319)))); |
2263 |
V346= car((V316)); |
goto T1116; |
2264 |
V345= (V311); |
T1116:; |
2265 |
T1117:; |
if(((VV[153]->s.s_dbind))==Cnil){ |
2266 |
if(((V345))!=Cnil){ |
goto T1122;} |
2267 |
goto T1118;} |
V317= symbol_value(VV[129]); |
2268 |
goto T1114; |
goto T1120; |
2269 |
T1118:; |
goto T1122; |
2270 |
(void)((*(LnkLI308))(car((V346)),car((V345)))); |
T1122:; |
2271 |
V345= cdr((V345)); |
V317= symbol_value(VV[141]); |
2272 |
|
goto T1120; |
2273 |
|
T1120:; |
2274 |
|
{object V344; |
2275 |
|
object V345; |
2276 |
|
V344= car(cddddr((V319))); |
2277 |
|
V345= car((V344)); |
2278 |
|
goto T1128; |
2279 |
|
T1128:; |
2280 |
|
if(!(endp((V344)))){ |
2281 |
|
goto T1129;} |
2282 |
|
goto T1124; |
2283 |
|
goto T1129; |
2284 |
|
T1129:; |
2285 |
|
(void)((*(LnkLI312))(cadr((V345)))); |
2286 |
|
V344= cdr((V344)); |
2287 |
|
V345= car((V344)); |
2288 |
|
goto T1128;} |
2289 |
|
goto T1124; |
2290 |
|
T1124:; |
2291 |
|
{object V346; |
2292 |
|
object V347; |
2293 |
|
V346= car(cddddr((V319))); |
2294 |
|
V347= car((V346)); |
2295 |
|
goto T1143; |
2296 |
|
T1143:; |
2297 |
|
if(!(endp((V346)))){ |
2298 |
|
goto T1144;} |
2299 |
|
goto T1139; |
2300 |
|
goto T1144; |
2301 |
|
T1144:; |
2302 |
|
(void)((*(LnkLI312))(cadddr((V347)))); |
2303 |
V346= cdr((V346)); |
V346= cdr((V346)); |
2304 |
goto T1117;} |
V347= car((V346)); |
2305 |
T1114:; |
goto T1143;} |
2306 |
if((cadr((V316)))==Cnil){ |
goto T1139; |
2307 |
goto T1127;} |
T1139:; |
|
bds_bind(VV[129],symbol_value(VV[129])); |
|
|
bds_bind(VV[130],(VV[130]->s.s_dbind)); |
|
|
bds_bind(VV[128],symbol_value(VV[128])); |
|
|
princ_str("\n narg = narg - ",VV[21]); |
|
|
V347 = make_fixnum(length((V311))); |
|
|
(void)((*(LnkLI262))(V347)); |
|
|
princ_char(59,VV[21]); |
|
2308 |
{object V348; |
{object V348; |
2309 |
object V349; |
object V349; |
2310 |
V348= cadr((V316)); |
V349= car((V319)); |
2311 |
V349= car((V348)); |
V348= (V314); |
2312 |
T1138:; |
goto T1157; |
2313 |
if(!(endp((V348)))){ |
T1157:; |
2314 |
goto T1139;} |
if(((V348))!=Cnil){ |
2315 |
|
goto T1158;} |
2316 |
|
goto T1154; |
2317 |
|
goto T1158; |
2318 |
|
T1158:; |
2319 |
|
(void)((*(LnkLI313))(car((V349)),car((V348)))); |
2320 |
|
V348= cdr((V348)); |
2321 |
|
V349= cdr((V349)); |
2322 |
|
goto T1157;} |
2323 |
|
goto T1154; |
2324 |
|
T1154:; |
2325 |
|
if((cadr((V319)))==Cnil){ |
2326 |
|
goto T1167;} |
2327 |
|
bds_bind(VV[133],symbol_value(VV[133])); |
2328 |
|
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
2329 |
|
bds_bind(VV[132],symbol_value(VV[132])); |
2330 |
|
princ_str("\n narg = narg - ",VV[21]); |
2331 |
|
V350 = make_fixnum(length((V314))); |
2332 |
|
(void)((*(LnkLI267))(V350)); |
2333 |
|
princ_char(59,VV[21]); |
2334 |
|
{object V351; |
2335 |
|
object V352; |
2336 |
|
V351= cadr((V319)); |
2337 |
|
V352= car((V351)); |
2338 |
|
goto T1178; |
2339 |
|
T1178:; |
2340 |
|
if(!(endp((V351)))){ |
2341 |
|
goto T1179;} |
2342 |
bds_unwind1; |
bds_unwind1; |
2343 |
bds_unwind1; |
bds_unwind1; |
2344 |
bds_unwind1; |
bds_unwind1; |
2345 |
goto T1130; |
goto T1170; |
2346 |
T1139:; |
goto T1179; |
2347 |
setq(VV[154],number_plus(symbol_value(VV[154]),small_fixnum(1))); |
T1179:; |
2348 |
V350= make_cons(symbol_value(VV[154]),Cnil); |
setq(VV[159],number_plus(symbol_value(VV[159]),small_fixnum(1))); |
2349 |
V312= make_cons(/* INLINE-ARGS */V350,(V312)); |
V353= make_cons(symbol_value(VV[159]),Cnil); |
2350 |
|
V315= make_cons(/* INLINE-ARGS */V353,(V315)); |
2351 |
princ_str("\n if (",VV[21]); |
princ_str("\n if (",VV[21]); |
2352 |
if((cdr((V312)))==Cnil){ |
if((cdr((V315)))==Cnil){ |
2353 |
goto T1151;} |
goto T1191;} |
2354 |
V351= VV[155]; |
V354= VV[160]; |
2355 |
goto T1149; |
goto T1189; |
2356 |
T1151:; |
goto T1191; |
2357 |
V351= VV[156]; |
T1191:; |
2358 |
T1149:; |
V354= VV[161]; |
2359 |
(void)((*(LnkLI262))(V351)); |
goto T1189; |
2360 |
|
T1189:; |
2361 |
|
(void)((*(LnkLI267))(V354)); |
2362 |
princ_str("narg <= 0) ",VV[21]); |
princ_str("narg <= 0) ",VV[21]); |
2363 |
if(type_of(car((V312)))!=t_cons)FEwrong_type_argument(Scons,car((V312))); |
if(type_of(car((V315)))!=t_cons)FEwrong_type_argument(Scons,car((V315))); |
2364 |
(car((V312)))->c.c_cdr = Ct; |
(car((V315)))->c.c_cdr = Ct; |
2365 |
(void)(car((V312))); |
(void)(car((V315))); |
2366 |
princ_str("goto T",VV[21]); |
princ_str("goto T",VV[21]); |
2367 |
(void)((*(LnkLI262))(car(car((V312))))); |
(void)((*(LnkLI267))(car(car((V315))))); |
2368 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
2369 |
princ_str("\n else {",VV[21]); |
princ_str("\n else {",VV[21]); |
2370 |
if(((V317))!=Cnil){ |
if(((V320))!=Cnil){ |
2371 |
goto T1161;} |
goto T1201;} |
2372 |
V317= Ct; |
V320= Ct; |
2373 |
princ_str("\n va_start(ap);",VV[21]); |
princ_str("\n va_start(ap);",VV[21]); |
2374 |
T1161:; |
goto T1201; |
2375 |
V352= car((V349)); |
T1201:; |
2376 |
V353= make_cons(VV[157],Cnil); |
V355= car((V352)); |
2377 |
(void)((*(LnkLI308))(/* INLINE-ARGS */V352,/* INLINE-ARGS */V353)); |
V356= make_cons(VV[162],Cnil); |
2378 |
|
(void)((*(LnkLI313))(/* INLINE-ARGS */V355,/* INLINE-ARGS */V356)); |
2379 |
princ_char(125,VV[21]); |
princ_char(125,VV[21]); |
2380 |
if((caddr((V349)))==Cnil){ |
if((caddr((V352)))==Cnil){ |
2381 |
goto T1170;} |
goto T1210;} |
2382 |
(void)((*(LnkLI308))(caddr((V349)),Ct)); |
(void)((*(LnkLI313))(caddr((V352)),Ct)); |
2383 |
|
goto T1210; |
2384 |
|
T1210:; |
2385 |
|
V351= cdr((V351)); |
2386 |
|
V352= car((V351)); |
2387 |
|
goto T1178;} |
2388 |
|
goto T1170; |
2389 |
T1170:; |
T1170:; |
2390 |
V348= cdr((V348)); |
V315= nreverse((V315)); |
2391 |
V349= car((V348)); |
{object V357; |
2392 |
goto T1138;} |
setq(VV[159],number_plus(symbol_value(VV[159]),small_fixnum(1))); |
2393 |
T1130:; |
V357= make_cons(symbol_value(VV[159]),Cnil); |
|
V312= nreverse((V312)); |
|
|
{object V354; |
|
|
setq(VV[154],number_plus(symbol_value(VV[154]),small_fixnum(1))); |
|
|
V354= make_cons(symbol_value(VV[154]),Cnil); |
|
2394 |
princ_str("\n --narg; ",VV[21]); |
princ_str("\n --narg; ",VV[21]); |
2395 |
if(type_of((V354))!=t_cons)FEwrong_type_argument(Scons,(V354)); |
if(type_of((V357))!=t_cons)FEwrong_type_argument(Scons,(V357)); |
2396 |
((V354))->c.c_cdr = Ct; |
((V357))->c.c_cdr = Ct; |
2397 |
princ_str("goto T",VV[21]); |
princ_str("goto T",VV[21]); |
2398 |
(void)((*(LnkLI262))(car((V354)))); |
(void)((*(LnkLI267))(car((V357)))); |
2399 |
|
princ_char(59,VV[21]); |
2400 |
|
{object V358; |
2401 |
|
object V359; |
2402 |
|
V358= cadr((V319)); |
2403 |
|
V359= car((V358)); |
2404 |
|
goto T1233; |
2405 |
|
T1233:; |
2406 |
|
if(!(endp((V358)))){ |
2407 |
|
goto T1234;} |
2408 |
|
goto T1229; |
2409 |
|
goto T1234; |
2410 |
|
T1234:; |
2411 |
|
if((cdr(car((V315))))==Cnil){ |
2412 |
|
goto T1238;} |
2413 |
|
princ_str("\ngoto T",VV[21]); |
2414 |
|
(void)((*(LnkLI267))(car(car((V315))))); |
2415 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
|
{object V355; |
|
|
object V356; |
|
|
V355= cadr((V316)); |
|
|
V356= car((V355)); |
|
|
T1193:; |
|
|
if(!(endp((V355)))){ |
|
|
goto T1194;} |
|
|
goto T1189; |
|
|
T1194:; |
|
|
if((cdr(car((V312))))==Cnil){ |
|
|
goto T1198;} |
|
2416 |
princ_str("\nT",VV[21]); |
princ_str("\nT",VV[21]); |
2417 |
(void)((*(LnkLI262))(car(car((V312))))); |
(void)((*(LnkLI267))(car(car((V315))))); |
2418 |
princ_str(":;",VV[21]); |
princ_str(":;",VV[21]); |
2419 |
T1198:; |
goto T1238; |
2420 |
{object V357; |
T1238:; |
2421 |
V357= car((V312)); |
{object V360; |
2422 |
V312= cdr((V312));} |
V360= car((V315)); |
2423 |
(void)((*(LnkLI309))(car((V356)),cadr((V356)))); |
V315= cdr((V315));} |
2424 |
if((caddr((V356)))==Cnil){ |
(void)((*(LnkLI314))(car((V359)),cadr((V359)))); |
2425 |
goto T1209;} |
if((caddr((V359)))==Cnil){ |
2426 |
(void)((*(LnkLI308))(caddr((V356)),Cnil)); |
goto T1253;} |
2427 |
T1209:; |
(void)((*(LnkLI313))(caddr((V359)),Cnil)); |
2428 |
V355= cdr((V355)); |
goto T1253; |
2429 |
V356= car((V355)); |
T1253:; |
2430 |
goto T1193;} |
V358= cdr((V358)); |
2431 |
T1189:; |
V359= car((V358)); |
2432 |
if((cdr((V354)))==Cnil){ |
goto T1233;} |
2433 |
goto T1127;} |
goto T1229; |
2434 |
|
T1229:; |
2435 |
|
if((cdr((V357)))==Cnil){ |
2436 |
|
goto T1167;} |
2437 |
|
princ_str("\ngoto T",VV[21]); |
2438 |
|
(void)((*(LnkLI267))(car((V357)))); |
2439 |
|
princ_char(59,VV[21]); |
2440 |
princ_str("\nT",VV[21]); |
princ_str("\nT",VV[21]); |
2441 |
(void)((*(LnkLI262))(car((V354)))); |
(void)((*(LnkLI267))(car((V357)))); |
2442 |
princ_str(":;",VV[21]);} |
princ_str(":;",VV[21]);} |
2443 |
T1127:; |
goto T1167; |
2444 |
if((caddr((V316)))==Cnil){ |
T1167:; |
2445 |
goto T1222;} |
if((caddr((V319)))==Cnil){ |
2446 |
V315= (VFUN_NARGS=0,(*(LnkLI310))()); |
goto T1270;} |
2447 |
{object V358; |
V318= (VFUN_NARGS=0,(*(LnkLI315))()); |
2448 |
V358= cadr((V316)); |
{object V361; |
2449 |
if(((V358))==Cnil){ |
V361= cadr((V319)); |
2450 |
goto T1230;} |
if(((V361))==Cnil){ |
2451 |
goto T1227; |
goto T1278;} |
2452 |
T1230:; |
goto T1275; |
2453 |
|
goto T1278; |
2454 |
|
T1278:; |
2455 |
princ_str("\n narg= narg - ",VV[21]); |
princ_str("\n narg= narg - ",VV[21]); |
2456 |
V359 = make_fixnum(length(car((V316)))); |
V362 = make_fixnum(length(car((V319)))); |
2457 |
(void)((*(LnkLI262))(V359)); |
(void)((*(LnkLI267))(V362)); |
2458 |
princ_char(59,VV[21]);} |
princ_char(59,VV[21]);} |
2459 |
T1227:; |
goto T1275; |
2460 |
if(((V317))!=Cnil){ |
T1275:; |
2461 |
goto T1235;} |
if(((V320))!=Cnil){ |
2462 |
V317= Ct; |
goto T1283;} |
2463 |
|
V320= Ct; |
2464 |
princ_str("\n va_start(ap);",VV[21]); |
princ_str("\n va_start(ap);",VV[21]); |
2465 |
T1235:; |
goto T1283; |
2466 |
|
T1283:; |
2467 |
princ_str("\n V",VV[21]); |
princ_str("\n V",VV[21]); |
2468 |
(void)((*(LnkLI262))((V315))); |
(void)((*(LnkLI267))((V318))); |
2469 |
princ_str(" = ",VV[21]); |
princ_str(" = ",VV[21]); |
2470 |
V360= structure_ref(caddr((V316)),VV[65],5); |
V363= structure_ref(caddr((V319)),VV[69],5); |
2471 |
if(!((/* INLINE-ARGS */V360)==(VV[159]))){ |
if(!((/* INLINE-ARGS */V363)==(VV[164]))){ |
2472 |
goto T1246;} |
goto T1294;} |
2473 |
base[7]= Ct; |
base[7]= Ct; |
2474 |
goto T1245; |
goto T1293; |
2475 |
T1246:; |
goto T1294; |
2476 |
base[7]= symbol_value(VV[158]); |
T1294:; |
2477 |
T1245:; |
base[7]= symbol_value(VV[163]); |
2478 |
bds_bind(VV[158],base[7]); |
goto T1293; |
2479 |
if((cadddr((V316)))==Cnil){ |
T1293:; |
2480 |
goto T1250;} |
bds_bind(VV[163],base[7]); |
2481 |
if(((VV[158]->s.s_dbind))==Cnil){ |
if((cadddr((V319)))==Cnil){ |
2482 |
goto T1253;} |
goto T1298;} |
2483 |
|
if(((VV[163]->s.s_dbind))==Cnil){ |
2484 |
|
goto T1301;} |
2485 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[21]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[21]); |
2486 |
goto T1248; |
goto T1296; |
2487 |
T1253:; |
goto T1301; |
2488 |
|
T1301:; |
2489 |
princ_str("make_list(narg);",VV[21]); |
princ_str("make_list(narg);",VV[21]); |
2490 |
goto T1248; |
goto T1296; |
2491 |
T1250:; |
goto T1298; |
2492 |
if(((VV[158]->s.s_dbind))==Cnil){ |
T1298:; |
2493 |
goto T1258;} |
if(((VV[163]->s.s_dbind))==Cnil){ |
2494 |
|
goto T1306;} |
2495 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[21]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[21]); |
2496 |
goto T1248; |
goto T1296; |
2497 |
T1258:; |
goto T1306; |
2498 |
|
T1306:; |
2499 |
princ_str("list_vector(narg,ap);",VV[21]); |
princ_str("list_vector(narg,ap);",VV[21]); |
2500 |
T1248:; |
goto T1296; |
2501 |
V361= caddr((V316)); |
T1296:; |
2502 |
V362= list(2,VV[150],(V315)); |
V364= caddr((V319)); |
2503 |
V363= (*(LnkLI308))(/* INLINE-ARGS */V361,/* INLINE-ARGS */V362); |
V365= list(2,VV[155],(V318)); |
2504 |
bds_unwind1; |
V366= (*(LnkLI313))(/* INLINE-ARGS */V364,/* INLINE-ARGS */V365); |
2505 |
T1222:; |
bds_unwind1; |
2506 |
if((cadddr((V316)))==Cnil){ |
goto T1270; |
2507 |
goto T1262;} |
T1270:; |
2508 |
{object V364; |
if((cadddr((V319)))==Cnil){ |
2509 |
V364= caddr((V316)); |
goto T1310;} |
2510 |
if(((V364))==Cnil){ |
{object V367; |
2511 |
goto T1268;} |
V367= caddr((V319)); |
2512 |
goto T1265; |
if(((V367))==Cnil){ |
2513 |
T1268:; |
goto T1316;} |
2514 |
{object V365; |
goto T1313; |
2515 |
V365= cadr((V316)); |
goto T1316; |
2516 |
if(((V365))==Cnil){ |
T1316:; |
2517 |
goto T1272;} |
{object V368; |
2518 |
goto T1265; |
V368= cadr((V319)); |
2519 |
T1272:; |
if(((V368))==Cnil){ |
2520 |
|
goto T1320;} |
2521 |
|
goto T1313; |
2522 |
|
goto T1320; |
2523 |
|
T1320:; |
2524 |
princ_str("\n narg= narg - ",VV[21]); |
princ_str("\n narg= narg - ",VV[21]); |
2525 |
V366 = make_fixnum(length(car((V316)))); |
V369 = make_fixnum(length(car((V319)))); |
2526 |
(void)((*(LnkLI262))(V366)); |
(void)((*(LnkLI267))(V369)); |
2527 |
princ_char(59,VV[21]);}} |
princ_char(59,VV[21]);}} |
2528 |
T1265:; |
goto T1313; |
2529 |
if(((V317))!=Cnil){ |
T1313:; |
2530 |
goto T1277;} |
if(((V320))!=Cnil){ |
2531 |
V317= Ct; |
goto T1325;} |
2532 |
|
V320= Ct; |
2533 |
princ_str("\n va_start(ap);",VV[21]); |
princ_str("\n va_start(ap);",VV[21]); |
2534 |
T1277:; |
goto T1325; |
2535 |
{object V367; |
T1325:; |
2536 |
object V368= car(cddddr((V316))); |
{object V370; |
2537 |
if(endp(V368)){ |
object V371= car(cddddr((V319))); |
2538 |
V313= Cnil; |
if(endp(V371)){ |
2539 |
goto T1284;} |
V316= Cnil; |
2540 |
base[7]=V367=MMcons(Cnil,Cnil); |
goto T1332;} |
2541 |
T1285:; |
base[7]=V370=MMcons(Cnil,Cnil); |
2542 |
(V367->c.c_car)= caddr((V368->c.c_car)); |
goto T1333; |
2543 |
if(endp(V368=MMcdr(V368))){ |
T1333:; |
2544 |
V313= base[7]; |
(V370->c.c_car)= caddr((V371->c.c_car)); |
2545 |
goto T1284;} |
if(endp(V371=MMcdr(V371))){ |
2546 |
V367=MMcdr(V367)=MMcons(Cnil,Cnil); |
V316= base[7]; |
2547 |
goto T1285;} |
goto T1332;} |
2548 |
T1284:; |
V370=MMcdr(V370)=MMcons(Cnil,Cnil); |
2549 |
{object V369; |
goto T1333;} |
2550 |
object V370; |
goto T1332; |
2551 |
V370= make_fixnum(length(car(cddddr((V316))))); |
T1332:; |
2552 |
V369= Cnil; |
{object V372; |
|
{register object V371; |
|
|
object V372; |
|
2553 |
object V373; |
object V373; |
2554 |
V371= (V313); |
V373= make_fixnum(length(car(cddddr((V319))))); |
2555 |
V372= car(cddddr((V316))); |
V372= Cnil; |
2556 |
V373= car((V372)); |
{register object V374; |
2557 |
T1293:; |
object V375; |
2558 |
if(((V371))!=Cnil){ |
object V376; |
2559 |
goto T1294;} |
V374= (V316); |
2560 |
goto T1288; |
V375= car(cddddr((V319))); |
2561 |
T1294:; |
V376= car((V375)); |
2562 |
if(!((caar((V371)))==(VV[160]))){ |
goto T1341; |
2563 |
goto T1299;} |
T1341:; |
2564 |
if((caddr(car((V371))))==(Cnil)){ |
if(((V374))!=Cnil){ |
2565 |
goto T1298;} |
goto T1342;} |
2566 |
T1299:; |
goto T1336; |
2567 |
V369= Ct; |
goto T1342; |
2568 |
T1298:; |
T1342:; |
2569 |
if(!((caar((V371)))==(VV[160]))){ |
if(!((caar((V374)))==(VV[165]))){ |
2570 |
goto T1305;} |
goto T1347;} |
2571 |
{object V374; |
if((caddr(car((V374))))==(Cnil)){ |
2572 |
V374= caddr(car((V371))); |
goto T1346;} |
2573 |
if(!(((V374))==(Cnil))){ |
goto T1347; |
2574 |
goto T1311;} |
T1347:; |
2575 |
goto T1309; |
V372= Ct; |
2576 |
T1311:; |
goto T1346; |
2577 |
if(type_of((V374))==t_cons){ |
T1346:; |
2578 |
goto T1313;} |
if(!((caar((V374)))==(VV[165]))){ |
2579 |
goto T1305; |
goto T1353;} |
2580 |
T1313:; |
{object V377; |
2581 |
{register object x= car((V374)),V375= VV[161]; |
V377= caddr(car((V374))); |
2582 |
while(!endp(V375)) |
if(!(((V377))==(Cnil))){ |
2583 |
if(eql(x,V375->c.c_car)){ |
goto T1359;} |
2584 |
goto T1309; |
goto T1357; |
2585 |
}else V375=V375->c.c_cdr; |
goto T1359; |
2586 |
goto T1305;}} |
T1359:; |
2587 |
T1309:; |
if(type_of((V377))==t_cons){ |
2588 |
V376= structure_ref(cadddr((V373)),VV[65],1); |
goto T1361;} |
2589 |
if((/* INLINE-ARGS */V376)==(VV[162])){ |
goto T1353; |
2590 |
goto T1304;} |
goto T1361; |
2591 |
T1305:; |
T1361:; |
2592 |
V369= Ct; |
{register object x= car((V377)),V378= VV[166]; |
2593 |
if(type_of(V371)!=t_cons)FEwrong_type_argument(Scons,V371); |
while(!endp(V378)) |
2594 |
(V371)->c.c_car = small_fixnum(0); |
if(eql(x,V378->c.c_car)){ |
2595 |
T1304:; |
goto T1357; |
2596 |
V371= cdr((V371)); |
}else V378=V378->c.c_cdr; |
2597 |
V372= cdr((V372)); |
goto T1353;}} |
2598 |
V373= car((V372)); |
goto T1357; |
2599 |
goto T1293;} |
T1357:; |
2600 |
T1288:; |
V379= structure_ref(cadddr((V376)),VV[69],1); |
2601 |
if(!((length((V313)))>(15))){ |
if((/* INLINE-ARGS */V379)==(VV[167])){ |
2602 |
goto T1326;} |
goto T1352;} |
2603 |
V369= Ct; |
goto T1353; |
2604 |
T1326:; |
T1353:; |
2605 |
|
V372= Ct; |
2606 |
|
if(type_of(V374)!=t_cons)FEwrong_type_argument(Scons,V374); |
2607 |
|
(V374)->c.c_car = small_fixnum(0); |
2608 |
|
goto T1352; |
2609 |
|
T1352:; |
2610 |
|
V374= cdr((V374)); |
2611 |
|
V375= cdr((V375)); |
2612 |
|
V376= car((V375)); |
2613 |
|
goto T1341;} |
2614 |
|
goto T1336; |
2615 |
|
T1336:; |
2616 |
|
if(!((length((V316)))>(15))){ |
2617 |
|
goto T1374;} |
2618 |
|
V372= Ct; |
2619 |
|
goto T1374; |
2620 |
|
T1374:; |
2621 |
princ_str("\n {",VV[21]); |
princ_str("\n {",VV[21]); |
2622 |
vs_base=vs_top; |
vs_base=vs_top; |
2623 |
(void) (*Lnk311)(); |
(void) (*Lnk316)(); |
2624 |
vs_top=sup; |
vs_top=sup; |
2625 |
bds_bind(VV[21],symbol_value(VV[27])); |
bds_bind(VV[21],symbol_value(VV[27])); |
2626 |
if(((V369))==Cnil){ |
if(((V372))==Cnil){ |
2627 |
goto T1334;} |
goto T1382;} |
2628 |
princ_char(10,VV[27]); |
princ_char(10,VV[27]); |
2629 |
princ_str("static object VK",VV[21]); |
princ_str("static object VK",VV[21]); |
2630 |
(void)((*(LnkLI262))((V308))); |
(void)((*(LnkLI267))((V311))); |
2631 |
princ_str("defaults[",VV[21]); |
princ_str("defaults[",VV[21]); |
2632 |
V379 = make_fixnum(length((V313))); |
V382 = make_fixnum(length((V316))); |
2633 |
(void)((*(LnkLI262))(V379)); |
(void)((*(LnkLI267))(V382)); |
2634 |
princ_str("]={",VV[21]); |
princ_str("]={",VV[21]); |
2635 |
{object V380; |
{object V383; |
2636 |
register object V381; |
register object V384; |
2637 |
V380= (V313); |
V383= (V316); |
2638 |
V381= Cnil; |
V384= Cnil; |
2639 |
T1346:; |
goto T1394; |
2640 |
if(((V380))!=Cnil){ |
T1394:; |
2641 |
goto T1347;} |
if(((V383))!=Cnil){ |
2642 |
goto T1344; |
goto T1395;} |
2643 |
T1347:; |
goto T1392; |
2644 |
|
goto T1395; |
2645 |
|
T1395:; |
2646 |
princ_str("(void *)",VV[21]); |
princ_str("(void *)",VV[21]); |
2647 |
if(!(eql(car((V380)),small_fixnum(0)))){ |
if(!(eql(car((V383)),small_fixnum(0)))){ |
2648 |
goto T1355;} |
goto T1403;} |
2649 |
princ_str("-1",VV[21]); |
princ_str("-1",VV[21]); |
2650 |
goto T1353; |
goto T1401; |
2651 |
T1355:; |
goto T1403; |
2652 |
V381= caddr(car((V380))); |
T1403:; |
2653 |
if(!(((V381))==(Cnil))){ |
V384= caddr(car((V383))); |
2654 |
goto T1359;} |
if(!(((V384))==(Cnil))){ |
2655 |
|
goto T1407;} |
2656 |
princ_str("-2",VV[21]); |
princ_str("-2",VV[21]); |
2657 |
goto T1353; |
goto T1401; |
2658 |
T1359:; |
goto T1407; |
2659 |
if(!(type_of((V381))==t_cons)){ |
T1407:; |
2660 |
goto T1364;} |
if(!(type_of((V384))==t_cons)){ |
2661 |
if(!((car((V381)))==(VV[163]))){ |
goto T1412;} |
2662 |
goto T1364;} |
if(!((car((V384)))==(VV[168]))){ |
2663 |
(void)((*(LnkLI262))(cadr((V381)))); |
goto T1412;} |
2664 |
goto T1353; |
(void)((*(LnkLI267))(cadr((V384)))); |
2665 |
T1364:; |
goto T1401; |
2666 |
if(!(type_of((V381))==t_cons)){ |
goto T1412; |
2667 |
goto T1370;} |
T1412:; |
2668 |
if(!((car((V381)))==(VV[164]))){ |
if(!(type_of((V384))==t_cons)){ |
2669 |
goto T1370;} |
goto T1418;} |
2670 |
V382= (*(LnkLI312))(caddr((V381))); |
if(!((car((V384)))==(VV[169]))){ |
2671 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V382)); |
goto T1418;} |
2672 |
goto T1353; |
V385= (*(LnkLI317))(caddr((V384))); |
2673 |
T1370:; |
(void)((*(LnkLI267))(/* INLINE-ARGS */V385)); |
2674 |
(void)((*(LnkLI313))()); |
goto T1401; |
2675 |
T1353:; |
goto T1418; |
2676 |
if((cdr((V380)))==Cnil){ |
T1418:; |
2677 |
goto T1375;} |
(void)((*(LnkLI318))()); |
2678 |
|
goto T1401; |
2679 |
|
T1401:; |
2680 |
|
if((cdr((V383)))==Cnil){ |
2681 |
|
goto T1423;} |
2682 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
2683 |
T1375:; |
goto T1423; |
2684 |
V380= cdr((V380)); |
T1423:; |
2685 |
goto T1346;} |
V383= cdr((V383)); |
2686 |
T1344:; |
goto T1394;} |
2687 |
|
goto T1392; |
2688 |
|
T1392:; |
2689 |
princ_str("};",VV[21]); |
princ_str("};",VV[21]); |
2690 |
T1334:; |
goto T1382; |
2691 |
|
T1382:; |
2692 |
princ_char(10,VV[27]); |
princ_char(10,VV[27]); |
2693 |
princ_str("static struct { short n,allow_other_keys;",VV[21]); |
princ_str("static struct { short n,allow_other_keys;",VV[21]); |
2694 |
princ_str("object *defaults;",VV[21]); |
princ_str("object *defaults;",VV[21]); |
2695 |
princ_str("\n KEYTYPE keys[",VV[21]); |
princ_str("\n KEYTYPE keys[",VV[21]); |
2696 |
(void)((*(LnkLI262))((number_compare((V370),small_fixnum(1))>=0?((V370)):small_fixnum(1)))); |
(void)((*(LnkLI267))((number_compare((V373),small_fixnum(1))>=0?((V373)):small_fixnum(1)))); |
2697 |
princ_str("];",VV[21]); |
princ_str("];",VV[21]); |
2698 |
princ_str("} LI",VV[21]); |
princ_str("} LI",VV[21]); |
2699 |
(void)((*(LnkLI262))((V308))); |
(void)((*(LnkLI267))((V311))); |
2700 |
princ_str("key=",VV[21]); |
princ_str("key=",VV[21]); |
2701 |
princ_char(123,VV[21]); |
princ_char(123,VV[21]); |
2702 |
V383 = make_fixnum(length(car(cddddr((V316))))); |
V386 = make_fixnum(length(car(cddddr((V319))))); |
2703 |
(void)((*(LnkLI262))(V383)); |
(void)((*(LnkLI267))(V386)); |
2704 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
2705 |
if((cadr(cddddr((V316))))==Cnil){ |
if((cadr(cddddr((V319))))==Cnil){ |
2706 |
goto T1402;} |
goto T1450;} |
2707 |
V384= small_fixnum(1); |
V387= small_fixnum(1); |
2708 |
goto T1400; |
goto T1448; |
2709 |
T1402:; |
goto T1450; |
2710 |
V384= small_fixnum(0); |
T1450:; |
2711 |
T1400:; |
V387= small_fixnum(0); |
2712 |
(void)((*(LnkLI262))(V384)); |
goto T1448; |
2713 |
|
T1448:; |
2714 |
|
(void)((*(LnkLI267))(V387)); |
2715 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
2716 |
if(((V369))==Cnil){ |
if(((V372))==Cnil){ |
2717 |
goto T1407;} |
goto T1455;} |
2718 |
princ_str("VK",VV[21]); |
princ_str("VK",VV[21]); |
2719 |
(void)((*(LnkLI262))((V308))); |
(void)((*(LnkLI267))((V311))); |
2720 |
princ_str("defaults",VV[21]); |
princ_str("defaults",VV[21]); |
2721 |
goto T1405; |
goto T1453; |
2722 |
T1407:; |
goto T1455; |
2723 |
|
T1455:; |
2724 |
princ_str("Cstd_key_defaults",VV[21]); |
princ_str("Cstd_key_defaults",VV[21]); |
2725 |
T1405:; |
goto T1453; |
2726 |
if((car(cddddr((V316))))==Cnil){ |
T1453:; |
2727 |
goto T1413;} |
if((car(cddddr((V319))))==Cnil){ |
2728 |
|
goto T1461;} |
2729 |
princ_str(",{",VV[21]); |
princ_str(",{",VV[21]); |
2730 |
{object V385; |
{object V388; |
2731 |
V385= reverse(car(cddddr((V316)))); |
V388= reverse(car(cddddr((V319)))); |
2732 |
T1421:; |
goto T1469; |
2733 |
if(((V385))!=Cnil){ |
T1469:; |
2734 |
goto T1422;} |
if(((V388))!=Cnil){ |
2735 |
goto T1418; |
goto T1470;} |
2736 |
T1422:; |
goto T1466; |
2737 |
|
goto T1470; |
2738 |
|
T1470:; |
2739 |
princ_str("(void *)",VV[21]); |
princ_str("(void *)",VV[21]); |
2740 |
V386= (*(LnkLI314))(caar((V385))); |
V389= (*(LnkLI319))(caar((V388))); |
2741 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V386)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V389)); |
2742 |
if((cdr((V385)))==Cnil){ |
if((cdr((V388)))==Cnil){ |
2743 |
goto T1430;} |
goto T1478;} |
2744 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
2745 |
T1430:; |
goto T1478; |
2746 |
V385= cdr((V385)); |
T1478:; |
2747 |
goto T1421;} |
V388= cdr((V388)); |
2748 |
T1418:; |
goto T1469;} |
2749 |
|
goto T1466; |
2750 |
|
T1466:; |
2751 |
princ_char(125,VV[21]); |
princ_char(125,VV[21]); |
2752 |
T1413:; |
goto T1461; |
2753 |
|
T1461:; |
2754 |
princ_str("};",VV[21]); |
princ_str("};",VV[21]); |
2755 |
bds_unwind1; |
bds_unwind1; |
2756 |
if((caddr((V316)))==Cnil){ |
if((caddr((V319)))==Cnil){ |
2757 |
goto T1441;} |
goto T1489;} |
2758 |
princ_str("\n parse_key_rest(",VV[21]); |
princ_str("\n parse_key_rest(",VV[21]); |
2759 |
V387= list(2,VV[150],(V315)); |
V390= list(2,VV[155],(V318)); |
2760 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V387)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V390)); |
2761 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
2762 |
goto T1439; |
goto T1487; |
2763 |
T1441:; |
goto T1489; |
2764 |
|
T1489:; |
2765 |
princ_str("\n parse_key_new(",VV[21]); |
princ_str("\n parse_key_new(",VV[21]); |
2766 |
T1439:; |
goto T1487; |
2767 |
if(!(eql(small_fixnum(0),symbol_value(VV[137])))){ |
T1487:; |
2768 |
goto T1447;} |
if(!(eql(small_fixnum(0),symbol_value(VV[141])))){ |
2769 |
setq(VV[137],small_fixnum(1)); |
goto T1495;} |
2770 |
T1447:; |
setq(VV[141],small_fixnum(1)); |
2771 |
|
goto T1495; |
2772 |
|
T1495:; |
2773 |
princ_str("narg,",VV[21]); |
princ_str("narg,",VV[21]); |
2774 |
if(((VV[148]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
2775 |
goto T1455;} |
goto T1503;} |
2776 |
V388= VV[165]; |
V391= VV[170]; |
2777 |
goto T1453; |
goto T1501; |
2778 |
T1455:; |
goto T1503; |
2779 |
V388= VV[166]; |
T1503:; |
2780 |
T1453:; |
V391= VV[171]; |
2781 |
(void)((*(LnkLI262))(V388)); |
goto T1501; |
2782 |
|
T1501:; |
2783 |
|
(void)((*(LnkLI267))(V391)); |
2784 |
princ_char(43,VV[21]); |
princ_char(43,VV[21]); |
2785 |
(void)((*(LnkLI262))((V314))); |
(void)((*(LnkLI267))((V317))); |
2786 |
princ_str(",&LI",VV[21]); |
princ_str(",(struct key *)&LI",VV[21]); |
2787 |
(void)((*(LnkLI262))((V308))); |
(void)((*(LnkLI267))((V311))); |
2788 |
princ_str("key,ap);",VV[21]);} |
princ_str("key,ap);",VV[21]);} |
2789 |
T1262:; |
goto T1310; |
2790 |
{object V389; |
T1310:; |
|
register object V390; |
|
|
V389= car(cddddr((V316))); |
|
|
V390= car((V389)); |
|
|
T1466:; |
|
|
if(!(endp((V389)))){ |
|
|
goto T1467;} |
|
|
goto T1462; |
|
|
T1467:; |
|
2791 |
{object V392; |
{object V392; |
2792 |
V392= car((V313)); |
register object V393; |
2793 |
V313= cdr((V313)); |
V392= car(cddddr((V319))); |
2794 |
V391= (V392);} |
V393= car((V392)); |
2795 |
if(eql(small_fixnum(0),V391)){ |
goto T1514; |
2796 |
goto T1473;} |
T1514:; |
2797 |
(void)((*(LnkLI315))(cadr((V390)))); |
if(!(endp((V392)))){ |
2798 |
goto T1471; |
goto T1515;} |
2799 |
T1473:; |
goto T1510; |
2800 |
|
goto T1515; |
2801 |
|
T1515:; |
2802 |
|
{object V395; |
2803 |
|
V395= car((V316)); |
2804 |
|
V316= cdr((V316)); |
2805 |
|
V394= (V395);} |
2806 |
|
if(eql(small_fixnum(0),V394)){ |
2807 |
|
goto T1521;} |
2808 |
|
(void)((*(LnkLI320))(cadr((V393)))); |
2809 |
|
goto T1519; |
2810 |
|
goto T1521; |
2811 |
|
T1521:; |
2812 |
princ_str("\n if(",VV[21]); |
princ_str("\n if(",VV[21]); |
2813 |
V393= structure_ref(cadr((V390)),VV[65],2); |
V396= structure_ref(cadr((V393)),VV[69],2); |
2814 |
(void)((*(LnkLI316))(/* INLINE-ARGS */V393)); |
(void)((*(LnkLI321))(/* INLINE-ARGS */V396)); |
2815 |
princ_str("==0){",VV[21]); |
princ_str("==0){",VV[21]); |
2816 |
bds_bind(VV[129],symbol_value(VV[129])); |
bds_bind(VV[133],symbol_value(VV[133])); |
2817 |
bds_bind(VV[130],(VV[130]->s.s_dbind)); |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
2818 |
bds_bind(VV[128],symbol_value(VV[128])); |
bds_bind(VV[132],symbol_value(VV[132])); |
2819 |
V394= (*(LnkLI309))(cadr((V390)),caddr((V390))); |
V397= (*(LnkLI314))(cadr((V393)),caddr((V393))); |
2820 |
bds_unwind1; |
bds_unwind1; |
2821 |
bds_unwind1; |
bds_unwind1; |
2822 |
bds_unwind1; |
bds_unwind1; |
2823 |
V395= structure_ref(cadddr((V390)),VV[65],1); |
V398= structure_ref(cadddr((V393)),VV[69],1); |
2824 |
if((/* INLINE-ARGS */V395)==(VV[162])){ |
if((/* INLINE-ARGS */V398)==(VV[167])){ |
2825 |
goto T1485;} |
goto T1533;} |
2826 |
(void)((*(LnkLI308))(cadddr((V390)),Cnil)); |
(void)((*(LnkLI313))(cadddr((V393)),Cnil)); |
2827 |
T1485:; |
goto T1533; |
2828 |
|
T1533:; |
2829 |
princ_str("\n }else{",VV[21]); |
princ_str("\n }else{",VV[21]); |
2830 |
(void)((*(LnkLI315))(cadr((V390)))); |
(void)((*(LnkLI320))(cadr((V393)))); |
2831 |
V396= structure_ref(cadddr((V390)),VV[65],1); |
V399= structure_ref(cadddr((V393)),VV[69],1); |
2832 |
if((/* INLINE-ARGS */V396)==(VV[162])){ |
if((/* INLINE-ARGS */V399)==(VV[167])){ |
2833 |
goto T1491;} |
goto T1539;} |
2834 |
(void)((*(LnkLI308))(cadddr((V390)),Ct)); |
(void)((*(LnkLI313))(cadddr((V393)),Ct)); |
2835 |
T1491:; |
goto T1539; |
2836 |
|
T1539:; |
2837 |
princ_char(125,VV[21]); |
princ_char(125,VV[21]); |
2838 |
T1471:; |
goto T1519; |
2839 |
V389= cdr((V389)); |
T1519:; |
2840 |
V390= car((V389)); |
V392= cdr((V392)); |
2841 |
goto T1466;} |
V393= car((V392)); |
2842 |
T1462:; |
goto T1514;} |
2843 |
if(((VV[142]->s.s_dbind))==Cnil){ |
goto T1510; |
2844 |
goto T1500;} |
T1510:; |
2845 |
(VV[130]->s.s_dbind)= make_cons(VV[146],(VV[130]->s.s_dbind)); |
if(((VV[146]->s.s_dbind))==Cnil){ |
2846 |
|
goto T1548;} |
2847 |
|
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
2848 |
|
princ_str("\ngoto TTL;",VV[21]); |
2849 |
princ_str("\nTTL:;",VV[21]); |
princ_str("\nTTL:;",VV[21]); |
2850 |
T1500:; |
goto T1548; |
2851 |
base[7]= caddr(cddr((V309))); |
T1548:; |
2852 |
|
base[7]= caddr(cddr((V312))); |
2853 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2854 |
(void) (*Lnk302)(); |
(void) (*Lnk307)(); |
2855 |
vs_top=sup; |
vs_top=sup; |
2856 |
|
if(((V320))==Cnil){ |
2857 |
|
goto T1558;} |
2858 |
|
V320= Cnil; |
2859 |
|
princ_str("\n va_end(ap);",VV[21]); |
2860 |
|
goto T1558; |
2861 |
|
T1558:; |
2862 |
|
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
2863 |
|
goto T1566;} |
2864 |
|
if((symbol_value(VV[138]))!=Cnil){ |
2865 |
|
goto T1566;} |
2866 |
|
if((symbol_value(VV[140]))!=Cnil){ |
2867 |
|
goto T1566;} |
2868 |
|
goto T1564; |
2869 |
|
goto T1566; |
2870 |
|
T1566:; |
2871 |
|
princ_str("\n base[0]=base[0];",VV[21]); |
2872 |
|
goto T1564; |
2873 |
|
T1564:; |
2874 |
|
princ_str("\n return Cnil;",VV[21]); |
2875 |
princ_char(125,VV[21]); |
princ_char(125,VV[21]); |
2876 |
if((base[1])==Cnil){ |
if((base[1])==Cnil){ |
2877 |
goto T1510;} |
goto T1577;} |
2878 |
princ_str("\n }",VV[21]); |
princ_str("\n }",VV[21]); |
2879 |
T1510:; |
goto T1577; |
2880 |
(void)((*(LnkLI317))()); |
T1577:; |
2881 |
V397= get((V307),VV[74],Cnil); |
(void)((*(LnkLI322))()); |
2882 |
{object V398 = (*(LnkLI303))((V324),V397); |
V400= get((V310),VV[78],Cnil); |
2883 |
|
{object V401 = (*(LnkLI308))((V327),V400); |
2884 |
bds_unwind1; |
bds_unwind1; |
2885 |
bds_unwind1; |
bds_unwind1; |
2886 |
bds_unwind1; |
bds_unwind1; |
2887 |
bds_unwind1; |
bds_unwind1; |
2888 |
VMR24(V398)}}} |
VMR24(V401)}}} |
2889 |
|
base[0]=base[0]; |
2890 |
|
return Cnil; |
2891 |
} |
} |
2892 |
/* local entry for function T3DEFUN-NORMAL */ |
/* local entry for function T3DEFUN-NORMAL */ |
2893 |
|
|
2894 |
static object LI26(V403,V404,V405,V406) |
static object LI26(V406,V407,V408,V409) |
2895 |
|
|
2896 |
object V403;register object V404;object V405;object V406; |
object V406;register object V407;object V408;object V409; |
2897 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2898 |
|
goto TTL; |
2899 |
TTL:; |
TTL:; |
2900 |
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[167],(V403)))); |
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[172],(V406)))); |
2901 |
if(!(type_of((V404))==t_fixnum|| |
if(!(type_of((V407))==t_fixnum|| |
2902 |
type_of((V404))==t_bignum|| |
type_of((V407))==t_bignum|| |
2903 |
type_of((V404))==t_ratio|| |
type_of((V407))==t_ratio|| |
2904 |
type_of((V404))==t_shortfloat|| |
type_of((V407))==t_shortfloat|| |
2905 |
type_of((V404))==t_longfloat|| |
type_of((V407))==t_longfloat|| |
2906 |
type_of((V404))==t_complex)){ |
type_of((V407))==t_complex)){ |
2907 |
goto T1519;} |
goto T1586;} |
2908 |
princ_str("\nstatic L",VV[21]); |
princ_str("\nstatic void L",VV[21]); |
2909 |
(void)((*(LnkLI262))((V404))); |
(void)((*(LnkLI267))((V407))); |
2910 |
princ_str("()",VV[21]); |
princ_str("()",VV[21]); |
2911 |
goto T1517; |
goto T1584; |
2912 |
T1519:; |
goto T1586; |
2913 |
|
T1586:; |
2914 |
princ_char(10,VV[21]); |
princ_char(10,VV[21]); |
2915 |
(void)((*(LnkLI262))((V404))); |
(void)((*(LnkLI267))((V407))); |
2916 |
princ_str("()",VV[21]); |
princ_str("()",VV[21]); |
2917 |
T1517:; |
goto T1584; |
2918 |
|
T1584:; |
2919 |
princ_str("\n{",VV[21]); |
princ_str("\n{",VV[21]); |
2920 |
princ_str("register object *",VV[21]); |
princ_str("register object *",VV[21]); |
2921 |
(void)((*(LnkLI262))(symbol_value(VV[16]))); |
(void)((*(LnkLI267))(symbol_value(VV[16]))); |
2922 |
princ_str("base=vs_base;",VV[21]); |
princ_str("base=vs_base;",VV[21]); |
2923 |
V407= structure_ref(cadr((V405)),VV[58],1); |
V410= structure_ref(cadr((V408)),VV[62],1); |
2924 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V407,(V404),VV[144])); |
(void)((*(LnkLI306))(/* INLINE-ARGS */V410,(V407),VV[148])); |
2925 |
princ_str("\n register object *",VV[21]); |
princ_str("\n register object *",VV[21]); |
2926 |
(void)((*(LnkLI262))(symbol_value(VV[16]))); |
(void)((*(LnkLI267))(symbol_value(VV[16]))); |
2927 |
princ_str("sup=base+VM",VV[21]); |
princ_str("sup=base+VM",VV[21]); |
2928 |
(void)((*(LnkLI262))(symbol_value(VV[132]))); |
(void)((*(LnkLI267))(symbol_value(VV[136]))); |
2929 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
2930 |
princ_str(" VC",VV[21]); |
princ_str(" VC",VV[21]); |
2931 |
(void)((*(LnkLI262))(symbol_value(VV[132]))); |
(void)((*(LnkLI267))(symbol_value(VV[136]))); |
2932 |
if((symbol_value(VV[152]))==Cnil){ |
if((symbol_value(VV[157]))==Cnil){ |
2933 |
goto T1544;} |
goto T1611;} |
2934 |
princ_str("\n vs_reserve(VM",VV[21]); |
princ_str("\n vs_reserve(VM",VV[21]); |
2935 |
(void)((*(LnkLI262))(symbol_value(VV[132]))); |
(void)((*(LnkLI267))(symbol_value(VV[136]))); |
2936 |
princ_str(");",VV[21]); |
princ_str(");",VV[21]); |
2937 |
goto T1542; |
goto T1609; |
2938 |
T1544:; |
goto T1611; |
2939 |
|
T1611:; |
2940 |
princ_str("\n vs_check;",VV[21]); |
princ_str("\n vs_check;",VV[21]); |
2941 |
T1542:; |
goto T1609; |
2942 |
if(((V406))==Cnil){ |
T1609:; |
2943 |
goto T1550;} |
if(((V409))==Cnil){ |
2944 |
|
goto T1617;} |
2945 |
princ_str("\n bds_check;",VV[21]); |
princ_str("\n bds_check;",VV[21]); |
2946 |
T1550:; |
goto T1617; |
2947 |
if((symbol_value(VV[145]))==Cnil){ |
T1617:; |
2948 |
goto T1554;} |
if((symbol_value(VV[149]))==Cnil){ |
2949 |
|
goto T1621;} |
2950 |
princ_str("\n ihs_check;",VV[21]); |
princ_str("\n ihs_check;",VV[21]); |
2951 |
T1554:; |
goto T1621; |
2952 |
(void)((VFUN_NARGS=3,(*(LnkLI318))(caddr((V405)),caddr(cddr((V405))),(V403)))); |
T1621:; |
2953 |
|
(void)((VFUN_NARGS=3,(*(LnkLI323))(caddr((V408)),caddr(cddr((V408))),(V406)))); |
2954 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
2955 |
V408= make_cons(symbol_value(VV[132]),symbol_value(VV[126])); |
V411= make_cons(symbol_value(VV[136]),symbol_value(VV[130])); |
2956 |
setq(VV[29],make_cons(/* INLINE-ARGS */V408,symbol_value(VV[29]))); |
setq(VV[29],make_cons(/* INLINE-ARGS */V411,symbol_value(VV[29]))); |
2957 |
princ_str("\n#define VC",VV[27]); |
princ_str("\n#define VC",VV[27]); |
2958 |
(void)((*(LnkLI265))(symbol_value(VV[132]))); |
(void)((*(LnkLI270))(symbol_value(VV[136]))); |
2959 |
{object V409 = (*(LnkLI319))(); |
{object V412 = (*(LnkLI324))(); |
2960 |
VMR25(V409)} |
VMR25(V412)} |
2961 |
|
return Cnil; |
2962 |
} |
} |
2963 |
/* local entry for function WT-V*-MACROS */ |
/* local entry for function WT-V*-MACROS */ |
2964 |
|
|
2965 |
static object LI27(V412,V413) |
static object LI27(V415,V416) |
2966 |
|
|
2967 |
register object V412;object V413; |
register object V415;object V416; |
2968 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
2969 |
|
goto TTL; |
2970 |
TTL:; |
TTL:; |
2971 |
V414= make_cons((V412),symbol_value(VV[126])); |
V417= make_cons((V415),symbol_value(VV[130])); |
2972 |
setq(VV[29],make_cons(/* INLINE-ARGS */V414,symbol_value(VV[29]))); |
setq(VV[29],make_cons(/* INLINE-ARGS */V417,symbol_value(VV[29]))); |
2973 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
2974 |
goto T1570;} |
goto T1637;} |
2975 |
if((symbol_value(VV[134]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
2976 |
goto T1570;} |
goto T1637;} |
2977 |
if((symbol_value(VV[136]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
2978 |
goto T1570;} |
goto T1637;} |
2979 |
princ_str("\n#define VMB",VV[27]); |
princ_str("\n#define VMB",VV[27]); |
2980 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
2981 |
goto T1568; |
goto T1635; |
2982 |
T1570:; |
goto T1637; |
2983 |
|
T1637:; |
2984 |
princ_str("\n#define VMB",VV[27]); |
princ_str("\n#define VMB",VV[27]); |
2985 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
2986 |
princ_char(32,VV[27]); |
princ_char(32,VV[27]); |
2987 |
princ_str("register object *",VV[27]); |
princ_str("register object *",VV[27]); |
2988 |
(void)((*(LnkLI265))(symbol_value(VV[16]))); |
(void)((*(LnkLI270))(symbol_value(VV[16]))); |
2989 |
princ_str("base=vs_top;",VV[27]); |
princ_str("base=vs_top;",VV[27]); |
2990 |
T1568:; |
goto T1635; |
2991 |
(void)((*(LnkLI319))()); |
T1635:; |
2992 |
if((symbol_value(VV[134]))==Cnil){ |
(void)((*(LnkLI324))()); |
2993 |
goto T1587;} |
if((symbol_value(VV[138]))==Cnil){ |
2994 |
|
goto T1654;} |
2995 |
princ_str("\n#define VMS",VV[27]); |
princ_str("\n#define VMS",VV[27]); |
2996 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
2997 |
princ_char(32,VV[27]); |
princ_char(32,VV[27]); |
2998 |
princ_str(" register object *",VV[27]); |
princ_str(" register object *",VV[27]); |
2999 |
(void)((*(LnkLI265))(symbol_value(VV[16]))); |
(void)((*(LnkLI270))(symbol_value(VV[16]))); |
3000 |
princ_str("sup=vs_top+",VV[27]); |
princ_str("sup=vs_top+",VV[27]); |
3001 |
(void)((*(LnkLI265))(symbol_value(VV[126]))); |
(void)((*(LnkLI270))(symbol_value(VV[130]))); |
3002 |
princ_str(";vs_top=sup;",VV[27]); |
princ_str(";vs_top=sup;",VV[27]); |
3003 |
goto T1585; |
goto T1652; |
3004 |
T1587:; |
goto T1654; |
3005 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){ |
T1654:; |
3006 |
goto T1598;} |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3007 |
|
goto T1665;} |
3008 |
princ_str("\n#define VMS",VV[27]); |
princ_str("\n#define VMS",VV[27]); |
3009 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3010 |
goto T1585; |
goto T1652; |
3011 |
T1598:; |
goto T1665; |
3012 |
|
T1665:; |
3013 |
princ_str("\n#define VMS",VV[27]); |
princ_str("\n#define VMS",VV[27]); |
3014 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3015 |
princ_str(" vs_top += ",VV[27]); |
princ_str(" vs_top += ",VV[27]); |
3016 |
(void)((*(LnkLI265))(symbol_value(VV[126]))); |
(void)((*(LnkLI270))(symbol_value(VV[130]))); |
3017 |
princ_char(59,VV[27]); |
princ_char(59,VV[27]); |
3018 |
T1585:; |
goto T1652; |
3019 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){ |
T1652:; |
3020 |
goto T1609;} |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3021 |
|
goto T1676;} |
3022 |
princ_str("\n#define VMV",VV[27]); |
princ_str("\n#define VMV",VV[27]); |
3023 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3024 |
goto T1607; |
goto T1674; |
3025 |
T1609:; |
goto T1676; |
3026 |
if((symbol_value(VV[152]))==Cnil){ |
T1676:; |
3027 |
goto T1614;} |
if((symbol_value(VV[157]))==Cnil){ |
3028 |
|
goto T1681;} |
3029 |
princ_str("\n#define VMV",VV[27]); |
princ_str("\n#define VMV",VV[27]); |
3030 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3031 |
princ_str(" vs_reserve(",VV[27]); |
princ_str(" vs_reserve(",VV[27]); |
3032 |
(void)((*(LnkLI265))(symbol_value(VV[126]))); |
(void)((*(LnkLI270))(symbol_value(VV[130]))); |
3033 |
princ_str(");",VV[27]); |
princ_str(");",VV[27]); |
3034 |
goto T1607; |
goto T1674; |
3035 |
T1614:; |
goto T1681; |
3036 |
|
T1681:; |
3037 |
princ_str("\n#define VMV",VV[27]); |
princ_str("\n#define VMV",VV[27]); |
3038 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3039 |
princ_str(" vs_check;",VV[27]); |
princ_str(" vs_check;",VV[27]); |
3040 |
T1607:; |
goto T1674; |
3041 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){ |
T1674:; |
3042 |
goto T1625;} |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3043 |
|
goto T1692;} |
3044 |
princ_str("\n#define VMR",VV[27]); |
princ_str("\n#define VMR",VV[27]); |
3045 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3046 |
princ_str("(VMT",VV[27]); |
princ_str("(VMT",VV[27]); |
3047 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3048 |
princ_str(") return(VMT",VV[27]); |
princ_str(") return(VMT",VV[27]); |
3049 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3050 |
princ_str(");",VV[27]); |
princ_str(");",VV[27]); |
3051 |
{object V415 = Cnil; |
{object V418 = Cnil; |
3052 |
VMR26(V415)} |
VMR26(V418)} |
3053 |
T1625:; |
goto T1692; |
3054 |
|
T1692:; |
3055 |
princ_str("\n#define VMR",VV[27]); |
princ_str("\n#define VMR",VV[27]); |
3056 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3057 |
princ_str("(VMT",VV[27]); |
princ_str("(VMT",VV[27]); |
3058 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3059 |
princ_str(") vs_top=base ; return(VMT",VV[27]); |
princ_str(") vs_top=base ; return(VMT",VV[27]); |
3060 |
(void)((*(LnkLI265))((V412))); |
(void)((*(LnkLI270))((V415))); |
3061 |
princ_str(");",VV[27]); |
princ_str(");",VV[27]); |
3062 |
{object V416 = Cnil; |
{object V419 = Cnil; |
3063 |
VMR26(V416)} |
VMR26(V419)} |
3064 |
|
return Cnil; |
3065 |
} |
} |
3066 |
/* local entry for function WT-REQUIREDS */ |
/* local entry for function WT-REQUIREDS */ |
3067 |
|
|
3068 |
static object LI28(V419,V420) |
static object LI28(V422,V423) |
3069 |
|
|
3070 |
object V419;object V420; |
object V422;object V423; |
3071 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
3072 |
|
goto TTL; |
3073 |
TTL:; |
TTL:; |
3074 |
{register object V421; |
{register object V424; |
3075 |
V421= (V419); |
V424= (V422); |
3076 |
T1643:; |
goto T1710; |
3077 |
if(!(endp((V421)))){ |
T1710:; |
3078 |
goto T1644;} |
if(!(endp((V424)))){ |
3079 |
goto T1641; |
goto T1711;} |
3080 |
T1644:; |
goto T1708; |
3081 |
{register object V422; |
goto T1711; |
3082 |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
T1711:; |
3083 |
V422= symbol_value(VV[84]); |
{register object V425; |
3084 |
(void)(structure_set(car((V421)),VV[65],4,(V422))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
3085 |
|
V425= symbol_value(VV[88]); |
3086 |
|
(void)(structure_set(car((V424)),VV[69],4,(V425))); |
3087 |
princ_char(86,VV[21]); |
princ_char(86,VV[21]); |
3088 |
(void)((*(LnkLI262))((V422)));} |
(void)((*(LnkLI267))((V425)));} |
3089 |
if(endp(cdr((V421)))){ |
if(endp(cdr((V424)))){ |
3090 |
goto T1654;} |
goto T1721;} |
3091 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
3092 |
T1654:; |
goto T1721; |
3093 |
V421= cdr((V421)); |
T1721:; |
3094 |
goto T1643;} |
V424= cdr((V424)); |
3095 |
T1641:; |
goto T1710;} |
3096 |
|
goto T1708; |
3097 |
|
T1708:; |
3098 |
princ_str(")\n",VV[21]); |
princ_str(")\n",VV[21]); |
3099 |
if(((V419))==Cnil){ |
if(((V422))==Cnil){ |
3100 |
goto T1664;} |
goto T1731;} |
3101 |
princ_char(10,VV[21]); |
princ_char(10,VV[21]); |
3102 |
{register object V423; |
{register object V426; |
3103 |
register object V424; |
register object V427; |
3104 |
register object V425; |
register object V428; |
3105 |
V423= (V419); |
V426= (V422); |
3106 |
V424= (V420); |
V427= (V423); |
3107 |
V425= Cnil; |
V428= Cnil; |
3108 |
T1668:; |
goto T1735; |
3109 |
if(!(endp((V423)))){ |
T1735:; |
3110 |
goto T1669;} |
if(!(endp((V426)))){ |
3111 |
|
goto T1736;} |
3112 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
3113 |
{object V426 = Cnil; |
{object V429 = Cnil; |
3114 |
VMR27(V426)} |
VMR27(V429)} |
3115 |
T1669:; |
goto T1736; |
3116 |
if(((V425))==Cnil){ |
T1736:; |
3117 |
goto T1674;} |
if(((V428))==Cnil){ |
3118 |
|
goto T1741;} |
3119 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
3120 |
T1674:; |
goto T1741; |
3121 |
(void)((*(LnkLI262))(symbol_value(VV[16]))); |
T1741:; |
3122 |
V427= (*(LnkLI320))(car((V423))); |
(void)((*(LnkLI267))(symbol_value(VV[16]))); |
3123 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V427)); |
V430= (*(LnkLI325))(car((V426))); |
3124 |
V428= (*(LnkLI268))(car((V424))); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V430)); |
3125 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V428)); |
V431= (*(LnkLI273))(car((V427))); |
3126 |
V425= car((V424)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V431)); |
3127 |
|
V428= car((V427)); |
3128 |
princ_char(86,VV[21]); |
princ_char(86,VV[21]); |
3129 |
V429= structure_ref(car((V423)),VV[65],4); |
V432= structure_ref(car((V426)),VV[69],4); |
3130 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V429)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V432)); |
3131 |
V423= cdr((V423)); |
V426= cdr((V426)); |
3132 |
V424= cdr((V424)); |
V427= cdr((V427)); |
3133 |
goto T1668;} |
goto T1735;} |
3134 |
T1664:; |
goto T1731; |
3135 |
{object V430 = Cnil; |
T1731:; |
3136 |
VMR27(V430)} |
{object V433 = Cnil; |
3137 |
|
VMR27(V433)} |
3138 |
|
return Cnil; |
3139 |
} |
} |
3140 |
/* local entry for function ADD-DEBUG-INFO */ |
/* local entry for function ADD-DEBUG-INFO */ |
3141 |
|
|
3142 |
static object LI29(V433,V434) |
static object LI29(V436,V437) |
3143 |
|
|
3144 |
object V433;object V434; |
object V436;object V437; |
3145 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
3146 |
|
goto TTL; |
3147 |
TTL:; |
TTL:; |
3148 |
{object V435; |
{object V438; |
3149 |
V435= Cnil; |
V438= Cnil; |
3150 |
{object V436; |
{object V439; |
3151 |
V436= (number_compare(symbol_value(VV[110]),small_fixnum(2))>=0?Ct:Cnil); |
V439= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil); |
3152 |
if(((V436))==Cnil){ |
if(((V439))==Cnil){ |
3153 |
goto T1694;} |
goto T1761;} |
3154 |
{object V437 = (V436); |
{object V440 = (V439); |
3155 |
VMR28(V437)} |
VMR28(V440)} |
3156 |
T1694:; |
goto T1761; |
3157 |
if((get((V433),VV[111],Cnil))!=Cnil){ |
T1761:; |
3158 |
goto T1697;} |
if((get((V436),VV[115],Cnil))!=Cnil){ |
3159 |
{object V438 = (VFUN_NARGS=2,(*(LnkLI321))(VV[168],(V433))); |
goto T1764;} |
3160 |
VMR28(V438)} |
{object V441 = (VFUN_NARGS=2,(*(LnkLI326))(VV[173],(V436))); |
3161 |
T1697:; |
VMR28(V441)} |
3162 |
(void)(remprop((V433),VV[111])); |
goto T1764; |
3163 |
{register object V439; |
T1764:; |
3164 |
V439= small_fixnum(0); |
(void)(remprop((V436),VV[115])); |
3165 |
{register object V440; |
{register object V442; |
3166 |
register object V441; |
V442= small_fixnum(0); |
3167 |
V440= structure_ref(cadr((V434)),VV[58],1); |
{register object V443; |
3168 |
V441= car((V440)); |
register object V444; |
3169 |
T1704:; |
V443= structure_ref(cadr((V437)),VV[62],1); |
3170 |
if(!(endp((V440)))){ |
V444= car((V443)); |
3171 |
goto T1705;} |
goto T1771; |
3172 |
goto T1700; |
T1771:; |
3173 |
T1705:; |
if(!(endp((V443)))){ |
3174 |
V442= structure_ref((V441),VV[65],2); |
goto T1772;} |
3175 |
if(!(type_of(/* INLINE-ARGS */V442)==t_cons)){ |
goto T1767; |
3176 |
goto T1709;} |
goto T1772; |
3177 |
V443= structure_ref((V441),VV[65],2); |
T1772:; |
3178 |
if(!(type_of(cdr(/* INLINE-ARGS */V443))==t_fixnum)){ |
V445= structure_ref((V444),VV[69],2); |
3179 |
goto T1709;} |
if(!(type_of(/* INLINE-ARGS */V445)==t_cons)){ |
3180 |
V444= structure_ref((V441),VV[65],2); |
goto T1776;} |
3181 |
{object V445= cdr(/* INLINE-ARGS */V444); |
V446= structure_ref((V444),VV[69],2); |
3182 |
V439= (number_compare((V439),V445)>=0?((V439)):V445);} |
if(!(type_of(cdr(/* INLINE-ARGS */V446))==t_fixnum)){ |
3183 |
T1709:; |
goto T1776;} |
3184 |
V440= cdr((V440)); |
V447= structure_ref((V444),VV[69],2); |
3185 |
V441= car((V440)); |
{object V448= cdr(/* INLINE-ARGS */V447); |
3186 |
goto T1704;} |
V442= (number_compare((V442),V448)>=0?((V442)):V448);} |
3187 |
T1700:; |
goto T1776; |
3188 |
base[0]= one_plus((V439)); |
T1776:; |
3189 |
|
V443= cdr((V443)); |
3190 |
|
V444= car((V443)); |
3191 |
|
goto T1771;} |
3192 |
|
goto T1767; |
3193 |
|
T1767:; |
3194 |
|
base[0]= one_plus((V442)); |
3195 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3196 |
Lmake_list(); |
Lmake_list(); |
3197 |
vs_top=sup; |
vs_top=sup; |
3198 |
V435= vs_base[0]; |
V438= vs_base[0]; |
3199 |
{register object V446; |
{register object V449; |
3200 |
register object V447; |
register object V450; |
3201 |
V446= structure_ref(cadr((V434)),VV[58],1); |
V449= structure_ref(cadr((V437)),VV[62],1); |
3202 |
V447= car((V446)); |
V450= car((V449)); |
3203 |
T1727:; |
goto T1794; |
3204 |
if(!(endp((V446)))){ |
T1794:; |
3205 |
goto T1728;} |
if(!(endp((V449)))){ |
3206 |
goto T1723; |
goto T1795;} |
3207 |
T1728:; |
goto T1790; |
3208 |
V448= structure_ref((V447),VV[65],2); |
goto T1795; |
3209 |
if(!(type_of(/* INLINE-ARGS */V448)==t_cons)){ |
T1795:; |
3210 |
goto T1732;} |
V451= structure_ref((V450),VV[69],2); |
3211 |
V449= structure_ref((V447),VV[65],2); |
if(!(type_of(/* INLINE-ARGS */V451)==t_cons)){ |
3212 |
if(!(type_of(cdr(/* INLINE-ARGS */V449))==t_fixnum)){ |
goto T1799;} |
3213 |
goto T1732;} |
V452= structure_ref((V450),VV[69],2); |
3214 |
{object V450; |
if(!(type_of(cdr(/* INLINE-ARGS */V452))==t_fixnum)){ |
3215 |
register object V452; |
goto T1799;} |
3216 |
V453= structure_ref((V447),VV[65],2); |
{object V453; |
3217 |
V450= cdr(/* INLINE-ARGS */V453); |
register object V455; |
3218 |
V452= structure_ref((V447),VV[65],0); |
V456= structure_ref((V450),VV[69],2); |
3219 |
if(type_of(nthcdr(fixint((V450)),V435))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V450)),V435)); |
V453= cdr(/* INLINE-ARGS */V456); |
3220 |
(nthcdr(fixint((V450)),V435))->c.c_car = (V452); |
V455= structure_ref((V450),VV[69],0); |
3221 |
(void)(nthcdr(fixint((V450)),V435));} |
if(type_of(nthcdr(fixint((V453)),V438))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V453)),V438)); |
3222 |
T1732:; |
(nthcdr(fixint((V453)),V438))->c.c_car = (V455); |
3223 |
V446= cdr((V446)); |
(void)(nthcdr(fixint((V453)),V438));} |
3224 |
V447= car((V446)); |
goto T1799; |
3225 |
goto T1727;} |
T1799:; |
3226 |
T1723:; |
V449= cdr((V449)); |
3227 |
(void)(sputprop((V433),VV[112],(V435))); |
V450= car((V449)); |
3228 |
{object V454; |
goto T1794;} |
3229 |
V454= get((V433),VV[112],Cnil); |
goto T1790; |
3230 |
if(((V454))==Cnil){ |
T1790:; |
3231 |
goto T1748;} |
(void)(sputprop((V436),VV[116],(V438))); |
3232 |
if((cdr((V454)))!=Cnil){ |
{object V457; |
3233 |
goto T1747;} |
V457= get((V436),VV[116],Cnil); |
3234 |
if((car((V454)))==Cnil){ |
if(((V457))==Cnil){ |
3235 |
goto T1748;} |
goto T1815;} |
3236 |
T1747:; |
if((cdr((V457)))!=Cnil){ |
3237 |
V455= list(2,VV[87],(V433)); |
goto T1814;} |
3238 |
V456= list(3,VV[112],/* INLINE-ARGS */V455,list(2,VV[87],(V454))); |
if((car((V457)))==Cnil){ |
3239 |
{object V457 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V456)); |
goto T1815;} |
3240 |
VMR28(V457)} |
goto T1814; |
3241 |
T1748:; |
T1814:; |
3242 |
{object V458 = Cnil; |
V458= list(2,VV[91],(V436)); |
3243 |
VMR28(V458)}}}}} |
V459= list(3,VV[116],/* INLINE-ARGS */V458,list(2,VV[91],(V457))); |
3244 |
|
{object V460 = (VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V459)); |
3245 |
|
VMR28(V460)} |
3246 |
|
goto T1815; |
3247 |
|
T1815:; |
3248 |
|
{object V461 = Cnil; |
3249 |
|
VMR28(V461)}}}}} |
3250 |
|
base[0]=base[0]; |
3251 |
|
return Cnil; |
3252 |
} |
} |
3253 |
/* local entry for function ANALYZE-REGS */ |
/* local entry for function ANALYZE-REGS */ |
3254 |
|
|
3255 |
static long LI30(V461,V462) |
static long LI30(V464,V465) |
3256 |
|
|
3257 |
object V461;object V462; |
object V464;object V465; |
3258 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
3259 |
|
goto TTL; |
3260 |
TTL:; |
TTL:; |
3261 |
{object V463; |
{object V466; |
3262 |
V463= number_minus(symbol_value(VV[169]),(V462)); |
V466= number_minus(symbol_value(VV[174]),(V465)); |
3263 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[170]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[175]))==0)){ |
3264 |
goto T1756;} |
goto T1823;} |
3265 |
V464= (VFUN_NARGS=1,(*(LnkLI323))((V461))); |
V467= (VFUN_NARGS=1,(*(LnkLI328))((V464))); |
3266 |
{long V465 = (*(LnkLI322))(/* INLINE-ARGS */V464,(V463)); |
{long V468 = (*(LnkLI327))(/* INLINE-ARGS */V467,(V466)); |
3267 |
VMR29(V465)} |
VMR29(V468)} |
3268 |
T1756:; |
goto T1823; |
3269 |
{register object V466; |
T1823:; |
3270 |
register object V467; |
{register object V469; |
3271 |
V466= Cnil; |
register object V470; |
3272 |
V467= Cnil; |
V469= Cnil; |
3273 |
{register object V468; |
V470= Cnil; |
3274 |
register object V469; |
{register object V471; |
3275 |
V468= (V461); |
register object V472; |
3276 |
V469= car((V468)); |
V471= (V464); |
3277 |
T1762:; |
V472= car((V471)); |
3278 |
if(!(endp((V468)))){ |
goto T1829; |
3279 |
goto T1763;} |
T1829:; |
3280 |
goto T1758; |
if(!(endp((V471)))){ |
3281 |
T1763:; |
goto T1830;} |
3282 |
V471= structure_ref((V469),VV[65],5); |
goto T1825; |
3283 |
{register object x= /* INLINE-ARGS */V471,V470= VV[171]; |
goto T1830; |
3284 |
while(!endp(V470)) |
T1830:; |
3285 |
if(x==(V470->c.c_car)){ |
V474= structure_ref((V472),VV[69],5); |
3286 |
goto T1770; |
{register object x= /* INLINE-ARGS */V474,V473= VV[176]; |
|
}else V470=V470->c.c_cdr; |
|
|
goto T1769;} |
|
|
T1770:;{object V472; |
|
|
{register object x= (V469),V473= (V467); |
|
3287 |
while(!endp(V473)) |
while(!endp(V473)) |
3288 |
if(eql(x,V473->c.c_car)){ |
if(x==(V473->c.c_car)){ |
3289 |
V472= V473; |
goto T1837; |
|
goto T1772; |
|
3290 |
}else V473=V473->c.c_cdr; |
}else V473=V473->c.c_cdr; |
3291 |
V472= Cnil;} |
goto T1836;} |
3292 |
T1772:; |
goto T1837; |
3293 |
if(V472==Cnil)goto T1771; |
T1837:;{object V475; |
3294 |
goto T1767; |
{register object x= (V472),V476= (V470); |
3295 |
T1771:;} |
while(!endp(V476)) |
3296 |
V467= make_cons((V469),(V467)); |
if(eql(x,V476->c.c_car)){ |
3297 |
goto T1767; |
V475= V476; |
3298 |
T1769:;{object V474; |
goto T1839; |
3299 |
{register object x= (V469),V475= (V466); |
}else V476=V476->c.c_cdr; |
3300 |
while(!endp(V475)) |
V475= Cnil;} |
3301 |
if(x==(V475->c.c_car)){ |
goto T1839; |
3302 |
V474= V475; |
T1839:; |
3303 |
goto T1775; |
if(V475==Cnil)goto T1838; |
3304 |
}else V475=V475->c.c_cdr; |
goto T1834; |
3305 |
V474= Cnil;} |
goto T1838; |
3306 |
T1775:; |
T1838:;} |
3307 |
if(V474==Cnil)goto T1774; |
V470= make_cons((V472),(V470)); |
3308 |
goto T1767; |
goto T1834; |
3309 |
T1774:;} |
goto T1836; |
3310 |
V467= make_cons((V469),(V467)); |
T1836:;{object V477; |
3311 |
T1767:; |
{register object x= (V472),V478= (V469); |
3312 |
V468= cdr((V468)); |
while(!endp(V478)) |
3313 |
V469= car((V468)); |
if(x==(V478->c.c_car)){ |
3314 |
goto T1762;} |
V477= V478; |
3315 |
T1758:; |
goto T1842; |
3316 |
(void)((*(LnkLI322))((V466),(V463))); |
}else V478=V478->c.c_cdr; |
3317 |
{long V476 = (*(LnkLI322))((V467),symbol_value(VV[170])); |
V477= Cnil;} |
3318 |
VMR29(V476)}}} |
goto T1842; |
3319 |
|
T1842:; |
3320 |
|
if(V477==Cnil)goto T1841; |
3321 |
|
goto T1834; |
3322 |
|
goto T1841; |
3323 |
|
T1841:;} |
3324 |
|
V470= make_cons((V472),(V470)); |
3325 |
|
goto T1834; |
3326 |
|
T1834:; |
3327 |
|
V471= cdr((V471)); |
3328 |
|
V472= car((V471)); |
3329 |
|
goto T1829;} |
3330 |
|
goto T1825; |
3331 |
|
T1825:; |
3332 |
|
(void)((*(LnkLI327))((V469),(V466))); |
3333 |
|
{long V479 = (*(LnkLI327))((V470),symbol_value(VV[175])); |
3334 |
|
VMR29(V479)}}} |
3335 |
|
base[0]=base[0]; |
3336 |
} |
} |
3337 |
/* local entry for function ANALYZE-REGS1 */ |
/* local entry for function ANALYZE-REGS1 */ |
3338 |
|
|
3339 |
static long LI31(V479,V480) |
static long LI31(V482,V483) |
3340 |
|
|
3341 |
object V479;object V480; |
object V482;object V483; |
3342 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
3343 |
|
goto TTL; |
3344 |
TTL:; |
TTL:; |
3345 |
{register long V481; |
{register long V484; |
|
register long V482; |
|
|
long V483; |
|
|
long V484; |
|
3346 |
register long V485; |
register long V485; |
3347 |
V481= 0; |
long V486; |
3348 |
V482= 3; |
long V487; |
3349 |
V483= 100000; |
register long V488; |
3350 |
V484= fix((V480)); |
V484= 0; |
3351 |
V485= 0; |
V485= 3; |
3352 |
V479= (VFUN_NARGS=1,(*(LnkLI323))((V479))); |
V486= 100000; |
3353 |
T1791:; |
V487= fix((V483)); |
3354 |
{register object V486; |
V488= 0; |
3355 |
object V487; |
V482= (VFUN_NARGS=1,(*(LnkLI328))((V482))); |
3356 |
V486= (V479); |
goto T1858; |
3357 |
V487= car((V486)); |
T1858:; |
3358 |
T1797:; |
{register object V489; |
3359 |
if(!(endp((V486)))){ |
object V490; |
3360 |
goto T1798;} |
V489= (V482); |
3361 |
goto T1793; |
V490= car((V489)); |
3362 |
T1798:; |
goto T1864; |
3363 |
V481= fix(structure_ref((V487),VV[65],6)); |
T1864:; |
3364 |
if(!((V481)>=(V482))){ |
if(!(endp((V489)))){ |
3365 |
goto T1804;} |
goto T1865;} |
3366 |
V485= (V485)+(1); |
goto T1860; |
3367 |
if(!((V481)<(V483))){ |
goto T1865; |
3368 |
goto T1809;} |
T1865:; |
3369 |
V483= V481; |
V484= fix(structure_ref((V490),VV[69],6)); |
3370 |
T1809:; |
if(!((V484)>=(V485))){ |
3371 |
if(!((V485)>(V484))){ |
goto T1871;} |
3372 |
goto T1804;} |
V488= (V488)+(1); |
3373 |
goto T1792; |
if(!((V484)<(V486))){ |
3374 |
T1804:; |
goto T1876;} |
3375 |
V486= cdr((V486)); |
V486= V484; |
3376 |
V487= car((V486)); |
goto T1876; |
3377 |
goto T1797;} |
T1876:; |
3378 |
T1793:; |
if(!((V488)>(V487))){ |
3379 |
if(!((V485)<(V484))){ |
goto T1871;} |
3380 |
goto T1820;} |
goto T1859; |
3381 |
V482= (V482)-(1); |
goto T1871; |
3382 |
T1820:; |
T1871:; |
3383 |
{register object V488; |
V489= cdr((V489)); |
3384 |
register object V489; |
V490= car((V489)); |
3385 |
V488= (V479); |
goto T1864;} |
3386 |
V489= car((V488)); |
goto T1860; |
3387 |
T1828:; |
T1860:; |
3388 |
if(!(endp((V488)))){ |
if(!((V488)<(V487))){ |
3389 |
goto T1829;} |
goto T1887;} |
3390 |
goto T1824; |
V485= (V485)-(1); |
3391 |
T1829:; |
goto T1887; |
3392 |
{long V490= fix(structure_ref((V489),VV[65],6)); |
T1887:; |
3393 |
if(!((/* INLINE-ARGS */V490)<(V482))){ |
{register object V491; |
3394 |
goto T1833;}} |
register object V492; |
3395 |
(void)(structure_set((V489),VV[65],6,small_fixnum(0))); |
V491= (V482); |
3396 |
T1833:; |
V492= car((V491)); |
3397 |
V488= cdr((V488)); |
goto T1895; |
3398 |
V489= car((V488)); |
T1895:; |
3399 |
goto T1828;} |
if(!(endp((V491)))){ |
3400 |
T1824:; |
goto T1896;} |
3401 |
{long V491 = V482; |
goto T1891; |
3402 |
VMR30(V491)} |
goto T1896; |
3403 |
T1792:; |
T1896:; |
3404 |
V485= 0; |
{long V493= fix(structure_ref((V492),VV[69],6)); |
3405 |
V482= (V483)+(1); |
if(!((/* INLINE-ARGS */V493)<(V485))){ |
3406 |
V483= 1000000; |
goto T1900;}} |
3407 |
goto T1791;} |
(void)(structure_set((V492),VV[69],6,small_fixnum(0))); |
3408 |
|
goto T1900; |
3409 |
|
T1900:; |
3410 |
|
V491= cdr((V491)); |
3411 |
|
V492= car((V491)); |
3412 |
|
goto T1895;} |
3413 |
|
goto T1891; |
3414 |
|
T1891:; |
3415 |
|
{long V494 = V485; |
3416 |
|
VMR30(V494)} |
3417 |
|
goto T1859; |
3418 |
|
T1859:; |
3419 |
|
V488= 0; |
3420 |
|
V485= (V486)+(1); |
3421 |
|
V486= 1000000; |
3422 |
|
goto T1858;} |
3423 |
|
base[0]=base[0]; |
3424 |
} |
} |
3425 |
/* local entry for function WT-GLOBAL-ENTRY */ |
/* local entry for function WT-GLOBAL-ENTRY */ |
3426 |
|
|
3427 |
static object LI32(V496,V497,V498,V499) |
static object LI32(V499,V500,V501,V502) |
3428 |
|
|
3429 |
object V496;object V497;object V498;object V499; |
object V499;object V500;object V501;object V502; |
3430 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
3431 |
|
goto TTL; |
3432 |
TTL:; |
TTL:; |
3433 |
if((get((V496),VV[98],Cnil))==Cnil){ |
if((get((V499),VV[102],Cnil))==Cnil){ |
3434 |
goto T1848;} |
goto T1915;} |
3435 |
{object V500 = Cnil; |
{object V503 = Cnil; |
3436 |
VMR31(V500)} |
VMR31(V503)} |
3437 |
T1848:; |
goto T1915; |
3438 |
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[174],(V496)))); |
T1915:; |
3439 |
princ_str("\nstatic L",VV[21]); |
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[179],(V499)))); |
3440 |
(void)((*(LnkLI262))((V497))); |
princ_str("\nstatic void L",VV[21]); |
3441 |
|
(void)((*(LnkLI267))((V500))); |
3442 |
princ_str("()",VV[21]); |
princ_str("()",VV[21]); |
3443 |
princ_str("\n{ register object *base=vs_base;",VV[21]); |
princ_str("\n{ register object *base=vs_base;",VV[21]); |
3444 |
if((symbol_value(VV[152]))!=Cnil){ |
if((symbol_value(VV[157]))!=Cnil){ |
3445 |
goto T1859;} |
goto T1926;} |
3446 |
if((symbol_value(VV[153]))==Cnil){ |
if((symbol_value(VV[158]))==Cnil){ |
3447 |
goto T1858;} |
goto T1925;} |
3448 |
T1859:; |
goto T1926; |
3449 |
|
T1926:; |
3450 |
princ_str("\n check_arg(",VV[21]); |
princ_str("\n check_arg(",VV[21]); |
3451 |
V501 = make_fixnum(length((V498))); |
V504 = make_fixnum(length((V501))); |
3452 |
(void)((*(LnkLI262))(V501)); |
(void)((*(LnkLI267))(V504)); |
3453 |
princ_str(");",VV[21]); |
princ_str(");",VV[21]); |
3454 |
T1858:; |
goto T1925; |
3455 |
|
T1925:; |
3456 |
princ_str("\n base[0]=",VV[21]); |
princ_str("\n base[0]=",VV[21]); |
3457 |
{object V503= (V499); |
{object V506= (V502); |
3458 |
if((V503!= VV[85]))goto T1870; |
if((V506!= VV[89]))goto T1937; |
3459 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
3460 |
goto T1872;} |
goto T1939;} |
3461 |
V502= VV[175]; |
V505= VV[180]; |
3462 |
goto T1869; |
goto T1936; |
3463 |
T1872:; |
goto T1939; |
3464 |
V502= VV[176]; |
T1939:; |
3465 |
goto T1869; |
V505= VV[181]; |
3466 |
T1870:; |
goto T1936; |
3467 |
if((V503!= VV[138]))goto T1874; |
goto T1937; |
3468 |
V502= VV[177]; |
T1937:; |
3469 |
goto T1869; |
if((V506!= VV[142]))goto T1941; |
3470 |
T1874:; |
V505= VV[182]; |
3471 |
if((V503!= VV[139]))goto T1875; |
goto T1936; |
3472 |
V502= VV[178]; |
goto T1941; |
3473 |
goto T1869; |
T1941:; |
3474 |
T1875:; |
if((V506!= VV[143]))goto T1942; |
3475 |
if((V503!= VV[140]))goto T1876; |
V505= VV[183]; |
3476 |
V502= VV[179]; |
goto T1936; |
3477 |
goto T1869; |
goto T1942; |
3478 |
T1876:; |
T1942:; |
3479 |
V502= VV[180];} |
if((V506!= VV[144]))goto T1943; |
3480 |
T1869:; |
V505= VV[184]; |
3481 |
(void)((*(LnkLI262))(V502)); |
goto T1936; |
3482 |
|
goto T1943; |
3483 |
|
T1943:; |
3484 |
|
V505= VV[185];} |
3485 |
|
goto T1936; |
3486 |
|
T1936:; |
3487 |
|
(void)((*(LnkLI267))(V505)); |
3488 |
princ_str("(LI",VV[21]); |
princ_str("(LI",VV[21]); |
3489 |
(void)((*(LnkLI262))((V497))); |
(void)((*(LnkLI267))((V500))); |
3490 |
princ_char(40,VV[21]); |
princ_char(40,VV[21]); |
3491 |
{register object V504; |
{register object V507; |
3492 |
register long V505; |
register long V508; |
3493 |
V505= 0; |
V508= 0; |
3494 |
V504= (V498); |
V507= (V501); |
3495 |
T1883:; |
goto T1950; |
3496 |
if(!(endp((V504)))){ |
T1950:; |
3497 |
goto T1884;} |
if(!(endp((V507)))){ |
3498 |
goto T1880; |
goto T1951;} |
3499 |
T1884:; |
goto T1947; |
3500 |
{object V507= car((V504)); |
goto T1951; |
3501 |
if((V507!= VV[85]))goto T1891; |
T1951:; |
3502 |
V506= VV[181]; |
{object V510= car((V507)); |
3503 |
goto T1890; |
if((V510!= VV[89]))goto T1958; |
3504 |
T1891:; |
V509= VV[186]; |
3505 |
if((V507!= VV[138]))goto T1892; |
goto T1957; |
3506 |
V506= VV[182]; |
goto T1958; |
3507 |
goto T1890; |
T1958:; |
3508 |
T1892:; |
if((V510!= VV[142]))goto T1959; |
3509 |
if((V507!= VV[139]))goto T1893; |
V509= VV[187]; |
3510 |
V506= VV[183]; |
goto T1957; |
3511 |
goto T1890; |
goto T1959; |
3512 |
T1893:; |
T1959:; |
3513 |
if((V507!= VV[140]))goto T1894; |
if((V510!= VV[143]))goto T1960; |
3514 |
V506= VV[184]; |
V509= VV[188]; |
3515 |
goto T1890; |
goto T1957; |
3516 |
T1894:; |
goto T1960; |
3517 |
V506= VV[185];} |
T1960:; |
3518 |
T1890:; |
if((V510!= VV[144]))goto T1961; |
3519 |
(void)((*(LnkLI262))(V506)); |
V509= VV[189]; |
3520 |
|
goto T1957; |
3521 |
|
goto T1961; |
3522 |
|
T1961:; |
3523 |
|
V509= VV[190];} |
3524 |
|
goto T1957; |
3525 |
|
T1957:; |
3526 |
|
(void)((*(LnkLI267))(V509)); |
3527 |
princ_str("(base[",VV[21]); |
princ_str("(base[",VV[21]); |
3528 |
V508 = make_fixnum(V505); |
V511 = make_fixnum(V508); |
3529 |
(void)((*(LnkLI262))(V508)); |
(void)((*(LnkLI267))(V511)); |
3530 |
princ_str("])",VV[21]); |
princ_str("])",VV[21]); |
3531 |
if(endp(cdr((V504)))){ |
if(endp(cdr((V507)))){ |
3532 |
goto T1898;} |
goto T1965;} |
3533 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
3534 |
T1898:; |
goto T1965; |
3535 |
V504= cdr((V504)); |
T1965:; |
3536 |
V505= (V505)+1; |
V507= cdr((V507)); |
3537 |
goto T1883;} |
V508= (V508)+1; |
3538 |
T1880:; |
goto T1950;} |
3539 |
|
goto T1947; |
3540 |
|
T1947:; |
3541 |
princ_str("));",VV[21]); |
princ_str("));",VV[21]); |
3542 |
princ_str("\n vs_top=(vs_base=base)+1;",VV[21]); |
princ_str("\n vs_top=(vs_base=base)+1;",VV[21]); |
3543 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
3544 |
{object V509 = Cnil; |
{object V512 = Cnil; |
3545 |
VMR31(V509)} |
VMR31(V512)} |
3546 |
|
return Cnil; |
3547 |
} |
} |
3548 |
/* local entry for function REP-TYPE */ |
/* local entry for function REP-TYPE */ |
3549 |
|
|
3550 |
static object LI33(V511) |
static object LI33(V514) |
3551 |
|
|
3552 |
object V511; |
object V514; |
3553 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
3554 |
|
goto TTL; |
3555 |
TTL:; |
TTL:; |
3556 |
{object V512= (V511); |
{object V515= (V514); |
3557 |
if((V512!= VV[85]))goto T1911; |
if((V515!= VV[89]))goto T1978; |
3558 |
{object V513 = VV[186]; |
{object V516 = VV[191]; |
|
VMR32(V513)} |
|
|
T1911:; |
|
|
if((V512!= VV[249]))goto T1912; |
|
|
{object V514 = VV[187]; |
|
|
VMR32(V514)} |
|
|
T1912:; |
|
|
if((V512!= VV[138]))goto T1913; |
|
|
{object V515 = VV[188]; |
|
|
VMR32(V515)} |
|
|
T1913:; |
|
|
if((V512!= VV[140]))goto T1914; |
|
|
{object V516 = VV[189]; |
|
3559 |
VMR32(V516)} |
VMR32(V516)} |
3560 |
T1914:; |
goto T1978; |
3561 |
if((V512!= VV[139]))goto T1915; |
T1978:; |
3562 |
{object V517 = VV[190]; |
if((V515!= VV[254]))goto T1979; |
3563 |
|
{object V517 = VV[192]; |
3564 |
VMR32(V517)} |
VMR32(V517)} |
3565 |
T1915:; |
goto T1979; |
3566 |
{object V518 = VV[191]; |
T1979:; |
3567 |
VMR32(V518)}} |
if((V515!= VV[142]))goto T1980; |
3568 |
|
{object V518 = VV[193]; |
3569 |
|
VMR32(V518)} |
3570 |
|
goto T1980; |
3571 |
|
T1980:; |
3572 |
|
if((V515!= VV[144]))goto T1981; |
3573 |
|
{object V519 = VV[194]; |
3574 |
|
VMR32(V519)} |
3575 |
|
goto T1981; |
3576 |
|
T1981:; |
3577 |
|
if((V515!= VV[143]))goto T1982; |
3578 |
|
{object V520 = VV[195]; |
3579 |
|
VMR32(V520)} |
3580 |
|
goto T1982; |
3581 |
|
T1982:; |
3582 |
|
{object V521 = VV[196]; |
3583 |
|
VMR32(V521)}} |
3584 |
|
return Cnil; |
3585 |
} |
} |
3586 |
/* local entry for function T1DEFMACRO */ |
/* local entry for function T1DEFMACRO */ |
3587 |
|
|
3588 |
static object LI34(V520) |
static object LI34(V523) |
3589 |
|
|
3590 |
register object V520; |
register object V523; |
3591 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
3592 |
bds_check; |
bds_check; |
3593 |
|
goto TTL; |
3594 |
TTL:; |
TTL:; |
3595 |
if(endp((V520))){ |
if(endp((V523))){ |
3596 |
goto T1917;} |
goto T1984;} |
3597 |
if(!(endp(cdr((V520))))){ |
if(!(endp(cdr((V523))))){ |
3598 |
goto T1916;} |
goto T1983;} |
3599 |
T1917:; |
goto T1984; |
3600 |
V521 = make_fixnum(length((V520))); |
T1984:; |
3601 |
(void)((*(LnkLI270))(VV[192],small_fixnum(2),V521)); |
V524 = make_fixnum(length((V523))); |
3602 |
T1916:; |
(void)((*(LnkLI275))(VV[197],small_fixnum(2),V524)); |
3603 |
if(type_of(car((V520)))==t_symbol){ |
goto T1983; |
3604 |
goto T1921;} |
T1983:; |
3605 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[193],car((V520))))); |
if(type_of(car((V523)))==t_symbol){ |
3606 |
T1921:; |
goto T1988;} |
3607 |
V522= make_cons(VV[192],(V520)); |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[198],car((V523))))); |
3608 |
(void)((*(LnkLI255))(Ct,/* INLINE-ARGS */V522)); |
goto T1988; |
3609 |
|
T1988:; |
3610 |
|
V525= make_cons(VV[197],(V523)); |
3611 |
|
(void)((*(LnkLI260))(Ct,/* INLINE-ARGS */V525)); |
3612 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
3613 |
{register object V523; |
{register object V526; |
3614 |
object V524; |
object V527; |
3615 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
3616 |
V524= symbol_value(VV[57]); |
V527= symbol_value(VV[61]); |
|
bds_bind(VV[51],Cnil); |
|
|
bds_bind(VV[52],Cnil); |
|
|
bds_bind(VV[53],Cnil); |
|
|
bds_bind(VV[54],Cnil); |
|
|
bds_bind(VV[48],Cnil); |
|
3617 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
3618 |
V523= Cnil; |
bds_bind(VV[56],Cnil); |
3619 |
V523= (*(LnkLI324))(car((V520)),cadr((V520)),cddr((V520))); |
bds_bind(VV[57],Cnil); |
3620 |
(void)((*(LnkLI280))()); |
bds_bind(VV[58],Cnil); |
3621 |
V525= list(7,VV[192],car((V520)),(V524),cddr((V523)),car((V523)),cadr((V523)),(VV[55]->s.s_dbind)); |
bds_bind(VV[52],Cnil); |
3622 |
setq(VV[20],make_cons(/* INLINE-ARGS */V525,symbol_value(VV[20]))); |
bds_bind(VV[59],Cnil); |
3623 |
{object V526 = symbol_value(VV[20]); |
V526= Cnil; |
3624 |
|
V526= (*(LnkLI329))(car((V523)),cadr((V523)),cddr((V523))); |
3625 |
|
(void)((*(LnkLI285))()); |
3626 |
|
V528= list(7,VV[197],car((V523)),(V527),cddr((V526)),car((V526)),cadr((V526)),(VV[59]->s.s_dbind)); |
3627 |
|
setq(VV[20],make_cons(/* INLINE-ARGS */V528,symbol_value(VV[20]))); |
3628 |
|
{object V529 = symbol_value(VV[20]); |
3629 |
bds_unwind1; |
bds_unwind1; |
3630 |
bds_unwind1; |
bds_unwind1; |
3631 |
bds_unwind1; |
bds_unwind1; |
3632 |
bds_unwind1; |
bds_unwind1; |
3633 |
bds_unwind1; |
bds_unwind1; |
3634 |
bds_unwind1; |
bds_unwind1; |
3635 |
VMR33(V526)}} |
VMR33(V529)}} |
3636 |
|
base[0]=base[0]; |
3637 |
|
return Cnil; |
3638 |
} |
} |
3639 |
/* local entry for function T2DEFMACRO */ |
/* local entry for function T2DEFMACRO */ |
3640 |
|
|
3641 |
static object LI35(V533,V534,V535,V536,V537,V538) |
static object LI35(V536,V537,V538,V539,V540,V541) |
3642 |
|
|
3643 |
object V533;object V534;object V535;object V536;object V537;object V538; |
object V536;object V537;object V538;object V539;object V540;object V541; |
3644 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
3645 |
|
goto TTL; |
3646 |
TTL:; |
TTL:; |
3647 |
if(((V536))==Cnil){ |
if(((V539))==Cnil){ |
3648 |
goto T1933;} |
goto T2000;} |
3649 |
V539= list(4,VV[99],list(2,VV[87],(V533)),(V536),VV[194]); |
V542= list(4,VV[103],list(2,VV[91],(V536)),(V539),VV[199]); |
3650 |
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V539))); |
(void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V542))); |
3651 |
T1933:; |
goto T2000; |
3652 |
if(((V537))==Cnil){ |
T2000:; |
3653 |
goto T1936;} |
if(((V540))==Cnil){ |
3654 |
V540= list(2,VV[87],(V533)); |
goto T2003;} |
3655 |
V541= list(4,VV[99],/* INLINE-ARGS */V540,list(2,VV[87],(V537)),VV[195]); |
V543= list(2,VV[91],(V536)); |
3656 |
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V541))); |
V544= list(4,VV[103],/* INLINE-ARGS */V543,list(2,VV[91],(V540)),VV[200]); |
3657 |
T1936:; |
(void)((VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V544))); |
3658 |
princ_str("\nstatic L",VV[27]); |
goto T2003; |
3659 |
(void)((*(LnkLI265))((V534))); |
T2003:; |
3660 |
|
princ_str("\nstatic void L",VV[27]); |
3661 |
|
(void)((*(LnkLI270))((V537))); |
3662 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
3663 |
V542= list(2,VV[87],(V533)); |
V545= list(2,VV[91],(V536)); |
3664 |
V543= list(3,VV[196],/* INLINE-ARGS */V542,(*(LnkLI288))(VV[197],(V534))); |
V546= list(3,VV[201],/* INLINE-ARGS */V545,(*(LnkLI293))(VV[202],(V537))); |
3665 |
{object V544 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V543)); |
{object V547 = (VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V546)); |
3666 |
VMR34(V544)} |
VMR34(V547)} |
3667 |
|
return Cnil; |
3668 |
} |
} |
3669 |
/* local entry for function T3DEFMACRO */ |
/* local entry for function T3DEFMACRO */ |
3670 |
|
|
3671 |
static object LI36(V551,V552,V553,V554,V555,V556) |
static object LI36(V554,V555,V556,V557,V558,V559) |
3672 |
|
|
3673 |
object V551;object V552;register object V553;object V554;object V555;object V556; |
object V554;object V555;register object V556;object V557;object V558;object V559; |
3674 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
3675 |
bds_check; |
bds_check; |
3676 |
|
goto TTL; |
3677 |
TTL:; |
TTL:; |
3678 |
if((get((V551),VV[198],Cnil))==Cnil){ |
if((get((V554),VV[203],Cnil))==Cnil){ |
3679 |
goto T1945;} |
goto T2012;} |
3680 |
bds_bind(VV[16],VV[199]); |
bds_bind(VV[16],VV[204]); |
3681 |
goto T1943; |
goto T2010; |
3682 |
T1945:; |
goto T2012; |
3683 |
bds_bind(VV[16],VV[200]); |
T2012:; |
3684 |
T1943:; |
bds_bind(VV[16],VV[205]); |
3685 |
bds_bind(VV[124],VV[123]); |
goto T2010; |
3686 |
|
T2010:; |
3687 |
|
bds_bind(VV[128],VV[127]); |
3688 |
bds_bind(VV[14],Cnil); |
bds_bind(VV[14],Cnil); |
3689 |
bds_bind(VV[125],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
3690 |
bds_bind(VV[126],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
3691 |
bds_bind(VV[127],small_fixnum(0)); |
bds_bind(VV[131],small_fixnum(0)); |
3692 |
bds_bind(VV[128],small_fixnum(0)); |
bds_bind(VV[132],small_fixnum(0)); |
3693 |
bds_bind(VV[129],Cnil); |
bds_bind(VV[133],Cnil); |
3694 |
bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil)); |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
3695 |
bds_bind(VV[131],(VV[124]->s.s_dbind)); |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
3696 |
setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1))); |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
3697 |
bds_bind(VV[132],symbol_value(VV[133])); |
bds_bind(VV[136],symbol_value(VV[137])); |
3698 |
bds_bind(VV[134],Cnil); |
bds_bind(VV[138],Cnil); |
3699 |
bds_bind(VV[135],Cnil); |
bds_bind(VV[139],Cnil); |
3700 |
bds_bind(VV[136],Cnil); |
bds_bind(VV[140],Cnil); |
3701 |
bds_bind(VV[137],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
3702 |
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[201],(V551)))); |
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[206],(V554)))); |
3703 |
princ_str("\nstatic L",VV[21]); |
princ_str("\nstatic void L",VV[21]); |
3704 |
(void)((*(LnkLI262))((V552))); |
(void)((*(LnkLI267))((V555))); |
3705 |
princ_str("()",VV[21]); |
princ_str("()",VV[21]); |
3706 |
princ_str("\n{register object *",VV[21]); |
princ_str("\n{register object *",VV[21]); |
3707 |
(void)((*(LnkLI262))((VV[16]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[16]->s.s_dbind))); |
3708 |
princ_str("base=vs_base;",VV[21]); |
princ_str("base=vs_base;",VV[21]); |
3709 |
V557= structure_ref(car(cddddr((V553))),VV[58],1); |
V560= structure_ref(car(cddddr((V556))),VV[62],1); |
3710 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V557,(V552),VV[144])); |
(void)((*(LnkLI306))(/* INLINE-ARGS */V560,(V555),VV[148])); |
3711 |
princ_str("\n register object *",VV[21]); |
princ_str("\n register object *",VV[21]); |
3712 |
(void)((*(LnkLI262))((VV[16]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[16]->s.s_dbind))); |
3713 |
princ_str("sup=base+VM",VV[21]); |
princ_str("sup=base+VM",VV[21]); |
3714 |
(void)((*(LnkLI262))((VV[132]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
3715 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
3716 |
princ_str(" VC",VV[21]); |
princ_str(" VC",VV[21]); |
3717 |
(void)((*(LnkLI262))((VV[132]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
3718 |
if((symbol_value(VV[152]))==Cnil){ |
if((symbol_value(VV[157]))==Cnil){ |
3719 |
goto T1971;} |
goto T2038;} |
3720 |
princ_str("\n vs_reserve(VM",VV[21]); |
princ_str("\n vs_reserve(VM",VV[21]); |
3721 |
(void)((*(LnkLI262))((VV[132]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
3722 |
princ_str(");",VV[21]); |
princ_str(");",VV[21]); |
3723 |
goto T1969; |
goto T2036; |
3724 |
T1971:; |
goto T2038; |
3725 |
|
T2038:; |
3726 |
princ_str("\n vs_check;",VV[21]); |
princ_str("\n vs_check;",VV[21]); |
3727 |
T1969:; |
goto T2036; |
3728 |
if(((V556))==Cnil){ |
T2036:; |
3729 |
goto T1977;} |
if(((V559))==Cnil){ |
3730 |
|
goto T2044;} |
3731 |
princ_str("\n bds_check;",VV[21]); |
princ_str("\n bds_check;",VV[21]); |
3732 |
T1977:; |
goto T2044; |
3733 |
if((symbol_value(VV[145]))==Cnil){ |
T2044:; |
3734 |
goto T1981;} |
if((symbol_value(VV[149]))==Cnil){ |
3735 |
|
goto T2048;} |
3736 |
princ_str("\n ihs_check;",VV[21]); |
princ_str("\n ihs_check;",VV[21]); |
3737 |
T1981:; |
goto T2048; |
3738 |
base[15]= car((V553)); |
T2048:; |
3739 |
base[16]= cadr((V553)); |
base[15]= car((V556)); |
3740 |
base[17]= caddr((V553)); |
base[16]= cadr((V556)); |
3741 |
base[18]= cadddr((V553)); |
base[17]= caddr((V556)); |
3742 |
|
base[18]= cadddr((V556)); |
3743 |
vs_top=(vs_base=base+15)+4; |
vs_top=(vs_base=base+15)+4; |
3744 |
(void) (*Lnk325)(); |
(void) (*Lnk330)(); |
3745 |
vs_top=sup; |
vs_top=sup; |
3746 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
3747 |
V558= make_cons((VV[132]->s.s_dbind),(VV[126]->s.s_dbind)); |
V561= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
3748 |
setq(VV[29],make_cons(/* INLINE-ARGS */V558,symbol_value(VV[29]))); |
setq(VV[29],make_cons(/* INLINE-ARGS */V561,symbol_value(VV[29]))); |
3749 |
princ_str("\n#define VC",VV[27]); |
princ_str("\n#define VC",VV[27]); |
3750 |
(void)((*(LnkLI265))((VV[132]->s.s_dbind))); |
(void)((*(LnkLI270))((VV[136]->s.s_dbind))); |
3751 |
{object V559 = (*(LnkLI319))(); |
{object V562 = (*(LnkLI324))(); |
3752 |
bds_unwind1; |
bds_unwind1; |
3753 |
bds_unwind1; |
bds_unwind1; |
3754 |
bds_unwind1; |
bds_unwind1; |
3764 |
bds_unwind1; |
bds_unwind1; |
3765 |
bds_unwind1; |
bds_unwind1; |
3766 |
bds_unwind1; |
bds_unwind1; |
3767 |
VMR35(V559)} |
VMR35(V562)} |
3768 |
|
base[0]=base[0]; |
3769 |
|
return Cnil; |
3770 |
} |
} |
3771 |
/* local entry for function T1ORDINARY */ |
/* local entry for function T1ORDINARY */ |
3772 |
|
|
3773 |
static object LI37(V561) |
static object LI37(V564) |
3774 |
|
|
3775 |
register object V561; |
register object V564; |
3776 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
3777 |
bds_check; |
bds_check; |
3778 |
|
goto TTL; |
3779 |
TTL:; |
TTL:; |
3780 |
{register object V562; |
{register object V565; |
3781 |
V562= Cnil; |
V565= Cnil; |
3782 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
3783 |
if((symbol_value(VV[44]))==Cnil){ |
if((symbol_value(VV[48]))==Cnil){ |
3784 |
goto T2001;} |
goto T2068;} |
3785 |
(void)((*(LnkLI255))(Cnil,(V561))); |
(void)((*(LnkLI260))(Cnil,(V564))); |
3786 |
{object V563; |
{object V566; |
3787 |
base[0]= VV[202]; |
base[0]= VV[207]; |
3788 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3789 |
Lgensym(); |
Lgensym(); |
3790 |
vs_top=sup; |
vs_top=sup; |
3791 |
V563= vs_base[0]; |
V566= vs_base[0]; |
3792 |
V564= listA(3,VV[60],(V563),VV[203]); |
V567= listA(3,VV[64],(V566),VV[208]); |
3793 |
(void)((*(LnkLI276))(/* INLINE-ARGS */V564)); |
(void)((*(LnkLI281))(/* INLINE-ARGS */V567)); |
3794 |
base[0]= list(5,VV[47],(V563),Cnil,(V561),Cnil); |
base[0]= list(5,VV[51],(V566),Cnil,(V564),Cnil); |
3795 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3796 |
(void) (*Lnk259)(); |
(void) (*Lnk264)(); |
3797 |
vs_top=sup; |
vs_top=sup; |
3798 |
V565= list(2,VV[204],make_cons((V563),Cnil)); |
V568= list(2,VV[209],make_cons((V566),Cnil)); |
3799 |
setq(VV[20],make_cons(/* INLINE-ARGS */V565,symbol_value(VV[20]))); |
setq(VV[20],make_cons(/* INLINE-ARGS */V568,symbol_value(VV[20]))); |
3800 |
{object V566 = symbol_value(VV[20]); |
{object V569 = symbol_value(VV[20]); |
3801 |
VMR36(V566)}} |
VMR36(V569)}} |
3802 |
T2001:; |
goto T2068; |
3803 |
{object V567; |
T2068:; |
3804 |
if(type_of((V561))==t_cons){ |
{object V570; |
3805 |
goto T2011;} |
if(type_of((V564))==t_cons){ |
3806 |
V567= Cnil; |
goto T2078;} |
3807 |
goto T2010; |
V570= Cnil; |
3808 |
T2011:; |
goto T2077; |
3809 |
if(type_of(car((V561)))==t_symbol){ |
goto T2078; |
3810 |
goto T2013;} |
T2078:; |
3811 |
V567= Cnil; |
if(type_of(car((V564)))==t_symbol){ |
3812 |
goto T2010; |
goto T2080;} |
3813 |
T2013:; |
V570= Cnil; |
3814 |
if(!((car((V561)))==(VV[205]))){ |
goto T2077; |
3815 |
goto T2017;} |
goto T2080; |
3816 |
goto T2015; |
T2080:; |
3817 |
T2017:; |
if(!((car((V564)))==(VV[210]))){ |
3818 |
base[0]= car((V561)); |
goto T2084;} |
3819 |
|
goto T2082; |
3820 |
|
goto T2084; |
3821 |
|
T2084:; |
3822 |
|
base[0]= car((V564)); |
3823 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3824 |
Lspecial_form_p(); |
Lspecial_form_p(); |
3825 |
vs_top=sup; |
vs_top=sup; |
3826 |
V568= vs_base[0]; |
V571= vs_base[0]; |
3827 |
if((V568)==Cnil){ |
if((V571)==Cnil){ |
3828 |
goto T2015;} |
goto T2082;} |
3829 |
V567= Cnil; |
V570= Cnil; |
3830 |
goto T2010; |
goto T2077; |
3831 |
T2015:; |
goto T2082; |
3832 |
{register object V569; |
T2082:; |
3833 |
register long V570; |
{register object V572; |
3834 |
V569= cdr((V561)); |
register long V573; |
3835 |
V570= 1; |
V572= cdr((V564)); |
3836 |
T2024:; |
V573= 1; |
3837 |
if((V570)>=(1000)){ |
goto T2091; |
3838 |
goto T2026;} |
T2091:; |
3839 |
if(type_of((V569))==t_cons){ |
if((V573)>=(1000)){ |
3840 |
goto T2025;} |
goto T2093;} |
3841 |
T2026:; |
if(type_of((V572))==t_cons){ |
3842 |
V567= Cnil; |
goto T2092;} |
3843 |
goto T2010; |
goto T2093; |
3844 |
T2025:; |
T2093:; |
3845 |
if(!(type_of(car((V569)))==t_cons)){ |
V570= Cnil; |
3846 |
goto T2031;} |
goto T2077; |
3847 |
if(!((caar((V569)))==(VV[60]))){ |
goto T2092; |
3848 |
goto T2031;} |
T2092:; |
3849 |
V562= cadr(car((V569))); |
if(!(type_of(car((V572)))==t_cons)){ |
3850 |
if(!(type_of((V562))==t_cons)){ |
goto T2098;} |
3851 |
goto T2031;} |
if(!((caar((V572)))==(VV[64]))){ |
3852 |
if(!((car((V562)))==(VV[206]))){ |
goto T2098;} |
3853 |
goto T2031;} |
V565= cadr(car((V572))); |
3854 |
{register object V571; |
if(!(type_of((V565))==t_cons)){ |
3855 |
|
goto T2098;} |
3856 |
|
if(!((car((V565)))==(VV[211]))){ |
3857 |
|
goto T2098;} |
3858 |
|
{register object V574; |
3859 |
vs_base=vs_top; |
vs_base=vs_top; |
3860 |
Lgensym(); |
Lgensym(); |
3861 |
vs_top=sup; |
vs_top=sup; |
3862 |
V571= vs_base[0]; |
V574= vs_base[0]; |
3863 |
base[0]= listA(3,VV[47],(V571),cdr((V562))); |
base[0]= listA(3,VV[51],(V574),cdr((V565))); |
3864 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3865 |
(void) (*Lnk259)(); |
(void) (*Lnk264)(); |
3866 |
vs_top=sup; |
vs_top=sup; |
3867 |
base[1]= (V561); |
base[1]= (V564); |
3868 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
3869 |
base[3]= make_fixnum(V570); |
base[3]= make_fixnum(V573); |
3870 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3871 |
Lsubseq(); |
Lsubseq(); |
3872 |
vs_top=sup; |
vs_top=sup; |
3873 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3874 |
V572= list(2,VV[207],list(2,VV[87],(V571))); |
V575= list(2,VV[212],list(2,VV[91],(V574))); |
3875 |
base[1]= make_cons(/* INLINE-ARGS */V572,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V575,Cnil); |
3876 |
V573 = make_fixnum(V570); |
V576 = make_fixnum(V573); |
3877 |
V574= number_plus(small_fixnum(1),V573); |
V577= number_plus(small_fixnum(1),V576); |
3878 |
base[2]= nthcdr(fixint(/* INLINE-ARGS */V574),(V561)); |
base[2]= nthcdr(fixint(/* INLINE-ARGS */V577),(V564)); |
3879 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3880 |
Lappend(); |
Lappend(); |
3881 |
vs_top=sup; |
vs_top=sup; |
3882 |
V561= vs_base[0]; |
V564= vs_base[0]; |
3883 |
goto TTL;} |
goto TTL;} |
3884 |
T2031:; |
goto T2098; |
3885 |
if(type_of((V569))==t_cons){ |
T2098:; |
3886 |
goto T2054;} |
if(type_of((V572))==t_cons){ |
3887 |
V569= Cnil; |
goto T2121;} |
3888 |
goto T2053; |
V572= Cnil; |
3889 |
T2054:; |
goto T2120; |
3890 |
V569= cdr((V569)); |
goto T2121; |
3891 |
T2053:; |
T2121:; |
3892 |
V570= (1)+(V570); |
V572= cdr((V572)); |
3893 |
goto T2024;} |
goto T2120; |
3894 |
T2010:; |
T2120:; |
3895 |
if(((V567))==Cnil){ |
V573= (1)+(V573); |
3896 |
goto T2059;} |
goto T2091;} |
3897 |
{object V575 = (V567); |
goto T2077; |
3898 |
VMR36(V575)} |
T2077:; |
3899 |
T2059:; |
if(((V570))==Cnil){ |
3900 |
(void)((*(LnkLI255))(Cnil,(V561))); |
goto T2126;} |
3901 |
bds_bind(VV[51],Cnil); |
{object V578 = (V570); |
3902 |
|
VMR36(V578)} |
3903 |
|
goto T2126; |
3904 |
|
T2126:; |
3905 |
|
(void)((*(LnkLI260))(Cnil,(V564))); |
3906 |
|
bds_bind(VV[55],Cnil); |
3907 |
|
bds_bind(VV[56],Cnil); |
3908 |
|
bds_bind(VV[57],Cnil); |
3909 |
|
bds_bind(VV[58],Cnil); |
3910 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
3911 |
bds_bind(VV[53],Cnil); |
V579= list(2,VV[209],(V564)); |
3912 |
bds_bind(VV[54],Cnil); |
setq(VV[20],make_cons(/* INLINE-ARGS */V579,symbol_value(VV[20]))); |
3913 |
bds_bind(VV[48],Cnil); |
{object V580 = Cnil; |
|
V576= list(2,VV[204],(V561)); |
|
|
setq(VV[20],make_cons(/* INLINE-ARGS */V576,symbol_value(VV[20]))); |
|
|
{object V577 = Cnil; |
|
3914 |
bds_unwind1; |
bds_unwind1; |
3915 |
bds_unwind1; |
bds_unwind1; |
3916 |
bds_unwind1; |
bds_unwind1; |
3917 |
bds_unwind1; |
bds_unwind1; |
3918 |
bds_unwind1; |
bds_unwind1; |
3919 |
VMR36(V577)}}} |
VMR36(V580)}}} |
3920 |
|
base[0]=base[0]; |
3921 |
|
return Cnil; |
3922 |
} |
} |
3923 |
/* local entry for function T2ORDINARY */ |
/* local entry for function T2ORDINARY */ |
3924 |
|
|
3925 |
static object LI38(V579) |
static object LI38(V582) |
3926 |
|
|
3927 |
object V579; |
object V582; |
3928 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
3929 |
|
goto TTL; |
3930 |
TTL:; |
TTL:; |
3931 |
{object V580; |
{object V583; |
3932 |
V580= (type_of((V579))!=t_cons?Ct:Cnil); |
V583= (type_of((V582))!=t_cons?Ct:Cnil); |
3933 |
if(((V580))==Cnil){ |
if(((V583))==Cnil){ |
3934 |
goto T2066;} |
goto T2133;} |
3935 |
{object V581 = (V580); |
{object V584 = (V583); |
3936 |
VMR37(V581)} |
VMR37(V584)} |
3937 |
T2066:; |
goto T2133; |
3938 |
{object V582; |
T2133:; |
3939 |
base[0]= (V579); |
{object V585; |
3940 |
|
base[0]= (V582); |
3941 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3942 |
Lconstantp(); |
Lconstantp(); |
3943 |
vs_top=sup; |
vs_top=sup; |
3944 |
V582= vs_base[0]; |
V585= vs_base[0]; |
3945 |
if(((V582))==Cnil){ |
if(((V585))==Cnil){ |
3946 |
goto T2071;} |
goto T2138;} |
3947 |
{object V583 = (V582); |
{object V586 = (V585); |
3948 |
VMR37(V583)} |
VMR37(V586)} |
3949 |
T2071:; |
goto T2138; |
3950 |
{object V584 = (VFUN_NARGS=1,(*(LnkLI287))((V579))); |
T2138:; |
3951 |
VMR37(V584)}}} |
{object V587 = (VFUN_NARGS=1,(*(LnkLI292))((V582))); |
3952 |
|
VMR37(V587)}}} |
3953 |
|
base[0]=base[0]; |
3954 |
|
return Cnil; |
3955 |
} |
} |
3956 |
/* local entry for function ADD-LOAD-TIME-SHARP-COMMA */ |
/* local entry for function ADD-LOAD-TIME-SHARP-COMMA */ |
3957 |
|
|
3958 |
static object LI39() |
static object LI39() |
3959 |
|
|
3960 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
3961 |
|
goto TTL; |
3962 |
TTL:; |
TTL:; |
3963 |
{register object V585; |
{register object V588; |
3964 |
register object V586; |
register object V589; |
3965 |
V585= reverse(symbol_value(VV[48])); |
V588= reverse(symbol_value(VV[52])); |
3966 |
V586= car((V585)); |
V589= car((V588)); |
3967 |
T2076:; |
goto T2143; |
3968 |
if(!(endp((V585)))){ |
T2143:; |
3969 |
goto T2077;} |
if(!(endp((V588)))){ |
3970 |
{object V587 = Cnil; |
goto T2144;} |
3971 |
VMR38(V587)} |
{object V590 = Cnil; |
3972 |
T2077:; |
VMR38(V590)} |
3973 |
if(!(type_of((V586))!=t_cons)){ |
goto T2144; |
3974 |
goto T2081;} |
T2144:; |
3975 |
(void)((*(LnkLI326))()); |
if(!(type_of((V589))!=t_cons)){ |
3976 |
T2081:; |
goto T2148;} |
3977 |
V588= make_cons(VV[208],(V586)); |
(void)((*(LnkLI331))()); |
3978 |
setq(VV[20],make_cons(/* INLINE-ARGS */V588,symbol_value(VV[20]))); |
goto T2148; |
3979 |
V585= cdr((V585)); |
T2148:; |
3980 |
V586= car((V585)); |
V591= make_cons(VV[213],(V589)); |
3981 |
goto T2076;} |
setq(VV[20],make_cons(/* INLINE-ARGS */V591,symbol_value(VV[20]))); |
3982 |
|
V588= cdr((V588)); |
3983 |
|
V589= car((V588)); |
3984 |
|
goto T2143;} |
3985 |
|
base[0]=base[0]; |
3986 |
|
return Cnil; |
3987 |
} |
} |
3988 |
/* local entry for function T2SHARP-COMMA */ |
/* local entry for function T2SHARP-COMMA */ |
3989 |
|
|
3990 |
static object LI40(V591,V592) |
static object LI40(V594,V595) |
3991 |
|
|
3992 |
object V591;object V592; |
object V594;object V595; |
3993 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
3994 |
|
goto TTL; |
3995 |
TTL:; |
TTL:; |
3996 |
V593= list(3,VV[209],(V591),(V592)); |
V596= list(3,VV[214],(V594),(V595)); |
3997 |
{object V594 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V593)); |
{object V597 = (VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V596)); |
3998 |
VMR39(V594)} |
VMR39(V597)} |
3999 |
|
return Cnil; |
4000 |
} |
} |
4001 |
/* local entry for function T2DECLARE */ |
/* local entry for function T2DECLARE */ |
4002 |
|
|
4003 |
static object LI41(V596) |
static object LI41(V599) |
4004 |
|
|
4005 |
object V596; |
object V599; |
4006 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
4007 |
|
goto TTL; |
4008 |
TTL:; |
TTL:; |
4009 |
{object V597 = (*(LnkLI326))(); |
{object V600 = (*(LnkLI331))(); |
4010 |
VMR40(V597)} |
VMR40(V600)} |
4011 |
|
return Cnil; |
4012 |
} |
} |
4013 |
/* local entry for function T1DEFINE-STRUCTURE */ |
/* local entry for function T1DEFINE-STRUCTURE */ |
4014 |
|
|
4015 |
static object LI42(V599) |
static object LI42(V602) |
4016 |
|
|
4017 |
object V599; |
object V602; |
4018 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
4019 |
|
goto TTL; |
4020 |
TTL:; |
TTL:; |
4021 |
V600= (*(LnkLI255))(Cnil,Cnil); |
V603= (*(LnkLI260))(Cnil,Cnil); |
4022 |
V601= make_cons(((/* INLINE-ARGS */V600)==Cnil?Ct:Cnil),Cnil); |
V604= make_cons(((/* INLINE-ARGS */V603)==Cnil?Ct:Cnil),Cnil); |
4023 |
V602= append((V599),/* INLINE-ARGS */V601); |
V605= append((V602),/* INLINE-ARGS */V604); |
4024 |
V603= make_cons(VV[210],/* INLINE-ARGS */V602); |
V606= make_cons(VV[215],/* INLINE-ARGS */V605); |
4025 |
(void)((*(LnkLI255))(Ct,/* INLINE-ARGS */V603)); |
(void)((*(LnkLI260))(Ct,/* INLINE-ARGS */V606)); |
4026 |
V604= make_cons(VV[210],(V599)); |
V607= make_cons(VV[215],(V602)); |
4027 |
{object V605 = (*(LnkLI260))(/* INLINE-ARGS */V604); |
{object V608 = (*(LnkLI265))(/* INLINE-ARGS */V607); |
4028 |
VMR41(V605)} |
VMR41(V608)} |
4029 |
|
return Cnil; |
4030 |
} |
} |
4031 |
/* local entry for function SET-DBIND */ |
/* local entry for function SET-DBIND */ |
4032 |
|
|
4033 |
static object LI43(V608,V609) |
static object LI43(V611,V612) |
4034 |
|
|
4035 |
object V608;object V609; |
object V611;object V612; |
4036 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
4037 |
|
goto TTL; |
4038 |
TTL:; |
TTL:; |
4039 |
princ_str("\n VV[",VV[21]); |
princ_str("\n VV[",VV[21]); |
4040 |
(void)((*(LnkLI262))((V609))); |
(void)((*(LnkLI267))((V612))); |
4041 |
princ_str("]->s.s_dbind = ",VV[21]); |
princ_str("]->s.s_dbind = ",VV[21]); |
4042 |
(void)((*(LnkLI262))((V608))); |
(void)((*(LnkLI267))((V611))); |
4043 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
4044 |
{object V610 = Cnil; |
{object V613 = Cnil; |
4045 |
VMR42(V610)} |
VMR42(V613)} |
4046 |
|
return Cnil; |
4047 |
} |
} |
4048 |
/* local entry for function T1CLINES */ |
/* local entry for function T1CLINES */ |
4049 |
|
|
4050 |
static object LI44(V612) |
static object LI44(V615) |
4051 |
|
|
4052 |
object V612; |
object V615; |
4053 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
4054 |
|
goto TTL; |
4055 |
TTL:; |
TTL:; |
4056 |
{register object V613; |
{register object V616; |
4057 |
register object V614; |
register object V617; |
4058 |
V613= (V612); |
V616= (V615); |
4059 |
V614= car((V613)); |
V617= car((V616)); |
4060 |
T2102:; |
goto T2169; |
4061 |
if(!(endp((V613)))){ |
T2169:; |
4062 |
goto T2103;} |
if(!(endp((V616)))){ |
4063 |
goto T2098; |
goto T2170;} |
4064 |
T2103:; |
goto T2165; |
4065 |
if(type_of((V614))==t_string){ |
goto T2170; |
4066 |
goto T2107;} |
T2170:; |
4067 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[211],(V614)))); |
if(type_of((V617))==t_string){ |
4068 |
T2107:; |
goto T2174;} |
4069 |
V613= cdr((V613)); |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[216],(V617)))); |
4070 |
V614= car((V613)); |
goto T2174; |
4071 |
goto T2102;} |
T2174:; |
4072 |
T2098:; |
V616= cdr((V616)); |
4073 |
V615= list(2,VV[212],(V612)); |
V617= car((V616)); |
4074 |
setq(VV[20],make_cons(/* INLINE-ARGS */V615,symbol_value(VV[20]))); |
goto T2169;} |
4075 |
{object V616 = symbol_value(VV[20]); |
goto T2165; |
4076 |
VMR43(V616)} |
T2165:; |
4077 |
|
V618= list(2,VV[217],(V615)); |
4078 |
|
setq(VV[20],make_cons(/* INLINE-ARGS */V618,symbol_value(VV[20]))); |
4079 |
|
{object V619 = symbol_value(VV[20]); |
4080 |
|
VMR43(V619)} |
4081 |
|
base[0]=base[0]; |
4082 |
|
return Cnil; |
4083 |
} |
} |
4084 |
/* local entry for function T3CLINES */ |
/* local entry for function T3CLINES */ |
4085 |
|
|
4086 |
static object LI45(V618) |
static object LI45(V621) |
4087 |
|
|
4088 |
object V618; |
object V621; |
4089 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
4090 |
|
goto TTL; |
4091 |
TTL:; |
TTL:; |
4092 |
{register object V619; |
{register object V622; |
4093 |
register object V620; |
register object V623; |
4094 |
V619= (V618); |
V622= (V621); |
4095 |
V620= car((V619)); |
V623= car((V622)); |
4096 |
T2119:; |
goto T2186; |
4097 |
if(!(endp((V619)))){ |
T2186:; |
4098 |
goto T2120;} |
if(!(endp((V622)))){ |
4099 |
{object V621 = Cnil; |
goto T2187;} |
4100 |
VMR44(V621)} |
{object V624 = Cnil; |
4101 |
T2120:; |
VMR44(V624)} |
4102 |
|
goto T2187; |
4103 |
|
T2187:; |
4104 |
princ_char(10,VV[21]); |
princ_char(10,VV[21]); |
4105 |
(void)((*(LnkLI262))((V620))); |
(void)((*(LnkLI267))((V623))); |
4106 |
V619= cdr((V619)); |
V622= cdr((V622)); |
4107 |
V620= car((V619)); |
V623= car((V622)); |
4108 |
goto T2119;} |
goto T2186;} |
4109 |
|
base[0]=base[0]; |
4110 |
|
return Cnil; |
4111 |
} |
} |
4112 |
/* local entry for function T1DEFCFUN */ |
/* local entry for function T1DEFCFUN */ |
4113 |
|
|
4114 |
static object LI46(V623) |
static object LI46(V626) |
4115 |
|
|
4116 |
register object V623; |
register object V626; |
4117 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
4118 |
|
goto TTL; |
4119 |
TTL:; |
TTL:; |
|
{register object V624; |
|
|
V624= Cnil; |
|
|
if(endp((V623))){ |
|
|
goto T2134;} |
|
|
if(!(endp(cdr((V623))))){ |
|
|
goto T2133;} |
|
|
T2134:; |
|
|
V625 = make_fixnum(length((V623))); |
|
|
(void)((*(LnkLI270))(VV[213],small_fixnum(2),V625)); |
|
|
T2133:; |
|
|
if(type_of(car((V623)))==t_string){ |
|
|
goto T2138;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[214],car((V623))))); |
|
|
T2138:; |
|
|
{object V626= cadr((V623)); |
|
|
if(type_of(V626)==t_fixnum|| |
|
|
type_of(V626)==t_bignum|| |
|
|
type_of(V626)==t_ratio|| |
|
|
type_of(V626)==t_shortfloat|| |
|
|
type_of(V626)==t_longfloat|| |
|
|
type_of(V626)==t_complex){ |
|
|
goto T2141;}} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[215],cadr((V623))))); |
|
|
T2141:; |
|
4120 |
{register object V627; |
{register object V627; |
4121 |
register object V628; |
V627= Cnil; |
4122 |
V627= cddr((V623)); |
if(endp((V626))){ |
4123 |
V628= car((V627)); |
goto T2201;} |
4124 |
T2148:; |
if(!(endp(cdr((V626))))){ |
4125 |
if(!(endp((V627)))){ |
goto T2200;} |
4126 |
goto T2149;} |
goto T2201; |
4127 |
goto T2144; |
T2201:; |
4128 |
T2149:; |
V628 = make_fixnum(length((V626))); |
4129 |
if(!(type_of((V628))==t_string)){ |
(void)((*(LnkLI275))(VV[218],small_fixnum(2),V628)); |
4130 |
goto T2155;} |
goto T2200; |
4131 |
V624= make_cons((V628),(V624)); |
T2200:; |
4132 |
goto T2153; |
if(type_of(car((V626)))==t_string){ |
4133 |
T2155:; |
goto T2205;} |
4134 |
if(!(type_of((V628))==t_cons)){ |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[219],car((V626))))); |
4135 |
goto T2159;} |
goto T2205; |
4136 |
if(!(type_of(car((V628)))==t_symbol)){ |
T2205:; |
4137 |
goto T2162;} |
{object V629= cadr((V626)); |
4138 |
base[2]= car((V628)); |
if(type_of(V629)==t_fixnum|| |
4139 |
|
type_of(V629)==t_bignum|| |
4140 |
|
type_of(V629)==t_ratio|| |
4141 |
|
type_of(V629)==t_shortfloat|| |
4142 |
|
type_of(V629)==t_longfloat|| |
4143 |
|
type_of(V629)==t_complex){ |
4144 |
|
goto T2208;}} |
4145 |
|
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[220],cadr((V626))))); |
4146 |
|
goto T2208; |
4147 |
|
T2208:; |
4148 |
|
{register object V630; |
4149 |
|
register object V631; |
4150 |
|
V630= cddr((V626)); |
4151 |
|
V631= car((V630)); |
4152 |
|
goto T2215; |
4153 |
|
T2215:; |
4154 |
|
if(!(endp((V630)))){ |
4155 |
|
goto T2216;} |
4156 |
|
goto T2211; |
4157 |
|
goto T2216; |
4158 |
|
T2216:; |
4159 |
|
if(!(type_of((V631))==t_string)){ |
4160 |
|
goto T2222;} |
4161 |
|
V627= make_cons((V631),(V627)); |
4162 |
|
goto T2220; |
4163 |
|
goto T2222; |
4164 |
|
T2222:; |
4165 |
|
if(!(type_of((V631))==t_cons)){ |
4166 |
|
goto T2226;} |
4167 |
|
if(!(type_of(car((V631)))==t_symbol)){ |
4168 |
|
goto T2229;} |
4169 |
|
base[2]= car((V631)); |
4170 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4171 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4172 |
vs_top=sup; |
vs_top=sup; |
4173 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4174 |
goto T2164;} |
goto T2231;} |
4175 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[216],car((V628))))); |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[221],car((V631))))); |
4176 |
T2164:; |
goto T2231; |
4177 |
V629= car((V628)); |
T2231:; |
4178 |
V630= (*(LnkLI327))(cdr((V628))); |
V632= car((V631)); |
4179 |
V631= make_cons(/* INLINE-ARGS */V629,/* INLINE-ARGS */V630); |
V633= (*(LnkLI332))(cdr((V631))); |
4180 |
V632= make_cons(/* INLINE-ARGS */V631,Cnil); |
V634= make_cons(/* INLINE-ARGS */V632,/* INLINE-ARGS */V633); |
4181 |
V624= make_cons(/* INLINE-ARGS */V632,(V624)); |
V635= make_cons(/* INLINE-ARGS */V634,Cnil); |
4182 |
goto T2153; |
V627= make_cons(/* INLINE-ARGS */V635,(V627)); |
4183 |
T2162:; |
goto T2220; |
4184 |
if(!(type_of(car((V628)))==t_cons)){ |
goto T2229; |
4185 |
goto T2170;} |
T2229:; |
4186 |
if(!(type_of(caar((V628)))==t_symbol)){ |
if(!(type_of(car((V631)))==t_cons)){ |
4187 |
goto T2170;} |
goto T2237;} |
4188 |
if(!((caar((V628)))==(VV[87]))){ |
if(!(type_of(caar((V631)))==t_symbol)){ |
4189 |
goto T2177;} |
goto T2237;} |
4190 |
if(!(endp(cdar((V628))))){ |
if(!((caar((V631)))==(VV[91]))){ |
4191 |
goto T2179;} |
goto T2244;} |
4192 |
goto T2170; |
if(!(endp(cdar((V631))))){ |
4193 |
T2179:; |
goto T2246;} |
4194 |
if(!(((endp(cddar((V628)))?Ct:Cnil))==Cnil)){ |
goto T2237; |
4195 |
goto T2181;} |
goto T2246; |
4196 |
goto T2170; |
T2246:; |
4197 |
T2181:; |
if(!(((endp(cddar((V631)))?Ct:Cnil))==Cnil)){ |
4198 |
if(!(endp(cdr((V628))))){ |
goto T2248;} |
4199 |
goto T2183;} |
goto T2237; |
4200 |
goto T2170; |
goto T2248; |
4201 |
T2183:; |
T2248:; |
4202 |
if(((endp(cddr((V628)))?Ct:Cnil))==Cnil){ |
if(!(endp(cdr((V631))))){ |
4203 |
goto T2170;} |
goto T2250;} |
4204 |
goto T2175; |
goto T2237; |
4205 |
T2177:; |
goto T2250; |
4206 |
base[2]= caar((V628)); |
T2250:; |
4207 |
|
if(((endp(cddr((V631)))?Ct:Cnil))==Cnil){ |
4208 |
|
goto T2237;} |
4209 |
|
goto T2242; |
4210 |
|
goto T2244; |
4211 |
|
T2244:; |
4212 |
|
base[2]= caar((V631)); |
4213 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4214 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4215 |
vs_top=sup; |
vs_top=sup; |
4216 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4217 |
goto T2170;} |
goto T2237;} |
4218 |
T2175:; |
goto T2242; |
4219 |
V633= caar((V628)); |
T2242:; |
4220 |
if(!((caar((V628)))==(VV[87]))){ |
V636= caar((V631)); |
4221 |
goto T2189;} |
if(!((caar((V631)))==(VV[91]))){ |
4222 |
V635= (*(LnkLI312))(cadar((V628))); |
goto T2256;} |
4223 |
V634= make_cons(/* INLINE-ARGS */V635,Cnil); |
V638= (*(LnkLI317))(cadar((V631))); |
4224 |
goto T2187; |
V637= make_cons(/* INLINE-ARGS */V638,Cnil); |
4225 |
T2189:; |
goto T2254; |
4226 |
V634= (*(LnkLI327))(cdar((V628))); |
goto T2256; |
4227 |
T2187:; |
T2256:; |
4228 |
V636= make_cons(/* INLINE-ARGS */V633,V634); |
V637= (*(LnkLI332))(cdar((V631))); |
4229 |
V637= (*(LnkLI327))(cdr((V628))); |
goto T2254; |
4230 |
V638= make_cons(/* INLINE-ARGS */V636,/* INLINE-ARGS */V637); |
T2254:; |
4231 |
V624= make_cons(/* INLINE-ARGS */V638,(V624)); |
V639= make_cons(/* INLINE-ARGS */V636,V637); |
4232 |
goto T2153; |
V640= (*(LnkLI332))(cdr((V631))); |
4233 |
T2170:; |
V641= make_cons(/* INLINE-ARGS */V639,/* INLINE-ARGS */V640); |
4234 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[217],(V628)))); |
V627= make_cons(/* INLINE-ARGS */V641,(V627)); |
4235 |
goto T2153; |
goto T2220; |
4236 |
T2159:; |
goto T2237; |
4237 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[218],(V628)))); |
T2237:; |
4238 |
T2153:; |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[222],(V631)))); |
4239 |
V627= cdr((V627)); |
goto T2220; |
4240 |
V628= car((V627)); |
goto T2226; |
4241 |
goto T2148;} |
T2226:; |
4242 |
T2144:; |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[223],(V631)))); |
4243 |
V639= car((V623)); |
goto T2220; |
4244 |
V640= cadr((V623)); |
T2220:; |
4245 |
V641= list(4,VV[213],/* INLINE-ARGS */V639,/* INLINE-ARGS */V640,reverse((V624))); |
V630= cdr((V630)); |
4246 |
setq(VV[20],make_cons(/* INLINE-ARGS */V641,symbol_value(VV[20]))); |
V631= car((V630)); |
4247 |
{object V642 = symbol_value(VV[20]); |
goto T2215;} |
4248 |
VMR45(V642)}} |
goto T2211; |
4249 |
|
T2211:; |
4250 |
|
V642= car((V626)); |
4251 |
|
V643= cadr((V626)); |
4252 |
|
V644= list(4,VV[218],/* INLINE-ARGS */V642,/* INLINE-ARGS */V643,reverse((V627))); |
4253 |
|
setq(VV[20],make_cons(/* INLINE-ARGS */V644,symbol_value(VV[20]))); |
4254 |
|
{object V645 = symbol_value(VV[20]); |
4255 |
|
VMR45(V645)}} |
4256 |
|
base[0]=base[0]; |
4257 |
|
return Cnil; |
4258 |
} |
} |
4259 |
/* local entry for function T3DEFCFUN */ |
/* local entry for function T3DEFCFUN */ |
4260 |
|
|
4261 |
static object LI47(V646,V647,V648) |
static object LI47(V649,V650,V651) |
4262 |
|
|
4263 |
object V646;object V647;object V648; |
object V649;object V650;object V651; |
4264 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
4265 |
|
goto TTL; |
4266 |
TTL:; |
TTL:; |
4267 |
{object V649; |
{object V652; |
4268 |
V649= Cnil; |
V652= Cnil; |
4269 |
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[219],VV[213]))); |
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[224],VV[218]))); |
4270 |
princ_char(10,VV[21]); |
princ_char(10,VV[21]); |
4271 |
(void)((*(LnkLI262))((V646))); |
(void)((*(LnkLI267))((V649))); |
4272 |
princ_str("\n{",VV[21]); |
princ_str("\n{",VV[21]); |
4273 |
princ_str("\nobject *vs=vs_top;",VV[21]); |
princ_str("\nobject *vs=vs_top;",VV[21]); |
4274 |
princ_str("\nobject *old_top=vs_top+",VV[21]); |
princ_str("\nobject *old_top=vs_top+",VV[21]); |
4275 |
(void)((*(LnkLI262))((V647))); |
(void)((*(LnkLI267))((V650))); |
4276 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
4277 |
if(!(number_compare((V647),small_fixnum(0))>0)){ |
if(!(number_compare((V650),small_fixnum(0))>0)){ |
4278 |
goto T2210;} |
goto T2277;} |
4279 |
princ_str("\n vs_top=old_top;",VV[21]); |
princ_str("\n vs_top=old_top;",VV[21]); |
4280 |
T2210:; |
goto T2277; |
4281 |
|
T2277:; |
4282 |
princ_str("\n{",VV[21]); |
princ_str("\n{",VV[21]); |
4283 |
{object V650; |
{object V653; |
4284 |
register object V651; |
register object V654; |
4285 |
V650= (V648); |
V653= (V651); |
4286 |
V651= car((V650)); |
V654= car((V653)); |
4287 |
T2220:; |
goto T2287; |
4288 |
if(!(endp((V650)))){ |
T2287:; |
4289 |
goto T2221;} |
if(!(endp((V653)))){ |
4290 |
goto T2216; |
goto T2288;} |
4291 |
T2221:; |
goto T2283; |
4292 |
if(!(type_of((V651))==t_string)){ |
goto T2288; |
4293 |
goto T2227;} |
T2288:; |
4294 |
|
if(!(type_of((V654))==t_string)){ |
4295 |
|
goto T2294;} |
4296 |
princ_char(10,VV[21]); |
princ_char(10,VV[21]); |
4297 |
(void)((*(LnkLI262))((V651))); |
(void)((*(LnkLI267))((V654))); |
4298 |
goto T2225; |
goto T2292; |
4299 |
T2227:; |
goto T2294; |
4300 |
if(!((caar((V651)))==(VV[87]))){ |
T2294:; |
4301 |
goto T2232;} |
if(!((caar((V654)))==(VV[91]))){ |
4302 |
|
goto T2299;} |
4303 |
princ_char(10,VV[21]); |
princ_char(10,VV[21]); |
4304 |
(void)((*(LnkLI262))(cadadr((V651)))); |
(void)((*(LnkLI267))(cadadr((V654)))); |
4305 |
{object V652= caadr((V651)); |
{object V655= caadr((V654)); |
4306 |
if((V652!= VV[70]))goto T2237; |
if((V655!= VV[74]))goto T2304; |
4307 |
princ_str("=VV[",VV[21]); |
princ_str("=VV[",VV[21]); |
4308 |
(void)((*(LnkLI262))(cadar((V651)))); |
(void)((*(LnkLI267))(cadar((V654)))); |
4309 |
princ_str("];",VV[21]); |
princ_str("];",VV[21]); |
4310 |
goto T2225; |
goto T2292; |
4311 |
T2237:; |
goto T2304; |
4312 |
|
T2304:; |
4313 |
princ_str("=object_to_",VV[21]); |
princ_str("=object_to_",VV[21]); |
4314 |
base[1]= symbol_name(caadr((V651))); |
base[1]= symbol_name(caadr((V654))); |
4315 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4316 |
Lstring_downcase(); |
Lstring_downcase(); |
4317 |
vs_top=sup; |
vs_top=sup; |
4318 |
V653= vs_base[0]; |
V656= vs_base[0]; |
4319 |
(void)((*(LnkLI262))(V653)); |
(void)((*(LnkLI267))(V656)); |
4320 |
princ_str("(VV[",VV[21]); |
princ_str("(VV[",VV[21]); |
4321 |
(void)((*(LnkLI262))(cadar((V651)))); |
(void)((*(LnkLI267))(cadar((V654)))); |
4322 |
princ_str("]);",VV[21]); |
princ_str("]);",VV[21]); |
4323 |
goto T2225;} |
goto T2292;} |
4324 |
T2232:; |
goto T2299; |
4325 |
|
T2299:; |
4326 |
princ_str("\n{vs_base=vs_top=old_top;",VV[21]); |
princ_str("\n{vs_base=vs_top=old_top;",VV[21]); |
4327 |
{register object V654; |
{register object V657; |
4328 |
register object V655; |
register object V658; |
4329 |
V654= cdar((V651)); |
V657= cdar((V654)); |
4330 |
V655= car((V654)); |
V658= car((V657)); |
4331 |
T2254:; |
goto T2321; |
4332 |
if(!(endp((V654)))){ |
T2321:; |
4333 |
goto T2255;} |
if(!(endp((V657)))){ |
4334 |
goto T2250; |
goto T2322;} |
4335 |
T2255:; |
goto T2317; |
4336 |
|
goto T2322; |
4337 |
|
T2322:; |
4338 |
princ_str("\nvs_push(",VV[21]); |
princ_str("\nvs_push(",VV[21]); |
4339 |
{object V656= car((V655)); |
{object V659= car((V658)); |
4340 |
if((V656!= VV[70]))goto T2262; |
if((V659!= VV[74]))goto T2329; |
4341 |
(void)((*(LnkLI262))(cadr((V655)))); |
(void)((*(LnkLI267))(cadr((V658)))); |
4342 |
goto T2261; |
goto T2328; |
4343 |
T2262:; |
goto T2329; |
4344 |
if((V656!= VV[328]))goto T2264; |
T2329:; |
4345 |
|
if((V659!= VV[333]))goto T2331; |
4346 |
princ_str("code_char((int)",VV[21]); |
princ_str("code_char((int)",VV[21]); |
4347 |
(void)((*(LnkLI262))(cadr((V655)))); |
(void)((*(LnkLI267))(cadr((V658)))); |
4348 |
princ_char(41,VV[21]); |
princ_char(41,VV[21]); |
4349 |
goto T2261; |
goto T2328; |
4350 |
T2264:; |
goto T2331; |
4351 |
if((V656!= VV[329]))goto T2268; |
T2331:; |
4352 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){ |
if((V659!= VV[334]))goto T2335; |
4353 |
goto T2269;} |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
4354 |
|
goto T2336;} |
4355 |
princ_str("CMP",VV[21]); |
princ_str("CMP",VV[21]); |
4356 |
T2269:; |
goto T2336; |
4357 |
|
T2336:; |
4358 |
princ_str("make_fixnum((int)",VV[21]); |
princ_str("make_fixnum((int)",VV[21]); |
4359 |
(void)((*(LnkLI262))(cadr((V655)))); |
(void)((*(LnkLI267))(cadr((V658)))); |
4360 |
princ_char(41,VV[21]); |
princ_char(41,VV[21]); |
4361 |
goto T2261; |
goto T2328; |
4362 |
T2268:; |
goto T2335; |
4363 |
if((V656!= VV[330]))goto T2276; |
T2335:; |
4364 |
|
if((V659!= VV[335]))goto T2343; |
4365 |
princ_str("make_shortfloat((double)",VV[21]); |
princ_str("make_shortfloat((double)",VV[21]); |
4366 |
(void)((*(LnkLI262))(cadr((V655)))); |
(void)((*(LnkLI267))(cadr((V658)))); |
4367 |
princ_char(41,VV[21]); |
princ_char(41,VV[21]); |
4368 |
goto T2261; |
goto T2328; |
4369 |
T2276:; |
goto T2343; |
4370 |
if((V656!= VV[331]))goto T2280; |
T2343:; |
4371 |
|
if((V659!= VV[336]))goto T2347; |
4372 |
princ_str("make_longfloat((double)",VV[21]); |
princ_str("make_longfloat((double)",VV[21]); |
4373 |
(void)((*(LnkLI262))(cadr((V655)))); |
(void)((*(LnkLI267))(cadr((V658)))); |
4374 |
princ_char(41,VV[21]); |
princ_char(41,VV[21]); |
4375 |
goto T2261; |
goto T2328; |
4376 |
T2280:;} |
goto T2347; |
4377 |
T2261:; |
T2347:;} |
4378 |
|
goto T2328; |
4379 |
|
T2328:; |
4380 |
princ_str(");",VV[21]); |
princ_str(");",VV[21]); |
4381 |
V654= cdr((V654)); |
V657= cdr((V657)); |
4382 |
V655= car((V654)); |
V658= car((V657)); |
4383 |
goto T2254;} |
goto T2321;} |
4384 |
T2250:; |
goto T2317; |
4385 |
{register object x= caar((V651)),V657= symbol_value(VV[75]); |
T2317:; |
4386 |
while(!endp(V657)) |
{register object x= caar((V654)),V660= symbol_value(VV[79]); |
4387 |
if(type_of(V657->c.c_car)==t_cons &&eql(x,V657->c.c_car->c.c_car)){ |
while(!endp(V660)) |
4388 |
V649= (V657->c.c_car); |
if(type_of(V660->c.c_car)==t_cons &&eql(x,V660->c.c_car->c.c_car)){ |
4389 |
goto T2295; |
V652= (V660->c.c_car); |
4390 |
}else V657=V657->c.c_cdr; |
goto T2362; |
4391 |
V649= Cnil;} |
}else V660=V660->c.c_cdr; |
4392 |
T2295:; |
V652= Cnil;} |
4393 |
if(((V649))==Cnil){ |
goto T2362; |
4394 |
goto T2293;} |
T2362:; |
4395 |
if((symbol_value(VV[145]))==Cnil){ |
if(((V652))==Cnil){ |
4396 |
goto T2297;} |
goto T2360;} |
4397 |
|
if((symbol_value(VV[149]))==Cnil){ |
4398 |
|
goto T2364;} |
4399 |
princ_str("\nihs_push(VV[",VV[21]); |
princ_str("\nihs_push(VV[",VV[21]); |
4400 |
V658= (*(LnkLI314))(caar((V651))); |
V661= (*(LnkLI319))(caar((V654))); |
4401 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V658)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V661)); |
4402 |
princ_str("]);",VV[21]); |
princ_str("]);",VV[21]); |
4403 |
princ_str("\nL",VV[21]); |
princ_str("\nL",VV[21]); |
4404 |
(void)((*(LnkLI262))(cdr((V649)))); |
(void)((*(LnkLI267))(cdr((V652)))); |
4405 |
princ_str("();",VV[21]); |
princ_str("();",VV[21]); |
4406 |
princ_str("\nihs_pop();",VV[21]); |
princ_str("\nihs_pop();",VV[21]); |
4407 |
goto T2291; |
goto T2358; |
4408 |
T2297:; |
goto T2364; |
4409 |
|
T2364:; |
4410 |
princ_str("\nL",VV[21]); |
princ_str("\nL",VV[21]); |
4411 |
(void)((*(LnkLI262))(cdr((V649)))); |
(void)((*(LnkLI267))(cdr((V652)))); |
4412 |
princ_str("();",VV[21]); |
princ_str("();",VV[21]); |
4413 |
goto T2291; |
goto T2358; |
4414 |
T2293:; |
goto T2360; |
4415 |
if((symbol_value(VV[145]))==Cnil){ |
T2360:; |
4416 |
goto T2312;} |
if((symbol_value(VV[149]))==Cnil){ |
4417 |
|
goto T2379;} |
4418 |
princ_str("\nsuper_funcall(VV[",VV[21]); |
princ_str("\nsuper_funcall(VV[",VV[21]); |
4419 |
V659= (*(LnkLI314))(caar((V651))); |
V662= (*(LnkLI319))(caar((V654))); |
4420 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V659)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V662)); |
4421 |
princ_str("]);",VV[21]); |
princ_str("]);",VV[21]); |
4422 |
goto T2291; |
goto T2358; |
4423 |
T2312:; |
goto T2379; |
4424 |
if((symbol_value(VV[152]))==Cnil){ |
T2379:; |
4425 |
goto T2318;} |
if((symbol_value(VV[157]))==Cnil){ |
4426 |
|
goto T2385;} |
4427 |
princ_str("\nsuper_funcall_no_event(VV[",VV[21]); |
princ_str("\nsuper_funcall_no_event(VV[",VV[21]); |
4428 |
V660= (*(LnkLI314))(caar((V651))); |
V663= (*(LnkLI319))(caar((V654))); |
4429 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V660)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V663)); |
4430 |
princ_str("]);",VV[21]); |
princ_str("]);",VV[21]); |
4431 |
goto T2291; |
goto T2358; |
4432 |
T2318:; |
goto T2385; |
4433 |
|
T2385:; |
4434 |
princ_str("\nCMPfuncall(VV[",VV[21]); |
princ_str("\nCMPfuncall(VV[",VV[21]); |
4435 |
V661= (*(LnkLI314))(caar((V651))); |
V664= (*(LnkLI319))(caar((V654))); |
4436 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V661)); |
(void)((*(LnkLI267))(/* INLINE-ARGS */V664)); |
4437 |
princ_str("]->s.s_gfdef);",VV[21]); |
princ_str("]->s.s_gfdef);",VV[21]); |
4438 |
T2291:; |
goto T2358; |
4439 |
if(endp(cdr((V651)))){ |
T2358:; |
4440 |
goto T2326;} |
if(endp(cdr((V654)))){ |
4441 |
|
goto T2393;} |
4442 |
princ_char(10,VV[21]); |
princ_char(10,VV[21]); |
4443 |
(void)((*(LnkLI262))(cadadr((V651)))); |
(void)((*(LnkLI267))(cadadr((V654)))); |
4444 |
{object V662= caadr((V651)); |
{object V665= caadr((V654)); |
4445 |
if((V662!= VV[70]))goto T2333; |
if((V665!= VV[74]))goto T2400; |
4446 |
princ_str("=vs_base[0];",VV[21]); |
princ_str("=vs_base[0];",VV[21]); |
4447 |
goto T2332; |
goto T2399; |
4448 |
T2333:; |
goto T2400; |
4449 |
|
T2400:; |
4450 |
princ_str("=object_to_",VV[21]); |
princ_str("=object_to_",VV[21]); |
4451 |
base[1]= symbol_name(caadr((V651))); |
base[1]= symbol_name(caadr((V654))); |
4452 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4453 |
Lstring_downcase(); |
Lstring_downcase(); |
4454 |
vs_top=sup; |
vs_top=sup; |
4455 |
V663= vs_base[0]; |
V666= vs_base[0]; |
4456 |
(void)((*(LnkLI262))(V663)); |
(void)((*(LnkLI267))(V666)); |
4457 |
princ_str("(vs_base[0]);",VV[21]);} |
princ_str("(vs_base[0]);",VV[21]);} |
4458 |
T2332:; |
goto T2399; |
4459 |
{register object V664; |
T2399:; |
4460 |
register object V665; |
{register object V667; |
4461 |
V664= cddr((V651)); |
register object V668; |
4462 |
V665= car((V664)); |
V667= cddr((V654)); |
4463 |
T2343:; |
V668= car((V667)); |
4464 |
if(!(endp((V664)))){ |
goto T2410; |
4465 |
goto T2344;} |
T2410:; |
4466 |
goto T2326; |
if(!(endp((V667)))){ |
4467 |
T2344:; |
goto T2411;} |
4468 |
|
goto T2393; |
4469 |
|
goto T2411; |
4470 |
|
T2411:; |
4471 |
princ_str("\nvs_base++;",VV[21]); |
princ_str("\nvs_base++;",VV[21]); |
4472 |
princ_char(10,VV[21]); |
princ_char(10,VV[21]); |
4473 |
(void)((*(LnkLI262))(cadr((V665)))); |
(void)((*(LnkLI267))(cadr((V668)))); |
4474 |
{object V666= car((V665)); |
{object V669= car((V668)); |
4475 |
if((V666!= VV[70]))goto T2354; |
if((V669!= VV[74]))goto T2421; |
4476 |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[21]); |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[21]); |
4477 |
goto T2353; |
goto T2420; |
4478 |
T2354:; |
goto T2421; |
4479 |
|
T2421:; |
4480 |
princ_str("=object_to_",VV[21]); |
princ_str("=object_to_",VV[21]); |
4481 |
base[3]= symbol_name(car((V665))); |
base[3]= symbol_name(car((V668))); |
4482 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4483 |
Lstring_downcase(); |
Lstring_downcase(); |
4484 |
vs_top=sup; |
vs_top=sup; |
4485 |
V667= vs_base[0]; |
V670= vs_base[0]; |
4486 |
(void)((*(LnkLI262))(V667)); |
(void)((*(LnkLI267))(V670)); |
4487 |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[21]);} |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[21]);} |
4488 |
T2353:; |
goto T2420; |
4489 |
V664= cdr((V664)); |
T2420:; |
4490 |
V665= car((V664)); |
V667= cdr((V667)); |
4491 |
goto T2343;} |
V668= car((V667)); |
4492 |
T2326:; |
goto T2410;} |
4493 |
|
goto T2393; |
4494 |
|
T2393:; |
4495 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
4496 |
T2225:; |
goto T2292; |
4497 |
V650= cdr((V650)); |
T2292:; |
4498 |
V651= car((V650)); |
V653= cdr((V653)); |
4499 |
goto T2220;} |
V654= car((V653)); |
4500 |
T2216:; |
goto T2287;} |
4501 |
|
goto T2283; |
4502 |
|
T2283:; |
4503 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
4504 |
princ_str("\nvs_top=vs;",VV[21]); |
princ_str("\nvs_top=vs;",VV[21]); |
4505 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
4506 |
{object V668 = Cnil; |
{object V671 = Cnil; |
4507 |
VMR46(V668)}} |
VMR46(V671)}} |
4508 |
|
base[0]=base[0]; |
4509 |
|
return Cnil; |
4510 |
} |
} |
4511 |
/* local entry for function T1DEFENTRY */ |
/* local entry for function T1DEFENTRY */ |
4512 |
|
|
4513 |
static object LI48(V670) |
static object LI48(V673) |
4514 |
|
|
4515 |
register object V670; |
register object V673; |
4516 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
4517 |
|
goto TTL; |
4518 |
TTL:; |
TTL:; |
4519 |
{register object V671; |
{register object V674; |
4520 |
register object V672; |
register object V675; |
4521 |
object V673; |
object V676; |
|
register object V674; |
|
|
V671= Cnil; |
|
|
V672= Cnil; |
|
|
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
|
|
V673= symbol_value(VV[57]); |
|
|
V674= Cnil; |
|
|
if(endp((V670))){ |
|
|
goto T2383;} |
|
|
if(endp(cdr((V670)))){ |
|
|
goto T2383;} |
|
|
if(!(endp(cddr((V670))))){ |
|
|
goto T2382;} |
|
|
T2383:; |
|
|
V675 = make_fixnum(length((V670))); |
|
|
(void)((*(LnkLI270))(VV[220],small_fixnum(3),V675)); |
|
|
T2382:; |
|
|
if(type_of(car((V670)))==t_symbol){ |
|
|
goto T2389;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[221],car((V670))))); |
|
|
T2389:; |
|
|
{register object V676; |
|
4522 |
register object V677; |
register object V677; |
4523 |
V676= cadr((V670)); |
V674= Cnil; |
4524 |
V677= car((V676)); |
V675= Cnil; |
4525 |
T2396:; |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
4526 |
if(!(endp((V676)))){ |
V676= symbol_value(VV[61]); |
4527 |
goto T2397;} |
V677= Cnil; |
4528 |
goto T2392; |
if(endp((V673))){ |
4529 |
T2397:; |
goto T2450;} |
4530 |
{register object x= (V677),V678= VV[222]; |
if(endp(cdr((V673)))){ |
4531 |
while(!endp(V678)) |
goto T2450;} |
4532 |
if(eql(x,V678->c.c_car)){ |
if(!(endp(cddr((V673))))){ |
4533 |
goto T2401; |
goto T2449;} |
4534 |
}else V678=V678->c.c_cdr;} |
goto T2450; |
4535 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[223],(V677)))); |
T2450:; |
4536 |
T2401:; |
V678 = make_fixnum(length((V673))); |
4537 |
V676= cdr((V676)); |
(void)((*(LnkLI275))(VV[225],small_fixnum(3),V678)); |
4538 |
V677= car((V676)); |
goto T2449; |
4539 |
goto T2396;} |
T2449:; |
4540 |
T2392:; |
if(type_of(car((V673)))==t_symbol){ |
4541 |
V674= caddr((V670)); |
goto T2456;} |
4542 |
if(!(type_of((V674))==t_symbol)){ |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[226],car((V673))))); |
4543 |
goto T2413;} |
goto T2456; |
4544 |
V671= VV[70]; |
T2456:; |
4545 |
base[1]= symbol_name((V674)); |
{register object V679; |
4546 |
|
register object V680; |
4547 |
|
V679= cadr((V673)); |
4548 |
|
V680= car((V679)); |
4549 |
|
goto T2463; |
4550 |
|
T2463:; |
4551 |
|
if(!(endp((V679)))){ |
4552 |
|
goto T2464;} |
4553 |
|
goto T2459; |
4554 |
|
goto T2464; |
4555 |
|
T2464:; |
4556 |
|
{register object x= (V680),V681= VV[227]; |
4557 |
|
while(!endp(V681)) |
4558 |
|
if(eql(x,V681->c.c_car)){ |
4559 |
|
goto T2468; |
4560 |
|
}else V681=V681->c.c_cdr;} |
4561 |
|
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[228],(V680)))); |
4562 |
|
goto T2468; |
4563 |
|
T2468:; |
4564 |
|
V679= cdr((V679)); |
4565 |
|
V680= car((V679)); |
4566 |
|
goto T2463;} |
4567 |
|
goto T2459; |
4568 |
|
T2459:; |
4569 |
|
V677= caddr((V673)); |
4570 |
|
if(!(type_of((V677))==t_symbol)){ |
4571 |
|
goto T2480;} |
4572 |
|
V674= VV[74]; |
4573 |
|
base[1]= symbol_name((V677)); |
4574 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4575 |
Lstring_downcase(); |
Lstring_downcase(); |
4576 |
vs_top=sup; |
vs_top=sup; |
4577 |
V672= vs_base[0]; |
V675= vs_base[0]; |
4578 |
goto T2411; |
goto T2478; |
4579 |
T2413:; |
goto T2480; |
4580 |
if(!(type_of((V674))==t_string)){ |
T2480:; |
4581 |
goto T2420;} |
if(!(type_of((V677))==t_string)){ |
4582 |
V671= VV[70]; |
goto T2487;} |
4583 |
V672= (V674); |
V674= VV[74]; |
4584 |
goto T2411; |
V675= (V677); |
4585 |
T2420:; |
goto T2478; |
4586 |
if(!(type_of((V674))==t_cons)){ |
goto T2487; |
4587 |
goto T2426;} |
T2487:; |
4588 |
{register object x= car((V674)),V679= VV[224]; |
if(!(type_of((V677))==t_cons)){ |
4589 |
while(!endp(V679)) |
goto T2493;} |
4590 |
if(eql(x,V679->c.c_car)){ |
{register object x= car((V677)),V682= VV[229]; |
4591 |
goto T2430; |
while(!endp(V682)) |
4592 |
}else V679=V679->c.c_cdr; |
if(eql(x,V682->c.c_car)){ |
4593 |
goto T2426;} |
goto T2497; |
4594 |
T2430:; |
}else V682=V682->c.c_cdr; |
4595 |
if(!(type_of(cdr((V674)))==t_cons)){ |
goto T2493;} |
4596 |
goto T2426;} |
goto T2497; |
4597 |
if(type_of(cadr((V674)))==t_symbol){ |
T2497:; |
4598 |
goto T2433;} |
if(!(type_of(cdr((V677)))==t_cons)){ |
4599 |
if(!(type_of(cadr((V674)))==t_string)){ |
goto T2493;} |
4600 |
goto T2426;} |
if(type_of(cadr((V677)))==t_symbol){ |
4601 |
T2433:; |
goto T2500;} |
4602 |
if(!(endp(cddr((V674))))){ |
if(!(type_of(cadr((V677)))==t_string)){ |
4603 |
goto T2426;} |
goto T2493;} |
4604 |
if(!(type_of(cadr((V674)))==t_symbol)){ |
goto T2500; |
4605 |
goto T2441;} |
T2500:; |
4606 |
base[1]= symbol_name(cadr((V674))); |
if(!(endp(cddr((V677))))){ |
4607 |
|
goto T2493;} |
4608 |
|
if(!(type_of(cadr((V677)))==t_symbol)){ |
4609 |
|
goto T2508;} |
4610 |
|
base[1]= symbol_name(cadr((V677))); |
4611 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4612 |
Lstring_downcase(); |
Lstring_downcase(); |
4613 |
vs_top=sup; |
vs_top=sup; |
4614 |
V672= vs_base[0]; |
V675= vs_base[0]; |
4615 |
goto T2439; |
goto T2506; |
4616 |
T2441:; |
goto T2508; |
4617 |
V672= cadr((V674)); |
T2508:; |
4618 |
T2439:; |
V675= cadr((V677)); |
4619 |
V671= car((V674)); |
goto T2506; |
4620 |
goto T2411; |
T2506:; |
4621 |
T2426:; |
V674= car((V677)); |
4622 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[225],(V674)))); |
goto T2478; |
4623 |
T2411:; |
goto T2493; |
4624 |
V680= list(6,VV[220],car((V670)),(V673),cadr((V670)),(V671),(V672)); |
T2493:; |
4625 |
setq(VV[20],make_cons(/* INLINE-ARGS */V680,symbol_value(VV[20]))); |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[230],(V677)))); |
4626 |
V681= make_cons(car((V670)),(V673)); |
goto T2478; |
4627 |
setq(VV[75],make_cons(/* INLINE-ARGS */V681,symbol_value(VV[75]))); |
T2478:; |
4628 |
{object V682 = symbol_value(VV[75]); |
V683= list(6,VV[225],car((V673)),(V676),cadr((V673)),(V674),(V675)); |
4629 |
VMR47(V682)}} |
setq(VV[20],make_cons(/* INLINE-ARGS */V683,symbol_value(VV[20]))); |
4630 |
|
V684= make_cons(car((V673)),(V676)); |
4631 |
|
setq(VV[79],make_cons(/* INLINE-ARGS */V684,symbol_value(VV[79]))); |
4632 |
|
{object V685 = symbol_value(VV[79]); |
4633 |
|
VMR47(V685)}} |
4634 |
|
base[0]=base[0]; |
4635 |
|
return Cnil; |
4636 |
} |
} |
4637 |
/* local entry for function T2DEFENTRY */ |
/* local entry for function T2DEFENTRY */ |
4638 |
|
|
4639 |
static object LI49(V688,V689,V690,V691,V692) |
static object LI49(V691,V692,V693,V694,V695) |
4640 |
|
|
4641 |
object V688;object V689;object V690;object V691;object V692; |
object V691;object V692;object V693;object V694;object V695; |
4642 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
4643 |
|
goto TTL; |
4644 |
TTL:; |
TTL:; |
4645 |
princ_str("\nstatic L",VV[27]); |
princ_str("\nstatic void L",VV[27]); |
4646 |
(void)((*(LnkLI265))((V689))); |
(void)((*(LnkLI270))((V692))); |
4647 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
4648 |
V693= list(2,VV[87],(V688)); |
V696= list(2,VV[91],(V691)); |
4649 |
V694= list(3,VV[107],/* INLINE-ARGS */V693,(*(LnkLI288))(VV[226],(V689))); |
V697= list(3,VV[111],/* INLINE-ARGS */V696,(*(LnkLI293))(VV[231],(V692))); |
4650 |
{object V695 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V694)); |
{object V698 = (VFUN_NARGS=1,(*(LnkLI292))(/* INLINE-ARGS */V697)); |
4651 |
VMR48(V695)} |
VMR48(V698)} |
4652 |
|
return Cnil; |
4653 |
} |
} |
4654 |
/* local entry for function T3DEFENTRY */ |
/* local entry for function T3DEFENTRY */ |
4655 |
|
|
4656 |
static object LI50(V701,V702,V703,V704,V705) |
static object LI50(V704,V705,V706,V707,V708) |
4657 |
|
|
4658 |
object V701;object V702;object V703;register object V704;object V705; |
object V704;object V705;object V706;register object V707;object V708; |
4659 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
4660 |
|
goto TTL; |
4661 |
TTL:; |
TTL:; |
4662 |
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[227],(V701)))); |
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[232],(V704)))); |
4663 |
princ_str("\nstatic L",VV[21]); |
princ_str("\nstatic void L",VV[21]); |
4664 |
(void)((*(LnkLI262))((V702))); |
(void)((*(LnkLI267))((V705))); |
4665 |
princ_str("()",VV[21]); |
princ_str("()",VV[21]); |
4666 |
princ_str("\n{ object *old_base=vs_base;",VV[21]); |
princ_str("\n{ object *old_base=vs_base;",VV[21]); |
4667 |
{object V706= (V704); |
{object V709= (V707); |
4668 |
if((V706!= VV[228]))goto T2460; |
if((V709!= VV[233]))goto T2527; |
4669 |
goto T2459; |
goto T2526; |
4670 |
T2460:; |
goto T2527; |
4671 |
if((V706!= VV[332]))goto T2461; |
T2527:; |
4672 |
|
if((V709!= VV[337]))goto T2528; |
4673 |
princ_str("\n char *x;",VV[21]); |
princ_str("\n char *x;",VV[21]); |
4674 |
goto T2459; |
goto T2526; |
4675 |
T2461:; |
goto T2528; |
4676 |
|
T2528:; |
4677 |
princ_str("\n ",VV[21]); |
princ_str("\n ",VV[21]); |
4678 |
base[0]= symbol_name((V704)); |
base[0]= symbol_name((V707)); |
4679 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4680 |
Lstring_downcase(); |
Lstring_downcase(); |
4681 |
vs_top=sup; |
vs_top=sup; |
4682 |
V707= vs_base[0]; |
V710= vs_base[0]; |
4683 |
(void)((*(LnkLI262))(V707)); |
(void)((*(LnkLI267))(V710)); |
4684 |
princ_str(" x;",VV[21]);} |
princ_str(" x;",VV[21]);} |
4685 |
T2459:; |
goto T2526; |
4686 |
if((symbol_value(VV[152]))==Cnil){ |
T2526:; |
4687 |
goto T2468;} |
if((symbol_value(VV[157]))==Cnil){ |
4688 |
|
goto T2535;} |
4689 |
princ_str("\n check_arg(",VV[21]); |
princ_str("\n check_arg(",VV[21]); |
4690 |
V708 = make_fixnum(length((V703))); |
V711 = make_fixnum(length((V706))); |
4691 |
(void)((*(LnkLI262))(V708)); |
(void)((*(LnkLI267))(V711)); |
4692 |
princ_str(");",VV[21]); |
princ_str(");",VV[21]); |
4693 |
T2468:; |
goto T2535; |
4694 |
if(((V704))==(VV[228])){ |
T2535:; |
4695 |
goto T2474;} |
if(((V707))==(VV[233])){ |
4696 |
|
goto T2541;} |
4697 |
princ_str("\n x=",VV[21]); |
princ_str("\n x=",VV[21]); |
4698 |
T2474:; |
goto T2541; |
4699 |
|
T2541:; |
4700 |
princ_str("\n ",VV[21]); |
princ_str("\n ",VV[21]); |
4701 |
(void)((*(LnkLI262))((V705))); |
(void)((*(LnkLI267))((V708))); |
4702 |
princ_char(40,VV[21]); |
princ_char(40,VV[21]); |
4703 |
if(endp((V703))){ |
if(endp((V706))){ |
4704 |
goto T2482;} |
goto T2549;} |
4705 |
{register object V709; |
{register object V712; |
4706 |
register long V710; |
register long V713; |
4707 |
V710= 0; |
V713= 0; |
4708 |
V709= (V703); |
V712= (V706); |
4709 |
T2487:; |
goto T2554; |
4710 |
{object V711= car((V709)); |
T2554:; |
4711 |
if((V711!= VV[70]))goto T2491; |
{object V714= car((V712)); |
4712 |
|
if((V714!= VV[74]))goto T2558; |
4713 |
princ_str("\n vs_base[",VV[21]); |
princ_str("\n vs_base[",VV[21]); |
4714 |
V712 = make_fixnum(V710); |
V715 = make_fixnum(V713); |
4715 |
(void)((*(LnkLI262))(V712)); |
(void)((*(LnkLI267))(V715)); |
4716 |
princ_char(93,VV[21]); |
princ_char(93,VV[21]); |
4717 |
goto T2490; |
goto T2557; |
4718 |
T2491:; |
goto T2558; |
4719 |
|
T2558:; |
4720 |
princ_str("\n object_to_",VV[21]); |
princ_str("\n object_to_",VV[21]); |
4721 |
base[0]= symbol_name(car((V709))); |
base[0]= symbol_name(car((V712))); |
4722 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4723 |
Lstring_downcase(); |
Lstring_downcase(); |
4724 |
vs_top=sup; |
vs_top=sup; |
4725 |
V713= vs_base[0]; |
V716= vs_base[0]; |
4726 |
(void)((*(LnkLI262))(V713)); |
(void)((*(LnkLI267))(V716)); |
4727 |
princ_str("(vs_base[",VV[21]); |
princ_str("(vs_base[",VV[21]); |
4728 |
V714 = make_fixnum(V710); |
V717 = make_fixnum(V713); |
4729 |
(void)((*(LnkLI262))(V714)); |
(void)((*(LnkLI267))(V717)); |
4730 |
princ_str("])",VV[21]);} |
princ_str("])",VV[21]);} |
4731 |
T2490:; |
goto T2557; |
4732 |
if(!(endp(cdr((V709))))){ |
T2557:; |
4733 |
goto T2502;} |
if(!(endp(cdr((V712))))){ |
4734 |
goto T2482; |
goto T2569;} |
4735 |
T2502:; |
goto T2549; |
4736 |
|
goto T2569; |
4737 |
|
T2569:; |
4738 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
4739 |
V709= cdr((V709)); |
V712= cdr((V712)); |
4740 |
V710= (V710)+1; |
V713= (V713)+1; |
4741 |
goto T2487;} |
goto T2554;} |
4742 |
T2482:; |
goto T2549; |
4743 |
|
T2549:; |
4744 |
princ_str(");",VV[21]); |
princ_str(");",VV[21]); |
4745 |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[21]); |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[21]); |
4746 |
princ_str("\n vs_base[0]=",VV[21]); |
princ_str("\n vs_base[0]=",VV[21]); |
4747 |
{object V715= (V704); |
{object V718= (V707); |
4748 |
if((V715!= VV[228]))goto T2518; |
if((V718!= VV[233]))goto T2585; |
4749 |
princ_str("Cnil",VV[21]); |
princ_str("Cnil",VV[21]); |
4750 |
goto T2517; |
goto T2584; |
4751 |
T2518:; |
goto T2585; |
4752 |
if((V715!= VV[70]))goto T2520; |
T2585:; |
4753 |
|
if((V718!= VV[74]))goto T2587; |
4754 |
princ_char(120,VV[21]); |
princ_char(120,VV[21]); |
4755 |
goto T2517; |
goto T2584; |
4756 |
T2520:; |
goto T2587; |
4757 |
if((V715!= VV[328]))goto T2522; |
T2587:; |
4758 |
|
if((V718!= VV[333]))goto T2589; |
4759 |
princ_str("code_char(x)",VV[21]); |
princ_str("code_char(x)",VV[21]); |
4760 |
goto T2517; |
goto T2584; |
4761 |
T2522:; |
goto T2589; |
4762 |
if((V715!= VV[329]))goto T2524; |
T2589:; |
4763 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){ |
if((V718!= VV[334]))goto T2591; |
4764 |
goto T2525;} |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
4765 |
|
goto T2592;} |
4766 |
princ_str("CMP",VV[21]); |
princ_str("CMP",VV[21]); |
4767 |
T2525:; |
goto T2592; |
4768 |
|
T2592:; |
4769 |
princ_str("make_fixnum(x)",VV[21]); |
princ_str("make_fixnum(x)",VV[21]); |
4770 |
goto T2517; |
goto T2584; |
4771 |
T2524:; |
goto T2591; |
4772 |
if((V715!= VV[332]))goto T2530; |
T2591:; |
4773 |
|
if((V718!= VV[337]))goto T2597; |
4774 |
princ_str("make_simple_string(x)",VV[21]); |
princ_str("make_simple_string(x)",VV[21]); |
4775 |
goto T2517; |
goto T2584; |
4776 |
T2530:; |
goto T2597; |
4777 |
if((V715!= VV[330]))goto T2532; |
T2597:; |
4778 |
|
if((V718!= VV[335]))goto T2599; |
4779 |
princ_str("make_shortfloat(x)",VV[21]); |
princ_str("make_shortfloat(x)",VV[21]); |
4780 |
goto T2517; |
goto T2584; |
4781 |
T2532:; |
goto T2599; |
4782 |
if((V715!= VV[331]))goto T2534; |
T2599:; |
4783 |
|
if((V718!= VV[336]))goto T2601; |
4784 |
princ_str("make_longfloat(x)",VV[21]); |
princ_str("make_longfloat(x)",VV[21]); |
4785 |
goto T2517; |
goto T2584; |
4786 |
T2534:;} |
goto T2601; |
4787 |
T2517:; |
T2601:;} |
4788 |
|
goto T2584; |
4789 |
|
T2584:; |
4790 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
4791 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
4792 |
{object V716 = Cnil; |
{object V719 = Cnil; |
4793 |
VMR49(V716)} |
VMR49(V719)} |
4794 |
|
base[0]=base[0]; |
4795 |
|
return Cnil; |
4796 |
} |
} |
4797 |
/* local entry for function T1DEFLA */ |
/* local entry for function T1DEFLA */ |
4798 |
|
|
4799 |
static object LI51(V718) |
static object LI51(V721) |
4800 |
|
|
4801 |
object V718; |
object V721; |
4802 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
4803 |
|
goto TTL; |
4804 |
TTL:; |
TTL:; |
4805 |
{object V719 = Cnil; |
{object V722 = Cnil; |
4806 |
VMR50(V719)} |
VMR50(V722)} |
4807 |
|
return Cnil; |
4808 |
} |
} |
4809 |
/* local entry for function PARSE-CVSPECS */ |
/* local entry for function PARSE-CVSPECS */ |
4810 |
|
|
4811 |
static object LI52(V721) |
static object LI52(V724) |
4812 |
|
|
4813 |
object V721; |
object V724; |
4814 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
4815 |
|
goto TTL; |
4816 |
TTL:; |
TTL:; |
4817 |
{register object V722; |
{register object V725; |
4818 |
V722= Cnil; |
V725= Cnil; |
4819 |
{register object V723; |
{register object V726; |
4820 |
register object V724; |
register object V727; |
4821 |
V723= (V721); |
V726= (V724); |
4822 |
V724= car((V723)); |
V727= car((V726)); |
4823 |
T2543:; |
goto T2610; |
4824 |
if(!(endp((V723)))){ |
T2610:; |
4825 |
goto T2544;} |
if(!(endp((V726)))){ |
4826 |
{object V725 = reverse((V722)); |
goto T2611;} |
4827 |
VMR51(V725)} |
{object V728 = reverse((V725)); |
4828 |
T2544:; |
VMR51(V728)} |
4829 |
if(!(type_of((V724))==t_symbol)){ |
goto T2611; |
4830 |
goto T2550;} |
T2611:; |
4831 |
base[1]= symbol_name((V724)); |
if(!(type_of((V727))==t_symbol)){ |
4832 |
|
goto T2617;} |
4833 |
|
base[1]= symbol_name((V727)); |
4834 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4835 |
Lstring_downcase(); |
Lstring_downcase(); |
4836 |
vs_top=sup; |
vs_top=sup; |
4837 |
V726= vs_base[0]; |
V729= vs_base[0]; |
4838 |
V727= list(2,VV[70],V726); |
V730= list(2,VV[74],V729); |
4839 |
V722= make_cons(/* INLINE-ARGS */V727,(V722)); |
V725= make_cons(/* INLINE-ARGS */V730,(V725)); |
4840 |
goto T2548; |
goto T2615; |
4841 |
T2550:; |
goto T2617; |
4842 |
if(!(type_of((V724))==t_string)){ |
T2617:; |
4843 |
goto T2556;} |
if(!(type_of((V727))==t_string)){ |
4844 |
V728= list(2,VV[70],(V724)); |
goto T2623;} |
4845 |
V722= make_cons(/* INLINE-ARGS */V728,(V722)); |
V731= list(2,VV[74],(V727)); |
4846 |
goto T2548; |
V725= make_cons(/* INLINE-ARGS */V731,(V725)); |
4847 |
T2556:; |
goto T2615; |
4848 |
if(!(type_of((V724))==t_cons)){ |
goto T2623; |
4849 |
goto T2560;} |
T2623:; |
4850 |
{register object x= car((V724)),V729= VV[229]; |
if(!(type_of((V727))==t_cons)){ |
4851 |
while(!endp(V729)) |
goto T2627;} |
4852 |
if(eql(x,V729->c.c_car)){ |
{register object x= car((V727)),V732= VV[234]; |
4853 |
goto T2563; |
while(!endp(V732)) |
4854 |
}else V729=V729->c.c_cdr; |
if(eql(x,V732->c.c_car)){ |
4855 |
goto T2560;} |
goto T2630; |
4856 |
T2563:; |
}else V732=V732->c.c_cdr; |
4857 |
{register object V730; |
goto T2627;} |
4858 |
register object V731; |
goto T2630; |
4859 |
V730= cdr((V724)); |
T2630:; |
4860 |
V731= car((V730)); |
{register object V733; |
4861 |
T2567:; |
register object V734; |
4862 |
if(!(endp((V730)))){ |
V733= cdr((V727)); |
4863 |
goto T2568;} |
V734= car((V733)); |
4864 |
goto T2548; |
goto T2634; |
4865 |
T2568:; |
T2634:; |
4866 |
V732= car((V724)); |
if(!(endp((V733)))){ |
4867 |
if(!(type_of((V731))==t_symbol)){ |
goto T2635;} |
4868 |
goto T2576;} |
goto T2615; |
4869 |
base[3]= symbol_name((V731)); |
goto T2635; |
4870 |
|
T2635:; |
4871 |
|
V735= car((V727)); |
4872 |
|
if(!(type_of((V734))==t_symbol)){ |
4873 |
|
goto T2643;} |
4874 |
|
base[3]= symbol_name((V734)); |
4875 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4876 |
Lstring_downcase(); |
Lstring_downcase(); |
4877 |
vs_top=sup; |
vs_top=sup; |
4878 |
V733= vs_base[0]; |
V736= vs_base[0]; |
4879 |
goto T2574; |
goto T2641; |
4880 |
T2576:; |
goto T2643; |
4881 |
if(!(type_of((V731))==t_string)){ |
T2643:; |
4882 |
goto T2580;} |
if(!(type_of((V734))==t_string)){ |
4883 |
V733= (V731); |
goto T2647;} |
4884 |
goto T2574; |
V736= (V734); |
4885 |
T2580:; |
goto T2641; |
4886 |
V733= (VFUN_NARGS=2,(*(LnkLI253))(VV[230],(V731))); |
goto T2647; |
4887 |
T2574:; |
T2647:; |
4888 |
V734= list(2,/* INLINE-ARGS */V732,V733); |
V736= (VFUN_NARGS=2,(*(LnkLI258))(VV[235],(V734))); |
4889 |
V722= make_cons(/* INLINE-ARGS */V734,(V722)); |
goto T2641; |
4890 |
V730= cdr((V730)); |
T2641:; |
4891 |
V731= car((V730)); |
V737= list(2,/* INLINE-ARGS */V735,V736); |
4892 |
goto T2567;} |
V725= make_cons(/* INLINE-ARGS */V737,(V725)); |
4893 |
T2560:; |
V733= cdr((V733)); |
4894 |
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[231],(V724)))); |
V734= car((V733)); |
4895 |
T2548:; |
goto T2634;} |
4896 |
V723= cdr((V723)); |
goto T2627; |
4897 |
V724= car((V723)); |
T2627:; |
4898 |
goto T2543;}} |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[236],(V727)))); |
4899 |
|
goto T2615; |
4900 |
|
T2615:; |
4901 |
|
V726= cdr((V726)); |
4902 |
|
V727= car((V726)); |
4903 |
|
goto T2610;}} |
4904 |
|
base[0]=base[0]; |
4905 |
|
return Cnil; |
4906 |
} |
} |
4907 |
/* local entry for function T3LOCAL-DCFUN */ |
/* local entry for function T3LOCAL-DCFUN */ |
4908 |
|
|
4909 |
static object LI53(V740,V741,V742,V743,V744) |
static object LI53(V743,V744,V745,V746,V747) |
4910 |
|
|
4911 |
object V740;object V741;object V742;register object V743;register object V744; |
object V743;object V744;object V745;register object V746;register object V747; |
4912 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
4913 |
bds_check; |
bds_check; |
4914 |
|
goto TTL; |
4915 |
TTL:; |
TTL:; |
4916 |
{object V745; |
{object V748; |
4917 |
register object V746; |
register object V749; |
4918 |
object V747; |
object V750; |
4919 |
if(((V740))==Cnil){ |
if(((V743))==Cnil){ |
4920 |
goto T2594;} |
goto T2661;} |
4921 |
V745= small_fixnum(0); |
V748= small_fixnum(0); |
4922 |
goto T2592; |
goto T2659; |
4923 |
T2594:; |
goto T2661; |
4924 |
V745= structure_ref((V743),VV[28],4); |
T2661:; |
4925 |
T2592:; |
V748= structure_ref((V746),VV[28],4); |
4926 |
V746= Cnil; |
goto T2659; |
4927 |
bds_bind(VV[16],(*(LnkLI293))(cadr((V744)))); |
T2659:; |
4928 |
bds_bind(VV[113],Cnil); |
V749= Cnil; |
4929 |
V747= caaddr((V744)); |
bds_bind(VV[16],(*(LnkLI298))(cadr((V747)))); |
4930 |
if((structure_ref((V743),VV[28],0))==Cnil){ |
bds_bind(VV[117],Cnil); |
4931 |
goto T2602;} |
V750= caaddr((V747)); |
4932 |
V748= structure_ref((V743),VV[28],0); |
if((structure_ref((V746),VV[28],0))==Cnil){ |
4933 |
goto T2600; |
goto T2669;} |
4934 |
T2602:; |
V751= structure_ref((V746),VV[28],0); |
4935 |
V748= Cnil; |
goto T2667; |
4936 |
T2600:; |
goto T2669; |
4937 |
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[232],V748))); |
T2669:; |
4938 |
princ_str("\nstatic ",VV[21]); |
V751= Cnil; |
4939 |
if(((V740))==Cnil){ |
goto T2667; |
4940 |
goto T2609;} |
T2667:; |
4941 |
V749= VV[233]; |
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[237],V751))); |
4942 |
goto T2607; |
princ_str("\nstatic void ",VV[21]); |
4943 |
T2609:; |
if(((V743))==Cnil){ |
4944 |
V749= VV[234]; |
goto T2676;} |
4945 |
T2607:; |
V752= VV[238]; |
4946 |
(void)((*(LnkLI262))(V749)); |
goto T2674; |
4947 |
V750= structure_ref((V743),VV[28],3); |
goto T2676; |
4948 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V750)); |
T2676:; |
4949 |
|
V752= VV[239]; |
4950 |
|
goto T2674; |
4951 |
|
T2674:; |
4952 |
|
(void)((*(LnkLI267))(V752)); |
4953 |
|
V753= structure_ref((V746),VV[28],3); |
4954 |
|
(void)((*(LnkLI267))(/* INLINE-ARGS */V753)); |
4955 |
princ_char(40,VV[21]); |
princ_char(40,VV[21]); |
4956 |
princ_str("base0",VV[21]); |
princ_str("base0",VV[21]); |
4957 |
if(((V747))==Cnil){ |
if(((V750))==Cnil){ |
4958 |
goto T2618;} |
goto T2685;} |
4959 |
V751= VV[235]; |
V754= VV[240]; |
4960 |
goto T2616; |
goto T2683; |
4961 |
T2618:; |
goto T2685; |
4962 |
V751= VV[236]; |
T2685:; |
4963 |
T2616:; |
V754= VV[241]; |
4964 |
(void)((*(LnkLI262))(V751)); |
goto T2683; |
4965 |
V752= structure_ref(cadr((V744)),VV[58],1); |
T2683:; |
4966 |
(void)((*(LnkLI295))(/* INLINE-ARGS */V752,small_fixnum(2))); |
(void)((*(LnkLI267))(V754)); |
4967 |
(void)((*(LnkLI300))(caaddr((V744)),Cnil)); |
V755= structure_ref(cadr((V747)),VV[62],1); |
4968 |
|
(void)((*(LnkLI300))(/* INLINE-ARGS */V755,small_fixnum(2))); |
4969 |
|
(void)((*(LnkLI305))(caaddr((V747)),Cnil)); |
4970 |
princ_str("register object *",VV[21]); |
princ_str("register object *",VV[21]); |
4971 |
(void)((*(LnkLI262))((VV[16]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[16]->s.s_dbind))); |
4972 |
princ_str("base0;",VV[21]); |
princ_str("base0;",VV[21]); |
4973 |
bds_bind(VV[237],(V742)); |
bds_bind(VV[242],(V745)); |
4974 |
bds_bind(VV[124],VV[120]); |
bds_bind(VV[128],VV[124]); |
4975 |
bds_bind(VV[14],Cnil); |
bds_bind(VV[14],Cnil); |
4976 |
bds_bind(VV[125],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
4977 |
bds_bind(VV[126],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
4978 |
bds_bind(VV[127],one_plus((V745))); |
bds_bind(VV[131],one_plus((V748))); |
4979 |
bds_bind(VV[128],(V742)); |
bds_bind(VV[132],(V745)); |
4980 |
bds_bind(VV[129],(V741)); |
bds_bind(VV[133],(V744)); |
4981 |
bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil)); |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
4982 |
bds_bind(VV[131],(VV[124]->s.s_dbind)); |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
4983 |
setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1))); |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
4984 |
bds_bind(VV[132],symbol_value(VV[133])); |
bds_bind(VV[136],symbol_value(VV[137])); |
4985 |
bds_bind(VV[134],Cnil); |
bds_bind(VV[138],Cnil); |
4986 |
bds_bind(VV[135],Cnil); |
bds_bind(VV[139],Cnil); |
4987 |
bds_bind(VV[136],Cnil); |
bds_bind(VV[140],Cnil); |
4988 |
bds_bind(VV[137],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
4989 |
V746= (VV[132]->s.s_dbind); |
V749= (VV[136]->s.s_dbind); |
4990 |
princ_str("\n{",VV[21]); |
princ_str("\n{",VV[21]); |
4991 |
V753= structure_ref(cadr((V744)),VV[58],1); |
V756= structure_ref(cadr((V747)),VV[62],1); |
4992 |
V754= structure_ref((V743),VV[28],3); |
V757= structure_ref((V746),VV[28],3); |
4993 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V753,/* INLINE-ARGS */V754,VV[238])); |
(void)((*(LnkLI306))(/* INLINE-ARGS */V756,/* INLINE-ARGS */V757,VV[243])); |
4994 |
princ_str("\n VMB",VV[21]); |
princ_str("\n VMB",VV[21]); |
4995 |
(void)((*(LnkLI262))((V746))); |
(void)((*(LnkLI267))((V749))); |
4996 |
princ_str(" VMS",VV[21]); |
princ_str(" VMS",VV[21]); |
4997 |
(void)((*(LnkLI262))((V746))); |
(void)((*(LnkLI267))((V749))); |
4998 |
princ_str(" VMV",VV[21]); |
princ_str(" VMV",VV[21]); |
4999 |
(void)((*(LnkLI262))((V746))); |
(void)((*(LnkLI267))((V749))); |
5000 |
if((symbol_value(VV[145]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
5001 |
goto T2642;} |
goto T2709;} |
5002 |
princ_str("\n ihs_check;",VV[21]); |
princ_str("\n ihs_check;",VV[21]); |
5003 |
T2642:; |
goto T2709; |
5004 |
base[19]= caddr(cddr((V744))); |
T2709:; |
5005 |
|
base[19]= caddr(cddr((V747))); |
5006 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
5007 |
(void) (*Lnk302)(); |
(void) (*Lnk307)(); |
5008 |
vs_top=sup; |
vs_top=sup; |
5009 |
|
if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){ |
5010 |
|
goto T2717;} |
5011 |
|
if(((VV[138]->s.s_dbind))!=Cnil){ |
5012 |
|
goto T2717;} |
5013 |
|
if(((VV[140]->s.s_dbind))!=Cnil){ |
5014 |
|
goto T2717;} |
5015 |
|
goto T2715; |
5016 |
|
goto T2717; |
5017 |
|
T2717:; |
5018 |
|
princ_str("\n base[0]=base[0];",VV[21]); |
5019 |
|
goto T2715; |
5020 |
|
T2715:; |
5021 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
5022 |
(void)((*(LnkLI303))((V746),Ct)); |
(void)((*(LnkLI308))((V749),Ct)); |
5023 |
V755= structure_ref((V743),VV[28],3); |
V758= structure_ref((V746),VV[28],3); |
5024 |
{object V756 = (*(LnkLI297))(/* INLINE-ARGS */V755); |
{object V759 = (*(LnkLI302))(/* INLINE-ARGS */V758); |
5025 |
bds_unwind1; |
bds_unwind1; |
5026 |
bds_unwind1; |
bds_unwind1; |
5027 |
bds_unwind1; |
bds_unwind1; |
5039 |
bds_unwind1; |
bds_unwind1; |
5040 |
bds_unwind1; |
bds_unwind1; |
5041 |
bds_unwind1; |
bds_unwind1; |
5042 |
VMR52(V756)}} |
VMR52(V759)}} |
5043 |
|
base[0]=base[0]; |
5044 |
|
return Cnil; |
5045 |
} |
} |
5046 |
/* local entry for function T3LOCAL-FUN */ |
/* local entry for function T3LOCAL-FUN */ |
5047 |
|
|
5048 |
static object LI54(V762,V763,V764,V765,V766) |
static object LI54(V765,V766,V767,V768,V769) |
5049 |
|
|
5050 |
object V762;object V763;object V764;object V765;object V766; |
object V765;object V766;object V767;object V768;object V769; |
5051 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
5052 |
bds_check; |
bds_check; |
5053 |
|
goto TTL; |
5054 |
TTL:; |
TTL:; |
5055 |
{long V767; |
{long V770; |
5056 |
if(((V762))==Cnil){ |
if(((V765))==Cnil){ |
5057 |
goto T2653;} |
goto T2729;} |
5058 |
V767= 0; |
V770= 0; |
5059 |
goto T2651; |
goto T2727; |
5060 |
T2653:; |
goto T2729; |
5061 |
V767= fix(structure_ref((V765),VV[28],4)); |
T2729:; |
5062 |
T2651:; |
V770= fix(structure_ref((V768),VV[28],4)); |
5063 |
bds_bind(VV[16],(*(LnkLI293))(cadr((V766)))); |
goto T2727; |
5064 |
bds_bind(VV[113],Cnil); |
T2727:; |
5065 |
if(!(((V762))==(VV[239]))){ |
bds_bind(VV[16],(*(LnkLI298))(cadr((V769)))); |
5066 |
goto T2656;} |
bds_bind(VV[117],Cnil); |
5067 |
{object V768 = (*(LnkLI238))((V762),(V763),(V764),(V765),(V766)); |
if(!(((V765))==(VV[244]))){ |
5068 |
bds_unwind1; |
goto T2732;} |
5069 |
bds_unwind1; |
{object V771 = (*(LnkLI243))((V765),(V766),(V767),(V768),(V769)); |
5070 |
VMR53(V768)} |
bds_unwind1; |
5071 |
T2656:; |
bds_unwind1; |
5072 |
if((structure_ref((V765),VV[28],0))==Cnil){ |
VMR53(V771)} |
5073 |
goto T2662;} |
goto T2732; |
5074 |
V769= structure_ref((V765),VV[28],0); |
T2732:; |
5075 |
goto T2660; |
if((structure_ref((V768),VV[28],0))==Cnil){ |
5076 |
T2662:; |
goto T2738;} |
5077 |
V769= Cnil; |
V772= structure_ref((V768),VV[28],0); |
5078 |
T2660:; |
goto T2736; |
5079 |
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[240],V769))); |
goto T2738; |
5080 |
princ_str("\nstatic ",VV[27]); |
T2738:; |
5081 |
if(((V762))==Cnil){ |
V772= Cnil; |
5082 |
goto T2669;} |
goto T2736; |
5083 |
V770= VV[241]; |
T2736:; |
5084 |
goto T2667; |
(void)((VFUN_NARGS=2,(*(LnkLI304))(VV[245],V772))); |
5085 |
T2669:; |
princ_str("\nstatic void ",VV[27]); |
5086 |
V770= VV[242]; |
if(((V765))==Cnil){ |
5087 |
T2667:; |
goto T2745;} |
5088 |
(void)((*(LnkLI265))(V770)); |
V773= VV[246]; |
5089 |
V771= structure_ref((V765),VV[28],3); |
goto T2743; |
5090 |
(void)((*(LnkLI265))(/* INLINE-ARGS */V771)); |
goto T2745; |
5091 |
|
T2745:; |
5092 |
|
V773= VV[247]; |
5093 |
|
goto T2743; |
5094 |
|
T2743:; |
5095 |
|
(void)((*(LnkLI270))(V773)); |
5096 |
|
V774= structure_ref((V768),VV[28],3); |
5097 |
|
(void)((*(LnkLI270))(/* INLINE-ARGS */V774)); |
5098 |
princ_str("();",VV[27]); |
princ_str("();",VV[27]); |
5099 |
princ_str("\nstatic ",VV[21]); |
princ_str("\nstatic void ",VV[21]); |
5100 |
if(((V762))==Cnil){ |
if(((V765))==Cnil){ |
5101 |
goto T2678;} |
goto T2754;} |
5102 |
V772= VV[243]; |
V775= VV[248]; |
5103 |
goto T2676; |
goto T2752; |
5104 |
T2678:; |
goto T2754; |
5105 |
V772= VV[244]; |
T2754:; |
5106 |
T2676:; |
V775= VV[249]; |
5107 |
(void)((*(LnkLI262))(V772)); |
goto T2752; |
5108 |
V773= structure_ref((V765),VV[28],3); |
T2752:; |
5109 |
(void)((*(LnkLI262))(/* INLINE-ARGS */V773)); |
(void)((*(LnkLI267))(V775)); |
5110 |
|
V776= structure_ref((V768),VV[28],3); |
5111 |
|
(void)((*(LnkLI267))(/* INLINE-ARGS */V776)); |
5112 |
princ_char(40,VV[21]); |
princ_char(40,VV[21]); |
5113 |
{register object V774; |
{register object V777; |
5114 |
register long V775; |
register long V778; |
5115 |
V774= make_fixnum(V767); |
V777= make_fixnum(V770); |
5116 |
V775= 0; |
V778= 0; |
5117 |
T2686:; |
goto T2762; |
5118 |
V776 = make_fixnum(V775); |
T2762:; |
5119 |
if(!(number_compare(V776,(V774))>=0)){ |
V779 = make_fixnum(V778); |
5120 |
goto T2687;} |
if(!(number_compare(V779,(V777))>=0)){ |
5121 |
|
goto T2763;} |
5122 |
princ_str("base",VV[21]); |
princ_str("base",VV[21]); |
5123 |
V777 = make_fixnum(V775); |
V780 = make_fixnum(V778); |
5124 |
(void)((*(LnkLI262))(V777)); |
(void)((*(LnkLI267))(V780)); |
5125 |
princ_char(41,VV[21]); |
princ_char(41,VV[21]); |
5126 |
goto T2682; |
goto T2758; |
5127 |
T2687:; |
goto T2763; |
5128 |
|
T2763:; |
5129 |
princ_str("base",VV[21]); |
princ_str("base",VV[21]); |
5130 |
V778 = make_fixnum(V775); |
V781 = make_fixnum(V778); |
5131 |
(void)((*(LnkLI262))(V778)); |
(void)((*(LnkLI267))(V781)); |
5132 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
5133 |
V775= (V775)+1; |
V778= (V778)+1; |
5134 |
goto T2686;} |
goto T2762;} |
5135 |
T2682:; |
goto T2758; |
5136 |
|
T2758:; |
5137 |
princ_str("\nregister object ",VV[21]); |
princ_str("\nregister object ",VV[21]); |
5138 |
{register object V779; |
{register object V782; |
5139 |
register long V780; |
register long V783; |
5140 |
V779= make_fixnum(V767); |
V782= make_fixnum(V770); |
5141 |
V780= 0; |
V783= 0; |
5142 |
T2707:; |
goto T2783; |
5143 |
V781 = make_fixnum(V780); |
T2783:; |
5144 |
if(!(number_compare(V781,(V779))>=0)){ |
V784 = make_fixnum(V783); |
5145 |
goto T2708;} |
if(!(number_compare(V784,(V782))>=0)){ |
5146 |
|
goto T2784;} |
5147 |
princ_char(42,VV[21]); |
princ_char(42,VV[21]); |
5148 |
(void)((*(LnkLI262))((VV[16]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[16]->s.s_dbind))); |
5149 |
princ_str("base",VV[21]); |
princ_str("base",VV[21]); |
5150 |
V782 = make_fixnum(V780); |
V785 = make_fixnum(V783); |
5151 |
(void)((*(LnkLI262))(V782)); |
(void)((*(LnkLI267))(V785)); |
5152 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
5153 |
goto T2703; |
goto T2779; |
5154 |
T2708:; |
goto T2784; |
5155 |
|
T2784:; |
5156 |
princ_char(42,VV[21]); |
princ_char(42,VV[21]); |
5157 |
(void)((*(LnkLI262))((VV[16]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[16]->s.s_dbind))); |
5158 |
princ_str("base",VV[21]); |
princ_str("base",VV[21]); |
5159 |
V783 = make_fixnum(V780); |
V786 = make_fixnum(V783); |
5160 |
(void)((*(LnkLI262))(V783)); |
(void)((*(LnkLI267))(V786)); |
5161 |
princ_char(44,VV[21]); |
princ_char(44,VV[21]); |
5162 |
V780= (V780)+1; |
V783= (V783)+1; |
5163 |
goto T2707;} |
goto T2783;} |
5164 |
T2703:; |
goto T2779; |
5165 |
V784= structure_ref(cadr((V766)),VV[58],1); |
T2779:; |
5166 |
(void)((*(LnkLI295))(/* INLINE-ARGS */V784,small_fixnum(2))); |
V787= structure_ref(cadr((V769)),VV[62],1); |
5167 |
bds_bind(VV[124],VV[123]); |
(void)((*(LnkLI300))(/* INLINE-ARGS */V787,small_fixnum(2))); |
5168 |
bds_bind(VV[237],(V764)); |
bds_bind(VV[128],VV[127]); |
5169 |
|
bds_bind(VV[242],(V767)); |
5170 |
bds_bind(VV[14],Cnil); |
bds_bind(VV[14],Cnil); |
5171 |
bds_bind(VV[125],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
5172 |
bds_bind(VV[126],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
5173 |
V785 = make_fixnum(V767); |
V788 = make_fixnum(V770); |
5174 |
bds_bind(VV[127],one_plus(V785)); |
bds_bind(VV[131],one_plus(V788)); |
5175 |
bds_bind(VV[128],(V764)); |
bds_bind(VV[132],(V767)); |
5176 |
bds_bind(VV[129],(V763)); |
bds_bind(VV[133],(V766)); |
5177 |
bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil)); |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
5178 |
bds_bind(VV[131],(VV[124]->s.s_dbind)); |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
5179 |
setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1))); |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
5180 |
bds_bind(VV[132],symbol_value(VV[133])); |
bds_bind(VV[136],symbol_value(VV[137])); |
5181 |
bds_bind(VV[134],Cnil); |
bds_bind(VV[138],Cnil); |
5182 |
bds_bind(VV[135],Cnil); |
bds_bind(VV[139],Cnil); |
5183 |
bds_bind(VV[136],Cnil); |
bds_bind(VV[140],Cnil); |
5184 |
bds_bind(VV[137],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
5185 |
princ_str("\n{ register object *",VV[21]); |
princ_str("\n{ register object *",VV[21]); |
5186 |
(void)((*(LnkLI262))((VV[16]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[16]->s.s_dbind))); |
5187 |
princ_str("base=vs_base;",VV[21]); |
princ_str("base=vs_base;",VV[21]); |
5188 |
princ_str("\n register object *",VV[21]); |
princ_str("\n register object *",VV[21]); |
5189 |
(void)((*(LnkLI262))((VV[16]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[16]->s.s_dbind))); |
5190 |
princ_str("sup=base+VM",VV[21]); |
princ_str("sup=base+VM",VV[21]); |
5191 |
(void)((*(LnkLI262))((VV[132]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
5192 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
5193 |
V786= structure_ref(cadr((V766)),VV[58],1); |
V789= structure_ref(cadr((V769)),VV[62],1); |
5194 |
V787= structure_ref((V765),VV[28],3); |
V790= structure_ref((V768),VV[28],3); |
5195 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V786,/* INLINE-ARGS */V787,VV[245])); |
(void)((*(LnkLI306))(/* INLINE-ARGS */V789,/* INLINE-ARGS */V790,VV[250])); |
5196 |
princ_str(" VC",VV[21]); |
princ_str(" VC",VV[21]); |
5197 |
(void)((*(LnkLI262))((VV[132]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
5198 |
if((symbol_value(VV[152]))==Cnil){ |
if((symbol_value(VV[157]))==Cnil){ |
5199 |
goto T2748;} |
goto T2824;} |
5200 |
princ_str("\n vs_reserve(VM",VV[21]); |
princ_str("\n vs_reserve(VM",VV[21]); |
5201 |
(void)((*(LnkLI262))((VV[132]->s.s_dbind))); |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
5202 |
princ_str(");",VV[21]); |
princ_str(");",VV[21]); |
5203 |
goto T2746; |
goto T2822; |
5204 |
T2748:; |
goto T2824; |
5205 |
|
T2824:; |
5206 |
princ_str("\n vs_check;",VV[21]); |
princ_str("\n vs_check;",VV[21]); |
5207 |
T2746:; |
goto T2822; |
5208 |
if((symbol_value(VV[145]))==Cnil){ |
T2822:; |
5209 |
goto T2754;} |
if((symbol_value(VV[149]))==Cnil){ |
5210 |
|
goto T2830;} |
5211 |
princ_str("\n ihs_check;",VV[21]); |
princ_str("\n ihs_check;",VV[21]); |
5212 |
T2754:; |
goto T2830; |
5213 |
if(((V762))==Cnil){ |
T2830:; |
5214 |
goto T2760;} |
if(((V765))==Cnil){ |
5215 |
(void)((VFUN_NARGS=2,(*(LnkLI318))(caddr((V766)),caddr(cddr((V766)))))); |
goto T2836;} |
5216 |
goto T2758; |
(void)((VFUN_NARGS=2,(*(LnkLI323))(caddr((V769)),caddr(cddr((V769)))))); |
5217 |
T2760:; |
goto T2834; |
5218 |
(void)((VFUN_NARGS=3,(*(LnkLI318))(caddr((V766)),caddr(cddr((V766))),(V765)))); |
goto T2836; |
5219 |
T2758:; |
T2836:; |
5220 |
|
(void)((VFUN_NARGS=3,(*(LnkLI323))(caddr((V769)),caddr(cddr((V769))),(V768)))); |
5221 |
|
goto T2834; |
5222 |
|
T2834:; |
5223 |
princ_str("\n}",VV[21]); |
princ_str("\n}",VV[21]); |
5224 |
V788= make_cons((VV[132]->s.s_dbind),(VV[126]->s.s_dbind)); |
V791= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
5225 |
setq(VV[29],make_cons(/* INLINE-ARGS */V788,symbol_value(VV[29]))); |
setq(VV[29],make_cons(/* INLINE-ARGS */V791,symbol_value(VV[29]))); |
5226 |
princ_str("\n#define VC",VV[27]); |
princ_str("\n#define VC",VV[27]); |
5227 |
(void)((*(LnkLI265))((VV[132]->s.s_dbind))); |
(void)((*(LnkLI270))((VV[136]->s.s_dbind))); |
5228 |
V789= (*(LnkLI319))(); |
V792= (*(LnkLI324))(); |
5229 |
bds_unwind1; |
bds_unwind1; |
5230 |
bds_unwind1; |
bds_unwind1; |
5231 |
bds_unwind1; |
bds_unwind1; |
5241 |
bds_unwind1; |
bds_unwind1; |
5242 |
bds_unwind1; |
bds_unwind1; |
5243 |
bds_unwind1; |
bds_unwind1; |
5244 |
V790= structure_ref((V765),VV[28],3); |
V793= structure_ref((V768),VV[28],3); |
5245 |
{object V791 = (*(LnkLI297))(/* INLINE-ARGS */V790); |
{object V794 = (*(LnkLI302))(/* INLINE-ARGS */V793); |
5246 |
bds_unwind1; |
bds_unwind1; |
5247 |
bds_unwind1; |
bds_unwind1; |
5248 |
VMR53(V791)}} |
VMR53(V794)}} |
5249 |
|
base[0]=base[0]; |
5250 |
|
return Cnil; |
5251 |
} |
} |
5252 |
/* local entry for function WT-CVARS */ |
/* local entry for function WT-CVARS */ |
5253 |
|
|
5254 |
static object LI55() |
static object LI55() |
5255 |
|
|
5256 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
5257 |
|
goto TTL; |
5258 |
TTL:; |
TTL:; |
|
{register object V792; |
|
|
V792= Cnil; |
|
|
{register object V793; |
|
|
register object V794; |
|
|
V793= symbol_value(VV[14]); |
|
|
V794= car((V793)); |
|
|
T2774:; |
|
|
if(!(endp((V793)))){ |
|
|
goto T2775;} |
|
|
goto T2770; |
|
|
T2775:; |
|
5259 |
{register object V795; |
{register object V795; |
5260 |
if(!(type_of((V794))==t_cons)){ |
V795= Cnil; |
|
goto T2782;} |
|
5261 |
{register object V796; |
{register object V796; |
5262 |
V796= car((V794)); |
register object V797; |
5263 |
V794= cdr((V794)); |
V796= symbol_value(VV[14]); |
5264 |
V795= (V796); |
V797= car((V796)); |
5265 |
goto T2780;} |
goto T2850; |
5266 |
T2782:; |
T2850:; |
5267 |
V795= Ct; |
if(!(endp((V796)))){ |
5268 |
T2780:; |
goto T2851;} |
5269 |
if(!(((V792))==((V795)))){ |
goto T2846; |
5270 |
goto T2789;} |
goto T2851; |
5271 |
|
T2851:; |
5272 |
|
{register object V798; |
5273 |
|
if(!(type_of((V797))==t_cons)){ |
5274 |
|
goto T2858;} |
5275 |
|
{register object V799; |
5276 |
|
V799= car((V797)); |
5277 |
|
V797= cdr((V797)); |
5278 |
|
V798= (V799); |
5279 |
|
goto T2856;} |
5280 |
|
goto T2858; |
5281 |
|
T2858:; |
5282 |
|
V798= Ct; |
5283 |
|
goto T2856; |
5284 |
|
T2856:; |
5285 |
|
if(!(((V795))==((V798)))){ |
5286 |
|
goto T2865;} |
5287 |
base[1]= symbol_value(VV[27]); |
base[1]= symbol_value(VV[27]); |
5288 |
base[2]= VV[246]; |
base[2]= VV[251]; |
5289 |
base[3]= (V794); |
base[3]= (V797); |
5290 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5291 |
Lformat(); |
Lformat(); |
5292 |
vs_top=sup; |
vs_top=sup; |
5293 |
goto T2787; |
goto T2863; |
5294 |
T2789:; |
goto T2865; |
5295 |
if(!(((V792))==Cnil)){ |
T2865:; |
5296 |
goto T2795;} |
if(!(((V795))==Cnil)){ |
5297 |
goto T2794; |
goto T2871;} |
5298 |
T2795:; |
goto T2870; |
5299 |
|
goto T2871; |
5300 |
|
T2871:; |
5301 |
base[1]= symbol_value(VV[27]); |
base[1]= symbol_value(VV[27]); |
5302 |
base[2]= VV[247]; |
base[2]= VV[252]; |
5303 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5304 |
Lformat(); |
Lformat(); |
5305 |
vs_top=sup; |
vs_top=sup; |
5306 |
T2794:; |
goto T2870; |
5307 |
V792= (V795); |
T2870:; |
5308 |
|
V795= (V798); |
5309 |
base[1]= symbol_value(VV[27]); |
base[1]= symbol_value(VV[27]); |
5310 |
base[2]= VV[248]; |
base[2]= VV[253]; |
5311 |
base[3]= (*(LnkLI268))((V792)); |
base[3]= (*(LnkLI273))((V795)); |
5312 |
base[4]= (V794); |
base[4]= (V797); |
5313 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
5314 |
Lformat(); |
Lformat(); |
5315 |
vs_top=sup; |
vs_top=sup; |
5316 |
T2787:; |
goto T2863; |
5317 |
if(!(((V792))==(VV[249]))){ |
T2863:; |
5318 |
goto T2779;} |
if(!(((V795))==(VV[254]))){ |
5319 |
|
goto T2855;} |
5320 |
base[1]= symbol_value(VV[27]); |
base[1]= symbol_value(VV[27]); |
5321 |
base[2]= VV[250]; |
base[2]= VV[255]; |
5322 |
base[3]= (V794); |
base[3]= (V797); |
5323 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5324 |
Lformat(); |
Lformat(); |
5325 |
vs_top=sup;} |
vs_top=sup;} |
5326 |
T2779:; |
goto T2855; |
5327 |
V793= cdr((V793)); |
T2855:; |
5328 |
V794= car((V793)); |
V796= cdr((V796)); |
5329 |
goto T2774;} |
V797= car((V796)); |
5330 |
T2770:; |
goto T2850;} |
5331 |
|
goto T2846; |
5332 |
|
T2846:; |
5333 |
if(symbol_value(VV[14])==Cnil){ |
if(symbol_value(VV[14])==Cnil){ |
5334 |
goto T2815;} |
goto T2891;} |
5335 |
base[0]= symbol_value(VV[27]); |
base[0]= symbol_value(VV[27]); |
5336 |
base[1]= VV[251]; |
base[1]= VV[256]; |
5337 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5338 |
Lformat(); |
Lformat(); |
5339 |
vs_top=sup; |
vs_top=sup; |
5340 |
T2815:; |
goto T2891; |
5341 |
if(eql(symbol_value(VV[137]),small_fixnum(0))){ |
T2891:; |
5342 |
goto T2819;} |
if(eql(symbol_value(VV[141]),small_fixnum(0))){ |
5343 |
|
goto T2895;} |
5344 |
base[0]= symbol_value(VV[27]); |
base[0]= symbol_value(VV[27]); |
5345 |
base[1]= VV[252]; |
base[1]= VV[257]; |
5346 |
base[2]= symbol_value(VV[137]); |
base[2]= symbol_value(VV[141]); |
5347 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
5348 |
Lformat(); |
Lformat(); |
5349 |
vs_top=sup; |
vs_top=sup; |
5350 |
{object V797 = vs_base[0]; |
{object V800 = vs_base[0]; |
5351 |
VMR54(V797)} |
VMR54(V800)} |
5352 |
T2819:; |
goto T2895; |
5353 |
{object V798 = Cnil; |
T2895:; |
5354 |
VMR54(V798)}} |
{object V801 = Cnil; |
5355 |
|
VMR54(V801)}} |
5356 |
|
base[0]=base[0]; |
5357 |
|
return Cnil; |
5358 |
} |
} |
5359 |
/* local function DO-DECL */ |
/* local function DO-DECL */ |
5360 |
|
|
5361 |
static L25(base0) |
static void L25(base0) |
5362 |
register object *base0; |
register object *base0; |
5363 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5364 |
register object *sup=base+VM55; VC55 |
register object *sup=base+VM55; VC55 |
5365 |
vs_reserve(VM55); |
vs_reserve(VM55); |
5366 |
{object V799; |
{object V802; |
5367 |
check_arg(1); |
check_arg(1); |
5368 |
V799=(base[0]); |
V802=(base[0]); |
5369 |
vs_top=sup; |
vs_top=sup; |
5370 |
|
goto TTL; |
5371 |
TTL:; |
TTL:; |
5372 |
V800= structure_ref((V799),VV[65],4); |
V803= structure_ref((V802),VV[69],4); |
5373 |
if(eql(/* INLINE-ARGS */V800,VV[68])){ |
if(eql(/* INLINE-ARGS */V803,VV[72])){ |
5374 |
goto T2825;} |
goto T2901;} |
5375 |
goto T2824; |
goto T2900; |
5376 |
T2825:; |
goto T2901; |
5377 |
(VV[148]->s.s_dbind)= Ct; |
T2901:; |
5378 |
T2824:; |
(VV[153]->s.s_dbind)= Ct; |
5379 |
{object V801; |
goto T2900; |
5380 |
V801= (*(LnkLI333))((V799)); |
T2900:; |
5381 |
if(((V801))==Cnil){ |
{object V804; |
5382 |
goto T2830;} |
V804= (*(LnkLI338))((V802)); |
5383 |
{object V802; |
if(((V804))==Cnil){ |
5384 |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
goto T2906;} |
5385 |
V802= symbol_value(VV[84]); |
{object V805; |
5386 |
(void)(structure_set((V799),VV[65],1,(V801))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
5387 |
(void)(structure_set((V799),VV[65],4,(V802))); |
V805= symbol_value(VV[88]); |
5388 |
|
(void)(structure_set((V802),VV[69],1,(V804))); |
5389 |
|
(void)(structure_set((V802),VV[69],4,(V805))); |
5390 |
princ_str("\n ",VV[21]); |
princ_str("\n ",VV[21]); |
5391 |
if((base0[1])!=Cnil){ |
if((base0[1])!=Cnil){ |
5392 |
goto T2837;} |
goto T2913;} |
5393 |
princ_char(123,VV[21]); |
princ_char(123,VV[21]); |
5394 |
base0[1]= Ct; |
base0[1]= Ct; |
5395 |
T2837:; |
goto T2913; |
5396 |
base[1]= (V799); |
T2913:; |
5397 |
|
base[1]= (V802); |
5398 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5399 |
(void) (*Lnk334)(); |
(void) (*Lnk339)(); |
5400 |
return;} |
return;} |
5401 |
T2830:; |
goto T2906; |
5402 |
|
T2906:; |
5403 |
base[1]= Cnil; |
base[1]= Cnil; |
5404 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5405 |
return;} |
return;} |
5406 |
} |
} |
5407 |
} |
} |
5408 |
static LnkT334(){ call_or_link(VV[334],&Lnk334);} /* WT-VAR-DECL */ |
static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* WT-VAR-DECL */ |
5409 |
static object LnkTLI333(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[333],&LnkLI333,1,ap);} /* C2VAR-KIND */ |
static object LnkTLI338(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[338],(void **)&LnkLI338,1,ap);} /* C2VAR-KIND */ |
5410 |
static object LnkTLI238(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[238],&LnkLI238,5,ap);} /* T3LOCAL-DCFUN */ |
static object LnkTLI243(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[243],(void **)&LnkLI243,5,ap);} /* T3LOCAL-DCFUN */ |
5411 |
static object LnkTLI327(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[327],&LnkLI327,1,ap);} /* PARSE-CVSPECS */ |
static object LnkTLI332(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[332],(void **)&LnkLI332,1,ap);} /* PARSE-CVSPECS */ |
5412 |
static object LnkTLI326(){return call_proc0(VV[326],&LnkLI326);} /* WFS-ERROR */ |
static object LnkTLI331(){return call_proc0(VV[331],(void **)&LnkLI331);} /* WFS-ERROR */ |
5413 |
static LnkT325(){ call_or_link(VV[325],&Lnk325);} /* C2DM */ |
static void LnkT330(){ call_or_link(VV[330],(void **)&Lnk330);} /* C2DM */ |
5414 |
static object LnkTLI324(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[324],&LnkLI324,3,ap);} /* C1DM */ |
static object LnkTLI329(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[329],(void **)&LnkLI329,3,ap);} /* C1DM */ |
5415 |
static object LnkTLI323(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[323],&LnkLI323,ap);} /* REMOVE-DUPLICATES */ |
static object LnkTLI328(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[328],(void **)&LnkLI328,ap);} /* REMOVE-DUPLICATES */ |
5416 |
static long LnkTLI322(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[322],&LnkLI322,258,ap);} /* ANALYZE-REGS1 */ |
static long LnkTLI327(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[327],(void **)&LnkLI327,258,ap);} /* ANALYZE-REGS1 */ |
5417 |
static object LnkTLI321(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[321],&LnkLI321,ap);} /* WARN */ |
static object LnkTLI326(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[326],(void **)&LnkLI326,ap);} /* WARN */ |
5418 |
static object LnkTLI320(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[320],&LnkLI320,1,ap);} /* REGISTER */ |
static object LnkTLI325(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[325],(void **)&LnkLI325,1,ap);} /* REGISTER */ |
5419 |
static object LnkTLI319(){return call_proc0(VV[319],&LnkLI319);} /* WT-CVARS */ |
static object LnkTLI324(){return call_proc0(VV[324],(void **)&LnkLI324);} /* WT-CVARS */ |
5420 |
static object LnkTLI318(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[318],&LnkLI318,ap);} /* C2LAMBDA-EXPR */ |
static object LnkTLI323(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[323],(void **)&LnkLI323,ap);} /* C2LAMBDA-EXPR */ |
5421 |
static object LnkTLI317(){return call_proc0(VV[317],&LnkLI317);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI322(){return call_proc0(VV[322],(void **)&LnkLI322);} /* CLOSE-INLINE-BLOCKS */ |
5422 |
static object LnkTLI316(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[316],&LnkLI316,1,ap);} /* WT-VS */ |
static object LnkTLI321(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[321],(void **)&LnkLI321,1,ap);} /* WT-VS */ |
5423 |
static object LnkTLI315(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[315],&LnkLI315,1,ap);} /* C2BIND */ |
static object LnkTLI320(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[320],(void **)&LnkLI320,1,ap);} /* C2BIND */ |
5424 |
static object LnkTLI314(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[314],&LnkLI314,1,ap);} /* ADD-SYMBOL */ |
static object LnkTLI319(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[319],(void **)&LnkLI319,1,ap);} /* ADD-SYMBOL */ |
5425 |
static object LnkTLI313(){return call_proc0(VV[313],&LnkLI313);} /* BABOON */ |
static object LnkTLI318(){return call_proc0(VV[318],(void **)&LnkLI318);} /* BABOON */ |
5426 |
static object LnkTLI312(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[312],&LnkLI312,1,ap);} /* ADD-OBJECT */ |
static object LnkTLI317(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[317],(void **)&LnkLI317,1,ap);} /* ADD-OBJECT */ |
5427 |
static LnkT311(){ call_or_link(VV[311],&Lnk311);} /* INC-INLINE-BLOCKS */ |
static void LnkT316(){ call_or_link(VV[316],(void **)&Lnk316);} /* INC-INLINE-BLOCKS */ |
5428 |
static object LnkTLI310(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[310],&LnkLI310,ap);} /* CS-PUSH */ |
static object LnkTLI315(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[315],(void **)&LnkLI315,ap);} /* CS-PUSH */ |
5429 |
static object LnkTLI309(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[309],&LnkLI309,2,ap);} /* C2BIND-INIT */ |
static object LnkTLI314(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[314],(void **)&LnkLI314,2,ap);} /* C2BIND-INIT */ |
5430 |
static object LnkTLI308(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[308],&LnkLI308,2,ap);} /* C2BIND-LOC */ |
static object LnkTLI313(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[313],(void **)&LnkLI313,2,ap);} /* C2BIND-LOC */ |
5431 |
static object LnkTLI307(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[307],&LnkLI307,1,ap);} /* SET-UP-VAR-CVS */ |
static object LnkTLI312(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[312],(void **)&LnkLI312,1,ap);} /* SET-UP-VAR-CVS */ |
5432 |
static object LnkTLI306(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[306],&LnkLI306,1,ap);} /* WT-LIST */ |
static object LnkTLI311(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[311],(void **)&LnkLI311,1,ap);} /* WT-LIST */ |
5433 |
static object LnkTLI305(){return call_proc0(VV[305],&LnkLI305);} /* CVS-PUSH */ |
static object LnkTLI310(){return call_proc0(VV[310],(void **)&LnkLI310);} /* CVS-PUSH */ |
5434 |
static object LnkTLI304(){return call_proc0(VV[304],&LnkLI304);} /* VS-PUSH */ |
static object LnkTLI309(){return call_proc0(VV[309],(void **)&LnkLI309);} /* VS-PUSH */ |
5435 |
static object LnkTLI303(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[303],&LnkLI303,2,ap);} /* WT-V*-MACROS */ |
static object LnkTLI308(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[308],(void **)&LnkLI308,2,ap);} /* WT-V*-MACROS */ |
5436 |
static LnkT302(){ call_or_link(VV[302],&Lnk302);} /* C2EXPR */ |
static void LnkT307(){ call_or_link(VV[307],(void **)&Lnk307);} /* C2EXPR */ |
5437 |
static object LnkTLI301(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[301],&LnkLI301,3,ap);} /* ASSIGN-DOWN-VARS */ |
static object LnkTLI306(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[306],(void **)&LnkLI306,3,ap);} /* ASSIGN-DOWN-VARS */ |
5438 |
static object LnkTLI300(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[300],&LnkLI300,2,ap);} /* WT-REQUIREDS */ |
static object LnkTLI305(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[305],(void **)&LnkLI305,2,ap);} /* WT-REQUIREDS */ |
5439 |
static object LnkTLI299(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[299],&LnkLI299,ap);} /* WT-COMMENT */ |
static object LnkTLI304(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[304],(void **)&LnkLI304,ap);} /* WT-COMMENT */ |
5440 |
static object LnkTLI298(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[298],&LnkLI298,2,ap);} /* ADD-DEBUG-INFO */ |
static object LnkTLI303(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[303],(void **)&LnkLI303,2,ap);} /* ADD-DEBUG-INFO */ |
5441 |
static object LnkTLI297(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[297],&LnkLI297,1,ap);} /* WT-DOWNWARD-CLOSURE-MACRO */ |
static object LnkTLI302(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[302],(void **)&LnkLI302,1,ap);} /* WT-DOWNWARD-CLOSURE-MACRO */ |
5442 |
static LnkT296(){ call_or_link(VV[296],&Lnk296);} /* T3DEFUN-AUX */ |
static void LnkT301(){ call_or_link(VV[301],(void **)&Lnk301);} /* T3DEFUN-AUX */ |
5443 |
static long LnkTLI295(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[295],&LnkLI295,258,ap);} /* ANALYZE-REGS */ |
static long LnkTLI300(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[300],(void **)&LnkLI300,258,ap);} /* ANALYZE-REGS */ |
5444 |
static LnkT294(){ call_or_link(VV[294],&Lnk294);} /* FIXNUMP */ |
static void LnkT299(){ call_or_link(VV[299],(void **)&Lnk299);} /* FIXNUMP */ |
5445 |
static object LnkTLI293(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[293],&LnkLI293,1,ap);} /* VOLATILE */ |
static object LnkTLI298(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[298],(void **)&LnkLI298,1,ap);} /* VOLATILE */ |
5446 |
static object LnkTLI292(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[292],&LnkLI292,1,ap);} /* MAXARGS */ |
static object LnkTLI297(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[297],(void **)&LnkLI297,1,ap);} /* MAXARGS */ |
5447 |
static object LnkTLI291(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[291],&LnkLI291,1,ap);} /* VARARG-P */ |
static object LnkTLI296(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[296],(void **)&LnkLI296,1,ap);} /* VARARG-P */ |
5448 |
static object LnkTLI290(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[290],&LnkLI290,3,ap);} /* WT-IF-PROCLAIMED */ |
static object LnkTLI295(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[295],(void **)&LnkLI295,3,ap);} /* WT-IF-PROCLAIMED */ |
5449 |
static long LnkTLI289(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[289],&LnkLI289,258,ap);} /* PROCLAIMED-ARGD */ |
static long LnkTLI294(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[294],(void **)&LnkLI294,258,ap);} /* PROCLAIMED-ARGD */ |
5450 |
static object LnkTLI288(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[288],&LnkLI288,2,ap);} /* ADD-ADDRESS */ |
static object LnkTLI293(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[293],(void **)&LnkLI293,2,ap);} /* ADD-ADDRESS */ |
5451 |
static object LnkTLI287(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[287],&LnkLI287,ap);} /* ADD-INIT */ |
static object LnkTLI292(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[292],(void **)&LnkLI292,ap);} /* ADD-INIT */ |
5452 |
static object LnkTLI286(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[286],&LnkLI286,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
static object LnkTLI291(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[291],(void **)&LnkLI291,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
5453 |
static object LnkTLI285(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[285],&LnkLI285,2,ap);} /* SHIFT<< */ |
static object LnkTLI290(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[290],(void **)&LnkLI290,2,ap);} /* SHIFT<< */ |
5454 |
static long LnkTLI284(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[284],&LnkLI284,257,ap);} /* F-TYPE */ |
static long LnkTLI289(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[289],(void **)&LnkLI289,257,ap);} /* F-TYPE */ |
5455 |
static LnkT283(){ call_or_link(VV[283],&Lnk283);} /* SUBTYPEP */ |
static void LnkT288(){ call_or_link(VV[288],(void **)&Lnk288);} /* SUBTYPEP */ |
5456 |
static LnkT282(){ call_or_link(VV[282],&Lnk282);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT287(){ call_or_link(VV[287],(void **)&Lnk287);} /* STRUCTURE-SUBTYPE-P */ |
5457 |
static object LnkTLI281(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[281],&LnkLI281,ap);} /* MAKE-ARRAY */ |
static object LnkTLI286(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[286],(void **)&LnkLI286,ap);} /* MAKE-ARRAY */ |
5458 |
static object LnkTLI280(){return call_proc0(VV[280],&LnkLI280);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
static object LnkTLI285(){return call_proc0(VV[285],(void **)&LnkLI285);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
5459 |
static object LnkTLI279(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[279],&LnkLI279,2,ap);} /* MAKE-INLINE-STRING */ |
static object LnkTLI284(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[284],(void **)&LnkLI284,2,ap);} /* MAKE-INLINE-STRING */ |
5460 |
static object LnkTLI278(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[278],&LnkLI278,2,ap);} /* TYPE-AND */ |
static object LnkTLI283(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[283],(void **)&LnkLI283,2,ap);} /* TYPE-AND */ |
5461 |
static object LnkTLI277(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[277],&LnkLI277,2,ap);} /* CMPFIX-ARGS */ |
static object LnkTLI282(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[282],(void **)&LnkLI282,2,ap);} /* CMPFIX-ARGS */ |
5462 |
static object LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,1,ap);} /* PROCLAIM */ |
static object LnkTLI281(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[281],(void **)&LnkLI281,1,ap);} /* PROCLAIM */ |
5463 |
static object LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,1,ap);} /* CHECK-DOWNWARD */ |
static object LnkTLI280(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[280],(void **)&LnkLI280,1,ap);} /* CHECK-DOWNWARD */ |
5464 |
static object LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],&LnkLI274,ap);} /* C1LAMBDA-EXPR */ |
static object LnkTLI279(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[279],(void **)&LnkLI279,ap);} /* C1LAMBDA-EXPR */ |
5465 |
static object LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[273],&LnkLI273,1,ap);} /* T1PROGN */ |
static object LnkTLI278(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[278],(void **)&LnkLI278,1,ap);} /* T1PROGN */ |
5466 |
static object LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],&LnkLI270,3,ap);} /* TOO-FEW-ARGS */ |
static object LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],(void **)&LnkLI275,3,ap);} /* TOO-FEW-ARGS */ |
5467 |
static LnkT269(){ call_or_link(VV[269],&Lnk269);} /* CMP-EVAL */ |
static void LnkT274(){ call_or_link(VV[274],(void **)&Lnk274);} /* CMP-EVAL */ |
5468 |
static object LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[268],&LnkLI268,1,ap);} /* REP-TYPE */ |
static object LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[273],(void **)&LnkLI273,1,ap);} /* REP-TYPE */ |
5469 |
static LnkT267(){ call_or_link(VV[267],&Lnk267);} /* WT-DATA-FILE */ |
static void LnkT272(){ call_or_link(VV[272],(void **)&Lnk272);} /* WT-DATA-FILE */ |
5470 |
static object LnkTLI266(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[266],&LnkLI266,1,ap);} /* PUSH-DATA-INCF */ |
static object LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],(void **)&LnkLI271,1,ap);} /* PUSH-DATA-INCF */ |
5471 |
static object LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[265],&LnkLI265,1,ap);} /* WT-H1 */ |
static object LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],(void **)&LnkLI270,1,ap);} /* WT-H1 */ |
5472 |
static object LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[264],&LnkLI264,1,ap);} /* WT-FUNCTION-LINK */ |
static object LnkTLI269(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[269],(void **)&LnkLI269,1,ap);} /* WT-FUNCTION-LINK */ |
5473 |
static LnkT263(){ call_or_link(VV[263],&Lnk263);} /* WT-GLOBAL-ENTRY */ |
static void LnkT268(){ call_or_link(VV[268],(void **)&Lnk268);} /* WT-GLOBAL-ENTRY */ |
5474 |
static LnkT245(){ call_or_link(VV[245],&Lnk245);} /* T3LOCAL-FUN */ |
static void LnkT250(){ call_or_link(VV[250],(void **)&Lnk250);} /* T3LOCAL-FUN */ |
5475 |
static object LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* WT1 */ |
static object LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[267],(void **)&LnkLI267,1,ap);} /* WT1 */ |
5476 |
static object LnkTLI261(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[261],&LnkLI261,3,ap);} /* CMP-EXPAND-MACRO */ |
static object LnkTLI266(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[266],(void **)&LnkLI266,3,ap);} /* CMP-EXPAND-MACRO */ |
5477 |
static object LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* T1ORDINARY */ |
static object LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[265],(void **)&LnkLI265,1,ap);} /* T1ORDINARY */ |
5478 |
static LnkT259(){ call_or_link(VV[259],&Lnk259);} /* T1EXPR */ |
static void LnkT264(){ call_or_link(VV[264],(void **)&Lnk264);} /* T1EXPR */ |
5479 |
static object LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[258],&LnkLI258,1,ap);} /* CMP-MACROEXPAND-1 */ |
static object LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[263],(void **)&LnkLI263,1,ap);} /* CMP-MACROEXPAND-1 */ |
5480 |
static object LnkTLI257(){return call_proc0(VV[257],&LnkLI257);} /* PRINT-CURRENT-FORM */ |
static object LnkTLI262(){return call_proc0(VV[262],(void **)&LnkLI262);} /* PRINT-CURRENT-FORM */ |
5481 |
static object LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* WT-DATA-PACKAGE-OPERATION */ |
static object LnkTLI261(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[261],(void **)&LnkLI261,1,ap);} /* WT-DATA-PACKAGE-OPERATION */ |
5482 |
static object LnkTLI255(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[255],&LnkLI255,2,ap);} /* MAYBE-EVAL */ |
static object LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],(void **)&LnkLI260,2,ap);} /* MAYBE-EVAL */ |
5483 |
static object LnkTLI254(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[254],&LnkLI254,ap);} /* CMPWARN */ |
static object LnkTLI259(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[259],(void **)&LnkLI259,ap);} /* CMPWARN */ |
5484 |
static object LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[253],&LnkLI253,ap);} /* CMPERR */ |
static object LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[258],(void **)&LnkLI258,ap);} /* CMPERR */ |
5485 |
|
|
5486 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
5487 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |