1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmpwt.h" |
#include "cmpwt.h" |
4 |
init_cmpwt(){do_init(VV);} |
void init_cmpwt(){do_init(VV);} |
5 |
/* local entry for function WT-COMMENT */ |
/* local entry for function WT-COMMENT */ |
6 |
|
|
7 |
static object LI1(V1,va_alist) |
static object LI1(V1,va_alist) |
12 |
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
13 |
{object V2; |
{object V2; |
14 |
object V3; |
object V3; |
15 |
|
Vcs[0]=Vcs[0]; |
16 |
|
va_start(ap); |
17 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
18 |
V2= V1; |
V2= V1; |
19 |
narg = narg - 1; |
narg = narg - 1; |
20 |
if (narg <= 0) goto T1; |
if (narg <= 0) goto T1; |
21 |
else { |
else { |
|
va_start(ap); |
|
22 |
V3= va_arg(ap,object);} |
V3= va_arg(ap,object);} |
23 |
--narg; goto T2; |
--narg; goto T2; |
24 |
|
goto T1; |
25 |
T1:; |
T1:; |
26 |
V3= Cnil; |
V3= Cnil; |
27 |
|
goto T2; |
28 |
T2:; |
T2:; |
29 |
princ_str("\n/* ",VV[0]); |
princ_str("\n/* ",VV[0]); |
30 |
(void)(princ((V2),symbol_value(VV[0]))); |
(void)(princ((V2),symbol_value(VV[0]))); |
36 |
register long V6; |
register long V6; |
37 |
V5= length((V4)); |
V5= length((V4)); |
38 |
V6= 0; |
V6= 0; |
39 |
|
goto T13; |
40 |
T13:; |
T13:; |
41 |
if(!((V6)>=(V5))){ |
if(!((V6)>=(V5))){ |
42 |
goto T14;} |
goto T14;} |
43 |
goto T6; |
goto T6; |
44 |
|
goto T14; |
45 |
T14:; |
T14:; |
46 |
{register unsigned char V7; |
{register unsigned char V7; |
47 |
V7= char_code(elt((V4),V6)); |
V7= char_code(elt((V4),V6)); |
53 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
54 |
goto T18;} |
goto T18;} |
55 |
(void)(princ(code_char(V7),symbol_value(VV[0])));} |
(void)(princ(code_char(V7),symbol_value(VV[0])));} |
56 |
|
goto T18; |
57 |
T18:; |
T18:; |
58 |
V6= (V6)+1; |
V6= (V6)+1; |
59 |
goto T13;}} |
goto T13;}} |
60 |
|
goto T6; |
61 |
T6:; |
T6:; |
62 |
princ_str(" */\n",VV[0]); |
princ_str(" */\n",VV[0]); |
63 |
{object V8 = Cnil; |
{object V8 = Cnil; |
64 |
VMR1(V8)}} |
VMR1(V8)} |
65 |
|
va_end(ap); |
66 |
|
base[0]=base[0]; |
67 |
|
return Cnil;} |
68 |
} |
} |
69 |
/* local entry for function WT1 */ |
/* local entry for function WT1 */ |
70 |
|
|
72 |
|
|
73 |
register object V10; |
register object V10; |
74 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
75 |
|
goto TTL; |
76 |
TTL:; |
TTL:; |
77 |
if(type_of((V10))==t_string){ |
if(type_of((V10))==t_string){ |
78 |
goto T29;} |
goto T29;} |
80 |
goto T29;} |
goto T29;} |
81 |
if(!(type_of((V10))==t_character)){ |
if(!(type_of((V10))==t_character)){ |
82 |
goto T30;} |
goto T30;} |
83 |
|
goto T29; |
84 |
T29:; |
T29:; |
85 |
(void)(princ((V10),symbol_value(VV[0]))); |
(void)(princ((V10),symbol_value(VV[0]))); |
86 |
goto T28; |
goto T28; |
87 |
|
goto T30; |
88 |
T30:; |
T30:; |
89 |
if(type_of((V10))==t_longfloat){ |
if(type_of((V10))==t_longfloat){ |
90 |
goto T36;} |
goto T36;} |
91 |
if(!(type_of((V10))==t_shortfloat)){ |
if(!(type_of((V10))==t_shortfloat)){ |
92 |
goto T37;} |
goto T37;} |
93 |
|
goto T36; |
94 |
T36:; |
T36:; |
95 |
base[0]= symbol_value(VV[0]); |
base[0]= symbol_value(VV[0]); |
96 |
base[1]= VV[2]; |
base[1]= VV[2]; |
99 |
Lformat(); |
Lformat(); |
100 |
vs_top=sup; |
vs_top=sup; |
101 |
goto T28; |
goto T28; |
102 |
|
goto T37; |
103 |
T37:; |
T37:; |
104 |
base[0]= (V10); |
base[0]= (V10); |
105 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
106 |
(void) (*Lnk43)(); |
(void) (*Lnk43)(); |
107 |
vs_top=sup; |
vs_top=sup; |
108 |
|
goto T28; |
109 |
T28:; |
T28:; |
110 |
{object V11 = Cnil; |
{object V11 = Cnil; |
111 |
VMR2(V11)} |
VMR2(V11)} |
112 |
|
base[0]=base[0]; |
113 |
|
return Cnil; |
114 |
} |
} |
115 |
/* local entry for function WT-H1 */ |
/* local entry for function WT-H1 */ |
116 |
|
|
118 |
|
|
119 |
register object V13; |
register object V13; |
120 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
121 |
|
goto TTL; |
122 |
TTL:; |
TTL:; |
123 |
if(!(type_of((V13))==t_cons)){ |
if(!(type_of((V13))==t_cons)){ |
124 |
goto T47;} |
goto T47;} |
136 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
137 |
vs_top=sup; |
vs_top=sup; |
138 |
goto T45; |
goto T45; |
139 |
|
goto T51; |
140 |
T51:; |
T51:; |
141 |
base[0]= VV[4]; |
base[0]= VV[4]; |
142 |
base[1]= (V13); |
base[1]= (V13); |
144 |
(void) (*Lnk44)(); |
(void) (*Lnk44)(); |
145 |
vs_top=sup; |
vs_top=sup; |
146 |
goto T45;} |
goto T45;} |
147 |
|
goto T47; |
148 |
T47:; |
T47:; |
149 |
(void)(princ((V13),symbol_value(VV[5]))); |
(void)(princ((V13),symbol_value(VV[5]))); |
150 |
|
goto T45; |
151 |
T45:; |
T45:; |
152 |
{object V16 = Cnil; |
{object V16 = Cnil; |
153 |
VMR3(V16)} |
VMR3(V16)} |
154 |
|
base[0]=base[0]; |
155 |
|
return Cnil; |
156 |
} |
} |
157 |
/* local entry for function PUSH-DATA-INCF */ |
/* local entry for function PUSH-DATA-INCF */ |
158 |
|
|
160 |
|
|
161 |
object V18; |
object V18; |
162 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
163 |
|
goto TTL; |
164 |
TTL:; |
TTL:; |
165 |
base[0]= (V18); |
base[0]= (V18); |
166 |
base[1]= small_fixnum(-1000); |
base[1]= small_fixnum(-1000); |
173 |
setq(VV[7],number_plus(symbol_value(VV[7]),small_fixnum(1))); |
setq(VV[7],number_plus(symbol_value(VV[7]),small_fixnum(1))); |
174 |
{object V21 = symbol_value(VV[7]); |
{object V21 = symbol_value(VV[7]); |
175 |
VMR4(V21)} |
VMR4(V21)} |
176 |
|
base[0]=base[0]; |
177 |
|
return Cnil; |
178 |
} |
} |
179 |
/* local entry for function WT-DATA1 */ |
/* local entry for function WT-DATA1 */ |
180 |
|
|
183 |
object V23; |
object V23; |
184 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
185 |
bds_check; |
bds_check; |
186 |
|
goto TTL; |
187 |
TTL:; |
TTL:; |
188 |
bds_bind(VV[8],Cnil); |
bds_bind(VV[8],Cnil); |
189 |
bds_bind(VV[9],small_fixnum(10)); |
bds_bind(VV[9],small_fixnum(10)); |
212 |
bds_unwind1; |
bds_unwind1; |
213 |
bds_unwind1; |
bds_unwind1; |
214 |
VMR5(V24)} |
VMR5(V24)} |
215 |
|
base[0]=base[0]; |
216 |
|
return Cnil; |
217 |
} |
} |
218 |
/* local entry for function VERIFY-DATA-VECTOR */ |
/* local entry for function VERIFY-DATA-VECTOR */ |
219 |
|
|
221 |
|
|
222 |
register object V26; |
register object V26; |
223 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
224 |
|
goto TTL; |
225 |
TTL:; |
TTL:; |
226 |
{register object V27; |
{register object V27; |
227 |
V27= Cnil; |
V27= Cnil; |
229 |
register object V29; |
register object V29; |
230 |
V28= make_fixnum(length((V26))); |
V28= make_fixnum(length((V26))); |
231 |
V29= small_fixnum(0); |
V29= small_fixnum(0); |
232 |
|
goto T68; |
233 |
T68:; |
T68:; |
234 |
if(!(number_compare((V29),(V28))>=0)){ |
if(!(number_compare((V29),(V28))>=0)){ |
235 |
goto T69;} |
goto T69;} |
236 |
goto T64; |
goto T64; |
237 |
|
goto T69; |
238 |
T69:; |
T69:; |
239 |
V27= aref1((V26),fixint((V29))); |
V27= aref1((V26),fixint((V29))); |
240 |
{register object V30; |
{register object V30; |
247 |
if(eql(car((V27)),(V30))){ |
if(eql(car((V27)),(V30))){ |
248 |
goto T75;} |
goto T75;} |
249 |
(void)((VFUN_NARGS=2,(*(LnkLI47))(VV[22],cdr((V27)))));} |
(void)((VFUN_NARGS=2,(*(LnkLI47))(VV[22],cdr((V27)))));} |
250 |
|
goto T75; |
251 |
T75:; |
T75:; |
252 |
(void)(aset1((V26),fixint((V29)),cdr((V27)))); |
(void)(aset1((V26),fixint((V29)),cdr((V27)))); |
253 |
V29= one_plus((V29)); |
V29= one_plus((V29)); |
254 |
goto T68;} |
goto T68;} |
255 |
|
goto T64; |
256 |
T64:; |
T64:; |
257 |
{object V31 = (V26); |
{object V31 = (V26); |
258 |
VMR6(V31)}} |
VMR6(V31)}} |
259 |
|
base[0]=base[0]; |
260 |
|
return Cnil; |
261 |
} |
} |
262 |
/* local entry for function ADD-INIT */ |
/* local entry for function ADD-INIT */ |
263 |
|
|
269 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
270 |
{object V33; |
{object V33; |
271 |
object V34; |
object V34; |
272 |
|
Vcs[0]=Vcs[0]; |
273 |
|
va_start(ap); |
274 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
275 |
V33= V32; |
V33= V32; |
276 |
narg = narg - 1; |
narg = narg - 1; |
277 |
if (narg <= 0) goto T85; |
if (narg <= 0) goto T85; |
278 |
else { |
else { |
|
va_start(ap); |
|
279 |
V34= va_arg(ap,object);} |
V34= va_arg(ap,object);} |
280 |
--narg; goto T86; |
--narg; goto T86; |
281 |
|
goto T85; |
282 |
T85:; |
T85:; |
283 |
V34= Cnil; |
V34= Cnil; |
284 |
|
goto T86; |
285 |
T86:; |
T86:; |
286 |
{object V35; |
{object V35; |
287 |
base[0]= (V33); |
base[0]= (V33); |
300 |
V40= make_cons((V35),Cnil); |
V40= make_cons((V35),Cnil); |
301 |
V38= nconc(/* INLINE-ARGS */V39,/* INLINE-ARGS */V40); |
V38= nconc(/* INLINE-ARGS */V39,/* INLINE-ARGS */V40); |
302 |
goto T94; |
goto T94; |
303 |
|
goto T96; |
304 |
T96:; |
T96:; |
305 |
V38= make_cons((V35),cadr(symbol_value(VV[6]))); |
V38= make_cons((V35),cadr(symbol_value(VV[6]))); |
306 |
|
goto T94; |
307 |
T94:; |
T94:; |
308 |
if(type_of(cdr((V37)))!=t_cons)FEwrong_type_argument(Scons,cdr((V37))); |
if(type_of(cdr((V37)))!=t_cons)FEwrong_type_argument(Scons,cdr((V37))); |
309 |
(cdr((V37)))->c.c_car = (V38); |
(cdr((V37)))->c.c_car = (V38); |
310 |
(void)(cdr((V37)));} |
(void)(cdr((V37)));} |
311 |
{object V41 = (V33); |
{object V41 = (V33); |
312 |
VMR7(V41)}}} |
VMR7(V41)}} |
313 |
|
va_end(ap); |
314 |
|
base[0]=base[0]; |
315 |
|
return Cnil;} |
316 |
} |
} |
317 |
/* function definition for WT-DATA-FILE */ |
/* function definition for WT-DATA-FILE */ |
318 |
|
|
319 |
static L8() |
static void L8() |
320 |
{register object *base=vs_base; |
{register object *base=vs_base; |
321 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
322 |
vs_reserve(VM8); |
vs_reserve(VM8); |
323 |
check_arg(0); |
check_arg(0); |
324 |
vs_top=sup; |
vs_top=sup; |
325 |
|
goto TTL; |
326 |
TTL:; |
TTL:; |
327 |
(void)((*(LnkLI48))(car(symbol_value(VV[6])))); |
(void)((*(LnkLI48))(car(symbol_value(VV[6])))); |
328 |
{object V42; |
{object V42; |
346 |
vs_base=vs_top; |
vs_base=vs_top; |
347 |
(void) (*Lnk50)(); |
(void) (*Lnk50)(); |
348 |
return; |
return; |
349 |
|
goto T108; |
350 |
T108:; |
T108:; |
351 |
base[1]= symbol_value(VV[21]); |
base[1]= symbol_value(VV[21]); |
352 |
base[2]= VV[26]; |
base[2]= VV[26]; |
357 |
register object V51; |
register object V51; |
358 |
V50= caddr(symbol_value(VV[6])); |
V50= caddr(symbol_value(VV[6])); |
359 |
V51= car((V50)); |
V51= car((V50)); |
360 |
|
goto T117; |
361 |
T117:; |
T117:; |
362 |
if(!(endp((V50)))){ |
if(!(endp((V50)))){ |
363 |
goto T118;} |
goto T118;} |
364 |
goto T113; |
goto T113; |
365 |
|
goto T118; |
366 |
T118:; |
T118:; |
367 |
base[3]= symbol_value(VV[21]); |
base[3]= symbol_value(VV[21]); |
368 |
base[4]= VV[27]; |
base[4]= VV[27]; |
373 |
V50= cdr((V50)); |
V50= cdr((V50)); |
374 |
V51= car((V50)); |
V51= car((V50)); |
375 |
goto T117;} |
goto T117;} |
376 |
|
goto T113; |
377 |
T113:; |
T113:; |
378 |
(void)((*(LnkLI51))(car(symbol_value(VV[6])))); |
(void)((*(LnkLI51))(car(symbol_value(VV[6])))); |
379 |
base[1]= symbol_value(VV[21]); |
base[1]= symbol_value(VV[21]); |
384 |
} |
} |
385 |
/* function definition for WT-FASD-DATA-FILE */ |
/* function definition for WT-FASD-DATA-FILE */ |
386 |
|
|
387 |
static L9() |
static void L9() |
388 |
{register object *base=vs_base; |
{register object *base=vs_base; |
389 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
390 |
vs_reserve(VM9); |
vs_reserve(VM9); |
391 |
check_arg(0); |
check_arg(0); |
392 |
vs_top=sup; |
vs_top=sup; |
393 |
|
goto TTL; |
394 |
TTL:; |
TTL:; |
395 |
{object V52; |
{object V52; |
396 |
object V53; |
object V53; |
408 |
register object V55; |
register object V55; |
409 |
V54= (V53); |
V54= (V53); |
410 |
V55= car((V54)); |
V55= car((V54)); |
411 |
|
goto T146; |
412 |
T146:; |
T146:; |
413 |
if(!(endp((V54)))){ |
if(!(endp((V54)))){ |
414 |
goto T147;} |
goto T147;} |
415 |
goto T139; |
goto T139; |
416 |
|
goto T147; |
417 |
T147:; |
T147:; |
418 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
419 |
base[3]= symbol_value(VV[21]); |
base[3]= symbol_value(VV[21]); |
428 |
V54= cdr((V54)); |
V54= cdr((V54)); |
429 |
V55= car((V54)); |
V55= car((V54)); |
430 |
goto T146;} |
goto T146;} |
431 |
|
goto T139; |
432 |
T139:; |
T139:; |
433 |
base[1]= (V52); |
base[1]= (V52); |
434 |
base[2]= car(symbol_value(VV[25])); |
base[2]= car(symbol_value(VV[25])); |
445 |
static object LI10() |
static object LI10() |
446 |
|
|
447 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
448 |
|
goto TTL; |
449 |
TTL:; |
TTL:; |
450 |
{object V56 = Cnil; |
{object V56 = Cnil; |
451 |
VMR10(V56)} |
VMR10(V56)} |
452 |
|
return Cnil; |
453 |
} |
} |
454 |
/* local entry for function WT-DATA-END */ |
/* local entry for function WT-DATA-END */ |
455 |
|
|
456 |
static object LI11() |
static object LI11() |
457 |
|
|
458 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
459 |
|
goto TTL; |
460 |
TTL:; |
TTL:; |
461 |
{object V57 = Cnil; |
{object V57 = Cnil; |
462 |
VMR11(V57)} |
VMR11(V57)} |
463 |
|
return Cnil; |
464 |
} |
} |
465 |
/* local entry for function WT-DATA-PACKAGE-OPERATION */ |
/* local entry for function WT-DATA-PACKAGE-OPERATION */ |
466 |
|
|
468 |
|
|
469 |
object V59; |
object V59; |
470 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
471 |
|
goto TTL; |
472 |
TTL:; |
TTL:; |
473 |
{object V60; |
{object V60; |
474 |
object V61; |
object V61; |
479 |
(void)(cddr((V60))); |
(void)(cddr((V60))); |
480 |
{object V62 = (V61); |
{object V62 = (V61); |
481 |
VMR12(V62)}} |
VMR12(V62)}} |
482 |
|
base[0]=base[0]; |
483 |
|
return Cnil; |
484 |
} |
} |
485 |
/* macro definition for WT */ |
/* macro definition for WT */ |
486 |
|
|
487 |
static L13() |
static void L13() |
488 |
{register object *base=vs_base; |
{register object *base=vs_base; |
489 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
490 |
vs_reserve(VM13); |
vs_reserve(VM13); |
497 |
register object V65; |
register object V65; |
498 |
V64= base[2]; |
V64= base[2]; |
499 |
V65= car((V64)); |
V65= car((V64)); |
500 |
|
goto T173; |
501 |
T173:; |
T173:; |
502 |
if(!(endp((V64)))){ |
if(!(endp((V64)))){ |
503 |
goto T174;} |
goto T174;} |
506 |
base[5]= make_cons(VV[29],/* INLINE-ARGS */V67); |
base[5]= make_cons(VV[29],/* INLINE-ARGS */V67); |
507 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
508 |
return; |
return; |
509 |
|
goto T174; |
510 |
T174:; |
T174:; |
511 |
if(!(type_of((V65))==t_string)){ |
if(!(type_of((V65))==t_string)){ |
512 |
goto T180;} |
goto T180;} |
513 |
V68= list(3,VV[30],(V65),VV[0]); |
V68= list(3,VV[30],(V65),VV[0]); |
514 |
base[3]= make_cons(/* INLINE-ARGS */V68,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V68,base[3]); |
515 |
goto T178; |
goto T178; |
516 |
|
goto T180; |
517 |
T180:; |
T180:; |
518 |
V69= list(2,VV[31],(V65)); |
V69= list(2,VV[31],(V65)); |
519 |
base[3]= make_cons(/* INLINE-ARGS */V69,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V69,base[3]); |
520 |
|
goto T178; |
521 |
T178:; |
T178:; |
522 |
V64= cdr((V64)); |
V64= cdr((V64)); |
523 |
V65= car((V64)); |
V65= car((V64)); |
525 |
} |
} |
526 |
/* macro definition for WT-H */ |
/* macro definition for WT-H */ |
527 |
|
|
528 |
static L14() |
static void L14() |
529 |
{register object *base=vs_base; |
{register object *base=vs_base; |
530 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
531 |
vs_reserve(VM14); |
vs_reserve(VM14); |
539 |
base[4]= VV[32]; |
base[4]= VV[32]; |
540 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
541 |
return; |
return; |
542 |
|
goto T191; |
543 |
T191:; |
T191:; |
544 |
if(!(type_of(car(base[2]))==t_string)){ |
if(!(type_of(car(base[2]))==t_string)){ |
545 |
goto T194;} |
goto T194;} |
547 |
register object V72; |
register object V72; |
548 |
V71= cdr(base[2]); |
V71= cdr(base[2]); |
549 |
V72= car((V71)); |
V72= car((V71)); |
550 |
|
goto T199; |
551 |
T199:; |
T199:; |
552 |
if(!(endp((V71)))){ |
if(!(endp((V71)))){ |
553 |
goto T200;} |
goto T200;} |
557 |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V74,reverse(/* INLINE-ARGS */V75)); |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V74,reverse(/* INLINE-ARGS */V75)); |
558 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
559 |
return; |
return; |
560 |
|
goto T200; |
561 |
T200:; |
T200:; |
562 |
if(!(type_of((V72))==t_string)){ |
if(!(type_of((V72))==t_string)){ |
563 |
goto T206;} |
goto T206;} |
564 |
V76= list(3,VV[30],(V72),VV[5]); |
V76= list(3,VV[30],(V72),VV[5]); |
565 |
base[3]= make_cons(/* INLINE-ARGS */V76,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V76,base[3]); |
566 |
goto T204; |
goto T204; |
567 |
|
goto T206; |
568 |
T206:; |
T206:; |
569 |
V77= list(2,VV[35],(V72)); |
V77= list(2,VV[35],(V72)); |
570 |
base[3]= make_cons(/* INLINE-ARGS */V77,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V77,base[3]); |
571 |
|
goto T204; |
572 |
T204:; |
T204:; |
573 |
V71= cdr((V71)); |
V71= cdr((V71)); |
574 |
V72= car((V71)); |
V72= car((V71)); |
575 |
goto T199;} |
goto T199;} |
576 |
|
goto T194; |
577 |
T194:; |
T194:; |
578 |
{register object V78; |
{register object V78; |
579 |
register object V79; |
register object V79; |
580 |
V78= base[2]; |
V78= base[2]; |
581 |
V79= car((V78)); |
V79= car((V78)); |
582 |
|
goto T218; |
583 |
T218:; |
T218:; |
584 |
if(!(endp((V78)))){ |
if(!(endp((V78)))){ |
585 |
goto T219;} |
goto T219;} |
587 |
base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V80)); |
base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V80)); |
588 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
589 |
return; |
return; |
590 |
|
goto T219; |
591 |
T219:; |
T219:; |
592 |
if(!(type_of((V79))==t_string)){ |
if(!(type_of((V79))==t_string)){ |
593 |
goto T225;} |
goto T225;} |
594 |
V81= list(3,VV[30],(V79),VV[5]); |
V81= list(3,VV[30],(V79),VV[5]); |
595 |
base[3]= make_cons(/* INLINE-ARGS */V81,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V81,base[3]); |
596 |
goto T223; |
goto T223; |
597 |
|
goto T225; |
598 |
T225:; |
T225:; |
599 |
V82= list(2,VV[35],(V79)); |
V82= list(2,VV[35],(V79)); |
600 |
base[3]= make_cons(/* INLINE-ARGS */V82,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V82,base[3]); |
601 |
|
goto T223; |
602 |
T223:; |
T223:; |
603 |
V78= cdr((V78)); |
V78= cdr((V78)); |
604 |
V79= car((V78)); |
V79= car((V78)); |
606 |
} |
} |
607 |
/* macro definition for WT-NL */ |
/* macro definition for WT-NL */ |
608 |
|
|
609 |
static L15() |
static void L15() |
610 |
{register object *base=vs_base; |
{register object *base=vs_base; |
611 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
612 |
vs_reserve(VM15); |
vs_reserve(VM15); |
620 |
base[4]= VV[37]; |
base[4]= VV[37]; |
621 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
622 |
return; |
return; |
623 |
|
goto T236; |
624 |
T236:; |
T236:; |
625 |
if(!(type_of(car(base[2]))==t_string)){ |
if(!(type_of(car(base[2]))==t_string)){ |
626 |
goto T239;} |
goto T239;} |
628 |
register object V85; |
register object V85; |
629 |
V84= cdr(base[2]); |
V84= cdr(base[2]); |
630 |
V85= car((V84)); |
V85= car((V84)); |
631 |
|
goto T244; |
632 |
T244:; |
T244:; |
633 |
if(!(endp((V84)))){ |
if(!(endp((V84)))){ |
634 |
goto T245;} |
goto T245;} |
638 |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V87,reverse(/* INLINE-ARGS */V88)); |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V87,reverse(/* INLINE-ARGS */V88)); |
639 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
640 |
return; |
return; |
641 |
|
goto T245; |
642 |
T245:; |
T245:; |
643 |
if(!(type_of((V85))==t_string)){ |
if(!(type_of((V85))==t_string)){ |
644 |
goto T251;} |
goto T251;} |
645 |
V89= list(3,VV[30],(V85),VV[0]); |
V89= list(3,VV[30],(V85),VV[0]); |
646 |
base[3]= make_cons(/* INLINE-ARGS */V89,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V89,base[3]); |
647 |
goto T249; |
goto T249; |
648 |
|
goto T251; |
649 |
T251:; |
T251:; |
650 |
V90= list(2,VV[31],(V85)); |
V90= list(2,VV[31],(V85)); |
651 |
base[3]= make_cons(/* INLINE-ARGS */V90,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V90,base[3]); |
652 |
|
goto T249; |
653 |
T249:; |
T249:; |
654 |
V84= cdr((V84)); |
V84= cdr((V84)); |
655 |
V85= car((V84)); |
V85= car((V84)); |
656 |
goto T244;} |
goto T244;} |
657 |
|
goto T239; |
658 |
T239:; |
T239:; |
659 |
{register object V91; |
{register object V91; |
660 |
register object V92; |
register object V92; |
661 |
V91= base[2]; |
V91= base[2]; |
662 |
V92= car((V91)); |
V92= car((V91)); |
663 |
|
goto T263; |
664 |
T263:; |
T263:; |
665 |
if(!(endp((V91)))){ |
if(!(endp((V91)))){ |
666 |
goto T264;} |
goto T264;} |
668 |
base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V93)); |
base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V93)); |
669 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
670 |
return; |
return; |
671 |
|
goto T264; |
672 |
T264:; |
T264:; |
673 |
if(!(type_of((V92))==t_string)){ |
if(!(type_of((V92))==t_string)){ |
674 |
goto T270;} |
goto T270;} |
675 |
V94= list(3,VV[30],(V92),VV[0]); |
V94= list(3,VV[30],(V92),VV[0]); |
676 |
base[3]= make_cons(/* INLINE-ARGS */V94,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V94,base[3]); |
677 |
goto T268; |
goto T268; |
678 |
|
goto T270; |
679 |
T270:; |
T270:; |
680 |
V95= list(2,VV[31],(V92)); |
V95= list(2,VV[31],(V92)); |
681 |
base[3]= make_cons(/* INLINE-ARGS */V95,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V95,base[3]); |
682 |
|
goto T268; |
683 |
T268:; |
T268:; |
684 |
V91= cdr((V91)); |
V91= cdr((V91)); |
685 |
V92= car((V91)); |
V92= car((V91)); |
687 |
} |
} |
688 |
/* macro definition for WT-NL1 */ |
/* macro definition for WT-NL1 */ |
689 |
|
|
690 |
static L16() |
static void L16() |
691 |
{register object *base=vs_base; |
{register object *base=vs_base; |
692 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
693 |
vs_reserve(VM16); |
vs_reserve(VM16); |
701 |
base[4]= VV[40]; |
base[4]= VV[40]; |
702 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
703 |
return; |
return; |
704 |
|
goto T281; |
705 |
T281:; |
T281:; |
706 |
if(!(type_of(car(base[2]))==t_string)){ |
if(!(type_of(car(base[2]))==t_string)){ |
707 |
goto T284;} |
goto T284;} |
709 |
register object V98; |
register object V98; |
710 |
V97= cdr(base[2]); |
V97= cdr(base[2]); |
711 |
V98= car((V97)); |
V98= car((V97)); |
712 |
|
goto T289; |
713 |
T289:; |
T289:; |
714 |
if(!(endp((V97)))){ |
if(!(endp((V97)))){ |
715 |
goto T290;} |
goto T290;} |
719 |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V100,reverse(/* INLINE-ARGS */V101)); |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V100,reverse(/* INLINE-ARGS */V101)); |
720 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
721 |
return; |
return; |
722 |
|
goto T290; |
723 |
T290:; |
T290:; |
724 |
if(!(type_of((V98))==t_string)){ |
if(!(type_of((V98))==t_string)){ |
725 |
goto T296;} |
goto T296;} |
726 |
V102= list(3,VV[30],(V98),VV[0]); |
V102= list(3,VV[30],(V98),VV[0]); |
727 |
base[3]= make_cons(/* INLINE-ARGS */V102,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V102,base[3]); |
728 |
goto T294; |
goto T294; |
729 |
|
goto T296; |
730 |
T296:; |
T296:; |
731 |
V103= list(2,VV[31],(V98)); |
V103= list(2,VV[31],(V98)); |
732 |
base[3]= make_cons(/* INLINE-ARGS */V103,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V103,base[3]); |
733 |
|
goto T294; |
734 |
T294:; |
T294:; |
735 |
V97= cdr((V97)); |
V97= cdr((V97)); |
736 |
V98= car((V97)); |
V98= car((V97)); |
737 |
goto T289;} |
goto T289;} |
738 |
|
goto T284; |
739 |
T284:; |
T284:; |
740 |
{register object V104; |
{register object V104; |
741 |
register object V105; |
register object V105; |
742 |
V104= base[2]; |
V104= base[2]; |
743 |
V105= car((V104)); |
V105= car((V104)); |
744 |
|
goto T308; |
745 |
T308:; |
T308:; |
746 |
if(!(endp((V104)))){ |
if(!(endp((V104)))){ |
747 |
goto T309;} |
goto T309;} |
749 |
base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V106)); |
base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V106)); |
750 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
751 |
return; |
return; |
752 |
|
goto T309; |
753 |
T309:; |
T309:; |
754 |
if(!(type_of((V105))==t_string)){ |
if(!(type_of((V105))==t_string)){ |
755 |
goto T315;} |
goto T315;} |
756 |
V107= list(3,VV[30],(V105),VV[0]); |
V107= list(3,VV[30],(V105),VV[0]); |
757 |
base[3]= make_cons(/* INLINE-ARGS */V107,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V107,base[3]); |
758 |
goto T313; |
goto T313; |
759 |
|
goto T315; |
760 |
T315:; |
T315:; |
761 |
V108= list(2,VV[31],(V105)); |
V108= list(2,VV[31],(V105)); |
762 |
base[3]= make_cons(/* INLINE-ARGS */V108,base[3]); |
base[3]= make_cons(/* INLINE-ARGS */V108,base[3]); |
763 |
|
goto T313; |
764 |
T313:; |
T313:; |
765 |
V104= cdr((V104)); |
V104= cdr((V104)); |
766 |
V105= car((V104)); |
V105= car((V104)); |
767 |
goto T308;} |
goto T308;} |
768 |
} |
} |
769 |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* CONCATENATE */ |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],(void **)&LnkLI55,ap);} /* CONCATENATE */ |
770 |
static LnkT54(){ call_or_link(VV[54],&Lnk54);} /* CLOSE-FASD */ |
static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */ |
771 |
static LnkT53(){ call_or_link(VV[53],&Lnk53);} /* WRITE-FASD-TOP */ |
static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* WRITE-FASD-TOP */ |
772 |
static LnkT52(){ call_or_link(VV[52],&Lnk52);} /* FIND-SHARING-TOP */ |
static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* FIND-SHARING-TOP */ |
773 |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* WT-DATA1 */ |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,1,ap);} /* WT-DATA1 */ |
774 |
static LnkT50(){ call_or_link(VV[50],&Lnk50);} /* WT-FASD-DATA-FILE */ |
static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* WT-FASD-DATA-FILE */ |
775 |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* COERCE */ |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* COERCE */ |
776 |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,1,ap);} /* VERIFY-DATA-VECTOR */ |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],(void **)&LnkLI48,1,ap);} /* VERIFY-DATA-VECTOR */ |
777 |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[47],&LnkLI47,ap);} /* CMPWARN */ |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[47],(void **)&LnkLI47,ap);} /* CMPWARN */ |
778 |
static LnkT46(){ call_or_link(VV[46],&Lnk46);} /* HASH-EQUAL */ |
static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */ |
779 |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],&LnkLI45,ap);} /* VECTOR-PUSH-EXTEND */ |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],(void **)&LnkLI45,ap);} /* VECTOR-PUSH-EXTEND */ |
780 |
static LnkT44(){ call_or_link(VV[44],&Lnk44);} /* CMPILER-ERROR */ |
static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */ |
781 |
static LnkT43(){ call_or_link(VV[43],&Lnk43);} /* WT-LOC */ |
static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */ |
782 |
|
|
783 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
784 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |