52 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[7],(V1)))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[7],(V1)))); |
53 |
goto T16; |
goto T16; |
54 |
T16:; |
T16:; |
55 |
(void)((*(LnkLI267))(Ct,(V1))); |
{object V6; |
56 |
V6= (*(LnkLI268))((V1)); |
base[3]= (V2); |
57 |
|
vs_top=(vs_base=base+3)+1; |
58 |
|
Lmacro_function(); |
59 |
|
vs_top=sup; |
60 |
|
V4= vs_base[0]; |
61 |
|
if(((V4))==Cnil){ |
62 |
|
goto T21;} |
63 |
|
base[3]= cdr((V1)); |
64 |
|
vs_top=(vs_base=base+3)+1; |
65 |
|
Lcopy_list(); |
66 |
|
vs_top=sup; |
67 |
|
V7= vs_base[0]; |
68 |
|
V6= (*(LnkLI267))((V4),(V2),V7); |
69 |
|
goto T19; |
70 |
|
goto T21; |
71 |
|
T21:; |
72 |
|
V6= (V1); |
73 |
|
goto T19; |
74 |
|
T19:; |
75 |
|
(void)((*(LnkLI268))(Ct,(V6))); |
76 |
|
V8= (*(LnkLI269))((V6)); |
77 |
frs_pop(); |
frs_pop(); |
78 |
base[3]= V6; |
base[3]= V8; |
79 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
80 |
bds_unwind1; |
bds_unwind1; |
81 |
bds_unwind1; |
bds_unwind1; |
82 |
return; |
return;} |
83 |
goto T14; |
goto T14; |
84 |
T14:; |
T14:; |
85 |
V4= get((V2),VV[8],Cnil); |
V4= get((V2),VV[8],Cnil); |
86 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
87 |
goto T21;} |
goto T29;} |
88 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
89 |
goto T24;} |
goto T32;} |
90 |
(void)((*(LnkLI269))()); |
(void)((*(LnkLI270))()); |
91 |
goto T24; |
goto T32; |
92 |
T24:; |
T32:; |
93 |
base[3]= (V3); |
base[3]= (V3); |
94 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
95 |
super_funcall_no_event((V4)); |
super_funcall_no_event((V4)); |
97 |
bds_unwind1; |
bds_unwind1; |
98 |
bds_unwind1; |
bds_unwind1; |
99 |
return; |
return; |
100 |
goto T21; |
goto T29; |
101 |
T21:; |
T29:; |
102 |
if((get((V2),VV[10],Cnil))==Cnil){ |
if((get((V2),VV[10],Cnil))==Cnil){ |
103 |
goto T29;} |
goto T37;} |
104 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
105 |
goto T31;} |
goto T39;} |
106 |
(void)((*(LnkLI269))()); |
(void)((*(LnkLI270))()); |
107 |
goto T31; |
goto T39; |
108 |
T31:; |
T39:; |
109 |
base[3]= (*(LnkLI270))((V1)); |
base[3]= (*(LnkLI271))((V1)); |
110 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
111 |
(void) (*Lnk271)(); |
(void) (*Lnk272)(); |
112 |
frs_pop(); |
frs_pop(); |
113 |
bds_unwind1; |
bds_unwind1; |
114 |
bds_unwind1; |
bds_unwind1; |
115 |
return; |
return; |
116 |
goto T29; |
goto T37; |
117 |
T29:; |
T37:; |
118 |
if((get((V2),VV[11],Cnil))==Cnil){ |
if((get((V2),VV[11],Cnil))==Cnil){ |
119 |
goto T36;} |
goto T44;} |
120 |
V7= (*(LnkLI272))((V1)); |
V9= (*(LnkLI273))((V1)); |
121 |
frs_pop(); |
frs_pop(); |
122 |
base[3]= V7; |
base[3]= V9; |
123 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
124 |
bds_unwind1; |
bds_unwind1; |
125 |
bds_unwind1; |
bds_unwind1; |
126 |
return; |
return; |
127 |
goto T36; |
goto T44; |
128 |
T36:; |
T44:; |
129 |
base[3]= (V2); |
base[3]= (V2); |
130 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
131 |
Lmacro_function(); |
Lmacro_function(); |
132 |
vs_top=sup; |
vs_top=sup; |
133 |
V4= vs_base[0]; |
V4= vs_base[0]; |
134 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
135 |
goto T39;} |
goto T47;} |
136 |
{object V8; |
{object V10; |
137 |
base[3]= cdr((V1)); |
base[3]= cdr((V1)); |
138 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
139 |
Lcopy_list(); |
Lcopy_list(); |
140 |
vs_top=sup; |
vs_top=sup; |
141 |
V9= vs_base[0]; |
V11= vs_base[0]; |
142 |
V8= (*(LnkLI273))((V4),(V2),V9); |
V10= (*(LnkLI267))((V4),(V2),V11); |
143 |
base[3]= (V8); |
base[3]= (V10); |
144 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
145 |
(void) (*Lnk271)(); |
(void) (*Lnk272)(); |
146 |
frs_pop(); |
frs_pop(); |
147 |
bds_unwind1; |
bds_unwind1; |
148 |
bds_unwind1; |
bds_unwind1; |
149 |
return;} |
return;} |
150 |
goto T39; |
goto T47; |
151 |
T39:; |
T47:; |
152 |
V10= (*(LnkLI272))((V1)); |
V12= (*(LnkLI273))((V1)); |
153 |
frs_pop(); |
frs_pop(); |
154 |
base[3]= V10; |
base[3]= V12; |
155 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
156 |
bds_unwind1; |
bds_unwind1; |
157 |
bds_unwind1; |
bds_unwind1; |
159 |
goto T8; |
goto T8; |
160 |
T8:; |
T8:; |
161 |
if(!(type_of((V2))==t_cons)){ |
if(!(type_of((V2))==t_cons)){ |
162 |
goto T48;} |
goto T56;} |
163 |
V11= (*(LnkLI272))((V1)); |
V13= (*(LnkLI273))((V1)); |
164 |
frs_pop(); |
frs_pop(); |
165 |
base[3]= V11; |
base[3]= V13; |
166 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
167 |
bds_unwind1; |
bds_unwind1; |
168 |
bds_unwind1; |
bds_unwind1; |
169 |
return; |
return; |
170 |
goto T48; |
goto T56; |
171 |
T48:; |
T56:; |
172 |
V12= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2))); |
V14= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2))); |
173 |
frs_pop(); |
frs_pop(); |
174 |
base[3]= V12; |
base[3]= V14; |
175 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
176 |
bds_unwind1; |
bds_unwind1; |
177 |
bds_unwind1; |
bds_unwind1; |
192 |
{register object *base=vs_base; |
{register object *base=vs_base; |
193 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
194 |
vs_reserve(VM2); |
vs_reserve(VM2); |
195 |
{object V13; |
{object V15; |
196 |
check_arg(1); |
check_arg(1); |
197 |
V13=(base[0]); |
V15=(base[0]); |
198 |
vs_top=sup; |
vs_top=sup; |
199 |
goto TTL; |
goto TTL; |
200 |
TTL:; |
TTL:; |
201 |
if(!(equal((V13),VV[13]))){ |
if(!(equal((V15),VV[13]))){ |
202 |
goto T51;} |
goto T59;} |
203 |
base[1]= VV[14]; |
base[1]= VV[14]; |
204 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
205 |
return; |
return; |
206 |
goto T51; |
goto T59; |
207 |
T51:; |
T59:; |
208 |
if(!(equal((V13),VV[15]))){ |
if(!(equal((V15),VV[15]))){ |
209 |
goto T54;} |
goto T62;} |
210 |
base[1]= VV[16]; |
base[1]= VV[16]; |
211 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
212 |
return; |
return; |
213 |
goto T54; |
goto T62; |
214 |
T54:; |
T62:; |
215 |
base[1]= (V13); |
base[1]= (V15); |
216 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
217 |
return; |
return; |
218 |
} |
} |
219 |
} |
} |
220 |
/* local entry for function CTOP-WRITE */ |
/* local entry for function CTOP-WRITE */ |
221 |
|
|
222 |
static object LI3(V15) |
static object LI3(V17) |
223 |
|
|
224 |
object V15; |
object V17; |
225 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
226 |
bds_check; |
bds_check; |
227 |
goto TTL; |
goto TTL; |
228 |
TTL:; |
TTL:; |
229 |
{object V16; |
{object V18; |
230 |
V16= Cnil; |
V18= Cnil; |
231 |
bds_bind(VV[17],Cnil); |
bds_bind(VV[17],Cnil); |
232 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
233 |
bds_bind(VV[20],VV[19]); |
bds_bind(VV[20],VV[19]); |
237 |
bds_bind(VV[0],Cnil); |
bds_bind(VV[0],Cnil); |
238 |
setq(VV[24],reverse(symbol_value(VV[24]))); |
setq(VV[24],reverse(symbol_value(VV[24]))); |
239 |
princ_str("\nvoid init_",VV[25]); |
princ_str("\nvoid init_",VV[25]); |
240 |
(void)((*(LnkLI274))((V15))); |
(void)((*(LnkLI274))((V17))); |
241 |
princ_str("(){",VV[25]); |
princ_str("(){",VV[25]); |
242 |
princ_str("do_init(VV);",VV[25]); |
princ_str("do_init(VV);",VV[25]); |
243 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
|
{object V17; |
|
|
V17= symbol_value(VV[24]); |
|
|
bds_bind(VV[0],car((V17))); |
|
|
goto T69; |
|
|
T69:; |
|
|
if(!(endp_prop((V17)))){ |
|
|
goto T70;} |
|
|
bds_unwind1; |
|
|
goto T65; |
|
|
goto T70; |
|
|
T70:; |
|
|
setq(VV[1],Ct); |
|
|
V16= get(car((VV[0]->s.s_dbind)),VV[26],Cnil); |
|
|
if(((V16))==Cnil){ |
|
|
goto T76;} |
|
|
base[8]= (V16); |
|
|
{object V18; |
|
|
V18= cdr((VV[0]->s.s_dbind)); |
|
|
vs_top=base+9; |
|
|
while(!endp(V18)) |
|
|
{vs_push(car(V18));V18=cdr(V18);} |
|
|
vs_base=base+9;} |
|
|
super_funcall_no_event(base[8]); |
|
|
vs_top=sup; |
|
|
goto T76; |
|
|
T76:; |
|
|
V17= cdr((V17)); |
|
|
(VV[0]->s.s_dbind)= car((V17)); |
|
|
goto T69;} |
|
|
goto T65; |
|
|
T65:; |
|
244 |
{object V19; |
{object V19; |
245 |
V19= symbol_value(VV[24]); |
V19= symbol_value(VV[24]); |
246 |
bds_bind(VV[0],car((V19))); |
bds_bind(VV[0],car((V19))); |
247 |
goto T91; |
goto T77; |
248 |
T91:; |
T77:; |
249 |
if(!(endp_prop((V19)))){ |
if(!(endp_prop((V19)))){ |
250 |
goto T92;} |
goto T78;} |
251 |
bds_unwind1; |
bds_unwind1; |
252 |
goto T87; |
goto T73; |
253 |
goto T92; |
goto T78; |
254 |
T92:; |
T78:; |
255 |
setq(VV[1],Ct); |
setq(VV[1],Ct); |
256 |
V16= get(car((VV[0]->s.s_dbind)),VV[27],Cnil); |
V18= get(car((VV[0]->s.s_dbind)),VV[26],Cnil); |
257 |
if(((V16))==Cnil){ |
if(((V18))==Cnil){ |
258 |
goto T98;} |
goto T84;} |
259 |
base[8]= (V16); |
base[8]= (V18); |
260 |
{object V20; |
{object V20; |
261 |
V20= cdr((VV[0]->s.s_dbind)); |
V20= cdr((VV[0]->s.s_dbind)); |
262 |
vs_top=base+9; |
vs_top=base+9; |
265 |
vs_base=base+9;} |
vs_base=base+9;} |
266 |
super_funcall_no_event(base[8]); |
super_funcall_no_event(base[8]); |
267 |
vs_top=sup; |
vs_top=sup; |
268 |
goto T98; |
goto T84; |
269 |
T98:; |
T84:; |
270 |
V19= cdr((V19)); |
V19= cdr((V19)); |
271 |
(VV[0]->s.s_dbind)= car((V19)); |
(VV[0]->s.s_dbind)= car((V19)); |
272 |
goto T91;} |
goto T77;} |
273 |
goto T87; |
goto T73; |
274 |
T87:; |
T73:; |
275 |
{object V21; |
{object V21; |
276 |
V21= Cnil; |
V21= symbol_value(VV[24]); |
277 |
goto T111; |
bds_bind(VV[0],car((V21))); |
278 |
T111:; |
goto T99; |
279 |
if(!(endp_prop(symbol_value(VV[28])))){ |
T99:; |
280 |
goto T113;} |
if(!(endp_prop((V21)))){ |
281 |
goto T109; |
goto T100;} |
282 |
goto T113; |
bds_unwind1; |
283 |
T113:; |
goto T95; |
284 |
V21= car(symbol_value(VV[28])); |
goto T100; |
285 |
|
T100:; |
286 |
|
setq(VV[1],Ct); |
287 |
|
V18= get(car((VV[0]->s.s_dbind)),VV[27],Cnil); |
288 |
|
if(((V18))==Cnil){ |
289 |
|
goto T106;} |
290 |
|
base[8]= (V18); |
291 |
{object V22; |
{object V22; |
292 |
V22= car(symbol_value(VV[28])); |
V22= cdr((VV[0]->s.s_dbind)); |
293 |
setq(VV[28],cdr(symbol_value(VV[28])));} |
vs_top=base+9; |
294 |
|
while(!endp(V22)) |
295 |
|
{vs_push(car(V22));V22=cdr(V22);} |
296 |
|
vs_base=base+9;} |
297 |
|
super_funcall_no_event(base[8]); |
298 |
|
vs_top=sup; |
299 |
|
goto T106; |
300 |
|
T106:; |
301 |
|
V21= cdr((V21)); |
302 |
|
(VV[0]->s.s_dbind)= car((V21)); |
303 |
|
goto T99;} |
304 |
|
goto T95; |
305 |
|
T95:; |
306 |
{object V23; |
{object V23; |
307 |
V23= (V21); |
V23= Cnil; |
308 |
|
goto T119; |
309 |
|
T119:; |
310 |
|
if(!(endp_prop(symbol_value(VV[28])))){ |
311 |
|
goto T121;} |
312 |
|
goto T117; |
313 |
|
goto T121; |
314 |
|
T121:; |
315 |
|
V23= car(symbol_value(VV[28])); |
316 |
|
{object V24; |
317 |
|
V24= car(symbol_value(VV[28])); |
318 |
|
setq(VV[28],cdr(symbol_value(VV[28])));} |
319 |
|
{object V25; |
320 |
|
V25= (V23); |
321 |
vs_top=base+7; |
vs_top=base+7; |
322 |
while(!endp(V23)) |
while(!endp(V25)) |
323 |
{vs_push(car(V23));V23=cdr(V23);} |
{vs_push(car(V25));V25=cdr(V25);} |
324 |
vs_base=base+7;} |
vs_base=base+7;} |
325 |
(void) (*Lnk257)(); |
(void) (*Lnk257)(); |
326 |
vs_top=sup; |
vs_top=sup; |
327 |
goto T111;} |
goto T119;} |
328 |
goto T109; |
goto T117; |
329 |
T109:; |
T117:; |
|
{object V24; |
|
|
object V25; |
|
|
V24= symbol_value(VV[29]); |
|
|
V25= car((V24)); |
|
|
goto T128; |
|
|
T128:; |
|
|
if(!(endp_prop((V24)))){ |
|
|
goto T129;} |
|
|
goto T124; |
|
|
goto T129; |
|
|
T129:; |
|
330 |
{object V26; |
{object V26; |
331 |
V26= (V25); |
object V27; |
332 |
|
V26= symbol_value(VV[29]); |
333 |
|
V27= car((V26)); |
334 |
|
goto T136; |
335 |
|
T136:; |
336 |
|
if(!(endp_prop((V26)))){ |
337 |
|
goto T137;} |
338 |
|
goto T132; |
339 |
|
goto T137; |
340 |
|
T137:; |
341 |
|
{object V28; |
342 |
|
V28= (V27); |
343 |
vs_top=base+8; |
vs_top=base+8; |
344 |
while(!endp(V26)) |
while(!endp(V28)) |
345 |
{vs_push(car(V26));V26=cdr(V26);} |
{vs_push(car(V28));V28=cdr(V28);} |
346 |
vs_base=base+8;} |
vs_base=base+8;} |
347 |
(void) (*Lnk275)(); |
(void) (*Lnk275)(); |
348 |
vs_top=sup; |
vs_top=sup; |
349 |
V24= cdr((V24)); |
V26= cdr((V26)); |
350 |
V25= car((V24)); |
V27= car((V26)); |
351 |
goto T128;} |
goto T136;} |
352 |
goto T124; |
goto T132; |
353 |
T124:; |
T132:; |
|
{object V27; |
|
|
object V28; |
|
|
V27= (VV[17]->s.s_dbind); |
|
|
V28= car((V27)); |
|
|
goto T144; |
|
|
T144:; |
|
|
if(!(endp_prop((V27)))){ |
|
|
goto T145;} |
|
|
goto T140; |
|
|
goto T145; |
|
|
T145:; |
|
|
(void)((*(LnkLI276))((V28))); |
|
|
V27= cdr((V27)); |
|
|
V28= car((V27)); |
|
|
goto T144;} |
|
|
goto T140; |
|
|
T140:; |
|
354 |
{object V29; |
{object V29; |
355 |
object V30; |
object V30; |
356 |
V29= symbol_value(VV[30]); |
V29= (VV[17]->s.s_dbind); |
357 |
V30= car((V29)); |
V30= car((V29)); |
358 |
goto T159; |
goto T152; |
359 |
T159:; |
T152:; |
360 |
if(!(endp_prop((V29)))){ |
if(!(endp_prop((V29)))){ |
361 |
goto T160;} |
goto T153;} |
362 |
goto T155; |
goto T148; |
363 |
goto T160; |
goto T153; |
364 |
T160:; |
T153:; |
365 |
princ_str("\nstatic void LC",VV[31]); |
(void)((*(LnkLI276))((V30))); |
|
V31= structure_ref((V30),VV[32],3); |
|
|
(void)((*(LnkLI277))(/* INLINE-ARGS */V31)); |
|
|
princ_str("();",VV[31]); |
|
366 |
V29= cdr((V29)); |
V29= cdr((V29)); |
367 |
V30= car((V29)); |
V30= car((V29)); |
368 |
goto T159;} |
goto T152;} |
369 |
goto T155; |
goto T148; |
370 |
T155:; |
T148:; |
371 |
{object V32; |
{object V31; |
372 |
object V33; |
object V32; |
373 |
V32= symbol_value(VV[33]); |
V31= symbol_value(VV[30]); |
374 |
V33= car((V32)); |
V32= car((V31)); |
375 |
goto T177; |
goto T167; |
376 |
T177:; |
T167:; |
377 |
if(!(endp_prop((V32)))){ |
if(!(endp_prop((V31)))){ |
378 |
goto T178;} |
goto T168;} |
379 |
goto T173; |
goto T163; |
380 |
goto T178; |
goto T168; |
381 |
T178:; |
T168:; |
382 |
|
princ_str("\nstatic void LC",VV[31]); |
383 |
|
V33= structure_ref((V32),VV[32],3); |
384 |
|
(void)((*(LnkLI277))(/* INLINE-ARGS */V33)); |
385 |
|
princ_str("();",VV[31]); |
386 |
|
V31= cdr((V31)); |
387 |
|
V32= car((V31)); |
388 |
|
goto T167;} |
389 |
|
goto T163; |
390 |
|
T163:; |
391 |
|
{object V34; |
392 |
|
object V35; |
393 |
|
V34= symbol_value(VV[33]); |
394 |
|
V35= car((V34)); |
395 |
|
goto T185; |
396 |
|
T185:; |
397 |
|
if(!(endp_prop((V34)))){ |
398 |
|
goto T186;} |
399 |
|
goto T181; |
400 |
|
goto T186; |
401 |
|
T186:; |
402 |
princ_str("\n#define VM",VV[31]); |
princ_str("\n#define VM",VV[31]); |
403 |
(void)((*(LnkLI277))(car((V33)))); |
(void)((*(LnkLI277))(car((V35)))); |
404 |
princ_char(32,VV[31]); |
princ_char(32,VV[31]); |
405 |
(void)((*(LnkLI277))(cdr((V33)))); |
(void)((*(LnkLI277))(cdr((V35)))); |
406 |
V32= cdr((V32)); |
V34= cdr((V34)); |
407 |
V33= car((V32)); |
V35= car((V34)); |
408 |
goto T177;} |
goto T185;} |
409 |
goto T173; |
goto T181; |
410 |
T173:; |
T181:; |
411 |
(void)((*(LnkLI278))(Cnil)); |
(void)((*(LnkLI278))(Cnil)); |
412 |
{object V34; |
{object V36; |
413 |
object V35; |
object V37; |
414 |
base[8]= (VV[22]->s.s_dbind); |
base[8]= (VV[22]->s.s_dbind); |
415 |
base[9]= symbol_value(VV[34]); |
base[9]= symbol_value(VV[34]); |
416 |
base[10]= small_fixnum(1); |
base[10]= small_fixnum(1); |
417 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
418 |
Lminus(); |
Lminus(); |
419 |
vs_top=sup; |
vs_top=sup; |
420 |
V34= vs_base[0]; |
V36= vs_base[0]; |
421 |
V35= small_fixnum(0); |
V37= small_fixnum(0); |
422 |
goto T200; |
goto T208; |
423 |
T200:; |
T208:; |
424 |
if(!(number_compare((V35),(V34))>=0)){ |
if(!(number_compare((V37),(V36))>=0)){ |
425 |
goto T201;} |
goto T209;} |
|
goto T193; |
|
426 |
goto T201; |
goto T201; |
427 |
T201:; |
goto T209; |
428 |
|
T209:; |
429 |
(void)((*(LnkLI278))(Cnil)); |
(void)((*(LnkLI278))(Cnil)); |
430 |
V35= one_plus((V35)); |
V37= one_plus((V37)); |
431 |
goto T200;} |
goto T208;} |
432 |
goto T193; |
goto T201; |
433 |
T193:; |
T201:; |
434 |
princ_str("\nstatic char * VVi[",VV[31]); |
princ_str("\nstatic char * VVi[",VV[31]); |
435 |
V36= number_plus(small_fixnum(1),symbol_value(VV[34])); |
V38= number_plus(small_fixnum(1),symbol_value(VV[34])); |
436 |
(void)((*(LnkLI277))(/* INLINE-ARGS */V36)); |
(void)((*(LnkLI277))(/* INLINE-ARGS */V38)); |
437 |
princ_str("]={",VV[31]); |
princ_str("]={",VV[31]); |
438 |
princ_str("\n#define Cdata VV[",VV[31]); |
princ_str("\n#define Cdata VV[",VV[31]); |
439 |
(void)((*(LnkLI277))(symbol_value(VV[34]))); |
(void)((*(LnkLI277))(symbol_value(VV[34]))); |
440 |
princ_char(93,VV[31]); |
princ_char(93,VV[31]); |
441 |
if((VV[21]->s.s_dbind)!=Cnil){ |
if((VV[21]->s.s_dbind)!=Cnil){ |
442 |
goto T217;} |
goto T225;} |
443 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
444 |
(void)((*(LnkLI277))(small_fixnum(0))); |
(void)((*(LnkLI277))(small_fixnum(0))); |
445 |
goto T217; |
goto T225; |
446 |
T217:; |
T225:; |
447 |
{register object V37; |
{register object V39; |
448 |
V37= nreverse((VV[21]->s.s_dbind)); |
V39= nreverse((VV[21]->s.s_dbind)); |
449 |
goto T223; |
goto T231; |
450 |
T223:; |
T231:; |
451 |
if(((V37))!=Cnil){ |
if(((V39))!=Cnil){ |
452 |
goto T224;} |
goto T232;} |
453 |
princ_str("\n};",VV[31]); |
princ_str("\n};",VV[31]); |
454 |
goto T220; |
goto T228; |
455 |
goto T224; |
goto T232; |
456 |
T224:; |
T232:; |
457 |
princ_str("\n(char *)(",VV[31]); |
princ_str("\n(char *)(",VV[31]); |
458 |
(void)((*(LnkLI277))(caar((V37)))); |
(void)((*(LnkLI277))(caar((V39)))); |
459 |
(void)((*(LnkLI277))(cadar((V37)))); |
(void)((*(LnkLI277))(cadar((V39)))); |
460 |
if((cdr((V37)))==Cnil){ |
if((cdr((V39)))==Cnil){ |
461 |
goto T236;} |
goto T244;} |
462 |
V38= VV[35]; |
V40= VV[35]; |
463 |
goto T234; |
goto T242; |
464 |
goto T236; |
goto T244; |
465 |
T236:; |
T244:; |
466 |
V38= VV[36]; |
V40= VV[36]; |
467 |
goto T234; |
goto T242; |
468 |
T234:; |
T242:; |
469 |
(void)((*(LnkLI277))(V38)); |
(void)((*(LnkLI277))(V40)); |
470 |
V37= cdr((V37)); |
V39= cdr((V39)); |
471 |
goto T223;} |
goto T231;} |
472 |
goto T220; |
goto T228; |
473 |
T220:; |
T228:; |
474 |
princ_str("\n#define VV ((object *)VVi)",VV[31]); |
princ_str("\n#define VV ((object *)VVi)",VV[31]); |
475 |
vs_base=vs_top; |
vs_base=vs_top; |
476 |
(void) (*Lnk279)(); |
(void) (*Lnk279)(); |
477 |
vs_top=sup; |
vs_top=sup; |
478 |
{object V39; |
{object V41; |
479 |
object V40; |
object V42; |
480 |
V39= (VV[17]->s.s_dbind); |
V41= (VV[17]->s.s_dbind); |
481 |
V40= car((V39)); |
V42= car((V41)); |
482 |
goto T247; |
goto T255; |
483 |
T247:; |
T255:; |
484 |
if(!(endp_prop((V39)))){ |
if(!(endp_prop((V41)))){ |
485 |
goto T248;} |
goto T256;} |
486 |
{object V41 = Cnil; |
{object V43 = Cnil; |
487 |
bds_unwind1; |
bds_unwind1; |
488 |
bds_unwind1; |
bds_unwind1; |
489 |
bds_unwind1; |
bds_unwind1; |
491 |
bds_unwind1; |
bds_unwind1; |
492 |
bds_unwind1; |
bds_unwind1; |
493 |
bds_unwind1; |
bds_unwind1; |
494 |
VMR3(V41)} |
VMR3(V43)} |
495 |
goto T248; |
goto T256; |
496 |
T248:; |
T256:; |
497 |
{register object V42; |
{register object V44; |
|
register object V43; |
|
|
object V44; |
|
498 |
register object V45; |
register object V45; |
499 |
V42= cadr((V40)); |
object V46; |
500 |
V43= caddr((V40)); |
register object V47; |
501 |
V44= cadddr((V40)); |
V44= cadr((V42)); |
502 |
V45= Cnil; |
V45= caddr((V42)); |
503 |
if(!(((V43))==(VV[37]))){ |
V46= cadddr((V42)); |
504 |
goto T258;} |
V47= Cnil; |
505 |
|
if(!(((V45))==(VV[37]))){ |
506 |
|
goto T266;} |
507 |
princ_str("\nstatic object *Lclptr",VV[31]); |
princ_str("\nstatic object *Lclptr",VV[31]); |
508 |
(void)((*(LnkLI277))((V42))); |
(void)((*(LnkLI277))((V44))); |
509 |
princ_char(59,VV[31]); |
princ_char(59,VV[31]); |
510 |
V45= VV[38]; |
V47= VV[38]; |
511 |
goto T256; |
goto T264; |
512 |
goto T258; |
goto T266; |
513 |
T258:; |
T266:; |
514 |
if(((V43))==Cnil){ |
if(((V45))==Cnil){ |
515 |
goto T267;} |
goto T275;} |
516 |
V45= (*(LnkLI280))((V43)); |
V47= (*(LnkLI280))((V45)); |
517 |
goto T265; |
goto T273; |
518 |
goto T267; |
goto T275; |
519 |
T267:; |
T275:; |
520 |
V45= VV[39]; |
V47= VV[39]; |
521 |
goto T265; |
goto T273; |
522 |
T265:; |
T273:; |
523 |
goto T256; |
goto T264; |
524 |
T256:; |
T264:; |
525 |
if(((V43))==Cnil){ |
if(((V45))==Cnil){ |
526 |
goto T270;} |
goto T278;} |
527 |
if(((V43))==(VV[37])){ |
if(((V45))==(VV[37])){ |
528 |
goto T270;} |
goto T278;} |
529 |
if(((V44))!=Cnil){ |
if(((V46))!=Cnil){ |
530 |
goto T269;} |
goto T277;} |
531 |
if((Ct)==((V43))){ |
if((Ct)==((V45))){ |
532 |
goto T270;} |
goto T278;} |
533 |
goto T269; |
goto T277; |
534 |
T269:; |
T277:; |
535 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
536 |
base[8]= (V45); |
base[8]= (V47); |
537 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
538 |
(void) (*Lnk281)(); |
(void) (*Lnk281)(); |
539 |
vs_top=sup; |
vs_top=sup; |
540 |
V46= vs_base[0]; |
V48= vs_base[0]; |
541 |
(void)((*(LnkLI277))(V46)); |
(void)((*(LnkLI277))(V48)); |
542 |
princ_str(" LnkT",VV[31]); |
princ_str(" LnkT",VV[31]); |
543 |
(void)((*(LnkLI277))((V42))); |
(void)((*(LnkLI277))((V44))); |
544 |
princ_str("(object,...);",VV[31]); |
princ_str("(object,...);",VV[31]); |
545 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
546 |
base[8]= (V45); |
base[8]= (V47); |
547 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
548 |
(void) (*Lnk281)(); |
(void) (*Lnk281)(); |
549 |
vs_top=sup; |
vs_top=sup; |
550 |
V47= vs_base[0]; |
V49= vs_base[0]; |
551 |
(void)((*(LnkLI277))(V47)); |
(void)((*(LnkLI277))(V49)); |
552 |
princ_str(" (*Lnk",VV[31]); |
princ_str(" (*Lnk",VV[31]); |
553 |
(void)((*(LnkLI277))((V42))); |
(void)((*(LnkLI277))((V44))); |
554 |
princ_str(")() = (",VV[31]); |
princ_str(")() = (",VV[31]); |
555 |
base[8]= (V45); |
base[8]= (V47); |
556 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
557 |
(void) (*Lnk281)(); |
(void) (*Lnk281)(); |
558 |
vs_top=sup; |
vs_top=sup; |
559 |
V48= vs_base[0]; |
V50= vs_base[0]; |
560 |
(void)((*(LnkLI277))(V48)); |
(void)((*(LnkLI277))(V50)); |
561 |
princ_str("(*)()) LnkT",VV[31]); |
princ_str("(*)()) LnkT",VV[31]); |
562 |
(void)((*(LnkLI277))((V42))); |
(void)((*(LnkLI277))((V44))); |
563 |
princ_char(59,VV[31]); |
princ_char(59,VV[31]); |
564 |
goto T252; |
goto T260; |
565 |
goto T270; |
goto T278; |
566 |
T270:; |
T278:; |
567 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
568 |
base[8]= (V45); |
base[8]= (V47); |
569 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
570 |
(void) (*Lnk281)(); |
(void) (*Lnk281)(); |
571 |
vs_top=sup; |
vs_top=sup; |
572 |
V49= vs_base[0]; |
V51= vs_base[0]; |
573 |
(void)((*(LnkLI277))(V49)); |
(void)((*(LnkLI277))(V51)); |
574 |
princ_str(" LnkT",VV[31]); |
princ_str(" LnkT",VV[31]); |
575 |
(void)((*(LnkLI277))((V42))); |
(void)((*(LnkLI277))((V44))); |
576 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
577 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
578 |
base[8]= (V45); |
base[8]= (V47); |
579 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
580 |
(void) (*Lnk281)(); |
(void) (*Lnk281)(); |
581 |
vs_top=sup; |
vs_top=sup; |
582 |
V50= vs_base[0]; |
V52= vs_base[0]; |
583 |
(void)((*(LnkLI277))(V50)); |
(void)((*(LnkLI277))(V52)); |
584 |
princ_str(" (*Lnk",VV[31]); |
princ_str(" (*Lnk",VV[31]); |
585 |
(void)((*(LnkLI277))((V42))); |
(void)((*(LnkLI277))((V44))); |
586 |
princ_str(")() = LnkT",VV[31]); |
princ_str(")() = LnkT",VV[31]); |
587 |
(void)((*(LnkLI277))((V42))); |
(void)((*(LnkLI277))((V44))); |
588 |
princ_char(59,VV[31]);} |
princ_char(59,VV[31]);} |
589 |
goto T252; |
goto T260; |
590 |
T252:; |
T260:; |
591 |
V39= cdr((V39)); |
V41= cdr((V41)); |
592 |
V40= car((V39)); |
V42= car((V41)); |
593 |
goto T247;}} |
goto T255;}} |
594 |
base[0]=base[0]; |
base[0]=base[0]; |
595 |
return Cnil; |
return Cnil; |
596 |
} |
} |
597 |
/* local entry for function MAYBE-EVAL */ |
/* local entry for function MAYBE-EVAL */ |
598 |
|
|
599 |
static object LI4(V53,V54) |
static object LI4(V55,V56) |
600 |
|
|
601 |
object V53;register object V54; |
object V55;register object V56; |
602 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
603 |
goto TTL; |
goto TTL; |
604 |
TTL:; |
TTL:; |
605 |
if((V53)!=Cnil){ |
if((V55)!=Cnil){ |
606 |
goto T321;} |
goto T329;} |
607 |
if(type_of(car((V54)))==t_symbol){ |
if(type_of(car((V56)))==t_symbol){ |
608 |
goto T322;} |
goto T330;} |
609 |
goto T321; |
goto T329; |
610 |
goto T322; |
goto T330; |
611 |
T322:; |
T330:; |
612 |
V53= get(car((V54)),VV[40],Cnil); |
V55= get(car((V56)),VV[40],Cnil); |
613 |
goto T321; |
goto T329; |
614 |
T321:; |
T329:; |
615 |
if(((V53))==Cnil){ |
if(((V55))==Cnil){ |
616 |
goto T327;} |
goto T335;} |
617 |
if((VV[41])==(symbol_value(VV[42]))){ |
if((VV[41])==(symbol_value(VV[42]))){ |
618 |
goto T325;} |
goto T333;} |
619 |
goto T327; |
goto T335; |
620 |
T327:; |
T335:; |
621 |
if(!(type_of(symbol_value(VV[42]))==t_cons)){ |
if(!(type_of(symbol_value(VV[42]))==t_cons)){ |
622 |
goto T326;} |
goto T334;} |
623 |
{register object x= VV[43],V55= symbol_value(VV[42]); |
{register object x= VV[43],V57= symbol_value(VV[42]); |
624 |
while(!endp(V55)) |
while(!endp(V57)) |
625 |
if(eql(x,V55->c.c_car)){ |
if(eql(x,V57->c.c_car)){ |
626 |
goto T333; |
goto T341; |
627 |
}else V55=V55->c.c_cdr; |
}else V57=V57->c.c_cdr; |
628 |
goto T326;} |
goto T334;} |
629 |
|
goto T341; |
630 |
|
T341:; |
631 |
goto T333; |
goto T333; |
632 |
T333:; |
T333:; |
633 |
goto T325; |
if(((V56))==Cnil){ |
634 |
T325:; |
goto T342;} |
635 |
if(((V54))==Cnil){ |
base[0]= (V56); |
|
goto T334;} |
|
|
base[0]= (V54); |
|
636 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
637 |
(void) (*Lnk282)(); |
(void) (*Lnk282)(); |
638 |
vs_top=sup; |
vs_top=sup; |
639 |
|
goto T342; |
640 |
|
T342:; |
641 |
|
{object V58 = Ct; |
642 |
|
VMR4(V58)} |
643 |
goto T334; |
goto T334; |
644 |
T334:; |
T334:; |
645 |
{object V56 = Ct; |
{object V59 = Cnil; |
646 |
VMR4(V56)} |
VMR4(V59)} |
|
goto T326; |
|
|
T326:; |
|
|
{object V57 = Cnil; |
|
|
VMR4(V57)} |
|
647 |
base[0]=base[0]; |
base[0]=base[0]; |
648 |
return Cnil; |
return Cnil; |
649 |
} |
} |
654 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
655 |
vs_reserve(VM5); |
vs_reserve(VM5); |
656 |
bds_check; |
bds_check; |
657 |
{register object V58; |
{register object V60; |
658 |
check_arg(1); |
check_arg(1); |
659 |
V58=(base[0]); |
V60=(base[0]); |
660 |
vs_top=sup; |
vs_top=sup; |
661 |
goto TTL; |
goto TTL; |
662 |
TTL:; |
TTL:; |
|
{register object V59; |
|
|
register object V60; |
|
|
V59= Cnil; |
|
|
V60= Cnil; |
|
|
if(!(endp_prop((V58)))){ |
|
|
goto T340;} |
|
|
(void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0))); |
|
|
goto T340; |
|
|
T340:; |
|
663 |
{register object V61; |
{register object V61; |
664 |
register object V62; |
register object V62; |
665 |
V61= car((V58)); |
V61= Cnil; |
666 |
V62= car((V61)); |
V62= Cnil; |
667 |
goto T347; |
if(!(endp_prop((V60)))){ |
|
T347:; |
|
|
if(!(endp_prop((V61)))){ |
|
668 |
goto T348;} |
goto T348;} |
669 |
goto T343; |
(void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0))); |
670 |
goto T348; |
goto T348; |
671 |
T348:; |
T348:; |
672 |
{object V63= (V62); |
{register object V63; |
673 |
if((V63!= VV[284]))goto T353; |
register object V64; |
674 |
V59= Ct; |
V63= car((V60)); |
675 |
goto T352; |
V64= car((V63)); |
|
goto T353; |
|
|
T353:; |
|
|
if((V63!= VV[285]))goto T355; |
|
|
V59= Ct; |
|
|
goto T352; |
|
676 |
goto T355; |
goto T355; |
677 |
T355:; |
T355:; |
678 |
if((V63!= VV[43]))goto T357; |
if(!(endp_prop((V63)))){ |
679 |
V60= Ct; |
goto T356;} |
680 |
goto T352; |
goto T351; |
681 |
goto T357; |
goto T356; |
682 |
T357:; |
T356:; |
683 |
if((V63!= VV[286]))goto T359; |
{object V65= (V64); |
684 |
V60= Ct; |
if((V65!= VV[284]))goto T361; |
685 |
goto T352; |
V61= Ct; |
686 |
goto T359; |
goto T360; |
|
T359:; |
|
|
if((V63!= VV[287]))goto T361; |
|
|
goto T352; |
|
687 |
goto T361; |
goto T361; |
688 |
T361:; |
T361:; |
689 |
if((V63!= VV[288]))goto T362; |
if((V65!= VV[285]))goto T363; |
690 |
goto T352; |
V61= Ct; |
691 |
goto T362; |
goto T360; |
692 |
T362:; |
goto T363; |
693 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));} |
T363:; |
694 |
goto T352; |
if((V65!= VV[43]))goto T365; |
695 |
T352:; |
V62= Ct; |
696 |
V61= cdr((V61)); |
goto T360; |
697 |
V62= car((V61)); |
goto T365; |
698 |
goto T347;} |
T365:; |
699 |
goto T343; |
if((V65!= VV[286]))goto T367; |
700 |
T343:; |
V62= Ct; |
701 |
base[1]= car((V58)); |
goto T360; |
702 |
|
goto T367; |
703 |
|
T367:; |
704 |
|
if((V65!= VV[287]))goto T369; |
705 |
|
goto T360; |
706 |
|
goto T369; |
707 |
|
T369:; |
708 |
|
if((V65!= VV[288]))goto T370; |
709 |
|
goto T360; |
710 |
|
goto T370; |
711 |
|
T370:; |
712 |
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V64))));} |
713 |
|
goto T360; |
714 |
|
T360:; |
715 |
|
V63= cdr((V63)); |
716 |
|
V64= car((V63)); |
717 |
|
goto T355;} |
718 |
|
goto T351; |
719 |
|
T351:; |
720 |
|
base[1]= car((V60)); |
721 |
bds_bind(VV[42],base[1]); |
bds_bind(VV[42],base[1]); |
722 |
if(((V59))==Cnil){ |
if(((V61))==Cnil){ |
723 |
goto T370;} |
goto T378;} |
724 |
base[2]= (*(LnkLI289))(cdr((V58))); |
base[2]= (*(LnkLI289))(cdr((V60))); |
725 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
726 |
bds_unwind1; |
bds_unwind1; |
727 |
return; |
return; |
728 |
goto T370; |
goto T378; |
729 |
T370:; |
T378:; |
730 |
if(((V60))==Cnil){ |
if(((V62))==Cnil){ |
731 |
goto T373;} |
goto T381;} |
732 |
base[2]= make_cons(VV[46],cdr((V58))); |
base[2]= make_cons(VV[46],cdr((V60))); |
733 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
734 |
(void) (*Lnk282)(); |
(void) (*Lnk282)(); |
735 |
bds_unwind1; |
bds_unwind1; |
736 |
return; |
return; |
737 |
goto T373; |
goto T381; |
738 |
T373:; |
T381:; |
739 |
base[2]= Cnil; |
base[2]= Cnil; |
740 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
741 |
bds_unwind1; |
bds_unwind1; |
744 |
} |
} |
745 |
/* local entry for function T1PROGN */ |
/* local entry for function T1PROGN */ |
746 |
|
|
747 |
static object LI6(V65) |
static object LI6(V67) |
748 |
|
|
749 |
object V65; |
object V67; |
750 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
751 |
bds_check; |
bds_check; |
752 |
goto TTL; |
goto TTL; |
753 |
TTL:; |
TTL:; |
754 |
if(!(equal(car((V65)),VV[47]))){ |
if(!(equal(car((V67)),VV[47]))){ |
755 |
goto T377;} |
goto T385;} |
756 |
bds_bind(VV[48],Ct); |
bds_bind(VV[48],Ct); |
757 |
{object V66 = (*(LnkLI289))(cdr((V65))); |
{object V68 = (*(LnkLI289))(cdr((V67))); |
758 |
bds_unwind1; |
bds_unwind1; |
759 |
VMR6(V66)} |
VMR6(V68)} |
760 |
goto T377; |
goto T385; |
761 |
T377:; |
T385:; |
762 |
{register object V67; |
{register object V69; |
763 |
register object V68; |
register object V70; |
764 |
V67= (V65); |
V69= (V67); |
765 |
V68= car((V67)); |
V70= car((V69)); |
766 |
goto T382; |
goto T390; |
767 |
T382:; |
T390:; |
768 |
if(!(endp_prop((V67)))){ |
if(!(endp_prop((V69)))){ |
769 |
goto T383;} |
goto T391;} |
770 |
{object V69 = Cnil; |
{object V71 = Cnil; |
771 |
VMR6(V69)} |
VMR6(V71)} |
772 |
goto T383; |
goto T391; |
773 |
T383:; |
T391:; |
774 |
base[1]= (V68); |
base[1]= (V70); |
775 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
776 |
(void) (*Lnk271)(); |
(void) (*Lnk272)(); |
777 |
vs_top=sup; |
vs_top=sup; |
778 |
V67= cdr((V67)); |
V69= cdr((V69)); |
779 |
V68= car((V67)); |
V70= car((V69)); |
780 |
goto T382;} |
goto T390;} |
781 |
base[0]=base[0]; |
base[0]=base[0]; |
782 |
return Cnil; |
return Cnil; |
783 |
} |
} |
784 |
/* local entry for function CMPFIX-ARGS */ |
/* local entry for function CMPFIX-ARGS */ |
785 |
|
|
786 |
static object LI7(V72,V73) |
static object LI7(V74,V75) |
787 |
|
|
788 |
object V72;object V73; |
object V74;object V75; |
789 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
790 |
goto TTL; |
goto TTL; |
791 |
TTL:; |
TTL:; |
792 |
{register object V74; |
{register object V76; |
793 |
register object V75; |
register object V77; |
794 |
V74= Cnil; |
V76= Cnil; |
795 |
base[1]= cadr((V72)); |
base[1]= cadr((V74)); |
796 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
797 |
Lcopy_list(); |
Lcopy_list(); |
798 |
vs_top=sup; |
vs_top=sup; |
799 |
V75= vs_base[0]; |
V77= vs_base[0]; |
800 |
{register object V76; |
{register object V78; |
801 |
register object V77; |
register object V79; |
802 |
V76= (V73); |
V78= (V75); |
803 |
V77= car((V76)); |
V79= car((V78)); |
804 |
goto T401; |
goto T409; |
805 |
T401:; |
T409:; |
806 |
if(!(endp_prop((V76)))){ |
if(!(endp_prop((V78)))){ |
807 |
goto T402;} |
goto T410;} |
808 |
goto T397; |
goto T405; |
809 |
goto T402; |
goto T410; |
810 |
T402:; |
T410:; |
811 |
{register object x= car((V77)),V78= (V75); |
{register object x= car((V79)),V80= (V77); |
812 |
while(!endp(V78)) |
while(!endp(V80)) |
813 |
if(eql(x,V78->c.c_car)){ |
if(eql(x,V80->c.c_car)){ |
814 |
V74= V78; |
V76= V80; |
815 |
goto T407; |
goto T415; |
816 |
}else V78=V78->c.c_cdr; |
}else V80=V80->c.c_cdr; |
817 |
V74= Cnil;} |
V76= Cnil;} |
818 |
goto T407; |
goto T415; |
819 |
T407:; |
T415:; |
820 |
if((V74)==Cnil){ |
if((V76)==Cnil){ |
821 |
goto T408;} |
goto T416;} |
822 |
{register object V79; |
{register object V81; |
823 |
register object V80; |
register object V82; |
824 |
V79= (V74); |
V81= (V76); |
825 |
V80= cadr((V77)); |
V82= cadr((V79)); |
826 |
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79)); |
if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81)); |
827 |
((V79))->c.c_car = (V80);} |
((V81))->c.c_car = (V82);} |
828 |
goto T408; |
goto T416; |
829 |
T408:; |
T416:; |
830 |
V76= cdr((V76)); |
V78= cdr((V78)); |
831 |
V77= car((V76)); |
V79= car((V78)); |
832 |
goto T401;} |
goto T409;} |
833 |
goto T397; |
goto T405; |
834 |
T397:; |
T405:; |
835 |
{register object x= VV[49],V81= (V75); |
{register object x= VV[49],V83= (V77); |
836 |
while(!endp(V81)) |
while(!endp(V83)) |
837 |
if(eql(x,V81->c.c_car)){ |
if(eql(x,V83->c.c_car)){ |
838 |
V74= V81; |
V76= V83; |
839 |
goto T421; |
goto T429; |
840 |
}else V81=V81->c.c_cdr; |
}else V83=V83->c.c_cdr; |
841 |
V74= Cnil;} |
V76= Cnil;} |
842 |
goto T421; |
goto T429; |
843 |
T421:; |
T429:; |
844 |
if(((V74))==Cnil){ |
if(((V76))==Cnil){ |
845 |
goto T419;} |
goto T427;} |
846 |
{object V83; |
{object V85; |
847 |
V83= append((V73),cdr((V74))); |
V85= append((V75),cdr((V76))); |
848 |
if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74); |
if(type_of(V76)!=t_cons)FEwrong_type_argument(Scons,V76); |
849 |
(V74)->c.c_cdr = (V83); |
(V76)->c.c_cdr = (V85); |
850 |
goto T417;} |
goto T425;} |
851 |
goto T419; |
goto T427; |
852 |
T419:; |
T427:; |
853 |
V84= make_cons(VV[49],(V73)); |
V86= make_cons(VV[49],(V75)); |
854 |
V75= append((V75),/* INLINE-ARGS */V84); |
V77= append((V77),/* INLINE-ARGS */V86); |
855 |
goto T417; |
goto T425; |
856 |
T417:; |
T425:; |
857 |
{object V85 = listA(3,car((V72)),(V75),cddr((V72))); |
{object V87 = listA(3,car((V74)),(V77),cddr((V74))); |
858 |
VMR7(V85)}} |
VMR7(V87)}} |
859 |
base[0]=base[0]; |
base[0]=base[0]; |
860 |
return Cnil; |
return Cnil; |
861 |
} |
} |
862 |
/* local entry for function T1DEFUN */ |
/* local entry for function T1DEFUN */ |
863 |
|
|
864 |
static object LI8(V87) |
static object LI8(V89) |
865 |
|
|
866 |
object V87; |
object V89; |
867 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
868 |
bds_check; |
bds_check; |
869 |
goto TTL; |
goto TTL; |
870 |
TTL:; |
TTL:; |
871 |
{object V88; |
{object V90; |
872 |
V88= symbol_value(VV[50]); |
V90= symbol_value(VV[50]); |
873 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
874 |
if(endp_prop((V87))){ |
if(endp_prop((V89))){ |
875 |
goto T427;} |
goto T435;} |
876 |
if(!(endp_prop(cdr((V87))))){ |
if(!(endp_prop(cdr((V89))))){ |
877 |
goto T426;} |
goto T434;} |
878 |
goto T427; |
goto T435; |
879 |
T427:; |
T435:; |
880 |
V90 = make_fixnum((long)length((V87))); |
V92 = make_fixnum((long)length((V89))); |
881 |
(void)((*(LnkLI283))(VV[51],small_fixnum(2),V90)); |
(void)((*(LnkLI283))(VV[51],small_fixnum(2),V92)); |
882 |
goto T426; |
goto T434; |
883 |
T426:; |
T434:; |
884 |
if(type_of(car((V87)))==t_symbol){ |
if(type_of(car((V89)))==t_symbol){ |
885 |
goto T431;} |
goto T439;} |
886 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V89))))); |
887 |
goto T431; |
goto T439; |
888 |
T431:; |
T439:; |
889 |
V91= make_cons(VV[51],(V87)); |
V93= make_cons(VV[51],(V89)); |
890 |
(void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91)); |
(void)((*(LnkLI268))(Cnil,/* INLINE-ARGS */V93)); |
891 |
goto T436; |
goto T444; |
892 |
T436:; |
T444:; |
893 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
894 |
setq(VV[54],Cnil); |
setq(VV[54],Cnil); |
895 |
{register object V92; |
{register object V94; |
896 |
object V93; |
object V95; |
897 |
object V94; |
object V96; |
898 |
register object V95;{object V96; |
register object V97;{object V98; |
899 |
V96= get(car((V87)),VV[60],Cnil); |
V98= get(car((V89)),VV[60],Cnil); |
900 |
if(V96==Cnil)goto T443; |
if(V98==Cnil)goto T451; |
901 |
V93= V96; |
V95= V98; |
902 |
goto T442; |
goto T450; |
903 |
goto T443; |
goto T451; |
904 |
T443:;} |
T451:;} |
905 |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
906 |
V93= symbol_value(VV[61]); |
V95= symbol_value(VV[61]); |
907 |
goto T442; |
goto T450; |
908 |
T442:; |
T450:; |
909 |
V95= car((V87)); |
V97= car((V89)); |
910 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
911 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
912 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
913 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
|
V92= Cnil; |
|
|
bds_bind(VV[59],Cnil); |
|
914 |
V94= Cnil; |
V94= Cnil; |
915 |
V92= (VFUN_NARGS=2,(*(LnkLI290))(cdr((V87)),(V95))); |
bds_bind(VV[59],Cnil); |
916 |
if(!(eql((V88),symbol_value(VV[50])))){ |
V96= Cnil; |
917 |
goto T450;} |
V94= (VFUN_NARGS=2,(*(LnkLI290))(cdr((V89)),(V97))); |
918 |
goto T449; |
if(!(eql((V90),symbol_value(VV[50])))){ |
919 |
goto T450; |
goto T458;} |
920 |
T450:; |
goto T457; |
921 |
(void)(structure_set(cadr((V92)),VV[62],4,Ct)); |
goto T458; |
922 |
goto T449; |
T458:; |
923 |
T449:; |
(void)(structure_set(cadr((V94)),VV[62],4,Ct)); |
924 |
V97= structure_ref(cadr((V92)),VV[62],1); |
goto T457; |
925 |
(void)((*(LnkLI291))(/* INLINE-ARGS */V97)); |
T457:; |
926 |
if((get((V95),VV[63],Cnil))==Cnil){ |
V99= structure_ref(cadr((V94)),VV[62],1); |
927 |
goto T453;} |
(void)((*(LnkLI291))(/* INLINE-ARGS */V99)); |
928 |
{object V98; |
if((get((V97),VV[63],Cnil))==Cnil){ |
929 |
V98= make_fixnum((long)length(car(caddr((V92))))); |
goto T461;} |
930 |
(void)(sputprop((V95),VV[63],(V98))); |
{object V100; |
931 |
base[6]= (V98); |
V100= make_fixnum((long)length(car(caddr((V94))))); |
932 |
|
(void)(sputprop((V97),VV[63],(V100))); |
933 |
|
base[6]= (V100); |
934 |
base[7]= VV[65]; |
base[7]= VV[65]; |
935 |
base[8]= Ct; |
base[8]= Ct; |
936 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
937 |
Lmake_list(); |
Lmake_list(); |
938 |
vs_top=sup; |
vs_top=sup; |
939 |
V99= vs_base[0]; |
V101= vs_base[0]; |
940 |
V100= list(4,VV[64],(V95),V99,Ct); |
V102= list(4,VV[64],(V97),V101,Ct); |
941 |
(void)((*(LnkLI292))(/* INLINE-ARGS */V100));} |
(void)((*(LnkLI292))(/* INLINE-ARGS */V102));} |
942 |
goto T453; |
goto T461; |
943 |
T453:; |
T461:; |
944 |
if((get((V95),VV[66],Cnil))==Cnil){ |
if((get((V97),VV[66],Cnil))==Cnil){ |
945 |
goto T464;} |
goto T472;} |
946 |
{object V101; |
{object V103; |
|
register object V102; |
|
|
V101= caddr((V92)); |
|
|
V102= Cnil; |
|
|
if((cadr((V101)))==Cnil){ |
|
|
goto T469;} |
|
|
goto T464; |
|
|
goto T469; |
|
|
T469:; |
|
|
if((caddr((V101)))==Cnil){ |
|
|
goto T471;} |
|
|
goto T464; |
|
|
goto T471; |
|
|
T471:; |
|
|
if((cadddr((V101)))==Cnil){ |
|
|
goto T473;} |
|
|
goto T464; |
|
|
goto T473; |
|
|
T473:; |
|
|
if(((long)length(car((V101))))<(64)){ |
|
|
goto T475;} |
|
|
goto T464; |
|
|
goto T475; |
|
|
T475:; |
|
|
{register object V103; |
|
947 |
register object V104; |
register object V104; |
948 |
object V105; |
V103= caddr((V94)); |
949 |
V103= car((V101)); |
V104= Cnil; |
950 |
V104= get((V95),VV[67],Cnil); |
if((cadr((V103)))==Cnil){ |
951 |
V105= Cnil; |
goto T477;} |
952 |
goto T482; |
goto T472; |
953 |
T482:; |
goto T477; |
954 |
if(!(endp_prop((V103)))){ |
T477:; |
955 |
|
if((caddr((V103)))==Cnil){ |
956 |
|
goto T479;} |
957 |
|
goto T472; |
958 |
|
goto T479; |
959 |
|
T479:; |
960 |
|
if((cadddr((V103)))==Cnil){ |
961 |
|
goto T481;} |
962 |
|
goto T472; |
963 |
|
goto T481; |
964 |
|
T481:; |
965 |
|
if(((long)length(car((V103))))<(64)){ |
966 |
goto T483;} |
goto T483;} |
967 |
if(endp_prop((V104))){ |
goto T472; |
968 |
goto T486;} |
goto T483; |
969 |
goto T478; |
T483:; |
970 |
|
{register object V105; |
971 |
|
register object V106; |
972 |
|
object V107; |
973 |
|
V105= car((V103)); |
974 |
|
V106= get((V97),VV[67],Cnil); |
975 |
|
V107= Cnil; |
976 |
|
goto T490; |
977 |
|
T490:; |
978 |
|
if(!(endp_prop((V105)))){ |
979 |
|
goto T491;} |
980 |
|
if(endp_prop((V106))){ |
981 |
|
goto T494;} |
982 |
goto T486; |
goto T486; |
983 |
T486:; |
goto T494; |
984 |
if(((V102))==Cnil){ |
T494:; |
985 |
goto T489;} |
if(((V104))==Cnil){ |
986 |
V87= (*(LnkLI293))((V87),(V102)); |
goto T497;} |
987 |
|
V89= (*(LnkLI293))((V89),(V104)); |
988 |
bds_unwind1; |
bds_unwind1; |
989 |
bds_unwind1; |
bds_unwind1; |
990 |
bds_unwind1; |
bds_unwind1; |
991 |
bds_unwind1; |
bds_unwind1; |
992 |
bds_unwind1; |
bds_unwind1; |
993 |
goto T436; |
goto T444; |
994 |
goto T489; |
goto T497; |
995 |
T489:; |
T497:; |
996 |
if(((V105))==Cnil){ |
if(((V107))==Cnil){ |
997 |
goto T477;} |
goto T485;} |
998 |
goto T478; |
goto T486; |
999 |
goto T483; |
goto T491; |
1000 |
T483:; |
T491:; |
1001 |
{register object V106; |
{register object V108; |
1002 |
V106= car((V103)); |
V108= car((V105)); |
1003 |
if(!(equal(car((V104)),VV[68]))){ |
if(!(equal(car((V106)),VV[68]))){ |
1004 |
goto T496;} |
goto T504;} |
1005 |
goto T478; |
goto T486; |
1006 |
goto T496; |
goto T504; |
1007 |
T496:; |
T504:; |
1008 |
V107= structure_ref((V106),VV[69],1); |
V109= structure_ref((V108),VV[69],1); |
1009 |
if((/* INLINE-ARGS */V107)==(VV[70])){ |
if((/* INLINE-ARGS */V109)==(VV[70])){ |
1010 |
goto T502;} |
goto T510;} |
1011 |
V108= structure_ref((V106),VV[69],1); |
V110= structure_ref((V108),VV[69],1); |
1012 |
if(!((/* INLINE-ARGS */V108)==(VV[71]))){ |
if(!((/* INLINE-ARGS */V110)==(VV[71]))){ |
1013 |
goto T501;} |
goto T509;} |
1014 |
if(!((car((V104)))==(Ct))){ |
if(!((car((V106)))==(Ct))){ |
1015 |
goto T501;} |
goto T509;} |
1016 |
goto T502; |
goto T510; |
1017 |
T502:; |
T510:; |
1018 |
if((structure_ref((V106),VV[69],3))!=Cnil){ |
if((structure_ref((V108),VV[69],3))!=Cnil){ |
1019 |
goto T501;} |
goto T509;} |
1020 |
V109= structure_ref((V106),VV[69],4); |
V111= structure_ref((V108),VV[69],4); |
1021 |
if(!((/* INLINE-ARGS */V109)==(VV[72]))){ |
if(!((/* INLINE-ARGS */V111)==(VV[72]))){ |
1022 |
goto T500;} |
goto T508;} |
1023 |
goto T501; |
goto T509; |
1024 |
T501:; |
T509:; |
1025 |
{object V110; |
{object V112; |
1026 |
V111= structure_ref((V106),VV[69],0); |
V113= structure_ref((V108),VV[69],0); |
1027 |
vs_base=vs_top; |
vs_base=vs_top; |
1028 |
Lgensym(); |
Lgensym(); |
1029 |
vs_top=sup; |
vs_top=sup; |
1030 |
V112= vs_base[0]; |
V114= vs_base[0]; |
1031 |
V110= list(2,/* INLINE-ARGS */V111,V112); |
V112= list(2,/* INLINE-ARGS */V113,V114); |
1032 |
V102= make_cons((V110),(V102));} |
V104= make_cons((V112),(V104));} |
1033 |
goto T500; |
goto T508; |
1034 |
T500:; |
T508:; |
1035 |
V113= car((V104)); |
V115= car((V106)); |
1036 |
V114= structure_ref((V106),VV[69],5); |
V116= structure_ref((V108),VV[69],5); |
1037 |
if(((*(LnkLI294))(/* INLINE-ARGS */V113,/* INLINE-ARGS */V114))==Cnil){ |
if(((*(LnkLI294))(/* INLINE-ARGS */V115,/* INLINE-ARGS */V116))==Cnil){ |
1038 |
goto T499;} |
goto T507;} |
1039 |
{register object x= car((V104)),V115= VV[73]; |
{register object x= car((V106)),V117= VV[73]; |
|
while(!endp(V115)) |
|
|
if(eql(x,V115->c.c_car)){ |
|
|
goto T494; |
|
|
}else V115=V115->c.c_cdr;} |
|
|
V116= structure_ref((V106),VV[69],4); |
|
|
if((/* INLINE-ARGS */V116)==(VV[74])){ |
|
|
goto T494;} |
|
|
if((symbol_value(VV[75]))!=Cnil){ |
|
|
goto T494;} |
|
|
V118= structure_ref(cadr((V92)),VV[62],0); |
|
|
{register object x= (V106),V117= /* INLINE-ARGS */V118; |
|
1040 |
while(!endp(V117)) |
while(!endp(V117)) |
1041 |
if(eql(x,V117->c.c_car)){ |
if(eql(x,V117->c.c_car)){ |
1042 |
goto T524; |
goto T502; |
1043 |
}else V117=V117->c.c_cdr; |
}else V117=V117->c.c_cdr;} |
1044 |
goto T494;} |
V118= structure_ref((V108),VV[69],4); |
1045 |
goto T524; |
if((/* INLINE-ARGS */V118)==(VV[74])){ |
1046 |
T524:; |
goto T502;} |
1047 |
goto T499; |
if((symbol_value(VV[75]))!=Cnil){ |
1048 |
T499:; |
goto T502;} |
1049 |
if(((V102))!=Cnil){ |
V120= structure_ref(cadr((V94)),VV[62],0); |
1050 |
goto T525;} |
{register object x= (V108),V119= /* INLINE-ARGS */V120; |
1051 |
V119= structure_ref((V106),VV[69],0); |
while(!endp(V119)) |
1052 |
(void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119))); |
if(eql(x,V119->c.c_car)){ |
1053 |
goto T525; |
goto T532; |
1054 |
T525:; |
}else V119=V119->c.c_cdr; |
1055 |
V105= Ct;} |
goto T502;} |
1056 |
goto T494; |
goto T532; |
1057 |
T494:; |
T532:; |
1058 |
V103= cdr((V103)); |
goto T507; |
1059 |
V104= cdr((V104)); |
T507:; |
1060 |
goto T482;} |
if(((V104))!=Cnil){ |
1061 |
goto T478; |
goto T533;} |
1062 |
T478:; |
V121= structure_ref((V108),VV[69],0); |
1063 |
goto T464; |
(void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V97),/* INLINE-ARGS */V121))); |
1064 |
goto T477; |
goto T533; |
1065 |
T477:; |
T533:; |
1066 |
if(!(type_of((V93))==t_fixnum|| |
V107= Ct;} |
1067 |
type_of((V93))==t_bignum|| |
goto T502; |
1068 |
type_of((V93))==t_ratio|| |
T502:; |
1069 |
type_of((V93))==t_shortfloat|| |
V105= cdr((V105)); |
1070 |
type_of((V93))==t_longfloat|| |
V106= cdr((V106)); |
1071 |
type_of((V93))==t_complex)){ |
goto T490;} |
1072 |
goto T464;}} |
goto T486; |
1073 |
{object V120; |
T486:; |
1074 |
V121= get((V95),VV[67],Cnil); |
goto T472; |
1075 |
V122= get((V95),VV[77],Cnil); |
goto T485; |
1076 |
V123= get((V95),VV[67],Cnil); |
T485:; |
1077 |
V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI295))((V93),V123)); |
if(!(type_of((V95))==t_fixnum|| |
1078 |
setq(VV[78],make_cons((V120),symbol_value(VV[78]))); |
type_of((V95))==t_bignum|| |
1079 |
goto T462;} |
type_of((V95))==t_ratio|| |
1080 |
goto T464; |
type_of((V95))==t_shortfloat|| |
1081 |
T464:; |
type_of((V95))==t_longfloat|| |
1082 |
{object V124; |
type_of((V95))==t_complex)){ |
1083 |
V125= get((V95),VV[77],Cnil); |
goto T472;}} |
1084 |
V124= ((V125)==(Ct)?Ct:Cnil); |
{object V122; |
1085 |
if(((V124))==Cnil){ |
V123= get((V97),VV[67],Cnil); |
1086 |
goto T462;}} |
V124= get((V97),VV[77],Cnil); |
1087 |
goto T462; |
V125= get((V97),VV[67],Cnil); |
1088 |
T462:; |
V122= list(5,(V97),V123,V124,small_fixnum(3),(*(LnkLI295))((V95),V125)); |
1089 |
if((cadddr((V92)))==Cnil){ |
setq(VV[78],make_cons((V122),symbol_value(VV[78]))); |
1090 |
goto T542;} |
goto T470;} |
1091 |
V94= cadddr((V92)); |
goto T472; |
1092 |
goto T542; |
T472:; |
|
T542:; |
|
|
(void)((*(LnkLI296))()); |
|
1093 |
{object V126; |
{object V126; |
1094 |
V126= list(6,VV[51],(V95),(V93),(V92),(V94),(VV[59]->s.s_dbind)); |
V127= get((V97),VV[77],Cnil); |
1095 |
setq(VV[24],make_cons((V126),symbol_value(VV[24])));} |
V126= ((V127)==(Ct)?Ct:Cnil); |
1096 |
{object V127; |
if(((V126))==Cnil){ |
1097 |
V127= make_cons((V95),(V93)); |
goto T470;}} |
1098 |
setq(VV[79],make_cons((V127),symbol_value(VV[79]))); |
goto T470; |
1099 |
V128= symbol_value(VV[79]); |
T470:; |
1100 |
|
if((cadddr((V94)))==Cnil){ |
1101 |
|
goto T550;} |
1102 |
|
V96= cadddr((V94)); |
1103 |
|
goto T550; |
1104 |
|
T550:; |
1105 |
|
(void)((*(LnkLI296))()); |
1106 |
|
{object V128; |
1107 |
|
V128= list(6,VV[51],(V97),(V95),(V94),(V96),(VV[59]->s.s_dbind)); |
1108 |
|
setq(VV[24],make_cons((V128),symbol_value(VV[24])));} |
1109 |
|
{object V129; |
1110 |
|
V129= make_cons((V97),(V95)); |
1111 |
|
setq(VV[79],make_cons((V129),symbol_value(VV[79]))); |
1112 |
|
V130= symbol_value(VV[79]); |
1113 |
bds_unwind1; |
bds_unwind1; |
1114 |
bds_unwind1; |
bds_unwind1; |
1115 |
bds_unwind1; |
bds_unwind1; |
1116 |
bds_unwind1; |
bds_unwind1; |
1117 |
bds_unwind1;}} |
bds_unwind1;}} |
1118 |
{object V129 = Cnil; |
{object V131 = Cnil; |
1119 |
bds_unwind1; |
bds_unwind1; |
1120 |
VMR8(V129)}} |
VMR8(V131)}} |
1121 |
base[0]=base[0]; |
base[0]=base[0]; |
1122 |
return Cnil; |
return Cnil; |
1123 |
} |
} |
1124 |
/* local entry for function MAKE-INLINE-STRING */ |
/* local entry for function MAKE-INLINE-STRING */ |
1125 |
|
|
1126 |
static object LI9(V132,V133) |
static object LI9(V134,V135) |
1127 |
|
|
1128 |
object V132;object V133; |
object V134;object V135; |
1129 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1130 |
goto TTL; |
goto TTL; |
1131 |
TTL:; |
TTL:; |
1132 |
if(((V133))!=Cnil){ |
if(((V135))!=Cnil){ |
1133 |
goto T553;} |
goto T561;} |
1134 |
base[0]= Cnil; |
base[0]= Cnil; |
1135 |
base[1]= VV[80]; |
base[1]= VV[80]; |
1136 |
base[2]= (V132); |
base[2]= (V134); |
1137 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1138 |
Lformat(); |
Lformat(); |
1139 |
vs_top=sup; |
vs_top=sup; |
1140 |
{object V134 = vs_base[0]; |
{object V136 = vs_base[0]; |
1141 |
VMR9(V134)} |
VMR9(V136)} |
1142 |
goto T553; |
goto T561; |
1143 |
T553:; |
T561:; |
1144 |
{register object V135; |
{register object V137; |
1145 |
V135= (VFUN_NARGS=7,(*(LnkLI297))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct)); |
V137= (VFUN_NARGS=7,(*(LnkLI297))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct)); |
1146 |
base[0]= (V135); |
base[0]= (V137); |
1147 |
base[1]= VV[85]; |
base[1]= VV[85]; |
1148 |
base[2]= (V132); |
base[2]= (V134); |
1149 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1150 |
Lformat(); |
Lformat(); |
1151 |
vs_top=sup; |
vs_top=sup; |
1152 |
{register object V136; |
{register object V138; |
1153 |
register long V137; |
register long V139; |
1154 |
V137= 0; |
V139= 0; |
1155 |
V136= (V133); |
V138= (V135); |
1156 |
goto T566; |
goto T574; |
1157 |
T566:; |
T574:; |
1158 |
if(!(endp_prop(cdr((V136))))){ |
if(!(endp_prop(cdr((V138))))){ |
1159 |
goto T567;} |
goto T575;} |
1160 |
base[0]= (V135); |
base[0]= (V137); |
1161 |
base[1]= VV[86]; |
base[1]= VV[86]; |
1162 |
base[2]= make_fixnum(V137); |
base[2]= make_fixnum(V139); |
1163 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1164 |
Lformat(); |
Lformat(); |
1165 |
vs_top=sup; |
vs_top=sup; |
1166 |
goto T563; |
goto T571; |
1167 |
goto T567; |
goto T575; |
1168 |
T567:; |
T575:; |
1169 |
base[0]= (V135); |
base[0]= (V137); |
1170 |
base[1]= VV[87]; |
base[1]= VV[87]; |
1171 |
base[2]= make_fixnum(V137); |
base[2]= make_fixnum(V139); |
1172 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1173 |
Lformat(); |
Lformat(); |
1174 |
vs_top=sup; |
vs_top=sup; |
1175 |
V136= cdr((V136)); |
V138= cdr((V138)); |
1176 |
V137= (long)(V137)+1; |
V139= (long)(V139)+1; |
1177 |
goto T566;} |
goto T574;} |
1178 |
goto T563; |
goto T571; |
1179 |
T563:; |
T571:; |
1180 |
{object V138 = (V135); |
{object V140 = (V137); |
1181 |
VMR9(V138)}} |
VMR9(V140)}} |
1182 |
base[0]=base[0]; |
base[0]=base[0]; |
1183 |
return Cnil; |
return Cnil; |
1184 |
} |
} |
1188 |
{ |
{ |
1189 |
va_list ap; |
va_list ap; |
1190 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
1191 |
{object V139; |
{object V141; |
1192 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1193 |
va_start(ap,first); |
va_start(ap,first); |
1194 |
narg = narg - 0; |
narg = narg - 0; |
1195 |
if (narg <= 0) goto T582; |
if (narg <= 0) goto T590; |
1196 |
else { |
else { |
1197 |
V139= first;} |
V141= first;} |
1198 |
--narg; goto T583; |
--narg; goto T591; |
|
goto T582; |
|
|
T582:; |
|
|
V139= Cnil; |
|
|
goto T583; |
|
|
T583:; |
|
|
{object V140; |
|
|
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
|
|
V140= symbol_value(VV[88]); |
|
|
{object V141; |
|
|
if(((V139))==Cnil){ |
|
|
goto T590;} |
|
|
V141= make_cons((V139),(V140)); |
|
|
goto T588; |
|
1199 |
goto T590; |
goto T590; |
1200 |
T590:; |
T590:; |
1201 |
V141= (V140); |
V141= Cnil; |
1202 |
goto T588; |
goto T591; |
1203 |
T588:; |
T591:; |
1204 |
setq(VV[18],make_cons((V141),symbol_value(VV[18])));} |
{object V142; |
1205 |
{object V142 = (V140); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1206 |
VMR10(V142)}} |
V142= symbol_value(VV[88]); |
1207 |
|
{object V143; |
1208 |
|
if(((V141))==Cnil){ |
1209 |
|
goto T598;} |
1210 |
|
V143= make_cons((V141),(V142)); |
1211 |
|
goto T596; |
1212 |
|
goto T598; |
1213 |
|
T598:; |
1214 |
|
V143= (V142); |
1215 |
|
goto T596; |
1216 |
|
T596:; |
1217 |
|
setq(VV[18],make_cons((V143),symbol_value(VV[18])));} |
1218 |
|
{object V144 = (V142); |
1219 |
|
VMR10(V144)}} |
1220 |
va_end(ap); |
va_end(ap); |
1221 |
base[0]=base[0]; |
base[0]=base[0]; |
1222 |
return Cnil;} |
return Cnil;} |
1223 |
} |
} |
1224 |
/* local entry for function F-TYPE */ |
/* local entry for function F-TYPE */ |
1225 |
|
|
1226 |
static object LI11(V144) |
static object LI11(V146) |
1227 |
|
|
1228 |
register object V144; |
register object V146; |
1229 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
1230 |
goto TTL; |
goto TTL; |
1231 |
TTL:; |
TTL:; |
1232 |
base[0]= (V144); |
base[0]= (V146); |
1233 |
base[1]= VV[69]; |
base[1]= VV[69]; |
1234 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1235 |
(void) (*Lnk298)(); |
(void) (*Lnk298)(); |
1236 |
vs_top=sup; |
vs_top=sup; |
1237 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1238 |
goto T593;} |
goto T601;} |
1239 |
V144= structure_ref((V144),VV[69],5); |
V146= structure_ref((V146),VV[69],5); |
1240 |
goto T593; |
goto T601; |
1241 |
T593:; |
T601:; |
1242 |
if(((V144))==Cnil){ |
if(((V146))==Cnil){ |
1243 |
goto T600;} |
goto T608;} |
1244 |
base[0]= (V144); |
base[0]= (V146); |
1245 |
base[1]= VV[89]; |
base[1]= VV[89]; |
1246 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1247 |
(void) (*Lnk299)(); |
(void) (*Lnk299)(); |
1248 |
vs_top=sup; |
vs_top=sup; |
1249 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1250 |
goto T600;} |
goto T608;} |
1251 |
{long V145 = 1; |
{long V147 = 1; |
1252 |
VMR11((object)V145)} |
VMR11((object)V147)} |
1253 |
goto T600; |
goto T608; |
1254 |
T600:; |
T608:; |
1255 |
{long V146 = 0; |
{long V148 = 0; |
1256 |
VMR11((object)V146)} |
VMR11((object)V148)} |
1257 |
base[0]=base[0]; |
base[0]=base[0]; |
1258 |
} |
} |
1259 |
/* local entry for function PROCLAIMED-ARGD */ |
/* local entry for function PROCLAIMED-ARGD */ |
1260 |
|
|
1261 |
static object LI12(V149,V150) |
static object LI12(V151,V152) |
1262 |
|
|
1263 |
register object V149;object V150; |
register object V151;object V152; |
1264 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1265 |
goto TTL; |
goto TTL; |
1266 |
TTL:; |
TTL:; |
1267 |
{register long V151; |
{register long V153; |
1268 |
register long V152; |
register long V154; |
1269 |
register object V153; |
register object V155; |
1270 |
register object V154; |
register object V156; |
1271 |
V151= (long)length((V149)); |
V153= (long)length((V151)); |
1272 |
V152= 8; |
V154= 8; |
1273 |
V153= make_fixnum((long)(*(LnkLI300))((V150))); |
V155= make_fixnum((long)(*(LnkLI300))((V152))); |
1274 |
V154= Ct; |
V156= Ct; |
1275 |
goto T610; |
goto T618; |
1276 |
T610:; |
T618:; |
1277 |
if(eql(small_fixnum(0),(V153))){ |
if(eql(small_fixnum(0),(V155))){ |
1278 |
goto T612;} |
goto T620;} |
1279 |
V151= (long)(V151)+((long)((fix((V153))) << (V152))); |
V153= (long)(V153)+((long)((fix((V155))) << (V154))); |
1280 |
goto T612; |
goto T620; |
1281 |
T612:; |
T620:; |
1282 |
if(((V154))==Cnil){ |
if(((V156))==Cnil){ |
1283 |
goto T616;} |
goto T624;} |
1284 |
V152= 10; |
V154= 10; |
1285 |
V154= Cnil; |
V156= Cnil; |
1286 |
goto T616; |
goto T624; |
1287 |
T616:; |
T624:; |
1288 |
if(((V149))!=Cnil){ |
if(((V151))!=Cnil){ |
1289 |
goto T622;} |
goto T630;} |
1290 |
{long V155 = V151; |
{long V157 = V153; |
1291 |
VMR12((object)V155)} |
VMR12((object)V157)} |
1292 |
goto T622; |
goto T630; |
1293 |
T622:; |
T630:; |
1294 |
V152= (long)(V152)+(2); |
V154= (long)(V154)+(2); |
1295 |
{register object V157; |
{register object V159; |
1296 |
V157= car((V149)); |
V159= car((V151)); |
1297 |
V149= cdr((V149)); |
V151= cdr((V151)); |
1298 |
V156= (V157);} |
V158= (V159);} |
1299 |
V153= make_fixnum((long)(*(LnkLI300))(V156)); |
V155= make_fixnum((long)(*(LnkLI300))(V158)); |
1300 |
goto T610;} |
goto T618;} |
1301 |
} |
} |
1302 |
/* local entry for function WT-IF-PROCLAIMED */ |
/* local entry for function WT-IF-PROCLAIMED */ |
1303 |
|
|
1304 |
static object LI13(V161,V162,V163) |
static object LI13(V163,V164,V165) |
1305 |
|
|
1306 |
register object V161;object V162;object V163; |
register object V163;object V164;object V165; |
1307 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1308 |
goto TTL; |
goto TTL; |
1309 |
TTL:; |
TTL:; |
1310 |
if(((VFUN_NARGS=1,(*(LnkLI302))((V161))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI302))((V163))))==Cnil){ |
1311 |
goto T634;} |
goto T642;} |
1312 |
{register object x= (V161),V164= symbol_value(VV[78]); |
{register object x= (V163),V166= symbol_value(VV[78]); |
1313 |
while(!endp(V164)) |
while(!endp(V166)) |
1314 |
if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){ |
if(type_of(V166->c.c_car)==t_cons &&eql(x,V166->c.c_car->c.c_car)){ |
|
goto T638; |
|
|
}else V164=V164->c.c_cdr; |
|
|
goto T637;} |
|
|
goto T638; |
|
|
T638:; |
|
|
V165= list(2,VV[91],(V161)); |
|
|
V166= (*(LnkLI304))(VV[92],(V162)); |
|
|
V167= get((V161),VV[67],Cnil); |
|
|
V168= get((V161),VV[77],Cnil); |
|
|
V169 = make_fixnum((long)(*(LnkLI305))(V167,V168)); |
|
|
V170= list(4,VV[90],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,V169); |
|
|
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V170))); |
|
|
{object V171 = Ct; |
|
|
VMR13(V171)} |
|
|
goto T637; |
|
|
T637:; |
|
|
{register object V172; |
|
|
register object V173; |
|
|
object V174; |
|
|
V172= make_fixnum((long)length(car(caddr((V163))))); |
|
|
V175= get((V161),VV[67],Cnil); |
|
|
V173= make_fixnum((long)length(V175)); |
|
|
V177= get((V161),VV[67],Cnil); |
|
|
{register object x= VV[68],V176= V177; |
|
|
while(!endp(V176)) |
|
|
if(eql(x,V176->c.c_car)){ |
|
|
V174= V176; |
|
1315 |
goto T646; |
goto T646; |
1316 |
}else V176=V176->c.c_cdr; |
}else V166=V166->c.c_cdr; |
1317 |
V174= Cnil;} |
goto T645;} |
1318 |
goto T646; |
goto T646; |
1319 |
T646:; |
T646:; |
1320 |
if(((V174))==Cnil){ |
V167= list(2,VV[91],(V163)); |
1321 |
goto T649;} |
V168= (*(LnkLI304))(VV[92],(V164)); |
1322 |
base[0]= (V172); |
V169= get((V163),VV[67],Cnil); |
1323 |
|
V170= get((V163),VV[77],Cnil); |
1324 |
|
V171 = make_fixnum((long)(*(LnkLI305))(V169,V170)); |
1325 |
|
V172= list(4,VV[90],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,V171); |
1326 |
|
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V172))); |
1327 |
|
{object V173 = Ct; |
1328 |
|
VMR13(V173)} |
1329 |
|
goto T645; |
1330 |
|
T645:; |
1331 |
|
{register object V174; |
1332 |
|
register object V175; |
1333 |
|
object V176; |
1334 |
|
V174= make_fixnum((long)length(car(caddr((V165))))); |
1335 |
|
V177= get((V163),VV[67],Cnil); |
1336 |
|
V175= make_fixnum((long)length(V177)); |
1337 |
|
V179= get((V163),VV[67],Cnil); |
1338 |
|
{register object x= VV[68],V178= V179; |
1339 |
|
while(!endp(V178)) |
1340 |
|
if(eql(x,V178->c.c_car)){ |
1341 |
|
V176= V178; |
1342 |
|
goto T654; |
1343 |
|
}else V178=V178->c.c_cdr; |
1344 |
|
V176= Cnil;} |
1345 |
|
goto T654; |
1346 |
|
T654:; |
1347 |
|
if(((V176))==Cnil){ |
1348 |
|
goto T657;} |
1349 |
|
base[0]= (V174); |
1350 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1351 |
Lmonotonically_nonincreasing(); |
Lmonotonically_nonincreasing(); |
1352 |
vs_top=sup; |
vs_top=sup; |
1353 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1354 |
goto T651;} |
goto T659;} |
1355 |
goto T642; |
goto T650; |
1356 |
goto T651; |
goto T659; |
1357 |
T651:;{object V178; |
T659:;{object V180; |
1358 |
V179 = make_fixnum((long)length((V174))); |
V181 = make_fixnum((long)length((V176))); |
1359 |
V178= number_minus((V173),V179); |
V180= number_minus((V175),V181); |
1360 |
if(V178==Cnil)goto T654; |
if(V180==Cnil)goto T662; |
1361 |
goto T642; |
goto T650; |
1362 |
goto T654; |
goto T662; |
1363 |
T654:;} |
T662:;} |
1364 |
V180 = make_fixnum((long)length((V174))); |
V182 = make_fixnum((long)length((V176))); |
1365 |
V181= number_minus((V173),V180); |
V183= number_minus((V175),V182); |
1366 |
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172)))); |
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V163),/* INLINE-ARGS */V183,(V174)))); |
1367 |
goto T642; |
goto T650; |
|
goto T649; |
|
|
T649:; |
|
|
if(eql((V172),(V173))){ |
|
|
goto T657;} |
|
|
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172)))); |
|
|
goto T642; |
|
1368 |
goto T657; |
goto T657; |
1369 |
T657:; |
T657:; |
1370 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));} |
if(eql((V174),(V175))){ |
1371 |
|
goto T665;} |
1372 |
|
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V163),(V175),(V174)))); |
1373 |
|
goto T650; |
1374 |
|
goto T665; |
1375 |
|
T665:; |
1376 |
|
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V163))));} |
1377 |
|
goto T650; |
1378 |
|
T650:; |
1379 |
|
{object V184 = Cnil; |
1380 |
|
VMR13(V184)} |
1381 |
goto T642; |
goto T642; |
1382 |
T642:; |
T642:; |
1383 |
{object V182 = Cnil; |
{object V185 = Cnil; |
1384 |
VMR13(V182)} |
VMR13(V185)} |
|
goto T634; |
|
|
T634:; |
|
|
{object V183 = Cnil; |
|
|
VMR13(V183)} |
|
1385 |
base[0]=base[0]; |
base[0]=base[0]; |
1386 |
return Cnil; |
return Cnil; |
1387 |
} |
} |
1388 |
/* local entry for function VOLATILE */ |
/* local entry for function VOLATILE */ |
1389 |
|
|
1390 |
static object LI14(V185) |
static object LI14(V187) |
1391 |
|
|
1392 |
object V185; |
object V187; |
1393 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1394 |
goto TTL; |
goto TTL; |
1395 |
TTL:; |
TTL:; |
1396 |
if((structure_ref((V185),VV[62],4))==Cnil){ |
if((structure_ref((V187),VV[62],4))==Cnil){ |
1397 |
goto T660;} |
goto T668;} |
1398 |
{object V186 = VV[96]; |
{object V188 = VV[96]; |
1399 |
VMR14(V186)} |
VMR14(V188)} |
1400 |
goto T660; |
goto T668; |
1401 |
T660:; |
T668:; |
1402 |
{object V187 = VV[97]; |
{object V189 = VV[97]; |
1403 |
VMR14(V187)} |
VMR14(V189)} |
1404 |
return Cnil; |
return Cnil; |
1405 |
} |
} |
1406 |
/* local entry for function REGISTER */ |
/* local entry for function REGISTER */ |
1407 |
|
|
1408 |
static object LI15(V189) |
static object LI15(V191) |
1409 |
|
|
1410 |
object V189; |
object V191; |
1411 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1412 |
goto TTL; |
goto TTL; |
1413 |
TTL:; |
TTL:; |
1414 |
if(!(equal(symbol_value(VV[20]),VV[98]))){ |
if(!(equal(symbol_value(VV[20]),VV[98]))){ |
1415 |
goto T663;} |
goto T671;} |
1416 |
{long V190= fix(structure_ref((V189),VV[69],6)); |
{long V192= fix(structure_ref((V191),VV[69],6)); |
1417 |
if(!((/* INLINE-ARGS */V190)>=(fix(symbol_value(VV[99]))))){ |
if(!((/* INLINE-ARGS */V192)>=(fix(symbol_value(VV[99]))))){ |
1418 |
goto T663;}} |
goto T671;}} |
1419 |
{object V191 = VV[100]; |
{object V193 = VV[100]; |
1420 |
VMR15(V191)} |
VMR15(V193)} |
1421 |
goto T663; |
goto T671; |
1422 |
T663:; |
T671:; |
1423 |
{object V192 = VV[101]; |
{object V194 = VV[101]; |
1424 |
VMR15(V192)} |
VMR15(V194)} |
1425 |
return Cnil; |
return Cnil; |
1426 |
} |
} |
1427 |
/* local entry for function VARARG-P */ |
/* local entry for function VARARG-P */ |
1428 |
|
|
1429 |
static object LI16(V194) |
static object LI16(V196) |
1430 |
|
|
1431 |
object V194; |
object V196; |
1432 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1433 |
goto TTL; |
goto TTL; |
1434 |
TTL:; |
TTL:; |
1435 |
V195= get((V194),VV[77],Cnil); |
V197= get((V196),VV[77],Cnil); |
1436 |
if(equal(V195,Ct)){ |
if(equal(V197,Ct)){ |
1437 |
goto T667;} |
goto T675;} |
1438 |
{object V196 = Cnil; |
{object V198 = Cnil; |
|
VMR16(V196)} |
|
|
goto T667; |
|
|
T667:; |
|
|
{register object V197; |
|
|
V197= get((V194),VV[67],Cnil); |
|
|
goto T672; |
|
|
T672:; |
|
|
if(((V197))!=Cnil){ |
|
|
goto T673;} |
|
|
{object V198 = Ct; |
|
1439 |
VMR16(V198)} |
VMR16(V198)} |
1440 |
goto T673; |
goto T675; |
1441 |
T673:; |
T675:; |
1442 |
if(!(type_of((V197))==t_cons)){ |
{register object V199; |
1443 |
goto T678;} |
V199= get((V196),VV[67],Cnil); |
|
goto T677; |
|
|
goto T678; |
|
|
T678:; |
|
|
{object V199 = Cnil; |
|
|
VMR16(V199)} |
|
|
goto T677; |
|
|
T677:; |
|
|
if(!((car((V197)))==(Ct))){ |
|
|
goto T681;} |
|
1444 |
goto T680; |
goto T680; |
1445 |
|
T680:; |
1446 |
|
if(((V199))!=Cnil){ |
1447 |
|
goto T681;} |
1448 |
|
{object V200 = Ct; |
1449 |
|
VMR16(V200)} |
1450 |
goto T681; |
goto T681; |
1451 |
T681:; |
T681:; |
1452 |
if(!((car((V197)))==(VV[68]))){ |
if(!(type_of((V199))==t_cons)){ |
1453 |
goto T683;} |
goto T686;} |
1454 |
goto T680; |
goto T685; |
1455 |
goto T683; |
goto T686; |
1456 |
T683:; |
T686:; |
1457 |
{object V200 = Cnil; |
{object V201 = Cnil; |
1458 |
VMR16(V200)} |
VMR16(V201)} |
1459 |
goto T680; |
goto T685; |
1460 |
T680:; |
T685:; |
1461 |
V197= cdr((V197)); |
if(!((car((V199)))==(Ct))){ |
1462 |
goto T672;} |
goto T689;} |
1463 |
|
goto T688; |
1464 |
|
goto T689; |
1465 |
|
T689:; |
1466 |
|
if(!((car((V199)))==(VV[68]))){ |
1467 |
|
goto T691;} |
1468 |
|
goto T688; |
1469 |
|
goto T691; |
1470 |
|
T691:; |
1471 |
|
{object V202 = Cnil; |
1472 |
|
VMR16(V202)} |
1473 |
|
goto T688; |
1474 |
|
T688:; |
1475 |
|
V199= cdr((V199)); |
1476 |
|
goto T680;} |
1477 |
return Cnil; |
return Cnil; |
1478 |
} |
} |
1479 |
/* local entry for function MAXARGS */ |
/* local entry for function MAXARGS */ |
1480 |
|
|
1481 |
static object LI17(V202) |
static object LI17(V204) |
1482 |
|
|
1483 |
register object V202; |
register object V204; |
1484 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1485 |
goto TTL; |
goto TTL; |
1486 |
TTL:; |
TTL:; |
1487 |
if((cadddr((V202)))!=Cnil){ |
if((cadddr((V204)))!=Cnil){ |
1488 |
goto T688;} |
goto T696;} |
1489 |
if((caddr((V202)))==Cnil){ |
if((caddr((V204)))==Cnil){ |
1490 |
goto T689;} |
goto T697;} |
1491 |
goto T688; |
goto T696; |
1492 |
T688:; |
T696:; |
1493 |
{object V203 = small_fixnum(64); |
{object V205 = small_fixnum(64); |
1494 |
VMR17(V203)} |
VMR17(V205)} |
1495 |
goto T689; |
goto T697; |
1496 |
T689:; |
T697:; |
1497 |
base[0]= make_fixnum((long)length(car((V202)))); |
base[0]= make_fixnum((long)length(car((V204)))); |
1498 |
base[1]= make_fixnum((long)length(cadr((V202)))); |
base[1]= make_fixnum((long)length(cadr((V204)))); |
1499 |
V204 = make_fixnum((long)length(car(cddddr((V202))))); |
V206 = make_fixnum((long)length(car(cddddr((V204))))); |
1500 |
base[2]= number_times(small_fixnum(2),V204); |
base[2]= number_times(small_fixnum(2),V206); |
1501 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1502 |
Lplus(); |
Lplus(); |
1503 |
vs_top=sup; |
vs_top=sup; |
1504 |
{object V205 = vs_base[0]; |
{object V207 = vs_base[0]; |
1505 |
VMR17(V205)} |
VMR17(V207)} |
1506 |
base[0]=base[0]; |
base[0]=base[0]; |
1507 |
return Cnil; |
return Cnil; |
1508 |
} |
} |
1509 |
/* local entry for function ADD-ADDRESS */ |
/* local entry for function ADD-ADDRESS */ |
1510 |
|
|
1511 |
static object LI18(V208,V209) |
static object LI18(V210,V211) |
1512 |
|
|
1513 |
object V208;object V209; |
object V210;object V211; |
1514 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1515 |
goto TTL; |
goto TTL; |
1516 |
TTL:; |
TTL:; |
1517 |
{object V210; |
{object V212; |
1518 |
V210= list(2,(V208),(V209)); |
V212= list(2,(V210),(V211)); |
1519 |
setq(VV[21],make_cons((V210),symbol_value(VV[21])));} |
setq(VV[21],make_cons((V212),symbol_value(VV[21])));} |
1520 |
{object V211; |
{object V213; |
1521 |
V211= symbol_value(VV[22]); |
V213= symbol_value(VV[22]); |
1522 |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
1523 |
{object V212 = (V211); |
{object V214 = (V213); |
1524 |
VMR18(V212)}} |
VMR18(V214)}} |
1525 |
base[0]=base[0]; |
base[0]=base[0]; |
1526 |
return Cnil; |
return Cnil; |
1527 |
} |
} |
1528 |
/* local entry for function T2DEFUN */ |
/* local entry for function T2DEFUN */ |
1529 |
|
|
1530 |
static object LI19(V218,V219,V220,V221,V222) |
static object LI19(V220,V221,V222,V223,V224) |
1531 |
|
|
1532 |
register object V218;register object V219;register object V220;object V221;object V222; |
register object V220;register object V221;register object V222;object V223;object V224; |
1533 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1534 |
goto TTL; |
goto TTL; |
1535 |
TTL:; |
TTL:; |
1536 |
if((get((V218),VV[102],Cnil))==Cnil){ |
if((get((V220),VV[102],Cnil))==Cnil){ |
1537 |
goto T701;} |
goto T709;} |
1538 |
{object V223 = Cnil; |
{object V225 = Cnil; |
1539 |
VMR19(V223)} |
VMR19(V225)} |
1540 |
goto T701; |
goto T709; |
1541 |
T701:; |
T709:; |
1542 |
if(((V221))==Cnil){ |
if(((V223))==Cnil){ |
1543 |
goto T704;} |
goto T712;} |
1544 |
V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]); |
V226= list(4,VV[103],list(2,VV[91],(V220)),(V223),VV[104]); |
1545 |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V224))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V226))); |
1546 |
goto T704; |
goto T712; |
1547 |
T704:; |
T712:; |
1548 |
{object V225; |
{object V227; |
1549 |
V225= (*(LnkLI306))((V218),(V219),(V220)); |
V227= (*(LnkLI306))((V220),(V221),(V222)); |
1550 |
if(((V225))==Cnil){ |
if(((V227))==Cnil){ |
1551 |
goto T710;} |
goto T718;} |
1552 |
goto T707; |
goto T715; |
1553 |
goto T710; |
goto T718; |
1554 |
T710:; |
T718:; |
1555 |
if(((*(LnkLI307))((V218)))==Cnil){ |
if(((*(LnkLI307))((V220)))==Cnil){ |
1556 |
goto T713;} |
goto T721;} |
1557 |
{object V226; |
{object V228; |
1558 |
V226= cadddr(caddr((V220))); |
V228= cadddr(caddr((V222))); |
1559 |
if(((V226))==Cnil){ |
if(((V228))==Cnil){ |
1560 |
goto T717;} |
goto T725;} |
1561 |
V227= list(2,VV[91],(V218)); |
V229= list(2,VV[91],(V220)); |
1562 |
V228= (*(LnkLI304))(VV[106],(V219)); |
V230= (*(LnkLI304))(VV[106],(V221)); |
1563 |
V229 = make_fixnum((long)length(car(caddr((V220))))); |
V231 = make_fixnum((long)length(car(caddr((V222))))); |
1564 |
V230= (*(LnkLI308))(caddr((V220))); |
V232= (*(LnkLI308))(caddr((V222))); |
1565 |
V231= (*(LnkLI301))(/* INLINE-ARGS */V230,small_fixnum(8)); |
V233= (*(LnkLI301))(/* INLINE-ARGS */V232,small_fixnum(8)); |
1566 |
V232= number_plus(V229,/* INLINE-ARGS */V231); |
V234= number_plus(V231,/* INLINE-ARGS */V233); |
1567 |
base[0]= Cnil; |
base[0]= Cnil; |
1568 |
base[1]= VV[107]; |
base[1]= VV[107]; |
1569 |
base[2]= (V219); |
base[2]= (V221); |
1570 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1571 |
Lformat(); |
Lformat(); |
1572 |
vs_top=sup; |
vs_top=sup; |
1573 |
V233= vs_base[0]; |
V235= vs_base[0]; |
1574 |
V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI304))(V233,VV[108])); |
V236= list(5,VV[105],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,/* INLINE-ARGS */V234,(*(LnkLI304))(V235,VV[108])); |
1575 |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V234))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V236))); |
1576 |
goto T707; |
goto T715; |
1577 |
goto T717; |
goto T725; |
1578 |
T717:; |
T725:; |
1579 |
V235= list(2,VV[91],(V218)); |
V237= list(2,VV[91],(V220)); |
1580 |
V236= (*(LnkLI304))(VV[110],(V219)); |
V238= (*(LnkLI304))(VV[110],(V221)); |
1581 |
V237 = make_fixnum((long)length(car(caddr((V220))))); |
V239 = make_fixnum((long)length(car(caddr((V222))))); |
1582 |
V238= (*(LnkLI308))(caddr((V220))); |
V240= (*(LnkLI308))(caddr((V222))); |
1583 |
V239= (*(LnkLI301))(/* INLINE-ARGS */V238,small_fixnum(8)); |
V241= (*(LnkLI301))(/* INLINE-ARGS */V240,small_fixnum(8)); |
1584 |
V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239)); |
V242= list(4,VV[109],/* INLINE-ARGS */V237,/* INLINE-ARGS */V238,number_plus(V239,/* INLINE-ARGS */V241)); |
1585 |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V240))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V242))); |
1586 |
goto T707;} |
goto T715;} |
1587 |
goto T713; |
goto T721; |
1588 |
T713:; |
T721:; |
1589 |
if(!(type_of((V219))==t_fixnum|| |
if(!(type_of((V221))==t_fixnum|| |
1590 |
type_of((V219))==t_bignum|| |
type_of((V221))==t_bignum|| |
1591 |
type_of((V219))==t_ratio|| |
type_of((V221))==t_ratio|| |
1592 |
type_of((V219))==t_shortfloat|| |
type_of((V221))==t_shortfloat|| |
1593 |
type_of((V219))==t_longfloat|| |
type_of((V221))==t_longfloat|| |
1594 |
type_of((V219))==t_complex)){ |
type_of((V221))==t_complex)){ |
1595 |
goto T724;} |
goto T732;} |
1596 |
princ_str("\nstatic void L",VV[31]); |
princ_str("\nstatic void L",VV[31]); |
1597 |
(void)((*(LnkLI277))((V219))); |
(void)((*(LnkLI277))((V221))); |
1598 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
1599 |
V241= list(2,VV[91],(V218)); |
V243= list(2,VV[91],(V220)); |
1600 |
V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI304))(VV[112],(V219))); |
V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI304))(VV[112],(V221))); |
1601 |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V242))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V244))); |
1602 |
goto T707; |
goto T715; |
1603 |
goto T724; |
goto T732; |
1604 |
T724:; |
T732:; |
1605 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
1606 |
(void)((*(LnkLI277))((V219))); |
(void)((*(LnkLI277))((V221))); |
1607 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
1608 |
V243= list(2,VV[91],(V218)); |
V245= list(2,VV[91],(V220)); |
1609 |
V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI304))(VV[113],(V219))); |
V246= list(3,VV[111],/* INLINE-ARGS */V245,(*(LnkLI304))(VV[113],(V221))); |
1610 |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V244)));} |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V246)));} |
1611 |
goto T707; |
goto T715; |
1612 |
T707:; |
T715:; |
1613 |
if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){ |
if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){ |
1614 |
goto T735;} |
goto T743;} |
1615 |
{object V245 = sputprop((V218),VV[115],Ct); |
{object V247 = sputprop((V220),VV[115],Ct); |
1616 |
VMR19(V245)} |
VMR19(V247)} |
1617 |
goto T735; |
goto T743; |
1618 |
T735:; |
T743:; |
1619 |
{object V246 = Cnil; |
{object V248 = Cnil; |
1620 |
VMR19(V246)} |
VMR19(V248)} |
1621 |
base[0]=base[0]; |
base[0]=base[0]; |
1622 |
return Cnil; |
return Cnil; |
1623 |
} |
} |
1624 |
/* local entry for function ADD-DEBUG */ |
/* local entry for function ADD-DEBUG */ |
1625 |
|
|
1626 |
static object LI20(V249,V250) |
static object LI20(V251,V252) |
1627 |
|
|
1628 |
object V249;object V250; |
object V251;object V252; |
1629 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1630 |
goto TTL; |
goto TTL; |
1631 |
TTL:; |
TTL:; |
1632 |
{object V251 = putprop((V249),(V250),VV[116]); |
{object V253 = putprop((V251),(V252),VV[116]); |
1633 |
VMR20(V251)} |
VMR20(V253)} |
1634 |
return Cnil; |
return Cnil; |
1635 |
} |
} |
1636 |
/* local entry for function T3DEFUN */ |
/* local entry for function T3DEFUN */ |
1637 |
|
|
1638 |
static object LI21(V257,V258,V259,V260,V261) |
static object LI21(V259,V260,V261,V262,V263) |
1639 |
|
|
1640 |
register object V257;register object V258;register object V259;object V260;object V261; |
register object V259;register object V260;register object V261;object V262;object V263; |
1641 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1642 |
bds_check; |
bds_check; |
1643 |
goto TTL; |
goto TTL; |
1644 |
TTL:; |
TTL:; |
1645 |
{register object V262; |
{register object V264; |
1646 |
V262= Cnil; |
V264= Cnil; |
1647 |
bds_bind(VV[0],list(2,VV[51],(V257))); |
bds_bind(VV[0],list(2,VV[51],(V259))); |
1648 |
bds_bind(VV[20],(*(LnkLI309))(cadr((V259)))); |
bds_bind(VV[20],(*(LnkLI309))(cadr((V261)))); |
1649 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
1650 |
{register object V263; |
{register object V265; |
1651 |
register object V264; |
register object V266; |
1652 |
V263= symbol_value(VV[78]); |
V265= symbol_value(VV[78]); |
1653 |
V264= car((V263)); |
V266= car((V265)); |
1654 |
goto T747; |
goto T755; |
1655 |
T747:; |
T755:; |
1656 |
if(!(endp_prop((V263)))){ |
if(!(endp_prop((V265)))){ |
1657 |
goto T748;} |
goto T756;} |
1658 |
goto T742; |
goto T750; |
1659 |
goto T748; |
goto T756; |
1660 |
T748:;{object V265; |
T756:;{object V267; |
1661 |
base[4]= cadddr((V264)); |
base[4]= cadddr((V266)); |
1662 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1663 |
(void) (*Lnk310)(); |
(void) (*Lnk310)(); |
1664 |
vs_top=sup; |
vs_top=sup; |
1665 |
V265= vs_base[0]; |
V267= vs_base[0]; |
1666 |
if(V265==Cnil)goto T753; |
if(V267==Cnil)goto T761; |
1667 |
goto T752; |
goto T760; |
1668 |
goto T753; |
goto T761; |
1669 |
T753:;} |
T761:;} |
1670 |
base[4]= VV[118]; |
base[4]= VV[118]; |
1671 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1672 |
Lerror(); |
Lerror(); |
1673 |
vs_top=sup; |
vs_top=sup; |
|
goto T752; |
|
|
T752:; |
|
|
if((car((V264)))==((V257))){ |
|
|
goto T758;} |
|
|
goto T757; |
|
|
goto T758; |
|
|
T758:; |
|
|
if((cadr(cddddr((V264))))==Cnil){ |
|
|
goto T760;} |
|
|
goto T757; |
|
1674 |
goto T760; |
goto T760; |
1675 |
T760:; |
T760:; |
1676 |
V262= (V264); |
if((car((V266)))==((V259))){ |
1677 |
if(((V262))==Cnil){ |
goto T766;} |
1678 |
goto T742;} |
goto T765; |
1679 |
goto T743; |
goto T766; |
1680 |
goto T757; |
T766:; |
1681 |
T757:; |
if((cadr(cddddr((V266))))==Cnil){ |
|
V263= cdr((V263)); |
|
|
V264= car((V263)); |
|
|
goto T747;} |
|
|
goto T743; |
|
|
T743:; |
|
|
if(((VFUN_NARGS=1,(*(LnkLI302))((V257))))!=Cnil){ |
|
1682 |
goto T768;} |
goto T768;} |
1683 |
{object V266; |
goto T765; |
|
V266= list(4,(V257),(V258),cadr((V262)),caddr((V262))); |
|
|
setq(VV[29],make_cons((V266),symbol_value(VV[29])));} |
|
1684 |
goto T768; |
goto T768; |
1685 |
T768:; |
T768:; |
1686 |
V267= structure_ref(cadr((V259)),VV[62],1); |
V264= (V266); |
1687 |
(void)((*(LnkLI311))(/* INLINE-ARGS */V267,small_fixnum(0))); |
if(((V264))==Cnil){ |
1688 |
base[3]= VV[119]; |
goto T750;} |
1689 |
{object V268= caddr((V262)); |
goto T751; |
1690 |
if((V268!= VV[89]))goto T776; |
goto T765; |
1691 |
base[4]= VV[120]; |
T765:; |
1692 |
goto T775; |
V265= cdr((V265)); |
1693 |
|
V266= car((V265)); |
1694 |
|
goto T755;} |
1695 |
|
goto T751; |
1696 |
|
T751:; |
1697 |
|
if(((VFUN_NARGS=1,(*(LnkLI302))((V259))))!=Cnil){ |
1698 |
|
goto T776;} |
1699 |
|
{object V268; |
1700 |
|
V268= list(4,(V259),(V260),cadr((V264)),caddr((V264))); |
1701 |
|
setq(VV[29],make_cons((V268),symbol_value(VV[29])));} |
1702 |
goto T776; |
goto T776; |
1703 |
T776:; |
T776:; |
1704 |
if((V268!= VV[142]))goto T777; |
V269= structure_ref(cadr((V261)),VV[62],1); |
1705 |
|
(void)((*(LnkLI311))(/* INLINE-ARGS */V269,small_fixnum(0))); |
1706 |
|
base[3]= VV[119]; |
1707 |
|
{object V270= caddr((V264)); |
1708 |
|
if((V270!= VV[89]))goto T784; |
1709 |
|
base[4]= VV[120]; |
1710 |
|
goto T783; |
1711 |
|
goto T784; |
1712 |
|
T784:; |
1713 |
|
if((V270!= VV[142]))goto T785; |
1714 |
base[4]= VV[121]; |
base[4]= VV[121]; |
1715 |
goto T775; |
goto T783; |
1716 |
goto T777; |
goto T785; |
1717 |
T777:; |
T785:; |
1718 |
if((V268!= VV[143]))goto T778; |
if((V270!= VV[143]))goto T786; |
1719 |
base[4]= VV[122]; |
base[4]= VV[122]; |
1720 |
goto T775; |
goto T783; |
1721 |
goto T778; |
goto T786; |
1722 |
T778:; |
T786:; |
1723 |
if((V268!= VV[144]))goto T779; |
if((V270!= VV[144]))goto T787; |
1724 |
base[4]= VV[123]; |
base[4]= VV[123]; |
1725 |
goto T775; |
goto T783; |
1726 |
goto T779; |
goto T787; |
1727 |
T779:; |
T787:; |
1728 |
base[4]= VV[124];} |
base[4]= VV[124];} |
1729 |
goto T775; |
goto T783; |
1730 |
T775:; |
T783:; |
1731 |
base[5]= (V257); |
base[5]= (V259); |
1732 |
base[6]= (V258); |
base[6]= (V260); |
1733 |
base[7]= (V259); |
base[7]= (V261); |
1734 |
base[8]= (V261); |
base[8]= (V263); |
1735 |
base[9]= (V262); |
base[9]= (V264); |
1736 |
vs_top=(vs_base=base+3)+7; |
vs_top=(vs_base=base+3)+7; |
1737 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
1738 |
vs_top=sup; |
vs_top=sup; |
1739 |
goto T740; |
goto T748; |
1740 |
goto T742; |
goto T750; |
1741 |
T742:; |
T750:; |
1742 |
if(((*(LnkLI307))((V257)))==Cnil){ |
if(((*(LnkLI307))((V259)))==Cnil){ |
1743 |
goto T786;} |
goto T794;} |
1744 |
V269= structure_ref(cadr((V259)),VV[62],1); |
V271= structure_ref(cadr((V261)),VV[62],1); |
1745 |
(void)((*(LnkLI311))(/* INLINE-ARGS */V269,small_fixnum(0))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V271,small_fixnum(0))); |
1746 |
base[3]= VV[125]; |
base[3]= VV[125]; |
1747 |
base[4]= VV[124]; |
base[4]= VV[124]; |
1748 |
base[5]= (V257); |
base[5]= (V259); |
1749 |
base[6]= (V258); |
base[6]= (V260); |
1750 |
base[7]= (V259); |
base[7]= (V261); |
1751 |
base[8]= (V261); |
base[8]= (V263); |
1752 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1753 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
1754 |
vs_top=sup; |
vs_top=sup; |
1755 |
goto T740; |
goto T748; |
1756 |
goto T786; |
goto T794; |
1757 |
T786:; |
T794:; |
1758 |
V270= structure_ref(cadr((V259)),VV[62],1); |
V272= structure_ref(cadr((V261)),VV[62],1); |
1759 |
(void)((*(LnkLI311))(/* INLINE-ARGS */V270,small_fixnum(2))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V272,small_fixnum(2))); |
1760 |
base[3]= VV[126]; |
base[3]= VV[126]; |
1761 |
base[4]= VV[127]; |
base[4]= VV[127]; |
1762 |
base[5]= (V257); |
base[5]= (V259); |
1763 |
base[6]= (V258); |
base[6]= (V260); |
1764 |
base[7]= (V259); |
base[7]= (V261); |
1765 |
base[8]= (V261); |
base[8]= (V263); |
1766 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1767 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
1768 |
vs_top=sup; |
vs_top=sup; |
1769 |
goto T740; |
goto T748; |
1770 |
T740:; |
T748:; |
1771 |
(void)((*(LnkLI313))((V258))); |
(void)((*(LnkLI313))((V260))); |
1772 |
{object V271 = (*(LnkLI314))((V257),(V259)); |
{object V273 = (*(LnkLI314))((V259),(V261)); |
1773 |
bds_unwind1; |
bds_unwind1; |
1774 |
bds_unwind1; |
bds_unwind1; |
1775 |
bds_unwind1; |
bds_unwind1; |
1776 |
VMR21(V271)}} |
VMR21(V273)}} |
1777 |
base[0]=base[0]; |
base[0]=base[0]; |
1778 |
return Cnil; |
return Cnil; |
1779 |
} |
} |
1784 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1785 |
vs_reserve(VM22); |
vs_reserve(VM22); |
1786 |
bds_check; |
bds_check; |
1787 |
{object V272; |
{object V274; |
1788 |
object V273; |
object V275; |
1789 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1790 |
V272=(base[0]); |
V274=(base[0]); |
1791 |
bds_bind(VV[128],base[1]); |
bds_bind(VV[128],base[1]); |
1792 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1793 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1794 |
{object *p=vs_top; |
{object *p=vs_top; |
1795 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1796 |
V273=(base[2]); |
V275=(base[2]); |
1797 |
vs_top=sup; |
vs_top=sup; |
1798 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
1799 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
1809 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
1810 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
1811 |
bds_bind(VV[141],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
1812 |
base[16]= (V272); |
base[16]= (V274); |
1813 |
{object V274; |
{object V276; |
1814 |
V274= (V273); |
V276= (V275); |
1815 |
vs_top=base+17; |
vs_top=base+17; |
1816 |
while(!endp(V274)) |
while(!endp(V276)) |
1817 |
{vs_push(car(V274));V274=cdr(V274);} |
{vs_push(car(V276));V276=cdr(V276);} |
1818 |
vs_base=base+17;} |
vs_base=base+17;} |
1819 |
super_funcall_no_event(base[16]); |
super_funcall_no_event(base[16]); |
1820 |
bds_unwind1; |
bds_unwind1; |
1836 |
} |
} |
1837 |
/* local entry for function T3DEFUN-LOCAL-ENTRY */ |
/* local entry for function T3DEFUN-LOCAL-ENTRY */ |
1838 |
|
|
1839 |
static object LI23(V280,V281,V282,V283,V284) |
static object LI23(V282,V283,V284,V285,V286) |
1840 |
|
|
1841 |
object V280;object V281;object V282;object V283;object V284; |
object V282;object V283;object V284;object V285;object V286; |
1842 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1843 |
bds_check; |
bds_check; |
1844 |
goto TTL; |
goto TTL; |
1845 |
TTL:; |
TTL:; |
1846 |
{object V285; |
{object V287; |
|
object V286; |
|
|
V285= Cnil; |
|
|
V286= caaddr((V282)); |
|
|
{register object V287; |
|
1847 |
object V288; |
object V288; |
1848 |
V288= cadr((V284)); |
V287= Cnil; |
1849 |
V287= (V286); |
V288= caaddr((V284)); |
1850 |
goto T813; |
{register object V289; |
1851 |
T813:; |
object V290; |
1852 |
if(!(endp_prop((V287)))){ |
V290= cadr((V286)); |
1853 |
goto T814;} |
V289= (V288); |
1854 |
goto T810; |
goto T821; |
1855 |
goto T814; |
T821:; |
1856 |
T814:; |
if(!(endp_prop((V289)))){ |
1857 |
V289= structure_ref(car((V287)),VV[69],1); |
goto T822;} |
1858 |
if(!((/* INLINE-ARGS */V289)==(VV[71]))){ |
goto T818; |
1859 |
goto T820;} |
goto T822; |
1860 |
{object V290; |
T822:; |
1861 |
V291= car((V287)); |
V291= structure_ref(car((V289)),VV[69],1); |
1862 |
V292= structure_ref(car((V287)),VV[69],4); |
if(!((/* INLINE-ARGS */V291)==(VV[71]))){ |
1863 |
V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292); |
goto T828;} |
1864 |
V285= make_cons((V290),(V285)); |
{object V292; |
1865 |
goto T818;} |
V293= car((V289)); |
1866 |
goto T820; |
V294= structure_ref(car((V289)),VV[69],4); |
1867 |
T820:; |
V292= make_cons(/* INLINE-ARGS */V293,/* INLINE-ARGS */V294); |
1868 |
V293= car((V287)); |
V287= make_cons((V292),(V287)); |
1869 |
{object V295= car((V288)); |
goto T826;} |
|
if((V295!= VV[89]))goto T825; |
|
|
V294= VV[89]; |
|
|
goto T824; |
|
|
goto T825; |
|
|
T825:; |
|
|
if((V295!= VV[142]))goto T826; |
|
|
V294= VV[142]; |
|
|
goto T824; |
|
|
goto T826; |
|
|
T826:; |
|
|
if((V295!= VV[143]))goto T827; |
|
|
V294= VV[143]; |
|
|
goto T824; |
|
|
goto T827; |
|
|
T827:; |
|
|
if((V295!= VV[144]))goto T828; |
|
|
V294= VV[144]; |
|
|
goto T824; |
|
1870 |
goto T828; |
goto T828; |
1871 |
T828:; |
T828:; |
1872 |
V294= VV[74];} |
V295= car((V289)); |
1873 |
goto T824; |
{object V297= car((V290)); |
1874 |
T824:; |
if((V297!= VV[89]))goto T833; |
1875 |
(void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294)); |
V296= VV[89]; |
1876 |
|
goto T832; |
1877 |
|
goto T833; |
1878 |
|
T833:; |
1879 |
|
if((V297!= VV[142]))goto T834; |
1880 |
|
V296= VV[142]; |
1881 |
|
goto T832; |
1882 |
|
goto T834; |
1883 |
|
T834:; |
1884 |
|
if((V297!= VV[143]))goto T835; |
1885 |
|
V296= VV[143]; |
1886 |
|
goto T832; |
1887 |
|
goto T835; |
1888 |
|
T835:; |
1889 |
|
if((V297!= VV[144]))goto T836; |
1890 |
|
V296= VV[144]; |
1891 |
|
goto T832; |
1892 |
|
goto T836; |
1893 |
|
T836:; |
1894 |
|
V296= VV[74];} |
1895 |
|
goto T832; |
1896 |
|
T832:; |
1897 |
|
(void)(structure_set(/* INLINE-ARGS */V295,VV[69],1,V296)); |
1898 |
|
goto T826; |
1899 |
|
T826:; |
1900 |
|
V298= car((V289)); |
1901 |
|
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1902 |
|
(void)(structure_set(/* INLINE-ARGS */V298,VV[69],4,symbol_value(VV[88]))); |
1903 |
|
V289= cdr((V289)); |
1904 |
|
V290= cdr((V290)); |
1905 |
|
goto T821;} |
1906 |
goto T818; |
goto T818; |
1907 |
T818:; |
T818:; |
1908 |
V296= car((V287)); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[145],(V282)))); |
|
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
|
|
(void)(structure_set(/* INLINE-ARGS */V296,VV[69],4,symbol_value(VV[88]))); |
|
|
V287= cdr((V287)); |
|
|
V288= cdr((V288)); |
|
|
goto T813;} |
|
|
goto T810; |
|
|
T810:; |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[145],(V280)))); |
|
1909 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
1910 |
base[1]= (*(LnkLI280))(caddr((V284))); |
base[1]= (*(LnkLI280))(caddr((V286))); |
1911 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1912 |
(void) (*Lnk281)(); |
(void) (*Lnk281)(); |
1913 |
vs_top=sup; |
vs_top=sup; |
1914 |
V297= vs_base[0]; |
V299= vs_base[0]; |
1915 |
(void)((*(LnkLI277))(V297)); |
(void)((*(LnkLI277))(V299)); |
1916 |
princ_str("LI",VV[31]); |
princ_str("LI",VV[31]); |
1917 |
(void)((*(LnkLI277))((V281))); |
(void)((*(LnkLI277))((V283))); |
1918 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
1919 |
princ_str("\nstatic ",VV[25]); |
princ_str("\nstatic ",VV[25]); |
1920 |
base[1]= (*(LnkLI280))(caddr((V284))); |
base[1]= (*(LnkLI280))(caddr((V286))); |
1921 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1922 |
(void) (*Lnk281)(); |
(void) (*Lnk281)(); |
1923 |
vs_top=sup; |
vs_top=sup; |
1924 |
V298= vs_base[0]; |
V300= vs_base[0]; |
1925 |
(void)((*(LnkLI274))(V298)); |
(void)((*(LnkLI274))(V300)); |
1926 |
princ_str("LI",VV[25]); |
princ_str("LI",VV[25]); |
1927 |
(void)((*(LnkLI274))((V281))); |
(void)((*(LnkLI274))((V283))); |
1928 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
1929 |
(void)((*(LnkLI316))((V286),cadr((V284)))); |
(void)((*(LnkLI316))((V288),cadr((V286)))); |
1930 |
{object V299; |
{object V301; |
1931 |
V299= symbol_value(VV[136]); |
V301= symbol_value(VV[136]); |
1932 |
if((symbol_value(VV[147]))==Cnil){ |
if((symbol_value(VV[147]))==Cnil){ |
1933 |
goto T856;} |
goto T864;} |
1934 |
base[1]= make_cons((V280),(V286)); |
base[1]= make_cons((V282),(V288)); |
1935 |
goto T854; |
goto T862; |
1936 |
goto T856; |
goto T864; |
1937 |
T856:; |
T864:; |
1938 |
base[1]= Cnil; |
base[1]= Cnil; |
1939 |
goto T854; |
goto T862; |
1940 |
T854:; |
T862:; |
1941 |
bds_bind(VV[146],base[1]); |
bds_bind(VV[146],base[1]); |
1942 |
bds_bind(VV[134],symbol_value(VV[134])); |
bds_bind(VV[134],symbol_value(VV[134])); |
1943 |
princ_str("\n{ ",VV[25]); |
princ_str("\n{ ",VV[25]); |
1944 |
V300= structure_ref(cadr((V282)),VV[62],1); |
V302= structure_ref(cadr((V284)),VV[62],1); |
1945 |
(void)((*(LnkLI317))(/* INLINE-ARGS */V300,(V281),VV[148])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V302,(V283),VV[148])); |
1946 |
princ_str(" VMB",VV[25]); |
princ_str(" VMB",VV[25]); |
1947 |
(void)((*(LnkLI274))((V299))); |
(void)((*(LnkLI274))((V301))); |
1948 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
1949 |
(void)((*(LnkLI274))((V299))); |
(void)((*(LnkLI274))((V301))); |
1950 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
1951 |
(void)((*(LnkLI274))((V299))); |
(void)((*(LnkLI274))((V301))); |
1952 |
if(((V283))==Cnil){ |
if(((V285))==Cnil){ |
1953 |
goto T868;} |
goto T876;} |
1954 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
1955 |
goto T868; |
goto T876; |
1956 |
T868:; |
T876:; |
1957 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
1958 |
goto T872;} |
goto T880;} |
1959 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
1960 |
goto T872; |
goto T880; |
1961 |
T872:; |
T880:; |
1962 |
if(((VV[146]->s.s_dbind))==Cnil){ |
if(((VV[146]->s.s_dbind))==Cnil){ |
1963 |
goto T876;} |
goto T884;} |
1964 |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
1965 |
princ_str("\n goto TTL;",VV[25]); |
princ_str("\n goto TTL;",VV[25]); |
1966 |
princ_str("\nTTL:;",VV[25]); |
princ_str("\nTTL:;",VV[25]); |
|
goto T876; |
|
|
T876:; |
|
|
{register object V302; |
|
|
register object V303; |
|
|
V302= (V285); |
|
|
V303= car((V302)); |
|
|
goto T888; |
|
|
T888:; |
|
|
if(!(endp_prop((V302)))){ |
|
|
goto T889;} |
|
1967 |
goto T884; |
goto T884; |
1968 |
goto T889; |
T884:; |
1969 |
T889:; |
{register object V304; |
1970 |
|
register object V305; |
1971 |
|
V304= (V287); |
1972 |
|
V305= car((V304)); |
1973 |
|
goto T896; |
1974 |
|
T896:; |
1975 |
|
if(!(endp_prop((V304)))){ |
1976 |
|
goto T897;} |
1977 |
|
goto T892; |
1978 |
|
goto T897; |
1979 |
|
T897:; |
1980 |
princ_str("\n bds_bind(VV[",VV[25]); |
princ_str("\n bds_bind(VV[",VV[25]); |
1981 |
(void)((*(LnkLI274))(cdr((V303)))); |
(void)((*(LnkLI274))(cdr((V305)))); |
1982 |
princ_str("],V",VV[25]); |
princ_str("],V",VV[25]); |
1983 |
V304= structure_ref(car((V303)),VV[69],4); |
V306= structure_ref(car((V305)),VV[69],4); |
1984 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V304)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V306)); |
1985 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
1986 |
(VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind)); |
1987 |
(void)(structure_set(car((V303)),VV[69],1,VV[71])); |
(void)(structure_set(car((V305)),VV[69],1,VV[71])); |
1988 |
(void)(structure_set(car((V303)),VV[69],4,cdr((V303)))); |
(void)(structure_set(car((V305)),VV[69],4,cdr((V305)))); |
1989 |
V302= cdr((V302)); |
V304= cdr((V304)); |
1990 |
V303= car((V302)); |
V305= car((V304)); |
1991 |
goto T888;} |
goto T896;} |
1992 |
goto T884; |
goto T892; |
1993 |
T884:; |
T892:; |
1994 |
base[3]= caddr(cddr((V282))); |
base[3]= caddr(cddr((V284))); |
1995 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1996 |
(void) (*Lnk318)(); |
(void) (*Lnk318)(); |
1997 |
vs_top=sup; |
vs_top=sup; |
1998 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
1999 |
goto T912;} |
goto T920;} |
2000 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
2001 |
goto T912;} |
goto T920;} |
2002 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
2003 |
goto T912;} |
goto T920;} |
2004 |
goto T910; |
goto T918; |
2005 |
goto T912; |
goto T920; |
2006 |
T912:; |
T920:; |
2007 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
2008 |
goto T910; |
goto T918; |
2009 |
T910:; |
T918:; |
2010 |
V306= (*(LnkLI280))(caddr((V284))); |
V308= (*(LnkLI280))(caddr((V286))); |
2011 |
if(!(equal(VV[152],/* INLINE-ARGS */V306))){ |
if(!(equal(VV[152],/* INLINE-ARGS */V308))){ |
2012 |
goto T919;} |
goto T927;} |
2013 |
princ_str("\n return Cnil;",VV[25]); |
princ_str("\n return Cnil;",VV[25]); |
2014 |
goto T919; |
goto T927; |
2015 |
T919:; |
T927:; |
2016 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
2017 |
{object V307 = (*(LnkLI319))((V299),caddr((V284))); |
{object V309 = (*(LnkLI319))((V301),caddr((V286))); |
2018 |
bds_unwind1; |
bds_unwind1; |
2019 |
bds_unwind1; |
bds_unwind1; |
2020 |
VMR23(V307)}}} |
VMR23(V309)}}} |
2021 |
base[0]=base[0]; |
base[0]=base[0]; |
2022 |
return Cnil; |
return Cnil; |
2023 |
} |
} |
2024 |
/* local entry for function SET-UP-VAR-CVS */ |
/* local entry for function SET-UP-VAR-CVS */ |
2025 |
|
|
2026 |
static object LI24(V309) |
static object LI24(V311) |
2027 |
|
|
2028 |
object V309; |
object V311; |
2029 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
2030 |
goto TTL; |
goto TTL; |
2031 |
TTL:; |
TTL:; |
2032 |
if((symbol_value(VV[153]))==Cnil){ |
if((symbol_value(VV[153]))==Cnil){ |
2033 |
goto T926;} |
goto T934;} |
2034 |
V310= (*(LnkLI320))(); |
V312= (*(LnkLI320))(); |
2035 |
{object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310); |
{object V313 = structure_set((V311),VV[69],2,/* INLINE-ARGS */V312); |
|
VMR24(V311)} |
|
|
goto T926; |
|
|
T926:; |
|
|
V312= (*(LnkLI321))(); |
|
|
{object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312); |
|
2036 |
VMR24(V313)} |
VMR24(V313)} |
2037 |
|
goto T934; |
2038 |
|
T934:; |
2039 |
|
V314= (*(LnkLI321))(); |
2040 |
|
{object V315 = structure_set((V311),VV[69],2,/* INLINE-ARGS */V314); |
2041 |
|
VMR24(V315)} |
2042 |
return Cnil; |
return Cnil; |
2043 |
} |
} |
2044 |
/* local entry for function T3DEFUN-VARARG */ |
/* local entry for function T3DEFUN-VARARG */ |
2045 |
|
|
2046 |
static object LI25(V318,V319,V320,V321) |
static object LI25(V320,V321,V322,V323) |
2047 |
|
|
2048 |
object V318;object V319;object V320;object V321; |
object V320;object V321;object V322;object V323; |
2049 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2050 |
bds_check; |
bds_check; |
2051 |
goto TTL; |
goto TTL; |
2052 |
TTL:; |
TTL:; |
2053 |
{object V322; |
{object V324; |
2054 |
register object V323; |
register object V325; |
|
object V324; |
|
|
object V325; |
|
2055 |
object V326; |
object V326; |
2056 |
object V327; |
object V327; |
2057 |
object V328; |
object V328; |
2058 |
object V329; |
object V329; |
2059 |
V322= Cnil; |
object V330; |
2060 |
|
object V331; |
2061 |
|
V324= Cnil; |
2062 |
bds_bind(VV[153],Cnil); |
bds_bind(VV[153],Cnil); |
2063 |
base[1]= Cnil; |
base[1]= Cnil; |
|
V323= Cnil; |
|
|
V324= Ct; |
|
2064 |
V325= Cnil; |
V325= Cnil; |
2065 |
|
V326= Ct; |
2066 |
|
V327= Cnil; |
2067 |
bds_bind(VV[154],small_fixnum(0)); |
bds_bind(VV[154],small_fixnum(0)); |
2068 |
V326= Cnil; |
V328= Cnil; |
2069 |
V327= caddr((V320)); |
V329= caddr((V322)); |
2070 |
V328= Cnil;{object V330; |
V330= Cnil;{object V332; |
2071 |
V330= caddr((V327)); |
V332= caddr((V329)); |
2072 |
if(V330==Cnil)goto T936; |
if(V332==Cnil)goto T944; |
2073 |
V329= V330; |
V331= V332; |
2074 |
goto T935; |
goto T943; |
|
goto T936; |
|
|
T936:;}{object V331; |
|
|
V331= cadr((V327)); |
|
|
if(V331==Cnil)goto T938; |
|
|
V329= V331; |
|
|
goto T935; |
|
|
goto T938; |
|
|
T938:;} |
|
|
V329= cadddr((V327)); |
|
|
goto T935; |
|
|
T935:; |
|
|
{object V332; |
|
|
register object V333; |
|
|
V332= car((V327)); |
|
|
V333= car((V332)); |
|
2075 |
goto T944; |
goto T944; |
2076 |
T944:; |
T944:;}{object V333; |
2077 |
if(!(endp_prop((V332)))){ |
V333= cadr((V329)); |
2078 |
goto T945;} |
if(V333==Cnil)goto T946; |
2079 |
goto T940; |
V331= V333; |
2080 |
goto T945; |
goto T943; |
2081 |
T945:; |
goto T946; |
2082 |
|
T946:;} |
2083 |
|
V331= cadddr((V329)); |
2084 |
|
goto T943; |
2085 |
|
T943:; |
2086 |
{object V334; |
{object V334; |
2087 |
|
register object V335; |
2088 |
|
V334= car((V329)); |
2089 |
|
V335= car((V334)); |
2090 |
|
goto T952; |
2091 |
|
T952:; |
2092 |
|
if(!(endp_prop((V334)))){ |
2093 |
|
goto T953;} |
2094 |
|
goto T948; |
2095 |
|
goto T953; |
2096 |
|
T953:; |
2097 |
|
{object V336; |
2098 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
2099 |
V334= list(2,VV[155],symbol_value(VV[88])); |
V336= list(2,VV[155],symbol_value(VV[88])); |
2100 |
V322= make_cons((V334),(V322));} |
V324= make_cons((V336),(V324));} |
2101 |
V332= cdr((V332)); |
V334= cdr((V334)); |
2102 |
V333= car((V332)); |
V335= car((V334)); |
2103 |
goto T944;} |
goto T952;} |
2104 |
goto T940; |
goto T948; |
2105 |
T940:; |
T948:; |
2106 |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[156],(V318)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[156],(V320)))); |
2107 |
{object V335; |
{object V337; |
2108 |
V335= VV[157]; |
V337= VV[157]; |
2109 |
princ_str("\nstatic object LI",VV[25]); |
princ_str("\nstatic object LI",VV[25]); |
2110 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V321))); |
2111 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
2112 |
if(((V322))==Cnil){ |
if(((V324))==Cnil){ |
2113 |
goto T964;} |
goto T972;} |
2114 |
{object V336; |
{object V338; |
2115 |
V336= (V322); |
V338= (V324); |
2116 |
goto T968; |
goto T976; |
2117 |
T968:; |
T976:; |
2118 |
if(((V336))!=Cnil){ |
if(((V338))!=Cnil){ |
2119 |
goto T969;} |
goto T977;} |
2120 |
goto T964; |
goto T972; |
2121 |
goto T969; |
goto T977; |
2122 |
T969:; |
T977:; |
2123 |
princ_str("object ",VV[25]); |
princ_str("object ",VV[25]); |
2124 |
(void)((*(LnkLI274))(car((V336)))); |
(void)((*(LnkLI274))(car((V338)))); |
2125 |
V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[159])); |
V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[159])); |
2126 |
if(!((cdr((V336)))==Cnil)){ |
if(!((cdr((V338)))==Cnil)){ |
|
goto T979;} |
|
|
goto T978; |
|
|
goto T979; |
|
|
T979:; |
|
|
princ_char(44,VV[25]); |
|
|
V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[160])); |
|
|
goto T978; |
|
|
T978:; |
|
|
V336= cdr((V336)); |
|
|
goto T968;} |
|
|
goto T964; |
|
|
T964:; |
|
|
if(((V329))==Cnil){ |
|
2127 |
goto T987;} |
goto T987;} |
2128 |
if(((V322))==Cnil){ |
goto T986; |
|
goto T990;} |
|
|
princ_char(44,VV[25]); |
|
|
V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[161])); |
|
|
goto T990; |
|
|
T990:; |
|
|
princ_str("object first,...",VV[25]); |
|
|
V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[162])); |
|
2129 |
goto T987; |
goto T987; |
2130 |
T987:; |
T987:; |
2131 |
|
princ_char(44,VV[25]); |
2132 |
|
V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[160])); |
2133 |
|
goto T986; |
2134 |
|
T986:; |
2135 |
|
V338= cdr((V338)); |
2136 |
|
goto T976;} |
2137 |
|
goto T972; |
2138 |
|
T972:; |
2139 |
|
if(((V331))==Cnil){ |
2140 |
|
goto T995;} |
2141 |
|
if(((V324))==Cnil){ |
2142 |
|
goto T998;} |
2143 |
|
princ_char(44,VV[25]); |
2144 |
|
V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[161])); |
2145 |
|
goto T998; |
2146 |
|
T998:; |
2147 |
|
princ_str("object first,...",VV[25]); |
2148 |
|
V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[162])); |
2149 |
|
goto T995; |
2150 |
|
T995:; |
2151 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
2152 |
princ_str("\nstatic object LI",VV[31]); |
princ_str("\nstatic object LI",VV[31]); |
2153 |
(void)((*(LnkLI277))((V319))); |
(void)((*(LnkLI277))((V321))); |
2154 |
princ_char(40,VV[31]); |
princ_char(40,VV[31]); |
2155 |
(void)((*(LnkLI277))((V335))); |
(void)((*(LnkLI277))((V337))); |
2156 |
princ_str(");",VV[31]);} |
princ_str(");",VV[31]);} |
2157 |
{object V337; |
{object V339; |
2158 |
V337= symbol_value(VV[136]); |
V339= symbol_value(VV[136]); |
2159 |
if(symbol_value(VV[147])==Cnil){ |
if(symbol_value(VV[147])==Cnil){ |
2160 |
base[5]= Cnil; |
base[5]= Cnil; |
2161 |
goto T1007;} |
goto T1015;} |
2162 |
if((caddr((V327)))==Cnil){ |
if((caddr((V329)))==Cnil){ |
2163 |
goto T1008;} |
goto T1016;} |
2164 |
base[5]= Cnil; |
base[5]= Cnil; |
|
goto T1007; |
|
|
goto T1008; |
|
|
T1008:; |
|
|
{object V338; |
|
|
object V339; |
|
|
V338= car((V327)); |
|
|
V339= car((V338)); |
|
2165 |
goto T1015; |
goto T1015; |
|
T1015:; |
|
|
if(!(endp_prop((V338)))){ |
|
|
goto T1016;} |
|
|
goto T1010; |
|
2166 |
goto T1016; |
goto T1016; |
2167 |
T1016:; |
T1016:; |
2168 |
if((structure_ref((V339),VV[69],3))==Cnil){ |
{object V340; |
2169 |
goto T1020;} |
object V341; |
2170 |
goto T1011; |
V340= car((V329)); |
2171 |
goto T1020; |
V341= car((V340)); |
2172 |
T1020:; |
goto T1023; |
2173 |
V338= cdr((V338)); |
T1023:; |
2174 |
V339= car((V338)); |
if(!(endp_prop((V340)))){ |
2175 |
goto T1015;} |
goto T1024;} |
2176 |
goto T1011; |
goto T1018; |
2177 |
T1011:; |
goto T1024; |
2178 |
base[5]= Cnil; |
T1024:; |
2179 |
goto T1007; |
if((structure_ref((V341),VV[69],3))==Cnil){ |
|
goto T1010; |
|
|
T1010:; |
|
|
if((cadr((V327)))==Cnil){ |
|
2180 |
goto T1028;} |
goto T1028;} |
2181 |
base[5]= Cnil; |
goto T1019; |
|
goto T1007; |
|
2182 |
goto T1028; |
goto T1028; |
2183 |
T1028:; |
T1028:; |
2184 |
if((car(cddddr((V327))))==Cnil){ |
V340= cdr((V340)); |
2185 |
goto T1030;} |
V341= car((V340)); |
2186 |
|
goto T1023;} |
2187 |
|
goto T1019; |
2188 |
|
T1019:; |
2189 |
|
base[5]= Cnil; |
2190 |
|
goto T1015; |
2191 |
|
goto T1018; |
2192 |
|
T1018:; |
2193 |
|
if((cadr((V329)))==Cnil){ |
2194 |
|
goto T1036;} |
2195 |
base[5]= Cnil; |
base[5]= Cnil; |
2196 |
goto T1007; |
goto T1015; |
2197 |
goto T1030; |
goto T1036; |
2198 |
T1030:; |
T1036:; |
2199 |
base[5]= make_cons((V318),car((V327))); |
if((car(cddddr((V329))))==Cnil){ |
2200 |
goto T1007; |
goto T1038;} |
2201 |
T1007:; |
base[5]= Cnil; |
2202 |
|
goto T1015; |
2203 |
|
goto T1038; |
2204 |
|
T1038:; |
2205 |
|
base[5]= make_cons((V320),car((V329))); |
2206 |
|
goto T1015; |
2207 |
|
T1015:; |
2208 |
bds_bind(VV[146],base[5]); |
bds_bind(VV[146],base[5]); |
2209 |
bds_bind(VV[134],symbol_value(VV[134])); |
bds_bind(VV[134],symbol_value(VV[134])); |
2210 |
princ_str("\n{ ",VV[25]); |
princ_str("\n{ ",VV[25]); |
2211 |
if(((V329))==Cnil){ |
if(((V331))==Cnil){ |
2212 |
goto T1034;} |
goto T1042;} |
2213 |
princ_str("\n va_list ap;",VV[25]); |
princ_str("\n va_list ap;",VV[25]); |
2214 |
goto T1034; |
goto T1042; |
2215 |
T1034:; |
T1042:; |
2216 |
princ_str("\n int narg = VFUN_NARGS;",VV[25]); |
princ_str("\n int narg = VFUN_NARGS;",VV[25]); |
2217 |
V340= structure_ref(cadr((V320)),VV[62],1); |
V342= structure_ref(cadr((V322)),VV[62],1); |
2218 |
(void)((*(LnkLI317))(/* INLINE-ARGS */V340,(V319),VV[148])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V342,(V321),VV[148])); |
2219 |
princ_str(" VMB",VV[25]); |
princ_str(" VMB",VV[25]); |
2220 |
(void)((*(LnkLI274))((V337))); |
(void)((*(LnkLI274))((V339))); |
2221 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
2222 |
(void)((*(LnkLI274))((V337))); |
(void)((*(LnkLI274))((V339))); |
2223 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
2224 |
(void)((*(LnkLI274))((V337))); |
(void)((*(LnkLI274))((V339))); |
2225 |
if(((V321))==Cnil){ |
if(((V323))==Cnil){ |
2226 |
goto T1048;} |
goto T1056;} |
2227 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
2228 |
goto T1048; |
goto T1056; |
2229 |
T1048:; |
T1056:; |
2230 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
2231 |
goto T1052;} |
goto T1060;} |
2232 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
2233 |
goto T1052; |
goto T1060; |
2234 |
T1052:; |
T1060:; |
2235 |
if((V329)!=Cnil){ |
if((V331)!=Cnil){ |
2236 |
goto T1056;} |
goto T1064;} |
2237 |
princ_str("\n if ( narg!= ",VV[25]); |
princ_str("\n if ( narg!= ",VV[25]); |
2238 |
V341 = make_fixnum((long)length((V322))); |
V343 = make_fixnum((long)length((V324))); |
2239 |
(void)((*(LnkLI274))(V341)); |
(void)((*(LnkLI274))(V343)); |
2240 |
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]); |
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]); |
2241 |
V342 = make_fixnum((long)length((V322))); |
V344 = make_fixnum((long)length((V324))); |
2242 |
(void)((*(LnkLI274))(V342)); |
(void)((*(LnkLI274))(V344)); |
2243 |
princ_str("));",VV[25]); |
princ_str("));",VV[25]); |
2244 |
goto T1056; |
goto T1064; |
2245 |
T1056:; |
T1064:; |
|
{object V343; |
|
|
object V344; |
|
|
V343= car((V327)); |
|
|
V344= car((V343)); |
|
|
goto T1067; |
|
|
T1067:; |
|
|
if(!(endp_prop((V343)))){ |
|
|
goto T1068;} |
|
|
goto T1063; |
|
|
goto T1068; |
|
|
T1068:; |
|
|
base[9]= (V344); |
|
|
vs_top=(vs_base=base+9)+1; |
|
|
L26(base); |
|
|
vs_top=sup; |
|
|
V343= cdr((V343)); |
|
|
V344= car((V343)); |
|
|
goto T1067;} |
|
|
goto T1063; |
|
|
T1063:; |
|
2246 |
{object V345; |
{object V345; |
2247 |
object V346; |
object V346; |
2248 |
V345= cadr((V327)); |
V345= car((V329)); |
2249 |
V346= car((V345)); |
V346= car((V345)); |
2250 |
goto T1083; |
goto T1075; |
2251 |
T1083:; |
T1075:; |
2252 |
if(!(endp_prop((V345)))){ |
if(!(endp_prop((V345)))){ |
2253 |
goto T1084;} |
goto T1076;} |
2254 |
goto T1079; |
goto T1071; |
2255 |
goto T1084; |
goto T1076; |
2256 |
T1084:; |
T1076:; |
2257 |
base[9]= car((V346)); |
base[9]= (V346); |
2258 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2259 |
L26(base); |
L26(base); |
2260 |
vs_top=sup; |
vs_top=sup; |
|
if((caddr((V346)))==Cnil){ |
|
|
goto T1090;} |
|
|
base[9]= caddr((V346)); |
|
|
vs_top=(vs_base=base+9)+1; |
|
|
L26(base); |
|
|
vs_top=sup; |
|
|
goto T1090; |
|
|
T1090:; |
|
2261 |
V345= cdr((V345)); |
V345= cdr((V345)); |
2262 |
V346= car((V345)); |
V346= car((V345)); |
2263 |
goto T1083;} |
goto T1075;} |
2264 |
goto T1079; |
goto T1071; |
2265 |
T1079:; |
T1071:; |
|
if((caddr((V327)))==Cnil){ |
|
|
goto T1099;} |
|
|
base[7]= caddr((V327)); |
|
|
vs_top=(vs_base=base+7)+1; |
|
|
L26(base); |
|
|
vs_top=sup; |
|
|
goto T1099; |
|
|
T1099:; |
|
2266 |
{object V347; |
{object V347; |
2267 |
object V348; |
object V348; |
2268 |
V347= car(cddddr((V327))); |
V347= cadr((V329)); |
2269 |
V348= car((V347)); |
V348= car((V347)); |
2270 |
goto T1106; |
goto T1091; |
2271 |
T1106:; |
T1091:; |
2272 |
if(!(endp_prop((V347)))){ |
if(!(endp_prop((V347)))){ |
2273 |
|
goto T1092;} |
2274 |
|
goto T1087; |
2275 |
|
goto T1092; |
2276 |
|
T1092:; |
2277 |
|
base[9]= car((V348)); |
2278 |
|
vs_top=(vs_base=base+9)+1; |
2279 |
|
L26(base); |
2280 |
|
vs_top=sup; |
2281 |
|
if((caddr((V348)))==Cnil){ |
2282 |
|
goto T1098;} |
2283 |
|
base[9]= caddr((V348)); |
2284 |
|
vs_top=(vs_base=base+9)+1; |
2285 |
|
L26(base); |
2286 |
|
vs_top=sup; |
2287 |
|
goto T1098; |
2288 |
|
T1098:; |
2289 |
|
V347= cdr((V347)); |
2290 |
|
V348= car((V347)); |
2291 |
|
goto T1091;} |
2292 |
|
goto T1087; |
2293 |
|
T1087:; |
2294 |
|
if((caddr((V329)))==Cnil){ |
2295 |
goto T1107;} |
goto T1107;} |
2296 |
goto T1062; |
base[7]= caddr((V329)); |
2297 |
|
vs_top=(vs_base=base+7)+1; |
2298 |
|
L26(base); |
2299 |
|
vs_top=sup; |
2300 |
goto T1107; |
goto T1107; |
2301 |
T1107:; |
T1107:; |
2302 |
base[9]= cadr((V348)); |
{object V349; |
2303 |
|
object V350; |
2304 |
|
V349= car(cddddr((V329))); |
2305 |
|
V350= car((V349)); |
2306 |
|
goto T1114; |
2307 |
|
T1114:; |
2308 |
|
if(!(endp_prop((V349)))){ |
2309 |
|
goto T1115;} |
2310 |
|
goto T1070; |
2311 |
|
goto T1115; |
2312 |
|
T1115:; |
2313 |
|
base[9]= cadr((V350)); |
2314 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2315 |
L26(base); |
L26(base); |
2316 |
vs_top=sup; |
vs_top=sup; |
2317 |
if((cadddr((V348)))==Cnil){ |
if((cadddr((V350)))==Cnil){ |
2318 |
goto T1113;} |
goto T1121;} |
2319 |
base[9]= cadddr((V348)); |
base[9]= cadddr((V350)); |
2320 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2321 |
L26(base); |
L26(base); |
2322 |
vs_top=sup; |
vs_top=sup; |
2323 |
goto T1113; |
goto T1121; |
2324 |
T1113:; |
T1121:; |
2325 |
V347= cdr((V347)); |
V349= cdr((V349)); |
2326 |
V348= car((V347)); |
V350= car((V349)); |
2327 |
goto T1106;} |
goto T1114;} |
2328 |
goto T1062; |
goto T1070; |
2329 |
T1062:; |
T1070:; |
2330 |
if(((VV[153]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
2331 |
goto T1124;} |
goto T1132;} |
2332 |
goto T1122; |
goto T1130; |
2333 |
goto T1124; |
goto T1132; |
2334 |
T1124:; |
T1132:; |
2335 |
princ_str("\n Vcs[0]=Vcs[0];",VV[25]); |
princ_str("\n Vcs[0]=Vcs[0];",VV[25]); |
2336 |
goto T1122; |
goto T1130; |
2337 |
T1122:; |
T1130:; |
2338 |
if((cadr((V327)))!=Cnil){ |
if((cadr((V329)))!=Cnil){ |
2339 |
goto T1128;} |
goto T1136;} |
2340 |
if((caddr((V327)))!=Cnil){ |
if((caddr((V329)))!=Cnil){ |
2341 |
goto T1128;} |
goto T1136;} |
2342 |
if((cadddr((V327)))==Cnil){ |
if((cadddr((V329)))==Cnil){ |
2343 |
goto T1127;} |
goto T1135;} |
2344 |
goto T1128; |
goto T1136; |
2345 |
T1128:; |
T1136:; |
2346 |
if(((V328))!=Cnil){ |
if(((V330))!=Cnil){ |
2347 |
goto T1127;} |
goto T1135;} |
2348 |
V328= Ct; |
V330= Ct; |
2349 |
princ_str("\n va_start(ap,first);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2350 |
goto T1127; |
goto T1135; |
2351 |
T1127:; |
T1135:; |
2352 |
if((symbol_value(VV[163]))!=Cnil){ |
if((symbol_value(VV[163]))!=Cnil){ |
2353 |
goto T1141;} |
goto T1149;} |
2354 |
if((symbol_value(VV[164]))==Cnil){ |
if((symbol_value(VV[164]))==Cnil){ |
2355 |
goto T1139;} |
goto T1147;} |
|
goto T1141; |
|
|
T1141:; |
|
|
if((car((V327)))==Cnil){ |
|
|
goto T1139;} |
|
|
princ_str("\n if(narg <",VV[25]); |
|
|
V349 = make_fixnum((long)length(car((V327)))); |
|
|
(void)((*(LnkLI274))(V349)); |
|
|
princ_str(") too_few_arguments();",VV[25]); |
|
|
goto T1139; |
|
|
T1139:; |
|
|
{object V350; |
|
|
object V351; |
|
|
V350= car((V327)); |
|
|
V351= car((V350)); |
|
|
goto T1153; |
|
|
T1153:; |
|
|
if(!(endp_prop((V350)))){ |
|
|
goto T1154;} |
|
|
goto T1149; |
|
|
goto T1154; |
|
|
T1154:; |
|
|
(void)((*(LnkLI323))((V351))); |
|
|
V350= cdr((V350)); |
|
|
V351= car((V350)); |
|
|
goto T1153;} |
|
2356 |
goto T1149; |
goto T1149; |
2357 |
T1149:; |
T1149:; |
2358 |
|
if((car((V329)))==Cnil){ |
2359 |
|
goto T1147;} |
2360 |
|
princ_str("\n if(narg <",VV[25]); |
2361 |
|
V351 = make_fixnum((long)length(car((V329)))); |
2362 |
|
(void)((*(LnkLI274))(V351)); |
2363 |
|
princ_str(") too_few_arguments();",VV[25]); |
2364 |
|
goto T1147; |
2365 |
|
T1147:; |
2366 |
{object V352; |
{object V352; |
2367 |
object V353; |
object V353; |
2368 |
V352= cadr((V327)); |
V352= car((V329)); |
2369 |
V353= car((V352)); |
V353= car((V352)); |
2370 |
goto T1168; |
goto T1161; |
2371 |
T1168:; |
T1161:; |
2372 |
if(!(endp_prop((V352)))){ |
if(!(endp_prop((V352)))){ |
2373 |
goto T1169;} |
goto T1162;} |
2374 |
goto T1164; |
goto T1157; |
2375 |
goto T1169; |
goto T1162; |
2376 |
T1169:; |
T1162:; |
2377 |
(void)((*(LnkLI323))(car((V353)))); |
(void)((*(LnkLI323))((V353))); |
2378 |
V352= cdr((V352)); |
V352= cdr((V352)); |
2379 |
V353= car((V352)); |
V353= car((V352)); |
2380 |
goto T1168;} |
goto T1161;} |
2381 |
goto T1164; |
goto T1157; |
2382 |
T1164:; |
T1157:; |
|
if((caddr((V327)))==Cnil){ |
|
|
goto T1179;} |
|
|
(void)((*(LnkLI323))(caddr((V327)))); |
|
|
goto T1179; |
|
|
T1179:; |
|
|
if(((VV[153]->s.s_dbind))==Cnil){ |
|
|
goto T1185;} |
|
|
V325= symbol_value(VV[129]); |
|
|
goto T1183; |
|
|
goto T1185; |
|
|
T1185:; |
|
|
V325= symbol_value(VV[141]); |
|
|
goto T1183; |
|
|
T1183:; |
|
2383 |
{object V354; |
{object V354; |
2384 |
object V355; |
object V355; |
2385 |
V354= car(cddddr((V327))); |
V354= cadr((V329)); |
2386 |
V355= car((V354)); |
V355= car((V354)); |
2387 |
goto T1191; |
goto T1176; |
2388 |
T1191:; |
T1176:; |
2389 |
if(!(endp_prop((V354)))){ |
if(!(endp_prop((V354)))){ |
2390 |
goto T1192;} |
goto T1177;} |
2391 |
goto T1187; |
goto T1172; |
2392 |
goto T1192; |
goto T1177; |
2393 |
T1192:; |
T1177:; |
2394 |
(void)((*(LnkLI323))(cadr((V355)))); |
(void)((*(LnkLI323))(car((V355)))); |
2395 |
V354= cdr((V354)); |
V354= cdr((V354)); |
2396 |
V355= car((V354)); |
V355= car((V354)); |
2397 |
goto T1191;} |
goto T1176;} |
2398 |
|
goto T1172; |
2399 |
|
T1172:; |
2400 |
|
if((caddr((V329)))==Cnil){ |
2401 |
|
goto T1187;} |
2402 |
|
(void)((*(LnkLI323))(caddr((V329)))); |
2403 |
goto T1187; |
goto T1187; |
2404 |
T1187:; |
T1187:; |
2405 |
|
if(((VV[153]->s.s_dbind))==Cnil){ |
2406 |
|
goto T1193;} |
2407 |
|
V327= symbol_value(VV[129]); |
2408 |
|
goto T1191; |
2409 |
|
goto T1193; |
2410 |
|
T1193:; |
2411 |
|
V327= symbol_value(VV[141]); |
2412 |
|
goto T1191; |
2413 |
|
T1191:; |
2414 |
{object V356; |
{object V356; |
2415 |
object V357; |
object V357; |
2416 |
V356= car(cddddr((V327))); |
V356= car(cddddr((V329))); |
2417 |
V357= car((V356)); |
V357= car((V356)); |
2418 |
goto T1206; |
goto T1199; |
2419 |
T1206:; |
T1199:; |
2420 |
if(!(endp_prop((V356)))){ |
if(!(endp_prop((V356)))){ |
2421 |
goto T1207;} |
goto T1200;} |
2422 |
goto T1202; |
goto T1195; |
2423 |
goto T1207; |
goto T1200; |
2424 |
T1207:; |
T1200:; |
2425 |
(void)((*(LnkLI323))(cadddr((V357)))); |
(void)((*(LnkLI323))(cadr((V357)))); |
2426 |
V356= cdr((V356)); |
V356= cdr((V356)); |
2427 |
V357= car((V356)); |
V357= car((V356)); |
2428 |
goto T1206;} |
goto T1199;} |
2429 |
goto T1202; |
goto T1195; |
2430 |
T1202:; |
T1195:; |
2431 |
{object V358; |
{object V358; |
2432 |
object V359; |
object V359; |
2433 |
V359= car((V327)); |
V358= car(cddddr((V329))); |
2434 |
V358= (V322); |
V359= car((V358)); |
2435 |
goto T1220; |
goto T1214; |
2436 |
T1220:; |
T1214:; |
2437 |
if(((V358))!=Cnil){ |
if(!(endp_prop((V358)))){ |
2438 |
goto T1221;} |
goto T1215;} |
2439 |
goto T1217; |
goto T1210; |
2440 |
goto T1221; |
goto T1215; |
2441 |
T1221:; |
T1215:; |
2442 |
(void)((*(LnkLI324))(car((V359)),car((V358)))); |
(void)((*(LnkLI323))(cadddr((V359)))); |
2443 |
V358= cdr((V358)); |
V358= cdr((V358)); |
2444 |
V359= cdr((V359)); |
V359= car((V358)); |
2445 |
goto T1220;} |
goto T1214;} |
2446 |
goto T1217; |
goto T1210; |
2447 |
T1217:; |
T1210:; |
2448 |
if((cadr((V327)))==Cnil){ |
{object V360; |
2449 |
goto T1230;} |
object V361; |
2450 |
|
V361= car((V329)); |
2451 |
|
V360= (V324); |
2452 |
|
goto T1228; |
2453 |
|
T1228:; |
2454 |
|
if(((V360))!=Cnil){ |
2455 |
|
goto T1229;} |
2456 |
|
goto T1225; |
2457 |
|
goto T1229; |
2458 |
|
T1229:; |
2459 |
|
(void)((*(LnkLI324))(car((V361)),car((V360)))); |
2460 |
|
V360= cdr((V360)); |
2461 |
|
V361= cdr((V361)); |
2462 |
|
goto T1228;} |
2463 |
|
goto T1225; |
2464 |
|
T1225:; |
2465 |
|
if((cadr((V329)))==Cnil){ |
2466 |
|
goto T1238;} |
2467 |
bds_bind(VV[133],symbol_value(VV[133])); |
bds_bind(VV[133],symbol_value(VV[133])); |
2468 |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
2469 |
bds_bind(VV[132],symbol_value(VV[132])); |
bds_bind(VV[132],symbol_value(VV[132])); |
2470 |
princ_str("\n narg = narg - ",VV[25]); |
princ_str("\n narg = narg - ",VV[25]); |
2471 |
V360 = make_fixnum((long)length((V322))); |
V362 = make_fixnum((long)length((V324))); |
2472 |
(void)((*(LnkLI274))(V360)); |
(void)((*(LnkLI274))(V362)); |
2473 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2474 |
{object V361; |
{object V363; |
2475 |
V361= Ct; |
V363= Ct; |
2476 |
{object V362; |
{object V364; |
2477 |
object V363; |
object V365; |
2478 |
V362= cadr((V327)); |
V364= cadr((V329)); |
2479 |
V363= car((V362)); |
V365= car((V364)); |
2480 |
goto T1241; |
goto T1249; |
2481 |
T1241:; |
T1249:; |
2482 |
if(!(endp_prop((V362)))){ |
if(!(endp_prop((V364)))){ |
2483 |
goto T1242;} |
goto T1250;} |
2484 |
bds_unwind1; |
bds_unwind1; |
2485 |
bds_unwind1; |
bds_unwind1; |
2486 |
bds_unwind1; |
bds_unwind1; |
2487 |
goto T1233; |
goto T1241; |
2488 |
goto T1242; |
goto T1250; |
2489 |
T1242:; |
T1250:; |
2490 |
{object V364; |
{object V366; |
2491 |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
2492 |
V364= make_cons(symbol_value(VV[165]),Cnil); |
V366= make_cons(symbol_value(VV[165]),Cnil); |
2493 |
V323= make_cons((V364),(V323));} |
V325= make_cons((V366),(V325));} |
2494 |
princ_str("\n if (",VV[25]); |
princ_str("\n if (",VV[25]); |
2495 |
if((cdr((V323)))==Cnil){ |
if((cdr((V325)))==Cnil){ |
2496 |
goto T1255;} |
goto T1263;} |
2497 |
V365= VV[166]; |
V367= VV[166]; |
2498 |
goto T1253; |
goto T1261; |
2499 |
goto T1255; |
goto T1263; |
2500 |
T1255:; |
T1263:; |
2501 |
V365= VV[167]; |
V367= VV[167]; |
2502 |
goto T1253; |
goto T1261; |
2503 |
T1253:; |
T1261:; |
2504 |
(void)((*(LnkLI274))(V365)); |
(void)((*(LnkLI274))(V367)); |
2505 |
princ_str("narg <= 0) ",VV[25]); |
princ_str("narg <= 0) ",VV[25]); |
2506 |
if(type_of(car((V323)))!=t_cons)FEwrong_type_argument(Scons,car((V323))); |
if(type_of(car((V325)))!=t_cons)FEwrong_type_argument(Scons,car((V325))); |
2507 |
(car((V323)))->c.c_cdr = Ct; |
(car((V325)))->c.c_cdr = Ct; |
2508 |
(void)(car((V323))); |
(void)(car((V325))); |
2509 |
princ_str("goto T",VV[25]); |
princ_str("goto T",VV[25]); |
2510 |
(void)((*(LnkLI274))(car(car((V323))))); |
(void)((*(LnkLI274))(car(car((V325))))); |
2511 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2512 |
princ_str("\n else {",VV[25]); |
princ_str("\n else {",VV[25]); |
2513 |
if(((V328))!=Cnil){ |
if(((V330))!=Cnil){ |
2514 |
goto T1265;} |
goto T1273;} |
2515 |
V328= Ct; |
V330= Ct; |
2516 |
princ_str("\n va_start(ap,first);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2517 |
goto T1265; |
goto T1273; |
2518 |
T1265:; |
T1273:; |
2519 |
V366= car((V363)); |
V368= car((V365)); |
2520 |
if(((V361))==Cnil){ |
if(((V363))==Cnil){ |
2521 |
goto T1274;} |
goto T1282;} |
2522 |
V367= make_cons(VV[168],Cnil); |
V369= make_cons(VV[168],Cnil); |
2523 |
goto T1272; |
goto T1280; |
2524 |
goto T1274; |
goto T1282; |
2525 |
T1274:; |
T1282:; |
2526 |
V367= make_cons(VV[169],Cnil); |
V369= make_cons(VV[169],Cnil); |
|
goto T1272; |
|
|
T1272:; |
|
|
(void)((*(LnkLI324))(/* INLINE-ARGS */V366,V367)); |
|
|
V361= Cnil; |
|
|
princ_char(125,VV[25]); |
|
|
if((caddr((V363)))==Cnil){ |
|
|
goto T1280;} |
|
|
(void)((*(LnkLI324))(caddr((V363)),Ct)); |
|
2527 |
goto T1280; |
goto T1280; |
2528 |
T1280:; |
T1280:; |
2529 |
V362= cdr((V362)); |
(void)((*(LnkLI324))(/* INLINE-ARGS */V368,V369)); |
2530 |
V363= car((V362)); |
V363= Cnil; |
2531 |
goto T1241;}} |
princ_char(125,VV[25]); |
2532 |
goto T1233; |
if((caddr((V365)))==Cnil){ |
2533 |
T1233:; |
goto T1288;} |
2534 |
V323= nreverse((V323)); |
(void)((*(LnkLI324))(caddr((V365)),Ct)); |
2535 |
{object V368; |
goto T1288; |
2536 |
|
T1288:; |
2537 |
|
V364= cdr((V364)); |
2538 |
|
V365= car((V364)); |
2539 |
|
goto T1249;}} |
2540 |
|
goto T1241; |
2541 |
|
T1241:; |
2542 |
|
V325= nreverse((V325)); |
2543 |
|
{object V370; |
2544 |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
2545 |
V368= make_cons(symbol_value(VV[165]),Cnil); |
V370= make_cons(symbol_value(VV[165]),Cnil); |
2546 |
princ_str("\n --narg; ",VV[25]); |
princ_str("\n --narg; ",VV[25]); |
2547 |
if(type_of((V368))!=t_cons)FEwrong_type_argument(Scons,(V368)); |
if(type_of((V370))!=t_cons)FEwrong_type_argument(Scons,(V370)); |
2548 |
((V368))->c.c_cdr = Ct; |
((V370))->c.c_cdr = Ct; |
2549 |
princ_str("goto T",VV[25]); |
princ_str("goto T",VV[25]); |
2550 |
(void)((*(LnkLI274))(car((V368)))); |
(void)((*(LnkLI274))(car((V370)))); |
2551 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2552 |
{object V369; |
{object V371; |
2553 |
object V370; |
object V372; |
2554 |
V369= cadr((V327)); |
V371= cadr((V329)); |
2555 |
V370= car((V369)); |
V372= car((V371)); |
2556 |
goto T1303; |
goto T1311; |
2557 |
T1303:; |
T1311:; |
2558 |
if(!(endp_prop((V369)))){ |
if(!(endp_prop((V371)))){ |
2559 |
goto T1304;} |
goto T1312;} |
2560 |
goto T1299; |
goto T1307; |
2561 |
goto T1304; |
goto T1312; |
2562 |
T1304:; |
T1312:; |
2563 |
if((cdr(car((V323))))==Cnil){ |
if((cdr(car((V325))))==Cnil){ |
2564 |
goto T1308;} |
goto T1316;} |
2565 |
princ_str("\n goto T",VV[25]); |
princ_str("\n goto T",VV[25]); |
2566 |
(void)((*(LnkLI274))(car(car((V323))))); |
(void)((*(LnkLI274))(car(car((V325))))); |
2567 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2568 |
princ_str("\nT",VV[25]); |
princ_str("\nT",VV[25]); |
2569 |
(void)((*(LnkLI274))(car(car((V323))))); |
(void)((*(LnkLI274))(car(car((V325))))); |
2570 |
princ_str(":;",VV[25]); |
princ_str(":;",VV[25]); |
2571 |
goto T1308; |
goto T1316; |
2572 |
T1308:; |
T1316:; |
2573 |
{object V371; |
{object V373; |
2574 |
V371= car((V323)); |
V373= car((V325)); |
2575 |
V323= cdr((V323));} |
V325= cdr((V325));} |
2576 |
(void)((*(LnkLI325))(car((V370)),cadr((V370)))); |
(void)((*(LnkLI325))(car((V372)),cadr((V372)))); |
2577 |
if((caddr((V370)))==Cnil){ |
if((caddr((V372)))==Cnil){ |
2578 |
goto T1323;} |
goto T1331;} |
2579 |
(void)((*(LnkLI324))(caddr((V370)),Cnil)); |
(void)((*(LnkLI324))(caddr((V372)),Cnil)); |
2580 |
goto T1323; |
goto T1331; |
2581 |
T1323:; |
T1331:; |
2582 |
V369= cdr((V369)); |
V371= cdr((V371)); |
2583 |
V370= car((V369)); |
V372= car((V371)); |
2584 |
goto T1303;} |
goto T1311;} |
2585 |
goto T1299; |
goto T1307; |
2586 |
T1299:; |
T1307:; |
2587 |
if((cdr((V368)))==Cnil){ |
if((cdr((V370)))==Cnil){ |
2588 |
goto T1230;} |
goto T1238;} |
2589 |
princ_str("\n goto T",VV[25]); |
princ_str("\n goto T",VV[25]); |
2590 |
(void)((*(LnkLI274))(car((V368)))); |
(void)((*(LnkLI274))(car((V370)))); |
2591 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2592 |
princ_str("\nT",VV[25]); |
princ_str("\nT",VV[25]); |
2593 |
(void)((*(LnkLI274))(car((V368)))); |
(void)((*(LnkLI274))(car((V370)))); |
2594 |
princ_str(":;",VV[25]);} |
princ_str(":;",VV[25]);} |
2595 |
goto T1230; |
goto T1238; |
2596 |
T1230:; |
T1238:; |
2597 |
if((caddr((V327)))==Cnil){ |
if((caddr((V329)))==Cnil){ |
|
goto T1340;} |
|
|
V326= (VFUN_NARGS=0,(*(LnkLI326))()); |
|
|
{object V372; |
|
|
V372= cadr((V327)); |
|
|
if(((V372))==Cnil){ |
|
2598 |
goto T1348;} |
goto T1348;} |
2599 |
goto T1345; |
V328= (VFUN_NARGS=0,(*(LnkLI326))()); |
2600 |
goto T1348; |
{object V374; |
2601 |
T1348:; |
V374= cadr((V329)); |
2602 |
|
if(((V374))==Cnil){ |
2603 |
|
goto T1356;} |
2604 |
|
goto T1353; |
2605 |
|
goto T1356; |
2606 |
|
T1356:; |
2607 |
princ_str("\n narg= narg - ",VV[25]); |
princ_str("\n narg= narg - ",VV[25]); |
2608 |
V373 = make_fixnum((long)length(car((V327)))); |
V375 = make_fixnum((long)length(car((V329)))); |
2609 |
(void)((*(LnkLI274))(V373)); |
(void)((*(LnkLI274))(V375)); |
2610 |
princ_char(59,VV[25]);} |
princ_char(59,VV[25]);} |
|
goto T1345; |
|
|
T1345:; |
|
|
if(((V328))!=Cnil){ |
|
|
goto T1353;} |
|
|
V328= Ct; |
|
|
princ_str("\n va_start(ap,first);",VV[25]); |
|
2611 |
goto T1353; |
goto T1353; |
2612 |
T1353:; |
T1353:; |
2613 |
|
if(((V330))!=Cnil){ |
2614 |
|
goto T1361;} |
2615 |
|
V330= Ct; |
2616 |
|
princ_str("\n va_start(ap,first);",VV[25]); |
2617 |
|
goto T1361; |
2618 |
|
T1361:; |
2619 |
princ_str("\n V",VV[25]); |
princ_str("\n V",VV[25]); |
2620 |
(void)((*(LnkLI274))((V326))); |
(void)((*(LnkLI274))((V328))); |
2621 |
princ_str(" = ",VV[25]); |
princ_str(" = ",VV[25]); |
2622 |
V374= structure_ref(caddr((V327)),VV[69],5); |
V376= structure_ref(caddr((V329)),VV[69],5); |
2623 |
if(!((/* INLINE-ARGS */V374)==(VV[171]))){ |
if(!((/* INLINE-ARGS */V376)==(VV[171]))){ |
2624 |
goto T1364;} |
goto T1372;} |
2625 |
base[7]= Ct; |
base[7]= Ct; |
2626 |
goto T1363; |
goto T1371; |
2627 |
goto T1364; |
goto T1372; |
2628 |
T1364:; |
T1372:; |
2629 |
base[7]= symbol_value(VV[170]); |
base[7]= symbol_value(VV[170]); |
2630 |
goto T1363; |
goto T1371; |
2631 |
T1363:; |
T1371:; |
2632 |
bds_bind(VV[170],base[7]); |
bds_bind(VV[170],base[7]); |
2633 |
if((cadddr((V327)))==Cnil){ |
if((cadddr((V329)))==Cnil){ |
2634 |
goto T1368;} |
goto T1376;} |
2635 |
if(((VV[170]->s.s_dbind))==Cnil){ |
if(((VV[170]->s.s_dbind))==Cnil){ |
2636 |
goto T1371;} |
goto T1379;} |
2637 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]); |
2638 |
goto T1366; |
goto T1374; |
2639 |
goto T1371; |
goto T1379; |
2640 |
T1371:; |
T1379:; |
2641 |
princ_str("make_list(narg);",VV[25]); |
princ_str("make_list(narg);",VV[25]); |
2642 |
goto T1366; |
goto T1374; |
|
goto T1368; |
|
|
T1368:; |
|
|
if(((VV[170]->s.s_dbind))==Cnil){ |
|
|
goto T1376;} |
|
|
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]); |
|
|
goto T1366; |
|
2643 |
goto T1376; |
goto T1376; |
2644 |
T1376:; |
T1376:; |
2645 |
|
if(((VV[170]->s.s_dbind))==Cnil){ |
2646 |
|
goto T1384;} |
2647 |
|
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]); |
2648 |
|
goto T1374; |
2649 |
|
goto T1384; |
2650 |
|
T1384:; |
2651 |
princ_str("list_vector_new(narg,first,ap);",VV[25]); |
princ_str("list_vector_new(narg,first,ap);",VV[25]); |
2652 |
goto T1366; |
goto T1374; |
2653 |
T1366:; |
T1374:; |
2654 |
V375= caddr((V327)); |
V377= caddr((V329)); |
2655 |
V376= list(2,VV[155],(V326)); |
V378= list(2,VV[155],(V328)); |
2656 |
V377= (*(LnkLI324))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376); |
V379= (*(LnkLI324))(/* INLINE-ARGS */V377,/* INLINE-ARGS */V378); |
2657 |
bds_unwind1; |
bds_unwind1; |
2658 |
goto T1340; |
goto T1348; |
2659 |
T1340:; |
T1348:; |
2660 |
if((cadddr((V327)))==Cnil){ |
if((cadddr((V329)))==Cnil){ |
2661 |
goto T1380;} |
goto T1388;} |
2662 |
{object V378; |
{object V380; |
2663 |
V378= caddr((V327)); |
V380= caddr((V329)); |
2664 |
if(((V378))==Cnil){ |
if(((V380))==Cnil){ |
2665 |
goto T1386;} |
goto T1394;} |
2666 |
goto T1383; |
goto T1391; |
2667 |
goto T1386; |
goto T1394; |
2668 |
T1386:; |
T1394:; |
2669 |
{object V379; |
{object V381; |
2670 |
V379= cadr((V327)); |
V381= cadr((V329)); |
2671 |
if(((V379))==Cnil){ |
if(((V381))==Cnil){ |
2672 |
goto T1390;} |
goto T1398;} |
2673 |
goto T1383; |
goto T1391; |
2674 |
goto T1390; |
goto T1398; |
2675 |
T1390:; |
T1398:; |
2676 |
princ_str("\n narg= narg - ",VV[25]); |
princ_str("\n narg= narg - ",VV[25]); |
2677 |
V380 = make_fixnum((long)length(car((V327)))); |
V382 = make_fixnum((long)length(car((V329)))); |
2678 |
(void)((*(LnkLI274))(V380)); |
(void)((*(LnkLI274))(V382)); |
2679 |
princ_char(59,VV[25]);}} |
princ_char(59,VV[25]);}} |
2680 |
goto T1383; |
goto T1391; |
2681 |
T1383:; |
T1391:; |
2682 |
if(((V328))!=Cnil){ |
if(((V330))!=Cnil){ |
2683 |
goto T1395;} |
goto T1403;} |
2684 |
V328= Ct; |
V330= Ct; |
2685 |
princ_str("\n va_start(ap,first);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
|
goto T1395; |
|
|
T1395:; |
|
|
{object V381; |
|
|
object V382= car(cddddr((V327))); |
|
|
if(endp(V382)){ |
|
|
V324= Cnil; |
|
|
goto T1402;} |
|
|
base[7]=V381=MMcons(Cnil,Cnil); |
|
2686 |
goto T1403; |
goto T1403; |
2687 |
T1403:; |
T1403:; |
|
(V381->c.c_car)= caddr((V382->c.c_car)); |
|
|
V382=MMcdr(V382); |
|
|
if(endp(V382)){ |
|
|
V324= base[7]; |
|
|
goto T1402;} |
|
|
V381=MMcdr(V381)=MMcons(Cnil,Cnil); |
|
|
goto T1403;} |
|
|
goto T1402; |
|
|
T1402:; |
|
2688 |
{object V383; |
{object V383; |
2689 |
object V384; |
object V384= car(cddddr((V329))); |
2690 |
V384= make_fixnum((long)length(car(cddddr((V327))))); |
if(endp(V384)){ |
2691 |
V383= Cnil; |
V326= Cnil; |
2692 |
{register object V385; |
goto T1410;} |
2693 |
object V386; |
base[7]=V383=MMcons(Cnil,Cnil); |
|
object V387; |
|
|
V385= (V324); |
|
|
V386= car(cddddr((V327))); |
|
|
V387= car((V386)); |
|
2694 |
goto T1411; |
goto T1411; |
2695 |
T1411:; |
T1411:; |
2696 |
if(((V385))!=Cnil){ |
(V383->c.c_car)= caddr((V384->c.c_car)); |
2697 |
goto T1412;} |
V384=MMcdr(V384); |
2698 |
goto T1406; |
if(endp(V384)){ |
2699 |
goto T1412; |
V326= base[7]; |
2700 |
T1412:; |
goto T1410;} |
2701 |
if(!((caar((V385)))==(VV[172]))){ |
V383=MMcdr(V383)=MMcons(Cnil,Cnil); |
2702 |
goto T1417;} |
goto T1411;} |
2703 |
if((caddr(car((V385))))==(Cnil)){ |
goto T1410; |
2704 |
goto T1416;} |
T1410:; |
2705 |
goto T1417; |
{object V385; |
2706 |
T1417:; |
object V386; |
2707 |
V383= Ct; |
V386= make_fixnum((long)length(car(cddddr((V329))))); |
2708 |
goto T1416; |
V385= Cnil; |
2709 |
T1416:; |
{register object V387; |
2710 |
if(!((caar((V385)))==(VV[172]))){ |
object V388; |
2711 |
goto T1423;} |
object V389; |
2712 |
{object V388; |
V387= (V326); |
2713 |
V388= caddr(car((V385))); |
V388= car(cddddr((V329))); |
2714 |
if(!(((V388))==(Cnil))){ |
V389= car((V388)); |
2715 |
goto T1429;} |
goto T1419; |
2716 |
goto T1427; |
T1419:; |
2717 |
goto T1429; |
if(((V387))!=Cnil){ |
2718 |
T1429:; |
goto T1420;} |
2719 |
if(type_of((V388))==t_cons){ |
goto T1414; |
2720 |
|
goto T1420; |
2721 |
|
T1420:; |
2722 |
|
if(!((caar((V387)))==(VV[172]))){ |
2723 |
|
goto T1425;} |
2724 |
|
if((caddr(car((V387))))==(Cnil)){ |
2725 |
|
goto T1424;} |
2726 |
|
goto T1425; |
2727 |
|
T1425:; |
2728 |
|
V385= Ct; |
2729 |
|
goto T1424; |
2730 |
|
T1424:; |
2731 |
|
if(!((caar((V387)))==(VV[172]))){ |
2732 |
goto T1431;} |
goto T1431;} |
2733 |
goto T1423; |
{object V390; |
2734 |
|
V390= caddr(car((V387))); |
2735 |
|
if(!(((V390))==(Cnil))){ |
2736 |
|
goto T1437;} |
2737 |
|
goto T1435; |
2738 |
|
goto T1437; |
2739 |
|
T1437:; |
2740 |
|
if(type_of((V390))==t_cons){ |
2741 |
|
goto T1439;} |
2742 |
|
goto T1431; |
2743 |
|
goto T1439; |
2744 |
|
T1439:; |
2745 |
|
{register object x= car((V390)),V391= VV[173]; |
2746 |
|
while(!endp(V391)) |
2747 |
|
if(eql(x,V391->c.c_car)){ |
2748 |
|
goto T1435; |
2749 |
|
}else V391=V391->c.c_cdr; |
2750 |
|
goto T1431;}} |
2751 |
|
goto T1435; |
2752 |
|
T1435:; |
2753 |
|
V392= structure_ref(cadddr((V389)),VV[69],1); |
2754 |
|
if((/* INLINE-ARGS */V392)==(VV[174])){ |
2755 |
|
goto T1430;} |
2756 |
goto T1431; |
goto T1431; |
2757 |
T1431:; |
T1431:; |
2758 |
{register object x= car((V388)),V389= VV[173]; |
V385= Ct; |
2759 |
while(!endp(V389)) |
if(type_of(V387)!=t_cons)FEwrong_type_argument(Scons,V387); |
2760 |
if(eql(x,V389->c.c_car)){ |
(V387)->c.c_car = small_fixnum(0); |
2761 |
goto T1427; |
goto T1430; |
2762 |
}else V389=V389->c.c_cdr; |
T1430:; |
2763 |
goto T1423;}} |
V387= cdr((V387)); |
2764 |
goto T1427; |
V388= cdr((V388)); |
2765 |
T1427:; |
V389= car((V388)); |
2766 |
V390= structure_ref(cadddr((V387)),VV[69],1); |
goto T1419;} |
2767 |
if((/* INLINE-ARGS */V390)==(VV[174])){ |
goto T1414; |
2768 |
goto T1422;} |
T1414:; |
2769 |
goto T1423; |
if(!(((long)length((V326)))>(15))){ |
2770 |
T1423:; |
goto T1452;} |
2771 |
V383= Ct; |
V385= Ct; |
2772 |
if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385); |
goto T1452; |
2773 |
(V385)->c.c_car = small_fixnum(0); |
T1452:; |
|
goto T1422; |
|
|
T1422:; |
|
|
V385= cdr((V385)); |
|
|
V386= cdr((V386)); |
|
|
V387= car((V386)); |
|
|
goto T1411;} |
|
|
goto T1406; |
|
|
T1406:; |
|
|
if(!(((long)length((V324)))>(15))){ |
|
|
goto T1444;} |
|
|
V383= Ct; |
|
|
goto T1444; |
|
|
T1444:; |
|
2774 |
princ_str("\n {",VV[25]); |
princ_str("\n {",VV[25]); |
2775 |
vs_base=vs_top; |
vs_base=vs_top; |
2776 |
(void) (*Lnk327)(); |
(void) (*Lnk327)(); |
2777 |
vs_top=sup; |
vs_top=sup; |
2778 |
bds_bind(VV[25],symbol_value(VV[31])); |
bds_bind(VV[25],symbol_value(VV[31])); |
2779 |
if(((V383))==Cnil){ |
if(((V385))==Cnil){ |
2780 |
goto T1452;} |
goto T1460;} |
2781 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
2782 |
princ_str("static object VK",VV[25]); |
princ_str("static object VK",VV[25]); |
2783 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V321))); |
2784 |
princ_str("defaults[",VV[25]); |
princ_str("defaults[",VV[25]); |
2785 |
V393 = make_fixnum((long)length((V324))); |
V395 = make_fixnum((long)length((V326))); |
2786 |
(void)((*(LnkLI274))(V393)); |
(void)((*(LnkLI274))(V395)); |
2787 |
princ_str("]={",VV[25]); |
princ_str("]={",VV[25]); |
2788 |
{object V394; |
{object V396; |
2789 |
register object V395; |
register object V397; |
2790 |
V394= (V324); |
V396= (V326); |
2791 |
V395= Cnil; |
V397= Cnil; |
2792 |
goto T1464; |
goto T1472; |
2793 |
T1464:; |
T1472:; |
2794 |
if(((V394))!=Cnil){ |
if(((V396))!=Cnil){ |
|
goto T1465;} |
|
|
goto T1462; |
|
|
goto T1465; |
|
|
T1465:; |
|
|
princ_str("(void *)",VV[25]); |
|
|
if(!(eql(car((V394)),small_fixnum(0)))){ |
|
2795 |
goto T1473;} |
goto T1473;} |
2796 |
princ_str("-1",VV[25]); |
goto T1470; |
|
goto T1471; |
|
2797 |
goto T1473; |
goto T1473; |
2798 |
T1473:; |
T1473:; |
2799 |
V395= caddr(car((V394))); |
princ_str("(void *)",VV[25]); |
2800 |
if(!(((V395))==(Cnil))){ |
if(!(eql(car((V396)),small_fixnum(0)))){ |
2801 |
goto T1477;} |
goto T1481;} |
2802 |
|
princ_str("-1",VV[25]); |
2803 |
|
goto T1479; |
2804 |
|
goto T1481; |
2805 |
|
T1481:; |
2806 |
|
V397= caddr(car((V396))); |
2807 |
|
if(!(((V397))==(Cnil))){ |
2808 |
|
goto T1485;} |
2809 |
princ_str("-2",VV[25]); |
princ_str("-2",VV[25]); |
2810 |
goto T1471; |
goto T1479; |
2811 |
goto T1477; |
goto T1485; |
2812 |
T1477:; |
T1485:; |
2813 |
if(!(type_of((V395))==t_cons)){ |
if(!(type_of((V397))==t_cons)){ |
2814 |
goto T1482;} |
goto T1490;} |
2815 |
if(!((car((V395)))==(VV[175]))){ |
if(!((car((V397)))==(VV[175]))){ |
2816 |
goto T1482;} |
goto T1490;} |
2817 |
(void)((*(LnkLI274))(cadr((V395)))); |
(void)((*(LnkLI274))(cadr((V397)))); |
2818 |
goto T1471; |
goto T1479; |
2819 |
goto T1482; |
goto T1490; |
2820 |
T1482:; |
T1490:; |
2821 |
if(!(type_of((V395))==t_cons)){ |
if(!(type_of((V397))==t_cons)){ |
2822 |
goto T1488;} |
goto T1496;} |
2823 |
if(!((car((V395)))==(VV[176]))){ |
if(!((car((V397)))==(VV[176]))){ |
2824 |
goto T1488;} |
goto T1496;} |
2825 |
V396= (*(LnkLI328))(caddr((V395))); |
V398= (*(LnkLI328))(caddr((V397))); |
2826 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V396)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V398)); |
2827 |
goto T1471; |
goto T1479; |
2828 |
goto T1488; |
goto T1496; |
2829 |
T1488:; |
T1496:; |
2830 |
(void)((*(LnkLI329))()); |
(void)((*(LnkLI329))()); |
2831 |
goto T1471; |
goto T1479; |
2832 |
T1471:; |
T1479:; |
2833 |
if((cdr((V394)))==Cnil){ |
if((cdr((V396)))==Cnil){ |
2834 |
goto T1493;} |
goto T1501;} |
2835 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2836 |
goto T1493; |
goto T1501; |
2837 |
T1493:; |
T1501:; |
2838 |
V394= cdr((V394)); |
V396= cdr((V396)); |
2839 |
goto T1464;} |
goto T1472;} |
2840 |
goto T1462; |
goto T1470; |
2841 |
T1462:; |
T1470:; |
2842 |
princ_str("};",VV[25]); |
princ_str("};",VV[25]); |
2843 |
goto T1452; |
goto T1460; |
2844 |
T1452:; |
T1460:; |
2845 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
2846 |
princ_str("static struct { short n,allow_other_keys;",VV[25]); |
princ_str("static struct { short n,allow_other_keys;",VV[25]); |
2847 |
princ_str("object *defaults;",VV[25]); |
princ_str("object *defaults;",VV[25]); |
2848 |
princ_str("\n KEYTYPE keys[",VV[25]); |
princ_str("\n KEYTYPE keys[",VV[25]); |
2849 |
(void)((*(LnkLI274))((number_compare((V384),small_fixnum(1))>=0?((V384)):small_fixnum(1)))); |
(void)((*(LnkLI274))((number_compare((V386),small_fixnum(1))>=0?((V386)):small_fixnum(1)))); |
2850 |
princ_str("];",VV[25]); |
princ_str("];",VV[25]); |
2851 |
princ_str("} LI",VV[25]); |
princ_str("} LI",VV[25]); |
2852 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V321))); |
2853 |
princ_str("key=",VV[25]); |
princ_str("key=",VV[25]); |
2854 |
princ_char(123,VV[25]); |
princ_char(123,VV[25]); |
2855 |
V397 = make_fixnum((long)length(car(cddddr((V327))))); |
V399 = make_fixnum((long)length(car(cddddr((V329))))); |
2856 |
(void)((*(LnkLI274))(V397)); |
(void)((*(LnkLI274))(V399)); |
2857 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2858 |
if((cadr(cddddr((V327))))==Cnil){ |
if((cadr(cddddr((V329))))==Cnil){ |
2859 |
goto T1520;} |
goto T1528;} |
2860 |
V398= small_fixnum(1); |
V400= small_fixnum(1); |
2861 |
goto T1518; |
goto T1526; |
2862 |
goto T1520; |
goto T1528; |
2863 |
T1520:; |
T1528:; |
2864 |
V398= small_fixnum(0); |
V400= small_fixnum(0); |
2865 |
goto T1518; |
goto T1526; |
2866 |
T1518:; |
T1526:; |
2867 |
(void)((*(LnkLI274))(V398)); |
(void)((*(LnkLI274))(V400)); |
2868 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2869 |
if(((V383))==Cnil){ |
if(((V385))==Cnil){ |
2870 |
goto T1525;} |
goto T1533;} |
2871 |
princ_str("VK",VV[25]); |
princ_str("VK",VV[25]); |
2872 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V321))); |
2873 |
princ_str("defaults",VV[25]); |
princ_str("defaults",VV[25]); |
2874 |
goto T1523; |
goto T1531; |
2875 |
goto T1525; |
goto T1533; |
2876 |
T1525:; |
T1533:; |
2877 |
princ_str("Cstd_key_defaults",VV[25]); |
princ_str("Cstd_key_defaults",VV[25]); |
2878 |
goto T1523; |
goto T1531; |
2879 |
T1523:; |
T1531:; |
2880 |
if((car(cddddr((V327))))==Cnil){ |
if((car(cddddr((V329))))==Cnil){ |
2881 |
goto T1531;} |
goto T1539;} |
2882 |
princ_str(",{",VV[25]); |
princ_str(",{",VV[25]); |
2883 |
{object V399; |
{object V401; |
2884 |
V399= reverse(car(cddddr((V327)))); |
V401= reverse(car(cddddr((V329)))); |
2885 |
goto T1539; |
goto T1547; |
2886 |
T1539:; |
T1547:; |
2887 |
if(((V399))!=Cnil){ |
if(((V401))!=Cnil){ |
|
goto T1540;} |
|
|
goto T1536; |
|
|
goto T1540; |
|
|
T1540:; |
|
|
princ_str("(void *)",VV[25]); |
|
|
V400= (*(LnkLI330))(caar((V399))); |
|
|
(void)((*(LnkLI274))(/* INLINE-ARGS */V400)); |
|
|
if((cdr((V399)))==Cnil){ |
|
2888 |
goto T1548;} |
goto T1548;} |
2889 |
princ_char(44,VV[25]); |
goto T1544; |
2890 |
goto T1548; |
goto T1548; |
2891 |
T1548:; |
T1548:; |
2892 |
V399= cdr((V399)); |
princ_str("(void *)",VV[25]); |
2893 |
goto T1539;} |
V402= (*(LnkLI330))(caar((V401))); |
2894 |
goto T1536; |
(void)((*(LnkLI274))(/* INLINE-ARGS */V402)); |
2895 |
T1536:; |
if((cdr((V401)))==Cnil){ |
2896 |
|
goto T1556;} |
2897 |
|
princ_char(44,VV[25]); |
2898 |
|
goto T1556; |
2899 |
|
T1556:; |
2900 |
|
V401= cdr((V401)); |
2901 |
|
goto T1547;} |
2902 |
|
goto T1544; |
2903 |
|
T1544:; |
2904 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
2905 |
goto T1531; |
goto T1539; |
2906 |
T1531:; |
T1539:; |
2907 |
princ_str("};",VV[25]); |
princ_str("};",VV[25]); |
2908 |
bds_unwind1; |
bds_unwind1; |
2909 |
if((caddr((V327)))==Cnil){ |
if((caddr((V329)))==Cnil){ |
2910 |
goto T1559;} |
goto T1567;} |
2911 |
princ_str("\n parse_key_rest_new(",VV[25]); |
princ_str("\n parse_key_rest_new(",VV[25]); |
2912 |
V401= list(2,VV[155],(V326)); |
V403= list(2,VV[155],(V328)); |
2913 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V401)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V403)); |
2914 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2915 |
goto T1557; |
goto T1565; |
2916 |
goto T1559; |
goto T1567; |
2917 |
T1559:; |
T1567:; |
2918 |
princ_str("\n parse_key_new_new(",VV[25]); |
princ_str("\n parse_key_new_new(",VV[25]); |
|
goto T1557; |
|
|
T1557:; |
|
|
if(!(eql(small_fixnum(0),symbol_value(VV[141])))){ |
|
|
goto T1565;} |
|
|
setq(VV[141],small_fixnum(1)); |
|
2919 |
goto T1565; |
goto T1565; |
2920 |
T1565:; |
T1565:; |
2921 |
princ_str("narg,",VV[25]); |
if(!(eql(small_fixnum(0),symbol_value(VV[141])))){ |
|
if(((VV[153]->s.s_dbind))==Cnil){ |
|
2922 |
goto T1573;} |
goto T1573;} |
2923 |
V402= VV[177]; |
setq(VV[141],small_fixnum(1)); |
|
goto T1571; |
|
2924 |
goto T1573; |
goto T1573; |
2925 |
T1573:; |
T1573:; |
2926 |
V402= VV[178]; |
princ_str("narg,",VV[25]); |
2927 |
goto T1571; |
if(((VV[153]->s.s_dbind))==Cnil){ |
2928 |
T1571:; |
goto T1581;} |
2929 |
(void)((*(LnkLI274))(V402)); |
V404= VV[177]; |
2930 |
|
goto T1579; |
2931 |
|
goto T1581; |
2932 |
|
T1581:; |
2933 |
|
V404= VV[178]; |
2934 |
|
goto T1579; |
2935 |
|
T1579:; |
2936 |
|
(void)((*(LnkLI274))(V404)); |
2937 |
princ_char(43,VV[25]); |
princ_char(43,VV[25]); |
2938 |
(void)((*(LnkLI274))((V325))); |
(void)((*(LnkLI274))((V327))); |
2939 |
princ_str(",(struct key *)&LI",VV[25]); |
princ_str(",(struct key *)(void *)&LI",VV[25]); |
2940 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V321))); |
2941 |
princ_str("key,first,ap);",VV[25]);} |
princ_str("key,first,ap);",VV[25]);} |
2942 |
goto T1380; |
goto T1388; |
2943 |
T1380:; |
T1388:; |
2944 |
{object V403; |
{object V405; |
2945 |
register object V404; |
register object V406; |
2946 |
V403= car(cddddr((V327))); |
V405= car(cddddr((V329))); |
2947 |
V404= car((V403)); |
V406= car((V405)); |
2948 |
goto T1584; |
goto T1592; |
2949 |
T1584:; |
T1592:; |
2950 |
if(!(endp_prop((V403)))){ |
if(!(endp_prop((V405)))){ |
2951 |
goto T1585;} |
goto T1593;} |
2952 |
goto T1580; |
goto T1588; |
2953 |
goto T1585; |
goto T1593; |
2954 |
T1585:; |
T1593:; |
2955 |
{object V406; |
{object V408; |
2956 |
V406= car((V324)); |
V408= car((V326)); |
2957 |
V324= cdr((V324)); |
V326= cdr((V326)); |
2958 |
V405= (V406);} |
V407= (V408);} |
2959 |
if(eql(small_fixnum(0),V405)){ |
if(eql(small_fixnum(0),V407)){ |
2960 |
goto T1591;} |
goto T1599;} |
2961 |
(void)((*(LnkLI331))(cadr((V404)))); |
(void)((*(LnkLI331))(cadr((V406)))); |
2962 |
goto T1589; |
goto T1597; |
2963 |
goto T1591; |
goto T1599; |
2964 |
T1591:; |
T1599:; |
2965 |
princ_str("\n if(",VV[25]); |
princ_str("\n if(",VV[25]); |
2966 |
V407= structure_ref(cadr((V404)),VV[69],2); |
V409= structure_ref(cadr((V406)),VV[69],2); |
2967 |
(void)((*(LnkLI332))(/* INLINE-ARGS */V407)); |
(void)((*(LnkLI332))(/* INLINE-ARGS */V409)); |
2968 |
princ_str("==0){",VV[25]); |
princ_str("==0){",VV[25]); |
2969 |
bds_bind(VV[133],symbol_value(VV[133])); |
bds_bind(VV[133],symbol_value(VV[133])); |
2970 |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
2971 |
bds_bind(VV[132],symbol_value(VV[132])); |
bds_bind(VV[132],symbol_value(VV[132])); |
2972 |
V408= (*(LnkLI325))(cadr((V404)),caddr((V404))); |
V410= (*(LnkLI325))(cadr((V406)),caddr((V406))); |
2973 |
bds_unwind1; |
bds_unwind1; |
2974 |
bds_unwind1; |
bds_unwind1; |
2975 |
bds_unwind1; |
bds_unwind1; |
2976 |
V409= structure_ref(cadddr((V404)),VV[69],1); |
V411= structure_ref(cadddr((V406)),VV[69],1); |
2977 |
if((/* INLINE-ARGS */V409)==(VV[174])){ |
if((/* INLINE-ARGS */V411)==(VV[174])){ |
2978 |
goto T1603;} |
goto T1611;} |
2979 |
(void)((*(LnkLI324))(cadddr((V404)),Cnil)); |
(void)((*(LnkLI324))(cadddr((V406)),Cnil)); |
2980 |
goto T1603; |
goto T1611; |
2981 |
T1603:; |
T1611:; |
2982 |
princ_str("\n }else{",VV[25]); |
princ_str("\n }else{",VV[25]); |
2983 |
(void)((*(LnkLI331))(cadr((V404)))); |
(void)((*(LnkLI331))(cadr((V406)))); |
2984 |
V410= structure_ref(cadddr((V404)),VV[69],1); |
V412= structure_ref(cadddr((V406)),VV[69],1); |
2985 |
if((/* INLINE-ARGS */V410)==(VV[174])){ |
if((/* INLINE-ARGS */V412)==(VV[174])){ |
2986 |
goto T1609;} |
goto T1617;} |
2987 |
(void)((*(LnkLI324))(cadddr((V404)),Ct)); |
(void)((*(LnkLI324))(cadddr((V406)),Ct)); |
2988 |
goto T1609; |
goto T1617; |
2989 |
T1609:; |
T1617:; |
2990 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
2991 |
goto T1589; |
goto T1597; |
2992 |
T1589:; |
T1597:; |
2993 |
V403= cdr((V403)); |
V405= cdr((V405)); |
2994 |
V404= car((V403)); |
V406= car((V405)); |
2995 |
goto T1584;} |
goto T1592;} |
2996 |
goto T1580; |
goto T1588; |
2997 |
T1580:; |
T1588:; |
2998 |
if(((VV[146]->s.s_dbind))==Cnil){ |
if(((VV[146]->s.s_dbind))==Cnil){ |
2999 |
goto T1618;} |
goto T1626;} |
3000 |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
3001 |
princ_str("\n goto TTL;",VV[25]); |
princ_str("\n goto TTL;",VV[25]); |
3002 |
princ_str("\nTTL:;",VV[25]); |
princ_str("\nTTL:;",VV[25]); |
3003 |
goto T1618; |
goto T1626; |
3004 |
T1618:; |
T1626:; |
3005 |
base[7]= caddr(cddr((V320))); |
base[7]= caddr(cddr((V322))); |
3006 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3007 |
(void) (*Lnk318)(); |
(void) (*Lnk318)(); |
3008 |
vs_top=sup; |
vs_top=sup; |
3009 |
if(((V328))==Cnil){ |
if(((V330))==Cnil){ |
3010 |
goto T1628;} |
goto T1636;} |
3011 |
V328= Cnil; |
V330= Cnil; |
3012 |
princ_str("\n va_end(ap);",VV[25]); |
princ_str("\n va_end(ap);",VV[25]); |
3013 |
goto T1628; |
goto T1636; |
3014 |
T1628:; |
T1636:; |
3015 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3016 |
goto T1636;} |
goto T1644;} |
3017 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
3018 |
goto T1636;} |
goto T1644;} |
3019 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
3020 |
goto T1636;} |
goto T1644;} |
3021 |
goto T1634; |
goto T1642; |
3022 |
goto T1636; |
goto T1644; |
3023 |
T1636:; |
T1644:; |
3024 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
3025 |
goto T1634; |
goto T1642; |
3026 |
T1634:; |
T1642:; |
3027 |
princ_str("\n return Cnil;",VV[25]); |
princ_str("\n return Cnil;",VV[25]); |
3028 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
3029 |
if((base[1])==Cnil){ |
if((base[1])==Cnil){ |
3030 |
goto T1647;} |
goto T1655;} |
3031 |
princ_str("\n }",VV[25]); |
princ_str("\n }",VV[25]); |
3032 |
goto T1647; |
goto T1655; |
3033 |
T1647:; |
T1655:; |
3034 |
(void)((*(LnkLI333))()); |
(void)((*(LnkLI333))()); |
3035 |
V412= get((V318),VV[77],Cnil); |
V414= get((V320),VV[77],Cnil); |
3036 |
{object V413 = (*(LnkLI319))((V337),V412); |
{object V415 = (*(LnkLI319))((V339),V414); |
3037 |
bds_unwind1; |
bds_unwind1; |
3038 |
bds_unwind1; |
bds_unwind1; |
3039 |
bds_unwind1; |
bds_unwind1; |
3040 |
bds_unwind1; |
bds_unwind1; |
3041 |
VMR25(V413)}}} |
VMR25(V415)}}} |
3042 |
base[0]=base[0]; |
base[0]=base[0]; |
3043 |
return Cnil; |
return Cnil; |
3044 |
} |
} |
3045 |
/* local entry for function T3DEFUN-NORMAL */ |
/* local entry for function T3DEFUN-NORMAL */ |
3046 |
|
|
3047 |
static object LI27(V418,V419,V420,V421) |
static object LI27(V420,V421,V422,V423) |
3048 |
|
|
3049 |
object V418;register object V419;object V420;object V421; |
object V420;register object V421;object V422;object V423; |
3050 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
3051 |
goto TTL; |
goto TTL; |
3052 |
TTL:; |
TTL:; |
3053 |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[179],(V418)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[179],(V420)))); |
3054 |
if(!(type_of((V419))==t_fixnum|| |
if(!(type_of((V421))==t_fixnum|| |
3055 |
type_of((V419))==t_bignum|| |
type_of((V421))==t_bignum|| |
3056 |
type_of((V419))==t_ratio|| |
type_of((V421))==t_ratio|| |
3057 |
type_of((V419))==t_shortfloat|| |
type_of((V421))==t_shortfloat|| |
3058 |
type_of((V419))==t_longfloat|| |
type_of((V421))==t_longfloat|| |
3059 |
type_of((V419))==t_complex)){ |
type_of((V421))==t_complex)){ |
3060 |
goto T1656;} |
goto T1664;} |
3061 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
3062 |
(void)((*(LnkLI274))((V419))); |
(void)((*(LnkLI274))((V421))); |
3063 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3064 |
goto T1654; |
goto T1662; |
3065 |
goto T1656; |
goto T1664; |
3066 |
T1656:; |
T1664:; |
3067 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
3068 |
(void)((*(LnkLI274))((V419))); |
(void)((*(LnkLI274))((V421))); |
3069 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3070 |
goto T1654; |
goto T1662; |
3071 |
T1654:; |
T1662:; |
3072 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
3073 |
princ_str("register object *",VV[25]); |
princ_str("register object *",VV[25]); |
3074 |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3075 |
princ_str("base=vs_base;",VV[25]); |
princ_str("base=vs_base;",VV[25]); |
3076 |
V422= structure_ref(cadr((V420)),VV[62],1); |
V424= structure_ref(cadr((V422)),VV[62],1); |
3077 |
(void)((*(LnkLI317))(/* INLINE-ARGS */V422,(V419),VV[148])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V424,(V421),VV[148])); |
3078 |
princ_str("\n register object *",VV[25]); |
princ_str("\n register object *",VV[25]); |
3079 |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3080 |
princ_str("sup=base+VM",VV[25]); |
princ_str("sup=base+VM",VV[25]); |
3083 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
3084 |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
3085 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3086 |
goto T1681;} |
goto T1689;} |
3087 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
3088 |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
3089 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
3090 |
goto T1679; |
goto T1687; |
3091 |
goto T1681; |
goto T1689; |
3092 |
T1681:; |
T1689:; |
3093 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
|
goto T1679; |
|
|
T1679:; |
|
|
if(((V421))==Cnil){ |
|
|
goto T1687;} |
|
|
princ_str("\n bds_check;",VV[25]); |
|
3094 |
goto T1687; |
goto T1687; |
3095 |
T1687:; |
T1687:; |
3096 |
|
if(((V423))==Cnil){ |
3097 |
|
goto T1695;} |
3098 |
|
princ_str("\n bds_check;",VV[25]); |
3099 |
|
goto T1695; |
3100 |
|
T1695:; |
3101 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
3102 |
goto T1691;} |
goto T1699;} |
3103 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
3104 |
goto T1691; |
goto T1699; |
3105 |
T1691:; |
T1699:; |
3106 |
(void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V420)),caddr(cddr((V420))),(V418)))); |
(void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V422)),caddr(cddr((V422))),(V420)))); |
3107 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3108 |
{object V423; |
{object V425; |
3109 |
V423= make_cons(symbol_value(VV[136]),symbol_value(VV[130])); |
V425= make_cons(symbol_value(VV[136]),symbol_value(VV[130])); |
3110 |
setq(VV[33],make_cons((V423),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V425),symbol_value(VV[33])));} |
3111 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
3112 |
(void)((*(LnkLI277))(symbol_value(VV[136]))); |
(void)((*(LnkLI277))(symbol_value(VV[136]))); |
3113 |
{object V424 = (*(LnkLI335))(); |
{object V426 = (*(LnkLI335))(); |
3114 |
VMR26(V424)} |
VMR26(V426)} |
3115 |
base[0]=base[0]; |
base[0]=base[0]; |
3116 |
return Cnil; |
return Cnil; |
3117 |
} |
} |
3118 |
/* local entry for function WT-V*-MACROS */ |
/* local entry for function WT-V*-MACROS */ |
3119 |
|
|
3120 |
static object LI28(V427,V428) |
static object LI28(V429,V430) |
3121 |
|
|
3122 |
register object V427;object V428; |
register object V429;object V430; |
3123 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
3124 |
goto TTL; |
goto TTL; |
3125 |
TTL:; |
TTL:; |
3126 |
{object V429; |
{object V431; |
3127 |
V429= make_cons((V427),symbol_value(VV[130])); |
V431= make_cons((V429),symbol_value(VV[130])); |
3128 |
setq(VV[33],make_cons((V429),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V431),symbol_value(VV[33])));} |
3129 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3130 |
goto T1709;} |
goto T1717;} |
3131 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
3132 |
goto T1709;} |
goto T1717;} |
3133 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
3134 |
goto T1709;} |
goto T1717;} |
3135 |
princ_str("\n#define VMB",VV[31]); |
princ_str("\n#define VMB",VV[31]); |
3136 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3137 |
goto T1707; |
goto T1715; |
3138 |
goto T1709; |
goto T1717; |
3139 |
T1709:; |
T1717:; |
3140 |
princ_str("\n#define VMB",VV[31]); |
princ_str("\n#define VMB",VV[31]); |
3141 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3142 |
princ_char(32,VV[31]); |
princ_char(32,VV[31]); |
3143 |
princ_str("register object *",VV[31]); |
princ_str("register object *",VV[31]); |
3144 |
(void)((*(LnkLI277))(symbol_value(VV[20]))); |
(void)((*(LnkLI277))(symbol_value(VV[20]))); |
3145 |
princ_str("base=vs_top;",VV[31]); |
princ_str("base=vs_top;",VV[31]); |
3146 |
goto T1707; |
goto T1715; |
3147 |
T1707:; |
T1715:; |
3148 |
(void)((*(LnkLI335))()); |
(void)((*(LnkLI335))()); |
3149 |
if((symbol_value(VV[138]))==Cnil){ |
if((symbol_value(VV[138]))==Cnil){ |
3150 |
goto T1726;} |
goto T1734;} |
3151 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3152 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3153 |
princ_char(32,VV[31]); |
princ_char(32,VV[31]); |
3154 |
princ_str(" register object *",VV[31]); |
princ_str(" register object *",VV[31]); |
3155 |
(void)((*(LnkLI277))(symbol_value(VV[20]))); |
(void)((*(LnkLI277))(symbol_value(VV[20]))); |
3156 |
princ_str("sup=vs_top+",VV[31]); |
princ_str("sup=vs_top+",VV[31]); |
3157 |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3158 |
princ_str(";vs_top=sup;",VV[31]); |
princ_str(";vs_top=sup;",VV[31]); |
3159 |
goto T1724; |
goto T1732; |
3160 |
goto T1726; |
goto T1734; |
3161 |
T1726:; |
T1734:; |
3162 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3163 |
goto T1737;} |
goto T1745;} |
3164 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3165 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3166 |
goto T1724; |
goto T1732; |
3167 |
goto T1737; |
goto T1745; |
3168 |
T1737:; |
T1745:; |
3169 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3170 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3171 |
princ_str(" vs_top += ",VV[31]); |
princ_str(" vs_top += ",VV[31]); |
3172 |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3173 |
princ_char(59,VV[31]); |
princ_char(59,VV[31]); |
3174 |
goto T1724; |
goto T1732; |
3175 |
T1724:; |
T1732:; |
3176 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3177 |
goto T1748;} |
goto T1756;} |
3178 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3179 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3180 |
goto T1746; |
goto T1754; |
3181 |
goto T1748; |
goto T1756; |
3182 |
T1748:; |
T1756:; |
3183 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3184 |
goto T1753;} |
goto T1761;} |
3185 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3186 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3187 |
princ_str(" vs_reserve(",VV[31]); |
princ_str(" vs_reserve(",VV[31]); |
3188 |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3189 |
princ_str(");",VV[31]); |
princ_str(");",VV[31]); |
3190 |
goto T1746; |
goto T1754; |
3191 |
goto T1753; |
goto T1761; |
3192 |
T1753:; |
T1761:; |
3193 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3194 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3195 |
princ_str(" vs_check;",VV[31]); |
princ_str(" vs_check;",VV[31]); |
3196 |
goto T1746; |
goto T1754; |
3197 |
T1746:; |
T1754:; |
3198 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3199 |
goto T1764;} |
goto T1772;} |
3200 |
princ_str("\n#define VMR",VV[31]); |
princ_str("\n#define VMR",VV[31]); |
3201 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3202 |
princ_str("(VMT",VV[31]); |
princ_str("(VMT",VV[31]); |
3203 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3204 |
princ_str(") return(VMT",VV[31]); |
princ_str(") return(VMT",VV[31]); |
3205 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3206 |
princ_str(");",VV[31]); |
princ_str(");",VV[31]); |
3207 |
{object V430 = Cnil; |
{object V432 = Cnil; |
3208 |
VMR27(V430)} |
VMR27(V432)} |
3209 |
goto T1764; |
goto T1772; |
3210 |
T1764:; |
T1772:; |
3211 |
princ_str("\n#define VMR",VV[31]); |
princ_str("\n#define VMR",VV[31]); |
3212 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3213 |
princ_str("(VMT",VV[31]); |
princ_str("(VMT",VV[31]); |
3214 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3215 |
princ_str(") vs_top=base ; return(VMT",VV[31]); |
princ_str(") vs_top=base ; return(VMT",VV[31]); |
3216 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V429))); |
3217 |
princ_str(");",VV[31]); |
princ_str(");",VV[31]); |
3218 |
{object V431 = Cnil; |
{object V433 = Cnil; |
3219 |
VMR27(V431)} |
VMR27(V433)} |
3220 |
base[0]=base[0]; |
base[0]=base[0]; |
3221 |
return Cnil; |
return Cnil; |
3222 |
} |
} |
3223 |
/* local entry for function WT-REQUIREDS */ |
/* local entry for function WT-REQUIREDS */ |
3224 |
|
|
3225 |
static object LI29(V434,V435) |
static object LI29(V436,V437) |
3226 |
|
|
3227 |
object V434;object V435; |
object V436;object V437; |
3228 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
3229 |
goto TTL; |
goto TTL; |
3230 |
TTL:; |
TTL:; |
3231 |
{register object V436; |
{register object V438; |
3232 |
V436= (V434); |
V438= (V436); |
3233 |
goto T1782; |
goto T1790; |
3234 |
T1782:; |
T1790:; |
3235 |
if(!(endp_prop((V436)))){ |
if(!(endp_prop((V438)))){ |
3236 |
goto T1783;} |
goto T1791;} |
3237 |
goto T1780; |
goto T1788; |
3238 |
goto T1783; |
goto T1791; |
3239 |
T1783:; |
T1791:; |
3240 |
{register object V437; |
{register object V439; |
3241 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
3242 |
V437= symbol_value(VV[88]); |
V439= symbol_value(VV[88]); |
3243 |
(void)(structure_set(car((V436)),VV[69],4,(V437))); |
(void)(structure_set(car((V438)),VV[69],4,(V439))); |
3244 |
princ_char(86,VV[25]); |
princ_char(86,VV[25]); |
3245 |
(void)((*(LnkLI274))((V437)));} |
(void)((*(LnkLI274))((V439)));} |
3246 |
if(endp_prop(cdr((V436)))){ |
if(endp_prop(cdr((V438)))){ |
3247 |
goto T1793;} |
goto T1801;} |
3248 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
3249 |
goto T1793; |
goto T1801; |
3250 |
T1793:; |
T1801:; |
3251 |
V436= cdr((V436)); |
V438= cdr((V438)); |
3252 |
goto T1782;} |
goto T1790;} |
3253 |
goto T1780; |
goto T1788; |
3254 |
T1780:; |
T1788:; |
3255 |
princ_str(")\n",VV[25]); |
princ_str(")\n",VV[25]); |
3256 |
if(((V434))==Cnil){ |
if(((V436))==Cnil){ |
3257 |
goto T1803;} |
goto T1811;} |
3258 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
3259 |
{register object V438; |
{register object V440; |
3260 |
register object V439; |
register object V441; |
3261 |
register object V440; |
register object V442; |
3262 |
V438= (V434); |
V440= (V436); |
3263 |
V439= (V435); |
V441= (V437); |
3264 |
V440= Cnil; |
V442= Cnil; |
3265 |
goto T1807; |
goto T1815; |
3266 |
T1807:; |
T1815:; |
3267 |
if(!(endp_prop((V438)))){ |
if(!(endp_prop((V440)))){ |
3268 |
goto T1808;} |
goto T1816;} |
3269 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
3270 |
{object V441 = Cnil; |
{object V443 = Cnil; |
3271 |
VMR28(V441)} |
VMR28(V443)} |
3272 |
goto T1808; |
goto T1816; |
3273 |
T1808:; |
T1816:; |
3274 |
if(((V440))==Cnil){ |
if(((V442))==Cnil){ |
3275 |
goto T1813;} |
goto T1821;} |
3276 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
3277 |
goto T1813; |
goto T1821; |
3278 |
T1813:; |
T1821:; |
3279 |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3280 |
V442= (*(LnkLI336))(car((V438))); |
V444= (*(LnkLI336))(car((V440))); |
|
(void)((*(LnkLI274))(/* INLINE-ARGS */V442)); |
|
|
V443= (*(LnkLI280))(car((V439))); |
|
|
(void)((*(LnkLI274))(/* INLINE-ARGS */V443)); |
|
|
V440= car((V439)); |
|
|
princ_char(86,VV[25]); |
|
|
V444= structure_ref(car((V438)),VV[69],4); |
|
3281 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V444)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V444)); |
3282 |
V438= cdr((V438)); |
V445= (*(LnkLI280))(car((V441))); |
3283 |
V439= cdr((V439)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V445)); |
3284 |
goto T1807;} |
V442= car((V441)); |
3285 |
goto T1803; |
princ_char(86,VV[25]); |
3286 |
T1803:; |
V446= structure_ref(car((V440)),VV[69],4); |
3287 |
{object V445 = Cnil; |
(void)((*(LnkLI274))(/* INLINE-ARGS */V446)); |
3288 |
VMR28(V445)} |
V440= cdr((V440)); |
3289 |
|
V441= cdr((V441)); |
3290 |
|
goto T1815;} |
3291 |
|
goto T1811; |
3292 |
|
T1811:; |
3293 |
|
{object V447 = Cnil; |
3294 |
|
VMR28(V447)} |
3295 |
return Cnil; |
return Cnil; |
3296 |
} |
} |
3297 |
/* local entry for function ADD-DEBUG-INFO */ |
/* local entry for function ADD-DEBUG-INFO */ |
3298 |
|
|
3299 |
static object LI30(V448,V449) |
static object LI30(V450,V451) |
3300 |
|
|
3301 |
object V448;object V449; |
object V450;object V451; |
3302 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
3303 |
goto TTL; |
goto TTL; |
3304 |
TTL:; |
TTL:; |
3305 |
{object V450; |
{object V452; |
3306 |
V450= Cnil; |
V452= Cnil; |
3307 |
{object V451; |
{object V453; |
3308 |
V451= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil); |
V453= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil); |
3309 |
if(((V451))==Cnil){ |
if(((V453))==Cnil){ |
3310 |
goto T1833;} |
goto T1841;} |
3311 |
{object V452 = (V451); |
{object V454 = (V453); |
3312 |
VMR29(V452)} |
VMR29(V454)} |
3313 |
goto T1833; |
goto T1841; |
3314 |
T1833:; |
T1841:; |
3315 |
if((get((V448),VV[115],Cnil))!=Cnil){ |
if((get((V450),VV[115],Cnil))!=Cnil){ |
|
goto T1836;} |
|
|
{object V453 = (VFUN_NARGS=2,(*(LnkLI337))(VV[180],(V448))); |
|
|
VMR29(V453)} |
|
|
goto T1836; |
|
|
T1836:; |
|
|
(void)(remprop((V448),VV[115])); |
|
|
{register object V454; |
|
|
V454= small_fixnum(0); |
|
|
{register object V455; |
|
|
register object V456; |
|
|
V455= structure_ref(cadr((V449)),VV[62],1); |
|
|
V456= car((V455)); |
|
|
goto T1843; |
|
|
T1843:; |
|
|
if(!(endp_prop((V455)))){ |
|
3316 |
goto T1844;} |
goto T1844;} |
3317 |
goto T1839; |
{object V455 = (VFUN_NARGS=2,(*(LnkLI337))(VV[180],(V450))); |
3318 |
|
VMR29(V455)} |
3319 |
goto T1844; |
goto T1844; |
3320 |
T1844:; |
T1844:; |
3321 |
V457= structure_ref((V456),VV[69],2); |
(void)(remprop((V450),VV[115])); |
3322 |
if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){ |
{register object V456; |
3323 |
goto T1848;} |
V456= small_fixnum(0); |
3324 |
V458= structure_ref((V456),VV[69],2); |
{register object V457; |
3325 |
if(!(type_of(cdr(/* INLINE-ARGS */V458))==t_fixnum)){ |
register object V458; |
3326 |
goto T1848;} |
V457= structure_ref(cadr((V451)),VV[62],1); |
3327 |
V459= structure_ref((V456),VV[69],2); |
V458= car((V457)); |
3328 |
{object V460= cdr(/* INLINE-ARGS */V459); |
goto T1851; |
3329 |
V454= (number_compare((V454),V460)>=0?((V454)):V460);} |
T1851:; |
3330 |
goto T1848; |
if(!(endp_prop((V457)))){ |
3331 |
T1848:; |
goto T1852;} |
3332 |
V455= cdr((V455)); |
goto T1847; |
3333 |
V456= car((V455)); |
goto T1852; |
3334 |
goto T1843;} |
T1852:; |
3335 |
goto T1839; |
V459= structure_ref((V458),VV[69],2); |
3336 |
T1839:; |
if(!(type_of(/* INLINE-ARGS */V459)==t_cons)){ |
3337 |
base[0]= one_plus((V454)); |
goto T1856;} |
3338 |
|
V460= structure_ref((V458),VV[69],2); |
3339 |
|
if(!(type_of(cdr(/* INLINE-ARGS */V460))==t_fixnum)){ |
3340 |
|
goto T1856;} |
3341 |
|
V461= structure_ref((V458),VV[69],2); |
3342 |
|
{object V462= cdr(/* INLINE-ARGS */V461); |
3343 |
|
V456= (number_compare((V456),V462)>=0?((V456)):V462);} |
3344 |
|
goto T1856; |
3345 |
|
T1856:; |
3346 |
|
V457= cdr((V457)); |
3347 |
|
V458= car((V457)); |
3348 |
|
goto T1851;} |
3349 |
|
goto T1847; |
3350 |
|
T1847:; |
3351 |
|
base[0]= one_plus((V456)); |
3352 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3353 |
Lmake_list(); |
Lmake_list(); |
3354 |
vs_top=sup; |
vs_top=sup; |
3355 |
V450= vs_base[0]; |
V452= vs_base[0]; |
3356 |
{register object V461; |
{register object V463; |
3357 |
register object V462; |
register object V464; |
3358 |
V461= structure_ref(cadr((V449)),VV[62],1); |
V463= structure_ref(cadr((V451)),VV[62],1); |
3359 |
V462= car((V461)); |
V464= car((V463)); |
3360 |
goto T1866; |
goto T1874; |
3361 |
T1866:; |
T1874:; |
3362 |
if(!(endp_prop((V461)))){ |
if(!(endp_prop((V463)))){ |
3363 |
goto T1867;} |
goto T1875;} |
3364 |
goto T1862; |
goto T1870; |
3365 |
goto T1867; |
goto T1875; |
3366 |
T1867:; |
T1875:; |
3367 |
V463= structure_ref((V462),VV[69],2); |
V465= structure_ref((V464),VV[69],2); |
3368 |
if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){ |
if(!(type_of(/* INLINE-ARGS */V465)==t_cons)){ |
3369 |
goto T1871;} |
goto T1879;} |
3370 |
V464= structure_ref((V462),VV[69],2); |
V466= structure_ref((V464),VV[69],2); |
3371 |
if(!(type_of(cdr(/* INLINE-ARGS */V464))==t_fixnum)){ |
if(!(type_of(cdr(/* INLINE-ARGS */V466))==t_fixnum)){ |
3372 |
goto T1871;} |
goto T1879;} |
3373 |
{object V465; |
{object V467; |
3374 |
register object V467; |
register object V469; |
3375 |
V468= structure_ref((V462),VV[69],2); |
V470= structure_ref((V464),VV[69],2); |
3376 |
V465= cdr(/* INLINE-ARGS */V468); |
V467= cdr(/* INLINE-ARGS */V470); |
3377 |
V467= structure_ref((V462),VV[69],0); |
V469= structure_ref((V464),VV[69],0); |
3378 |
if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450)); |
if(type_of(nthcdr(fixint((V467)),V452))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V467)),V452)); |
3379 |
(nthcdr(fixint((V465)),V450))->c.c_car = (V467); |
(nthcdr(fixint((V467)),V452))->c.c_car = (V469); |
3380 |
(void)(nthcdr(fixint((V465)),V450));} |
(void)(nthcdr(fixint((V467)),V452));} |
3381 |
goto T1871; |
goto T1879; |
3382 |
T1871:; |
T1879:; |
3383 |
V461= cdr((V461)); |
V463= cdr((V463)); |
3384 |
V462= car((V461)); |
V464= car((V463)); |
3385 |
goto T1866;} |
goto T1874;} |
3386 |
goto T1862; |
goto T1870; |
3387 |
T1862:; |
T1870:; |
3388 |
(void)(sputprop((V448),VV[116],(V450))); |
(void)(sputprop((V450),VV[116],(V452))); |
3389 |
{object V469; |
{object V471; |
3390 |
V469= get((V448),VV[116],Cnil); |
V471= get((V450),VV[116],Cnil); |
3391 |
if(((V469))==Cnil){ |
if(((V471))==Cnil){ |
3392 |
goto T1887;} |
goto T1895;} |
3393 |
if((cdr((V469)))!=Cnil){ |
if((cdr((V471)))!=Cnil){ |
3394 |
goto T1886;} |
goto T1894;} |
3395 |
if((car((V469)))==Cnil){ |
if((car((V471)))==Cnil){ |
3396 |
goto T1887;} |
goto T1895;} |
3397 |
goto T1886; |
goto T1894; |
3398 |
T1886:; |
T1894:; |
3399 |
V470= list(2,VV[91],(V448)); |
V472= list(2,VV[91],(V450)); |
3400 |
V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469))); |
V473= list(3,VV[116],/* INLINE-ARGS */V472,list(2,VV[91],(V471))); |
3401 |
{object V472 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V471)); |
{object V474 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V473)); |
3402 |
VMR29(V472)} |
VMR29(V474)} |
3403 |
goto T1887; |
goto T1895; |
3404 |
T1887:; |
T1895:; |
3405 |
{object V473 = Cnil; |
{object V475 = Cnil; |
3406 |
VMR29(V473)}}}}} |
VMR29(V475)}}}}} |
3407 |
base[0]=base[0]; |
base[0]=base[0]; |
3408 |
return Cnil; |
return Cnil; |
3409 |
} |
} |
3410 |
/* local entry for function ANALYZE-REGS */ |
/* local entry for function ANALYZE-REGS */ |
3411 |
|
|
3412 |
static object LI31(V476,V477) |
static object LI31(V478,V479) |
3413 |
|
|
3414 |
object V476;object V477; |
object V478;object V479; |
3415 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
3416 |
goto TTL; |
goto TTL; |
3417 |
TTL:; |
TTL:; |
3418 |
{object V478; |
{object V480; |
3419 |
V478= number_minus(symbol_value(VV[181]),(V477)); |
V480= number_minus(symbol_value(VV[181]),(V479)); |
3420 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){ |
3421 |
goto T1895;} |
goto T1903;} |
3422 |
V479= (VFUN_NARGS=1,(*(LnkLI339))((V476))); |
V481= (VFUN_NARGS=1,(*(LnkLI339))((V478))); |
3423 |
{long V480 = (long)(*(LnkLI338))(/* INLINE-ARGS */V479,(V478)); |
{long V482 = (long)(*(LnkLI338))(/* INLINE-ARGS */V481,(V480)); |
3424 |
VMR30((object)V480)} |
VMR30((object)V482)} |
3425 |
goto T1895; |
goto T1903; |
3426 |
T1895:; |
T1903:; |
|
{register object V481; |
|
|
register object V482; |
|
|
V481= Cnil; |
|
|
V482= Cnil; |
|
3427 |
{register object V483; |
{register object V483; |
3428 |
register object V484; |
register object V484; |
3429 |
V483= (V476); |
V483= Cnil; |
3430 |
V484= car((V483)); |
V484= Cnil; |
3431 |
goto T1901; |
{register object V485; |
3432 |
T1901:; |
register object V486; |
3433 |
if(!(endp_prop((V483)))){ |
V485= (V478); |
3434 |
goto T1902;} |
V486= car((V485)); |
|
goto T1897; |
|
|
goto T1902; |
|
|
T1902:; |
|
|
V486= structure_ref((V484),VV[69],5); |
|
|
{register object x= /* INLINE-ARGS */V486,V485= VV[183]; |
|
|
while(!endp(V485)) |
|
|
if(x==(V485->c.c_car)){ |
|
3435 |
goto T1909; |
goto T1909; |
3436 |
}else V485=V485->c.c_cdr; |
T1909:; |
3437 |
goto T1908;} |
if(!(endp_prop((V485)))){ |
3438 |
goto T1909; |
goto T1910;} |
3439 |
T1909:;{object V487; |
goto T1905; |
|
{register object x= (V484),V488= (V482); |
|
|
while(!endp(V488)) |
|
|
if(eql(x,V488->c.c_car)){ |
|
|
V487= V488; |
|
|
goto T1911; |
|
|
}else V488=V488->c.c_cdr; |
|
|
V487= Cnil;} |
|
|
goto T1911; |
|
|
T1911:; |
|
|
if(V487==Cnil)goto T1910; |
|
|
goto T1906; |
|
3440 |
goto T1910; |
goto T1910; |
3441 |
T1910:;} |
T1910:; |
3442 |
{register object V489; |
V488= structure_ref((V486),VV[69],5); |
3443 |
V489= (V484); |
{register object x= /* INLINE-ARGS */V488,V487= VV[183]; |
3444 |
V482= make_cons((V489),(V482)); |
while(!endp(V487)) |
3445 |
goto T1906;} |
if(x==(V487->c.c_car)){ |
3446 |
goto T1908; |
goto T1917; |
3447 |
T1908:;{object V490; |
}else V487=V487->c.c_cdr; |
3448 |
{register object x= (V484),V491= (V481); |
goto T1916;} |
3449 |
while(!endp(V491)) |
goto T1917; |
3450 |
if(x==(V491->c.c_car)){ |
T1917:;{object V489; |
3451 |
V490= V491; |
{register object x= (V486),V490= (V484); |
3452 |
goto T1915; |
while(!endp(V490)) |
3453 |
}else V491=V491->c.c_cdr; |
if(eql(x,V490->c.c_car)){ |
3454 |
V490= Cnil;} |
V489= V490; |
3455 |
goto T1915; |
goto T1919; |
3456 |
T1915:; |
}else V490=V490->c.c_cdr; |
3457 |
if(V490==Cnil)goto T1914; |
V489= Cnil;} |
3458 |
goto T1906; |
goto T1919; |
3459 |
|
T1919:; |
3460 |
|
if(V489==Cnil)goto T1918; |
3461 |
|
goto T1914; |
3462 |
|
goto T1918; |
3463 |
|
T1918:;} |
3464 |
|
{register object V491; |
3465 |
|
V491= (V486); |
3466 |
|
V484= make_cons((V491),(V484)); |
3467 |
|
goto T1914;} |
3468 |
|
goto T1916; |
3469 |
|
T1916:;{object V492; |
3470 |
|
{register object x= (V486),V493= (V483); |
3471 |
|
while(!endp(V493)) |
3472 |
|
if(x==(V493->c.c_car)){ |
3473 |
|
V492= V493; |
3474 |
|
goto T1923; |
3475 |
|
}else V493=V493->c.c_cdr; |
3476 |
|
V492= Cnil;} |
3477 |
|
goto T1923; |
3478 |
|
T1923:; |
3479 |
|
if(V492==Cnil)goto T1922; |
3480 |
goto T1914; |
goto T1914; |
3481 |
T1914:;} |
goto T1922; |
3482 |
{register object V492; |
T1922:;} |
3483 |
V492= (V484); |
{register object V494; |
3484 |
V482= make_cons((V492),(V482));} |
V494= (V486); |
3485 |
goto T1906; |
V484= make_cons((V494),(V484));} |
3486 |
T1906:; |
goto T1914; |
3487 |
V483= cdr((V483)); |
T1914:; |
3488 |
V484= car((V483)); |
V485= cdr((V485)); |
3489 |
goto T1901;} |
V486= car((V485)); |
3490 |
goto T1897; |
goto T1909;} |
3491 |
T1897:; |
goto T1905; |
3492 |
(void)((*(LnkLI338))((V481),(V478))); |
T1905:; |
3493 |
{long V493 = (long)(*(LnkLI338))((V482),symbol_value(VV[182])); |
(void)((*(LnkLI338))((V483),(V480))); |
3494 |
VMR30((object)V493)}}} |
{long V495 = (long)(*(LnkLI338))((V484),symbol_value(VV[182])); |
3495 |
|
VMR30((object)V495)}}} |
3496 |
base[0]=base[0]; |
base[0]=base[0]; |
3497 |
} |
} |
3498 |
/* local entry for function ANALYZE-REGS1 */ |
/* local entry for function ANALYZE-REGS1 */ |
3499 |
|
|
3500 |
static object LI32(V496,V497) |
static object LI32(V498,V499) |
3501 |
|
|
3502 |
object V496;object V497; |
object V498;object V499; |
3503 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
3504 |
goto TTL; |
goto TTL; |
3505 |
TTL:; |
TTL:; |
3506 |
{register long V498; |
{register long V500; |
3507 |
register long V499; |
register long V501; |
3508 |
long V500; |
long V502; |
3509 |
long V501; |
long V503; |
3510 |
register long V502; |
register long V504; |
3511 |
V498= 0; |
V500= 0; |
3512 |
V499= 3; |
V501= 3; |
3513 |
V500= 100000; |
V502= 100000; |
3514 |
V501= fix((V497)); |
V503= fix((V499)); |
3515 |
V502= 0; |
V504= 0; |
3516 |
V496= (VFUN_NARGS=1,(*(LnkLI339))((V496))); |
V498= (VFUN_NARGS=1,(*(LnkLI339))((V498))); |
3517 |
goto T1932; |
goto T1940; |
3518 |
T1932:; |
T1940:; |
|
{register object V503; |
|
|
object V504; |
|
|
V503= (V496); |
|
|
V504= car((V503)); |
|
|
goto T1938; |
|
|
T1938:; |
|
|
if(!(endp_prop((V503)))){ |
|
|
goto T1939;} |
|
|
goto T1934; |
|
|
goto T1939; |
|
|
T1939:; |
|
|
V498= fix(structure_ref((V504),VV[69],6)); |
|
|
if(!((V498)>=(V499))){ |
|
|
goto T1945;} |
|
|
V502= (long)(V502)+(1); |
|
|
if(!((V498)<(V500))){ |
|
|
goto T1950;} |
|
|
V500= V498; |
|
|
goto T1950; |
|
|
T1950:; |
|
|
if(!((V502)>(V501))){ |
|
|
goto T1945;} |
|
|
goto T1933; |
|
|
goto T1945; |
|
|
T1945:; |
|
|
V503= cdr((V503)); |
|
|
V504= car((V503)); |
|
|
goto T1938;} |
|
|
goto T1934; |
|
|
T1934:; |
|
|
if(!((V502)<(V501))){ |
|
|
goto T1961;} |
|
|
V499= (long)(V499)-(1); |
|
|
goto T1961; |
|
|
T1961:; |
|
3519 |
{register object V505; |
{register object V505; |
3520 |
register object V506; |
object V506; |
3521 |
V505= (V496); |
V505= (V498); |
3522 |
V506= car((V505)); |
V506= car((V505)); |
3523 |
goto T1969; |
goto T1946; |
3524 |
T1969:; |
T1946:; |
3525 |
if(!(endp_prop((V505)))){ |
if(!(endp_prop((V505)))){ |
3526 |
goto T1970;} |
goto T1947;} |
3527 |
goto T1965; |
goto T1942; |
3528 |
goto T1970; |
goto T1947; |
3529 |
T1970:; |
T1947:; |
3530 |
{long V507= fix(structure_ref((V506),VV[69],6)); |
V500= fix(structure_ref((V506),VV[69],6)); |
3531 |
if(!((/* INLINE-ARGS */V507)<(V499))){ |
if(!((V500)>=(V501))){ |
3532 |
goto T1974;}} |
goto T1953;} |
3533 |
(void)(structure_set((V506),VV[69],6,small_fixnum(0))); |
V504= (long)(V504)+(1); |
3534 |
goto T1974; |
if(!((V500)<(V502))){ |
3535 |
T1974:; |
goto T1958;} |
3536 |
|
V502= V500; |
3537 |
|
goto T1958; |
3538 |
|
T1958:; |
3539 |
|
if(!((V504)>(V503))){ |
3540 |
|
goto T1953;} |
3541 |
|
goto T1941; |
3542 |
|
goto T1953; |
3543 |
|
T1953:; |
3544 |
V505= cdr((V505)); |
V505= cdr((V505)); |
3545 |
V506= car((V505)); |
V506= car((V505)); |
3546 |
|
goto T1946;} |
3547 |
|
goto T1942; |
3548 |
|
T1942:; |
3549 |
|
if(!((V504)<(V503))){ |
3550 |
goto T1969;} |
goto T1969;} |
3551 |
goto T1965; |
V501= (long)(V501)-(1); |
3552 |
T1965:; |
goto T1969; |
3553 |
{long V508 = V499; |
T1969:; |
3554 |
VMR31((object)V508)} |
{register object V507; |
3555 |
goto T1933; |
register object V508; |
3556 |
T1933:; |
V507= (V498); |
3557 |
V502= 0; |
V508= car((V507)); |
3558 |
V499= (long)(V500)+(1); |
goto T1977; |
3559 |
V500= 1000000; |
T1977:; |
3560 |
goto T1932;} |
if(!(endp_prop((V507)))){ |
3561 |
|
goto T1978;} |
3562 |
|
goto T1973; |
3563 |
|
goto T1978; |
3564 |
|
T1978:; |
3565 |
|
{long V509= fix(structure_ref((V508),VV[69],6)); |
3566 |
|
if(!((/* INLINE-ARGS */V509)<(V501))){ |
3567 |
|
goto T1982;}} |
3568 |
|
(void)(structure_set((V508),VV[69],6,small_fixnum(0))); |
3569 |
|
goto T1982; |
3570 |
|
T1982:; |
3571 |
|
V507= cdr((V507)); |
3572 |
|
V508= car((V507)); |
3573 |
|
goto T1977;} |
3574 |
|
goto T1973; |
3575 |
|
T1973:; |
3576 |
|
{long V510 = V501; |
3577 |
|
VMR31((object)V510)} |
3578 |
|
goto T1941; |
3579 |
|
T1941:; |
3580 |
|
V504= 0; |
3581 |
|
V501= (long)(V502)+(1); |
3582 |
|
V502= 1000000; |
3583 |
|
goto T1940;} |
3584 |
base[0]=base[0]; |
base[0]=base[0]; |
3585 |
} |
} |
3586 |
/* local entry for function WT-GLOBAL-ENTRY */ |
/* local entry for function WT-GLOBAL-ENTRY */ |
3587 |
|
|
3588 |
static object LI33(V513,V514,V515,V516) |
static object LI33(V515,V516,V517,V518) |
3589 |
|
|
3590 |
object V513;object V514;object V515;object V516; |
object V515;object V516;object V517;object V518; |
3591 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
3592 |
goto TTL; |
goto TTL; |
3593 |
TTL:; |
TTL:; |
3594 |
if((get((V513),VV[102],Cnil))==Cnil){ |
if((get((V515),VV[102],Cnil))==Cnil){ |
3595 |
goto T1989;} |
goto T1997;} |
3596 |
{object V517 = Cnil; |
{object V519 = Cnil; |
3597 |
VMR32(V517)} |
VMR32(V519)} |
3598 |
goto T1989; |
goto T1997; |
3599 |
T1989:; |
T1997:; |
3600 |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[186],(V513)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[186],(V515)))); |
3601 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
3602 |
(void)((*(LnkLI274))((V514))); |
(void)((*(LnkLI274))((V516))); |
3603 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3604 |
princ_str("\n{ register object *base=vs_base;",VV[25]); |
princ_str("\n{ register object *base=vs_base;",VV[25]); |
3605 |
if((symbol_value(VV[163]))!=Cnil){ |
if((symbol_value(VV[163]))!=Cnil){ |
3606 |
goto T2000;} |
goto T2008;} |
3607 |
if((symbol_value(VV[164]))==Cnil){ |
if((symbol_value(VV[164]))==Cnil){ |
3608 |
goto T1999;} |
goto T2007;} |
3609 |
goto T2000; |
goto T2008; |
3610 |
T2000:; |
T2008:; |
3611 |
princ_str("\n check_arg(",VV[25]); |
princ_str("\n check_arg(",VV[25]); |
3612 |
V518 = make_fixnum((long)length((V515))); |
V520 = make_fixnum((long)length((V517))); |
3613 |
(void)((*(LnkLI274))(V518)); |
(void)((*(LnkLI274))(V520)); |
3614 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
3615 |
goto T1999; |
goto T2007; |
3616 |
T1999:; |
T2007:; |
3617 |
princ_str("\n base[0]=",VV[25]); |
princ_str("\n base[0]=",VV[25]); |
3618 |
{object V520= (V516); |
{object V522= (V518); |
3619 |
if((V520!= VV[89]))goto T2011; |
if((V522!= VV[89]))goto T2019; |
3620 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
3621 |
goto T2013;} |
goto T2021;} |
3622 |
V519= VV[187]; |
V521= VV[187]; |
3623 |
goto T2010; |
goto T2018; |
3624 |
goto T2013; |
goto T2021; |
3625 |
T2013:; |
T2021:; |
3626 |
V519= VV[188]; |
V521= VV[188]; |
3627 |
goto T2010; |
goto T2018; |
3628 |
goto T2011; |
goto T2019; |
3629 |
T2011:; |
T2019:; |
3630 |
if((V520!= VV[142]))goto T2015; |
if((V522!= VV[142]))goto T2023; |
3631 |
V519= VV[189]; |
V521= VV[189]; |
3632 |
goto T2010; |
goto T2018; |
3633 |
goto T2015; |
goto T2023; |
3634 |
T2015:; |
T2023:; |
3635 |
if((V520!= VV[143]))goto T2016; |
if((V522!= VV[143]))goto T2024; |
3636 |
V519= VV[190]; |
V521= VV[190]; |
3637 |
goto T2010; |
goto T2018; |
|
goto T2016; |
|
|
T2016:; |
|
|
if((V520!= VV[144]))goto T2017; |
|
|
V519= VV[191]; |
|
|
goto T2010; |
|
|
goto T2017; |
|
|
T2017:; |
|
|
V519= VV[192];} |
|
|
goto T2010; |
|
|
T2010:; |
|
|
(void)((*(LnkLI274))(V519)); |
|
|
princ_str("(LI",VV[25]); |
|
|
(void)((*(LnkLI274))((V514))); |
|
|
princ_char(40,VV[25]); |
|
|
{register object V521; |
|
|
register long V522; |
|
|
V522= 0; |
|
|
V521= (V515); |
|
3638 |
goto T2024; |
goto T2024; |
3639 |
T2024:; |
T2024:; |
3640 |
if(!(endp_prop((V521)))){ |
if((V522!= VV[144]))goto T2025; |
3641 |
goto T2025;} |
V521= VV[191]; |
3642 |
goto T2021; |
goto T2018; |
3643 |
goto T2025; |
goto T2025; |
3644 |
T2025:; |
T2025:; |
3645 |
{object V524= car((V521)); |
V521= VV[192];} |
3646 |
if((V524!= VV[89]))goto T2032; |
goto T2018; |
3647 |
V523= VV[193]; |
T2018:; |
3648 |
goto T2031; |
(void)((*(LnkLI274))(V521)); |
3649 |
|
princ_str("(LI",VV[25]); |
3650 |
|
(void)((*(LnkLI274))((V516))); |
3651 |
|
princ_char(40,VV[25]); |
3652 |
|
{register object V523; |
3653 |
|
register long V524; |
3654 |
|
V524= 0; |
3655 |
|
V523= (V517); |
3656 |
goto T2032; |
goto T2032; |
3657 |
T2032:; |
T2032:; |
3658 |
if((V524!= VV[142]))goto T2033; |
if(!(endp_prop((V523)))){ |
3659 |
V523= VV[194]; |
goto T2033;} |
3660 |
goto T2031; |
goto T2029; |
3661 |
goto T2033; |
goto T2033; |
3662 |
T2033:; |
T2033:; |
3663 |
if((V524!= VV[143]))goto T2034; |
{object V526= car((V523)); |
3664 |
V523= VV[195]; |
if((V526!= VV[89]))goto T2040; |
3665 |
goto T2031; |
V525= VV[193]; |
3666 |
goto T2034; |
goto T2039; |
3667 |
T2034:; |
goto T2040; |
3668 |
if((V524!= VV[144]))goto T2035; |
T2040:; |
3669 |
V523= VV[196]; |
if((V526!= VV[142]))goto T2041; |
3670 |
goto T2031; |
V525= VV[194]; |
3671 |
goto T2035; |
goto T2039; |
3672 |
T2035:; |
goto T2041; |
3673 |
V523= VV[197];} |
T2041:; |
3674 |
goto T2031; |
if((V526!= VV[143]))goto T2042; |
3675 |
T2031:; |
V525= VV[195]; |
3676 |
(void)((*(LnkLI274))(V523)); |
goto T2039; |
3677 |
princ_str("(base[",VV[25]); |
goto T2042; |
3678 |
V525 = make_fixnum(V522); |
T2042:; |
3679 |
|
if((V526!= VV[144]))goto T2043; |
3680 |
|
V525= VV[196]; |
3681 |
|
goto T2039; |
3682 |
|
goto T2043; |
3683 |
|
T2043:; |
3684 |
|
V525= VV[197];} |
3685 |
|
goto T2039; |
3686 |
|
T2039:; |
3687 |
(void)((*(LnkLI274))(V525)); |
(void)((*(LnkLI274))(V525)); |
3688 |
|
princ_str("(base[",VV[25]); |
3689 |
|
V527 = make_fixnum(V524); |
3690 |
|
(void)((*(LnkLI274))(V527)); |
3691 |
princ_str("])",VV[25]); |
princ_str("])",VV[25]); |
3692 |
if(endp_prop(cdr((V521)))){ |
if(endp_prop(cdr((V523)))){ |
3693 |
goto T2039;} |
goto T2047;} |
3694 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
3695 |
goto T2039; |
goto T2047; |
3696 |
T2039:; |
T2047:; |
3697 |
V521= cdr((V521)); |
V523= cdr((V523)); |
3698 |
V522= (long)(V522)+1; |
V524= (long)(V524)+1; |
3699 |
goto T2024;} |
goto T2032;} |
3700 |
goto T2021; |
goto T2029; |
3701 |
T2021:; |
T2029:; |
3702 |
princ_str("));",VV[25]); |
princ_str("));",VV[25]); |
3703 |
princ_str("\n vs_top=(vs_base=base)+1;",VV[25]); |
princ_str("\n vs_top=(vs_base=base)+1;",VV[25]); |
3704 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3705 |
{object V526 = Cnil; |
{object V528 = Cnil; |
3706 |
VMR32(V526)} |
VMR32(V528)} |
3707 |
return Cnil; |
return Cnil; |
3708 |
} |
} |
3709 |
/* local entry for function REP-TYPE */ |
/* local entry for function REP-TYPE */ |
3710 |
|
|
3711 |
static object LI34(V528) |
static object LI34(V530) |
3712 |
|
|
3713 |
object V528; |
object V530; |
3714 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
3715 |
goto TTL; |
goto TTL; |
3716 |
TTL:; |
TTL:; |
3717 |
{object V529= (V528); |
{object V531= (V530); |
3718 |
if((V529!= VV[89]))goto T2052; |
if((V531!= VV[89]))goto T2060; |
3719 |
{object V530 = VV[198]; |
{object V532 = VV[198]; |
|
VMR33(V530)} |
|
|
goto T2052; |
|
|
T2052:; |
|
|
if((V529!= VV[261]))goto T2053; |
|
|
{object V531 = VV[199]; |
|
|
VMR33(V531)} |
|
|
goto T2053; |
|
|
T2053:; |
|
|
if((V529!= VV[142]))goto T2054; |
|
|
{object V532 = VV[200]; |
|
3720 |
VMR33(V532)} |
VMR33(V532)} |
3721 |
goto T2054; |
goto T2060; |
3722 |
T2054:; |
T2060:; |
3723 |
if((V529!= VV[144]))goto T2055; |
if((V531!= VV[261]))goto T2061; |
3724 |
{object V533 = VV[201]; |
{object V533 = VV[199]; |
3725 |
VMR33(V533)} |
VMR33(V533)} |
3726 |
goto T2055; |
goto T2061; |
3727 |
T2055:; |
T2061:; |
3728 |
if((V529!= VV[143]))goto T2056; |
if((V531!= VV[142]))goto T2062; |
3729 |
{object V534 = VV[202]; |
{object V534 = VV[200]; |
3730 |
VMR33(V534)} |
VMR33(V534)} |
3731 |
goto T2056; |
goto T2062; |
3732 |
T2056:; |
T2062:; |
3733 |
{object V535 = VV[203]; |
if((V531!= VV[144]))goto T2063; |
3734 |
VMR33(V535)}} |
{object V535 = VV[201]; |
3735 |
|
VMR33(V535)} |
3736 |
|
goto T2063; |
3737 |
|
T2063:; |
3738 |
|
if((V531!= VV[143]))goto T2064; |
3739 |
|
{object V536 = VV[202]; |
3740 |
|
VMR33(V536)} |
3741 |
|
goto T2064; |
3742 |
|
T2064:; |
3743 |
|
{object V537 = VV[203]; |
3744 |
|
VMR33(V537)}} |
3745 |
return Cnil; |
return Cnil; |
3746 |
} |
} |
3747 |
/* local entry for function T1DEFMACRO */ |
/* local entry for function T1DEFMACRO */ |
3748 |
|
|
3749 |
static object LI35(V537) |
static object LI35(V539) |
3750 |
|
|
3751 |
register object V537; |
register object V539; |
3752 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
3753 |
bds_check; |
bds_check; |
3754 |
goto TTL; |
goto TTL; |
3755 |
TTL:; |
TTL:; |
3756 |
if(endp_prop((V537))){ |
if(endp_prop((V539))){ |
3757 |
goto T2058;} |
goto T2066;} |
3758 |
if(!(endp_prop(cdr((V537))))){ |
if(!(endp_prop(cdr((V539))))){ |
3759 |
goto T2057;} |
goto T2065;} |
3760 |
goto T2058; |
goto T2066; |
3761 |
T2058:; |
T2066:; |
3762 |
V538 = make_fixnum((long)length((V537))); |
V540 = make_fixnum((long)length((V539))); |
3763 |
(void)((*(LnkLI283))(VV[204],small_fixnum(2),V538)); |
(void)((*(LnkLI283))(VV[204],small_fixnum(2),V540)); |
3764 |
goto T2057; |
goto T2065; |
3765 |
T2057:; |
T2065:; |
3766 |
if(type_of(car((V537)))==t_symbol){ |
if(type_of(car((V539)))==t_symbol){ |
3767 |
goto T2062;} |
goto T2070;} |
3768 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V539))))); |
3769 |
goto T2062; |
goto T2070; |
3770 |
T2062:; |
T2070:; |
3771 |
V539= make_cons(VV[204],(V537)); |
V541= make_cons(VV[204],(V539)); |
3772 |
(void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539)); |
(void)((*(LnkLI268))(Ct,/* INLINE-ARGS */V541)); |
3773 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
3774 |
{register object V540; |
{register object V542; |
3775 |
object V541; |
object V543; |
3776 |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
3777 |
V541= symbol_value(VV[61]); |
V543= symbol_value(VV[61]); |
3778 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
3779 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
3780 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
3781 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
3782 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
3783 |
bds_bind(VV[59],Cnil); |
bds_bind(VV[59],Cnil); |
3784 |
V540= Cnil; |
V542= Cnil; |
3785 |
V540= (*(LnkLI340))(car((V537)),cadr((V537)),cddr((V537))); |
V542= (*(LnkLI340))(car((V539)),cadr((V539)),cddr((V539))); |
3786 |
(void)((*(LnkLI296))()); |
(void)((*(LnkLI296))()); |
3787 |
{object V542; |
{object V544; |
3788 |
V542= list(7,VV[204],car((V537)),(V541),cddr((V540)),car((V540)),cadr((V540)),(VV[59]->s.s_dbind)); |
V544= list(7,VV[204],car((V539)),(V543),cddr((V542)),car((V542)),cadr((V542)),(VV[59]->s.s_dbind)); |
3789 |
setq(VV[24],make_cons((V542),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V544),symbol_value(VV[24]))); |
3790 |
{object V543 = symbol_value(VV[24]); |
{object V545 = symbol_value(VV[24]); |
3791 |
bds_unwind1; |
bds_unwind1; |
3792 |
bds_unwind1; |
bds_unwind1; |
3793 |
bds_unwind1; |
bds_unwind1; |
3794 |
bds_unwind1; |
bds_unwind1; |
3795 |
bds_unwind1; |
bds_unwind1; |
3796 |
bds_unwind1; |
bds_unwind1; |
3797 |
VMR34(V543)}}} |
VMR34(V545)}}} |
3798 |
base[0]=base[0]; |
base[0]=base[0]; |
3799 |
return Cnil; |
return Cnil; |
3800 |
} |
} |
3801 |
/* local entry for function T2DEFMACRO */ |
/* local entry for function T2DEFMACRO */ |
3802 |
|
|
3803 |
static object LI36(V550,V551,V552,V553,V554,V555) |
static object LI36(V552,V553,V554,V555,V556,V557) |
3804 |
|
|
3805 |
object V550;object V551;object V552;object V553;object V554;object V555; |
object V552;object V553;object V554;object V555;object V556;object V557; |
3806 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
3807 |
goto TTL; |
goto TTL; |
3808 |
TTL:; |
TTL:; |
3809 |
if(((V553))==Cnil){ |
if(((V555))==Cnil){ |
3810 |
goto T2075;} |
goto T2083;} |
3811 |
V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]); |
V558= list(4,VV[103],list(2,VV[91],(V552)),(V555),VV[206]); |
|
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V556))); |
|
|
goto T2075; |
|
|
T2075:; |
|
|
if(((V554))==Cnil){ |
|
|
goto T2078;} |
|
|
V557= list(2,VV[91],(V550)); |
|
|
V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]); |
|
3812 |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V558))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V558))); |
3813 |
goto T2078; |
goto T2083; |
3814 |
T2078:; |
T2083:; |
3815 |
|
if(((V556))==Cnil){ |
3816 |
|
goto T2086;} |
3817 |
|
V559= list(2,VV[91],(V552)); |
3818 |
|
V560= list(4,VV[103],/* INLINE-ARGS */V559,list(2,VV[91],(V556)),VV[207]); |
3819 |
|
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V560))); |
3820 |
|
goto T2086; |
3821 |
|
T2086:; |
3822 |
princ_str("\nstatic void L",VV[31]); |
princ_str("\nstatic void L",VV[31]); |
3823 |
(void)((*(LnkLI277))((V551))); |
(void)((*(LnkLI277))((V553))); |
3824 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
3825 |
V559= list(2,VV[91],(V550)); |
V561= list(2,VV[91],(V552)); |
3826 |
V560= list(3,VV[208],/* INLINE-ARGS */V559,(*(LnkLI304))(VV[209],(V551))); |
V562= list(3,VV[208],/* INLINE-ARGS */V561,(*(LnkLI304))(VV[209],(V553))); |
3827 |
{object V561 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V560)); |
{object V563 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V562)); |
3828 |
VMR35(V561)} |
VMR35(V563)} |
3829 |
return Cnil; |
return Cnil; |
3830 |
} |
} |
3831 |
/* local entry for function T3DEFMACRO */ |
/* local entry for function T3DEFMACRO */ |
3832 |
|
|
3833 |
static object LI37(V568,V569,V570,V571,V572,V573) |
static object LI37(V570,V571,V572,V573,V574,V575) |
3834 |
|
|
3835 |
object V568;object V569;register object V570;object V571;object V572;object V573; |
object V570;object V571;register object V572;object V573;object V574;object V575; |
3836 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
3837 |
bds_check; |
bds_check; |
3838 |
goto TTL; |
goto TTL; |
3839 |
TTL:; |
TTL:; |
3840 |
if((get((V568),VV[210],Cnil))==Cnil){ |
if((get((V570),VV[210],Cnil))==Cnil){ |
3841 |
goto T2087;} |
goto T2095;} |
3842 |
bds_bind(VV[20],VV[211]); |
bds_bind(VV[20],VV[211]); |
3843 |
goto T2085; |
goto T2093; |
3844 |
goto T2087; |
goto T2095; |
3845 |
T2087:; |
T2095:; |
3846 |
bds_bind(VV[20],VV[212]); |
bds_bind(VV[20],VV[212]); |
3847 |
goto T2085; |
goto T2093; |
3848 |
T2085:; |
T2093:; |
3849 |
bds_bind(VV[128],VV[127]); |
bds_bind(VV[128],VV[127]); |
3850 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
3851 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
3861 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
3862 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
3863 |
bds_bind(VV[141],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
3864 |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[213],(V568)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[213],(V570)))); |
3865 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
3866 |
(void)((*(LnkLI274))((V569))); |
(void)((*(LnkLI274))((V571))); |
3867 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3868 |
princ_str("\n{register object *",VV[25]); |
princ_str("\n{register object *",VV[25]); |
3869 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
3870 |
princ_str("base=vs_base;",VV[25]); |
princ_str("base=vs_base;",VV[25]); |
3871 |
V574= structure_ref(car(cddddr((V570))),VV[62],1); |
V576= structure_ref(car(cddddr((V572))),VV[62],1); |
3872 |
(void)((*(LnkLI317))(/* INLINE-ARGS */V574,(V569),VV[148])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V576,(V571),VV[148])); |
3873 |
princ_str("\n register object *",VV[25]); |
princ_str("\n register object *",VV[25]); |
3874 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
3875 |
princ_str("sup=base+VM",VV[25]); |
princ_str("sup=base+VM",VV[25]); |
3878 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
3879 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
3880 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3881 |
goto T2113;} |
goto T2121;} |
3882 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
3883 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
3884 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
3885 |
goto T2111; |
goto T2119; |
3886 |
goto T2113; |
goto T2121; |
3887 |
T2113:; |
T2121:; |
3888 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
|
goto T2111; |
|
|
T2111:; |
|
|
if(((V573))==Cnil){ |
|
|
goto T2119;} |
|
|
princ_str("\n bds_check;",VV[25]); |
|
3889 |
goto T2119; |
goto T2119; |
3890 |
T2119:; |
T2119:; |
3891 |
|
if(((V575))==Cnil){ |
3892 |
|
goto T2127;} |
3893 |
|
princ_str("\n bds_check;",VV[25]); |
3894 |
|
goto T2127; |
3895 |
|
T2127:; |
3896 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
3897 |
goto T2123;} |
goto T2131;} |
3898 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
3899 |
goto T2123; |
goto T2131; |
3900 |
T2123:; |
T2131:; |
3901 |
base[15]= car((V570)); |
base[15]= car((V572)); |
3902 |
base[16]= cadr((V570)); |
base[16]= cadr((V572)); |
3903 |
base[17]= caddr((V570)); |
base[17]= caddr((V572)); |
3904 |
base[18]= cadddr((V570)); |
base[18]= cadddr((V572)); |
3905 |
vs_top=(vs_base=base+15)+4; |
vs_top=(vs_base=base+15)+4; |
3906 |
(void) (*Lnk341)(); |
(void) (*Lnk341)(); |
3907 |
vs_top=sup; |
vs_top=sup; |
3908 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3909 |
{object V575; |
{object V577; |
3910 |
V575= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
V577= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
3911 |
setq(VV[33],make_cons((V575),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V577),symbol_value(VV[33])));} |
3912 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
3913 |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
3914 |
{object V576 = (*(LnkLI335))(); |
{object V578 = (*(LnkLI335))(); |
3915 |
bds_unwind1; |
bds_unwind1; |
3916 |
bds_unwind1; |
bds_unwind1; |
3917 |
bds_unwind1; |
bds_unwind1; |
3927 |
bds_unwind1; |
bds_unwind1; |
3928 |
bds_unwind1; |
bds_unwind1; |
3929 |
bds_unwind1; |
bds_unwind1; |
3930 |
VMR36(V576)} |
VMR36(V578)} |
3931 |
base[0]=base[0]; |
base[0]=base[0]; |
3932 |
return Cnil; |
return Cnil; |
3933 |
} |
} |
3934 |
/* local entry for function T1ORDINARY */ |
/* local entry for function T1ORDINARY */ |
3935 |
|
|
3936 |
static object LI38(V578) |
static object LI38(V580) |
3937 |
|
|
3938 |
register object V578; |
register object V580; |
3939 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
3940 |
bds_check; |
bds_check; |
3941 |
goto TTL; |
goto TTL; |
3942 |
TTL:; |
TTL:; |
3943 |
{register object V579; |
{register object V581; |
3944 |
V579= Cnil; |
V581= Cnil; |
3945 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
3946 |
if((symbol_value(VV[48]))==Cnil){ |
if((symbol_value(VV[48]))==Cnil){ |
3947 |
goto T2144;} |
goto T2152;} |
3948 |
(void)((*(LnkLI267))(Cnil,(V578))); |
(void)((*(LnkLI268))(Cnil,(V580))); |
3949 |
{object V580; |
{object V582; |
3950 |
base[0]= VV[214]; |
base[0]= VV[214]; |
3951 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3952 |
Lgensym(); |
Lgensym(); |
3953 |
vs_top=sup; |
vs_top=sup; |
3954 |
V580= vs_base[0]; |
V582= vs_base[0]; |
3955 |
V581= listA(3,VV[64],(V580),VV[215]); |
V583= listA(3,VV[64],(V582),VV[215]); |
3956 |
(void)((*(LnkLI292))(/* INLINE-ARGS */V581)); |
(void)((*(LnkLI292))(/* INLINE-ARGS */V583)); |
3957 |
base[0]= list(5,VV[51],(V580),Cnil,(V578),Cnil); |
base[0]= list(5,VV[51],(V582),Cnil,(V580),Cnil); |
3958 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3959 |
(void) (*Lnk271)(); |
(void) (*Lnk272)(); |
3960 |
vs_top=sup; |
vs_top=sup; |
|
{object V582; |
|
|
V582= list(2,VV[216],make_cons((V580),Cnil)); |
|
|
setq(VV[24],make_cons((V582),symbol_value(VV[24]))); |
|
|
{object V583 = symbol_value(VV[24]); |
|
|
VMR37(V583)}}} |
|
|
goto T2144; |
|
|
T2144:; |
|
3961 |
{object V584; |
{object V584; |
3962 |
if(type_of((V578))==t_cons){ |
V584= list(2,VV[216],make_cons((V582),Cnil)); |
3963 |
goto T2155;} |
setq(VV[24],make_cons((V584),symbol_value(VV[24]))); |
3964 |
V584= Cnil; |
{object V585 = symbol_value(VV[24]); |
3965 |
goto T2154; |
VMR37(V585)}}} |
3966 |
goto T2155; |
goto T2152; |
3967 |
T2155:; |
T2152:; |
3968 |
if(type_of(car((V578)))==t_symbol){ |
{object V586; |
3969 |
goto T2157;} |
if(type_of((V580))==t_cons){ |
3970 |
V584= Cnil; |
goto T2163;} |
3971 |
goto T2154; |
V586= Cnil; |
3972 |
goto T2157; |
goto T2162; |
3973 |
T2157:; |
goto T2163; |
3974 |
if(!((car((V578)))==(VV[217]))){ |
T2163:; |
3975 |
goto T2161;} |
if(type_of(car((V580)))==t_symbol){ |
3976 |
goto T2159; |
goto T2165;} |
3977 |
goto T2161; |
V586= Cnil; |
3978 |
T2161:; |
goto T2162; |
3979 |
base[0]= car((V578)); |
goto T2165; |
3980 |
vs_top=(vs_base=base+0)+1; |
T2165:; |
3981 |
Lspecial_form_p(); |
if(!((car((V580)))==(VV[217]))){ |
|
vs_top=sup; |
|
|
V585= vs_base[0]; |
|
|
if((V585)==Cnil){ |
|
|
goto T2159;} |
|
|
V584= Cnil; |
|
|
goto T2154; |
|
|
goto T2159; |
|
|
T2159:; |
|
|
{register object V586; |
|
|
register long V587; |
|
|
V586= cdr((V578)); |
|
|
V587= 1; |
|
|
goto T2168; |
|
|
T2168:; |
|
|
if((V587)>=(1000)){ |
|
|
goto T2170;} |
|
|
if(type_of((V586))==t_cons){ |
|
3982 |
goto T2169;} |
goto T2169;} |
3983 |
goto T2170; |
goto T2167; |
|
T2170:; |
|
|
V584= Cnil; |
|
|
goto T2154; |
|
3984 |
goto T2169; |
goto T2169; |
3985 |
T2169:; |
T2169:; |
3986 |
if(!(type_of(car((V586)))==t_cons)){ |
base[0]= car((V580)); |
3987 |
goto T2175;} |
vs_top=(vs_base=base+0)+1; |
3988 |
if(!((caar((V586)))==(VV[64]))){ |
Lspecial_form_p(); |
3989 |
goto T2175;} |
vs_top=sup; |
3990 |
V579= cadr(car((V586))); |
V587= vs_base[0]; |
3991 |
if(!(type_of((V579))==t_cons)){ |
if((V587)==Cnil){ |
3992 |
goto T2175;} |
goto T2167;} |
3993 |
if(!((car((V579)))==(VV[218]))){ |
V586= Cnil; |
3994 |
goto T2175;} |
goto T2162; |
3995 |
|
goto T2167; |
3996 |
|
T2167:; |
3997 |
{register object V588; |
{register object V588; |
3998 |
|
register long V589; |
3999 |
|
V588= cdr((V580)); |
4000 |
|
V589= 1; |
4001 |
|
goto T2176; |
4002 |
|
T2176:; |
4003 |
|
if((V589)>=(1000)){ |
4004 |
|
goto T2178;} |
4005 |
|
if(type_of((V588))==t_cons){ |
4006 |
|
goto T2177;} |
4007 |
|
goto T2178; |
4008 |
|
T2178:; |
4009 |
|
V586= Cnil; |
4010 |
|
goto T2162; |
4011 |
|
goto T2177; |
4012 |
|
T2177:; |
4013 |
|
if(!(type_of(car((V588)))==t_cons)){ |
4014 |
|
goto T2183;} |
4015 |
|
if(!((caar((V588)))==(VV[64]))){ |
4016 |
|
goto T2183;} |
4017 |
|
V581= cadr(car((V588))); |
4018 |
|
if(!(type_of((V581))==t_cons)){ |
4019 |
|
goto T2183;} |
4020 |
|
if(!((car((V581)))==(VV[218]))){ |
4021 |
|
goto T2183;} |
4022 |
|
{register object V590; |
4023 |
vs_base=vs_top; |
vs_base=vs_top; |
4024 |
Lgensym(); |
Lgensym(); |
4025 |
vs_top=sup; |
vs_top=sup; |
4026 |
V588= vs_base[0]; |
V590= vs_base[0]; |
4027 |
base[0]= listA(3,VV[51],(V588),cdr((V579))); |
base[0]= listA(3,VV[51],(V590),cdr((V581))); |
4028 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4029 |
(void) (*Lnk271)(); |
(void) (*Lnk272)(); |
4030 |
vs_top=sup; |
vs_top=sup; |
4031 |
base[1]= (V578); |
base[1]= (V580); |
4032 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
4033 |
base[3]= make_fixnum(V587); |
base[3]= make_fixnum(V589); |
4034 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
4035 |
Lsubseq(); |
Lsubseq(); |
4036 |
vs_top=sup; |
vs_top=sup; |
4037 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4038 |
V589= list(2,VV[219],list(2,VV[91],(V588))); |
V591= list(2,VV[219],list(2,VV[91],(V590))); |
4039 |
base[1]= make_cons(/* INLINE-ARGS */V589,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V591,Cnil); |
4040 |
V590 = make_fixnum(V587); |
V592 = make_fixnum(V589); |
4041 |
V591= number_plus(small_fixnum(1),V590); |
V593= number_plus(small_fixnum(1),V592); |
4042 |
base[2]= nthcdr(fixint(/* INLINE-ARGS */V591),(V578)); |
base[2]= nthcdr(fixint(/* INLINE-ARGS */V593),(V580)); |
4043 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4044 |
Lappend(); |
Lappend(); |
4045 |
vs_top=sup; |
vs_top=sup; |
4046 |
V578= vs_base[0]; |
V580= vs_base[0]; |
4047 |
goto TTL;} |
goto TTL;} |
4048 |
goto T2175; |
goto T2183; |
4049 |
T2175:; |
T2183:; |
4050 |
if(type_of((V586))==t_cons){ |
if(type_of((V588))==t_cons){ |
4051 |
goto T2198;} |
goto T2206;} |
4052 |
V586= Cnil; |
V588= Cnil; |
4053 |
goto T2197; |
goto T2205; |
4054 |
goto T2198; |
goto T2206; |
4055 |
T2198:; |
T2206:; |
4056 |
V586= cdr((V586)); |
V588= cdr((V588)); |
4057 |
goto T2197; |
goto T2205; |
4058 |
T2197:; |
T2205:; |
4059 |
V587= (long)(1)+(V587); |
V589= (long)(1)+(V589); |
4060 |
goto T2168;} |
goto T2176;} |
4061 |
goto T2154; |
goto T2162; |
4062 |
T2154:; |
T2162:; |
4063 |
if(((V584))==Cnil){ |
if(((V586))==Cnil){ |
4064 |
goto T2203;} |
goto T2211;} |
4065 |
{object V592 = (V584); |
{object V594 = (V586); |
4066 |
VMR37(V592)} |
VMR37(V594)} |
4067 |
goto T2203; |
goto T2211; |
4068 |
T2203:; |
T2211:; |
4069 |
(void)((*(LnkLI267))(Cnil,(V578))); |
(void)((*(LnkLI268))(Cnil,(V580))); |
4070 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
4071 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
4072 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
4073 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
4074 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
4075 |
{object V593; |
{object V595; |
4076 |
V593= list(2,VV[216],(V578)); |
V595= list(2,VV[216],(V580)); |
4077 |
setq(VV[24],make_cons((V593),symbol_value(VV[24])));} |
setq(VV[24],make_cons((V595),symbol_value(VV[24])));} |
4078 |
{object V594 = Cnil; |
{object V596 = Cnil; |
4079 |
bds_unwind1; |
bds_unwind1; |
4080 |
bds_unwind1; |
bds_unwind1; |
4081 |
bds_unwind1; |
bds_unwind1; |
4082 |
bds_unwind1; |
bds_unwind1; |
4083 |
bds_unwind1; |
bds_unwind1; |
4084 |
VMR37(V594)}}} |
VMR37(V596)}}} |
4085 |
base[0]=base[0]; |
base[0]=base[0]; |
4086 |
return Cnil; |
return Cnil; |
4087 |
} |
} |
4088 |
/* local entry for function T2ORDINARY */ |
/* local entry for function T2ORDINARY */ |
4089 |
|
|
4090 |
static object LI39(V596) |
static object LI39(V598) |
4091 |
|
|
4092 |
object V596; |
object V598; |
4093 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
4094 |
goto TTL; |
goto TTL; |
4095 |
TTL:; |
TTL:; |
|
{object V597; |
|
|
V597= (type_of((V596))!=t_cons?Ct:Cnil); |
|
|
if(((V597))==Cnil){ |
|
|
goto T2211;} |
|
|
{object V598 = (V597); |
|
|
VMR38(V598)} |
|
|
goto T2211; |
|
|
T2211:; |
|
4096 |
{object V599; |
{object V599; |
4097 |
base[0]= (V596); |
V599= (type_of((V598))!=t_cons?Ct:Cnil); |
|
vs_top=(vs_base=base+0)+1; |
|
|
Lconstantp(); |
|
|
vs_top=sup; |
|
|
V599= vs_base[0]; |
|
4098 |
if(((V599))==Cnil){ |
if(((V599))==Cnil){ |
4099 |
goto T2216;} |
goto T2219;} |
4100 |
{object V600 = (V599); |
{object V600 = (V599); |
4101 |
VMR38(V600)} |
VMR38(V600)} |
4102 |
goto T2216; |
goto T2219; |
4103 |
T2216:; |
T2219:; |
4104 |
{object V601 = (VFUN_NARGS=1,(*(LnkLI303))((V596))); |
{object V601; |
4105 |
VMR38(V601)}}} |
base[0]= (V598); |
4106 |
|
vs_top=(vs_base=base+0)+1; |
4107 |
|
Lconstantp(); |
4108 |
|
vs_top=sup; |
4109 |
|
V601= vs_base[0]; |
4110 |
|
if(((V601))==Cnil){ |
4111 |
|
goto T2224;} |
4112 |
|
{object V602 = (V601); |
4113 |
|
VMR38(V602)} |
4114 |
|
goto T2224; |
4115 |
|
T2224:; |
4116 |
|
{object V603 = (VFUN_NARGS=1,(*(LnkLI303))((V598))); |
4117 |
|
VMR38(V603)}}} |
4118 |
base[0]=base[0]; |
base[0]=base[0]; |
4119 |
return Cnil; |
return Cnil; |
4120 |
} |
} |
4125 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
4126 |
goto TTL; |
goto TTL; |
4127 |
TTL:; |
TTL:; |
4128 |
{register object V602; |
{register object V604; |
4129 |
register object V603; |
register object V605; |
4130 |
V602= reverse(symbol_value(VV[52])); |
V604= reverse(symbol_value(VV[52])); |
4131 |
V603= car((V602)); |
V605= car((V604)); |
4132 |
goto T2221; |
goto T2229; |
4133 |
T2221:; |
T2229:; |
4134 |
if(!(endp_prop((V602)))){ |
if(!(endp_prop((V604)))){ |
4135 |
goto T2222;} |
goto T2230;} |
4136 |
{object V604 = Cnil; |
{object V606 = Cnil; |
4137 |
VMR39(V604)} |
VMR39(V606)} |
4138 |
goto T2222; |
goto T2230; |
4139 |
T2222:; |
T2230:; |
4140 |
if(!(type_of((V603))!=t_cons)){ |
if(!(type_of((V605))!=t_cons)){ |
4141 |
goto T2226;} |
goto T2234;} |
4142 |
(void)((*(LnkLI342))()); |
(void)((*(LnkLI342))()); |
4143 |
goto T2226; |
goto T2234; |
4144 |
T2226:; |
T2234:; |
4145 |
{register object V605; |
{register object V607; |
4146 |
V605= make_cons(VV[220],(V603)); |
V607= make_cons(VV[220],(V605)); |
4147 |
setq(VV[24],make_cons((V605),symbol_value(VV[24])));} |
setq(VV[24],make_cons((V607),symbol_value(VV[24])));} |
4148 |
V602= cdr((V602)); |
V604= cdr((V604)); |
4149 |
V603= car((V602)); |
V605= car((V604)); |
4150 |
goto T2221;} |
goto T2229;} |
4151 |
base[0]=base[0]; |
base[0]=base[0]; |
4152 |
return Cnil; |
return Cnil; |
4153 |
} |
} |
4154 |
/* local entry for function T2SHARP-COMMA */ |
/* local entry for function T2SHARP-COMMA */ |
4155 |
|
|
4156 |
static object LI41(V608,V609) |
static object LI41(V610,V611) |
4157 |
|
|
4158 |
object V608;object V609; |
object V610;object V611; |
4159 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
4160 |
goto TTL; |
goto TTL; |
4161 |
TTL:; |
TTL:; |
4162 |
V610= list(3,VV[221],(V608),(V609)); |
V612= list(3,VV[221],(V610),(V611)); |
4163 |
{object V611 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V610)); |
{object V613 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V612)); |
4164 |
VMR40(V611)} |
VMR40(V613)} |
4165 |
return Cnil; |
return Cnil; |
4166 |
} |
} |
4167 |
/* local entry for function T2DECLARE */ |
/* local entry for function T2DECLARE */ |
4168 |
|
|
4169 |
static object LI42(V613) |
static object LI42(V615) |
4170 |
|
|
4171 |
object V613; |
object V615; |
4172 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
4173 |
goto TTL; |
goto TTL; |
4174 |
TTL:; |
TTL:; |
4175 |
{object V614 = (*(LnkLI342))(); |
{object V616 = (*(LnkLI342))(); |
4176 |
VMR41(V614)} |
VMR41(V616)} |
4177 |
return Cnil; |
return Cnil; |
4178 |
} |
} |
4179 |
/* local entry for function T1DEFINE-STRUCTURE */ |
/* local entry for function T1DEFINE-STRUCTURE */ |
4180 |
|
|
4181 |
static object LI43(V616) |
static object LI43(V618) |
4182 |
|
|
4183 |
object V616; |
object V618; |
4184 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
4185 |
goto TTL; |
goto TTL; |
4186 |
TTL:; |
TTL:; |
4187 |
V617= (*(LnkLI267))(Cnil,Cnil); |
V619= (*(LnkLI268))(Cnil,Cnil); |
4188 |
V618= make_cons(((/* INLINE-ARGS */V617)==Cnil?Ct:Cnil),Cnil); |
V620= make_cons(((/* INLINE-ARGS */V619)==Cnil?Ct:Cnil),Cnil); |
4189 |
V619= append((V616),/* INLINE-ARGS */V618); |
V621= append((V618),/* INLINE-ARGS */V620); |
4190 |
V620= make_cons(VV[222],/* INLINE-ARGS */V619); |
V622= make_cons(VV[222],/* INLINE-ARGS */V621); |
4191 |
(void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V620)); |
(void)((*(LnkLI268))(Ct,/* INLINE-ARGS */V622)); |
4192 |
V621= make_cons(VV[222],(V616)); |
V623= make_cons(VV[222],(V618)); |
4193 |
{object V622 = (*(LnkLI272))(/* INLINE-ARGS */V621); |
{object V624 = (*(LnkLI273))(/* INLINE-ARGS */V623); |
4194 |
VMR42(V622)} |
VMR42(V624)} |
4195 |
return Cnil; |
return Cnil; |
4196 |
} |
} |
4197 |
/* local entry for function SET-DBIND */ |
/* local entry for function SET-DBIND */ |
4198 |
|
|
4199 |
static object LI44(V625,V626) |
static object LI44(V627,V628) |
4200 |
|
|
4201 |
object V625;object V626; |
object V627;object V628; |
4202 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
4203 |
goto TTL; |
goto TTL; |
4204 |
TTL:; |
TTL:; |
4205 |
princ_str("\n VV[",VV[25]); |
princ_str("\n VV[",VV[25]); |
4206 |
(void)((*(LnkLI274))((V626))); |
(void)((*(LnkLI274))((V628))); |
4207 |
princ_str("]->s.s_dbind = ",VV[25]); |
princ_str("]->s.s_dbind = ",VV[25]); |
4208 |
(void)((*(LnkLI274))((V625))); |
(void)((*(LnkLI274))((V627))); |
4209 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
4210 |
{object V627 = Cnil; |
{object V629 = Cnil; |
4211 |
VMR43(V627)} |
VMR43(V629)} |
4212 |
return Cnil; |
return Cnil; |
4213 |
} |
} |
4214 |
/* local entry for function T1CLINES */ |
/* local entry for function T1CLINES */ |
4215 |
|
|
4216 |
static object LI45(V629) |
static object LI45(V631) |
4217 |
|
|
4218 |
object V629; |
object V631; |
4219 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
4220 |
goto TTL; |
goto TTL; |
4221 |
TTL:; |
TTL:; |
4222 |
{register object V630; |
{register object V632; |
4223 |
register object V631; |
register object V633; |
4224 |
V630= (V629); |
V632= (V631); |
4225 |
V631= car((V630)); |
V633= car((V632)); |
4226 |
goto T2248; |
goto T2256; |
4227 |
T2248:; |
T2256:; |
4228 |
if(!(endp_prop((V630)))){ |
if(!(endp_prop((V632)))){ |
4229 |
goto T2249;} |
goto T2257;} |
4230 |
goto T2244; |
goto T2252; |
4231 |
goto T2249; |
goto T2257; |
4232 |
T2249:; |
T2257:; |
4233 |
if(type_of((V631))==t_string){ |
if(type_of((V633))==t_string){ |
4234 |
goto T2253;} |
goto T2261;} |
4235 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V633)))); |
4236 |
goto T2253; |
goto T2261; |
4237 |
T2253:; |
T2261:; |
4238 |
V630= cdr((V630)); |
V632= cdr((V632)); |
4239 |
V631= car((V630)); |
V633= car((V632)); |
4240 |
goto T2248;} |
goto T2256;} |
4241 |
goto T2244; |
goto T2252; |
4242 |
T2244:; |
T2252:; |
4243 |
{object V632; |
{object V634; |
4244 |
V632= list(2,VV[224],(V629)); |
V634= list(2,VV[224],(V631)); |
4245 |
setq(VV[24],make_cons((V632),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V634),symbol_value(VV[24]))); |
4246 |
{object V633 = symbol_value(VV[24]); |
{object V635 = symbol_value(VV[24]); |
4247 |
VMR44(V633)}} |
VMR44(V635)}} |
4248 |
base[0]=base[0]; |
base[0]=base[0]; |
4249 |
return Cnil; |
return Cnil; |
4250 |
} |
} |
4251 |
/* local entry for function T3CLINES */ |
/* local entry for function T3CLINES */ |
4252 |
|
|
4253 |
static object LI46(V635) |
static object LI46(V637) |
4254 |
|
|
4255 |
object V635; |
object V637; |
4256 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
4257 |
goto TTL; |
goto TTL; |
4258 |
TTL:; |
TTL:; |
4259 |
{register object V636; |
{register object V638; |
4260 |
register object V637; |
register object V639; |
4261 |
V636= (V635); |
V638= (V637); |
4262 |
V637= car((V636)); |
V639= car((V638)); |
4263 |
goto T2266; |
goto T2274; |
4264 |
T2266:; |
T2274:; |
4265 |
if(!(endp_prop((V636)))){ |
if(!(endp_prop((V638)))){ |
4266 |
goto T2267;} |
goto T2275;} |
4267 |
{object V638 = Cnil; |
{object V640 = Cnil; |
4268 |
VMR45(V638)} |
VMR45(V640)} |
4269 |
goto T2267; |
goto T2275; |
4270 |
T2267:; |
T2275:; |
4271 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4272 |
(void)((*(LnkLI274))((V637))); |
(void)((*(LnkLI274))((V639))); |
4273 |
V636= cdr((V636)); |
V638= cdr((V638)); |
4274 |
V637= car((V636)); |
V639= car((V638)); |
4275 |
goto T2266;} |
goto T2274;} |
4276 |
base[0]=base[0]; |
base[0]=base[0]; |
4277 |
return Cnil; |
return Cnil; |
4278 |
} |
} |
4279 |
/* local entry for function T1DEFCFUN */ |
/* local entry for function T1DEFCFUN */ |
4280 |
|
|
4281 |
static object LI47(V640) |
static object LI47(V642) |
4282 |
|
|
4283 |
object V640; |
object V642; |
4284 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
4285 |
goto TTL; |
goto TTL; |
4286 |
TTL:; |
TTL:; |
4287 |
{register object V641; |
{register object V643; |
4288 |
V641= Cnil; |
V643= Cnil; |
4289 |
if(endp_prop((V640))){ |
if(endp_prop((V642))){ |
4290 |
goto T2281;} |
goto T2289;} |
4291 |
if(!(endp_prop(cdr((V640))))){ |
if(!(endp_prop(cdr((V642))))){ |
4292 |
goto T2280;} |
goto T2288;} |
4293 |
goto T2281; |
goto T2289; |
4294 |
T2281:; |
T2289:; |
4295 |
V642 = make_fixnum((long)length((V640))); |
V644 = make_fixnum((long)length((V642))); |
4296 |
(void)((*(LnkLI283))(VV[225],small_fixnum(2),V642)); |
(void)((*(LnkLI283))(VV[225],small_fixnum(2),V644)); |
|
goto T2280; |
|
|
T2280:; |
|
|
if(type_of(car((V640)))==t_string){ |
|
|
goto T2285;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640))))); |
|
|
goto T2285; |
|
|
T2285:; |
|
|
{object V643= cadr((V640)); |
|
|
if(type_of(V643)==t_fixnum|| |
|
|
type_of(V643)==t_bignum|| |
|
|
type_of(V643)==t_ratio|| |
|
|
type_of(V643)==t_shortfloat|| |
|
|
type_of(V643)==t_longfloat|| |
|
|
type_of(V643)==t_complex){ |
|
|
goto T2288;}} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640))))); |
|
4297 |
goto T2288; |
goto T2288; |
4298 |
T2288:; |
T2288:; |
4299 |
{register object V644; |
if(type_of(car((V642)))==t_string){ |
4300 |
register object V645; |
goto T2293;} |
4301 |
V644= cddr((V640)); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V642))))); |
4302 |
V645= car((V644)); |
goto T2293; |
4303 |
goto T2295; |
T2293:; |
4304 |
T2295:; |
{object V645= cadr((V642)); |
4305 |
if(!(endp_prop((V644)))){ |
if(type_of(V645)==t_fixnum|| |
4306 |
goto T2296;} |
type_of(V645)==t_bignum|| |
4307 |
goto T2291; |
type_of(V645)==t_ratio|| |
4308 |
|
type_of(V645)==t_shortfloat|| |
4309 |
|
type_of(V645)==t_longfloat|| |
4310 |
|
type_of(V645)==t_complex){ |
4311 |
|
goto T2296;}} |
4312 |
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V642))))); |
4313 |
goto T2296; |
goto T2296; |
4314 |
T2296:; |
T2296:; |
|
if(!(type_of((V645))==t_string)){ |
|
|
goto T2302;} |
|
4315 |
{register object V646; |
{register object V646; |
4316 |
V646= (V645); |
register object V647; |
4317 |
V641= make_cons((V646),(V641)); |
V646= cddr((V642)); |
4318 |
goto T2300;} |
V647= car((V646)); |
4319 |
goto T2302; |
goto T2303; |
4320 |
T2302:; |
T2303:; |
4321 |
if(!(type_of((V645))==t_cons)){ |
if(!(endp_prop((V646)))){ |
4322 |
goto T2307;} |
goto T2304;} |
4323 |
if(!(type_of(car((V645)))==t_symbol)){ |
goto T2299; |
4324 |
|
goto T2304; |
4325 |
|
T2304:; |
4326 |
|
if(!(type_of((V647))==t_string)){ |
4327 |
goto T2310;} |
goto T2310;} |
4328 |
base[2]= car((V645)); |
{register object V648; |
4329 |
|
V648= (V647); |
4330 |
|
V643= make_cons((V648),(V643)); |
4331 |
|
goto T2308;} |
4332 |
|
goto T2310; |
4333 |
|
T2310:; |
4334 |
|
if(!(type_of((V647))==t_cons)){ |
4335 |
|
goto T2315;} |
4336 |
|
if(!(type_of(car((V647)))==t_symbol)){ |
4337 |
|
goto T2318;} |
4338 |
|
base[2]= car((V647)); |
4339 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4340 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4341 |
vs_top=sup; |
vs_top=sup; |
4342 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4343 |
goto T2312;} |
goto T2320;} |
4344 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V647))))); |
4345 |
goto T2312; |
goto T2320; |
4346 |
T2312:; |
T2320:; |
4347 |
{register object V647; |
{register object V649; |
4348 |
V648= car((V645)); |
V650= car((V647)); |
4349 |
V649= (*(LnkLI343))(cdr((V645))); |
V651= (*(LnkLI343))(cdr((V647))); |
4350 |
V650= make_cons(/* INLINE-ARGS */V648,/* INLINE-ARGS */V649); |
V652= make_cons(/* INLINE-ARGS */V650,/* INLINE-ARGS */V651); |
4351 |
V647= make_cons(/* INLINE-ARGS */V650,Cnil); |
V649= make_cons(/* INLINE-ARGS */V652,Cnil); |
4352 |
V641= make_cons((V647),(V641)); |
V643= make_cons((V649),(V643)); |
4353 |
goto T2300;} |
goto T2308;} |
4354 |
goto T2310; |
goto T2318; |
4355 |
T2310:; |
T2318:; |
4356 |
if(!(type_of(car((V645)))==t_cons)){ |
if(!(type_of(car((V647)))==t_cons)){ |
4357 |
goto T2319;} |
goto T2327;} |
4358 |
if(!(type_of(caar((V645)))==t_symbol)){ |
if(!(type_of(caar((V647)))==t_symbol)){ |
4359 |
goto T2319;} |
goto T2327;} |
4360 |
if(!((caar((V645)))==(VV[91]))){ |
if(!((caar((V647)))==(VV[91]))){ |
4361 |
goto T2326;} |
goto T2334;} |
4362 |
if(!(endp_prop(cdar((V645))))){ |
if(!(endp_prop(cdar((V647))))){ |
4363 |
goto T2328;} |
goto T2336;} |
4364 |
goto T2319; |
goto T2327; |
4365 |
goto T2328; |
goto T2336; |
4366 |
T2328:; |
T2336:; |
4367 |
if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){ |
if(!(((endp_prop(cddar((V647)))?Ct:Cnil))==Cnil)){ |
4368 |
goto T2330;} |
goto T2338;} |
4369 |
goto T2319; |
goto T2327; |
4370 |
goto T2330; |
goto T2338; |
4371 |
T2330:; |
T2338:; |
4372 |
if(!(endp_prop(cdr((V645))))){ |
if(!(endp_prop(cdr((V647))))){ |
4373 |
goto T2332;} |
goto T2340;} |
4374 |
goto T2319; |
goto T2327; |
4375 |
|
goto T2340; |
4376 |
|
T2340:; |
4377 |
|
if(((endp_prop(cddr((V647)))?Ct:Cnil))==Cnil){ |
4378 |
|
goto T2327;} |
4379 |
goto T2332; |
goto T2332; |
4380 |
T2332:; |
goto T2334; |
4381 |
if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){ |
T2334:; |
4382 |
goto T2319;} |
base[2]= caar((V647)); |
|
goto T2324; |
|
|
goto T2326; |
|
|
T2326:; |
|
|
base[2]= caar((V645)); |
|
4383 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4384 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4385 |
vs_top=sup; |
vs_top=sup; |
4386 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4387 |
goto T2319;} |
goto T2327;} |
4388 |
goto T2324; |
goto T2332; |
4389 |
T2324:; |
T2332:; |
4390 |
{register object V651; |
{register object V653; |
4391 |
V652= caar((V645)); |
V654= caar((V647)); |
4392 |
if(!((caar((V645)))==(VV[91]))){ |
if(!((caar((V647)))==(VV[91]))){ |
4393 |
goto T2338;} |
goto T2346;} |
4394 |
V654= (*(LnkLI328))(cadar((V645))); |
V656= (*(LnkLI328))(cadar((V647))); |
4395 |
V653= make_cons(/* INLINE-ARGS */V654,Cnil); |
V655= make_cons(/* INLINE-ARGS */V656,Cnil); |
4396 |
goto T2336; |
goto T2344; |
4397 |
goto T2338; |
goto T2346; |
4398 |
T2338:; |
T2346:; |
4399 |
V653= (*(LnkLI343))(cdar((V645))); |
V655= (*(LnkLI343))(cdar((V647))); |
4400 |
goto T2336; |
goto T2344; |
4401 |
T2336:; |
T2344:; |
4402 |
V655= make_cons(/* INLINE-ARGS */V652,V653); |
V657= make_cons(/* INLINE-ARGS */V654,V655); |
4403 |
V656= (*(LnkLI343))(cdr((V645))); |
V658= (*(LnkLI343))(cdr((V647))); |
4404 |
V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656); |
V653= make_cons(/* INLINE-ARGS */V657,/* INLINE-ARGS */V658); |
4405 |
V641= make_cons((V651),(V641)); |
V643= make_cons((V653),(V643)); |
4406 |
goto T2300;} |
goto T2308;} |
4407 |
goto T2319; |
goto T2327; |
4408 |
T2319:; |
T2327:; |
4409 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V647)))); |
4410 |
goto T2300; |
goto T2308; |
4411 |
goto T2307; |
goto T2315; |
4412 |
T2307:; |
T2315:; |
4413 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V647)))); |
4414 |
goto T2300; |
goto T2308; |
4415 |
T2300:; |
T2308:; |
4416 |
V644= cdr((V644)); |
V646= cdr((V646)); |
4417 |
V645= car((V644)); |
V647= car((V646)); |
4418 |
goto T2295;} |
goto T2303;} |
4419 |
goto T2291; |
goto T2299; |
4420 |
T2291:; |
T2299:; |
4421 |
{object V657; |
{object V659; |
4422 |
V658= car((V640)); |
V660= car((V642)); |
4423 |
V659= cadr((V640)); |
V661= cadr((V642)); |
4424 |
V657= list(4,VV[225],/* INLINE-ARGS */V658,/* INLINE-ARGS */V659,reverse((V641))); |
V659= list(4,VV[225],/* INLINE-ARGS */V660,/* INLINE-ARGS */V661,reverse((V643))); |
4425 |
setq(VV[24],make_cons((V657),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V659),symbol_value(VV[24]))); |
4426 |
{object V660 = symbol_value(VV[24]); |
{object V662 = symbol_value(VV[24]); |
4427 |
VMR46(V660)}}} |
VMR46(V662)}}} |
4428 |
base[0]=base[0]; |
base[0]=base[0]; |
4429 |
return Cnil; |
return Cnil; |
4430 |
} |
} |
4431 |
/* local entry for function T3DEFCFUN */ |
/* local entry for function T3DEFCFUN */ |
4432 |
|
|
4433 |
static object LI48(V664,V665,V666) |
static object LI48(V666,V667,V668) |
4434 |
|
|
4435 |
object V664;object V665;object V666; |
object V666;object V667;object V668; |
4436 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
4437 |
goto TTL; |
goto TTL; |
4438 |
TTL:; |
TTL:; |
4439 |
{object V667; |
{object V669; |
4440 |
V667= Cnil; |
V669= Cnil; |
4441 |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[231],VV[225]))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[231],VV[225]))); |
4442 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4443 |
(void)((*(LnkLI274))((V664))); |
(void)((*(LnkLI274))((V666))); |
4444 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
4445 |
princ_str("\nobject *vs=vs_top;",VV[25]); |
princ_str("\nobject *vs=vs_top;",VV[25]); |
4446 |
princ_str("\nobject *old_top=vs_top+",VV[25]); |
princ_str("\nobject *old_top=vs_top+",VV[25]); |
4447 |
(void)((*(LnkLI274))((V665))); |
(void)((*(LnkLI274))((V667))); |
4448 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
4449 |
if(!(number_compare((V665),small_fixnum(0))>0)){ |
if(!(number_compare((V667),small_fixnum(0))>0)){ |
4450 |
goto T2361;} |
goto T2369;} |
4451 |
princ_str("\n vs_top=old_top;",VV[25]); |
princ_str("\n vs_top=old_top;",VV[25]); |
4452 |
goto T2361; |
goto T2369; |
4453 |
T2361:; |
T2369:; |
4454 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
4455 |
{object V668; |
{object V670; |
4456 |
register object V669; |
register object V671; |
4457 |
V668= (V666); |
V670= (V668); |
4458 |
V669= car((V668)); |
V671= car((V670)); |
4459 |
goto T2371; |
goto T2379; |
4460 |
T2371:; |
T2379:; |
4461 |
if(!(endp_prop((V668)))){ |
if(!(endp_prop((V670)))){ |
4462 |
goto T2372;} |
goto T2380;} |
4463 |
goto T2367; |
goto T2375; |
4464 |
goto T2372; |
goto T2380; |
4465 |
T2372:; |
T2380:; |
4466 |
if(!(type_of((V669))==t_string)){ |
if(!(type_of((V671))==t_string)){ |
4467 |
goto T2378;} |
goto T2386;} |
4468 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4469 |
(void)((*(LnkLI274))((V669))); |
(void)((*(LnkLI274))((V671))); |
4470 |
goto T2376; |
goto T2384; |
4471 |
goto T2378; |
goto T2386; |
4472 |
T2378:; |
T2386:; |
4473 |
if(!((caar((V669)))==(VV[91]))){ |
if(!((caar((V671)))==(VV[91]))){ |
4474 |
goto T2383;} |
goto T2391;} |
4475 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4476 |
(void)((*(LnkLI274))(cadadr((V669)))); |
(void)((*(LnkLI274))(cadadr((V671)))); |
4477 |
{object V670= caadr((V669)); |
{object V672= caadr((V671)); |
4478 |
if((V670!= VV[74]))goto T2388; |
if((V672!= VV[74]))goto T2396; |
4479 |
princ_str("=VV[",VV[25]); |
princ_str("=VV[",VV[25]); |
4480 |
(void)((*(LnkLI274))(cadar((V669)))); |
(void)((*(LnkLI274))(cadar((V671)))); |
4481 |
princ_str("];",VV[25]); |
princ_str("];",VV[25]); |
4482 |
goto T2376; |
goto T2384; |
4483 |
goto T2388; |
goto T2396; |
4484 |
T2388:; |
T2396:; |
4485 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4486 |
base[1]= symbol_name(caadr((V669))); |
base[1]= symbol_name(caadr((V671))); |
4487 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4488 |
Lstring_downcase(); |
Lstring_downcase(); |
4489 |
vs_top=sup; |
vs_top=sup; |
4490 |
V671= vs_base[0]; |
V673= vs_base[0]; |
4491 |
(void)((*(LnkLI274))(V671)); |
(void)((*(LnkLI274))(V673)); |
4492 |
princ_str("(VV[",VV[25]); |
princ_str("(VV[",VV[25]); |
4493 |
(void)((*(LnkLI274))(cadar((V669)))); |
(void)((*(LnkLI274))(cadar((V671)))); |
4494 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4495 |
goto T2376;} |
goto T2384;} |
4496 |
goto T2383; |
goto T2391; |
4497 |
T2383:; |
T2391:; |
4498 |
princ_str("\n{vs_base=vs_top=old_top;",VV[25]); |
princ_str("\n{vs_base=vs_top=old_top;",VV[25]); |
4499 |
{register object V672; |
{register object V674; |
4500 |
register object V673; |
register object V675; |
4501 |
V672= cdar((V669)); |
V674= cdar((V671)); |
4502 |
V673= car((V672)); |
V675= car((V674)); |
|
goto T2405; |
|
|
T2405:; |
|
|
if(!(endp_prop((V672)))){ |
|
|
goto T2406;} |
|
|
goto T2401; |
|
|
goto T2406; |
|
|
T2406:; |
|
|
princ_str("\nvs_push(",VV[25]); |
|
|
{object V674= car((V673)); |
|
|
if((V674!= VV[74]))goto T2413; |
|
|
(void)((*(LnkLI274))(cadr((V673)))); |
|
|
goto T2412; |
|
4503 |
goto T2413; |
goto T2413; |
4504 |
T2413:; |
T2413:; |
4505 |
if((V674!= VV[344]))goto T2415; |
if(!(endp_prop((V674)))){ |
4506 |
|
goto T2414;} |
4507 |
|
goto T2409; |
4508 |
|
goto T2414; |
4509 |
|
T2414:; |
4510 |
|
princ_str("\nvs_push(",VV[25]); |
4511 |
|
{object V676= car((V675)); |
4512 |
|
if((V676!= VV[74]))goto T2421; |
4513 |
|
(void)((*(LnkLI274))(cadr((V675)))); |
4514 |
|
goto T2420; |
4515 |
|
goto T2421; |
4516 |
|
T2421:; |
4517 |
|
if((V676!= VV[344]))goto T2423; |
4518 |
princ_str("code_char((long)",VV[25]); |
princ_str("code_char((long)",VV[25]); |
4519 |
(void)((*(LnkLI274))(cadr((V673)))); |
(void)((*(LnkLI274))(cadr((V675)))); |
4520 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4521 |
goto T2412; |
goto T2420; |
4522 |
goto T2415; |
goto T2423; |
4523 |
T2415:; |
T2423:; |
4524 |
if((V674!= VV[345]))goto T2419; |
if((V676!= VV[345]))goto T2427; |
4525 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
4526 |
goto T2420;} |
goto T2428;} |
4527 |
princ_str("CMP",VV[25]); |
princ_str("CMP",VV[25]); |
4528 |
goto T2420; |
goto T2428; |
4529 |
T2420:; |
T2428:; |
4530 |
princ_str("make_fixnum((long)",VV[25]); |
princ_str("make_fixnum((long)",VV[25]); |
4531 |
(void)((*(LnkLI274))(cadr((V673)))); |
(void)((*(LnkLI274))(cadr((V675)))); |
4532 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4533 |
goto T2412; |
goto T2420; |
|
goto T2419; |
|
|
T2419:; |
|
|
if((V674!= VV[346]))goto T2427; |
|
|
princ_str("make_shortfloat((double)",VV[25]); |
|
|
(void)((*(LnkLI274))(cadr((V673)))); |
|
|
princ_char(41,VV[25]); |
|
|
goto T2412; |
|
4534 |
goto T2427; |
goto T2427; |
4535 |
T2427:; |
T2427:; |
4536 |
if((V674!= VV[347]))goto T2431; |
if((V676!= VV[346]))goto T2435; |
4537 |
|
princ_str("make_shortfloat((double)",VV[25]); |
4538 |
|
(void)((*(LnkLI274))(cadr((V675)))); |
4539 |
|
princ_char(41,VV[25]); |
4540 |
|
goto T2420; |
4541 |
|
goto T2435; |
4542 |
|
T2435:; |
4543 |
|
if((V676!= VV[347]))goto T2439; |
4544 |
princ_str("make_longfloat((double)",VV[25]); |
princ_str("make_longfloat((double)",VV[25]); |
4545 |
(void)((*(LnkLI274))(cadr((V673)))); |
(void)((*(LnkLI274))(cadr((V675)))); |
4546 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4547 |
goto T2412; |
goto T2420; |
4548 |
goto T2431; |
goto T2439; |
4549 |
T2431:;} |
T2439:;} |
4550 |
goto T2412; |
goto T2420; |
4551 |
T2412:; |
T2420:; |
4552 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4553 |
V672= cdr((V672)); |
V674= cdr((V674)); |
4554 |
V673= car((V672)); |
V675= car((V674)); |
4555 |
goto T2405;} |
goto T2413;} |
4556 |
goto T2401; |
goto T2409; |
4557 |
T2401:; |
T2409:; |
4558 |
{register object x= caar((V669)),V675= symbol_value(VV[79]); |
{register object x= caar((V671)),V677= symbol_value(VV[79]); |
4559 |
while(!endp(V675)) |
while(!endp(V677)) |
4560 |
if(type_of(V675->c.c_car)==t_cons &&eql(x,V675->c.c_car->c.c_car)){ |
if(type_of(V677->c.c_car)==t_cons &&eql(x,V677->c.c_car->c.c_car)){ |
4561 |
V667= (V675->c.c_car); |
V669= (V677->c.c_car); |
4562 |
goto T2446; |
goto T2454; |
4563 |
}else V675=V675->c.c_cdr; |
}else V677=V677->c.c_cdr; |
4564 |
V667= Cnil;} |
V669= Cnil;} |
4565 |
goto T2446; |
goto T2454; |
4566 |
T2446:; |
T2454:; |
4567 |
if(((V667))==Cnil){ |
if(((V669))==Cnil){ |
4568 |
goto T2444;} |
goto T2452;} |
4569 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
4570 |
goto T2448;} |
goto T2456;} |
4571 |
princ_str("\nihs_push(VV[",VV[25]); |
princ_str("\nihs_push(VV[",VV[25]); |
4572 |
V676= (*(LnkLI330))(caar((V669))); |
V678= (*(LnkLI330))(caar((V671))); |
4573 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V676)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V678)); |
4574 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4575 |
princ_str("\nL",VV[25]); |
princ_str("\nL",VV[25]); |
4576 |
(void)((*(LnkLI274))(cdr((V667)))); |
(void)((*(LnkLI274))(cdr((V669)))); |
4577 |
princ_str("();",VV[25]); |
princ_str("();",VV[25]); |
4578 |
princ_str("\nihs_pop();",VV[25]); |
princ_str("\nihs_pop();",VV[25]); |
4579 |
goto T2442; |
goto T2450; |
4580 |
goto T2448; |
goto T2456; |
4581 |
T2448:; |
T2456:; |
4582 |
princ_str("\nL",VV[25]); |
princ_str("\nL",VV[25]); |
4583 |
(void)((*(LnkLI274))(cdr((V667)))); |
(void)((*(LnkLI274))(cdr((V669)))); |
4584 |
princ_str("();",VV[25]); |
princ_str("();",VV[25]); |
4585 |
goto T2442; |
goto T2450; |
4586 |
goto T2444; |
goto T2452; |
4587 |
T2444:; |
T2452:; |
4588 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
4589 |
goto T2463;} |
goto T2471;} |
4590 |
princ_str("\nsuper_funcall(VV[",VV[25]); |
princ_str("\nsuper_funcall(VV[",VV[25]); |
4591 |
V677= (*(LnkLI330))(caar((V669))); |
V679= (*(LnkLI330))(caar((V671))); |
4592 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V677)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V679)); |
4593 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4594 |
goto T2442; |
goto T2450; |
4595 |
goto T2463; |
goto T2471; |
4596 |
T2463:; |
T2471:; |
4597 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
4598 |
goto T2469;} |
goto T2477;} |
4599 |
princ_str("\nsuper_funcall_no_event(VV[",VV[25]); |
princ_str("\nsuper_funcall_no_event(VV[",VV[25]); |
4600 |
V678= (*(LnkLI330))(caar((V669))); |
V680= (*(LnkLI330))(caar((V671))); |
4601 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V678)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V680)); |
4602 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4603 |
goto T2442; |
goto T2450; |
4604 |
goto T2469; |
goto T2477; |
4605 |
T2469:; |
T2477:; |
4606 |
princ_str("\nCMPfuncall(VV[",VV[25]); |
princ_str("\nCMPfuncall(VV[",VV[25]); |
4607 |
V679= (*(LnkLI330))(caar((V669))); |
V681= (*(LnkLI330))(caar((V671))); |
4608 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V679)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V681)); |
4609 |
princ_str("]->s.s_gfdef);",VV[25]); |
princ_str("]->s.s_gfdef);",VV[25]); |
4610 |
goto T2442; |
goto T2450; |
4611 |
T2442:; |
T2450:; |
4612 |
if(endp_prop(cdr((V669)))){ |
if(endp_prop(cdr((V671)))){ |
4613 |
goto T2477;} |
goto T2485;} |
4614 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4615 |
(void)((*(LnkLI274))(cadadr((V669)))); |
(void)((*(LnkLI274))(cadadr((V671)))); |
4616 |
{object V680= caadr((V669)); |
{object V682= caadr((V671)); |
4617 |
if((V680!= VV[74]))goto T2484; |
if((V682!= VV[74]))goto T2492; |
4618 |
princ_str("=vs_base[0];",VV[25]); |
princ_str("=vs_base[0];",VV[25]); |
4619 |
goto T2483; |
goto T2491; |
4620 |
goto T2484; |
goto T2492; |
4621 |
T2484:; |
T2492:; |
4622 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4623 |
base[1]= symbol_name(caadr((V669))); |
base[1]= symbol_name(caadr((V671))); |
4624 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4625 |
Lstring_downcase(); |
Lstring_downcase(); |
4626 |
vs_top=sup; |
vs_top=sup; |
4627 |
V681= vs_base[0]; |
V683= vs_base[0]; |
4628 |
(void)((*(LnkLI274))(V681)); |
(void)((*(LnkLI274))(V683)); |
4629 |
princ_str("(vs_base[0]);",VV[25]);} |
princ_str("(vs_base[0]);",VV[25]);} |
4630 |
goto T2483; |
goto T2491; |
4631 |
T2483:; |
T2491:; |
4632 |
{register object V682; |
{register object V684; |
4633 |
register object V683; |
register object V685; |
4634 |
V682= cddr((V669)); |
V684= cddr((V671)); |
4635 |
V683= car((V682)); |
V685= car((V684)); |
4636 |
goto T2494; |
goto T2502; |
4637 |
T2494:; |
T2502:; |
4638 |
if(!(endp_prop((V682)))){ |
if(!(endp_prop((V684)))){ |
4639 |
goto T2495;} |
goto T2503;} |
4640 |
goto T2477; |
goto T2485; |
4641 |
goto T2495; |
goto T2503; |
4642 |
T2495:; |
T2503:; |
4643 |
princ_str("\nvs_base++;",VV[25]); |
princ_str("\nvs_base++;",VV[25]); |
4644 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4645 |
(void)((*(LnkLI274))(cadr((V683)))); |
(void)((*(LnkLI274))(cadr((V685)))); |
4646 |
{object V684= car((V683)); |
{object V686= car((V685)); |
4647 |
if((V684!= VV[74]))goto T2505; |
if((V686!= VV[74]))goto T2513; |
4648 |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]); |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]); |
4649 |
goto T2504; |
goto T2512; |
4650 |
goto T2505; |
goto T2513; |
4651 |
T2505:; |
T2513:; |
4652 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4653 |
base[3]= symbol_name(car((V683))); |
base[3]= symbol_name(car((V685))); |
4654 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4655 |
Lstring_downcase(); |
Lstring_downcase(); |
4656 |
vs_top=sup; |
vs_top=sup; |
4657 |
V685= vs_base[0]; |
V687= vs_base[0]; |
4658 |
(void)((*(LnkLI274))(V685)); |
(void)((*(LnkLI274))(V687)); |
4659 |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);} |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);} |
4660 |
goto T2504; |
goto T2512; |
4661 |
T2504:; |
T2512:; |
4662 |
V682= cdr((V682)); |
V684= cdr((V684)); |
4663 |
V683= car((V682)); |
V685= car((V684)); |
4664 |
goto T2494;} |
goto T2502;} |
4665 |
goto T2477; |
goto T2485; |
4666 |
T2477:; |
T2485:; |
4667 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4668 |
goto T2376; |
goto T2384; |
4669 |
T2376:; |
T2384:; |
4670 |
V668= cdr((V668)); |
V670= cdr((V670)); |
4671 |
V669= car((V668)); |
V671= car((V670)); |
4672 |
goto T2371;} |
goto T2379;} |
4673 |
goto T2367; |
goto T2375; |
4674 |
T2367:; |
T2375:; |
4675 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4676 |
princ_str("\nvs_top=vs;",VV[25]); |
princ_str("\nvs_top=vs;",VV[25]); |
4677 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4678 |
{object V686 = Cnil; |
{object V688 = Cnil; |
4679 |
VMR47(V686)}} |
VMR47(V688)}} |
4680 |
base[0]=base[0]; |
base[0]=base[0]; |
4681 |
return Cnil; |
return Cnil; |
4682 |
} |
} |
4683 |
/* local entry for function T1DEFENTRY */ |
/* local entry for function T1DEFENTRY */ |
4684 |
|
|
4685 |
static object LI49(V688) |
static object LI49(V690) |
4686 |
|
|
4687 |
register object V688; |
register object V690; |
4688 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
4689 |
goto TTL; |
goto TTL; |
4690 |
TTL:; |
TTL:; |
4691 |
{register object V689; |
{register object V691; |
|
register object V690; |
|
|
object V691; |
|
4692 |
register object V692; |
register object V692; |
4693 |
V689= Cnil; |
object V693; |
4694 |
V690= Cnil; |
register object V694; |
4695 |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
V691= Cnil; |
|
V691= symbol_value(VV[61]); |
|
4696 |
V692= Cnil; |
V692= Cnil; |
4697 |
if(endp_prop((V688))){ |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
4698 |
goto T2534;} |
V693= symbol_value(VV[61]); |
4699 |
if(endp_prop(cdr((V688)))){ |
V694= Cnil; |
4700 |
goto T2534;} |
if(endp_prop((V690))){ |
4701 |
if(!(endp_prop(cddr((V688))))){ |
goto T2542;} |
4702 |
goto T2533;} |
if(endp_prop(cdr((V690)))){ |
4703 |
goto T2534; |
goto T2542;} |
4704 |
T2534:; |
if(!(endp_prop(cddr((V690))))){ |
4705 |
V693 = make_fixnum((long)length((V688))); |
goto T2541;} |
4706 |
(void)((*(LnkLI283))(VV[232],small_fixnum(3),V693)); |
goto T2542; |
4707 |
goto T2533; |
T2542:; |
4708 |
T2533:; |
V695 = make_fixnum((long)length((V690))); |
4709 |
if(type_of(car((V688)))==t_symbol){ |
(void)((*(LnkLI283))(VV[232],small_fixnum(3),V695)); |
4710 |
goto T2540;} |
goto T2541; |
4711 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688))))); |
T2541:; |
4712 |
goto T2540; |
if(type_of(car((V690)))==t_symbol){ |
|
T2540:; |
|
|
{register object V694; |
|
|
register object V695; |
|
|
V694= cadr((V688)); |
|
|
V695= car((V694)); |
|
|
goto T2547; |
|
|
T2547:; |
|
|
if(!(endp_prop((V694)))){ |
|
4713 |
goto T2548;} |
goto T2548;} |
4714 |
goto T2543; |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V690))))); |
4715 |
goto T2548; |
goto T2548; |
4716 |
T2548:; |
T2548:; |
4717 |
{register object x= (V695),V696= VV[234]; |
{register object V696; |
4718 |
while(!endp(V696)) |
register object V697; |
4719 |
if(eql(x,V696->c.c_car)){ |
V696= cadr((V690)); |
4720 |
goto T2552; |
V697= car((V696)); |
4721 |
}else V696=V696->c.c_cdr;} |
goto T2555; |
4722 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695)))); |
T2555:; |
4723 |
goto T2552; |
if(!(endp_prop((V696)))){ |
4724 |
T2552:; |
goto T2556;} |
4725 |
V694= cdr((V694)); |
goto T2551; |
4726 |
V695= car((V694)); |
goto T2556; |
4727 |
goto T2547;} |
T2556:; |
4728 |
goto T2543; |
{register object x= (V697),V698= VV[234]; |
4729 |
T2543:; |
while(!endp(V698)) |
4730 |
V692= caddr((V688)); |
if(eql(x,V698->c.c_car)){ |
4731 |
if(!(type_of((V692))==t_symbol)){ |
goto T2560; |
4732 |
goto T2564;} |
}else V698=V698->c.c_cdr;} |
4733 |
V689= VV[74]; |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V697)))); |
4734 |
base[1]= symbol_name((V692)); |
goto T2560; |
4735 |
|
T2560:; |
4736 |
|
V696= cdr((V696)); |
4737 |
|
V697= car((V696)); |
4738 |
|
goto T2555;} |
4739 |
|
goto T2551; |
4740 |
|
T2551:; |
4741 |
|
V694= caddr((V690)); |
4742 |
|
if(!(type_of((V694))==t_symbol)){ |
4743 |
|
goto T2572;} |
4744 |
|
V691= VV[74]; |
4745 |
|
base[1]= symbol_name((V694)); |
4746 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4747 |
Lstring_downcase(); |
Lstring_downcase(); |
4748 |
vs_top=sup; |
vs_top=sup; |
4749 |
V690= vs_base[0]; |
V692= vs_base[0]; |
4750 |
goto T2562; |
goto T2570; |
4751 |
goto T2564; |
goto T2572; |
4752 |
T2564:; |
T2572:; |
4753 |
if(!(type_of((V692))==t_string)){ |
if(!(type_of((V694))==t_string)){ |
4754 |
goto T2571;} |
goto T2579;} |
4755 |
V689= VV[74]; |
V691= VV[74]; |
4756 |
V690= (V692); |
V692= (V694); |
4757 |
goto T2562; |
goto T2570; |
4758 |
goto T2571; |
goto T2579; |
4759 |
T2571:; |
T2579:; |
4760 |
if(!(type_of((V692))==t_cons)){ |
if(!(type_of((V694))==t_cons)){ |
4761 |
goto T2577;} |
goto T2585;} |
4762 |
{register object x= car((V692)),V697= VV[236]; |
{register object x= car((V694)),V699= VV[236]; |
4763 |
while(!endp(V697)) |
while(!endp(V699)) |
4764 |
if(eql(x,V697->c.c_car)){ |
if(eql(x,V699->c.c_car)){ |
4765 |
goto T2581; |
goto T2589; |
4766 |
}else V697=V697->c.c_cdr; |
}else V699=V699->c.c_cdr; |
4767 |
goto T2577;} |
goto T2585;} |
4768 |
goto T2581; |
goto T2589; |
4769 |
T2581:; |
T2589:; |
4770 |
if(!(type_of(cdr((V692)))==t_cons)){ |
if(!(type_of(cdr((V694)))==t_cons)){ |
4771 |
goto T2577;} |
goto T2585;} |
4772 |
if(type_of(cadr((V692)))==t_symbol){ |
if(type_of(cadr((V694)))==t_symbol){ |
|
goto T2584;} |
|
|
if(!(type_of(cadr((V692)))==t_string)){ |
|
|
goto T2577;} |
|
|
goto T2584; |
|
|
T2584:; |
|
|
if(!(endp_prop(cddr((V692))))){ |
|
|
goto T2577;} |
|
|
if(!(type_of(cadr((V692)))==t_symbol)){ |
|
4773 |
goto T2592;} |
goto T2592;} |
4774 |
base[1]= symbol_name(cadr((V692))); |
if(!(type_of(cadr((V694)))==t_string)){ |
4775 |
|
goto T2585;} |
4776 |
|
goto T2592; |
4777 |
|
T2592:; |
4778 |
|
if(!(endp_prop(cddr((V694))))){ |
4779 |
|
goto T2585;} |
4780 |
|
if(!(type_of(cadr((V694)))==t_symbol)){ |
4781 |
|
goto T2600;} |
4782 |
|
base[1]= symbol_name(cadr((V694))); |
4783 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4784 |
Lstring_downcase(); |
Lstring_downcase(); |
4785 |
vs_top=sup; |
vs_top=sup; |
4786 |
V690= vs_base[0]; |
V692= vs_base[0]; |
4787 |
goto T2590; |
goto T2598; |
4788 |
goto T2592; |
goto T2600; |
4789 |
T2592:; |
T2600:; |
4790 |
V690= cadr((V692)); |
V692= cadr((V694)); |
4791 |
goto T2590; |
goto T2598; |
4792 |
T2590:; |
T2598:; |
4793 |
V689= car((V692)); |
V691= car((V694)); |
4794 |
goto T2562; |
goto T2570; |
4795 |
goto T2577; |
goto T2585; |
4796 |
T2577:; |
T2585:; |
4797 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V694)))); |
4798 |
goto T2562; |
goto T2570; |
4799 |
T2562:; |
T2570:; |
4800 |
{object V698; |
{object V700; |
4801 |
V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690)); |
V700= list(6,VV[232],car((V690)),(V693),cadr((V690)),(V691),(V692)); |
4802 |
setq(VV[24],make_cons((V698),symbol_value(VV[24])));} |
setq(VV[24],make_cons((V700),symbol_value(VV[24])));} |
4803 |
{object V699; |
{object V701; |
4804 |
V699= make_cons(car((V688)),(V691)); |
V701= make_cons(car((V690)),(V693)); |
4805 |
setq(VV[79],make_cons((V699),symbol_value(VV[79]))); |
setq(VV[79],make_cons((V701),symbol_value(VV[79]))); |
4806 |
{object V700 = symbol_value(VV[79]); |
{object V702 = symbol_value(VV[79]); |
4807 |
VMR48(V700)}}} |
VMR48(V702)}}} |
4808 |
base[0]=base[0]; |
base[0]=base[0]; |
4809 |
return Cnil; |
return Cnil; |
4810 |
} |
} |
4811 |
/* local entry for function T2DEFENTRY */ |
/* local entry for function T2DEFENTRY */ |
4812 |
|
|
4813 |
static object LI50(V706,V707,V708,V709,V710) |
static object LI50(V708,V709,V710,V711,V712) |
4814 |
|
|
4815 |
object V706;object V707;object V708;object V709;object V710; |
object V708;object V709;object V710;object V711;object V712; |
4816 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
4817 |
goto TTL; |
goto TTL; |
4818 |
TTL:; |
TTL:; |
4819 |
princ_str("\nstatic void L",VV[31]); |
princ_str("\nstatic void L",VV[31]); |
4820 |
(void)((*(LnkLI277))((V707))); |
(void)((*(LnkLI277))((V709))); |
4821 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
4822 |
V711= list(2,VV[91],(V706)); |
V713= list(2,VV[91],(V708)); |
4823 |
V712= list(3,VV[111],/* INLINE-ARGS */V711,(*(LnkLI304))(VV[238],(V707))); |
V714= list(3,VV[111],/* INLINE-ARGS */V713,(*(LnkLI304))(VV[238],(V709))); |
4824 |
{object V713 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V712)); |
{object V715 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V714)); |
4825 |
VMR49(V713)} |
VMR49(V715)} |
4826 |
return Cnil; |
return Cnil; |
4827 |
} |
} |
4828 |
/* local entry for function T3DEFENTRY */ |
/* local entry for function T3DEFENTRY */ |
4829 |
|
|
4830 |
static object LI51(V719,V720,V721,V722,V723) |
static object LI51(V721,V722,V723,V724,V725) |
4831 |
|
|
4832 |
object V719;object V720;object V721;register object V722;object V723; |
object V721;object V722;object V723;register object V724;object V725; |
4833 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
4834 |
goto TTL; |
goto TTL; |
4835 |
TTL:; |
TTL:; |
4836 |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[239],(V719)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[239],(V721)))); |
4837 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
4838 |
(void)((*(LnkLI274))((V720))); |
(void)((*(LnkLI274))((V722))); |
4839 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
4840 |
princ_str("\n{ object *old_base=vs_base;",VV[25]); |
princ_str("\n{ object *old_base=vs_base;",VV[25]); |
4841 |
{object V724= (V722); |
{object V726= (V724); |
4842 |
if((V724!= VV[240]))goto T2613; |
if((V726!= VV[240]))goto T2621; |
4843 |
goto T2612; |
goto T2620; |
4844 |
goto T2613; |
goto T2621; |
4845 |
T2613:; |
T2621:; |
4846 |
if((V724!= VV[158]))goto T2614; |
if((V726!= VV[158]))goto T2622; |
4847 |
princ_str("\n char *x;",VV[25]); |
princ_str("\n char *x;",VV[25]); |
4848 |
goto T2612; |
goto T2620; |
4849 |
goto T2614; |
goto T2622; |
4850 |
T2614:; |
T2622:; |
4851 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
4852 |
base[0]= symbol_name((V722)); |
base[0]= symbol_name((V724)); |
4853 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4854 |
Lstring_downcase(); |
Lstring_downcase(); |
4855 |
vs_top=sup; |
vs_top=sup; |
4856 |
V725= vs_base[0]; |
V727= vs_base[0]; |
4857 |
(void)((*(LnkLI274))(V725)); |
(void)((*(LnkLI274))(V727)); |
4858 |
princ_str(" x;",VV[25]);} |
princ_str(" x;",VV[25]);} |
4859 |
goto T2612; |
goto T2620; |
4860 |
T2612:; |
T2620:; |
4861 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
4862 |
goto T2621;} |
goto T2629;} |
4863 |
princ_str("\n check_arg(",VV[25]); |
princ_str("\n check_arg(",VV[25]); |
4864 |
V726 = make_fixnum((long)length((V721))); |
V728 = make_fixnum((long)length((V723))); |
4865 |
(void)((*(LnkLI274))(V726)); |
(void)((*(LnkLI274))(V728)); |
4866 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4867 |
goto T2621; |
goto T2629; |
4868 |
T2621:; |
T2629:; |
4869 |
if(((V722))==(VV[240])){ |
if(((V724))==(VV[240])){ |
4870 |
goto T2627;} |
goto T2635;} |
4871 |
princ_str("\n x=",VV[25]); |
princ_str("\n x=",VV[25]); |
4872 |
goto T2627; |
goto T2635; |
4873 |
T2627:; |
T2635:; |
4874 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
4875 |
(void)((*(LnkLI274))((V723))); |
(void)((*(LnkLI274))((V725))); |
4876 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
4877 |
if(endp_prop((V721))){ |
if(endp_prop((V723))){ |
4878 |
goto T2635;} |
goto T2643;} |
4879 |
{register object V727; |
{register object V729; |
4880 |
register long V728; |
register long V730; |
4881 |
V728= 0; |
V730= 0; |
4882 |
V727= (V721); |
V729= (V723); |
4883 |
goto T2640; |
goto T2648; |
4884 |
T2640:; |
T2648:; |
4885 |
{object V729= car((V727)); |
{object V731= car((V729)); |
4886 |
if((V729!= VV[74]))goto T2644; |
if((V731!= VV[74]))goto T2652; |
4887 |
princ_str("\n vs_base[",VV[25]); |
princ_str("\n vs_base[",VV[25]); |
4888 |
V730 = make_fixnum(V728); |
V732 = make_fixnum(V730); |
4889 |
(void)((*(LnkLI274))(V730)); |
(void)((*(LnkLI274))(V732)); |
4890 |
princ_char(93,VV[25]); |
princ_char(93,VV[25]); |
4891 |
goto T2643; |
goto T2651; |
4892 |
goto T2644; |
goto T2652; |
4893 |
T2644:; |
T2652:; |
4894 |
princ_str("\n object_to_",VV[25]); |
princ_str("\n object_to_",VV[25]); |
4895 |
base[0]= symbol_name(car((V727))); |
base[0]= symbol_name(car((V729))); |
4896 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4897 |
Lstring_downcase(); |
Lstring_downcase(); |
4898 |
vs_top=sup; |
vs_top=sup; |
4899 |
V731= vs_base[0]; |
V733= vs_base[0]; |
4900 |
(void)((*(LnkLI274))(V731)); |
(void)((*(LnkLI274))(V733)); |
4901 |
princ_str("(vs_base[",VV[25]); |
princ_str("(vs_base[",VV[25]); |
4902 |
V732 = make_fixnum(V728); |
V734 = make_fixnum(V730); |
4903 |
(void)((*(LnkLI274))(V732)); |
(void)((*(LnkLI274))(V734)); |
4904 |
princ_str("])",VV[25]);} |
princ_str("])",VV[25]);} |
4905 |
|
goto T2651; |
4906 |
|
T2651:; |
4907 |
|
if(!(endp_prop(cdr((V729))))){ |
4908 |
|
goto T2663;} |
4909 |
goto T2643; |
goto T2643; |
4910 |
T2643:; |
goto T2663; |
4911 |
if(!(endp_prop(cdr((V727))))){ |
T2663:; |
|
goto T2655;} |
|
|
goto T2635; |
|
|
goto T2655; |
|
|
T2655:; |
|
4912 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
4913 |
V727= cdr((V727)); |
V729= cdr((V729)); |
4914 |
V728= (long)(V728)+1; |
V730= (long)(V730)+1; |
4915 |
goto T2640;} |
goto T2648;} |
4916 |
goto T2635; |
goto T2643; |
4917 |
T2635:; |
T2643:; |
4918 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4919 |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[25]); |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[25]); |
4920 |
princ_str("\n vs_base[0]=",VV[25]); |
princ_str("\n vs_base[0]=",VV[25]); |
4921 |
{object V733= (V722); |
{object V735= (V724); |
4922 |
if((V733!= VV[240]))goto T2671; |
if((V735!= VV[240]))goto T2679; |
4923 |
princ_str("Cnil",VV[25]); |
princ_str("Cnil",VV[25]); |
4924 |
goto T2670; |
goto T2678; |
4925 |
goto T2671; |
goto T2679; |
4926 |
T2671:; |
T2679:; |
4927 |
if((V733!= VV[74]))goto T2673; |
if((V735!= VV[74]))goto T2681; |
4928 |
princ_char(120,VV[25]); |
princ_char(120,VV[25]); |
4929 |
goto T2670; |
goto T2678; |
4930 |
goto T2673; |
goto T2681; |
4931 |
T2673:; |
T2681:; |
4932 |
if((V733!= VV[344]))goto T2675; |
if((V735!= VV[344]))goto T2683; |
4933 |
princ_str("code_char(x)",VV[25]); |
princ_str("code_char(x)",VV[25]); |
|
goto T2670; |
|
|
goto T2675; |
|
|
T2675:; |
|
|
if((V733!= VV[345]))goto T2677; |
|
|
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
|
|
goto T2678;} |
|
|
princ_str("CMP",VV[25]); |
|
4934 |
goto T2678; |
goto T2678; |
|
T2678:; |
|
|
princ_str("make_fixnum(x)",VV[25]); |
|
|
goto T2670; |
|
|
goto T2677; |
|
|
T2677:; |
|
|
if((V733!= VV[158]))goto T2683; |
|
|
princ_str("make_simple_string(x)",VV[25]); |
|
|
goto T2670; |
|
4935 |
goto T2683; |
goto T2683; |
4936 |
T2683:; |
T2683:; |
4937 |
if((V733!= VV[346]))goto T2685; |
if((V735!= VV[345]))goto T2685; |
4938 |
princ_str("make_shortfloat(x)",VV[25]); |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
4939 |
goto T2670; |
goto T2686;} |
4940 |
|
princ_str("CMP",VV[25]); |
4941 |
|
goto T2686; |
4942 |
|
T2686:; |
4943 |
|
princ_str("make_fixnum(x)",VV[25]); |
4944 |
|
goto T2678; |
4945 |
goto T2685; |
goto T2685; |
4946 |
T2685:; |
T2685:; |
4947 |
if((V733!= VV[347]))goto T2687; |
if((V735!= VV[158]))goto T2691; |
4948 |
|
princ_str("make_simple_string(x)",VV[25]); |
4949 |
|
goto T2678; |
4950 |
|
goto T2691; |
4951 |
|
T2691:; |
4952 |
|
if((V735!= VV[346]))goto T2693; |
4953 |
|
princ_str("make_shortfloat(x)",VV[25]); |
4954 |
|
goto T2678; |
4955 |
|
goto T2693; |
4956 |
|
T2693:; |
4957 |
|
if((V735!= VV[347]))goto T2695; |
4958 |
princ_str("make_longfloat(x)",VV[25]); |
princ_str("make_longfloat(x)",VV[25]); |
4959 |
goto T2670; |
goto T2678; |
4960 |
goto T2687; |
goto T2695; |
4961 |
T2687:;} |
T2695:;} |
4962 |
goto T2670; |
goto T2678; |
4963 |
T2670:; |
T2678:; |
4964 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
4965 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4966 |
{object V734 = Cnil; |
{object V736 = Cnil; |
4967 |
VMR50(V734)} |
VMR50(V736)} |
4968 |
base[0]=base[0]; |
base[0]=base[0]; |
4969 |
return Cnil; |
return Cnil; |
4970 |
} |
} |
4971 |
/* local entry for function T1DEFLA */ |
/* local entry for function T1DEFLA */ |
4972 |
|
|
4973 |
static object LI52(V736) |
static object LI52(V738) |
4974 |
|
|
4975 |
object V736; |
object V738; |
4976 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
4977 |
goto TTL; |
goto TTL; |
4978 |
TTL:; |
TTL:; |
4979 |
{object V737 = Cnil; |
{object V739 = Cnil; |
4980 |
VMR51(V737)} |
VMR51(V739)} |
4981 |
return Cnil; |
return Cnil; |
4982 |
} |
} |
4983 |
/* local entry for function PARSE-CVSPECS */ |
/* local entry for function PARSE-CVSPECS */ |
4984 |
|
|
4985 |
static object LI53(V739) |
static object LI53(V741) |
4986 |
|
|
4987 |
object V739; |
object V741; |
4988 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
4989 |
goto TTL; |
goto TTL; |
4990 |
TTL:; |
TTL:; |
4991 |
{register object V740; |
{register object V742; |
4992 |
V740= Cnil; |
V742= Cnil; |
4993 |
{register object V741; |
{register object V743; |
4994 |
register object V742; |
register object V744; |
4995 |
V741= (V739); |
V743= (V741); |
4996 |
V742= car((V741)); |
V744= car((V743)); |
4997 |
goto T2696; |
goto T2704; |
4998 |
T2696:; |
T2704:; |
4999 |
if(!(endp_prop((V741)))){ |
if(!(endp_prop((V743)))){ |
5000 |
goto T2697;} |
goto T2705;} |
5001 |
{object V743 = reverse((V740)); |
{object V745 = reverse((V742)); |
5002 |
VMR52(V743)} |
VMR52(V745)} |
5003 |
goto T2697; |
goto T2705; |
5004 |
T2697:; |
T2705:; |
5005 |
if(!(type_of((V742))==t_symbol)){ |
if(!(type_of((V744))==t_symbol)){ |
5006 |
goto T2703;} |
goto T2711;} |
5007 |
{object V744; |
{object V746; |
5008 |
base[2]= symbol_name((V742)); |
base[2]= symbol_name((V744)); |
5009 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5010 |
Lstring_downcase(); |
Lstring_downcase(); |
5011 |
vs_top=sup; |
vs_top=sup; |
5012 |
V745= vs_base[0]; |
V747= vs_base[0]; |
5013 |
V744= list(2,VV[74],V745); |
V746= list(2,VV[74],V747); |
5014 |
V740= make_cons((V744),(V740)); |
V742= make_cons((V746),(V742)); |
5015 |
goto T2701;} |
goto T2709;} |
5016 |
goto T2703; |
goto T2711; |
5017 |
T2703:; |
T2711:; |
5018 |
if(!(type_of((V742))==t_string)){ |
if(!(type_of((V744))==t_string)){ |
5019 |
goto T2710;} |
goto T2718;} |
5020 |
{object V746; |
{object V748; |
5021 |
V746= list(2,VV[74],(V742)); |
V748= list(2,VV[74],(V744)); |
5022 |
V740= make_cons((V746),(V740)); |
V742= make_cons((V748),(V742)); |
5023 |
goto T2701;} |
goto T2709;} |
|
goto T2710; |
|
|
T2710:; |
|
|
if(!(type_of((V742))==t_cons)){ |
|
|
goto T2715;} |
|
|
{register object x= car((V742)),V747= VV[241]; |
|
|
while(!endp(V747)) |
|
|
if(eql(x,V747->c.c_car)){ |
|
|
goto T2718; |
|
|
}else V747=V747->c.c_cdr; |
|
|
goto T2715;} |
|
5024 |
goto T2718; |
goto T2718; |
5025 |
T2718:; |
T2718:; |
5026 |
{register object V748; |
if(!(type_of((V744))==t_cons)){ |
|
register object V749; |
|
|
V748= cdr((V742)); |
|
|
V749= car((V748)); |
|
|
goto T2722; |
|
|
T2722:; |
|
|
if(!(endp_prop((V748)))){ |
|
5027 |
goto T2723;} |
goto T2723;} |
5028 |
goto T2701; |
{register object x= car((V744)),V749= VV[241]; |
5029 |
goto T2723; |
while(!endp(V749)) |
5030 |
T2723:; |
if(eql(x,V749->c.c_car)){ |
5031 |
|
goto T2726; |
5032 |
|
}else V749=V749->c.c_cdr; |
5033 |
|
goto T2723;} |
5034 |
|
goto T2726; |
5035 |
|
T2726:; |
5036 |
{register object V750; |
{register object V750; |
5037 |
V751= car((V742)); |
register object V751; |
5038 |
if(!(type_of((V749))==t_symbol)){ |
V750= cdr((V744)); |
5039 |
|
V751= car((V750)); |
5040 |
|
goto T2730; |
5041 |
|
T2730:; |
5042 |
|
if(!(endp_prop((V750)))){ |
5043 |
goto T2731;} |
goto T2731;} |
5044 |
base[4]= symbol_name((V749)); |
goto T2709; |
5045 |
|
goto T2731; |
5046 |
|
T2731:; |
5047 |
|
{register object V752; |
5048 |
|
V753= car((V744)); |
5049 |
|
if(!(type_of((V751))==t_symbol)){ |
5050 |
|
goto T2739;} |
5051 |
|
base[4]= symbol_name((V751)); |
5052 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5053 |
Lstring_downcase(); |
Lstring_downcase(); |
5054 |
vs_top=sup; |
vs_top=sup; |
5055 |
V752= vs_base[0]; |
V754= vs_base[0]; |
5056 |
goto T2729; |
goto T2737; |
5057 |
goto T2731; |
goto T2739; |
5058 |
T2731:; |
T2739:; |
5059 |
if(!(type_of((V749))==t_string)){ |
if(!(type_of((V751))==t_string)){ |
5060 |
goto T2735;} |
goto T2743;} |
5061 |
V752= (V749); |
V754= (V751); |
5062 |
goto T2729; |
goto T2737; |
5063 |
goto T2735; |
goto T2743; |
5064 |
T2735:; |
T2743:; |
5065 |
V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749))); |
V754= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V751))); |
5066 |
goto T2729; |
goto T2737; |
5067 |
T2729:; |
T2737:; |
5068 |
V750= list(2,/* INLINE-ARGS */V751,V752); |
V752= list(2,/* INLINE-ARGS */V753,V754); |
5069 |
V740= make_cons((V750),(V740));} |
V742= make_cons((V752),(V742));} |
5070 |
V748= cdr((V748)); |
V750= cdr((V750)); |
5071 |
V749= car((V748)); |
V751= car((V750)); |
5072 |
goto T2722;} |
goto T2730;} |
5073 |
goto T2715; |
goto T2723; |
5074 |
T2715:; |
T2723:; |
5075 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V744)))); |
5076 |
goto T2701; |
goto T2709; |
5077 |
T2701:; |
T2709:; |
5078 |
V741= cdr((V741)); |
V743= cdr((V743)); |
5079 |
V742= car((V741)); |
V744= car((V743)); |
5080 |
goto T2696;}} |
goto T2704;}} |
5081 |
base[0]=base[0]; |
base[0]=base[0]; |
5082 |
return Cnil; |
return Cnil; |
5083 |
} |
} |
5084 |
/* local entry for function T3LOCAL-DCFUN */ |
/* local entry for function T3LOCAL-DCFUN */ |
5085 |
|
|
5086 |
static object LI54(V758,V759,V760,V761,V762) |
static object LI54(V760,V761,V762,V763,V764) |
5087 |
|
|
5088 |
object V758;object V759;object V760;register object V761;register object V762; |
object V760;object V761;object V762;register object V763;register object V764; |
5089 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
5090 |
bds_check; |
bds_check; |
5091 |
goto TTL; |
goto TTL; |
5092 |
TTL:; |
TTL:; |
5093 |
{object V763; |
{object V765; |
5094 |
register object V764; |
register object V766; |
5095 |
object V765; |
object V767; |
5096 |
if(((V758))==Cnil){ |
if(((V760))==Cnil){ |
|
goto T2750;} |
|
|
V763= small_fixnum(0); |
|
|
goto T2748; |
|
|
goto T2750; |
|
|
T2750:; |
|
|
V763= structure_ref((V761),VV[32],4); |
|
|
goto T2748; |
|
|
T2748:; |
|
|
V764= Cnil; |
|
|
bds_bind(VV[20],(*(LnkLI309))(cadr((V762)))); |
|
|
bds_bind(VV[117],Cnil); |
|
|
V765= caaddr((V762)); |
|
|
if((structure_ref((V761),VV[32],0))==Cnil){ |
|
5097 |
goto T2758;} |
goto T2758;} |
5098 |
V766= structure_ref((V761),VV[32],0); |
V765= small_fixnum(0); |
5099 |
goto T2756; |
goto T2756; |
5100 |
goto T2758; |
goto T2758; |
5101 |
T2758:; |
T2758:; |
5102 |
V766= Cnil; |
V765= structure_ref((V763),VV[32],4); |
5103 |
goto T2756; |
goto T2756; |
5104 |
T2756:; |
T2756:; |
5105 |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[244],V766))); |
V766= Cnil; |
5106 |
|
bds_bind(VV[20],(*(LnkLI309))(cadr((V764)))); |
5107 |
|
bds_bind(VV[117],Cnil); |
5108 |
|
V767= caaddr((V764)); |
5109 |
|
if((structure_ref((V763),VV[32],0))==Cnil){ |
5110 |
|
goto T2766;} |
5111 |
|
V768= structure_ref((V763),VV[32],0); |
5112 |
|
goto T2764; |
5113 |
|
goto T2766; |
5114 |
|
T2766:; |
5115 |
|
V768= Cnil; |
5116 |
|
goto T2764; |
5117 |
|
T2764:; |
5118 |
|
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[244],V768))); |
5119 |
princ_str("\nstatic void ",VV[25]); |
princ_str("\nstatic void ",VV[25]); |
5120 |
if(((V758))==Cnil){ |
if(((V760))==Cnil){ |
5121 |
goto T2765;} |
goto T2773;} |
5122 |
V767= VV[245]; |
V769= VV[245]; |
5123 |
goto T2763; |
goto T2771; |
5124 |
goto T2765; |
goto T2773; |
5125 |
T2765:; |
T2773:; |
5126 |
V767= VV[246]; |
V769= VV[246]; |
5127 |
goto T2763; |
goto T2771; |
5128 |
T2763:; |
T2771:; |
5129 |
(void)((*(LnkLI274))(V767)); |
(void)((*(LnkLI274))(V769)); |
5130 |
V768= structure_ref((V761),VV[32],3); |
V770= structure_ref((V763),VV[32],3); |
5131 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V768)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V770)); |
5132 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
5133 |
princ_str("base0",VV[25]); |
princ_str("base0",VV[25]); |
5134 |
if(((V765))==Cnil){ |
if(((V767))==Cnil){ |
5135 |
goto T2774;} |
goto T2782;} |
5136 |
V769= VV[247]; |
V771= VV[247]; |
5137 |
goto T2772; |
goto T2780; |
5138 |
goto T2774; |
goto T2782; |
5139 |
T2774:; |
T2782:; |
5140 |
V769= VV[248]; |
V771= VV[248]; |
5141 |
goto T2772; |
goto T2780; |
5142 |
T2772:; |
T2780:; |
5143 |
(void)((*(LnkLI274))(V769)); |
(void)((*(LnkLI274))(V771)); |
5144 |
V770= structure_ref(cadr((V762)),VV[62],1); |
V772= structure_ref(cadr((V764)),VV[62],1); |
5145 |
(void)((*(LnkLI311))(/* INLINE-ARGS */V770,small_fixnum(2))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V772,small_fixnum(2))); |
5146 |
(void)((*(LnkLI316))(caaddr((V762)),Cnil)); |
(void)((*(LnkLI316))(caaddr((V764)),Cnil)); |
5147 |
princ_str("register object *",VV[25]); |
princ_str("register object *",VV[25]); |
5148 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5149 |
princ_str("base0;",VV[25]); |
princ_str("base0;",VV[25]); |
5150 |
bds_bind(VV[249],(V760)); |
bds_bind(VV[249],(V762)); |
5151 |
bds_bind(VV[128],VV[124]); |
bds_bind(VV[128],VV[124]); |
5152 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
5153 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
5154 |
bds_bind(VV[130],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
5155 |
bds_bind(VV[131],one_plus((V763))); |
bds_bind(VV[131],one_plus((V765))); |
5156 |
bds_bind(VV[132],(V760)); |
bds_bind(VV[132],(V762)); |
5157 |
bds_bind(VV[133],(V759)); |
bds_bind(VV[133],(V761)); |
5158 |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
5159 |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
5160 |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
5163 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
5164 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
5165 |
bds_bind(VV[141],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
5166 |
V764= (VV[136]->s.s_dbind); |
V766= (VV[136]->s.s_dbind); |
5167 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
5168 |
V771= structure_ref(cadr((V762)),VV[62],1); |
V773= structure_ref(cadr((V764)),VV[62],1); |
5169 |
V772= structure_ref((V761),VV[32],3); |
V774= structure_ref((V763),VV[32],3); |
5170 |
(void)((*(LnkLI317))(/* INLINE-ARGS */V771,/* INLINE-ARGS */V772,VV[250])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V773,/* INLINE-ARGS */V774,VV[250])); |
5171 |
princ_str("\n VMB",VV[25]); |
princ_str("\n VMB",VV[25]); |
5172 |
(void)((*(LnkLI274))((V764))); |
(void)((*(LnkLI274))((V766))); |
5173 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
5174 |
(void)((*(LnkLI274))((V764))); |
(void)((*(LnkLI274))((V766))); |
5175 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
5176 |
(void)((*(LnkLI274))((V764))); |
(void)((*(LnkLI274))((V766))); |
5177 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
5178 |
goto T2798;} |
goto T2806;} |
5179 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
5180 |
goto T2798; |
goto T2806; |
5181 |
T2798:; |
T2806:; |
5182 |
base[19]= caddr(cddr((V762))); |
base[19]= caddr(cddr((V764))); |
5183 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
5184 |
(void) (*Lnk318)(); |
(void) (*Lnk318)(); |
5185 |
vs_top=sup; |
vs_top=sup; |
5186 |
if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){ |
5187 |
goto T2806;} |
goto T2814;} |
5188 |
if(((VV[138]->s.s_dbind))!=Cnil){ |
if(((VV[138]->s.s_dbind))!=Cnil){ |
5189 |
goto T2806;} |
goto T2814;} |
5190 |
if(((VV[140]->s.s_dbind))!=Cnil){ |
if(((VV[140]->s.s_dbind))!=Cnil){ |
5191 |
goto T2806;} |
goto T2814;} |
5192 |
goto T2804; |
goto T2812; |
5193 |
goto T2806; |
goto T2814; |
5194 |
T2806:; |
T2814:; |
5195 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
5196 |
goto T2804; |
goto T2812; |
5197 |
T2804:; |
T2812:; |
5198 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
5199 |
(void)((*(LnkLI319))((V764),Ct)); |
(void)((*(LnkLI319))((V766),Ct)); |
5200 |
V773= structure_ref((V761),VV[32],3); |
V775= structure_ref((V763),VV[32],3); |
5201 |
{object V774 = (*(LnkLI313))(/* INLINE-ARGS */V773); |
{object V776 = (*(LnkLI313))(/* INLINE-ARGS */V775); |
5202 |
bds_unwind1; |
bds_unwind1; |
5203 |
bds_unwind1; |
bds_unwind1; |
5204 |
bds_unwind1; |
bds_unwind1; |
5216 |
bds_unwind1; |
bds_unwind1; |
5217 |
bds_unwind1; |
bds_unwind1; |
5218 |
bds_unwind1; |
bds_unwind1; |
5219 |
VMR53(V774)}} |
VMR53(V776)}} |
5220 |
base[0]=base[0]; |
base[0]=base[0]; |
5221 |
return Cnil; |
return Cnil; |
5222 |
} |
} |
5223 |
/* local entry for function T3LOCAL-FUN */ |
/* local entry for function T3LOCAL-FUN */ |
5224 |
|
|
5225 |
static object LI55(V780,V781,V782,V783,V784) |
static object LI55(V782,V783,V784,V785,V786) |
5226 |
|
|
5227 |
object V780;object V781;object V782;object V783;object V784; |
object V782;object V783;object V784;object V785;object V786; |
5228 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
5229 |
bds_check; |
bds_check; |
5230 |
goto TTL; |
goto TTL; |
5231 |
TTL:; |
TTL:; |
5232 |
{long V785; |
{long V787; |
5233 |
if(((V780))==Cnil){ |
if(((V782))==Cnil){ |
5234 |
goto T2818;} |
goto T2826;} |
5235 |
V785= 0; |
V787= 0; |
5236 |
goto T2816; |
goto T2824; |
5237 |
goto T2818; |
goto T2826; |
5238 |
T2818:; |
T2826:; |
5239 |
V785= fix(structure_ref((V783),VV[32],4)); |
V787= fix(structure_ref((V785),VV[32],4)); |
5240 |
goto T2816; |
goto T2824; |
5241 |
T2816:; |
T2824:; |
5242 |
bds_bind(VV[20],(*(LnkLI309))(cadr((V784)))); |
bds_bind(VV[20],(*(LnkLI309))(cadr((V786)))); |
5243 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
5244 |
if(!(((V780))==(VV[251]))){ |
if(!(((V782))==(VV[251]))){ |
5245 |
goto T2821;} |
goto T2829;} |
5246 |
{object V786 = (*(LnkLI250))((V780),(V781),(V782),(V783),(V784)); |
{object V788 = (*(LnkLI250))((V782),(V783),(V784),(V785),(V786)); |
5247 |
bds_unwind1; |
bds_unwind1; |
5248 |
bds_unwind1; |
bds_unwind1; |
5249 |
VMR54(V786)} |
VMR54(V788)} |
5250 |
goto T2821; |
goto T2829; |
5251 |
T2821:; |
T2829:; |
5252 |
if((structure_ref((V783),VV[32],0))==Cnil){ |
if((structure_ref((V785),VV[32],0))==Cnil){ |
5253 |
goto T2827;} |
goto T2835;} |
5254 |
V787= structure_ref((V783),VV[32],0); |
V789= structure_ref((V785),VV[32],0); |
5255 |
goto T2825; |
goto T2833; |
5256 |
goto T2827; |
goto T2835; |
5257 |
T2827:; |
T2835:; |
5258 |
V787= Cnil; |
V789= Cnil; |
5259 |
goto T2825; |
goto T2833; |
5260 |
T2825:; |
T2833:; |
5261 |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[252],V787))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[252],V789))); |
5262 |
princ_str("\nstatic void ",VV[31]); |
princ_str("\nstatic void ",VV[31]); |
5263 |
if(((V780))==Cnil){ |
if(((V782))==Cnil){ |
5264 |
goto T2834;} |
goto T2842;} |
5265 |
V788= VV[253]; |
V790= VV[253]; |
5266 |
goto T2832; |
goto T2840; |
5267 |
goto T2834; |
goto T2842; |
5268 |
T2834:; |
T2842:; |
5269 |
V788= VV[254]; |
V790= VV[254]; |
5270 |
goto T2832; |
goto T2840; |
5271 |
T2832:; |
T2840:; |
5272 |
(void)((*(LnkLI277))(V788)); |
(void)((*(LnkLI277))(V790)); |
5273 |
V789= structure_ref((V783),VV[32],3); |
V791= structure_ref((V785),VV[32],3); |
5274 |
(void)((*(LnkLI277))(/* INLINE-ARGS */V789)); |
(void)((*(LnkLI277))(/* INLINE-ARGS */V791)); |
5275 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
5276 |
princ_str("\nstatic void ",VV[25]); |
princ_str("\nstatic void ",VV[25]); |
5277 |
if(((V780))==Cnil){ |
if(((V782))==Cnil){ |
5278 |
goto T2843;} |
goto T2851;} |
5279 |
V790= VV[255]; |
V792= VV[255]; |
5280 |
goto T2841; |
goto T2849; |
|
goto T2843; |
|
|
T2843:; |
|
|
V790= VV[256]; |
|
|
goto T2841; |
|
|
T2841:; |
|
|
(void)((*(LnkLI274))(V790)); |
|
|
V791= structure_ref((V783),VV[32],3); |
|
|
(void)((*(LnkLI274))(/* INLINE-ARGS */V791)); |
|
|
princ_char(40,VV[25]); |
|
|
{register object V792; |
|
|
register long V793; |
|
|
V792= make_fixnum(V785); |
|
|
V793= 0; |
|
5281 |
goto T2851; |
goto T2851; |
5282 |
T2851:; |
T2851:; |
5283 |
V794 = make_fixnum(V793); |
V792= VV[256]; |
5284 |
if(!(number_compare(V794,(V792))>=0)){ |
goto T2849; |
5285 |
goto T2852;} |
T2849:; |
5286 |
|
(void)((*(LnkLI274))(V792)); |
5287 |
|
V793= structure_ref((V785),VV[32],3); |
5288 |
|
(void)((*(LnkLI274))(/* INLINE-ARGS */V793)); |
5289 |
|
princ_char(40,VV[25]); |
5290 |
|
{register object V794; |
5291 |
|
register long V795; |
5292 |
|
V794= make_fixnum(V787); |
5293 |
|
V795= 0; |
5294 |
|
goto T2859; |
5295 |
|
T2859:; |
5296 |
|
V796 = make_fixnum(V795); |
5297 |
|
if(!(number_compare(V796,(V794))>=0)){ |
5298 |
|
goto T2860;} |
5299 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5300 |
V795 = make_fixnum(V793); |
V797 = make_fixnum(V795); |
5301 |
(void)((*(LnkLI274))(V795)); |
(void)((*(LnkLI274))(V797)); |
5302 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
5303 |
goto T2847; |
goto T2855; |
5304 |
goto T2852; |
goto T2860; |
5305 |
T2852:; |
T2860:; |
5306 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5307 |
V796 = make_fixnum(V793); |
V798 = make_fixnum(V795); |
5308 |
(void)((*(LnkLI274))(V796)); |
(void)((*(LnkLI274))(V798)); |
5309 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
5310 |
V793= (long)(V793)+1; |
V795= (long)(V795)+1; |
5311 |
goto T2851;} |
goto T2859;} |
5312 |
goto T2847; |
goto T2855; |
5313 |
T2847:; |
T2855:; |
5314 |
princ_str("\nregister object ",VV[25]); |
princ_str("\nregister object ",VV[25]); |
5315 |
{register object V797; |
{register object V799; |
5316 |
register long V798; |
register long V800; |
5317 |
V797= make_fixnum(V785); |
V799= make_fixnum(V787); |
5318 |
V798= 0; |
V800= 0; |
5319 |
goto T2872; |
goto T2880; |
5320 |
T2872:; |
T2880:; |
5321 |
V799 = make_fixnum(V798); |
V801 = make_fixnum(V800); |
5322 |
if(!(number_compare(V799,(V797))>=0)){ |
if(!(number_compare(V801,(V799))>=0)){ |
5323 |
goto T2873;} |
goto T2881;} |
5324 |
princ_char(42,VV[25]); |
princ_char(42,VV[25]); |
5325 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5326 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5327 |
V800 = make_fixnum(V798); |
V802 = make_fixnum(V800); |
5328 |
(void)((*(LnkLI274))(V800)); |
(void)((*(LnkLI274))(V802)); |
5329 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
5330 |
goto T2868; |
goto T2876; |
5331 |
goto T2873; |
goto T2881; |
5332 |
T2873:; |
T2881:; |
5333 |
princ_char(42,VV[25]); |
princ_char(42,VV[25]); |
5334 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5335 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5336 |
V801 = make_fixnum(V798); |
V803 = make_fixnum(V800); |
5337 |
(void)((*(LnkLI274))(V801)); |
(void)((*(LnkLI274))(V803)); |
5338 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
5339 |
V798= (long)(V798)+1; |
V800= (long)(V800)+1; |
5340 |
goto T2872;} |
goto T2880;} |
5341 |
goto T2868; |
goto T2876; |
5342 |
T2868:; |
T2876:; |
5343 |
V802= structure_ref(cadr((V784)),VV[62],1); |
V804= structure_ref(cadr((V786)),VV[62],1); |
5344 |
(void)((*(LnkLI311))(/* INLINE-ARGS */V802,small_fixnum(2))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V804,small_fixnum(2))); |
5345 |
bds_bind(VV[128],VV[127]); |
bds_bind(VV[128],VV[127]); |
5346 |
bds_bind(VV[249],(V782)); |
bds_bind(VV[249],(V784)); |
5347 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
5348 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
5349 |
bds_bind(VV[130],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
5350 |
V803 = make_fixnum(V785); |
V805 = make_fixnum(V787); |
5351 |
bds_bind(VV[131],one_plus(V803)); |
bds_bind(VV[131],one_plus(V805)); |
5352 |
bds_bind(VV[132],(V782)); |
bds_bind(VV[132],(V784)); |
5353 |
bds_bind(VV[133],(V781)); |
bds_bind(VV[133],(V783)); |
5354 |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
5355 |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
5356 |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
5367 |
princ_str("sup=base+VM",VV[25]); |
princ_str("sup=base+VM",VV[25]); |
5368 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
5369 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
5370 |
V804= structure_ref(cadr((V784)),VV[62],1); |
V806= structure_ref(cadr((V786)),VV[62],1); |
5371 |
V805= structure_ref((V783),VV[32],3); |
V807= structure_ref((V785),VV[32],3); |
5372 |
(void)((*(LnkLI317))(/* INLINE-ARGS */V804,/* INLINE-ARGS */V805,VV[257])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V806,/* INLINE-ARGS */V807,VV[257])); |
5373 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
5374 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
5375 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
5376 |
goto T2913;} |
goto T2921;} |
5377 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
5378 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
5379 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
5380 |
goto T2911; |
goto T2919; |
5381 |
goto T2913; |
goto T2921; |
5382 |
T2913:; |
T2921:; |
5383 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
|
goto T2911; |
|
|
T2911:; |
|
|
if((symbol_value(VV[149]))==Cnil){ |
|
|
goto T2919;} |
|
|
princ_str("\n ihs_check;",VV[25]); |
|
5384 |
goto T2919; |
goto T2919; |
5385 |
T2919:; |
T2919:; |
5386 |
if(((V780))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
5387 |
goto T2925;} |
goto T2927;} |
5388 |
(void)((VFUN_NARGS=2,(*(LnkLI334))(caddr((V784)),caddr(cddr((V784)))))); |
princ_str("\n ihs_check;",VV[25]); |
5389 |
goto T2923; |
goto T2927; |
5390 |
goto T2925; |
T2927:; |
5391 |
T2925:; |
if(((V782))==Cnil){ |
5392 |
(void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V784)),caddr(cddr((V784))),(V783)))); |
goto T2933;} |
5393 |
goto T2923; |
(void)((VFUN_NARGS=2,(*(LnkLI334))(caddr((V786)),caddr(cddr((V786)))))); |
5394 |
T2923:; |
goto T2931; |
5395 |
|
goto T2933; |
5396 |
|
T2933:; |
5397 |
|
(void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V786)),caddr(cddr((V786))),(V785)))); |
5398 |
|
goto T2931; |
5399 |
|
T2931:; |
5400 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
5401 |
{object V806; |
{object V808; |
5402 |
V806= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
V808= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
5403 |
setq(VV[33],make_cons((V806),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V808),symbol_value(VV[33])));} |
5404 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
5405 |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
5406 |
V807= (*(LnkLI335))(); |
V809= (*(LnkLI335))(); |
5407 |
bds_unwind1; |
bds_unwind1; |
5408 |
bds_unwind1; |
bds_unwind1; |
5409 |
bds_unwind1; |
bds_unwind1; |
5419 |
bds_unwind1; |
bds_unwind1; |
5420 |
bds_unwind1; |
bds_unwind1; |
5421 |
bds_unwind1; |
bds_unwind1; |
5422 |
V808= structure_ref((V783),VV[32],3); |
V810= structure_ref((V785),VV[32],3); |
5423 |
{object V809 = (*(LnkLI313))(/* INLINE-ARGS */V808); |
{object V811 = (*(LnkLI313))(/* INLINE-ARGS */V810); |
5424 |
bds_unwind1; |
bds_unwind1; |
5425 |
bds_unwind1; |
bds_unwind1; |
5426 |
VMR54(V809)}} |
VMR54(V811)}} |
5427 |
base[0]=base[0]; |
base[0]=base[0]; |
5428 |
return Cnil; |
return Cnil; |
5429 |
} |
} |
5434 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
5435 |
goto TTL; |
goto TTL; |
5436 |
TTL:; |
TTL:; |
5437 |
{register object V810; |
{register object V812; |
5438 |
V810= Cnil; |
V812= Cnil; |
|
{register object V811; |
|
|
register object V812; |
|
|
V811= symbol_value(VV[18]); |
|
|
V812= car((V811)); |
|
|
goto T2940; |
|
|
T2940:; |
|
|
if(!(endp_prop((V811)))){ |
|
|
goto T2941;} |
|
|
goto T2936; |
|
|
goto T2941; |
|
|
T2941:; |
|
5439 |
{register object V813; |
{register object V813; |
5440 |
if(!(type_of((V812))==t_cons)){ |
register object V814; |
5441 |
goto T2948;} |
V813= symbol_value(VV[18]); |
5442 |
{register object V814; |
V814= car((V813)); |
|
V814= car((V812)); |
|
|
V812= cdr((V812)); |
|
|
V813= (V814); |
|
|
goto T2946;} |
|
5443 |
goto T2948; |
goto T2948; |
5444 |
T2948:; |
T2948:; |
5445 |
V813= Ct; |
if(!(endp_prop((V813)))){ |
5446 |
goto T2946; |
goto T2949;} |
5447 |
T2946:; |
goto T2944; |
5448 |
if(!(((V810))==((V813)))){ |
goto T2949; |
5449 |
goto T2955;} |
T2949:; |
5450 |
|
{register object V815; |
5451 |
|
if(!(type_of((V814))==t_cons)){ |
5452 |
|
goto T2956;} |
5453 |
|
{register object V816; |
5454 |
|
V816= car((V814)); |
5455 |
|
V814= cdr((V814)); |
5456 |
|
V815= (V816); |
5457 |
|
goto T2954;} |
5458 |
|
goto T2956; |
5459 |
|
T2956:; |
5460 |
|
V815= Ct; |
5461 |
|
goto T2954; |
5462 |
|
T2954:; |
5463 |
|
if(!(((V812))==((V815)))){ |
5464 |
|
goto T2963;} |
5465 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5466 |
base[2]= VV[258]; |
base[2]= VV[258]; |
5467 |
base[3]= (V812); |
base[3]= (V814); |
5468 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5469 |
Lformat(); |
Lformat(); |
5470 |
vs_top=sup; |
vs_top=sup; |
|
goto T2953; |
|
|
goto T2955; |
|
|
T2955:; |
|
|
if(!(((V810))==Cnil)){ |
|
|
goto T2961;} |
|
|
goto T2960; |
|
5471 |
goto T2961; |
goto T2961; |
5472 |
T2961:; |
goto T2963; |
5473 |
|
T2963:; |
5474 |
|
if(!(((V812))==Cnil)){ |
5475 |
|
goto T2969;} |
5476 |
|
goto T2968; |
5477 |
|
goto T2969; |
5478 |
|
T2969:; |
5479 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5480 |
base[2]= VV[259]; |
base[2]= VV[259]; |
5481 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5482 |
Lformat(); |
Lformat(); |
5483 |
vs_top=sup; |
vs_top=sup; |
5484 |
goto T2960; |
goto T2968; |
5485 |
T2960:; |
T2968:; |
5486 |
V810= (V813); |
V812= (V815); |
5487 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5488 |
base[2]= VV[260]; |
base[2]= VV[260]; |
5489 |
base[3]= (*(LnkLI280))((V810)); |
base[3]= (*(LnkLI280))((V812)); |
5490 |
base[4]= (V812); |
base[4]= (V814); |
5491 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
5492 |
Lformat(); |
Lformat(); |
5493 |
vs_top=sup; |
vs_top=sup; |
5494 |
goto T2953; |
goto T2961; |
5495 |
T2953:; |
T2961:; |
5496 |
if(!(((V810))==(VV[261]))){ |
if(!(((V812))==(VV[261]))){ |
5497 |
goto T2945;} |
goto T2953;} |
5498 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5499 |
base[2]= VV[262]; |
base[2]= VV[262]; |
5500 |
base[3]= (V812); |
base[3]= (V814); |
5501 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5502 |
Lformat(); |
Lformat(); |
5503 |
vs_top=sup;} |
vs_top=sup;} |
5504 |
goto T2945; |
goto T2953; |
5505 |
T2945:; |
T2953:; |
5506 |
V811= cdr((V811)); |
V813= cdr((V813)); |
5507 |
V812= car((V811)); |
V814= car((V813)); |
5508 |
goto T2940;} |
goto T2948;} |
5509 |
goto T2936; |
goto T2944; |
5510 |
T2936:; |
T2944:; |
5511 |
if(symbol_value(VV[18])==Cnil){ |
if(symbol_value(VV[18])==Cnil){ |
5512 |
goto T2981;} |
goto T2989;} |
5513 |
base[0]= symbol_value(VV[31]); |
base[0]= symbol_value(VV[31]); |
5514 |
base[1]= VV[263]; |
base[1]= VV[263]; |
5515 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5516 |
Lformat(); |
Lformat(); |
5517 |
vs_top=sup; |
vs_top=sup; |
5518 |
goto T2981; |
goto T2989; |
5519 |
T2981:; |
T2989:; |
5520 |
if(eql(symbol_value(VV[141]),small_fixnum(0))){ |
if(eql(symbol_value(VV[141]),small_fixnum(0))){ |
5521 |
goto T2985;} |
goto T2993;} |
5522 |
base[0]= symbol_value(VV[31]); |
base[0]= symbol_value(VV[31]); |
5523 |
base[1]= VV[264]; |
base[1]= VV[264]; |
5524 |
base[2]= symbol_value(VV[141]); |
base[2]= symbol_value(VV[141]); |
5525 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
5526 |
Lformat(); |
Lformat(); |
5527 |
vs_top=sup; |
vs_top=sup; |
5528 |
{object V815 = vs_base[0]; |
{object V817 = vs_base[0]; |
5529 |
VMR55(V815)} |
VMR55(V817)} |
5530 |
goto T2985; |
goto T2993; |
5531 |
T2985:; |
T2993:; |
5532 |
{object V816 = Cnil; |
{object V818 = Cnil; |
5533 |
VMR55(V816)}} |
VMR55(V818)}} |
5534 |
base[0]=base[0]; |
base[0]=base[0]; |
5535 |
return Cnil; |
return Cnil; |
5536 |
} |
} |
5541 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5542 |
register object *sup=base+VM56; VC56 |
register object *sup=base+VM56; VC56 |
5543 |
vs_reserve(VM56); |
vs_reserve(VM56); |
5544 |
{object V817; |
{object V819; |
5545 |
check_arg(1); |
check_arg(1); |
5546 |
V817=(base[0]); |
V819=(base[0]); |
5547 |
vs_top=sup; |
vs_top=sup; |
5548 |
goto TTL; |
goto TTL; |
5549 |
TTL:; |
TTL:; |
5550 |
V818= structure_ref((V817),VV[69],4); |
V820= structure_ref((V819),VV[69],4); |
5551 |
if(eql(/* INLINE-ARGS */V818,VV[72])){ |
if(eql(/* INLINE-ARGS */V820,VV[72])){ |
5552 |
goto T2991;} |
goto T2999;} |
5553 |
goto T2990; |
goto T2998; |
5554 |
goto T2991; |
goto T2999; |
5555 |
T2991:; |
T2999:; |
5556 |
(VV[153]->s.s_dbind)= Ct; |
(VV[153]->s.s_dbind)= Ct; |
5557 |
goto T2990; |
goto T2998; |
5558 |
T2990:; |
T2998:; |
5559 |
{object V819; |
{object V821; |
5560 |
V819= (*(LnkLI348))((V817)); |
V821= (*(LnkLI348))((V819)); |
5561 |
if(((V819))==Cnil){ |
if(((V821))==Cnil){ |
5562 |
goto T2996;} |
goto T3004;} |
5563 |
{object V820; |
{object V822; |
5564 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
5565 |
V820= symbol_value(VV[88]); |
V822= symbol_value(VV[88]); |
5566 |
(void)(structure_set((V817),VV[69],1,(V819))); |
(void)(structure_set((V819),VV[69],1,(V821))); |
5567 |
(void)(structure_set((V817),VV[69],4,(V820))); |
(void)(structure_set((V819),VV[69],4,(V822))); |
5568 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
5569 |
if((base0[1])!=Cnil){ |
if((base0[1])!=Cnil){ |
5570 |
goto T3003;} |
goto T3011;} |
5571 |
princ_char(123,VV[25]); |
princ_char(123,VV[25]); |
5572 |
base0[1]= Ct; |
base0[1]= Ct; |
5573 |
goto T3003; |
goto T3011; |
5574 |
T3003:; |
T3011:; |
5575 |
base[1]= (V817); |
base[1]= (V819); |
5576 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5577 |
(void) (*Lnk349)(); |
(void) (*Lnk349)(); |
5578 |
return;} |
return;} |
5579 |
goto T2996; |
goto T3004; |
5580 |
T2996:; |
T3004:; |
5581 |
base[1]= Cnil; |
base[1]= Cnil; |
5582 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5583 |
return;} |
return;} |
5584 |
} |
} |
5585 |
} |
} |
5586 |
static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* WT-VAR-DECL */ |
static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* WT-VAR-DECL */ |
5587 |
static object LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
static object LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)(void *)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
5588 |
static object LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */ |
static object LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)(void *)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */ |
5589 |
static object LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)&LnkLI343,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */ |
static object LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)(void *)&LnkLI343,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */ |
5590 |
static object LnkTLI342(){return call_proc0(VV[342],(void **)&LnkLI342);} /* WFS-ERROR */ |
static object LnkTLI342(){return call_proc0(VV[342],(void **)(void *)&LnkLI342);} /* WFS-ERROR */ |
5591 |
static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* C2DM */ |
static void LnkT341(){ call_or_link(VV[341],(void **)(void *)&Lnk341);} /* C2DM */ |
5592 |
static object LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)&LnkLI340,3,first,ap);va_end(ap);return V1;} /* C1DM */ |
static object LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)(void *)&LnkLI340,3,first,ap);va_end(ap);return V1;} /* C1DM */ |
5593 |
static object LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[339],(void **)&LnkLI339,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */ |
static object LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[339],(void **)(void *)&LnkLI339,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */ |
5594 |
static object LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)&LnkLI338,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */ |
static object LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)(void *)&LnkLI338,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */ |
5595 |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)&LnkLI337,first,ap);va_end(ap);return V1;} /* WARN */ |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)(void *)&LnkLI337,first,ap);va_end(ap);return V1;} /* WARN */ |
5596 |
static object LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)&LnkLI336,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
static object LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)(void *)&LnkLI336,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
5597 |
static object LnkTLI335(){return call_proc0(VV[335],(void **)&LnkLI335);} /* WT-CVARS */ |
static object LnkTLI335(){return call_proc0(VV[335],(void **)(void *)&LnkLI335);} /* WT-CVARS */ |
5598 |
static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)&LnkLI334,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)(void *)&LnkLI334,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
5599 |
static object LnkTLI333(){return call_proc0(VV[333],(void **)&LnkLI333);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI333(){return call_proc0(VV[333],(void **)(void *)&LnkLI333);} /* CLOSE-INLINE-BLOCKS */ |
5600 |
static object LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
static object LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
5601 |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
5602 |
static object LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
static object LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
5603 |
static object LnkTLI329(){return call_proc0(VV[329],(void **)&LnkLI329);} /* BABOON */ |
static object LnkTLI329(){return call_proc0(VV[329],(void **)(void *)&LnkLI329);} /* BABOON */ |
5604 |
static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
5605 |
static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* INC-INLINE-BLOCKS */ |
static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* INC-INLINE-BLOCKS */ |
5606 |
static object LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[326],(void **)&LnkLI326,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
static object LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[326],(void **)(void *)&LnkLI326,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
5607 |
static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
5608 |
static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
5609 |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)&LnkLI323,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */ |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */ |
5610 |
static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[322],(void **)&LnkLI322,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[322],(void **)(void *)&LnkLI322,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
5611 |
static object LnkTLI321(){return call_proc0(VV[321],(void **)&LnkLI321);} /* CVS-PUSH */ |
static object LnkTLI321(){return call_proc0(VV[321],(void **)(void *)&LnkLI321);} /* CVS-PUSH */ |
5612 |
static object LnkTLI320(){return call_proc0(VV[320],(void **)&LnkLI320);} /* VS-PUSH */ |
static object LnkTLI320(){return call_proc0(VV[320],(void **)(void *)&LnkLI320);} /* VS-PUSH */ |
5613 |
static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */ |
static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */ |
5614 |
static void LnkT318(){ call_or_link(VV[318],(void **)&Lnk318);} /* C2EXPR */ |
static void LnkT318(){ call_or_link(VV[318],(void **)(void *)&Lnk318);} /* C2EXPR */ |
5615 |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)&LnkLI317,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */ |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */ |
5616 |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */ |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)(void *)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */ |
5617 |
static object LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[315],(void **)&LnkLI315,first,ap);va_end(ap);return V1;} /* WT-COMMENT */ |
static object LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[315],(void **)(void *)&LnkLI315,first,ap);va_end(ap);return V1;} /* WT-COMMENT */ |
5618 |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */ |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */ |
5619 |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */ |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */ |
5620 |
static void LnkT312(){ call_or_link(VV[312],(void **)&Lnk312);} /* T3DEFUN-AUX */ |
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* T3DEFUN-AUX */ |
5621 |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)&LnkLI311,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */ |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */ |
5622 |
static void LnkT310(){ call_or_link(VV[310],(void **)&Lnk310);} /* FIXNUMP */ |
static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* FIXNUMP */ |
5623 |
static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)&LnkLI309,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
5624 |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)&LnkLI308,1,first,ap);va_end(ap);return V1;} /* MAXARGS */ |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,1,first,ap);va_end(ap);return V1;} /* MAXARGS */ |
5625 |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VARARG-P */ |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VARARG-P */ |
5626 |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)&LnkLI306,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */ |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */ |
5627 |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)&LnkLI305,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
5628 |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
5629 |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)&LnkLI303,first,ap);va_end(ap);return V1;} /* ADD-INIT */ |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)(void *)&LnkLI303,first,ap);va_end(ap);return V1;} /* ADD-INIT */ |
5630 |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)&LnkLI302,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)(void *)&LnkLI302,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
5631 |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */ |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */ |
5632 |
static object LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)&LnkLI300,257,first,ap);va_end(ap);return V1;} /* F-TYPE */ |
static object LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)(void *)&LnkLI300,257,first,ap);va_end(ap);return V1;} /* F-TYPE */ |
5633 |
static void LnkT299(){ call_or_link(VV[299],(void **)&Lnk299);} /* SUBTYPEP */ |
static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* SUBTYPEP */ |
5634 |
static void LnkT298(){ call_or_link(VV[298],(void **)&Lnk298);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* STRUCTURE-SUBTYPE-P */ |
5635 |
static object LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[297],(void **)&LnkLI297,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
static object LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[297],(void **)(void *)&LnkLI297,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
5636 |
static object LnkTLI296(){return call_proc0(VV[296],(void **)&LnkLI296);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
static object LnkTLI296(){return call_proc0(VV[296],(void **)(void *)&LnkLI296);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
5637 |
static object LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)&LnkLI295,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */ |
static object LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)(void *)&LnkLI295,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */ |
5638 |
static object LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
static object LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)(void *)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
5639 |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */ |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */ |
5640 |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */ |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */ |
5641 |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)&LnkLI291,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */ |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */ |
5642 |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)&LnkLI290,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)(void *)&LnkLI290,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
5643 |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* T1PROGN */ |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* T1PROGN */ |
5644 |
static object LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
static object LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
5645 |
static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* CMP-EVAL */ |
static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* CMP-EVAL */ |
5646 |
static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* DECLARATION-TYPE */ |
static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* DECLARATION-TYPE */ |
5647 |
static object LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
static object LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)(void *)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
5648 |
static void LnkT279(){ call_or_link(VV[279],(void **)&Lnk279);} /* WT-DATA-FILE */ |
static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* WT-DATA-FILE */ |
5649 |
static object LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */ |
static object LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */ |
5650 |
static object LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* WT-H1 */ |
static object LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)(void *)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* WT-H1 */ |
5651 |
static object LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */ |
static object LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */ |
5652 |
static void LnkT275(){ call_or_link(VV[275],(void **)&Lnk275);} /* WT-GLOBAL-ENTRY */ |
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* WT-GLOBAL-ENTRY */ |
5653 |
static void LnkT257(){ call_or_link(VV[257],(void **)&Lnk257);} /* T3LOCAL-FUN */ |
static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* T3LOCAL-FUN */ |
5654 |
static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)&LnkLI274,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)(void *)&LnkLI274,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
5655 |
static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)&LnkLI273,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */ |
static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,1,first,ap);va_end(ap);return V1;} /* T1ORDINARY */ |
5656 |
static object LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* T1ORDINARY */ |
static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* T1EXPR */ |
5657 |
static void LnkT271(){ call_or_link(VV[271],(void **)&Lnk271);} /* T1EXPR */ |
static object LnkTLI271(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[271],(void **)(void *)&LnkLI271,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */ |
5658 |
static object LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */ |
static object LnkTLI270(){return call_proc0(VV[270],(void **)(void *)&LnkLI270);} /* PRINT-CURRENT-FORM */ |
5659 |
static object LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PRINT-CURRENT-FORM */ |
static object LnkTLI269(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[269],(void **)(void *)&LnkLI269,1,first,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */ |
5660 |
static object LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)&LnkLI268,1,first,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */ |
static object LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)(void *)&LnkLI268,2,first,ap);va_end(ap);return V1;} /* MAYBE-EVAL */ |
5661 |
static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)&LnkLI267,2,first,ap);va_end(ap);return V1;} /* MAYBE-EVAL */ |
static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */ |
5662 |
static object LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)&LnkLI266,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
static object LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)(void *)&LnkLI266,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
5663 |
static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)&LnkLI265,first,ap);va_end(ap);return V1;} /* CMPERR */ |
static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)(void *)&LnkLI265,first,ap);va_end(ap);return V1;} /* CMPERR */ |
5664 |
|
|
5665 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
5666 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |
5667 |
#endif |
#endif |
5668 |
|
|