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