2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmploc.h" |
#include "cmploc.h" |
4 |
void init_cmploc(){do_init(VV);} |
void init_cmploc(){do_init(VV);} |
5 |
|
/* function definition for WT-FIRST-VAR-ARG */ |
6 |
|
|
7 |
|
static void L1() |
8 |
|
{register object *base=vs_base; |
9 |
|
register object *sup=base+VM1; VC1 |
10 |
|
vs_reserve(VM1); |
11 |
|
check_arg(0); |
12 |
|
vs_top=sup; |
13 |
|
goto TTL; |
14 |
|
TTL:; |
15 |
|
princ_str("first",VV[0]); |
16 |
|
base[0]= Cnil; |
17 |
|
vs_top=(vs_base=base+0)+1; |
18 |
|
return; |
19 |
|
} |
20 |
/* local entry for function WT-NEXT-VAR-ARG */ |
/* local entry for function WT-NEXT-VAR-ARG */ |
21 |
|
|
22 |
static object LI1() |
static object LI2() |
23 |
|
|
24 |
{ VMB1 VMS1 VMV1 |
{ VMB2 VMS2 VMV2 |
25 |
goto TTL; |
goto TTL; |
26 |
TTL:; |
TTL:; |
27 |
princ_str("va_arg(ap,object)",VV[0]); |
princ_str("va_arg(ap,object)",VV[0]); |
28 |
{object V1 = Cnil; |
{object V1 = Cnil; |
29 |
VMR1(V1)} |
VMR2(V1)} |
30 |
return Cnil; |
return Cnil; |
31 |
} |
} |
32 |
/* function definition for SET-LOC */ |
/* function definition for SET-LOC */ |
33 |
|
|
34 |
static void L2() |
static void L3() |
35 |
{register object *base=vs_base; |
{register object *base=vs_base; |
36 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM3; VC3 |
37 |
vs_reserve(VM2); |
vs_reserve(VM3); |
38 |
{register object V2; |
{register object V2; |
39 |
check_arg(1); |
check_arg(1); |
40 |
V2=(base[0]); |
V2=(base[0]); |
44 |
{register object V3; |
{register object V3; |
45 |
V3= Cnil; |
V3= Cnil; |
46 |
if(!((symbol_value(VV[1]))==(VV[2]))){ |
if(!((symbol_value(VV[1]))==(VV[2]))){ |
47 |
goto T4;} |
goto T5;} |
48 |
base[1]= (*(LnkLI34))((V2)); |
base[1]= (*(LnkLI34))((V2)); |
49 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
50 |
return; |
return; |
51 |
goto T4; |
goto T5; |
52 |
T4:; |
T5:; |
53 |
if(!((symbol_value(VV[1]))==(VV[3]))){ |
if(!((symbol_value(VV[1]))==(VV[3]))){ |
54 |
goto T7;} |
goto T8;} |
55 |
if(!(type_of((V2))==t_cons)){ |
if(!(type_of((V2))==t_cons)){ |
56 |
goto T10;} |
goto T11;} |
57 |
{register object x= car((V2)),V4= VV[4]; |
{register object x= car((V2)),V4= VV[4]; |
58 |
while(!endp(V4)) |
while(!endp(V4)) |
59 |
if(eql(x,V4->c.c_car)){ |
if(eql(x,V4->c.c_car)){ |
60 |
goto T14; |
goto T15; |
61 |
}else V4=V4->c.c_cdr; |
}else V4=V4->c.c_cdr; |
62 |
goto T10;} |
goto T11;} |
63 |
goto T14; |
goto T15; |
64 |
T14:; |
T15:; |
65 |
if((cadr((V2)))==Cnil){ |
if((cadr((V2)))==Cnil){ |
66 |
goto T10;} |
goto T11;} |
67 |
princ_str("\n (void)(",VV[0]); |
princ_str("\n (void)(",VV[0]); |
68 |
base[1]= Ct; |
base[1]= Ct; |
69 |
base[2]= caddr((V2)); |
base[2]= caddr((V2)); |
75 |
base[1]= Cnil; |
base[1]= Cnil; |
76 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
77 |
return; |
return; |
78 |
goto T10; |
goto T11; |
79 |
T10:; |
T11:; |
80 |
if(!(type_of((V2))==t_cons)){ |
if(!(type_of((V2))==t_cons)){ |
81 |
goto T24;} |
goto T25;} |
82 |
if(!((car((V2)))==(VV[5]))){ |
if(!((car((V2)))==(VV[5]))){ |
83 |
goto T24;} |
goto T25;} |
84 |
princ_str("\n (void)",VV[0]); |
princ_str("\n (void)",VV[0]); |
85 |
(void)((*(LnkLI36))((V2))); |
(void)((*(LnkLI36))((V2))); |
86 |
princ_char(59,VV[0]); |
princ_char(59,VV[0]); |
87 |
base[1]= Cnil; |
base[1]= Cnil; |
88 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
89 |
return; |
return; |
90 |
goto T24; |
goto T25; |
91 |
T24:; |
T25:; |
92 |
base[1]= Cnil; |
base[1]= Cnil; |
93 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
94 |
return; |
return; |
95 |
goto T7; |
goto T8; |
96 |
T7:; |
T8:; |
97 |
if(!((symbol_value(VV[1]))==(VV[6]))){ |
if(!((symbol_value(VV[1]))==(VV[6]))){ |
98 |
goto T32;} |
goto T33;} |
99 |
if(((V2))==(VV[7])){ |
if(((V2))==(VV[7])){ |
100 |
goto T35;} |
goto T36;} |
101 |
base[1]= (*(LnkLI37))((V2)); |
base[1]= (*(LnkLI37))((V2)); |
102 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
103 |
return; |
return; |
104 |
goto T35; |
goto T36; |
105 |
T35:; |
T36:; |
106 |
base[1]= Cnil; |
base[1]= Cnil; |
107 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
108 |
return; |
return; |
109 |
goto T32; |
goto T33; |
110 |
T32:; |
T33:; |
111 |
if(!((symbol_value(VV[1]))==(VV[8]))){ |
if(!((symbol_value(VV[1]))==(VV[8]))){ |
112 |
goto T38;} |
goto T39;} |
113 |
base[1]= (V2); |
base[1]= (V2); |
114 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
115 |
(void) (*Lnk38)(); |
(void) (*Lnk38)(); |
116 |
return; |
return; |
117 |
goto T38; |
goto T39; |
118 |
T38:; |
T39:; |
119 |
if(!((symbol_value(VV[1]))==(VV[9]))){ |
if(!((symbol_value(VV[1]))==(VV[9]))){ |
120 |
goto T42;} |
goto T43;} |
121 |
base[1]= (V2); |
base[1]= (V2); |
122 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
123 |
(void) (*Lnk39)(); |
(void) (*Lnk39)(); |
124 |
return; |
return; |
125 |
goto T42; |
goto T43; |
126 |
T42:; |
T43:; |
127 |
if(!((symbol_value(VV[1]))==(VV[10]))){ |
if(!((symbol_value(VV[1]))==(VV[10]))){ |
128 |
goto T46;} |
goto T47;} |
129 |
base[1]= (V2); |
base[1]= (V2); |
130 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
131 |
(void) (*Lnk40)(); |
(void) (*Lnk40)(); |
132 |
return; |
return; |
133 |
goto T46; |
goto T47; |
134 |
T46:; |
T47:; |
135 |
if(!((symbol_value(VV[1]))==(VV[11]))){ |
if(!((symbol_value(VV[1]))==(VV[11]))){ |
136 |
goto T50;} |
goto T51;} |
137 |
base[1]= (V2); |
base[1]= (V2); |
138 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
139 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
140 |
return; |
return; |
141 |
goto T50; |
goto T51; |
142 |
T50:; |
T51:; |
143 |
if(!(type_of(symbol_value(VV[1]))==t_cons)){ |
if(!(type_of(symbol_value(VV[1]))==t_cons)){ |
|
goto T53;} |
|
|
if(type_of(car(symbol_value(VV[1])))==t_symbol){ |
|
144 |
goto T54;} |
goto T54;} |
145 |
goto T53; |
if(type_of(car(symbol_value(VV[1])))==t_symbol){ |
146 |
T53:; |
goto T55;} |
147 |
|
goto T54; |
148 |
|
T54:; |
149 |
base[1]= (*(LnkLI42))(); |
base[1]= (*(LnkLI42))(); |
150 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
151 |
return; |
return; |
152 |
goto T54; |
goto T55; |
153 |
T54:; |
T55:; |
154 |
V3= get(car(symbol_value(VV[1])),VV[12],Cnil); |
V3= get(car(symbol_value(VV[1])),VV[12],Cnil); |
155 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
156 |
goto T59;} |
goto T60;} |
157 |
base[1]= (V3); |
base[1]= (V3); |
158 |
base[2]= (V2); |
base[2]= (V2); |
159 |
{object V5; |
{object V5; |
164 |
vs_base=base+2;} |
vs_base=base+2;} |
165 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
166 |
return; |
return; |
167 |
goto T59; |
goto T60; |
168 |
T59:; |
T60:; |
169 |
V3= get(car(symbol_value(VV[1])),VV[13],Cnil); |
V3= get(car(symbol_value(VV[1])),VV[13],Cnil); |
170 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
171 |
goto T66;} |
goto T67;} |
172 |
princ_str("\n ",VV[0]); |
princ_str("\n ",VV[0]); |
173 |
base[1]= (V3); |
base[1]= (V3); |
174 |
{object V6; |
{object V6; |
185 |
base[1]= Cnil; |
base[1]= Cnil; |
186 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
187 |
return; |
return; |
188 |
goto T66; |
goto T67; |
189 |
T66:; |
T67:; |
190 |
base[1]= (*(LnkLI42))(); |
base[1]= (*(LnkLI42))(); |
191 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
192 |
return;} |
return;} |
194 |
} |
} |
195 |
/* function definition for WT-LOC */ |
/* function definition for WT-LOC */ |
196 |
|
|
197 |
static void L3() |
static void L4() |
198 |
{register object *base=vs_base; |
{register object *base=vs_base; |
199 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM4; VC4 |
200 |
vs_reserve(VM3); |
vs_reserve(VM4); |
201 |
{register object V7; |
{register object V7; |
202 |
check_arg(1); |
check_arg(1); |
203 |
V7=(base[0]); |
V7=(base[0]); |
205 |
goto TTL; |
goto TTL; |
206 |
TTL:; |
TTL:; |
207 |
if(!(((V7))==(Cnil))){ |
if(!(((V7))==(Cnil))){ |
208 |
goto T77;} |
goto T78;} |
209 |
princ_str("Cnil",VV[0]); |
princ_str("Cnil",VV[0]); |
210 |
base[1]= Cnil; |
base[1]= Cnil; |
211 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
212 |
return; |
return; |
213 |
goto T77; |
goto T78; |
214 |
T77:; |
T78:; |
215 |
if(!(((V7))==(Ct))){ |
if(!(((V7))==(Ct))){ |
216 |
goto T81;} |
goto T82;} |
217 |
princ_str("Ct",VV[0]); |
princ_str("Ct",VV[0]); |
218 |
base[1]= Cnil; |
base[1]= Cnil; |
219 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
220 |
return; |
return; |
221 |
goto T81; |
goto T82; |
222 |
T81:; |
T82:; |
223 |
if(!(((V7))==(VV[7]))){ |
if(!(((V7))==(VV[7]))){ |
224 |
goto T85;} |
goto T86;} |
225 |
princ_str("vs_base[0]",VV[0]); |
princ_str("vs_base[0]",VV[0]); |
226 |
base[1]= Cnil; |
base[1]= Cnil; |
227 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
228 |
return; |
return; |
229 |
goto T85; |
goto T86; |
230 |
T85:; |
T86:; |
231 |
if(!(type_of((V7))==t_cons)){ |
if(!(type_of((V7))==t_cons)){ |
|
goto T88;} |
|
|
if(type_of(car((V7)))==t_symbol){ |
|
232 |
goto T89;} |
goto T89;} |
233 |
goto T88; |
if(type_of(car((V7)))==t_symbol){ |
234 |
T88:; |
goto T90;} |
235 |
|
goto T89; |
236 |
|
T89:; |
237 |
base[1]= (*(LnkLI42))(); |
base[1]= (*(LnkLI42))(); |
238 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
239 |
return; |
return; |
240 |
goto T89; |
goto T90; |
241 |
T89:; |
T90:; |
242 |
{object V8; |
{object V8; |
243 |
V8= get(car((V7)),VV[13],Cnil); |
V8= get(car((V7)),VV[13],Cnil); |
244 |
if(((V8))!=Cnil){ |
if(((V8))!=Cnil){ |
245 |
goto T94;} |
goto T95;} |
246 |
(void)((*(LnkLI42))()); |
(void)((*(LnkLI42))()); |
247 |
goto T94; |
goto T95; |
248 |
T94:; |
T95:; |
249 |
base[1]= (V8); |
base[1]= (V8); |
250 |
{object V9; |
{object V9; |
251 |
V9= cdr((V7)); |
V9= cdr((V7)); |
259 |
} |
} |
260 |
/* local entry for function SET-RETURN */ |
/* local entry for function SET-RETURN */ |
261 |
|
|
262 |
static object LI4(V11) |
static object LI5(V11) |
263 |
|
|
264 |
register object V11; |
register object V11; |
265 |
{ VMB4 VMS4 VMV4 |
{ VMB5 VMS5 VMV5 |
266 |
goto TTL; |
goto TTL; |
267 |
TTL:; |
TTL:; |
268 |
{object V12; |
{object V12; |
269 |
V12= (((V11))==(VV[7])?Ct:Cnil); |
V12= (((V11))==(VV[7])?Ct:Cnil); |
270 |
if(((V12))==Cnil){ |
if(((V12))==Cnil){ |
271 |
goto T101;} |
goto T102;} |
272 |
{object V13 = (V12); |
{object V13 = (V12); |
273 |
VMR4(V13)} |
VMR5(V13)} |
274 |
goto T101; |
goto T102; |
275 |
T101:; |
T102:; |
276 |
if(!(type_of((V11))==t_cons)){ |
if(!(type_of((V11))==t_cons)){ |
277 |
goto T104;} |
goto T105;} |
278 |
if(!((car((V11)))==(VV[14]))){ |
if(!((car((V11)))==(VV[14]))){ |
279 |
goto T104;} |
goto T105;} |
280 |
if(!(number_compare(caadr((V11)),symbol_value(VV[15]))==0)){ |
if(!(number_compare(caadr((V11)),symbol_value(VV[15]))==0)){ |
281 |
goto T104;} |
goto T105;} |
282 |
princ_str("\n vs_top=(vs_base=base+",VV[0]); |
princ_str("\n vs_top=(vs_base=base+",VV[0]); |
283 |
(void)((*(LnkLI36))(cdadr((V11)))); |
(void)((*(LnkLI36))(cdadr((V11)))); |
284 |
princ_str(")+1;",VV[0]); |
princ_str(")+1;",VV[0]); |
285 |
setq(VV[16],Ct); |
setq(VV[16],Ct); |
286 |
{object V14 = Ct; |
{object V14 = Ct; |
287 |
VMR4(V14)} |
VMR5(V14)} |
288 |
goto T104; |
goto T105; |
289 |
T104:; |
T105:; |
290 |
if(!(type_of((V11))==t_cons)){ |
if(!(type_of((V11))==t_cons)){ |
291 |
goto T116;} |
goto T117;} |
292 |
if(!((car((V11)))==(VV[17]))){ |
if(!((car((V11)))==(VV[17]))){ |
293 |
goto T116;} |
goto T117;} |
294 |
V15= structure_ref(cadr((V11)),VV[17],1); |
V15= structure_ref(cadr((V11)),VV[17],1); |
295 |
if(!((/* INLINE-ARGS */V15)==(VV[18]))){ |
if(!((/* INLINE-ARGS */V15)==(VV[18]))){ |
296 |
goto T116;} |
goto T117;} |
297 |
if((structure_ref(cadr((V11)),VV[17],3))!=Cnil){ |
if((structure_ref(cadr((V11)),VV[17],3))!=Cnil){ |
298 |
goto T116;} |
goto T117;} |
299 |
V16= structure_ref(cadr((V11)),VV[17],2); |
V16= structure_ref(cadr((V11)),VV[17],2); |
300 |
if(!(eql(car(/* INLINE-ARGS */V16),symbol_value(VV[15])))){ |
if(!(eql(car(/* INLINE-ARGS */V16),symbol_value(VV[15])))){ |
301 |
goto T116;} |
goto T117;} |
302 |
princ_str("\n vs_top=(vs_base=base+",VV[0]); |
princ_str("\n vs_top=(vs_base=base+",VV[0]); |
303 |
V17= structure_ref(cadr((V11)),VV[17],2); |
V17= structure_ref(cadr((V11)),VV[17],2); |
304 |
(void)((*(LnkLI36))(cdr(/* INLINE-ARGS */V17))); |
(void)((*(LnkLI36))(cdr(/* INLINE-ARGS */V17))); |
305 |
princ_str(")+1;",VV[0]); |
princ_str(")+1;",VV[0]); |
306 |
setq(VV[16],Ct); |
setq(VV[16],Ct); |
307 |
{object V18 = Ct; |
{object V18 = Ct; |
308 |
VMR4(V18)} |
VMR5(V18)} |
309 |
goto T116; |
goto T117; |
310 |
T116:; |
T117:; |
311 |
{object V19 = (*(LnkLI37))((V11)); |
{object V19 = (*(LnkLI37))((V11)); |
312 |
VMR4(V19)}} |
VMR5(V19)}} |
313 |
return Cnil; |
return Cnil; |
314 |
} |
} |
315 |
/* local entry for function SET-TOP */ |
/* local entry for function SET-TOP */ |
316 |
|
|
317 |
static object LI5(V21) |
static object LI6(V21) |
318 |
|
|
319 |
object V21; |
object V21; |
320 |
{ VMB5 VMS5 VMV5 |
{ VMB6 VMS6 VMV6 |
321 |
bds_check; |
bds_check; |
322 |
goto TTL; |
goto TTL; |
323 |
TTL:; |
TTL:; |
335 |
setq(VV[16],Ct); |
setq(VV[16],Ct); |
336 |
{object V24 = Ct; |
{object V24 = Ct; |
337 |
bds_unwind1; |
bds_unwind1; |
338 |
VMR5(V24)} |
VMR6(V24)} |
339 |
base[0]=base[0]; |
base[0]=base[0]; |
340 |
return Cnil; |
return Cnil; |
341 |
} |
} |
342 |
/* local entry for function WT-VS-BASE */ |
/* local entry for function WT-VS-BASE */ |
343 |
|
|
344 |
static object LI6(V26) |
static object LI7(V26) |
345 |
|
|
346 |
object V26; |
object V26; |
347 |
{ VMB6 VMS6 VMV6 |
{ VMB7 VMS7 VMV7 |
348 |
goto TTL; |
goto TTL; |
349 |
TTL:; |
TTL:; |
350 |
princ_str("vs_base[",VV[0]); |
princ_str("vs_base[",VV[0]); |
351 |
(void)((*(LnkLI36))((V26))); |
(void)((*(LnkLI36))((V26))); |
352 |
princ_char(93,VV[0]); |
princ_char(93,VV[0]); |
353 |
{object V27 = Cnil; |
{object V27 = Cnil; |
354 |
VMR6(V27)} |
VMR7(V27)} |
355 |
return Cnil; |
return Cnil; |
356 |
} |
} |
357 |
/* local entry for function WT-CAR */ |
/* local entry for function WT-CAR */ |
358 |
|
|
359 |
static object LI7(V29) |
static object LI8(V29) |
360 |
|
|
361 |
object V29; |
object V29; |
362 |
{ VMB7 VMS7 VMV7 |
{ VMB8 VMS8 VMV8 |
363 |
goto TTL; |
goto TTL; |
364 |
TTL:; |
TTL:; |
365 |
princ_str("(V",VV[0]); |
princ_str("(V",VV[0]); |
366 |
(void)((*(LnkLI36))((V29))); |
(void)((*(LnkLI36))((V29))); |
367 |
princ_str("->c.c_car)",VV[0]); |
princ_str("->c.c_car)",VV[0]); |
368 |
{object V30 = Cnil; |
{object V30 = Cnil; |
369 |
VMR7(V30)} |
VMR8(V30)} |
370 |
return Cnil; |
return Cnil; |
371 |
} |
} |
372 |
/* local entry for function WT-CDR */ |
/* local entry for function WT-CDR */ |
373 |
|
|
374 |
static object LI8(V32) |
static object LI9(V32) |
375 |
|
|
376 |
object V32; |
object V32; |
377 |
{ VMB8 VMS8 VMV8 |
{ VMB9 VMS9 VMV9 |
378 |
goto TTL; |
goto TTL; |
379 |
TTL:; |
TTL:; |
380 |
princ_str("(V",VV[0]); |
princ_str("(V",VV[0]); |
381 |
(void)((*(LnkLI36))((V32))); |
(void)((*(LnkLI36))((V32))); |
382 |
princ_str("->c.c_cdr)",VV[0]); |
princ_str("->c.c_cdr)",VV[0]); |
383 |
{object V33 = Cnil; |
{object V33 = Cnil; |
384 |
VMR8(V33)} |
VMR9(V33)} |
385 |
return Cnil; |
return Cnil; |
386 |
} |
} |
387 |
/* local entry for function WT-CADR */ |
/* local entry for function WT-CADR */ |
388 |
|
|
389 |
static object LI9(V35) |
static object LI10(V35) |
390 |
|
|
391 |
object V35; |
object V35; |
392 |
{ VMB9 VMS9 VMV9 |
{ VMB10 VMS10 VMV10 |
393 |
goto TTL; |
goto TTL; |
394 |
TTL:; |
TTL:; |
395 |
princ_str("(V",VV[0]); |
princ_str("(V",VV[0]); |
396 |
(void)((*(LnkLI36))((V35))); |
(void)((*(LnkLI36))((V35))); |
397 |
princ_str("->c.c_cdr->c.c_car)",VV[0]); |
princ_str("->c.c_cdr->c.c_car)",VV[0]); |
398 |
{object V36 = Cnil; |
{object V36 = Cnil; |
399 |
VMR9(V36)} |
VMR10(V36)} |
400 |
return Cnil; |
return Cnil; |
401 |
} |
} |
402 |
/* local entry for function WT-CVAR */ |
/* local entry for function WT-CVAR */ |
403 |
|
|
404 |
static object LI10(V37,va_alist) |
static object LI11(object V37,object first,...) |
|
object V37; |
|
|
va_dcl |
|
405 |
{ |
{ |
406 |
va_list ap; |
va_list ap; |
407 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
408 |
{object V38; |
{object V38; |
409 |
object V39; |
object V39; |
410 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
411 |
va_start(ap); |
va_start(ap,first); |
412 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
413 |
V38= V37; |
V38= V37; |
414 |
narg = narg - 1; |
narg = narg - 1; |
415 |
if (narg <= 0) goto T154; |
if (narg <= 0) goto T155; |
416 |
else { |
else { |
417 |
V39= va_arg(ap,object);} |
V39= first;} |
418 |
--narg; goto T155; |
--narg; goto T156; |
|
goto T154; |
|
|
T154:; |
|
|
V39= Cnil; |
|
419 |
goto T155; |
goto T155; |
420 |
T155:; |
T155:; |
421 |
|
V39= Cnil; |
422 |
|
goto T156; |
423 |
|
T156:; |
424 |
if(((V39))==Cnil){ |
if(((V39))==Cnil){ |
425 |
goto T157;} |
goto T158;} |
426 |
princ_str("/* ",VV[0]); |
princ_str("/* ",VV[0]); |
427 |
V40= symbol_name((V39)); |
V40= symbol_name((V39)); |
428 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V40)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V40)); |
429 |
princ_str(" */",VV[0]); |
princ_str(" */",VV[0]); |
430 |
goto T157; |
goto T158; |
431 |
T157:; |
T158:; |
432 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
433 |
(void)((*(LnkLI36))((V38))); |
(void)((*(LnkLI36))((V38))); |
434 |
{object V41 = Cnil; |
{object V41 = Cnil; |
435 |
VMR10(V41)} |
VMR11(V41)} |
436 |
va_end(ap); |
va_end(ap); |
437 |
return Cnil;} |
return Cnil;} |
438 |
} |
} |
439 |
/* local entry for function WT-VV */ |
/* local entry for function WT-VV */ |
440 |
|
|
441 |
static object LI11(V43) |
static object LI12(V43) |
442 |
|
|
443 |
object V43; |
object V43; |
444 |
{ VMB11 VMS11 VMV11 |
{ VMB12 VMS12 VMV12 |
445 |
goto TTL; |
goto TTL; |
446 |
TTL:; |
TTL:; |
447 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
448 |
(void)((*(LnkLI36))((V43))); |
(void)((*(LnkLI36))((V43))); |
449 |
princ_char(93,VV[0]); |
princ_char(93,VV[0]); |
450 |
{object V44 = Cnil; |
{object V44 = Cnil; |
451 |
VMR11(V44)} |
VMR12(V44)} |
452 |
return Cnil; |
return Cnil; |
453 |
} |
} |
454 |
/* function definition for WT-FIXNUM-LOC */ |
/* function definition for WT-FIXNUM-LOC */ |
455 |
|
|
456 |
static void L12() |
static void L13() |
457 |
{register object *base=vs_base; |
{register object *base=vs_base; |
458 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM13; VC13 |
459 |
vs_reserve(VM12); |
vs_reserve(VM13); |
460 |
{register object V45; |
{register object V45; |
461 |
check_arg(1); |
check_arg(1); |
462 |
V45=(base[0]); |
V45=(base[0]); |
464 |
goto TTL; |
goto TTL; |
465 |
TTL:; |
TTL:; |
466 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
467 |
goto T169;} |
goto T170;} |
468 |
if(!((car((V45)))==(VV[17]))){ |
if(!((car((V45)))==(VV[17]))){ |
469 |
goto T169;} |
goto T170;} |
470 |
V46= structure_ref(cadr((V45)),VV[17],1); |
V46= structure_ref(cadr((V45)),VV[17],1); |
471 |
if(!((/* INLINE-ARGS */V46)==(VV[20]))){ |
if(!((/* INLINE-ARGS */V46)==(VV[20]))){ |
472 |
goto T169;} |
goto T170;} |
473 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
474 |
V47= structure_ref(cadr((V45)),VV[17],4); |
V47= structure_ref(cadr((V45)),VV[17],4); |
475 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V47)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V47)); |
476 |
base[1]= Cnil; |
base[1]= Cnil; |
477 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
478 |
return; |
return; |
479 |
goto T169; |
goto T170; |
480 |
T169:; |
T170:; |
481 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
482 |
goto T178;} |
goto T179;} |
483 |
if(!((car((V45)))==(VV[21]))){ |
if(!((car((V45)))==(VV[21]))){ |
484 |
goto T178;} |
goto T179;} |
485 |
princ_str("(long)",VV[0]); |
princ_str("(long)",VV[0]); |
486 |
base[1]= caddr((V45)); |
base[1]= caddr((V45)); |
487 |
base[2]= cadddr((V45)); |
base[2]= cadddr((V45)); |
488 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
489 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
490 |
return; |
return; |
491 |
goto T178; |
goto T179; |
492 |
T178:; |
T179:; |
493 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
494 |
goto T187;} |
goto T188;} |
495 |
if(!((car((V45)))==(VV[22]))){ |
if(!((car((V45)))==(VV[22]))){ |
496 |
goto T187;} |
goto T188;} |
497 |
(void)((*(LnkLI36))(caddr((V45)))); |
(void)((*(LnkLI36))(caddr((V45)))); |
498 |
base[1]= Cnil; |
base[1]= Cnil; |
499 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
500 |
return; |
return; |
501 |
goto T187; |
goto T188; |
502 |
T187:; |
T188:; |
503 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
504 |
goto T193;} |
goto T194;} |
505 |
{register object x= car((V45)),V48= VV[23]; |
{register object x= car((V45)),V48= VV[23]; |
506 |
while(!endp(V48)) |
while(!endp(V48)) |
507 |
if(eql(x,V48->c.c_car)){ |
if(eql(x,V48->c.c_car)){ |
508 |
goto T196; |
goto T197; |
509 |
}else V48=V48->c.c_cdr; |
}else V48=V48->c.c_cdr; |
510 |
goto T193;} |
goto T194;} |
511 |
goto T196; |
goto T197; |
512 |
T196:; |
T197:; |
513 |
princ_str("((long)(",VV[0]); |
princ_str("((long)(",VV[0]); |
514 |
base[1]= caddr((V45)); |
base[1]= caddr((V45)); |
515 |
base[2]= cadddr((V45)); |
base[2]= cadddr((V45)); |
520 |
base[1]= Cnil; |
base[1]= Cnil; |
521 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
522 |
return; |
return; |
523 |
goto T193; |
goto T194; |
524 |
T193:; |
T194:; |
525 |
princ_str("fix(",VV[0]); |
princ_str("fix(",VV[0]); |
526 |
(void)((*(LnkLI36))((V45))); |
(void)((*(LnkLI36))((V45))); |
527 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
532 |
} |
} |
533 |
/* function definition for WT-INTEGER-LOC */ |
/* function definition for WT-INTEGER-LOC */ |
534 |
|
|
535 |
static void L13() |
static void L14() |
536 |
{register object *base=vs_base; |
{register object *base=vs_base; |
537 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM14; VC14 |
538 |
vs_reserve(VM13); |
vs_reserve(VM14); |
539 |
{register object V49; |
{register object V49; |
540 |
object V50; |
object V50; |
541 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
542 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
543 |
V49=(base[0]); |
V49=(base[0]); |
544 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
545 |
if(vs_base>=vs_top){vs_top=sup;goto T206;} |
if(vs_base>=vs_top){vs_top=sup;goto T207;} |
546 |
V50=(base[1]); |
V50=(base[1]); |
547 |
vs_top=sup; |
vs_top=sup; |
548 |
goto T207; |
goto T208; |
|
goto T206; |
|
|
T206:; |
|
|
V50= Cnil; |
|
549 |
goto T207; |
goto T207; |
550 |
T207:; |
T207:; |
551 |
|
V50= Cnil; |
552 |
|
goto T208; |
553 |
|
T208:; |
554 |
{object V51; |
{object V51; |
555 |
object V52; |
object V52; |
556 |
V51= Ct; |
V51= Ct; |
557 |
if(type_of((V49))==t_cons){ |
if(type_of((V49))==t_cons){ |
558 |
goto T211;} |
goto T212;} |
559 |
V52= Cnil; |
V52= Cnil; |
560 |
goto T210; |
goto T211; |
561 |
|
goto T212; |
562 |
|
T212:; |
563 |
|
V52= car((V49)); |
564 |
goto T211; |
goto T211; |
565 |
T211:; |
T211:; |
|
V52= car((V49)); |
|
|
goto T210; |
|
|
T210:; |
|
566 |
{object V53= (V52); |
{object V53= (V52); |
567 |
if((V53!= VV[21]))goto T214; |
if((V53!= VV[21]))goto T215; |
568 |
princ_str("stoi(",VV[0]); |
princ_str("stoi(",VV[0]); |
569 |
base[3]= caddr((V49)); |
base[3]= caddr((V49)); |
570 |
base[4]= cadddr((V49)); |
base[4]= cadddr((V49)); |
572 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
573 |
vs_top=sup; |
vs_top=sup; |
574 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
575 |
goto T213; |
goto T214; |
576 |
goto T214; |
goto T215; |
577 |
T214:; |
T215:; |
578 |
if((V53!= VV[46]))goto T221; |
if((V53!= VV[46]))goto T222; |
579 |
V51= Cnil; |
V51= Cnil; |
580 |
base[3]= caddr((V49)); |
base[3]= caddr((V49)); |
581 |
base[4]= cadddr((V49)); |
base[4]= cadddr((V49)); |
582 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
583 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
584 |
vs_top=sup; |
vs_top=sup; |
585 |
goto T213; |
goto T214; |
586 |
goto T221; |
goto T222; |
587 |
T221:; |
T222:; |
588 |
if((V53!= VV[22]))goto T226; |
if((V53!= VV[22]))goto T227; |
589 |
princ_str("stoi(",VV[0]); |
princ_str("stoi(",VV[0]); |
590 |
(void)((*(LnkLI36))(caddr((V49)))); |
(void)((*(LnkLI36))(caddr((V49)))); |
591 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
592 |
goto T213; |
goto T214; |
593 |
goto T226; |
goto T227; |
594 |
T226:; |
T227:; |
595 |
if((V53!= VV[17]))goto T230; |
if((V53!= VV[17]))goto T231; |
596 |
V55= structure_ref(cadr((V49)),VV[17],1); |
V55= structure_ref(cadr((V49)),VV[17],1); |
597 |
{object V54= /* INLINE-ARGS */V55; |
{object V54= /* INLINE-ARGS */V55; |
598 |
if((V54!= VV[47]))goto T231; |
if((V54!= VV[47]))goto T232; |
599 |
V51= Cnil; |
V51= Cnil; |
600 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
601 |
V56= structure_ref(cadr((V49)),VV[17],4); |
V56= structure_ref(cadr((V49)),VV[17],4); |
602 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V56)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V56)); |
603 |
goto T213; |
goto T214; |
604 |
goto T231; |
goto T232; |
605 |
T231:; |
T232:; |
606 |
if((V54!= VV[20]))goto T236; |
if((V54!= VV[20]))goto T237; |
607 |
princ_str("stoi(V",VV[0]); |
princ_str("stoi(V",VV[0]); |
608 |
V57= structure_ref(cadr((V49)),VV[17],4); |
V57= structure_ref(cadr((V49)),VV[17],4); |
609 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V57)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V57)); |
610 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
611 |
goto T213; |
goto T214; |
612 |
goto T236; |
goto T237; |
613 |
T236:; |
T237:; |
614 |
princ_str("otoi(",VV[0]); |
princ_str("otoi(",VV[0]); |
615 |
(void)((*(LnkLI36))((V49))); |
(void)((*(LnkLI36))((V49))); |
616 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
617 |
goto T213;} |
goto T214;} |
618 |
goto T230; |
goto T231; |
619 |
T230:; |
T231:; |
620 |
princ_str("otoi(",VV[0]); |
princ_str("otoi(",VV[0]); |
621 |
(void)((*(LnkLI36))((V49))); |
(void)((*(LnkLI36))((V49))); |
622 |
princ_char(41,VV[0]);} |
princ_char(41,VV[0]);} |
623 |
goto T213; |
goto T214; |
624 |
T213:; |
T214:; |
625 |
if((V51)==Cnil){ |
if((V51)==Cnil){ |
626 |
base[3]= Cnil; |
base[3]= Cnil; |
627 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
628 |
return;} |
return;} |
629 |
if((symbol_value(VV[24]))==Cnil){ |
if((symbol_value(VV[24]))==Cnil){ |
630 |
goto T246;} |
goto T247;} |
631 |
base[3]= Cnil; |
base[3]= Cnil; |
632 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
633 |
return; |
return; |
634 |
goto T246; |
goto T247; |
635 |
T246:; |
T247:; |
636 |
base[3]= (*(LnkLI48))(); |
base[3]= (*(LnkLI48))(); |
637 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
638 |
return;} |
return;} |
640 |
} |
} |
641 |
/* local entry for function FIXNUM-LOC-P */ |
/* local entry for function FIXNUM-LOC-P */ |
642 |
|
|
643 |
static object LI14(V59) |
static object LI15(V59) |
644 |
|
|
645 |
register object V59; |
register object V59; |
646 |
{ VMB14 VMS14 VMV14 |
{ VMB15 VMS15 VMV15 |
647 |
goto TTL; |
goto TTL; |
648 |
TTL:; |
TTL:; |
649 |
if(type_of((V59))==t_cons){ |
if(type_of((V59))==t_cons){ |
650 |
goto T248;} |
goto T249;} |
651 |
{object V60 = Cnil; |
{object V60 = Cnil; |
652 |
VMR14(V60)} |
VMR15(V60)} |
653 |
goto T248; |
goto T249; |
654 |
T248:;{object V61; |
T249:;{object V61; |
655 |
if((car((V59)))==(VV[17])){ |
if((car((V59)))==(VV[17])){ |
656 |
goto T252;} |
goto T253;} |
657 |
V61= Cnil; |
V61= Cnil; |
658 |
goto T251; |
goto T252; |
659 |
goto T252; |
goto T253; |
660 |
T252:; |
T253:; |
661 |
V62= structure_ref(cadr((V59)),VV[17],1); |
V62= structure_ref(cadr((V59)),VV[17],1); |
662 |
V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil); |
V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil); |
663 |
goto T251; |
goto T252; |
664 |
T251:; |
T252:; |
665 |
if(V61==Cnil)goto T250; |
if(V61==Cnil)goto T251; |
666 |
{object V63 = V61; |
{object V63 = V61; |
667 |
VMR14(V63)} |
VMR15(V63)} |
668 |
goto T250; |
goto T251; |
669 |
T250:;} |
T251:;} |
670 |
if(!((car((V59)))==(VV[21]))){ |
if(!((car((V59)))==(VV[21]))){ |
671 |
goto T254;} |
goto T255;} |
672 |
{object V64 = Ct; |
{object V64 = Ct; |
673 |
VMR14(V64)} |
VMR15(V64)} |
674 |
goto T254; |
goto T255; |
675 |
T254:; |
T255:; |
676 |
{object V65 = ((car((V59)))==(VV[22])?Ct:Cnil); |
{object V65 = ((car((V59)))==(VV[22])?Ct:Cnil); |
677 |
VMR14(V65)} |
VMR15(V65)} |
678 |
return Cnil; |
return Cnil; |
679 |
} |
} |
680 |
/* local entry for function WT-FIXNUM-VALUE */ |
/* local entry for function WT-FIXNUM-VALUE */ |
681 |
|
|
682 |
static object LI15(V68,V69) |
static object LI16(V68,V69) |
683 |
|
|
684 |
object V68;object V69; |
object V68;object V69; |
685 |
{ VMB15 VMS15 VMV15 |
{ VMB16 VMS16 VMV16 |
686 |
goto TTL; |
goto TTL; |
687 |
TTL:; |
TTL:; |
688 |
if(((V68))==Cnil){ |
if(((V68))==Cnil){ |
689 |
goto T257;} |
goto T258;} |
690 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
691 |
(void)((*(LnkLI36))((V68))); |
(void)((*(LnkLI36))((V68))); |
692 |
princ_char(93,VV[0]); |
princ_char(93,VV[0]); |
693 |
{object V70 = Cnil; |
{object V70 = Cnil; |
694 |
VMR15(V70)} |
VMR16(V70)} |
695 |
goto T257; |
goto T258; |
696 |
T257:; |
T258:; |
697 |
princ_str("small_fixnum(",VV[0]); |
princ_str("small_fixnum(",VV[0]); |
698 |
(void)((*(LnkLI36))((V69))); |
(void)((*(LnkLI36))((V69))); |
699 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
700 |
{object V71 = Cnil; |
{object V71 = Cnil; |
701 |
VMR15(V71)} |
VMR16(V71)} |
702 |
return Cnil; |
return Cnil; |
703 |
} |
} |
704 |
/* function definition for WT-CHARACTER-LOC */ |
/* function definition for WT-CHARACTER-LOC */ |
705 |
|
|
706 |
static void L16() |
static void L17() |
707 |
{register object *base=vs_base; |
{register object *base=vs_base; |
708 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM17; VC17 |
709 |
vs_reserve(VM16); |
vs_reserve(VM17); |
710 |
{register object V72; |
{register object V72; |
711 |
check_arg(1); |
check_arg(1); |
712 |
V72=(base[0]); |
V72=(base[0]); |
714 |
goto TTL; |
goto TTL; |
715 |
TTL:; |
TTL:; |
716 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
717 |
goto T266;} |
goto T267;} |
718 |
if(!((car((V72)))==(VV[17]))){ |
if(!((car((V72)))==(VV[17]))){ |
719 |
goto T266;} |
goto T267;} |
720 |
V73= structure_ref(cadr((V72)),VV[17],1); |
V73= structure_ref(cadr((V72)),VV[17],1); |
721 |
if(!((/* INLINE-ARGS */V73)==(VV[25]))){ |
if(!((/* INLINE-ARGS */V73)==(VV[25]))){ |
722 |
goto T266;} |
goto T267;} |
723 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
724 |
V74= structure_ref(cadr((V72)),VV[17],4); |
V74= structure_ref(cadr((V72)),VV[17],4); |
725 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V74)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V74)); |
726 |
base[1]= Cnil; |
base[1]= Cnil; |
727 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
728 |
return; |
return; |
729 |
goto T266; |
goto T267; |
730 |
T266:; |
T267:; |
731 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
732 |
goto T275;} |
goto T276;} |
733 |
if(!((car((V72)))==(VV[26]))){ |
if(!((car((V72)))==(VV[26]))){ |
734 |
goto T275;} |
goto T276;} |
735 |
base[1]= caddr((V72)); |
base[1]= caddr((V72)); |
736 |
base[2]= cadddr((V72)); |
base[2]= cadddr((V72)); |
737 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
738 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
739 |
return; |
return; |
740 |
goto T275; |
goto T276; |
741 |
T275:; |
T276:; |
742 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
743 |
goto T282;} |
goto T283;} |
744 |
if(!((car((V72)))==(VV[27]))){ |
if(!((car((V72)))==(VV[27]))){ |
745 |
goto T282;} |
goto T283;} |
746 |
(void)((*(LnkLI36))(caddr((V72)))); |
(void)((*(LnkLI36))(caddr((V72)))); |
747 |
base[1]= Cnil; |
base[1]= Cnil; |
748 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
749 |
return; |
return; |
750 |
goto T282; |
goto T283; |
751 |
T282:; |
T283:; |
752 |
princ_str("char_code(",VV[0]); |
princ_str("char_code(",VV[0]); |
753 |
(void)((*(LnkLI36))((V72))); |
(void)((*(LnkLI36))((V72))); |
754 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
759 |
} |
} |
760 |
/* local entry for function CHARACTER-LOC-P */ |
/* local entry for function CHARACTER-LOC-P */ |
761 |
|
|
762 |
static object LI17(V76) |
static object LI18(V76) |
763 |
|
|
764 |
register object V76; |
register object V76; |
765 |
{ VMB17 VMS17 VMV17 |
{ VMB18 VMS18 VMV18 |
766 |
goto TTL; |
goto TTL; |
767 |
TTL:; |
TTL:; |
768 |
if(type_of((V76))==t_cons){ |
if(type_of((V76))==t_cons){ |
769 |
goto T290;} |
goto T291;} |
770 |
{object V77 = Cnil; |
{object V77 = Cnil; |
771 |
VMR17(V77)} |
VMR18(V77)} |
772 |
goto T290; |
goto T291; |
773 |
T290:;{object V78; |
T291:;{object V78; |
774 |
if((car((V76)))==(VV[17])){ |
if((car((V76)))==(VV[17])){ |
775 |
goto T294;} |
goto T295;} |
776 |
V78= Cnil; |
V78= Cnil; |
777 |
goto T293; |
goto T294; |
778 |
goto T294; |
goto T295; |
779 |
T294:; |
T295:; |
780 |
V79= structure_ref(cadr((V76)),VV[17],1); |
V79= structure_ref(cadr((V76)),VV[17],1); |
781 |
V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil); |
V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil); |
782 |
goto T293; |
goto T294; |
783 |
T293:; |
T294:; |
784 |
if(V78==Cnil)goto T292; |
if(V78==Cnil)goto T293; |
785 |
{object V80 = V78; |
{object V80 = V78; |
786 |
VMR17(V80)} |
VMR18(V80)} |
787 |
goto T292; |
goto T293; |
788 |
T292:;} |
T293:;} |
789 |
if(!((car((V76)))==(VV[26]))){ |
if(!((car((V76)))==(VV[26]))){ |
790 |
goto T296;} |
goto T297;} |
791 |
{object V81 = Ct; |
{object V81 = Ct; |
792 |
VMR17(V81)} |
VMR18(V81)} |
793 |
goto T296; |
goto T297; |
794 |
T296:; |
T297:; |
795 |
{object V82 = ((car((V76)))==(VV[27])?Ct:Cnil); |
{object V82 = ((car((V76)))==(VV[27])?Ct:Cnil); |
796 |
VMR17(V82)} |
VMR18(V82)} |
797 |
return Cnil; |
return Cnil; |
798 |
} |
} |
799 |
/* local entry for function WT-CHARACTER-VALUE */ |
/* local entry for function WT-CHARACTER-VALUE */ |
800 |
|
|
801 |
static object LI18(V85,V86) |
static object LI19(V85,V86) |
802 |
|
|
803 |
object V85;object V86; |
object V85;object V86; |
804 |
{ VMB18 VMS18 VMV18 |
{ VMB19 VMS19 VMV19 |
805 |
goto TTL; |
goto TTL; |
806 |
TTL:; |
TTL:; |
807 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
808 |
(void)((*(LnkLI36))((V85))); |
(void)((*(LnkLI36))((V85))); |
809 |
princ_char(93,VV[0]); |
princ_char(93,VV[0]); |
810 |
{object V87 = Cnil; |
{object V87 = Cnil; |
811 |
VMR18(V87)} |
VMR19(V87)} |
812 |
return Cnil; |
return Cnil; |
813 |
} |
} |
814 |
/* function definition for WT-LONG-FLOAT-LOC */ |
/* function definition for WT-LONG-FLOAT-LOC */ |
815 |
|
|
816 |
static void L19() |
static void L20() |
817 |
{register object *base=vs_base; |
{register object *base=vs_base; |
818 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM20; VC20 |
819 |
vs_reserve(VM19); |
vs_reserve(VM20); |
820 |
{register object V88; |
{register object V88; |
821 |
check_arg(1); |
check_arg(1); |
822 |
V88=(base[0]); |
V88=(base[0]); |
824 |
goto TTL; |
goto TTL; |
825 |
TTL:; |
TTL:; |
826 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
827 |
goto T302;} |
goto T303;} |
828 |
if(!((car((V88)))==(VV[17]))){ |
if(!((car((V88)))==(VV[17]))){ |
829 |
goto T302;} |
goto T303;} |
830 |
V89= structure_ref(cadr((V88)),VV[17],1); |
V89= structure_ref(cadr((V88)),VV[17],1); |
831 |
if(!((/* INLINE-ARGS */V89)==(VV[28]))){ |
if(!((/* INLINE-ARGS */V89)==(VV[28]))){ |
832 |
goto T302;} |
goto T303;} |
833 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
834 |
V90= structure_ref(cadr((V88)),VV[17],4); |
V90= structure_ref(cadr((V88)),VV[17],4); |
835 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V90)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V90)); |
836 |
base[1]= Cnil; |
base[1]= Cnil; |
837 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
838 |
return; |
return; |
839 |
goto T302; |
goto T303; |
840 |
T302:; |
T303:; |
841 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
842 |
goto T311;} |
goto T312;} |
843 |
if(!((car((V88)))==(VV[29]))){ |
if(!((car((V88)))==(VV[29]))){ |
844 |
goto T311;} |
goto T312;} |
845 |
base[1]= caddr((V88)); |
base[1]= caddr((V88)); |
846 |
base[2]= cadddr((V88)); |
base[2]= cadddr((V88)); |
847 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
848 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
849 |
return; |
return; |
850 |
goto T311; |
goto T312; |
851 |
T311:; |
T312:; |
852 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
853 |
goto T318;} |
goto T319;} |
854 |
if(!((car((V88)))==(VV[30]))){ |
if(!((car((V88)))==(VV[30]))){ |
855 |
goto T318;} |
goto T319;} |
856 |
(void)((*(LnkLI36))(caddr((V88)))); |
(void)((*(LnkLI36))(caddr((V88)))); |
857 |
base[1]= Cnil; |
base[1]= Cnil; |
858 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
859 |
return; |
return; |
860 |
goto T318; |
goto T319; |
861 |
T318:; |
T319:; |
862 |
princ_str("lf(",VV[0]); |
princ_str("lf(",VV[0]); |
863 |
(void)((*(LnkLI36))((V88))); |
(void)((*(LnkLI36))((V88))); |
864 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
869 |
} |
} |
870 |
/* local entry for function LONG-FLOAT-LOC-P */ |
/* local entry for function LONG-FLOAT-LOC-P */ |
871 |
|
|
872 |
static object LI20(V92) |
static object LI21(V92) |
873 |
|
|
874 |
register object V92; |
register object V92; |
875 |
{ VMB20 VMS20 VMV20 |
{ VMB21 VMS21 VMV21 |
876 |
goto TTL; |
goto TTL; |
877 |
TTL:; |
TTL:; |
878 |
if(type_of((V92))==t_cons){ |
if(type_of((V92))==t_cons){ |
879 |
goto T326;} |
goto T327;} |
880 |
{object V93 = Cnil; |
{object V93 = Cnil; |
881 |
VMR20(V93)} |
VMR21(V93)} |
882 |
goto T326; |
goto T327; |
883 |
T326:;{object V94; |
T327:;{object V94; |
884 |
if((car((V92)))==(VV[17])){ |
if((car((V92)))==(VV[17])){ |
885 |
goto T330;} |
goto T331;} |
886 |
V94= Cnil; |
V94= Cnil; |
887 |
goto T329; |
goto T330; |
888 |
goto T330; |
goto T331; |
889 |
T330:; |
T331:; |
890 |
V95= structure_ref(cadr((V92)),VV[17],1); |
V95= structure_ref(cadr((V92)),VV[17],1); |
891 |
V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil); |
V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil); |
892 |
goto T329; |
goto T330; |
893 |
T329:; |
T330:; |
894 |
if(V94==Cnil)goto T328; |
if(V94==Cnil)goto T329; |
895 |
{object V96 = V94; |
{object V96 = V94; |
896 |
VMR20(V96)} |
VMR21(V96)} |
897 |
goto T328; |
goto T329; |
898 |
T328:;} |
T329:;} |
899 |
if(!((car((V92)))==(VV[29]))){ |
if(!((car((V92)))==(VV[29]))){ |
900 |
goto T332;} |
goto T333;} |
901 |
{object V97 = Ct; |
{object V97 = Ct; |
902 |
VMR20(V97)} |
VMR21(V97)} |
903 |
goto T332; |
goto T333; |
904 |
T332:; |
T333:; |
905 |
{object V98 = ((car((V92)))==(VV[30])?Ct:Cnil); |
{object V98 = ((car((V92)))==(VV[30])?Ct:Cnil); |
906 |
VMR20(V98)} |
VMR21(V98)} |
907 |
return Cnil; |
return Cnil; |
908 |
} |
} |
909 |
/* local entry for function WT-LONG-FLOAT-VALUE */ |
/* local entry for function WT-LONG-FLOAT-VALUE */ |
910 |
|
|
911 |
static object LI21(V101,V102) |
static object LI22(V101,V102) |
912 |
|
|
913 |
object V101;object V102; |
object V101;object V102; |
914 |
{ VMB21 VMS21 VMV21 |
{ VMB22 VMS22 VMV22 |
915 |
goto TTL; |
goto TTL; |
916 |
TTL:; |
TTL:; |
917 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
918 |
(void)((*(LnkLI36))((V101))); |
(void)((*(LnkLI36))((V101))); |
919 |
princ_char(93,VV[0]); |
princ_char(93,VV[0]); |
920 |
{object V103 = Cnil; |
{object V103 = Cnil; |
921 |
VMR21(V103)} |
VMR22(V103)} |
922 |
return Cnil; |
return Cnil; |
923 |
} |
} |
924 |
/* function definition for WT-SHORT-FLOAT-LOC */ |
/* function definition for WT-SHORT-FLOAT-LOC */ |
925 |
|
|
926 |
static void L22() |
static void L23() |
927 |
{register object *base=vs_base; |
{register object *base=vs_base; |
928 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM23; VC23 |
929 |
vs_reserve(VM22); |
vs_reserve(VM23); |
930 |
{register object V104; |
{register object V104; |
931 |
check_arg(1); |
check_arg(1); |
932 |
V104=(base[0]); |
V104=(base[0]); |
934 |
goto TTL; |
goto TTL; |
935 |
TTL:; |
TTL:; |
936 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
937 |
goto T338;} |
goto T339;} |
938 |
if(!((car((V104)))==(VV[17]))){ |
if(!((car((V104)))==(VV[17]))){ |
939 |
goto T338;} |
goto T339;} |
940 |
V105= structure_ref(cadr((V104)),VV[17],1); |
V105= structure_ref(cadr((V104)),VV[17],1); |
941 |
if(!((/* INLINE-ARGS */V105)==(VV[31]))){ |
if(!((/* INLINE-ARGS */V105)==(VV[31]))){ |
942 |
goto T338;} |
goto T339;} |
943 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
944 |
V106= structure_ref(cadr((V104)),VV[17],4); |
V106= structure_ref(cadr((V104)),VV[17],4); |
945 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V106)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V106)); |
946 |
base[1]= Cnil; |
base[1]= Cnil; |
947 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
948 |
return; |
return; |
949 |
goto T338; |
goto T339; |
950 |
T338:; |
T339:; |
951 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
952 |
goto T347;} |
goto T348;} |
953 |
if(!((car((V104)))==(VV[32]))){ |
if(!((car((V104)))==(VV[32]))){ |
954 |
goto T347;} |
goto T348;} |
955 |
base[1]= caddr((V104)); |
base[1]= caddr((V104)); |
956 |
base[2]= cadddr((V104)); |
base[2]= cadddr((V104)); |
957 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
958 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
959 |
return; |
return; |
960 |
goto T347; |
goto T348; |
961 |
T347:; |
T348:; |
962 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
963 |
goto T354;} |
goto T355;} |
964 |
if(!((car((V104)))==(VV[33]))){ |
if(!((car((V104)))==(VV[33]))){ |
965 |
goto T354;} |
goto T355;} |
966 |
(void)((*(LnkLI36))(caddr((V104)))); |
(void)((*(LnkLI36))(caddr((V104)))); |
967 |
base[1]= Cnil; |
base[1]= Cnil; |
968 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
969 |
return; |
return; |
970 |
goto T354; |
goto T355; |
971 |
T354:; |
T355:; |
972 |
princ_str("sf(",VV[0]); |
princ_str("sf(",VV[0]); |
973 |
(void)((*(LnkLI36))((V104))); |
(void)((*(LnkLI36))((V104))); |
974 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
979 |
} |
} |
980 |
/* local entry for function SHORT-FLOAT-LOC-P */ |
/* local entry for function SHORT-FLOAT-LOC-P */ |
981 |
|
|
982 |
static object LI23(V108) |
static object LI24(V108) |
983 |
|
|
984 |
register object V108; |
register object V108; |
985 |
{ VMB23 VMS23 VMV23 |
{ VMB24 VMS24 VMV24 |
986 |
goto TTL; |
goto TTL; |
987 |
TTL:; |
TTL:; |
988 |
if(type_of((V108))==t_cons){ |
if(type_of((V108))==t_cons){ |
989 |
goto T362;} |
goto T363;} |
990 |
{object V109 = Cnil; |
{object V109 = Cnil; |
991 |
VMR23(V109)} |
VMR24(V109)} |
992 |
goto T362; |
goto T363; |
993 |
T362:;{object V110; |
T363:;{object V110; |
994 |
if((car((V108)))==(VV[17])){ |
if((car((V108)))==(VV[17])){ |
995 |
goto T366;} |
goto T367;} |
996 |
V110= Cnil; |
V110= Cnil; |
997 |
goto T365; |
goto T366; |
998 |
goto T366; |
goto T367; |
999 |
T366:; |
T367:; |
1000 |
V111= structure_ref(cadr((V108)),VV[17],1); |
V111= structure_ref(cadr((V108)),VV[17],1); |
1001 |
V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil); |
V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil); |
1002 |
goto T365; |
goto T366; |
1003 |
T365:; |
T366:; |
1004 |
if(V110==Cnil)goto T364; |
if(V110==Cnil)goto T365; |
1005 |
{object V112 = V110; |
{object V112 = V110; |
1006 |
VMR23(V112)} |
VMR24(V112)} |
1007 |
goto T364; |
goto T365; |
1008 |
T364:;} |
T365:;} |
1009 |
if(!((car((V108)))==(VV[32]))){ |
if(!((car((V108)))==(VV[32]))){ |
1010 |
goto T368;} |
goto T369;} |
1011 |
{object V113 = Ct; |
{object V113 = Ct; |
1012 |
VMR23(V113)} |
VMR24(V113)} |
1013 |
goto T368; |
goto T369; |
1014 |
T368:; |
T369:; |
1015 |
{object V114 = ((car((V108)))==(VV[33])?Ct:Cnil); |
{object V114 = ((car((V108)))==(VV[33])?Ct:Cnil); |
1016 |
VMR23(V114)} |
VMR24(V114)} |
1017 |
return Cnil; |
return Cnil; |
1018 |
} |
} |
1019 |
/* local entry for function WT-SHORT-FLOAT-VALUE */ |
/* local entry for function WT-SHORT-FLOAT-VALUE */ |
1020 |
|
|
1021 |
static object LI24(V117,V118) |
static object LI25(V117,V118) |
1022 |
|
|
1023 |
object V117;object V118; |
object V117;object V118; |
1024 |
{ VMB24 VMS24 VMV24 |
{ VMB25 VMS25 VMV25 |
1025 |
goto TTL; |
goto TTL; |
1026 |
TTL:; |
TTL:; |
1027 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
1028 |
(void)((*(LnkLI36))((V117))); |
(void)((*(LnkLI36))((V117))); |
1029 |
princ_char(93,VV[0]); |
princ_char(93,VV[0]); |
1030 |
{object V119 = Cnil; |
{object V119 = Cnil; |
1031 |
VMR24(V119)} |
VMR25(V119)} |
1032 |
return Cnil; |
return Cnil; |
1033 |
} |
} |
1034 |
static object LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* WFS-ERROR */ |
static object LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* WFS-ERROR */ |
1035 |
static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* WT-INLINE-LOC */ |
static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* WT-INLINE-LOC */ |
1036 |
static object LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* VS-PUSH */ |
static object LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* VS-PUSH */ |
1037 |
static object LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,1,ap);va_end(ap);return V1;} /* WT-VS */ |
static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)&LnkLI43,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
1038 |
static object LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* BABOON */ |
static object LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* BABOON */ |
1039 |
static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */ |
static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */ |
1040 |
static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* SET-RETURN-LONG-FLOAT */ |
static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* SET-RETURN-LONG-FLOAT */ |
1041 |
static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* SET-RETURN-CHARACTER */ |
static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* SET-RETURN-CHARACTER */ |
1042 |
static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* SET-RETURN-FIXNUM */ |
static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* SET-RETURN-FIXNUM */ |
1043 |
static object LnkTLI37(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[37],(void **)&LnkLI37,1,ap);va_end(ap);return V1;} /* SET-TOP */ |
static object LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)&LnkLI37,1,first,ap);va_end(ap);return V1;} /* SET-TOP */ |
1044 |
static object LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,1,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)&LnkLI36,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
1045 |
static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* WT-INLINE */ |
static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* WT-INLINE */ |
1046 |
static object LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* SET-RETURN */ |
static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)&LnkLI34,1,first,ap);va_end(ap);return V1;} /* SET-RETURN */ |
1047 |
|
|
1048 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1049 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |