1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmplam.h" |
#include "cmplam.h" |
4 |
init_cmplam(){do_init(VV);} |
void init_cmplam(){do_init(VV);} |
5 |
/* macro definition for CK-SPEC */ |
/* macro definition for CK-SPEC */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
21 |
} |
} |
22 |
/* macro definition for CK-VL */ |
/* macro definition for CK-VL */ |
23 |
|
|
24 |
static L2() |
static void L2() |
25 |
{register object *base=vs_base; |
{register object *base=vs_base; |
26 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
27 |
vs_reserve(VM2); |
vs_reserve(VM2); |
38 |
} |
} |
39 |
/* macro definition for DOWNWARD-FUNCTION */ |
/* macro definition for DOWNWARD-FUNCTION */ |
40 |
|
|
41 |
static L3() |
static void L3() |
42 |
{register object *base=vs_base; |
{register object *base=vs_base; |
43 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
44 |
vs_reserve(VM3); |
vs_reserve(VM3); |
59 |
|
|
60 |
register object V5; |
register object V5; |
61 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
62 |
|
goto TTL; |
63 |
TTL:; |
TTL:; |
64 |
{register object V6; |
{register object V6; |
65 |
object V7; |
object V7; |
78 |
register object V10; |
register object V10; |
79 |
V9= structure_ref((V7),VV[5],1); |
V9= structure_ref((V7),VV[5],1); |
80 |
V10= car((V9)); |
V10= car((V9)); |
81 |
|
goto T16; |
82 |
T16:; |
T16:; |
83 |
if(!(endp((V9)))){ |
if(!(endp((V9)))){ |
84 |
goto T17;} |
goto T17;} |
85 |
goto T12; |
goto T12; |
86 |
|
goto T17; |
87 |
T17:; |
T17:; |
88 |
V11= structure_ref((V10),VV[6],1); |
V11= structure_ref((V10),VV[6],1); |
89 |
if(!((/* INLINE-ARGS */V11)==(VV[7]))){ |
if(!((/* INLINE-ARGS */V11)==(VV[7]))){ |
91 |
if((structure_ref((V10),VV[6],3))==Cnil){ |
if((structure_ref((V10),VV[6],3))==Cnil){ |
92 |
goto T21;} |
goto T21;} |
93 |
(void)(structure_set((V10),VV[6],1,VV[8])); |
(void)(structure_set((V10),VV[6],1,VV[8])); |
94 |
|
goto T21; |
95 |
T21:; |
T21:; |
96 |
V9= cdr((V9)); |
V9= cdr((V9)); |
97 |
V10= car((V9)); |
V10= car((V9)); |
98 |
goto T16;} |
goto T16;} |
99 |
|
goto T12; |
100 |
T12:; |
T12:; |
101 |
if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6); |
if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6); |
102 |
(V6)->c.c_car = VV[9]; |
(V6)->c.c_car = VV[9]; |
103 |
{object V14 = (V6); |
{object V14 = (V6); |
104 |
VMR4(V14)} |
VMR4(V14)} |
105 |
|
goto T4; |
106 |
T4:; |
T4:; |
107 |
{object V15 = (V6); |
{object V15 = (V6); |
108 |
VMR4(V15)}} |
VMR4(V15)}} |
109 |
|
base[0]=base[0]; |
110 |
|
return Cnil; |
111 |
} |
} |
112 |
/* local entry for function WT-MAKE-DCLOSURE */ |
/* local entry for function WT-MAKE-DCLOSURE */ |
113 |
|
|
115 |
|
|
116 |
register object V18;object V19; |
register object V18;object V19; |
117 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
118 |
|
goto TTL; |
119 |
TTL:; |
TTL:; |
120 |
princ_str("\n (DownClose",VV[10]); |
princ_str("\n (DownClose",VV[10]); |
121 |
(void)((*(LnkLI80))((V18))); |
(void)((*(LnkLI80))((V18))); |
131 |
princ_char(41,VV[10]); |
princ_char(41,VV[10]); |
132 |
{object V20 = Cnil; |
{object V20 = Cnil; |
133 |
VMR5(V20)} |
VMR5(V20)} |
134 |
|
return Cnil; |
135 |
} |
} |
136 |
/* local entry for function WFS-ERROR */ |
/* local entry for function WFS-ERROR */ |
137 |
|
|
138 |
static object LI6() |
static object LI6() |
139 |
|
|
140 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
141 |
|
goto TTL; |
142 |
TTL:; |
TTL:; |
143 |
base[0]= VV[11]; |
base[0]= VV[11]; |
144 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
146 |
vs_top=sup; |
vs_top=sup; |
147 |
{object V21 = vs_base[0]; |
{object V21 = vs_base[0]; |
148 |
VMR6(V21)} |
VMR6(V21)} |
149 |
|
base[0]=base[0]; |
150 |
|
return Cnil; |
151 |
} |
} |
152 |
/* local entry for function WT-DOWNWARD-CLOSURE-MACRO */ |
/* local entry for function WT-DOWNWARD-CLOSURE-MACRO */ |
153 |
|
|
155 |
|
|
156 |
object V23; |
object V23; |
157 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
158 |
|
goto TTL; |
159 |
TTL:; |
TTL:; |
160 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
161 |
goto T49;} |
goto T49;} |
168 |
(void)((*(LnkLI81))(VV[15])); |
(void)((*(LnkLI81))(VV[15])); |
169 |
{register object V24; |
{register object V24; |
170 |
V24= symbol_value(VV[12]); |
V24= symbol_value(VV[12]); |
171 |
|
goto T63; |
172 |
T63:; |
T63:; |
173 |
if(((V24))!=Cnil){ |
if(((V24))!=Cnil){ |
174 |
goto T64;} |
goto T64;} |
175 |
goto T61; |
goto T61; |
176 |
|
goto T64; |
177 |
T64:; |
T64:; |
178 |
(void)((*(LnkLI81))(VV[16])); |
(void)((*(LnkLI81))(VV[16])); |
179 |
(void)((*(LnkLI81))(car((V24)))); |
(void)((*(LnkLI81))(car((V24)))); |
180 |
if((cdr((V24)))==Cnil){ |
if((cdr((V24)))==Cnil){ |
181 |
goto T70;} |
goto T70;} |
182 |
(void)((*(LnkLI81))(VV[17])); |
(void)((*(LnkLI81))(VV[17])); |
183 |
|
goto T70; |
184 |
T70:; |
T70:; |
185 |
V24= cdr((V24)); |
V24= cdr((V24)); |
186 |
goto T63;} |
goto T63;} |
187 |
|
goto T61; |
188 |
T61:; |
T61:; |
189 |
{object V25 = (*(LnkLI81))(VV[18]); |
{object V25 = (*(LnkLI81))(VV[18]); |
190 |
VMR7(V25)} |
VMR7(V25)} |
191 |
|
goto T58; |
192 |
T58:; |
T58:; |
193 |
{object V26 = Cnil; |
{object V26 = Cnil; |
194 |
VMR7(V26)} |
VMR7(V26)} |
195 |
|
goto T49; |
196 |
T49:; |
T49:; |
197 |
{object V27 = Cnil; |
{object V27 = Cnil; |
198 |
VMR7(V27)} |
VMR7(V27)} |
199 |
|
return Cnil; |
200 |
} |
} |
201 |
/* local entry for function C2DOWNWARD-FUNCTION */ |
/* local entry for function C2DOWNWARD-FUNCTION */ |
202 |
|
|
204 |
|
|
205 |
object V29; |
object V29; |
206 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
207 |
|
goto TTL; |
208 |
TTL:; |
TTL:; |
209 |
{register object V30; |
{register object V30; |
210 |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
213 |
goto T82;} |
goto T82;} |
214 |
V31= Cnil; |
V31= Cnil; |
215 |
goto T80; |
goto T80; |
216 |
|
goto T82; |
217 |
T82:; |
T82:; |
218 |
V31= make_cons(small_fixnum(0),small_fixnum(0)); |
V31= make_cons(small_fixnum(0),small_fixnum(0)); |
219 |
|
goto T80; |
220 |
T80:; |
T80:; |
221 |
V32= list(5,VV[24],V31,symbol_value(VV[26]),(V30),(V29)); |
V32= list(5,VV[24],V31,symbol_value(VV[26]),(V30),(V29)); |
222 |
setq(VV[23],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[23]))); |
setq(VV[23],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[23]))); |
226 |
V34= list(3,VV[29],structure_ref((V30),VV[28],3),symbol_value(VV[25])); |
V34= list(3,VV[29],structure_ref((V30),VV[28],3),symbol_value(VV[25])); |
227 |
{object V35 = (VFUN_NARGS=1,(*(LnkLI84))(/* INLINE-ARGS */V34)); |
{object V35 = (VFUN_NARGS=1,(*(LnkLI84))(/* INLINE-ARGS */V34)); |
228 |
VMR8(V35)}} |
VMR8(V35)}} |
229 |
|
return Cnil; |
230 |
} |
} |
231 |
/* local entry for function C1LAMBDA-EXPR */ |
/* local entry for function C1LAMBDA-EXPR */ |
232 |
|
|
240 |
{object V37; |
{object V37; |
241 |
object V38; |
object V38; |
242 |
object V39; |
object V39; |
243 |
|
Vcs[0]=Vcs[0]; |
244 |
|
va_start(ap); |
245 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
246 |
V37= V36; |
V37= V36; |
247 |
narg = narg - 1; |
narg = narg - 1; |
248 |
if (narg <= 0) goto T88; |
if (narg <= 0) goto T88; |
249 |
else { |
else { |
|
va_start(ap); |
|
250 |
V38= va_arg(ap,object);} |
V38= va_arg(ap,object);} |
251 |
V39= Ct; |
V39= Ct; |
252 |
--narg; goto T89; |
--narg; goto T89; |
253 |
|
goto T88; |
254 |
T88:; |
T88:; |
255 |
V38= Cnil; |
V38= Cnil; |
256 |
V39= Cnil; |
V39= Cnil; |
257 |
|
goto T89; |
258 |
T89:; |
T89:; |
259 |
{object V40; |
{object V40; |
260 |
object V41; |
object V41; |
303 |
goto T112;} |
goto T112;} |
304 |
V61= make_cons(VV[4],(V37)); |
V61= make_cons(VV[4],(V37)); |
305 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V61))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V61))); |
306 |
|
goto T112; |
307 |
T112:; |
T112:; |
308 |
base[2]= cdr((V37)); |
base[2]= cdr((V37)); |
309 |
base[3]= Ct; |
base[3]= Ct; |
343 |
goto T119;} |
goto T119;} |
344 |
V62= listA(3,VV[33],(V38),(V52)); |
V62= listA(3,VV[33],(V38),(V52)); |
345 |
V52= make_cons(/* INLINE-ARGS */V62,Cnil); |
V52= make_cons(/* INLINE-ARGS */V62,Cnil); |
346 |
|
goto T119; |
347 |
T119:; |
T119:; |
348 |
(void)((*(LnkLI88))((V53))); |
(void)((*(LnkLI88))((V53))); |
349 |
V50= car((V37)); |
V50= car((V37)); |
350 |
|
goto T128; |
351 |
T128:; |
T128:; |
352 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
353 |
goto T134;} |
goto T134;} |
354 |
goto T126; |
goto T126; |
355 |
|
goto T134; |
356 |
T134:; |
T134:; |
357 |
if(type_of((V50))==t_cons){ |
if(type_of((V50))==t_cons){ |
358 |
goto T137;} |
goto T137;} |
359 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
360 |
|
goto T137; |
361 |
T137:; |
T137:; |
362 |
{object V64; |
{object V64; |
363 |
V64= car((V50)); |
V64= car((V50)); |
366 |
{object V63= (V51); |
{object V63= (V51); |
367 |
if((V63!= VV[69]))goto T145; |
if((V63!= VV[69]))goto T145; |
368 |
goto T129; |
goto T129; |
369 |
|
goto T145; |
370 |
T145:; |
T145:; |
371 |
if((V63!= VV[68]))goto T146; |
if((V63!= VV[68]))goto T146; |
372 |
goto T130; |
goto T130; |
373 |
|
goto T146; |
374 |
T146:; |
T146:; |
375 |
if((V63!= VV[71]))goto T147; |
if((V63!= VV[71]))goto T147; |
376 |
goto T131; |
goto T131; |
377 |
|
goto T147; |
378 |
T147:; |
T147:; |
379 |
if((V63!= VV[73]))goto T148; |
if((V63!= VV[73]))goto T148; |
380 |
goto T132; |
goto T132; |
381 |
|
goto T148; |
382 |
T148:;} |
T148:;} |
383 |
{object V65; |
{object V65; |
384 |
V65= (*(LnkLI89))((V51),(V53),(V54),(V55)); |
V65= (*(LnkLI89))((V51),(V53),(V54),(V55)); |
386 |
(VV[30]->s.s_dbind)= make_cons((V65),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V65),(VV[30]->s.s_dbind)); |
387 |
V40= make_cons((V65),(V40));} |
V40= make_cons((V65),(V40));} |
388 |
goto T128; |
goto T128; |
389 |
|
goto T129; |
390 |
T129:; |
T129:; |
391 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
392 |
goto T156;} |
goto T156;} |
393 |
goto T126; |
goto T126; |
394 |
|
goto T156; |
395 |
T156:; |
T156:; |
396 |
if(type_of((V50))==t_cons){ |
if(type_of((V50))==t_cons){ |
397 |
goto T159;} |
goto T159;} |
398 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
399 |
|
goto T159; |
400 |
T159:; |
T159:; |
401 |
{object V67; |
{object V67; |
402 |
V67= car((V50)); |
V67= car((V50)); |
405 |
{object V66= (V51); |
{object V66= (V51); |
406 |
if((V66!= VV[68]))goto T167; |
if((V66!= VV[68]))goto T167; |
407 |
goto T130; |
goto T130; |
408 |
|
goto T167; |
409 |
T167:; |
T167:; |
410 |
if((V66!= VV[71]))goto T168; |
if((V66!= VV[71]))goto T168; |
411 |
goto T131; |
goto T131; |
412 |
|
goto T168; |
413 |
T168:; |
T168:; |
414 |
if((V66!= VV[73]))goto T169; |
if((V66!= VV[73]))goto T169; |
415 |
goto T132; |
goto T132; |
416 |
|
goto T169; |
417 |
T169:;} |
T169:;} |
418 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
419 |
goto T172;} |
goto T172;} |
426 |
V41= make_cons(/* INLINE-ARGS */V71,(V41)); |
V41= make_cons(/* INLINE-ARGS */V71,(V41)); |
427 |
(VV[30]->s.s_dbind)= make_cons((V68),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V68),(VV[30]->s.s_dbind)); |
428 |
goto T170;} |
goto T170;} |
429 |
|
goto T172; |
430 |
T172:; |
T172:; |
431 |
if(type_of(cdr((V51)))==t_cons){ |
if(type_of(cdr((V51)))==t_cons){ |
432 |
goto T181;} |
goto T181;} |
433 |
if((cdr((V51)))==Cnil){ |
if((cdr((V51)))==Cnil){ |
434 |
goto T183;} |
goto T183;} |
435 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
436 |
|
goto T183; |
437 |
T183:; |
T183:; |
438 |
{object V72; |
{object V72; |
439 |
V72= (*(LnkLI89))(car((V51)),(V53),(V54),(V55)); |
V72= (*(LnkLI89))(car((V51)),(V53),(V54),(V55)); |
444 |
V41= make_cons(/* INLINE-ARGS */V75,(V41)); |
V41= make_cons(/* INLINE-ARGS */V75,(V41)); |
445 |
(VV[30]->s.s_dbind)= make_cons((V72),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V72),(VV[30]->s.s_dbind)); |
446 |
goto T170;} |
goto T170;} |
447 |
|
goto T181; |
448 |
T181:; |
T181:; |
449 |
if(type_of(cddr((V51)))==t_cons){ |
if(type_of(cddr((V51)))==t_cons){ |
450 |
goto T193;} |
goto T193;} |
451 |
if((cddr((V51)))==Cnil){ |
if((cddr((V51)))==Cnil){ |
452 |
goto T195;} |
goto T195;} |
453 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
454 |
|
goto T195; |
455 |
T195:; |
T195:; |
456 |
{object V76; |
{object V76; |
457 |
object V77; |
object V77; |
464 |
V41= make_cons(/* INLINE-ARGS */V80,(V41)); |
V41= make_cons(/* INLINE-ARGS */V80,(V41)); |
465 |
(VV[30]->s.s_dbind)= make_cons((V77),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V77),(VV[30]->s.s_dbind)); |
466 |
goto T170;} |
goto T170;} |
467 |
|
goto T193; |
468 |
T193:; |
T193:; |
469 |
if((cdddr((V51)))==Cnil){ |
if((cdddr((V51)))==Cnil){ |
470 |
goto T205;} |
goto T205;} |
471 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
472 |
|
goto T205; |
473 |
T205:; |
T205:; |
474 |
{object V81; |
{object V81; |
475 |
object V82; |
object V82; |
485 |
V41= make_cons(/* INLINE-ARGS */V86,(V41)); |
V41= make_cons(/* INLINE-ARGS */V86,(V41)); |
486 |
(VV[30]->s.s_dbind)= make_cons((V82),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V82),(VV[30]->s.s_dbind)); |
487 |
(VV[30]->s.s_dbind)= make_cons((V83),(VV[30]->s.s_dbind));} |
(VV[30]->s.s_dbind)= make_cons((V83),(VV[30]->s.s_dbind));} |
488 |
|
goto T170; |
489 |
T170:; |
T170:; |
490 |
goto T129; |
goto T129; |
491 |
|
goto T130; |
492 |
T130:; |
T130:; |
493 |
if(type_of((V50))==t_cons){ |
if(type_of((V50))==t_cons){ |
494 |
goto T220;} |
goto T220;} |
495 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
496 |
|
goto T220; |
497 |
T220:; |
T220:; |
498 |
V57= make_cons(car((V50)),(V57)); |
V57= make_cons(car((V50)),(V57)); |
499 |
{object V88; |
{object V88; |
505 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
506 |
goto T233;} |
goto T233;} |
507 |
goto T126; |
goto T126; |
508 |
|
goto T233; |
509 |
T233:; |
T233:; |
510 |
if(type_of((V50))==t_cons){ |
if(type_of((V50))==t_cons){ |
511 |
goto T236;} |
goto T236;} |
512 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
513 |
|
goto T236; |
514 |
T236:; |
T236:; |
515 |
{object V90; |
{object V90; |
516 |
V90= car((V50)); |
V90= car((V50)); |
519 |
{object V89= (V51); |
{object V89= (V51); |
520 |
if((V89!= VV[71]))goto T244; |
if((V89!= VV[71]))goto T244; |
521 |
goto T131; |
goto T131; |
522 |
|
goto T244; |
523 |
T244:; |
T244:; |
524 |
if((V89!= VV[73]))goto T245; |
if((V89!= VV[73]))goto T245; |
525 |
goto T132; |
goto T132; |
526 |
|
goto T245; |
527 |
T245:;} |
T245:;} |
528 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V51)))); |
529 |
|
goto T131; |
530 |
T131:; |
T131:; |
531 |
V44= Ct; |
V44= Ct; |
532 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
533 |
goto T248;} |
goto T248;} |
534 |
goto T126; |
goto T126; |
535 |
|
goto T248; |
536 |
T248:; |
T248:; |
537 |
if(type_of((V50))==t_cons){ |
if(type_of((V50))==t_cons){ |
538 |
goto T251;} |
goto T251;} |
539 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
540 |
|
goto T251; |
541 |
T251:; |
T251:; |
542 |
{object V92; |
{object V92; |
543 |
V92= car((V50)); |
V92= car((V50)); |
546 |
{object V91= (V51); |
{object V91= (V51); |
547 |
if((V91!= VV[73]))goto T259; |
if((V91!= VV[73]))goto T259; |
548 |
goto T132; |
goto T132; |
549 |
|
goto T259; |
550 |
T259:; |
T259:; |
551 |
if((V91!= VV[72]))goto T260; |
if((V91!= VV[72]))goto T260; |
552 |
V46= Ct; |
V46= Ct; |
553 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
554 |
goto T263;} |
goto T263;} |
555 |
goto T126; |
goto T126; |
556 |
|
goto T263; |
557 |
T263:; |
T263:; |
558 |
if(type_of((V50))==t_cons){ |
if(type_of((V50))==t_cons){ |
559 |
goto T266;} |
goto T266;} |
560 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
561 |
|
goto T266; |
562 |
T266:; |
T266:; |
563 |
{object V94; |
{object V94; |
564 |
V94= car((V50)); |
V94= car((V50)); |
567 |
{object V93= (V51); |
{object V93= (V51); |
568 |
if((V93!= VV[73]))goto T274; |
if((V93!= VV[73]))goto T274; |
569 |
goto T132; |
goto T132; |
570 |
|
goto T274; |
571 |
T274:;} |
T274:;} |
572 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V51)))); |
573 |
goto T254; |
goto T254; |
574 |
|
goto T260; |
575 |
T260:;} |
T260:;} |
576 |
|
goto T254; |
577 |
T254:; |
T254:; |
578 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
579 |
goto T275;} |
goto T275;} |
580 |
V51= make_cons((V51),Cnil); |
V51= make_cons((V51),Cnil); |
581 |
|
goto T275; |
582 |
T275:; |
T275:; |
583 |
if(!(type_of(car((V51)))==t_cons)){ |
if(!(type_of(car((V51)))==t_cons)){ |
584 |
goto T281;} |
goto T281;} |
589 |
goto T284;} |
goto T284;} |
590 |
if((cddar((V51)))==Cnil){ |
if((cddar((V51)))==Cnil){ |
591 |
goto T283;} |
goto T283;} |
592 |
|
goto T284; |
593 |
T284:; |
T284:; |
594 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
595 |
|
goto T283; |
596 |
T283:; |
T283:; |
597 |
V51= listA(3,caar((V51)),cadar((V51)),cdr((V51))); |
V51= listA(3,caar((V51)),cadar((V51)),cdr((V51))); |
598 |
goto T279; |
goto T279; |
599 |
|
goto T281; |
600 |
T281:; |
T281:; |
601 |
if(type_of(car((V51)))==t_symbol){ |
if(type_of(car((V51)))==t_symbol){ |
602 |
goto T291;} |
goto T291;} |
603 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
604 |
|
goto T291; |
605 |
T291:; |
T291:; |
606 |
base[2]= coerce_to_string(car((V51))); |
base[2]= coerce_to_string(car((V51))); |
607 |
base[3]= VV[38]; |
base[3]= VV[38]; |
610 |
vs_top=sup; |
vs_top=sup; |
611 |
V96= vs_base[0]; |
V96= vs_base[0]; |
612 |
V51= listA(3,V96,car((V51)),cdr((V51))); |
V51= listA(3,V96,car((V51)),cdr((V51))); |
613 |
|
goto T279; |
614 |
T279:; |
T279:; |
615 |
if(type_of(cddr((V51)))==t_cons){ |
if(type_of(cddr((V51)))==t_cons){ |
616 |
goto T300;} |
goto T300;} |
617 |
if((cddr((V51)))==Cnil){ |
if((cddr((V51)))==Cnil){ |
618 |
goto T302;} |
goto T302;} |
619 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
620 |
|
goto T302; |
621 |
T302:; |
T302:; |
622 |
{object V97; |
{object V97; |
623 |
V97= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55)); |
V97= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55)); |
629 |
V43= make_cons(/* INLINE-ARGS */V101,(V43)); |
V43= make_cons(/* INLINE-ARGS */V101,(V43)); |
630 |
(VV[30]->s.s_dbind)= make_cons((V97),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V97),(VV[30]->s.s_dbind)); |
631 |
goto T298;} |
goto T298;} |
632 |
|
goto T300; |
633 |
T300:; |
T300:; |
634 |
if(type_of(cdddr((V51)))==t_cons){ |
if(type_of(cdddr((V51)))==t_cons){ |
635 |
goto T312;} |
goto T312;} |
636 |
if((cdddr((V51)))==Cnil){ |
if((cdddr((V51)))==Cnil){ |
637 |
goto T314;} |
goto T314;} |
638 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
639 |
|
goto T314; |
640 |
T314:; |
T314:; |
641 |
{object V102; |
{object V102; |
642 |
object V103; |
object V103; |
650 |
V43= make_cons(/* INLINE-ARGS */V107,(V43)); |
V43= make_cons(/* INLINE-ARGS */V107,(V43)); |
651 |
(VV[30]->s.s_dbind)= make_cons((V103),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V103),(VV[30]->s.s_dbind)); |
652 |
goto T298;} |
goto T298;} |
653 |
|
goto T312; |
654 |
T312:; |
T312:; |
655 |
if((cddddr((V51)))==Cnil){ |
if((cddddr((V51)))==Cnil){ |
656 |
goto T324;} |
goto T324;} |
657 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
658 |
|
goto T324; |
659 |
T324:; |
T324:; |
660 |
{object V108; |
{object V108; |
661 |
object V109; |
object V109; |
672 |
V43= make_cons(/* INLINE-ARGS */V114,(V43)); |
V43= make_cons(/* INLINE-ARGS */V114,(V43)); |
673 |
(VV[30]->s.s_dbind)= make_cons((V109),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V109),(VV[30]->s.s_dbind)); |
674 |
(VV[30]->s.s_dbind)= make_cons((V110),(VV[30]->s.s_dbind));} |
(VV[30]->s.s_dbind)= make_cons((V110),(VV[30]->s.s_dbind));} |
675 |
|
goto T298; |
676 |
T298:; |
T298:; |
677 |
goto T131; |
goto T131; |
678 |
|
goto T132; |
679 |
T132:; |
T132:; |
680 |
V59= (VFUN_NARGS=0,(*(LnkLI85))()); |
V59= (VFUN_NARGS=0,(*(LnkLI85))()); |
681 |
|
goto T133; |
682 |
T133:; |
T133:; |
683 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
684 |
goto T340;} |
goto T340;} |
685 |
(void)((*(LnkLI94))((V58),(V59))); |
(void)((*(LnkLI94))((V58),(V59))); |
686 |
goto T126; |
goto T126; |
687 |
|
goto T340; |
688 |
T340:; |
T340:; |
689 |
if(type_of((V50))==t_cons){ |
if(type_of((V50))==t_cons){ |
690 |
goto T344;} |
goto T344;} |
691 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50)))); |
692 |
|
goto T344; |
693 |
T344:; |
T344:; |
694 |
{object V115; |
{object V115; |
695 |
V115= car((V50)); |
V115= car((V50)); |
702 |
if((cdr((V51)))==Cnil){ |
if((cdr((V51)))==Cnil){ |
703 |
goto T359;} |
goto T359;} |
704 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
705 |
|
goto T359; |
706 |
T359:; |
T359:; |
707 |
{object V116; |
{object V116; |
708 |
V116= (*(LnkLI89))(car((V51)),(V53),(V54),(V55)); |
V116= (*(LnkLI89))(car((V51)),(V53),(V54),(V55)); |
713 |
V47= make_cons((V116),(V47)); |
V47= make_cons((V116),(V47)); |
714 |
(VV[30]->s.s_dbind)= make_cons((V116),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V116),(VV[30]->s.s_dbind)); |
715 |
goto T352;} |
goto T352;} |
716 |
|
goto T357; |
717 |
T357:; |
T357:; |
718 |
if((cddr((V51)))==Cnil){ |
if((cddr((V51)))==Cnil){ |
719 |
goto T370;} |
goto T370;} |
720 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51)))); |
721 |
|
goto T370; |
722 |
T370:; |
T370:; |
723 |
{object V119; |
{object V119; |
724 |
object V120; |
object V120; |
731 |
V47= make_cons((V120),(V47)); |
V47= make_cons((V120),(V47)); |
732 |
(VV[30]->s.s_dbind)= make_cons((V120),(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons((V120),(VV[30]->s.s_dbind)); |
733 |
goto T352;} |
goto T352;} |
734 |
|
goto T354; |
735 |
T354:; |
T354:; |
736 |
{object V123; |
{object V123; |
737 |
V123= (*(LnkLI89))((V51),(V53),(V54),(V55)); |
V123= (*(LnkLI89))((V51),(V53),(V54),(V55)); |
741 |
V48= make_cons(/* INLINE-ARGS */V125,(V48)); |
V48= make_cons(/* INLINE-ARGS */V125,(V48)); |
742 |
V47= make_cons((V123),(V47)); |
V47= make_cons((V123),(V47)); |
743 |
(VV[30]->s.s_dbind)= make_cons((V123),(VV[30]->s.s_dbind));} |
(VV[30]->s.s_dbind)= make_cons((V123),(VV[30]->s.s_dbind));} |
744 |
|
goto T352; |
745 |
T352:; |
T352:; |
746 |
goto T133; |
goto T133; |
747 |
|
goto T126; |
748 |
T126:; |
T126:; |
749 |
V40= reverse((V40)); |
V40= reverse((V40)); |
750 |
V41= reverse((V41)); |
V41= reverse((V41)); |
758 |
object V127; |
object V127; |
759 |
V126= (V40); |
V126= (V40); |
760 |
V127= car((V126)); |
V127= car((V126)); |
761 |
|
goto T409; |
762 |
T409:; |
T409:; |
763 |
if(!(endp((V126)))){ |
if(!(endp((V126)))){ |
764 |
goto T410;} |
goto T410;} |
765 |
goto T405; |
goto T405; |
766 |
|
goto T410; |
767 |
T410:; |
T410:; |
768 |
(void)((*(LnkLI97))((V127))); |
(void)((*(LnkLI97))((V127))); |
769 |
V126= cdr((V126)); |
V126= cdr((V126)); |
770 |
V127= car((V126)); |
V127= car((V126)); |
771 |
goto T409;} |
goto T409;} |
772 |
|
goto T405; |
773 |
T405:; |
T405:; |
774 |
{object V128; |
{object V128; |
775 |
object V129; |
object V129; |
776 |
V128= (V41); |
V128= (V41); |
777 |
V129= car((V128)); |
V129= car((V128)); |
778 |
|
goto T424; |
779 |
T424:; |
T424:; |
780 |
if(!(endp((V128)))){ |
if(!(endp((V128)))){ |
781 |
goto T425;} |
goto T425;} |
782 |
goto T420; |
goto T420; |
783 |
|
goto T425; |
784 |
T425:; |
T425:; |
785 |
(void)((*(LnkLI97))(car((V129)))); |
(void)((*(LnkLI97))(car((V129)))); |
786 |
if((caddr((V129)))==Cnil){ |
if((caddr((V129)))==Cnil){ |
787 |
goto T430;} |
goto T430;} |
788 |
(void)((*(LnkLI97))(caddr((V129)))); |
(void)((*(LnkLI97))(caddr((V129)))); |
789 |
|
goto T430; |
790 |
T430:; |
T430:; |
791 |
V128= cdr((V128)); |
V128= cdr((V128)); |
792 |
V129= car((V128)); |
V129= car((V128)); |
793 |
goto T424;} |
goto T424;} |
794 |
|
goto T420; |
795 |
T420:; |
T420:; |
796 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
797 |
goto T438;} |
goto T438;} |
798 |
(void)((*(LnkLI97))((V42))); |
(void)((*(LnkLI97))((V42))); |
799 |
|
goto T438; |
800 |
T438:; |
T438:; |
801 |
{object V130; |
{object V130; |
802 |
object V131; |
object V131; |
803 |
V130= (V43); |
V130= (V43); |
804 |
V131= car((V130)); |
V131= car((V130)); |
805 |
|
goto T445; |
806 |
T445:; |
T445:; |
807 |
if(!(endp((V130)))){ |
if(!(endp((V130)))){ |
808 |
goto T446;} |
goto T446;} |
809 |
goto T441; |
goto T441; |
810 |
|
goto T446; |
811 |
T446:; |
T446:; |
812 |
(void)((*(LnkLI97))(cadr((V131)))); |
(void)((*(LnkLI97))(cadr((V131)))); |
813 |
if((cadddr((V131)))==Cnil){ |
if((cadddr((V131)))==Cnil){ |
814 |
goto T451;} |
goto T451;} |
815 |
(void)((*(LnkLI97))(cadddr((V131)))); |
(void)((*(LnkLI97))(cadddr((V131)))); |
816 |
|
goto T451; |
817 |
T451:; |
T451:; |
818 |
V130= cdr((V130)); |
V130= cdr((V130)); |
819 |
V131= car((V130)); |
V131= car((V130)); |
820 |
goto T445;} |
goto T445;} |
821 |
|
goto T441; |
822 |
T441:; |
T441:; |
823 |
{object V132; |
{object V132; |
824 |
object V133; |
object V133; |
825 |
V132= (V47); |
V132= (V47); |
826 |
V133= car((V132)); |
V133= car((V132)); |
827 |
|
goto T463; |
828 |
T463:; |
T463:; |
829 |
if(!(endp((V132)))){ |
if(!(endp((V132)))){ |
830 |
goto T464;} |
goto T464;} |
831 |
goto T459; |
goto T459; |
832 |
|
goto T464; |
833 |
T464:; |
T464:; |
834 |
(void)((*(LnkLI97))((V133))); |
(void)((*(LnkLI97))((V133))); |
835 |
V132= cdr((V132)); |
V132= cdr((V132)); |
836 |
V133= car((V132)); |
V133= car((V132)); |
837 |
goto T463;} |
goto T463;} |
838 |
|
goto T459; |
839 |
T459:; |
T459:; |
840 |
if(((V47))==Cnil){ |
if(((V47))==Cnil){ |
841 |
goto T474;} |
goto T474;} |
844 |
if(!(eql((V60),symbol_value(VV[31])))){ |
if(!(eql((V60),symbol_value(VV[31])))){ |
845 |
goto T480;} |
goto T480;} |
846 |
goto T474; |
goto T474; |
847 |
|
goto T480; |
848 |
T480:; |
T480:; |
849 |
(void)(structure_set((V59),VV[5],4,Ct)); |
(void)(structure_set((V59),VV[5],4,Ct)); |
850 |
|
goto T474; |
851 |
T474:; |
T474:; |
852 |
V52= (*(LnkLI98))((V40),(V52),(V38)); |
V52= (*(LnkLI98))((V40),(V52),(V38)); |
853 |
V45= list(6,(V40),(V41),(V42),(V44),(V43),(V46)); |
V45= list(6,(V40),(V41),(V42),(V44),(V43),(V46)); |
854 |
if(symbol_value(VV[42])==Cnil){ |
if(symbol_value(VV[42])==Cnil){ |
855 |
goto T486;} |
goto T486;} |
856 |
(void)((*(LnkLI99))((V45))); |
(void)((*(LnkLI99))((V45))); |
857 |
|
goto T486; |
858 |
T486:; |
T486:; |
859 |
{object V134 = list(5,VV[4],(V58),(V45),(V49),(V52)); |
{object V134 = list(5,VV[4],(V58),(V45),(V49),(V52)); |
860 |
bds_unwind1; |
bds_unwind1; |
861 |
VMR9(V134)}}} |
VMR9(V134)}} |
862 |
|
va_end(ap); |
863 |
|
base[0]=base[0]; |
864 |
|
return Cnil;} |
865 |
} |
} |
866 |
/* local entry for function FIX-DOWN-ARGS */ |
/* local entry for function FIX-DOWN-ARGS */ |
867 |
|
|
869 |
|
|
870 |
object V138;object V139;object V140; |
object V138;object V139;object V140; |
871 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
872 |
|
goto TTL; |
873 |
TTL:; |
TTL:; |
874 |
{object V141; |
{object V141; |
875 |
object V142; |
object V142; |
887 |
register object V148; |
register object V148; |
888 |
V147= (V138); |
V147= (V138); |
889 |
V148= (V145); |
V148= (V145); |
890 |
|
goto T495; |
891 |
T495:; |
T495:; |
892 |
if(((V147))!=Cnil){ |
if(((V147))!=Cnil){ |
893 |
goto T496;} |
goto T496;} |
894 |
goto T493; |
goto T493; |
895 |
|
goto T496; |
896 |
T496:; |
T496:; |
897 |
V144= car((V147)); |
V144= car((V147)); |
898 |
if(((V146))!=Cnil){ |
if(((V146))!=Cnil){ |
901 |
goto T504;} |
goto T504;} |
902 |
{object V149 = (V139); |
{object V149 = (V139); |
903 |
VMR10(V149)} |
VMR10(V149)} |
904 |
|
goto T504; |
905 |
T504:; |
T504:; |
906 |
V150= structure_ref((V144),VV[6],1); |
V150= structure_ref((V144),VV[6],1); |
907 |
if(!((/* INLINE-ARGS */V150)==(VV[8]))){ |
if(!((/* INLINE-ARGS */V150)==(VV[8]))){ |
918 |
goto T514;} |
goto T514;} |
919 |
V143= (VFUN_NARGS=0,(*(LnkLI85))()); |
V143= (VFUN_NARGS=0,(*(LnkLI85))()); |
920 |
V155= (V143); |
V155= (V143); |
921 |
|
goto T514; |
922 |
T514:; |
T514:; |
923 |
V153= list(3,VV[6],V155,list(2,(V152),Cnil)); |
V153= list(3,VV[6],V155,list(2,(V152),Cnil)); |
924 |
V141= make_cons((V144),(V141)); |
V141= make_cons((V144),(V141)); |
933 |
V159= make_cons((V152),/* INLINE-ARGS */V160); |
V159= make_cons((V152),/* INLINE-ARGS */V160); |
934 |
(void)(structure_set((V158),VV[5],1,(V159)));} |
(void)(structure_set((V158),VV[5],1,(V159)));} |
935 |
V142= make_cons((V153),(V142));} |
V142= make_cons((V153),(V142));} |
936 |
|
goto T502; |
937 |
T502:; |
T502:; |
938 |
V147= cdr((V147)); |
V147= cdr((V147)); |
939 |
V148= cdr((V148)); |
V148= cdr((V148)); |
940 |
goto T495;} |
goto T495;} |
941 |
|
goto T493; |
942 |
T493:; |
T493:; |
943 |
if(((V141))==Cnil){ |
if(((V141))==Cnil){ |
944 |
goto T530;} |
goto T530;} |
945 |
{object V161 = list(5,VV[41],(V143),(V141),(V142),(V139)); |
{object V161 = list(5,VV[41],(V143),(V141),(V142),(V139)); |
946 |
VMR10(V161)} |
VMR10(V161)} |
947 |
|
goto T530; |
948 |
T530:; |
T530:; |
949 |
{object V162 = (V139); |
{object V162 = (V139); |
950 |
VMR10(V162)}}} |
VMR10(V162)}}} |
951 |
|
base[0]=base[0]; |
952 |
|
return Cnil; |
953 |
} |
} |
954 |
/* local entry for function THE-PARAMETER */ |
/* local entry for function THE-PARAMETER */ |
955 |
|
|
957 |
|
|
958 |
register object V164; |
register object V164; |
959 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
960 |
|
goto TTL; |
961 |
TTL:; |
TTL:; |
962 |
if(type_of((V164))==t_symbol){ |
if(type_of((V164))==t_symbol){ |
963 |
goto T532;} |
goto T532;} |
964 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V164)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V164)))); |
965 |
|
goto T532; |
966 |
T532:; |
T532:; |
967 |
base[0]= (V164); |
base[0]= (V164); |
968 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
971 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
972 |
goto T535;} |
goto T535;} |
973 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V164)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V164)))); |
974 |
|
goto T535; |
975 |
T535:; |
T535:; |
976 |
{object V165 = (V164); |
{object V165 = (V164); |
977 |
VMR11(V165)} |
VMR11(V165)} |
978 |
|
base[0]=base[0]; |
979 |
|
return Cnil; |
980 |
} |
} |
981 |
/* local entry for function C2LAMBDA-EXPR */ |
/* local entry for function C2LAMBDA-EXPR */ |
982 |
|
|
991 |
object V169; |
object V169; |
992 |
object V170; |
object V170; |
993 |
object V171; |
object V171; |
994 |
|
Vcs[0]=Vcs[0]; |
995 |
|
va_start(ap); |
996 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
997 |
V168= V167; |
V168= V167; |
998 |
V169= V166; |
V169= V166; |
999 |
narg = narg - 2; |
narg = narg - 2; |
1000 |
if (narg <= 0) goto T539; |
if (narg <= 0) goto T539; |
1001 |
else { |
else { |
|
va_start(ap); |
|
1002 |
V170= va_arg(ap,object);} |
V170= va_arg(ap,object);} |
1003 |
V171= Ct; |
V171= Ct; |
1004 |
--narg; goto T540; |
--narg; goto T540; |
1005 |
|
goto T539; |
1006 |
T539:; |
T539:; |
1007 |
V170= Cnil; |
V170= Cnil; |
1008 |
V171= Cnil; |
V171= Cnil; |
1009 |
|
goto T540; |
1010 |
T540:; |
T540:; |
1011 |
if((symbol_value(VV[49]))==Cnil){ |
if((symbol_value(VV[49]))==Cnil){ |
1012 |
goto T544;} |
goto T544;} |
1016 |
register object V173; |
register object V173; |
1017 |
V172= car((V168)); |
V172= car((V168)); |
1018 |
V173= car((V172)); |
V173= car((V172)); |
1019 |
|
goto T554; |
1020 |
T554:; |
T554:; |
1021 |
if(!(endp((V172)))){ |
if(!(endp((V172)))){ |
1022 |
goto T555;} |
goto T555;} |
1023 |
goto T550; |
goto T550; |
1024 |
|
goto T555; |
1025 |
T555:; |
T555:; |
1026 |
if((structure_ref((V173),VV[6],3))==Cnil){ |
if((structure_ref((V173),VV[6],3))==Cnil){ |
1027 |
goto T559;} |
goto T559;} |
1028 |
goto T544; |
goto T544; |
1029 |
|
goto T559; |
1030 |
T559:; |
T559:; |
1031 |
V172= cdr((V172)); |
V172= cdr((V172)); |
1032 |
V173= car((V172)); |
V173= car((V172)); |
1033 |
goto T554;} |
goto T554;} |
1034 |
|
goto T550; |
1035 |
T550:; |
T550:; |
1036 |
if((cadr((V168)))!=Cnil){ |
if((cadr((V168)))!=Cnil){ |
1037 |
goto T544;} |
goto T544;} |
1041 |
goto T544;} |
goto T544;} |
1042 |
base[0]= make_cons((V170),car((V168))); |
base[0]= make_cons((V170),car((V168))); |
1043 |
goto T542; |
goto T542; |
1044 |
|
goto T544; |
1045 |
T544:; |
T544:; |
1046 |
base[0]= Cnil; |
base[0]= Cnil; |
1047 |
|
goto T542; |
1048 |
T542:; |
T542:; |
1049 |
bds_bind(VV[48],base[0]); |
bds_bind(VV[48],base[0]); |
1050 |
if((caddr((V168)))==Cnil){ |
if((caddr((V168)))==Cnil){ |
1054 |
goto T574;} |
goto T574;} |
1055 |
base[1]= Ct; |
base[1]= Ct; |
1056 |
goto T572; |
goto T572; |
1057 |
|
goto T574; |
1058 |
T574:; |
T574:; |
1059 |
base[1]= symbol_value(VV[50]); |
base[1]= symbol_value(VV[50]); |
1060 |
|
goto T572; |
1061 |
T572:; |
T572:; |
1062 |
bds_bind(VV[50],base[1]); |
bds_bind(VV[50],base[1]); |
1063 |
if((cadddr((V168)))==Cnil){ |
if((cadddr((V168)))==Cnil){ |
1066 |
bds_unwind1; |
bds_unwind1; |
1067 |
bds_unwind1; |
bds_unwind1; |
1068 |
VMR12(V175)} |
VMR12(V175)} |
1069 |
|
goto T579; |
1070 |
T579:; |
T579:; |
1071 |
{object V176 = (*(LnkLI101))((V168),(V169)); |
{object V176 = (*(LnkLI101))((V168),(V169)); |
1072 |
bds_unwind1; |
bds_unwind1; |
1073 |
bds_unwind1; |
bds_unwind1; |
1074 |
VMR12(V176)}} |
VMR12(V176)} |
1075 |
|
va_end(ap); |
1076 |
|
base[0]=base[0]; |
1077 |
|
return Cnil;} |
1078 |
} |
} |
1079 |
/* local entry for function C2LAMBDA-EXPR-WITHOUT-KEY */ |
/* local entry for function C2LAMBDA-EXPR-WITHOUT-KEY */ |
1080 |
|
|
1083 |
object V179;object V180; |
object V179;object V180; |
1084 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1085 |
bds_check; |
bds_check; |
1086 |
|
goto TTL; |
1087 |
TTL:; |
TTL:; |
1088 |
{object V181; |
{object V181; |
1089 |
object V182; |
object V182; |
1102 |
object V186; |
object V186; |
1103 |
V185= (V181); |
V185= (V181); |
1104 |
V186= car((V185)); |
V186= car((V185)); |
1105 |
|
goto T590; |
1106 |
T590:; |
T590:; |
1107 |
if(!(endp((V185)))){ |
if(!(endp((V185)))){ |
1108 |
goto T591;} |
goto T591;} |
1109 |
goto T586; |
goto T586; |
1110 |
|
goto T591; |
1111 |
T591:; |
T591:; |
1112 |
base[9]= (V186); |
base[9]= (V186); |
1113 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1116 |
V185= cdr((V185)); |
V185= cdr((V185)); |
1117 |
V186= car((V185)); |
V186= car((V185)); |
1118 |
goto T590;} |
goto T590;} |
1119 |
|
goto T586; |
1120 |
T586:; |
T586:; |
1121 |
{register object V187; |
{register object V187; |
1122 |
object V188; |
object V188; |
1123 |
V187= (V182); |
V187= (V182); |
1124 |
V188= car((V187)); |
V188= car((V187)); |
1125 |
|
goto T606; |
1126 |
T606:; |
T606:; |
1127 |
if(!(endp((V187)))){ |
if(!(endp((V187)))){ |
1128 |
goto T607;} |
goto T607;} |
1129 |
goto T602; |
goto T602; |
1130 |
|
goto T607; |
1131 |
T607:; |
T607:; |
1132 |
base[9]= car((V188)); |
base[9]= car((V188)); |
1133 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1139 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1140 |
L14(base); |
L14(base); |
1141 |
vs_top=sup; |
vs_top=sup; |
1142 |
|
goto T613; |
1143 |
T613:; |
T613:; |
1144 |
V187= cdr((V187)); |
V187= cdr((V187)); |
1145 |
V188= car((V187)); |
V188= car((V187)); |
1146 |
goto T606;} |
goto T606;} |
1147 |
|
goto T602; |
1148 |
T602:; |
T602:; |
1149 |
if(((V183))==Cnil){ |
if(((V183))==Cnil){ |
1150 |
goto T585;} |
goto T585;} |
1152 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1153 |
L14(base); |
L14(base); |
1154 |
vs_top=sup; |
vs_top=sup; |
1155 |
|
goto T585; |
1156 |
T585:; |
T585:; |
1157 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
1158 |
goto T626;} |
goto T626;} |
1159 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
1160 |
goto T625;} |
goto T625;} |
1161 |
|
goto T626; |
1162 |
T626:; |
T626:; |
1163 |
if(((V183))!=Cnil){ |
if(((V183))!=Cnil){ |
1164 |
goto T630;} |
goto T630;} |
1165 |
if(((V182))==Cnil){ |
if(((V182))==Cnil){ |
1166 |
goto T631;} |
goto T631;} |
1167 |
|
goto T630; |
1168 |
T630:; |
T630:; |
1169 |
if(((V181))==Cnil){ |
if(((V181))==Cnil){ |
1170 |
goto T635;} |
goto T635;} |
1172 |
V189 = make_fixnum(length((V181))); |
V189 = make_fixnum(length((V181))); |
1173 |
(void)((*(LnkLI80))(V189)); |
(void)((*(LnkLI80))(V189)); |
1174 |
princ_str(") too_few_arguments();",VV[10]); |
princ_str(") too_few_arguments();",VV[10]); |
1175 |
|
goto T635; |
1176 |
T635:; |
T635:; |
1177 |
if(((V183))!=Cnil){ |
if(((V183))!=Cnil){ |
1178 |
goto T625;} |
goto T625;} |
1183 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V192)); |
(void)((*(LnkLI80))(/* INLINE-ARGS */V192)); |
1184 |
princ_str(") too_many_arguments();",VV[10]); |
princ_str(") too_many_arguments();",VV[10]); |
1185 |
goto T625; |
goto T625; |
1186 |
|
goto T631; |
1187 |
T631:; |
T631:; |
1188 |
princ_str("\n check_arg(",VV[10]); |
princ_str("\n check_arg(",VV[10]); |
1189 |
V193 = make_fixnum(length((V181))); |
V193 = make_fixnum(length((V181))); |
1190 |
(void)((*(LnkLI80))(V193)); |
(void)((*(LnkLI80))(V193)); |
1191 |
princ_str(");",VV[10]); |
princ_str(");",VV[10]); |
1192 |
|
goto T625; |
1193 |
T625:; |
T625:; |
1194 |
{register object V194; |
{register object V194; |
1195 |
object V195; |
object V195; |
1196 |
V194= (V181); |
V194= (V181); |
1197 |
V195= car((V194)); |
V195= car((V194)); |
1198 |
|
goto T653; |
1199 |
T653:; |
T653:; |
1200 |
if(!(endp((V194)))){ |
if(!(endp((V194)))){ |
1201 |
goto T654;} |
goto T654;} |
1202 |
goto T649; |
goto T649; |
1203 |
|
goto T654; |
1204 |
T654:; |
T654:; |
1205 |
V196= (*(LnkLI102))(); |
V196= (*(LnkLI102))(); |
1206 |
(void)(structure_set((V195),VV[6],2,/* INLINE-ARGS */V196)); |
(void)(structure_set((V195),VV[6],2,/* INLINE-ARGS */V196)); |
1207 |
V194= cdr((V194)); |
V194= cdr((V194)); |
1208 |
V195= car((V194)); |
V195= car((V194)); |
1209 |
goto T653;} |
goto T653;} |
1210 |
|
goto T649; |
1211 |
T649:; |
T649:; |
1212 |
{register object V197; |
{register object V197; |
1213 |
object V198; |
object V198; |
1214 |
V197= (V182); |
V197= (V182); |
1215 |
V198= car((V197)); |
V198= car((V197)); |
1216 |
|
goto T668; |
1217 |
T668:; |
T668:; |
1218 |
if(!(endp((V197)))){ |
if(!(endp((V197)))){ |
1219 |
goto T669;} |
goto T669;} |
1220 |
goto T664; |
goto T664; |
1221 |
|
goto T669; |
1222 |
T669:; |
T669:; |
1223 |
V199= car((V198)); |
V199= car((V198)); |
1224 |
V200= (*(LnkLI102))(); |
V200= (*(LnkLI102))(); |
1226 |
V197= cdr((V197)); |
V197= cdr((V197)); |
1227 |
V198= car((V197)); |
V198= car((V197)); |
1228 |
goto T668;} |
goto T668;} |
1229 |
|
goto T664; |
1230 |
T664:; |
T664:; |
1231 |
if(((V183))==Cnil){ |
if(((V183))==Cnil){ |
1232 |
goto T679;} |
goto T679;} |
1233 |
V201= (*(LnkLI102))(); |
V201= (*(LnkLI102))(); |
1234 |
(void)(structure_set((V183),VV[6],2,/* INLINE-ARGS */V201)); |
(void)(structure_set((V183),VV[6],2,/* INLINE-ARGS */V201)); |
1235 |
|
goto T679; |
1236 |
T679:; |
T679:; |
1237 |
{register object V202; |
{register object V202; |
1238 |
object V203; |
object V203; |
1239 |
V202= (V182); |
V202= (V182); |
1240 |
V203= car((V202)); |
V203= car((V202)); |
1241 |
|
goto T686; |
1242 |
T686:; |
T686:; |
1243 |
if(!(endp((V202)))){ |
if(!(endp((V202)))){ |
1244 |
goto T687;} |
goto T687;} |
1245 |
goto T682; |
goto T682; |
1246 |
|
goto T687; |
1247 |
T687:; |
T687:; |
1248 |
if((caddr((V203)))==Cnil){ |
if((caddr((V203)))==Cnil){ |
1249 |
goto T691;} |
goto T691;} |
1250 |
V204= caddr((V203)); |
V204= caddr((V203)); |
1251 |
V205= (*(LnkLI102))(); |
V205= (*(LnkLI102))(); |
1252 |
(void)(structure_set(/* INLINE-ARGS */V204,VV[6],2,/* INLINE-ARGS */V205)); |
(void)(structure_set(/* INLINE-ARGS */V204,VV[6],2,/* INLINE-ARGS */V205)); |
1253 |
|
goto T691; |
1254 |
T691:; |
T691:; |
1255 |
V202= cdr((V202)); |
V202= cdr((V202)); |
1256 |
V203= car((V202)); |
V203= car((V202)); |
1257 |
goto T686;} |
goto T686;} |
1258 |
|
goto T682; |
1259 |
T682:; |
T682:; |
1260 |
{register object V206; |
{register object V206; |
1261 |
object V207; |
object V207; |
1262 |
V206= (V181); |
V206= (V181); |
1263 |
V207= car((V206)); |
V207= car((V206)); |
1264 |
|
goto T703; |
1265 |
T703:; |
T703:; |
1266 |
if(!(endp((V206)))){ |
if(!(endp((V206)))){ |
1267 |
goto T704;} |
goto T704;} |
1268 |
goto T699; |
goto T699; |
1269 |
|
goto T704; |
1270 |
T704:; |
T704:; |
1271 |
(void)((*(LnkLI103))((V207))); |
(void)((*(LnkLI103))((V207))); |
1272 |
V206= cdr((V206)); |
V206= cdr((V206)); |
1273 |
V207= car((V206)); |
V207= car((V206)); |
1274 |
goto T703;} |
goto T703;} |
1275 |
|
goto T699; |
1276 |
T699:; |
T699:; |
1277 |
if(((V182))!=Cnil){ |
if(((V182))!=Cnil){ |
1278 |
goto T716;} |
goto T716;} |
1279 |
if(((V183))==Cnil){ |
if(((V183))==Cnil){ |
1280 |
goto T714;} |
goto T714;} |
1281 |
|
goto T716; |
1282 |
T716:; |
T716:; |
1283 |
if(((V181))==Cnil){ |
if(((V181))==Cnil){ |
1284 |
goto T714;} |
goto T714;} |
1286 |
V208 = make_fixnum(length((V181))); |
V208 = make_fixnum(length((V181))); |
1287 |
(void)((*(LnkLI80))(V208)); |
(void)((*(LnkLI80))(V208)); |
1288 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1289 |
|
goto T714; |
1290 |
T714:; |
T714:; |
1291 |
if(((V182))==Cnil){ |
if(((V182))==Cnil){ |
1292 |
goto T726;} |
goto T726;} |
1301 |
(void)((*(LnkLI80))(V209)); |
(void)((*(LnkLI80))(V209)); |
1302 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1303 |
princ_str("\n for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]); |
princ_str("\n for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]); |
1304 |
|
goto T729; |
1305 |
T729:; |
T729:; |
1306 |
{register object V210; |
{register object V210; |
1307 |
V210= (V182); |
V210= (V182); |
1308 |
|
goto T741; |
1309 |
T741:; |
T741:; |
1310 |
if(!(endp((V210)))){ |
if(!(endp((V210)))){ |
1311 |
goto T742;} |
goto T742;} |
1312 |
goto T739; |
goto T739; |
1313 |
|
goto T742; |
1314 |
T742:; |
T742:; |
1315 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
1316 |
V211= make_cons(symbol_value(VV[57]),Cnil); |
V211= make_cons(symbol_value(VV[57]),Cnil); |
1328 |
if((caddar((V210)))==Cnil){ |
if((caddar((V210)))==Cnil){ |
1329 |
goto T760;} |
goto T760;} |
1330 |
(void)((*(LnkLI105))(caddar((V210)),Ct)); |
(void)((*(LnkLI105))(caddar((V210)),Ct)); |
1331 |
|
goto T760; |
1332 |
T760:; |
T760:; |
1333 |
if((cdr((V210)))==Cnil){ |
if((cdr((V210)))==Cnil){ |
1334 |
goto T763;} |
goto T763;} |
1335 |
princ_str("\n vs_base++;",VV[10]); |
princ_str("\n vs_base++;",VV[10]); |
1336 |
|
goto T763; |
1337 |
T763:; |
T763:; |
1338 |
V210= cdr((V210)); |
V210= cdr((V210)); |
1339 |
goto T741;} |
goto T741;} |
1340 |
|
goto T739; |
1341 |
T739:; |
T739:; |
1342 |
if(((V183))==Cnil){ |
if(((V183))==Cnil){ |
1343 |
bds_unwind1; |
bds_unwind1; |
1348 |
bds_unwind1; |
bds_unwind1; |
1349 |
bds_unwind1; |
bds_unwind1; |
1350 |
bds_unwind1; |
bds_unwind1; |
1351 |
|
goto T728; |
1352 |
T728:; |
T728:; |
1353 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1354 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI104))()); |
1366 |
register object V215; |
register object V215; |
1367 |
V214= (V182); |
V214= (V182); |
1368 |
V215= car((V214)); |
V215= car((V214)); |
1369 |
|
goto T788; |
1370 |
T788:; |
T788:; |
1371 |
if(!(endp((V214)))){ |
if(!(endp((V214)))){ |
1372 |
goto T789;} |
goto T789;} |
1373 |
goto T784; |
goto T784; |
1374 |
|
goto T789; |
1375 |
T789:; |
T789:; |
1376 |
if((cdr(car((V184))))==Cnil){ |
if((cdr(car((V184))))==Cnil){ |
1377 |
goto T793;} |
goto T793;} |
1378 |
|
princ_str("\ngoto T",VV[10]); |
1379 |
|
(void)((*(LnkLI80))(car(car((V184))))); |
1380 |
|
princ_char(59,VV[10]); |
1381 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1382 |
(void)((*(LnkLI80))(car(car((V184))))); |
(void)((*(LnkLI80))(car(car((V184))))); |
1383 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1384 |
|
goto T793; |
1385 |
T793:; |
T793:; |
1386 |
{object V216; |
{object V216; |
1387 |
V216= car((V184)); |
V216= car((V184)); |
1388 |
V184= cdr((V184));} |
V184= cdr((V184));} |
1389 |
(void)((*(LnkLI106))(car((V215)),cadr((V215)))); |
(void)((*(LnkLI106))(car((V215)),cadr((V215)))); |
1390 |
if((caddr((V215)))==Cnil){ |
if((caddr((V215)))==Cnil){ |
1391 |
goto T804;} |
goto T808;} |
1392 |
(void)((*(LnkLI105))(caddr((V215)),Cnil)); |
(void)((*(LnkLI105))(caddr((V215)),Cnil)); |
1393 |
T804:; |
goto T808; |
1394 |
|
T808:; |
1395 |
V214= cdr((V214)); |
V214= cdr((V214)); |
1396 |
V215= car((V214)); |
V215= car((V214)); |
1397 |
goto T788;} |
goto T788;} |
1398 |
|
goto T784; |
1399 |
T784:; |
T784:; |
1400 |
if(((V183))==Cnil){ |
if(((V183))==Cnil){ |
1401 |
goto T812;} |
goto T816;} |
1402 |
(void)((*(LnkLI105))((V183),Cnil)); |
(void)((*(LnkLI105))((V183),Cnil)); |
1403 |
T812:; |
goto T816; |
1404 |
|
T816:; |
1405 |
if((cdr((V213)))==Cnil){ |
if((cdr((V213)))==Cnil){ |
1406 |
goto T724;} |
goto T724;} |
1407 |
|
princ_str("\ngoto T",VV[10]); |
1408 |
|
(void)((*(LnkLI80))(car((V213)))); |
1409 |
|
princ_char(59,VV[10]); |
1410 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1411 |
(void)((*(LnkLI80))(car((V213)))); |
(void)((*(LnkLI80))(car((V213)))); |
1412 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1413 |
goto T724;} |
goto T724;} |
1414 |
|
goto T726; |
1415 |
T726:; |
T726:; |
1416 |
if(((V183))==Cnil){ |
if(((V183))==Cnil){ |
1417 |
goto T821;} |
goto T829;} |
1418 |
princ_str("\n vs_top[0]=Cnil;",VV[10]); |
princ_str("\n vs_top[0]=Cnil;",VV[10]); |
1419 |
princ_str("\n {object *p=vs_top;",VV[10]); |
princ_str("\n {object *p=vs_top;",VV[10]); |
1420 |
princ_str("\n for(;p>vs_base;p--)p[-1]=",VV[10]); |
princ_str("\n for(;p>vs_base;p--)p[-1]=",VV[10]); |
1421 |
if((symbol_value(VV[50]))==Cnil){ |
if((symbol_value(VV[50]))==Cnil){ |
1422 |
goto T832;} |
goto T840;} |
1423 |
V217= VV[58]; |
V217= VV[58]; |
1424 |
goto T830; |
goto T838; |
1425 |
T832:; |
goto T840; |
1426 |
|
T840:; |
1427 |
V217= VV[59]; |
V217= VV[59]; |
1428 |
T830:; |
goto T838; |
1429 |
|
T838:; |
1430 |
(void)((*(LnkLI80))(V217)); |
(void)((*(LnkLI80))(V217)); |
1431 |
princ_str("(p[-1],p[0]);}",VV[10]); |
princ_str("(p[-1],p[0]);}",VV[10]); |
1432 |
(void)((*(LnkLI103))((V183))); |
(void)((*(LnkLI103))((V183))); |
1433 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1434 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI104))()); |
1435 |
goto T724; |
goto T724; |
1436 |
T821:; |
goto T829; |
1437 |
|
T829:; |
1438 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1439 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI104))()); |
1440 |
|
goto T724; |
1441 |
T724:; |
T724:; |
1442 |
if((symbol_value(VV[48]))==Cnil){ |
if((symbol_value(VV[48]))==Cnil){ |
1443 |
goto T838;} |
goto T846;} |
1444 |
(VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind)); |
(VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind)); |
1445 |
|
princ_str("\ngoto TTL;",VV[10]); |
1446 |
princ_str("\nTTL:;",VV[10]); |
princ_str("\nTTL:;",VV[10]); |
1447 |
T838:; |
goto T846; |
1448 |
|
T846:; |
1449 |
base[8]= (V180); |
base[8]= (V180); |
1450 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1451 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1452 |
vs_top=sup; |
vs_top=sup; |
1453 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
1454 |
goto T847;} |
goto T857;} |
1455 |
princ_str("\n }",VV[10]); |
princ_str("\n }",VV[10]); |
1456 |
{object V218 = Cnil; |
{object V218 = Cnil; |
1457 |
bds_unwind1; |
bds_unwind1; |
1459 |
bds_unwind1; |
bds_unwind1; |
1460 |
bds_unwind1; |
bds_unwind1; |
1461 |
VMR13(V218)} |
VMR13(V218)} |
1462 |
T847:; |
goto T857; |
1463 |
|
T857:; |
1464 |
{object V219 = Cnil; |
{object V219 = Cnil; |
1465 |
bds_unwind1; |
bds_unwind1; |
1466 |
bds_unwind1; |
bds_unwind1; |
1467 |
bds_unwind1; |
bds_unwind1; |
1468 |
bds_unwind1; |
bds_unwind1; |
1469 |
VMR13(V219)}} |
VMR13(V219)}} |
1470 |
|
base[0]=base[0]; |
1471 |
|
return Cnil; |
1472 |
} |
} |
1473 |
/* local entry for function C2LAMBDA-EXPR-WITH-KEY */ |
/* local entry for function C2LAMBDA-EXPR-WITH-KEY */ |
1474 |
|
|
1477 |
object V222;object V223; |
object V222;object V223; |
1478 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1479 |
bds_check; |
bds_check; |
1480 |
|
goto TTL; |
1481 |
TTL:; |
TTL:; |
1482 |
{object V224; |
{object V224; |
1483 |
object V225; |
object V225; |
1500 |
object V231; |
object V231; |
1501 |
V230= (V224); |
V230= (V224); |
1502 |
V231= car((V230)); |
V231= car((V230)); |
1503 |
T861:; |
goto T871; |
1504 |
|
T871:; |
1505 |
if(!(endp((V230)))){ |
if(!(endp((V230)))){ |
1506 |
goto T862;} |
goto T872;} |
1507 |
goto T857; |
goto T867; |
1508 |
T862:; |
goto T872; |
1509 |
|
T872:; |
1510 |
base[11]= (V231); |
base[11]= (V231); |
1511 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1512 |
L16(base); |
L16(base); |
1513 |
vs_top=sup; |
vs_top=sup; |
1514 |
V230= cdr((V230)); |
V230= cdr((V230)); |
1515 |
V231= car((V230)); |
V231= car((V230)); |
1516 |
goto T861;} |
goto T871;} |
1517 |
T857:; |
goto T867; |
1518 |
|
T867:; |
1519 |
{register object V232; |
{register object V232; |
1520 |
object V233; |
object V233; |
1521 |
V232= (V225); |
V232= (V225); |
1522 |
V233= car((V232)); |
V233= car((V232)); |
1523 |
T877:; |
goto T887; |
1524 |
|
T887:; |
1525 |
if(!(endp((V232)))){ |
if(!(endp((V232)))){ |
1526 |
goto T878;} |
goto T888;} |
1527 |
goto T873; |
goto T883; |
1528 |
T878:; |
goto T888; |
1529 |
|
T888:; |
1530 |
base[11]= car((V233)); |
base[11]= car((V233)); |
1531 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1532 |
L16(base); |
L16(base); |
1533 |
vs_top=sup; |
vs_top=sup; |
1534 |
if((caddr((V233)))==Cnil){ |
if((caddr((V233)))==Cnil){ |
1535 |
goto T884;} |
goto T894;} |
1536 |
base[11]= caddr((V233)); |
base[11]= caddr((V233)); |
1537 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1538 |
L16(base); |
L16(base); |
1539 |
vs_top=sup; |
vs_top=sup; |
1540 |
T884:; |
goto T894; |
1541 |
|
T894:; |
1542 |
V232= cdr((V232)); |
V232= cdr((V232)); |
1543 |
V233= car((V232)); |
V233= car((V232)); |
1544 |
goto T877;} |
goto T887;} |
1545 |
T873:; |
goto T883; |
1546 |
|
T883:; |
1547 |
if(((V226))==Cnil){ |
if(((V226))==Cnil){ |
1548 |
goto T893;} |
goto T903;} |
1549 |
base[10]= (V226); |
base[10]= (V226); |
1550 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1551 |
L16(base); |
L16(base); |
1552 |
vs_top=sup; |
vs_top=sup; |
1553 |
T893:; |
goto T903; |
1554 |
|
T903:; |
1555 |
{register object V234; |
{register object V234; |
1556 |
object V235; |
object V235; |
1557 |
V234= (V227); |
V234= (V227); |
1558 |
V235= car((V234)); |
V235= car((V234)); |
1559 |
T900:; |
goto T910; |
1560 |
|
T910:; |
1561 |
if(!(endp((V234)))){ |
if(!(endp((V234)))){ |
1562 |
goto T901;} |
goto T911;} |
1563 |
goto T856; |
goto T866; |
1564 |
T901:; |
goto T911; |
1565 |
|
T911:; |
1566 |
base[11]= cadr((V235)); |
base[11]= cadr((V235)); |
1567 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1568 |
L16(base); |
L16(base); |
1569 |
vs_top=sup; |
vs_top=sup; |
1570 |
if((cadddr((V235)))==Cnil){ |
if((cadddr((V235)))==Cnil){ |
1571 |
goto T907;} |
goto T917;} |
1572 |
base[11]= cadddr((V235)); |
base[11]= cadddr((V235)); |
1573 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1574 |
L16(base); |
L16(base); |
1575 |
vs_top=sup; |
vs_top=sup; |
1576 |
T907:; |
goto T917; |
1577 |
|
T917:; |
1578 |
V234= cdr((V234)); |
V234= cdr((V234)); |
1579 |
V235= car((V234)); |
V235= car((V234)); |
1580 |
goto T900;} |
goto T910;} |
1581 |
T856:; |
goto T866; |
1582 |
|
T866:; |
1583 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
1584 |
goto T918;} |
goto T928;} |
1585 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
1586 |
goto T916;} |
goto T926;} |
1587 |
T918:; |
goto T928; |
1588 |
|
T928:; |
1589 |
if(((V224))==Cnil){ |
if(((V224))==Cnil){ |
1590 |
goto T916;} |
goto T926;} |
1591 |
if(((V224))==Cnil){ |
if(((V224))==Cnil){ |
1592 |
goto T916;} |
goto T926;} |
1593 |
princ_str("\n if(vs_top-vs_base<",VV[10]); |
princ_str("\n if(vs_top-vs_base<",VV[10]); |
1594 |
V236 = make_fixnum(length((V224))); |
V236 = make_fixnum(length((V224))); |
1595 |
(void)((*(LnkLI80))(V236)); |
(void)((*(LnkLI80))(V236)); |
1596 |
princ_str(") too_few_arguments();",VV[10]); |
princ_str(") too_few_arguments();",VV[10]); |
1597 |
T916:; |
goto T926; |
1598 |
|
T926:; |
1599 |
{register object V237; |
{register object V237; |
1600 |
object V238; |
object V238; |
1601 |
V237= (V224); |
V237= (V224); |
1602 |
V238= car((V237)); |
V238= car((V237)); |
1603 |
T932:; |
goto T942; |
1604 |
|
T942:; |
1605 |
if(!(endp((V237)))){ |
if(!(endp((V237)))){ |
1606 |
goto T933;} |
goto T943;} |
1607 |
goto T928; |
goto T938; |
1608 |
T933:; |
goto T943; |
1609 |
|
T943:; |
1610 |
V239= (*(LnkLI102))(); |
V239= (*(LnkLI102))(); |
1611 |
(void)(structure_set((V238),VV[6],2,/* INLINE-ARGS */V239)); |
(void)(structure_set((V238),VV[6],2,/* INLINE-ARGS */V239)); |
1612 |
V237= cdr((V237)); |
V237= cdr((V237)); |
1613 |
V238= car((V237)); |
V238= car((V237)); |
1614 |
goto T932;} |
goto T942;} |
1615 |
T928:; |
goto T938; |
1616 |
|
T938:; |
1617 |
{register object V240; |
{register object V240; |
1618 |
object V241; |
object V241; |
1619 |
V240= (V225); |
V240= (V225); |
1620 |
V241= car((V240)); |
V241= car((V240)); |
1621 |
T947:; |
goto T957; |
1622 |
|
T957:; |
1623 |
if(!(endp((V240)))){ |
if(!(endp((V240)))){ |
1624 |
goto T948;} |
goto T958;} |
1625 |
goto T943; |
goto T953; |
1626 |
T948:; |
goto T958; |
1627 |
|
T958:; |
1628 |
V242= car((V241)); |
V242= car((V241)); |
1629 |
V243= (*(LnkLI102))(); |
V243= (*(LnkLI102))(); |
1630 |
(void)(structure_set(/* INLINE-ARGS */V242,VV[6],2,/* INLINE-ARGS */V243)); |
(void)(structure_set(/* INLINE-ARGS */V242,VV[6],2,/* INLINE-ARGS */V243)); |
1631 |
V240= cdr((V240)); |
V240= cdr((V240)); |
1632 |
V241= car((V240)); |
V241= car((V240)); |
1633 |
goto T947;} |
goto T957;} |
1634 |
T943:; |
goto T953; |
1635 |
|
T953:; |
1636 |
if(((V226))==Cnil){ |
if(((V226))==Cnil){ |
1637 |
goto T958;} |
goto T968;} |
1638 |
V244= (*(LnkLI102))(); |
V244= (*(LnkLI102))(); |
1639 |
(void)(structure_set((V226),VV[6],2,/* INLINE-ARGS */V244)); |
(void)(structure_set((V226),VV[6],2,/* INLINE-ARGS */V244)); |
1640 |
T958:; |
goto T968; |
1641 |
|
T968:; |
1642 |
{register object V245; |
{register object V245; |
1643 |
object V246; |
object V246; |
1644 |
V245= (V227); |
V245= (V227); |
1645 |
V246= car((V245)); |
V246= car((V245)); |
1646 |
T965:; |
goto T975; |
1647 |
|
T975:; |
1648 |
if(!(endp((V245)))){ |
if(!(endp((V245)))){ |
1649 |
goto T966;} |
goto T976;} |
1650 |
goto T961; |
goto T971; |
1651 |
T966:; |
goto T976; |
1652 |
|
T976:; |
1653 |
V247= cadr((V246)); |
V247= cadr((V246)); |
1654 |
V248= (*(LnkLI102))(); |
V248= (*(LnkLI102))(); |
1655 |
(void)(structure_set(/* INLINE-ARGS */V247,VV[6],2,/* INLINE-ARGS */V248)); |
(void)(structure_set(/* INLINE-ARGS */V247,VV[6],2,/* INLINE-ARGS */V248)); |
1656 |
V245= cdr((V245)); |
V245= cdr((V245)); |
1657 |
V246= car((V245)); |
V246= car((V245)); |
1658 |
goto T965;} |
goto T975;} |
1659 |
T961:; |
goto T971; |
1660 |
|
T971:; |
1661 |
{register object V249; |
{register object V249; |
1662 |
object V250; |
object V250; |
1663 |
V249= (V227); |
V249= (V227); |
1664 |
V250= car((V249)); |
V250= car((V249)); |
1665 |
T980:; |
goto T990; |
1666 |
|
T990:; |
1667 |
if(!(endp((V249)))){ |
if(!(endp((V249)))){ |
1668 |
goto T981;} |
goto T991;} |
1669 |
goto T976; |
goto T986; |
1670 |
T981:; |
goto T991; |
1671 |
|
T991:; |
1672 |
V251= cadddr((V250)); |
V251= cadddr((V250)); |
1673 |
V252= (*(LnkLI102))(); |
V252= (*(LnkLI102))(); |
1674 |
(void)(structure_set(/* INLINE-ARGS */V251,VV[6],2,/* INLINE-ARGS */V252)); |
(void)(structure_set(/* INLINE-ARGS */V251,VV[6],2,/* INLINE-ARGS */V252)); |
1675 |
V249= cdr((V249)); |
V249= cdr((V249)); |
1676 |
V250= car((V249)); |
V250= car((V249)); |
1677 |
goto T980;} |
goto T990;} |
1678 |
T976:; |
goto T986; |
1679 |
|
T986:; |
1680 |
{register object V253; |
{register object V253; |
1681 |
object V254; |
object V254; |
1682 |
V253= (V225); |
V253= (V225); |
1683 |
V254= car((V253)); |
V254= car((V253)); |
1684 |
T995:; |
goto T1005; |
1685 |
|
T1005:; |
1686 |
if(!(endp((V253)))){ |
if(!(endp((V253)))){ |
1687 |
goto T996;} |
goto T1006;} |
1688 |
goto T991; |
goto T1001; |
1689 |
T996:; |
goto T1006; |
1690 |
|
T1006:; |
1691 |
if((caddr((V254)))==Cnil){ |
if((caddr((V254)))==Cnil){ |
1692 |
goto T1000;} |
goto T1010;} |
1693 |
V255= caddr((V254)); |
V255= caddr((V254)); |
1694 |
V256= (*(LnkLI102))(); |
V256= (*(LnkLI102))(); |
1695 |
(void)(structure_set(/* INLINE-ARGS */V255,VV[6],2,/* INLINE-ARGS */V256)); |
(void)(structure_set(/* INLINE-ARGS */V255,VV[6],2,/* INLINE-ARGS */V256)); |
1696 |
T1000:; |
goto T1010; |
1697 |
|
T1010:; |
1698 |
V253= cdr((V253)); |
V253= cdr((V253)); |
1699 |
V254= car((V253)); |
V254= car((V253)); |
1700 |
goto T995;} |
goto T1005;} |
1701 |
T991:; |
goto T1001; |
1702 |
|
T1001:; |
1703 |
princ_str("\n parse_key(vs_base",VV[10]); |
princ_str("\n parse_key(vs_base",VV[10]); |
1704 |
if(((V224))!=Cnil){ |
if(((V224))!=Cnil){ |
1705 |
goto T1011;} |
goto T1021;} |
1706 |
if(((V225))==Cnil){ |
if(((V225))==Cnil){ |
1707 |
goto T1010;} |
goto T1020;} |
1708 |
T1011:; |
goto T1021; |
1709 |
|
T1021:; |
1710 |
princ_char(43,VV[10]); |
princ_char(43,VV[10]); |
1711 |
V257 = make_fixnum(length((V224))); |
V257 = make_fixnum(length((V224))); |
1712 |
V258 = make_fixnum(length((V225))); |
V258 = make_fixnum(length((V225))); |
1713 |
V259= number_plus(V257,V258); |
V259= number_plus(V257,V258); |
1714 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V259)); |
(void)((*(LnkLI80))(/* INLINE-ARGS */V259)); |
1715 |
T1010:; |
goto T1020; |
1716 |
|
T1020:; |
1717 |
if(((V226))==Cnil){ |
if(((V226))==Cnil){ |
1718 |
goto T1019;} |
goto T1029;} |
1719 |
princ_str(",TRUE,",VV[10]); |
princ_str(",TRUE,",VV[10]); |
1720 |
goto T1017; |
goto T1027; |
1721 |
T1019:; |
goto T1029; |
1722 |
|
T1029:; |
1723 |
princ_str(",FALSE,",VV[10]); |
princ_str(",FALSE,",VV[10]); |
1724 |
T1017:; |
goto T1027; |
1725 |
|
T1027:; |
1726 |
if(((V228))==Cnil){ |
if(((V228))==Cnil){ |
1727 |
goto T1025;} |
goto T1035;} |
1728 |
princ_str("TRUE,",VV[10]); |
princ_str("TRUE,",VV[10]); |
1729 |
goto T1023; |
goto T1033; |
1730 |
T1025:; |
goto T1035; |
1731 |
|
T1035:; |
1732 |
princ_str("FALSE,",VV[10]); |
princ_str("FALSE,",VV[10]); |
1733 |
T1023:; |
goto T1033; |
1734 |
|
T1033:; |
1735 |
V260 = make_fixnum(length((V227))); |
V260 = make_fixnum(length((V227))); |
1736 |
(void)((*(LnkLI80))(V260)); |
(void)((*(LnkLI80))(V260)); |
1737 |
{register object V261; |
{register object V261; |
1738 |
object V262; |
object V262; |
1739 |
V261= (V227); |
V261= (V227); |
1740 |
V262= car((V261)); |
V262= car((V261)); |
1741 |
T1035:; |
goto T1045; |
1742 |
|
T1045:; |
1743 |
if(!(endp((V261)))){ |
if(!(endp((V261)))){ |
1744 |
goto T1036;} |
goto T1046;} |
1745 |
goto T1031; |
goto T1041; |
1746 |
T1036:; |
goto T1046; |
1747 |
|
T1046:; |
1748 |
princ_str(",VV[",VV[10]); |
princ_str(",VV[",VV[10]); |
1749 |
V263= (*(LnkLI108))(car((V262))); |
V263= (*(LnkLI108))(car((V262))); |
1750 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V263)); |
(void)((*(LnkLI80))(/* INLINE-ARGS */V263)); |
1751 |
princ_char(93,VV[10]); |
princ_char(93,VV[10]); |
1752 |
V261= cdr((V261)); |
V261= cdr((V261)); |
1753 |
V262= car((V261)); |
V262= car((V261)); |
1754 |
goto T1035;} |
goto T1045;} |
1755 |
T1031:; |
goto T1041; |
1756 |
|
T1041:; |
1757 |
princ_str(");",VV[10]); |
princ_str(");",VV[10]); |
1758 |
{register object V264; |
{register object V264; |
1759 |
object V265; |
object V265; |
1760 |
V264= (V224); |
V264= (V224); |
1761 |
V265= car((V264)); |
V265= car((V264)); |
1762 |
T1055:; |
goto T1065; |
1763 |
|
T1065:; |
1764 |
if(!(endp((V264)))){ |
if(!(endp((V264)))){ |
1765 |
goto T1056;} |
goto T1066;} |
1766 |
goto T1051; |
goto T1061; |
1767 |
T1056:; |
goto T1066; |
1768 |
|
T1066:; |
1769 |
(void)((*(LnkLI103))((V265))); |
(void)((*(LnkLI103))((V265))); |
1770 |
V264= cdr((V264)); |
V264= cdr((V264)); |
1771 |
V265= car((V264)); |
V265= car((V264)); |
1772 |
goto T1055;} |
goto T1065;} |
1773 |
T1051:; |
goto T1061; |
1774 |
|
T1061:; |
1775 |
if(((V225))==Cnil){ |
if(((V225))==Cnil){ |
1776 |
goto T1066;} |
goto T1076;} |
1777 |
if(((V224))==Cnil){ |
if(((V224))==Cnil){ |
1778 |
goto T1069;} |
goto T1079;} |
1779 |
princ_str("\n vs_base += ",VV[10]); |
princ_str("\n vs_base += ",VV[10]); |
1780 |
V266 = make_fixnum(length((V224))); |
V266 = make_fixnum(length((V224))); |
1781 |
(void)((*(LnkLI80))(V266)); |
(void)((*(LnkLI80))(V266)); |
1782 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1783 |
T1069:; |
goto T1079; |
1784 |
|
T1079:; |
1785 |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
1786 |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
1787 |
bds_bind(VV[26],(VV[26]->s.s_dbind)); |
bds_bind(VV[26],(VV[26]->s.s_dbind)); |
1788 |
{register object V267; |
{register object V267; |
1789 |
V267= (V225); |
V267= (V225); |
1790 |
T1077:; |
goto T1087; |
1791 |
|
T1087:; |
1792 |
if(!(endp((V267)))){ |
if(!(endp((V267)))){ |
1793 |
goto T1078;} |
goto T1088;} |
1794 |
bds_unwind1; |
bds_unwind1; |
1795 |
bds_unwind1; |
bds_unwind1; |
1796 |
bds_unwind1; |
bds_unwind1; |
1797 |
goto T1075; |
goto T1085; |
1798 |
T1078:; |
goto T1088; |
1799 |
|
T1088:; |
1800 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
1801 |
V268= make_cons(symbol_value(VV[57]),Cnil); |
V268= make_cons(symbol_value(VV[57]),Cnil); |
1802 |
V229= make_cons(/* INLINE-ARGS */V268,(V229)); |
V229= make_cons(/* INLINE-ARGS */V268,(V229)); |
1810 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
1811 |
(void)((*(LnkLI103))(caar((V267)))); |
(void)((*(LnkLI103))(caar((V267)))); |
1812 |
if((caddar((V267)))==Cnil){ |
if((caddar((V267)))==Cnil){ |
1813 |
goto T1095;} |
goto T1105;} |
1814 |
(void)((*(LnkLI105))(caddar((V267)),Ct)); |
(void)((*(LnkLI105))(caddar((V267)),Ct)); |
1815 |
T1095:; |
goto T1105; |
1816 |
|
T1105:; |
1817 |
if((cdr((V267)))==Cnil){ |
if((cdr((V267)))==Cnil){ |
1818 |
goto T1098;} |
goto T1108;} |
1819 |
princ_str("\n vs_base++;",VV[10]); |
princ_str("\n vs_base++;",VV[10]); |
1820 |
T1098:; |
goto T1108; |
1821 |
|
T1108:; |
1822 |
V267= cdr((V267)); |
V267= cdr((V267)); |
1823 |
goto T1077;} |
goto T1087;} |
1824 |
T1075:; |
goto T1085; |
1825 |
|
T1085:; |
1826 |
V229= reverse((V229)); |
V229= reverse((V229)); |
1827 |
T1066:; |
goto T1076; |
1828 |
|
T1076:; |
1829 |
princ_str("\n vs_top=sup;",VV[10]); |
princ_str("\n vs_top=sup;",VV[10]); |
1830 |
if(((V225))==Cnil){ |
if(((V225))==Cnil){ |
1831 |
goto T1108;} |
goto T1118;} |
1832 |
{object V269; |
{object V269; |
1833 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
1834 |
V269= make_cons(symbol_value(VV[57]),Cnil); |
V269= make_cons(symbol_value(VV[57]),Cnil); |
1841 |
register object V271; |
register object V271; |
1842 |
V270= (V225); |
V270= (V225); |
1843 |
V271= car((V270)); |
V271= car((V270)); |
1844 |
T1122:; |
goto T1132; |
1845 |
|
T1132:; |
1846 |
if(!(endp((V270)))){ |
if(!(endp((V270)))){ |
1847 |
goto T1123;} |
goto T1133;} |
1848 |
goto T1118; |
goto T1128; |
1849 |
T1123:; |
goto T1133; |
1850 |
|
T1133:; |
1851 |
if((cdr(car((V229))))==Cnil){ |
if((cdr(car((V229))))==Cnil){ |
1852 |
goto T1127;} |
goto T1137;} |
1853 |
|
princ_str("\ngoto T",VV[10]); |
1854 |
|
(void)((*(LnkLI80))(car(car((V229))))); |
1855 |
|
princ_char(59,VV[10]); |
1856 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1857 |
(void)((*(LnkLI80))(car(car((V229))))); |
(void)((*(LnkLI80))(car(car((V229))))); |
1858 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1859 |
T1127:; |
goto T1137; |
1860 |
|
T1137:; |
1861 |
{object V272; |
{object V272; |
1862 |
V272= car((V229)); |
V272= car((V229)); |
1863 |
V229= cdr((V229));} |
V229= cdr((V229));} |
1864 |
(void)((*(LnkLI106))(car((V271)),cadr((V271)))); |
(void)((*(LnkLI106))(car((V271)),cadr((V271)))); |
1865 |
if((caddr((V271)))==Cnil){ |
if((caddr((V271)))==Cnil){ |
1866 |
goto T1138;} |
goto T1152;} |
1867 |
(void)((*(LnkLI105))(caddr((V271)),Cnil)); |
(void)((*(LnkLI105))(caddr((V271)),Cnil)); |
1868 |
T1138:; |
goto T1152; |
1869 |
|
T1152:; |
1870 |
V270= cdr((V270)); |
V270= cdr((V270)); |
1871 |
V271= car((V270)); |
V271= car((V270)); |
1872 |
goto T1122;} |
goto T1132;} |
1873 |
T1118:; |
goto T1128; |
1874 |
|
T1128:; |
1875 |
if((cdr((V269)))==Cnil){ |
if((cdr((V269)))==Cnil){ |
1876 |
goto T1108;} |
goto T1118;} |
1877 |
|
princ_str("\ngoto T",VV[10]); |
1878 |
|
(void)((*(LnkLI80))(car((V269)))); |
1879 |
|
princ_char(59,VV[10]); |
1880 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1881 |
(void)((*(LnkLI80))(car((V269)))); |
(void)((*(LnkLI80))(car((V269)))); |
1882 |
princ_str(":;",VV[10]);} |
princ_str(":;",VV[10]);} |
1883 |
T1108:; |
goto T1118; |
1884 |
|
T1118:; |
1885 |
if(((V226))==Cnil){ |
if(((V226))==Cnil){ |
1886 |
goto T1151;} |
goto T1169;} |
1887 |
(void)((*(LnkLI103))((V226))); |
(void)((*(LnkLI103))((V226))); |
1888 |
T1151:; |
goto T1169; |
1889 |
|
T1169:; |
1890 |
{register object V273; |
{register object V273; |
1891 |
register object V274; |
register object V274; |
1892 |
V273= (V227); |
V273= (V227); |
1893 |
V274= car((V273)); |
V274= car((V273)); |
1894 |
T1158:; |
goto T1176; |
1895 |
|
T1176:; |
1896 |
if(!(endp((V273)))){ |
if(!(endp((V273)))){ |
1897 |
goto T1159;} |
goto T1177;} |
1898 |
goto T1154; |
goto T1172; |
1899 |
T1159:; |
goto T1177; |
1900 |
|
T1177:; |
1901 |
if(!((caaddr((V274)))==(VV[61]))){ |
if(!((caaddr((V274)))==(VV[61]))){ |
1902 |
goto T1165;} |
goto T1183;} |
1903 |
if((caddr(caddr((V274))))!=Cnil){ |
if((caddr(caddr((V274))))!=Cnil){ |
1904 |
goto T1165;} |
goto T1183;} |
1905 |
(void)((*(LnkLI103))(cadr((V274)))); |
(void)((*(LnkLI103))(cadr((V274)))); |
1906 |
goto T1163; |
goto T1181; |
1907 |
T1165:; |
goto T1183; |
1908 |
|
T1183:; |
1909 |
princ_str("\n if(",VV[10]); |
princ_str("\n if(",VV[10]); |
1910 |
V275= structure_ref(cadddr((V274)),VV[6],2); |
V275= structure_ref(cadddr((V274)),VV[6],2); |
1911 |
(void)((*(LnkLI109))(/* INLINE-ARGS */V275)); |
(void)((*(LnkLI109))(/* INLINE-ARGS */V275)); |
1920 |
princ_str("\n }else{",VV[10]); |
princ_str("\n }else{",VV[10]); |
1921 |
(void)((*(LnkLI103))(cadr((V274)))); |
(void)((*(LnkLI103))(cadr((V274)))); |
1922 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
1923 |
T1163:; |
goto T1181; |
1924 |
|
T1181:; |
1925 |
V277= structure_ref(cadddr((V274)),VV[6],1); |
V277= structure_ref(cadddr((V274)),VV[6],1); |
1926 |
if((/* INLINE-ARGS */V277)==(VV[40])){ |
if((/* INLINE-ARGS */V277)==(VV[40])){ |
1927 |
goto T1179;} |
goto T1197;} |
1928 |
(void)((*(LnkLI103))(cadddr((V274)))); |
(void)((*(LnkLI103))(cadddr((V274)))); |
1929 |
T1179:; |
goto T1197; |
1930 |
|
T1197:; |
1931 |
V273= cdr((V273)); |
V273= cdr((V273)); |
1932 |
V274= car((V273)); |
V274= car((V273)); |
1933 |
goto T1158;} |
goto T1176;} |
1934 |
T1154:; |
goto T1172; |
1935 |
|
T1172:; |
1936 |
base[10]= (V223); |
base[10]= (V223); |
1937 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1938 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1939 |
vs_top=sup; |
vs_top=sup; |
1940 |
if((base[9])==Cnil){ |
if((base[9])==Cnil){ |
1941 |
goto T1190;} |
goto T1208;} |
1942 |
princ_str("\n }",VV[10]); |
princ_str("\n }",VV[10]); |
1943 |
{object V278 = Cnil; |
{object V278 = Cnil; |
1944 |
bds_unwind1; |
bds_unwind1; |
1946 |
bds_unwind1; |
bds_unwind1; |
1947 |
bds_unwind1; |
bds_unwind1; |
1948 |
VMR14(V278)} |
VMR14(V278)} |
1949 |
T1190:; |
goto T1208; |
1950 |
|
T1208:; |
1951 |
{object V279 = Cnil; |
{object V279 = Cnil; |
1952 |
bds_unwind1; |
bds_unwind1; |
1953 |
bds_unwind1; |
bds_unwind1; |
1954 |
bds_unwind1; |
bds_unwind1; |
1955 |
bds_unwind1; |
bds_unwind1; |
1956 |
VMR14(V279)}} |
VMR14(V279)}} |
1957 |
|
base[0]=base[0]; |
1958 |
|
return Cnil; |
1959 |
} |
} |
1960 |
/* local entry for function NEED-TO-SET-VS-POINTERS */ |
/* local entry for function NEED-TO-SET-VS-POINTERS */ |
1961 |
|
|
1963 |
|
|
1964 |
object V281; |
object V281; |
1965 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1966 |
|
goto TTL; |
1967 |
TTL:; |
TTL:; |
1968 |
if(symbol_value(VV[55])!=Cnil){ |
if(symbol_value(VV[55])!=Cnil){ |
1969 |
{object V282 = symbol_value(VV[55]); |
{object V282 = symbol_value(VV[55]); |
1972 |
{object V283 = symbol_value(VV[56]); |
{object V283 = symbol_value(VV[56]); |
1973 |
VMR15(V283)}}{object V284; |
VMR15(V283)}}{object V284; |
1974 |
V284= cadr((V281)); |
V284= cadr((V281)); |
1975 |
if(V284==Cnil)goto T1193; |
if(V284==Cnil)goto T1211; |
1976 |
{object V285 = V284; |
{object V285 = V284; |
1977 |
VMR15(V285)} |
VMR15(V285)} |
1978 |
T1193:;}{object V286; |
goto T1211; |
1979 |
|
T1211:;}{object V286; |
1980 |
V286= caddr((V281)); |
V286= caddr((V281)); |
1981 |
if(V286==Cnil)goto T1195; |
if(V286==Cnil)goto T1213; |
1982 |
{object V287 = V286; |
{object V287 = V286; |
1983 |
VMR15(V287)} |
VMR15(V287)} |
1984 |
T1195:;} |
goto T1213; |
1985 |
|
T1213:;} |
1986 |
{object V288 = cadddr((V281)); |
{object V288 = cadddr((V281)); |
1987 |
VMR15(V288)} |
VMR15(V288)} |
1988 |
|
return Cnil; |
1989 |
} |
} |
1990 |
/* local entry for function C1DM */ |
/* local entry for function C1DM */ |
1991 |
|
|
1994 |
object V292;register object V293;register object V294; |
object V292;register object V293;register object V294; |
1995 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1996 |
bds_check; |
bds_check; |
1997 |
|
goto TTL; |
1998 |
TTL:; |
TTL:; |
1999 |
{object V295; |
{object V295; |
2000 |
object V296; |
object V296; |
2056 |
V294= make_cons(/* INLINE-ARGS */V304,Cnil); |
V294= make_cons(/* INLINE-ARGS */V304,Cnil); |
2057 |
(void)((*(LnkLI88))((V299))); |
(void)((*(LnkLI88))((V299))); |
2058 |
if(!(type_of((V293))==t_cons||((V293))==Cnil)){ |
if(!(type_of((V293))==t_cons||((V293))==Cnil)){ |
2059 |
goto T1214;} |
goto T1232;} |
2060 |
if(!((car((V293)))==(VV[65]))){ |
if(!((car((V293)))==(VV[65]))){ |
2061 |
goto T1214;} |
goto T1232;} |
2062 |
(VV[62]->s.s_dbind)= make_cons(cadr((V293)),(VV[62]->s.s_dbind)); |
(VV[62]->s.s_dbind)= make_cons(cadr((V293)),(VV[62]->s.s_dbind)); |
2063 |
V295= (*(LnkLI89))(cadr((V293)),(V299),(V300),(V301)); |
V295= (*(LnkLI89))(cadr((V293)),(V299),(V300),(V301)); |
2064 |
(VV[64]->s.s_dbind)= make_cons((V295),(VV[64]->s.s_dbind)); |
(VV[64]->s.s_dbind)= make_cons((V295),(VV[64]->s.s_dbind)); |
2065 |
setq(VV[30],make_cons((V295),symbol_value(VV[30]))); |
setq(VV[30],make_cons((V295),symbol_value(VV[30]))); |
2066 |
V293= cddr((V293)); |
V293= cddr((V293)); |
2067 |
T1214:; |
goto T1232; |
2068 |
|
T1232:; |
2069 |
{register object V305; |
{register object V305; |
2070 |
if(type_of((V293))==t_cons||((V293))==Cnil){ |
if(type_of((V293))==t_cons||((V293))==Cnil){ |
2071 |
goto T1230;} |
goto T1248;} |
2072 |
V305= Cnil; |
V305= Cnil; |
2073 |
goto T1229; |
goto T1247; |
2074 |
T1230:; |
goto T1248; |
2075 |
|
T1248:; |
2076 |
{register object V306; |
{register object V306; |
2077 |
V306= (V293); |
V306= (V293); |
2078 |
T1233:; |
goto T1251; |
2079 |
|
T1251:; |
2080 |
if(type_of((V306))==t_cons){ |
if(type_of((V306))==t_cons){ |
2081 |
goto T1234;} |
goto T1252;} |
2082 |
V305= Cnil; |
V305= Cnil; |
2083 |
goto T1229; |
goto T1247; |
2084 |
T1234:; |
goto T1252; |
2085 |
|
T1252:; |
2086 |
if(!((VV[66])==(car((V306))))){ |
if(!((VV[66])==(car((V306))))){ |
2087 |
goto T1238;} |
goto T1256;} |
2088 |
V305= (V306); |
V305= (V306); |
2089 |
goto T1229; |
goto T1247; |
2090 |
T1238:; |
goto T1256; |
2091 |
|
T1256:; |
2092 |
V306= cdr((V306)); |
V306= cdr((V306)); |
2093 |
goto T1233;} |
goto T1251;} |
2094 |
T1229:; |
goto T1247; |
2095 |
|
T1247:; |
2096 |
if(((V305))==Cnil){ |
if(((V305))==Cnil){ |
2097 |
goto T1228;} |
goto T1246;} |
2098 |
(VV[62]->s.s_dbind)= make_cons(cadr((V305)),(VV[62]->s.s_dbind)); |
(VV[62]->s.s_dbind)= make_cons(cadr((V305)),(VV[62]->s.s_dbind)); |
2099 |
V296= (*(LnkLI89))(cadr((V305)),(V299),(V300),(V301)); |
V296= (*(LnkLI89))(cadr((V305)),(V299),(V300),(V301)); |
2100 |
(VV[64]->s.s_dbind)= make_cons((V296),(VV[64]->s.s_dbind)); |
(VV[64]->s.s_dbind)= make_cons((V296),(VV[64]->s.s_dbind)); |
2106 |
vs_top=sup; |
vs_top=sup; |
2107 |
V307= vs_base[0]; |
V307= vs_base[0]; |
2108 |
V293= append(V307,cddr((V305)));} |
V293= append(V307,cddr((V305)));} |
2109 |
T1228:; |
goto T1246; |
2110 |
|
T1246:; |
2111 |
base[4]= (V293); |
base[4]= (V293); |
2112 |
base[5]= (V299); |
base[5]= (V299); |
2113 |
base[6]= (V300); |
base[6]= (V300); |
2131 |
{object V309; |
{object V309; |
2132 |
V309= (eql((V297),symbol_value(VV[31]))?Ct:Cnil); |
V309= (eql((V297),symbol_value(VV[31]))?Ct:Cnil); |
2133 |
if(((V309))==Cnil){ |
if(((V309))==Cnil){ |
2134 |
goto T1271;} |
goto T1289;} |
2135 |
goto T1268; |
goto T1286; |
2136 |
T1271:; |
goto T1289; |
2137 |
|
T1289:; |
2138 |
(void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct)); |
(void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct)); |
2139 |
(void)(sputprop((V292),VV[67],Ct));} |
(void)(sputprop((V292),VV[67],Ct));} |
2140 |
T1268:; |
goto T1286; |
2141 |
|
T1286:; |
2142 |
{register object V310; |
{register object V310; |
2143 |
register object V311; |
register object V311; |
2144 |
V310= (VV[64]->s.s_dbind); |
V310= (VV[64]->s.s_dbind); |
2145 |
V311= car((V310)); |
V311= car((V310)); |
2146 |
T1278:; |
goto T1296; |
2147 |
|
T1296:; |
2148 |
if(!(endp((V310)))){ |
if(!(endp((V310)))){ |
2149 |
goto T1279;} |
goto T1297;} |
2150 |
goto T1274; |
goto T1292; |
2151 |
T1279:; |
goto T1297; |
2152 |
|
T1297:; |
2153 |
(void)((*(LnkLI97))((V311))); |
(void)((*(LnkLI97))((V311))); |
2154 |
V310= cdr((V310)); |
V310= cdr((V310)); |
2155 |
V311= car((V310)); |
V311= car((V310)); |
2156 |
goto T1278;} |
goto T1296;} |
2157 |
T1274:; |
goto T1292; |
2158 |
|
T1292:; |
2159 |
{object V312 = list(7,(V298),(V303),(V295),(V296),(V293),(V294),(VV[63]->s.s_dbind)); |
{object V312 = list(7,(V298),(V303),(V295),(V296),(V293),(V294),(VV[63]->s.s_dbind)); |
2160 |
bds_unwind1; |
bds_unwind1; |
2161 |
bds_unwind1; |
bds_unwind1; |
2162 |
bds_unwind1; |
bds_unwind1; |
2163 |
bds_unwind1; |
bds_unwind1; |
2164 |
VMR16(V312)}} |
VMR16(V312)}} |
2165 |
|
base[0]=base[0]; |
2166 |
|
return Cnil; |
2167 |
} |
} |
2168 |
/* function definition for C1DM-VL */ |
/* function definition for C1DM-VL */ |
2169 |
|
|
2170 |
static L19() |
static void L19() |
2171 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2172 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
2173 |
vs_reserve(VM17); |
vs_reserve(VM17); |
2181 |
V315=(base[2]); |
V315=(base[2]); |
2182 |
V316=(base[3]); |
V316=(base[3]); |
2183 |
vs_top=sup; |
vs_top=sup; |
2184 |
|
goto TTL; |
2185 |
TTL:; |
TTL:; |
2186 |
{register object V317; |
{register object V317; |
2187 |
object V318; |
object V318; |
2211 |
V328= Cnil; |
V328= Cnil; |
2212 |
V329= small_fixnum(0); |
V329= small_fixnum(0); |
2213 |
V330= Cnil; |
V330= Cnil; |
2214 |
T1290:; |
goto T1308; |
2215 |
|
T1308:; |
2216 |
if(type_of((V313))==t_cons){ |
if(type_of((V313))==t_cons){ |
2217 |
goto T1291;} |
goto T1309;} |
2218 |
if(((V313))==Cnil){ |
if(((V313))==Cnil){ |
2219 |
goto T1294;} |
goto T1312;} |
2220 |
if(((V318))==Cnil){ |
if(((V318))==Cnil){ |
2221 |
goto T1297;} |
goto T1315;} |
2222 |
base[4]= VV[68]; |
base[4]= VV[68]; |
2223 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2224 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2225 |
vs_top=sup; |
vs_top=sup; |
2226 |
T1297:; |
goto T1315; |
2227 |
|
T1315:; |
2228 |
base[4]= (V313); |
base[4]= (V313); |
2229 |
base[5]= (V314); |
base[5]= (V314); |
2230 |
base[6]= (V315); |
base[6]= (V315); |
2233 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
2234 |
vs_top=sup; |
vs_top=sup; |
2235 |
V324= vs_base[0]; |
V324= vs_base[0]; |
2236 |
T1294:; |
goto T1312; |
2237 |
|
T1312:; |
2238 |
V331= reverse((V322)); |
V331= reverse((V322)); |
2239 |
V332= reverse((V323)); |
V332= reverse((V323)); |
2240 |
V333= reverse((V326)); |
V333= reverse((V326)); |
2242 |
base[5]= (V330); |
base[5]= (V330); |
2243 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2244 |
return; |
return; |
2245 |
T1291:; |
goto T1309; |
2246 |
|
T1309:; |
2247 |
{register object V334; |
{register object V334; |
2248 |
V334= car((V313)); |
V334= car((V313)); |
2249 |
if(!(((V334))==(VV[69]))){ |
if(!(((V334))==(VV[69]))){ |
2250 |
goto T1312;} |
goto T1330;} |
2251 |
if(((V317))==Cnil){ |
if(((V317))==Cnil){ |
2252 |
goto T1314;} |
goto T1332;} |
2253 |
base[4]= VV[69]; |
base[4]= VV[69]; |
2254 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2255 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2256 |
vs_top=sup; |
vs_top=sup; |
2257 |
T1314:; |
goto T1332; |
2258 |
|
T1332:; |
2259 |
V317= Ct; |
V317= Ct; |
2260 |
{object V335; |
{object V335; |
2261 |
V335= car((V313)); |
V335= car((V313)); |
2262 |
V313= cdr((V313)); |
V313= cdr((V313)); |
2263 |
goto T1309;} |
goto T1327;} |
2264 |
T1312:; |
goto T1330; |
2265 |
|
T1330:; |
2266 |
if(((V334))==(VV[68])){ |
if(((V334))==(VV[68])){ |
2267 |
goto T1323;} |
goto T1341;} |
2268 |
if(!(((V334))==(VV[70]))){ |
if(!(((V334))==(VV[70]))){ |
2269 |
goto T1324;} |
goto T1342;} |
2270 |
T1323:; |
goto T1341; |
2271 |
|
T1341:; |
2272 |
if(((V318))==Cnil){ |
if(((V318))==Cnil){ |
2273 |
goto T1328;} |
goto T1346;} |
2274 |
base[4]= (V334); |
base[4]= (V334); |
2275 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2276 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2277 |
vs_top=sup; |
vs_top=sup; |
2278 |
T1328:; |
goto T1346; |
2279 |
|
T1346:; |
2280 |
base[4]= cadr((V313)); |
base[4]= cadr((V313)); |
2281 |
base[5]= (V314); |
base[5]= (V314); |
2282 |
base[6]= (V315); |
base[6]= (V315); |
2289 |
V317= Ct; |
V317= Ct; |
2290 |
V313= cddr((V313)); |
V313= cddr((V313)); |
2291 |
if(!(((V334))==(VV[70]))){ |
if(!(((V334))==(VV[70]))){ |
2292 |
goto T1309;} |
goto T1327;} |
2293 |
V330= (V329); |
V330= (V329); |
2294 |
goto T1309; |
goto T1327; |
2295 |
T1324:; |
goto T1342; |
2296 |
|
T1342:; |
2297 |
if(!(((V334))==(VV[71]))){ |
if(!(((V334))==(VV[71]))){ |
2298 |
goto T1348;} |
goto T1366;} |
2299 |
if(((V319))==Cnil){ |
if(((V319))==Cnil){ |
2300 |
goto T1350;} |
goto T1368;} |
2301 |
base[4]= VV[71]; |
base[4]= VV[71]; |
2302 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2303 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2304 |
vs_top=sup; |
vs_top=sup; |
2305 |
T1350:; |
goto T1368; |
2306 |
|
T1368:; |
2307 |
V319= Ct; |
V319= Ct; |
2308 |
V318= Ct; |
V318= Ct; |
2309 |
V317= Ct; |
V317= Ct; |
2311 |
{object V336; |
{object V336; |
2312 |
V336= car((V313)); |
V336= car((V313)); |
2313 |
V313= cdr((V313)); |
V313= cdr((V313)); |
2314 |
goto T1309;} |
goto T1327;} |
2315 |
T1348:; |
goto T1366; |
2316 |
|
T1366:; |
2317 |
if(!(((V334))==(VV[72]))){ |
if(!(((V334))==(VV[72]))){ |
2318 |
goto T1366;} |
goto T1384;} |
2319 |
if(((V319))==Cnil){ |
if(((V319))==Cnil){ |
2320 |
goto T1369;} |
goto T1387;} |
2321 |
if(((V320))==Cnil){ |
if(((V320))==Cnil){ |
2322 |
goto T1368;} |
goto T1386;} |
2323 |
T1369:; |
goto T1387; |
2324 |
|
T1387:; |
2325 |
base[4]= VV[72]; |
base[4]= VV[72]; |
2326 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2327 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2328 |
vs_top=sup; |
vs_top=sup; |
2329 |
T1368:; |
goto T1386; |
2330 |
|
T1386:; |
2331 |
V320= Ct; |
V320= Ct; |
2332 |
V328= Ct; |
V328= Ct; |
2333 |
{object V337; |
{object V337; |
2334 |
V337= car((V313)); |
V337= car((V313)); |
2335 |
V313= cdr((V313)); |
V313= cdr((V313)); |
2336 |
goto T1309;} |
goto T1327;} |
2337 |
T1366:; |
goto T1384; |
2338 |
|
T1384:; |
2339 |
if(!(((V334))==(VV[73]))){ |
if(!(((V334))==(VV[73]))){ |
2340 |
goto T1382;} |
goto T1400;} |
2341 |
if(((V321))==Cnil){ |
if(((V321))==Cnil){ |
2342 |
goto T1384;} |
goto T1402;} |
2343 |
base[4]= VV[73]; |
base[4]= VV[73]; |
2344 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2345 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2346 |
vs_top=sup; |
vs_top=sup; |
2347 |
T1384:; |
goto T1402; |
2348 |
|
T1402:; |
2349 |
V321= Ct; |
V321= Ct; |
2350 |
V320= Ct; |
V320= Ct; |
2351 |
V319= Ct; |
V319= Ct; |
2354 |
{object V338; |
{object V338; |
2355 |
V338= car((V313)); |
V338= car((V313)); |
2356 |
V313= cdr((V313)); |
V313= cdr((V313)); |
2357 |
goto T1309;} |
goto T1327;} |
2358 |
T1382:; |
goto T1400; |
2359 |
|
T1400:; |
2360 |
if(((V321))==Cnil){ |
if(((V321))==Cnil){ |
2361 |
goto T1402;} |
goto T1420;} |
2362 |
{object V339; |
{object V339; |
2363 |
object V340; |
object V340; |
2364 |
V339= Cnil; |
V339= Cnil; |
2365 |
V340= Cnil; |
V340= Cnil; |
2366 |
if(!(type_of((V334))==t_symbol)){ |
if(!(type_of((V334))==t_symbol)){ |
2367 |
goto T1407;} |
goto T1425;} |
2368 |
V339= (V334); |
V339= (V334); |
2369 |
V340= (*(LnkLI113))(); |
V340= (*(LnkLI113))(); |
2370 |
goto T1405; |
goto T1423; |
2371 |
T1407:; |
goto T1425; |
2372 |
|
T1425:; |
2373 |
V339= car((V334)); |
V339= car((V334)); |
2374 |
if(!(endp(cdr((V334))))){ |
if(!(endp(cdr((V334))))){ |
2375 |
goto T1415;} |
goto T1433;} |
2376 |
V340= (*(LnkLI113))(); |
V340= (*(LnkLI113))(); |
2377 |
goto T1405; |
goto T1423; |
2378 |
T1415:; |
goto T1433; |
2379 |
|
T1433:; |
2380 |
V340= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63])); |
V340= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63])); |
2381 |
T1405:; |
goto T1423; |
2382 |
|
T1423:; |
2383 |
base[4]= (V339); |
base[4]= (V339); |
2384 |
base[5]= (V314); |
base[5]= (V314); |
2385 |
base[6]= (V315); |
base[6]= (V315); |
2393 |
{object V343; |
{object V343; |
2394 |
V343= car((V313)); |
V343= car((V313)); |
2395 |
V313= cdr((V313)); |
V313= cdr((V313)); |
2396 |
goto T1309;} |
goto T1327;} |
2397 |
T1402:; |
goto T1420; |
2398 |
|
T1420:; |
2399 |
if(((V319))==Cnil){ |
if(((V319))==Cnil){ |
2400 |
goto T1429;} |
goto T1447;} |
2401 |
{object V344; |
{object V344; |
2402 |
object V345; |
object V345; |
2403 |
object V346; |
object V346; |
2407 |
V346= Cnil; |
V346= Cnil; |
2408 |
V347= Cnil; |
V347= Cnil; |
2409 |
if(!(type_of((V334))==t_symbol)){ |
if(!(type_of((V334))==t_symbol)){ |
2410 |
goto T1434;} |
goto T1452;} |
2411 |
V344= (V334); |
V344= (V334); |
2412 |
base[4]= coerce_to_string((V334)); |
base[4]= coerce_to_string((V334)); |
2413 |
base[5]= VV[38]; |
base[5]= VV[38]; |
2416 |
vs_top=sup; |
vs_top=sup; |
2417 |
V345= vs_base[0]; |
V345= vs_base[0]; |
2418 |
V346= (*(LnkLI113))(); |
V346= (*(LnkLI113))(); |
2419 |
goto T1432; |
goto T1450; |
2420 |
T1434:; |
goto T1452; |
2421 |
|
T1452:; |
2422 |
if(!(type_of(car((V334)))==t_symbol)){ |
if(!(type_of(car((V334)))==t_symbol)){ |
2423 |
goto T1445;} |
goto T1463;} |
2424 |
V344= car((V334)); |
V344= car((V334)); |
2425 |
base[4]= coerce_to_string(car((V334))); |
base[4]= coerce_to_string(car((V334))); |
2426 |
base[5]= VV[38]; |
base[5]= VV[38]; |
2428 |
Lintern(); |
Lintern(); |
2429 |
vs_top=sup; |
vs_top=sup; |
2430 |
V345= vs_base[0]; |
V345= vs_base[0]; |
2431 |
goto T1443; |
goto T1461; |
2432 |
T1445:; |
goto T1463; |
2433 |
|
T1463:; |
2434 |
V344= cadar((V334)); |
V344= cadar((V334)); |
2435 |
V345= caar((V334)); |
V345= caar((V334)); |
2436 |
T1443:; |
goto T1461; |
2437 |
|
T1461:; |
2438 |
if(!(endp(cdr((V334))))){ |
if(!(endp(cdr((V334))))){ |
2439 |
goto T1456;} |
goto T1474;} |
2440 |
V346= (*(LnkLI113))(); |
V346= (*(LnkLI113))(); |
2441 |
goto T1432; |
goto T1450; |
2442 |
T1456:; |
goto T1474; |
2443 |
|
T1474:; |
2444 |
V346= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63])); |
V346= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63])); |
2445 |
if(endp(cddr((V334)))){ |
if(endp(cddr((V334)))){ |
2446 |
goto T1432;} |
goto T1450;} |
2447 |
V347= caddr((V334)); |
V347= caddr((V334)); |
2448 |
T1432:; |
goto T1450; |
2449 |
|
T1450:; |
2450 |
base[4]= (V344); |
base[4]= (V344); |
2451 |
base[5]= (V314); |
base[5]= (V314); |
2452 |
base[6]= (V315); |
base[6]= (V315); |
2456 |
vs_top=sup; |
vs_top=sup; |
2457 |
V348= vs_base[0]; |
V348= vs_base[0]; |
2458 |
if(((V347))==Cnil){ |
if(((V347))==Cnil){ |
2459 |
goto T1472;} |
goto T1490;} |
2460 |
base[4]= (V347); |
base[4]= (V347); |
2461 |
base[5]= (V314); |
base[5]= (V314); |
2462 |
base[6]= (V315); |
base[6]= (V315); |
2465 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
2466 |
vs_top=sup; |
vs_top=sup; |
2467 |
V349= vs_base[0]; |
V349= vs_base[0]; |
2468 |
goto T1470; |
goto T1488; |
2469 |
T1472:; |
goto T1490; |
2470 |
|
T1490:; |
2471 |
V349= Cnil; |
V349= Cnil; |
2472 |
T1470:; |
goto T1488; |
2473 |
|
T1488:; |
2474 |
V350= list(4,(V345),V348,(V346),V349); |
V350= list(4,(V345),V348,(V346),V349); |
2475 |
V326= make_cons(/* INLINE-ARGS */V350,(V326));} |
V326= make_cons(/* INLINE-ARGS */V350,(V326));} |
2476 |
{object V351; |
{object V351; |
2477 |
V351= car((V313)); |
V351= car((V313)); |
2478 |
V313= cdr((V313)); |
V313= cdr((V313)); |
2479 |
goto T1309;} |
goto T1327;} |
2480 |
T1429:; |
goto T1447; |
2481 |
|
T1447:; |
2482 |
if(((V317))==Cnil){ |
if(((V317))==Cnil){ |
2483 |
goto T1482;} |
goto T1500;} |
2484 |
{object V352; |
{object V352; |
2485 |
object V353; |
object V353; |
2486 |
object V354; |
object V354; |
2488 |
V353= Cnil; |
V353= Cnil; |
2489 |
V354= Cnil; |
V354= Cnil; |
2490 |
if(!(type_of((V334))==t_symbol)){ |
if(!(type_of((V334))==t_symbol)){ |
2491 |
goto T1487;} |
goto T1505;} |
2492 |
V352= (V334); |
V352= (V334); |
2493 |
V353= (*(LnkLI113))(); |
V353= (*(LnkLI113))(); |
2494 |
goto T1485; |
goto T1503; |
2495 |
T1487:; |
goto T1505; |
2496 |
|
T1505:; |
2497 |
V352= car((V334)); |
V352= car((V334)); |
2498 |
if(!(endp(cdr((V334))))){ |
if(!(endp(cdr((V334))))){ |
2499 |
goto T1495;} |
goto T1513;} |
2500 |
V353= (*(LnkLI113))(); |
V353= (*(LnkLI113))(); |
2501 |
goto T1485; |
goto T1503; |
2502 |
T1495:; |
goto T1513; |
2503 |
|
T1513:; |
2504 |
V353= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63])); |
V353= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63])); |
2505 |
if(endp(cddr((V334)))){ |
if(endp(cddr((V334)))){ |
2506 |
goto T1485;} |
goto T1503;} |
2507 |
V354= caddr((V334)); |
V354= caddr((V334)); |
2508 |
T1485:; |
goto T1503; |
2509 |
|
T1503:; |
2510 |
base[4]= (V352); |
base[4]= (V352); |
2511 |
base[5]= (V314); |
base[5]= (V314); |
2512 |
base[6]= (V315); |
base[6]= (V315); |
2516 |
vs_top=sup; |
vs_top=sup; |
2517 |
V355= vs_base[0]; |
V355= vs_base[0]; |
2518 |
if(((V354))==Cnil){ |
if(((V354))==Cnil){ |
2519 |
goto T1511;} |
goto T1529;} |
2520 |
base[4]= (V354); |
base[4]= (V354); |
2521 |
base[5]= (V314); |
base[5]= (V314); |
2522 |
base[6]= (V315); |
base[6]= (V315); |
2525 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
2526 |
vs_top=sup; |
vs_top=sup; |
2527 |
V356= vs_base[0]; |
V356= vs_base[0]; |
2528 |
goto T1509; |
goto T1527; |
2529 |
T1511:; |
goto T1529; |
2530 |
|
T1529:; |
2531 |
V356= Cnil; |
V356= Cnil; |
2532 |
T1509:; |
goto T1527; |
2533 |
|
T1527:; |
2534 |
V357= list(3,V355,(V353),V356); |
V357= list(3,V355,(V353),V356); |
2535 |
V323= make_cons(/* INLINE-ARGS */V357,(V323));} |
V323= make_cons(/* INLINE-ARGS */V357,(V323));} |
2536 |
{object V358; |
{object V358; |
2537 |
V358= car((V313)); |
V358= car((V313)); |
2538 |
V313= cdr((V313));} |
V313= cdr((V313));} |
2539 |
V329= number_plus((V329),small_fixnum(1)); |
V329= number_plus((V329),small_fixnum(1)); |
2540 |
goto T1309; |
goto T1327; |
2541 |
T1482:; |
goto T1500; |
2542 |
|
T1500:; |
2543 |
base[4]= (V334); |
base[4]= (V334); |
2544 |
base[5]= (V314); |
base[5]= (V314); |
2545 |
base[6]= (V315); |
base[6]= (V315); |
2553 |
V360= car((V313)); |
V360= car((V313)); |
2554 |
V313= cdr((V313));} |
V313= cdr((V313));} |
2555 |
V329= number_plus((V329),small_fixnum(1));} |
V329= number_plus((V329),small_fixnum(1));} |
2556 |
T1309:; |
goto T1327; |
2557 |
goto T1290;} |
T1327:; |
2558 |
|
goto T1308;} |
2559 |
} |
} |
2560 |
} |
} |
2561 |
/* function definition for C1DM-V */ |
/* function definition for C1DM-V */ |
2562 |
|
|
2563 |
static L20() |
static void L20() |
2564 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2565 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
2566 |
vs_reserve(VM18); |
vs_reserve(VM18); |
2574 |
V363=(base[2]); |
V363=(base[2]); |
2575 |
V364=(base[3]); |
V364=(base[3]); |
2576 |
vs_top=sup; |
vs_top=sup; |
2577 |
|
goto TTL; |
2578 |
TTL:; |
TTL:; |
2579 |
if(!(type_of((V361))==t_symbol)){ |
if(!(type_of((V361))==t_symbol)){ |
2580 |
goto T1537;} |
goto T1555;} |
2581 |
setq(VV[62],make_cons((V361),symbol_value(VV[62]))); |
setq(VV[62],make_cons((V361),symbol_value(VV[62]))); |
2582 |
V361= (*(LnkLI89))((V361),(V362),(V363),(V364)); |
V361= (*(LnkLI89))((V361),(V362),(V363),(V364)); |
2583 |
setq(VV[30],make_cons((V361),symbol_value(VV[30]))); |
setq(VV[30],make_cons((V361),symbol_value(VV[30]))); |
2585 |
base[4]= (V361); |
base[4]= (V361); |
2586 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2587 |
return; |
return; |
2588 |
T1537:; |
goto T1555; |
2589 |
|
T1555:; |
2590 |
base[4]= (V361); |
base[4]= (V361); |
2591 |
base[5]= (V362); |
base[5]= (V362); |
2592 |
base[6]= (V363); |
base[6]= (V363); |
2602 |
|
|
2603 |
object V366; |
object V366; |
2604 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
2605 |
|
goto TTL; |
2606 |
TTL:; |
TTL:; |
2607 |
{object V367 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V366))); |
{object V367 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V366))); |
2608 |
VMR19(V367)} |
VMR19(V367)} |
2609 |
|
return Cnil; |
2610 |
} |
} |
2611 |
/* function definition for C2DM */ |
/* function definition for C2DM */ |
2612 |
|
|
2613 |
static L22() |
static void L22() |
2614 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2615 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
2616 |
vs_reserve(VM20); |
vs_reserve(VM20); |
2624 |
V370=(base[2]); |
V370=(base[2]); |
2625 |
V371=(base[3]); |
V371=(base[3]); |
2626 |
vs_top=sup; |
vs_top=sup; |
2627 |
|
goto TTL; |
2628 |
TTL:; |
TTL:; |
2629 |
{object V372; |
{object V372; |
2630 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
2631 |
V372= symbol_value(VV[54]); |
V372= symbol_value(VV[54]); |
2632 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
2633 |
goto T1554;} |
goto T1572;} |
2634 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2635 |
goto T1553;} |
goto T1571;} |
2636 |
T1554:; |
goto T1572; |
2637 |
|
T1572:; |
2638 |
princ_str("\n check_arg(2);",VV[10]); |
princ_str("\n check_arg(2);",VV[10]); |
2639 |
T1553:; |
goto T1571; |
2640 |
|
T1571:; |
2641 |
if(((V368))==Cnil){ |
if(((V368))==Cnil){ |
2642 |
goto T1561;} |
goto T1579;} |
2643 |
V373= (*(LnkLI102))(); |
V373= (*(LnkLI102))(); |
2644 |
(void)(structure_set((V368),VV[6],2,/* INLINE-ARGS */V373)); |
(void)(structure_set((V368),VV[6],2,/* INLINE-ARGS */V373)); |
2645 |
goto T1559; |
goto T1577; |
2646 |
T1561:; |
goto T1579; |
2647 |
|
T1579:; |
2648 |
(void)((*(LnkLI102))()); |
(void)((*(LnkLI102))()); |
2649 |
T1559:; |
goto T1577; |
2650 |
|
T1577:; |
2651 |
if(((V369))==Cnil){ |
if(((V369))==Cnil){ |
2652 |
goto T1565;} |
goto T1583;} |
2653 |
V374= (*(LnkLI102))(); |
V374= (*(LnkLI102))(); |
2654 |
(void)(structure_set((V369),VV[6],2,/* INLINE-ARGS */V374)); |
(void)(structure_set((V369),VV[6],2,/* INLINE-ARGS */V374)); |
2655 |
goto T1563; |
goto T1581; |
2656 |
T1565:; |
goto T1583; |
2657 |
|
T1583:; |
2658 |
(void)((*(LnkLI102))()); |
(void)((*(LnkLI102))()); |
2659 |
T1563:; |
goto T1581; |
2660 |
|
T1581:; |
2661 |
(void)((*(LnkLI114))((V370))); |
(void)((*(LnkLI114))((V370))); |
2662 |
princ_str("\n vs_top=sup;",VV[10]); |
princ_str("\n vs_top=sup;",VV[10]); |
2663 |
if(((V368))==Cnil){ |
if(((V368))==Cnil){ |
2664 |
goto T1570;} |
goto T1588;} |
2665 |
(void)((*(LnkLI103))((V368))); |
(void)((*(LnkLI103))((V368))); |
2666 |
T1570:; |
goto T1588; |
2667 |
|
T1588:; |
2668 |
if(((V369))==Cnil){ |
if(((V369))==Cnil){ |
2669 |
goto T1573;} |
goto T1591;} |
2670 |
(void)((*(LnkLI103))((V369))); |
(void)((*(LnkLI103))((V369))); |
2671 |
T1573:; |
goto T1591; |
2672 |
|
T1591:; |
2673 |
princ_str("\n {object V",VV[10]); |
princ_str("\n {object V",VV[10]); |
2674 |
(void)((*(LnkLI80))((V372))); |
(void)((*(LnkLI80))((V372))); |
2675 |
princ_str("=base[0]->c.c_cdr;",VV[10]); |
princ_str("=base[0]->c.c_cdr;",VV[10]); |
2687 |
|
|
2688 |
object V376; |
object V376; |
2689 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
2690 |
|
goto TTL; |
2691 |
TTL:; |
TTL:; |
2692 |
{register object V377; |
{register object V377; |
2693 |
object V378; |
object V378; |
2694 |
V377= car((V376)); |
V377= car((V376)); |
2695 |
V378= car((V377)); |
V378= car((V377)); |
2696 |
T1588:; |
goto T1606; |
2697 |
|
T1606:; |
2698 |
if(!(endp((V377)))){ |
if(!(endp((V377)))){ |
2699 |
goto T1589;} |
goto T1607;} |
2700 |
goto T1584; |
goto T1602; |
2701 |
T1589:; |
goto T1607; |
2702 |
|
T1607:; |
2703 |
(void)((*(LnkLI116))((V378))); |
(void)((*(LnkLI116))((V378))); |
2704 |
V377= cdr((V377)); |
V377= cdr((V377)); |
2705 |
V378= car((V377)); |
V378= car((V377)); |
2706 |
goto T1588;} |
goto T1606;} |
2707 |
T1584:; |
goto T1602; |
2708 |
|
T1602:; |
2709 |
{register object V379; |
{register object V379; |
2710 |
register object V380; |
register object V380; |
2711 |
V379= cadr((V376)); |
V379= cadr((V376)); |
2712 |
V380= car((V379)); |
V380= car((V379)); |
2713 |
T1603:; |
goto T1621; |
2714 |
|
T1621:; |
2715 |
if(!(endp((V379)))){ |
if(!(endp((V379)))){ |
2716 |
goto T1604;} |
goto T1622;} |
2717 |
goto T1599; |
goto T1617; |
2718 |
T1604:; |
goto T1622; |
2719 |
|
T1622:; |
2720 |
(void)((*(LnkLI116))(car((V380)))); |
(void)((*(LnkLI116))(car((V380)))); |
2721 |
if((caddr((V380)))==Cnil){ |
if((caddr((V380)))==Cnil){ |
2722 |
goto T1609;} |
goto T1627;} |
2723 |
(void)((*(LnkLI116))(caddr((V380)))); |
(void)((*(LnkLI116))(caddr((V380)))); |
2724 |
T1609:; |
goto T1627; |
2725 |
|
T1627:; |
2726 |
V379= cdr((V379)); |
V379= cdr((V379)); |
2727 |
V380= car((V379)); |
V380= car((V379)); |
2728 |
goto T1603;} |
goto T1621;} |
2729 |
T1599:; |
goto T1617; |
2730 |
|
T1617:; |
2731 |
if((caddr((V376)))==Cnil){ |
if((caddr((V376)))==Cnil){ |
2732 |
goto T1617;} |
goto T1635;} |
2733 |
(void)((*(LnkLI116))(caddr((V376)))); |
(void)((*(LnkLI116))(caddr((V376)))); |
2734 |
T1617:; |
goto T1635; |
2735 |
|
T1635:; |
2736 |
{register object V381; |
{register object V381; |
2737 |
register object V382; |
register object V382; |
2738 |
V381= car(cddddr((V376))); |
V381= car(cddddr((V376))); |
2739 |
V382= car((V381)); |
V382= car((V381)); |
2740 |
T1624:; |
goto T1642; |
2741 |
|
T1642:; |
2742 |
if(!(endp((V381)))){ |
if(!(endp((V381)))){ |
2743 |
goto T1625;} |
goto T1643;} |
2744 |
goto T1620; |
goto T1638; |
2745 |
T1625:; |
goto T1643; |
2746 |
|
T1643:; |
2747 |
(void)((*(LnkLI116))(cadr((V382)))); |
(void)((*(LnkLI116))(cadr((V382)))); |
2748 |
if((cadddr((V382)))==Cnil){ |
if((cadddr((V382)))==Cnil){ |
2749 |
goto T1630;} |
goto T1648;} |
2750 |
(void)((*(LnkLI116))(cadddr((V382)))); |
(void)((*(LnkLI116))(cadddr((V382)))); |
2751 |
T1630:; |
goto T1648; |
2752 |
|
T1648:; |
2753 |
V381= cdr((V381)); |
V381= cdr((V381)); |
2754 |
V382= car((V381)); |
V382= car((V381)); |
2755 |
goto T1624;} |
goto T1642;} |
2756 |
T1620:; |
goto T1638; |
2757 |
|
T1638:; |
2758 |
{register object V383; |
{register object V383; |
2759 |
object V384; |
object V384; |
2760 |
V383= caddr(cddddr((V376))); |
V383= caddr(cddddr((V376))); |
2761 |
V384= car((V383)); |
V384= car((V383)); |
2762 |
T1641:; |
goto T1659; |
2763 |
|
T1659:; |
2764 |
if(!(endp((V383)))){ |
if(!(endp((V383)))){ |
2765 |
goto T1642;} |
goto T1660;} |
2766 |
{object V385 = Cnil; |
{object V385 = Cnil; |
2767 |
VMR21(V385)} |
VMR21(V385)} |
2768 |
T1642:; |
goto T1660; |
2769 |
|
T1660:; |
2770 |
(void)((*(LnkLI116))(car((V384)))); |
(void)((*(LnkLI116))(car((V384)))); |
2771 |
V383= cdr((V383)); |
V383= cdr((V383)); |
2772 |
V384= car((V383)); |
V384= car((V383)); |
2773 |
goto T1641;} |
goto T1659;} |
2774 |
|
base[0]=base[0]; |
2775 |
|
return Cnil; |
2776 |
} |
} |
2777 |
/* local entry for function C2DM-RESERVE-V */ |
/* local entry for function C2DM-RESERVE-V */ |
2778 |
|
|
2780 |
|
|
2781 |
object V387; |
object V387; |
2782 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
2783 |
|
goto TTL; |
2784 |
TTL:; |
TTL:; |
2785 |
if(!(type_of((V387))==t_cons)){ |
if(!(type_of((V387))==t_cons)){ |
2786 |
goto T1653;} |
goto T1671;} |
2787 |
{object V388 = (*(LnkLI114))((V387)); |
{object V388 = (*(LnkLI114))((V387)); |
2788 |
VMR22(V388)} |
VMR22(V388)} |
2789 |
T1653:; |
goto T1671; |
2790 |
|
T1671:; |
2791 |
V389= (*(LnkLI102))(); |
V389= (*(LnkLI102))(); |
2792 |
{object V390 = structure_set((V387),VV[6],2,/* INLINE-ARGS */V389); |
{object V390 = structure_set((V387),VV[6],2,/* INLINE-ARGS */V389); |
2793 |
VMR22(V390)} |
VMR22(V390)} |
2794 |
|
return Cnil; |
2795 |
} |
} |
2796 |
/* local entry for function C2DM-BIND-VL */ |
/* local entry for function C2DM-BIND-VL */ |
2797 |
|
|
2800 |
object V393;register object V394; |
object V393;register object V394; |
2801 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
2802 |
bds_check; |
bds_check; |
2803 |
|
goto TTL; |
2804 |
TTL:; |
TTL:; |
2805 |
{object V395; |
{object V395; |
2806 |
object V396; |
object V396; |
2818 |
V401= caddr(cddddr((V393))); |
V401= caddr(cddddr((V393))); |
2819 |
{register object V402; |
{register object V402; |
2820 |
V402= (V395); |
V402= (V395); |
2821 |
T1664:; |
goto T1682; |
2822 |
|
T1682:; |
2823 |
if(!(endp((V402)))){ |
if(!(endp((V402)))){ |
2824 |
goto T1665;} |
goto T1683;} |
2825 |
goto T1662; |
goto T1680; |
2826 |
T1665:; |
goto T1683; |
2827 |
|
T1683:; |
2828 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
2829 |
goto T1670;} |
goto T1688;} |
2830 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2831 |
goto T1669;} |
goto T1687;} |
2832 |
T1670:; |
goto T1688; |
2833 |
|
T1688:; |
2834 |
princ_str("\n if(endp(V",VV[10]); |
princ_str("\n if(endp(V",VV[10]); |
2835 |
(void)((*(LnkLI80))((V394))); |
(void)((*(LnkLI80))((V394))); |
2836 |
princ_str("))invalid_macro_call();",VV[10]); |
princ_str("))invalid_macro_call();",VV[10]); |
2837 |
T1669:; |
goto T1687; |
2838 |
|
T1687:; |
2839 |
V403= car((V402)); |
V403= car((V402)); |
2840 |
V404= list(2,VV[75],(V394)); |
V404= list(2,VV[75],(V394)); |
2841 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V403,/* INLINE-ARGS */V404)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V403,/* INLINE-ARGS */V404)); |
2842 |
if((cdr((V402)))!=Cnil){ |
if((cdr((V402)))!=Cnil){ |
2843 |
goto T1679;} |
goto T1697;} |
2844 |
if(((V396))!=Cnil){ |
if(((V396))!=Cnil){ |
2845 |
goto T1679;} |
goto T1697;} |
2846 |
if(((V397))!=Cnil){ |
if(((V397))!=Cnil){ |
2847 |
goto T1679;} |
goto T1697;} |
2848 |
if(((V398))!=Cnil){ |
if(((V398))!=Cnil){ |
2849 |
goto T1679;} |
goto T1697;} |
2850 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
2851 |
goto T1679;} |
goto T1697;} |
2852 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2853 |
goto T1678;} |
goto T1696;} |
2854 |
T1679:; |
goto T1697; |
2855 |
|
T1697:; |
2856 |
princ_str("\n V",VV[10]); |
princ_str("\n V",VV[10]); |
2857 |
(void)((*(LnkLI80))((V394))); |
(void)((*(LnkLI80))((V394))); |
2858 |
princ_str("=V",VV[10]); |
princ_str("=V",VV[10]); |
2859 |
(void)((*(LnkLI80))((V394))); |
(void)((*(LnkLI80))((V394))); |
2860 |
princ_str("->c.c_cdr;",VV[10]); |
princ_str("->c.c_cdr;",VV[10]); |
2861 |
T1678:; |
goto T1696; |
2862 |
|
T1696:; |
2863 |
V402= cdr((V402)); |
V402= cdr((V402)); |
2864 |
goto T1664;} |
goto T1682;} |
2865 |
T1662:; |
goto T1680; |
2866 |
|
T1680:; |
2867 |
{register object V405; |
{register object V405; |
2868 |
V405= (V396); |
V405= (V396); |
2869 |
T1701:; |
goto T1719; |
2870 |
|
T1719:; |
2871 |
if(!(endp((V405)))){ |
if(!(endp((V405)))){ |
2872 |
goto T1702;} |
goto T1720;} |
2873 |
goto T1699; |
goto T1717; |
2874 |
T1702:; |
goto T1720; |
2875 |
|
T1720:; |
2876 |
{register object V406; |
{register object V406; |
2877 |
V406= car((V405)); |
V406= car((V405)); |
2878 |
princ_str("\n if(endp(V",VV[10]); |
princ_str("\n if(endp(V",VV[10]); |
2886 |
bds_unwind1; |
bds_unwind1; |
2887 |
bds_unwind1; |
bds_unwind1; |
2888 |
bds_unwind1; |
bds_unwind1; |
2889 |
goto T1712;} |
goto T1730;} |
2890 |
V407= (*(LnkLI117))(caddr((V406)),Cnil); |
V407= (*(LnkLI117))(caddr((V406)),Cnil); |
2891 |
bds_unwind1; |
bds_unwind1; |
2892 |
bds_unwind1; |
bds_unwind1; |
2893 |
bds_unwind1; |
bds_unwind1; |
2894 |
T1712:; |
goto T1730; |
2895 |
|
T1730:; |
2896 |
princ_str("\n } else {",VV[10]); |
princ_str("\n } else {",VV[10]); |
2897 |
V408= car((V406)); |
V408= car((V406)); |
2898 |
V409= list(2,VV[75],(V394)); |
V409= list(2,VV[75],(V394)); |
2899 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V408,/* INLINE-ARGS */V409)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V408,/* INLINE-ARGS */V409)); |
2900 |
if((caddr((V406)))==Cnil){ |
if((caddr((V406)))==Cnil){ |
2901 |
goto T1706;} |
goto T1724;} |
2902 |
(void)((*(LnkLI117))(caddr((V406)),Ct));} |
(void)((*(LnkLI117))(caddr((V406)),Ct));} |
2903 |
T1706:; |
goto T1724; |
2904 |
|
T1724:; |
2905 |
if((cdr((V405)))!=Cnil){ |
if((cdr((V405)))!=Cnil){ |
2906 |
goto T1722;} |
goto T1740;} |
2907 |
if(((V397))!=Cnil){ |
if(((V397))!=Cnil){ |
2908 |
goto T1722;} |
goto T1740;} |
2909 |
if(((V398))!=Cnil){ |
if(((V398))!=Cnil){ |
2910 |
goto T1722;} |
goto T1740;} |
2911 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
2912 |
goto T1722;} |
goto T1740;} |
2913 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2914 |
goto T1721;} |
goto T1739;} |
2915 |
T1722:; |
goto T1740; |
2916 |
|
T1740:; |
2917 |
princ_str("\n V",VV[10]); |
princ_str("\n V",VV[10]); |
2918 |
(void)((*(LnkLI80))((V394))); |
(void)((*(LnkLI80))((V394))); |
2919 |
princ_str("=V",VV[10]); |
princ_str("=V",VV[10]); |
2920 |
(void)((*(LnkLI80))((V394))); |
(void)((*(LnkLI80))((V394))); |
2921 |
princ_str("->c.c_cdr;",VV[10]); |
princ_str("->c.c_cdr;",VV[10]); |
2922 |
T1721:; |
goto T1739; |
2923 |
|
T1739:; |
2924 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
2925 |
V405= cdr((V405)); |
V405= cdr((V405)); |
2926 |
goto T1701;} |
goto T1719;} |
2927 |
T1699:; |
goto T1717; |
2928 |
|
T1717:; |
2929 |
if(((V397))==Cnil){ |
if(((V397))==Cnil){ |
2930 |
goto T1742;} |
goto T1760;} |
2931 |
V410= list(2,VV[76],(V394)); |
V410= list(2,VV[76],(V394)); |
2932 |
(void)((*(LnkLI117))((V397),/* INLINE-ARGS */V410)); |
(void)((*(LnkLI117))((V397),/* INLINE-ARGS */V410)); |
2933 |
T1742:; |
goto T1760; |
2934 |
|
T1760:; |
2935 |
{object V411; |
{object V411; |
2936 |
register object V412; |
register object V412; |
2937 |
V411= (V399); |
V411= (V399); |
2938 |
V412= car((V411)); |
V412= car((V411)); |
2939 |
T1749:; |
goto T1767; |
2940 |
|
T1767:; |
2941 |
if(!(endp((V411)))){ |
if(!(endp((V411)))){ |
2942 |
goto T1750;} |
goto T1768;} |
2943 |
goto T1745; |
goto T1763; |
2944 |
T1750:; |
goto T1768; |
2945 |
|
T1768:; |
2946 |
{object V413; |
{object V413; |
2947 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
2948 |
V413= symbol_value(VV[54]); |
V413= symbol_value(VV[54]); |
2962 |
bds_bind(VV[26],symbol_value(VV[26])); |
bds_bind(VV[26],symbol_value(VV[26])); |
2963 |
(void)((*(LnkLI118))(cadr((V412)),caddr((V412)))); |
(void)((*(LnkLI118))(cadr((V412)),caddr((V412)))); |
2964 |
if((cadddr((V412)))==Cnil){ |
if((cadddr((V412)))==Cnil){ |
2965 |
goto T1771;} |
goto T1789;} |
2966 |
(void)((*(LnkLI117))(cadddr((V412)),Cnil)); |
(void)((*(LnkLI117))(cadddr((V412)),Cnil)); |
2967 |
T1771:; |
goto T1789; |
2968 |
|
T1789:; |
2969 |
princ_str("\n } else {",VV[10]); |
princ_str("\n } else {",VV[10]); |
2970 |
bds_unwind1; |
bds_unwind1; |
2971 |
bds_unwind1; |
bds_unwind1; |
2974 |
V416= list(2,VV[76],(V413)); |
V416= list(2,VV[76],(V413)); |
2975 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V415,/* INLINE-ARGS */V416)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V415,/* INLINE-ARGS */V416)); |
2976 |
if((cadddr((V412)))==Cnil){ |
if((cadddr((V412)))==Cnil){ |
2977 |
goto T1776;} |
goto T1794;} |
2978 |
(void)((*(LnkLI117))(cadddr((V412)),Ct)); |
(void)((*(LnkLI117))(cadddr((V412)),Ct)); |
2979 |
T1776:; |
goto T1794; |
2980 |
|
T1794:; |
2981 |
princ_str("}}",VV[10]);} |
princ_str("}}",VV[10]);} |
2982 |
V411= cdr((V411)); |
V411= cdr((V411)); |
2983 |
V412= car((V411)); |
V412= car((V411)); |
2984 |
goto T1749;} |
goto T1767;} |
2985 |
T1745:; |
goto T1763; |
2986 |
|
T1763:; |
2987 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
2988 |
goto T1787;} |
goto T1805;} |
2989 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2990 |
goto T1785;} |
goto T1803;} |
2991 |
T1787:; |
goto T1805; |
2992 |
|
T1805:; |
2993 |
if(((V397))!=Cnil){ |
if(((V397))!=Cnil){ |
2994 |
goto T1785;} |
goto T1803;} |
2995 |
if(((V398))!=Cnil){ |
if(((V398))!=Cnil){ |
2996 |
goto T1785;} |
goto T1803;} |
2997 |
princ_str("\n if(!endp(V",VV[10]); |
princ_str("\n if(!endp(V",VV[10]); |
2998 |
(void)((*(LnkLI80))((V394))); |
(void)((*(LnkLI80))((V394))); |
2999 |
princ_str("))invalid_macro_call();",VV[10]); |
princ_str("))invalid_macro_call();",VV[10]); |
3000 |
T1785:; |
goto T1803; |
3001 |
|
T1803:; |
3002 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
3003 |
goto T1799;} |
goto T1817;} |
3004 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
3005 |
goto T1797;} |
goto T1815;} |
3006 |
T1799:; |
goto T1817; |
3007 |
|
T1817:; |
3008 |
if(((V398))==Cnil){ |
if(((V398))==Cnil){ |
3009 |
goto T1797;} |
goto T1815;} |
3010 |
if(((V400))!=Cnil){ |
if(((V400))!=Cnil){ |
3011 |
goto T1797;} |
goto T1815;} |
3012 |
princ_str("\n check_other_key(V",VV[10]); |
princ_str("\n check_other_key(V",VV[10]); |
3013 |
(void)((*(LnkLI80))((V394))); |
(void)((*(LnkLI80))((V394))); |
3014 |
princ_char(44,VV[10]); |
princ_char(44,VV[10]); |
3018 |
object V419; |
object V419; |
3019 |
V418= (V399); |
V418= (V399); |
3020 |
V419= car((V418)); |
V419= car((V418)); |
3021 |
T1815:; |
goto T1833; |
3022 |
|
T1833:; |
3023 |
if(!(endp((V418)))){ |
if(!(endp((V418)))){ |
3024 |
goto T1816;} |
goto T1834;} |
3025 |
goto T1811; |
goto T1829; |
3026 |
T1816:; |
goto T1834; |
3027 |
|
T1834:; |
3028 |
princ_str(",VV[",VV[10]); |
princ_str(",VV[",VV[10]); |
3029 |
V420= (*(LnkLI108))(car((V419))); |
V420= (*(LnkLI108))(car((V419))); |
3030 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V420)); |
(void)((*(LnkLI80))(/* INLINE-ARGS */V420)); |
3031 |
princ_char(93,VV[10]); |
princ_char(93,VV[10]); |
3032 |
V418= cdr((V418)); |
V418= cdr((V418)); |
3033 |
V419= car((V418)); |
V419= car((V418)); |
3034 |
goto T1815;} |
goto T1833;} |
3035 |
T1811:; |
goto T1829; |
3036 |
|
T1829:; |
3037 |
princ_str(");",VV[10]); |
princ_str(");",VV[10]); |
3038 |
T1797:; |
goto T1815; |
3039 |
|
T1815:; |
3040 |
{object V421; |
{object V421; |
3041 |
object V422; |
object V422; |
3042 |
V421= (V401); |
V421= (V401); |
3043 |
V422= car((V421)); |
V422= car((V421)); |
3044 |
T1833:; |
goto T1851; |
3045 |
|
T1851:; |
3046 |
if(!(endp((V421)))){ |
if(!(endp((V421)))){ |
3047 |
goto T1834;} |
goto T1852;} |
3048 |
{object V423 = Cnil; |
{object V423 = Cnil; |
3049 |
VMR23(V423)} |
VMR23(V423)} |
3050 |
T1834:; |
goto T1852; |
3051 |
|
T1852:; |
3052 |
(void)((*(LnkLI118))(car((V422)),cadr((V422)))); |
(void)((*(LnkLI118))(car((V422)),cadr((V422)))); |
3053 |
V421= cdr((V421)); |
V421= cdr((V421)); |
3054 |
V422= car((V421)); |
V422= car((V421)); |
3055 |
goto T1833;}} |
goto T1851;}} |
3056 |
|
base[0]=base[0]; |
3057 |
|
return Cnil; |
3058 |
} |
} |
3059 |
/* local entry for function C2DM-BIND-LOC */ |
/* local entry for function C2DM-BIND-LOC */ |
3060 |
|
|
3062 |
|
|
3063 |
object V426;object V427; |
object V426;object V427; |
3064 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
3065 |
|
goto TTL; |
3066 |
TTL:; |
TTL:; |
3067 |
if(!(type_of((V426))==t_cons)){ |
if(!(type_of((V426))==t_cons)){ |
3068 |
goto T1845;} |
goto T1863;} |
3069 |
{object V428; |
{object V428; |
3070 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
3071 |
V428= symbol_value(VV[54]); |
V428= symbol_value(VV[54]); |
3078 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
3079 |
{object V429 = Cnil; |
{object V429 = Cnil; |
3080 |
VMR24(V429)}} |
VMR24(V429)}} |
3081 |
T1845:; |
goto T1863; |
3082 |
|
T1863:; |
3083 |
{object V430 = (*(LnkLI105))((V426),(V427)); |
{object V430 = (*(LnkLI105))((V426),(V427)); |
3084 |
VMR24(V430)} |
VMR24(V430)} |
3085 |
|
return Cnil; |
3086 |
} |
} |
3087 |
/* local entry for function C2DM-BIND-INIT */ |
/* local entry for function C2DM-BIND-INIT */ |
3088 |
|
|
3091 |
object V433;object V434; |
object V433;object V434; |
3092 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
3093 |
bds_check; |
bds_check; |
3094 |
|
goto TTL; |
3095 |
TTL:; |
TTL:; |
3096 |
if(!(type_of((V433))==t_cons)){ |
if(!(type_of((V433))==t_cons)){ |
3097 |
goto T1858;} |
goto T1876;} |
3098 |
{object V435; |
{object V435; |
3099 |
object V436; |
object V436; |
3100 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],symbol_value(VV[53])); |
3115 |
bds_unwind1; |
bds_unwind1; |
3116 |
bds_unwind1; |
bds_unwind1; |
3117 |
VMR25(V439)}} |
VMR25(V439)}} |
3118 |
T1858:; |
goto T1876; |
3119 |
|
T1876:; |
3120 |
{object V440 = (*(LnkLI106))((V433),(V434)); |
{object V440 = (*(LnkLI106))((V433),(V434)); |
3121 |
VMR25(V440)} |
VMR25(V440)} |
3122 |
|
base[0]=base[0]; |
3123 |
|
return Cnil; |
3124 |
} |
} |
3125 |
/* local function DO-DECL */ |
/* local function DO-DECL */ |
3126 |
|
|
3127 |
static L16(base0) |
static void L16(base0) |
3128 |
register object *base0; |
register object *base0; |
3129 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3130 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
3133 |
check_arg(1); |
check_arg(1); |
3134 |
V441=(base[0]); |
V441=(base[0]); |
3135 |
vs_top=sup; |
vs_top=sup; |
3136 |
|
goto TTL; |
3137 |
TTL:; |
TTL:; |
3138 |
{object V442; |
{object V442; |
3139 |
V442= (*(LnkLI121))((V441)); |
V442= (*(LnkLI121))((V441)); |
3140 |
if(((V442))==Cnil){ |
if(((V442))==Cnil){ |
3141 |
goto T1874;} |
goto T1892;} |
3142 |
{object V443; |
{object V443; |
3143 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
3144 |
V443= symbol_value(VV[54]); |
V443= symbol_value(VV[54]); |
3146 |
(void)(structure_set((V441),VV[6],4,(V443))); |
(void)(structure_set((V441),VV[6],4,(V443))); |
3147 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
3148 |
if((base0[9])!=Cnil){ |
if((base0[9])!=Cnil){ |
3149 |
goto T1881;} |
goto T1899;} |
3150 |
princ_char(123,VV[10]); |
princ_char(123,VV[10]); |
3151 |
base0[9]= Ct; |
base0[9]= Ct; |
3152 |
T1881:; |
goto T1899; |
3153 |
|
T1899:; |
3154 |
base[1]= (V441); |
base[1]= (V441); |
3155 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3156 |
(void) (*Lnk122)(); |
(void) (*Lnk122)(); |
3157 |
return;} |
return;} |
3158 |
T1874:; |
goto T1892; |
3159 |
|
T1892:; |
3160 |
base[1]= Cnil; |
base[1]= Cnil; |
3161 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3162 |
return;} |
return;} |
3164 |
} |
} |
3165 |
/* local function DO-DECL */ |
/* local function DO-DECL */ |
3166 |
|
|
3167 |
static L14(base0) |
static void L14(base0) |
3168 |
register object *base0; |
register object *base0; |
3169 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3170 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
3173 |
check_arg(1); |
check_arg(1); |
3174 |
V444=(base[0]); |
V444=(base[0]); |
3175 |
vs_top=sup; |
vs_top=sup; |
3176 |
|
goto TTL; |
3177 |
TTL:; |
TTL:; |
3178 |
{object V445; |
{object V445; |
3179 |
V445= (*(LnkLI121))((V444)); |
V445= (*(LnkLI121))((V444)); |
3180 |
if(((V445))==Cnil){ |
if(((V445))==Cnil){ |
3181 |
goto T1890;} |
goto T1908;} |
3182 |
{object V446; |
{object V446; |
3183 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
3184 |
V446= symbol_value(VV[54]); |
V446= symbol_value(VV[54]); |
3186 |
(void)(structure_set((V444),VV[6],4,(V446))); |
(void)(structure_set((V444),VV[6],4,(V446))); |
3187 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
3188 |
if((base0[7])!=Cnil){ |
if((base0[7])!=Cnil){ |
3189 |
goto T1897;} |
goto T1915;} |
3190 |
princ_char(123,VV[10]); |
princ_char(123,VV[10]); |
3191 |
base0[7]= Ct; |
base0[7]= Ct; |
3192 |
T1897:; |
goto T1915; |
3193 |
|
T1915:; |
3194 |
base[1]= (V444); |
base[1]= (V444); |
3195 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3196 |
(void) (*Lnk122)(); |
(void) (*Lnk122)(); |
3197 |
return;} |
return;} |
3198 |
T1890:; |
goto T1908; |
3199 |
|
T1908:; |
3200 |
base[1]= Cnil; |
base[1]= Cnil; |
3201 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3202 |
return;} |
return;} |
3203 |
} |
} |
3204 |
} |
} |
3205 |
static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* WT-VAR-DECL */ |
static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* WT-VAR-DECL */ |
3206 |
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],&LnkLI121,1,ap);} /* C2VAR-KIND */ |
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],(void **)&LnkLI121,1,ap);} /* C2VAR-KIND */ |
3207 |
static object LnkTLI120(){return call_proc0(VV[120],&LnkLI120);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI120(){return call_proc0(VV[120],(void **)&LnkLI120);} /* CLOSE-INLINE-BLOCKS */ |
3208 |
static object LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],&LnkLI119,ap);} /* INLINE-ARGS */ |
static object LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],(void **)&LnkLI119,ap);} /* INLINE-ARGS */ |
3209 |
static object LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],&LnkLI118,2,ap);} /* C2DM-BIND-INIT */ |
static object LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],(void **)&LnkLI118,2,ap);} /* C2DM-BIND-INIT */ |
3210 |
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,2,ap);} /* C2DM-BIND-LOC */ |
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],(void **)&LnkLI117,2,ap);} /* C2DM-BIND-LOC */ |
3211 |
static object LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],&LnkLI116,1,ap);} /* C2DM-RESERVE-V */ |
static object LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],(void **)&LnkLI116,1,ap);} /* C2DM-RESERVE-V */ |
3212 |
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,2,ap);} /* C2DM-BIND-VL */ |
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],(void **)&LnkLI115,2,ap);} /* C2DM-BIND-VL */ |
3213 |
static object LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],&LnkLI114,1,ap);} /* C2DM-RESERVE-VL */ |
static object LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],(void **)&LnkLI114,1,ap);} /* C2DM-RESERVE-VL */ |
3214 |
static object LnkTLI113(){return call_proc0(VV[113],&LnkLI113);} /* C1NIL */ |
static object LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* C1NIL */ |
3215 |
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* C1DM-V */ |
static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* C1DM-V */ |
3216 |
static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* DM-BAD-KEY */ |
static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* DM-BAD-KEY */ |
3217 |
static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* C1DM-VL */ |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* C1DM-VL */ |
3218 |
static object LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* WT-VS */ |
static object LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],(void **)&LnkLI109,1,ap);} /* WT-VS */ |
3219 |
static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* ADD-SYMBOL */ |
static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],(void **)&LnkLI108,1,ap);} /* ADD-SYMBOL */ |
3220 |
static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* C2EXPR */ |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* C2EXPR */ |
3221 |
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* C2BIND-INIT */ |
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],(void **)&LnkLI106,2,ap);} /* C2BIND-INIT */ |
3222 |
static object LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],&LnkLI105,2,ap);} /* C2BIND-LOC */ |
static object LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],(void **)&LnkLI105,2,ap);} /* C2BIND-LOC */ |
3223 |
static object LnkTLI104(){return call_proc0(VV[104],&LnkLI104);} /* RESET-TOP */ |
static object LnkTLI104(){return call_proc0(VV[104],(void **)&LnkLI104);} /* RESET-TOP */ |
3224 |
static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,1,ap);} /* C2BIND */ |
static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],(void **)&LnkLI103,1,ap);} /* C2BIND */ |
3225 |
static object LnkTLI102(){return call_proc0(VV[102],&LnkLI102);} /* VS-PUSH */ |
static object LnkTLI102(){return call_proc0(VV[102],(void **)&LnkLI102);} /* VS-PUSH */ |
3226 |
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,2,ap);} /* C2LAMBDA-EXPR-WITHOUT-KEY */ |
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],(void **)&LnkLI101,2,ap);} /* C2LAMBDA-EXPR-WITHOUT-KEY */ |
3227 |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* C2LAMBDA-EXPR-WITH-KEY */ |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,2,ap);} /* C2LAMBDA-EXPR-WITH-KEY */ |
3228 |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,1,ap);} /* RECORD-ARG-INFO */ |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],(void **)&LnkLI99,1,ap);} /* RECORD-ARG-INFO */ |
3229 |
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],&LnkLI98,3,ap);} /* FIX-DOWN-ARGS */ |
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],(void **)&LnkLI98,3,ap);} /* FIX-DOWN-ARGS */ |
3230 |
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,1,ap);} /* CHECK-VREF */ |
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,1,ap);} /* CHECK-VREF */ |
3231 |
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,2,ap);} /* C1DECL-BODY */ |
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,2,ap);} /* C1DECL-BODY */ |
3232 |
static object LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],&LnkLI95,3,ap);} /* CHECK-VDECL */ |
static object LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],(void **)&LnkLI95,3,ap);} /* CHECK-VDECL */ |
3233 |
static object LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],&LnkLI94,2,ap);} /* ADD-INFO */ |
static object LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],(void **)&LnkLI94,2,ap);} /* ADD-INFO */ |
3234 |
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],&LnkLI93,ap);} /* MAKE-VAR */ |
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],(void **)&LnkLI93,ap);} /* MAKE-VAR */ |
3235 |
static object LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],&LnkLI92,3,ap);} /* AND-FORM-TYPE */ |
static object LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],(void **)&LnkLI92,3,ap);} /* AND-FORM-TYPE */ |
3236 |
static object LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],&LnkLI91,2,ap);} /* C1EXPR* */ |
static object LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],(void **)&LnkLI91,2,ap);} /* C1EXPR* */ |
3237 |
static object LnkTLI90(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[90],&LnkLI90,1,ap);} /* DEFAULT-INIT */ |
static object LnkTLI90(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[90],(void **)&LnkLI90,1,ap);} /* DEFAULT-INIT */ |
3238 |
static object LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[89],&LnkLI89,4,ap);} /* C1MAKE-VAR */ |
static object LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[89],(void **)&LnkLI89,4,ap);} /* C1MAKE-VAR */ |
3239 |
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],&LnkLI88,1,ap);} /* C1ADD-GLOBALS */ |
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],(void **)&LnkLI88,1,ap);} /* C1ADD-GLOBALS */ |
3240 |
static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* C1BODY */ |
static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* C1BODY */ |
3241 |
static object LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[86],&LnkLI86,ap);} /* CMPERR */ |
static object LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[86],(void **)&LnkLI86,ap);} /* CMPERR */ |
3242 |
static object LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[85],&LnkLI85,ap);} /* MAKE-INFO */ |
static object LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[85],(void **)&LnkLI85,ap);} /* MAKE-INFO */ |
3243 |
static object LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[84],&LnkLI84,ap);} /* UNWIND-EXIT */ |
static object LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[84],(void **)&LnkLI84,ap);} /* UNWIND-EXIT */ |
3244 |
static object LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[83],&LnkLI83,ap);} /* MAKE-FUN */ |
static object LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[83],(void **)&LnkLI83,ap);} /* MAKE-FUN */ |
3245 |
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],&LnkLI82,ap);} /* DELETE */ |
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],(void **)&LnkLI82,ap);} /* DELETE */ |
3246 |
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* WT-H1 */ |
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],(void **)&LnkLI81,1,ap);} /* WT-H1 */ |
3247 |
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* WT1 */ |
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],(void **)&LnkLI80,1,ap);} /* WT1 */ |
3248 |
static object LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],&LnkLI79,1,ap);} /* C1EXPR */ |
static object LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],(void **)&LnkLI79,1,ap);} /* C1EXPR */ |
3249 |
|
|
3250 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3251 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |