1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_defstruct.h" |
4 |
|
void init_gcl_defstruct(){do_init(VV);} |
5 |
|
/* local entry for function MAKE-ACCESS-FUNCTION */ |
6 |
|
|
7 |
|
static object LI1(object V12,object V11,object V10,object V9,object V8,object V7,object V6,object V5,object V4,object V3,object V2,object V1,object first,...) |
8 |
|
{ |
9 |
|
va_list ap; |
10 |
|
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
11 |
|
{object V13; |
12 |
|
object V14; |
13 |
|
object V15; |
14 |
|
object V16; |
15 |
|
object V17; |
16 |
|
object V18; |
17 |
|
object V19; |
18 |
|
object V20; |
19 |
|
object V21; |
20 |
|
object V22; |
21 |
|
object V23; |
22 |
|
object V24; |
23 |
|
va_start(ap,first); |
24 |
|
if(narg <12) too_few_arguments(); |
25 |
|
V13= V12; |
26 |
|
V14= V11; |
27 |
|
V15= V10; |
28 |
|
V16= V9; |
29 |
|
V17= V8; |
30 |
|
V18= V7; |
31 |
|
V19= V6; |
32 |
|
V20= V5; |
33 |
|
V21= V4; |
34 |
|
V22= V3; |
35 |
|
V23= V2; |
36 |
|
Vcs[11]=MMcons(V1,Cnil); |
37 |
|
narg = narg - 12; |
38 |
|
if (narg <= 0) goto T1; |
39 |
|
else { |
40 |
|
V24= first;} |
41 |
|
--narg; goto T2; |
42 |
|
goto T1; |
43 |
|
T1:; |
44 |
|
V24= Cnil; |
45 |
|
goto T2; |
46 |
|
T2:; |
47 |
|
{register object V25; |
48 |
|
register object V26; |
49 |
|
object V27; |
50 |
|
if(((V15))==Cnil){ |
51 |
|
goto T6;} |
52 |
|
V25= (V20); |
53 |
|
goto T4; |
54 |
|
goto T6; |
55 |
|
T6:; |
56 |
|
base[1]= coerce_to_string((V14)); |
57 |
|
base[2]= coerce_to_string((V20)); |
58 |
|
vs_top=(vs_base=base+1)+2; |
59 |
|
(void) (*Lnk108)(); |
60 |
|
vs_top=sup; |
61 |
|
base[0]= vs_base[0]; |
62 |
|
vs_top=(vs_base=base+0)+1; |
63 |
|
Lintern(); |
64 |
|
vs_top=sup; |
65 |
|
V25= vs_base[0]; |
66 |
|
goto T4; |
67 |
|
T4:; |
68 |
|
V26= Cnil; |
69 |
|
V27= Cnil; |
70 |
|
{object V28= (V16); |
71 |
|
if((V28!= Cnil))goto T12; |
72 |
|
V26= symbol_value(VV[0]); |
73 |
|
goto T11; |
74 |
|
goto T12; |
75 |
|
T12:; |
76 |
|
if((V28!= VV[20]))goto T14; |
77 |
|
V26= symbol_value(VV[1]); |
78 |
|
goto T11; |
79 |
|
goto T14; |
80 |
|
T14:; |
81 |
|
if((V28!= VV[19]))goto T16; |
82 |
|
V26= symbol_value(VV[2]); |
83 |
|
goto T11; |
84 |
|
goto T16; |
85 |
|
T16:; |
86 |
|
FEerror("The ECASE key value ~s is illegal.",1,V28); |
87 |
|
goto T11;} |
88 |
|
goto T11; |
89 |
|
T11:; |
90 |
|
V29 = make_fixnum((long)length((V26))); |
91 |
|
if(!(number_compare(V29,(Vcs[11]->c.c_car))>0)){ |
92 |
|
goto T19;} |
93 |
|
goto T18; |
94 |
|
goto T19; |
95 |
|
T19:; |
96 |
|
V30= number_plus((Vcs[11]->c.c_car),small_fixnum(10)); |
97 |
|
(void)((VFUN_NARGS=2,(*(LnkLI109))((V26),/* INLINE-ARGS */V30))); |
98 |
|
goto T18; |
99 |
|
T18:; |
100 |
|
if(((V27))!=Cnil){ |
101 |
|
goto T21;} |
102 |
|
base[0]= (V25); |
103 |
|
base[1]= VV[3]; |
104 |
|
base[2]= VV[4]; |
105 |
|
base[3]= (V22); |
106 |
|
vs_top=(vs_base=base+0)+4; |
107 |
|
(void) (*Lnk110)(); |
108 |
|
vs_top=sup; |
109 |
|
if((V19)!=Cnil){ |
110 |
|
goto T21;}{object V31; |
111 |
|
base[0]= (V25); |
112 |
|
vs_top=(vs_base=base+0)+1; |
113 |
|
Lfboundp(); |
114 |
|
vs_top=sup; |
115 |
|
if((vs_base[0])!=Cnil){ |
116 |
|
goto T31;} |
117 |
|
V31= Cnil; |
118 |
|
goto T30; |
119 |
|
goto T31; |
120 |
|
T31:; |
121 |
|
V32= aref1((V26),fixint((Vcs[11]->c.c_car))); |
122 |
|
base[0]= (V25); |
123 |
|
vs_top=(vs_base=base+0)+1; |
124 |
|
Lsymbol_function(); |
125 |
|
vs_top=sup; |
126 |
|
V33= vs_base[0]; |
127 |
|
V31= ((/* INLINE-ARGS */V32)==(V33)?Ct:Cnil); |
128 |
|
goto T30; |
129 |
|
T30:; |
130 |
|
if(V31==Cnil)goto T29; |
131 |
|
goto T21; |
132 |
|
goto T29; |
133 |
|
T29:;} |
134 |
|
base[0]= (V25);{object V34; |
135 |
|
V34= aref1((V26),fixint((Vcs[11]->c.c_car))); |
136 |
|
if(V34==Cnil)goto T38; |
137 |
|
base[1]= V34; |
138 |
|
goto T37; |
139 |
|
goto T38; |
140 |
|
T38:;} |
141 |
|
if(!(((V26))==(symbol_value(VV[0])))){ |
142 |
|
goto T42;} |
143 |
|
V35= |
144 |
|
make_cclosure_new(LC16,Cnil,Vcs[11],Cdata); |
145 |
|
goto T40; |
146 |
|
goto T42; |
147 |
|
T42:; |
148 |
|
if(!(((V26))==(symbol_value(VV[1])))){ |
149 |
|
goto T45;} |
150 |
|
V35= |
151 |
|
make_cclosure_new(LC17,Cnil,Vcs[11],Cdata); |
152 |
|
goto T40; |
153 |
|
goto T45; |
154 |
|
T45:; |
155 |
|
if(!(((V26))==(symbol_value(VV[2])))){ |
156 |
|
goto T48;} |
157 |
|
V35= |
158 |
|
make_cclosure_new(LC18,Cnil,Vcs[11],Cdata); |
159 |
|
goto T40; |
160 |
|
goto T48; |
161 |
|
T48:; |
162 |
|
V35= Cnil; |
163 |
|
goto T40; |
164 |
|
T40:; |
165 |
|
base[1]= aset1((V26),fixint((Vcs[11]->c.c_car)),V35); |
166 |
|
goto T37; |
167 |
|
T37:; |
168 |
|
vs_top=(vs_base=base+0)+2; |
169 |
|
siLfset(); |
170 |
|
vs_top=sup; |
171 |
|
goto T21; |
172 |
|
T21:; |
173 |
|
if(((V23))==Cnil){ |
174 |
|
goto T52;} |
175 |
|
(void)(remprop((V25),VV[6])); |
176 |
|
(void)(sputprop((V25),VV[7],Ct)); |
177 |
|
goto T50; |
178 |
|
goto T52; |
179 |
|
T52:; |
180 |
|
(void)(remprop((V25),VV[8])); |
181 |
|
(void)(remprop((V25),VV[9])); |
182 |
|
(void)(remprop((V25),VV[10])); |
183 |
|
{object V36; |
184 |
|
V36= get((V25),VV[6],Cnil); |
185 |
|
if(!(type_of((V36))==t_cons)){ |
186 |
|
goto T60;} |
187 |
|
if(((V18))==Cnil){ |
188 |
|
goto T60;} |
189 |
|
base[0]= (V18); |
190 |
|
base[1]= car((V36)); |
191 |
|
vs_top=(vs_base=base+0)+2; |
192 |
|
(void) (*Lnk111)(); |
193 |
|
vs_top=sup; |
194 |
|
if((vs_base[0])==Cnil){ |
195 |
|
goto T60;} |
196 |
|
if(!(eql(cdr((V36)),(Vcs[11]->c.c_car)))){ |
197 |
|
goto T60;} |
198 |
|
V27= Ct; |
199 |
|
goto T50; |
200 |
|
goto T60; |
201 |
|
T60:; |
202 |
|
if(((V16))==Cnil){ |
203 |
|
goto T73;} |
204 |
|
V37= (V16); |
205 |
|
goto T71; |
206 |
|
goto T73; |
207 |
|
T73:; |
208 |
|
V37= (V13); |
209 |
|
goto T71; |
210 |
|
T71:; |
211 |
|
V38= make_cons(V37,(Vcs[11]->c.c_car)); |
212 |
|
(void)(sputprop((V25),VV[6],/* INLINE-ARGS */V38));} |
213 |
|
goto T50; |
214 |
|
T50:; |
215 |
|
{object V39 = Cnil; |
216 |
|
VMR1(V39)}} |
217 |
|
va_end(ap); |
218 |
|
base[0]=base[0]; |
219 |
|
return Cnil;} |
220 |
|
} |
221 |
|
/* local entry for function MAKE-CONSTRUCTOR */ |
222 |
|
|
223 |
|
static object LI2(V45,V46,V47,V48,V49) |
224 |
|
|
225 |
|
object V45;object V46;object V47;object V48;object V49; |
226 |
|
{ VMB2 VMS2 VMV2 |
227 |
|
goto TTL; |
228 |
|
TTL:; |
229 |
|
{object V50; |
230 |
|
register object V51; |
231 |
|
{object V52; |
232 |
|
object V53= (V49); |
233 |
|
if(endp(V53)){ |
234 |
|
V50= Cnil; |
235 |
|
goto T75;} |
236 |
|
base[0]=V52=MMcons(Cnil,Cnil); |
237 |
|
goto T76; |
238 |
|
T76:; |
239 |
|
if(((V53->c.c_car))!=Cnil){ |
240 |
|
goto T79;} |
241 |
|
(V52->c.c_car)= Cnil; |
242 |
|
goto T77; |
243 |
|
goto T79; |
244 |
|
T79:; |
245 |
|
if((car((V53->c.c_car)))!=Cnil){ |
246 |
|
goto T82;} |
247 |
|
(V52->c.c_car)= list(2,VV[11],cadr((V53->c.c_car))); |
248 |
|
goto T77; |
249 |
|
goto T82; |
250 |
|
T82:; |
251 |
|
(V52->c.c_car)= car((V53->c.c_car)); |
252 |
|
goto T77; |
253 |
|
T77:; |
254 |
|
V53=MMcdr(V53); |
255 |
|
if(endp(V53)){ |
256 |
|
V50= base[0]; |
257 |
|
goto T75;} |
258 |
|
V52=MMcdr(V52)=MMcons(Cnil,Cnil); |
259 |
|
goto T76;} |
260 |
|
goto T75; |
261 |
|
T75:; |
262 |
|
{object V55; |
263 |
|
object V56= (V49); |
264 |
|
if(endp(V56)){ |
265 |
|
V51= Cnil; |
266 |
|
goto T84;} |
267 |
|
base[0]=V55=MMcons(Cnil,Cnil); |
268 |
|
goto T85; |
269 |
|
T85:; |
270 |
|
if(((V56->c.c_car))!=Cnil){ |
271 |
|
goto T88;} |
272 |
|
(V55->c.c_cdr)= Cnil; |
273 |
|
goto T86; |
274 |
|
goto T88; |
275 |
|
T88:; |
276 |
|
if((car((V56->c.c_car)))!=Cnil){ |
277 |
|
goto T91;} |
278 |
|
(V55->c.c_cdr)= Cnil; |
279 |
|
goto T86; |
280 |
|
goto T91; |
281 |
|
T91:; |
282 |
|
if((cadr((V56->c.c_car)))!=Cnil){ |
283 |
|
goto T94;} |
284 |
|
(V55->c.c_cdr)= make_cons(car((V56->c.c_car)),Cnil); |
285 |
|
goto T86; |
286 |
|
goto T94; |
287 |
|
T94:; |
288 |
|
V58= list(2,car((V56->c.c_car)),cadr((V56->c.c_car))); |
289 |
|
(V55->c.c_cdr)= make_cons(/* INLINE-ARGS */V58,Cnil); |
290 |
|
goto T86; |
291 |
|
T86:; |
292 |
|
{object cdr_V55=MMcdr(V55);while(!endp(cdr_V55)) {cdr_V55=MMcdr(cdr_V55);V55=MMcdr(V55);}} |
293 |
|
V56=MMcdr(V56); |
294 |
|
if(endp(V56)){ |
295 |
|
base[0]=base[0]->c.c_cdr; |
296 |
|
V51= base[0]; |
297 |
|
goto T84;} |
298 |
|
goto T85;} |
299 |
|
goto T84; |
300 |
|
T84:; |
301 |
|
if(!(type_of((V46))==t_cons)){ |
302 |
|
goto T98;} |
303 |
|
{register object V59; |
304 |
|
register object V60; |
305 |
|
register object V61; |
306 |
|
V59= cadr((V46)); |
307 |
|
V60= Cnil; |
308 |
|
V61= Cnil; |
309 |
|
goto T103; |
310 |
|
T103:; |
311 |
|
if(!(endp_prop((V59)))){ |
312 |
|
goto T104;} |
313 |
|
base[0]= make_cons(VV[12],(V60)); |
314 |
|
{object V62; |
315 |
|
object V63= (V51); |
316 |
|
if(endp(V63)){ |
317 |
|
base[1]= Cnil; |
318 |
|
goto T109;} |
319 |
|
base[2]=V62=MMcons(Cnil,Cnil); |
320 |
|
goto T110; |
321 |
|
T110:; |
322 |
|
if(!(type_of((V63->c.c_car))!=t_cons)){ |
323 |
|
goto T117;} |
324 |
|
V66= (V63->c.c_car); |
325 |
|
goto T115; |
326 |
|
goto T117; |
327 |
|
T117:; |
328 |
|
V66= car((V63->c.c_car)); |
329 |
|
goto T115; |
330 |
|
T115:; |
331 |
|
{register object x= V66,V65= (V61); |
332 |
|
while(!endp(V65)) |
333 |
|
if(eql(x,V65->c.c_car)){ |
334 |
|
goto T114; |
335 |
|
}else V65=V65->c.c_cdr; |
336 |
|
goto T113;} |
337 |
|
goto T114; |
338 |
|
T114:; |
339 |
|
(V62->c.c_cdr)= Cnil; |
340 |
|
goto T111; |
341 |
|
goto T113; |
342 |
|
T113:; |
343 |
|
(V62->c.c_cdr)= make_cons((V63->c.c_car),Cnil); |
344 |
|
goto T111; |
345 |
|
T111:; |
346 |
|
{object cdr_V62=MMcdr(V62);while(!endp(cdr_V62)) {cdr_V62=MMcdr(cdr_V62);V62=MMcdr(V62);}} |
347 |
|
V63=MMcdr(V63); |
348 |
|
if(endp(V63)){ |
349 |
|
base[2]=base[2]->c.c_cdr; |
350 |
|
base[1]= base[2]; |
351 |
|
goto T109;} |
352 |
|
goto T110;} |
353 |
|
goto T109; |
354 |
|
T109:; |
355 |
|
vs_top=(vs_base=base+0)+2; |
356 |
|
Lreconc(); |
357 |
|
vs_top=sup; |
358 |
|
V51= vs_base[0]; |
359 |
|
goto T100; |
360 |
|
goto T104; |
361 |
|
T104:; |
362 |
|
{register object x= car((V59)),V67= VV[13]; |
363 |
|
while(!endp(V67)) |
364 |
|
if(eql(x,V67->c.c_car)){ |
365 |
|
goto T122; |
366 |
|
}else V67=V67->c.c_cdr; |
367 |
|
goto T120;} |
368 |
|
goto T122; |
369 |
|
T122:; |
370 |
|
if(!((car((V59)))==(VV[14]))){ |
371 |
|
goto T123;} |
372 |
|
goto T120; |
373 |
|
goto T123; |
374 |
|
T123:; |
375 |
|
V59= make_cons(VV[14],(V59)); |
376 |
|
goto T120; |
377 |
|
T120:; |
378 |
|
if(!((car((V59)))==(VV[14]))){ |
379 |
|
goto T128;} |
380 |
|
V60= make_cons(VV[14],(V60)); |
381 |
|
{register object V69; |
382 |
|
object V70; |
383 |
|
object V71; |
384 |
|
V69= cdr((V59)); |
385 |
|
V70= Cnil; |
386 |
|
V71= Cnil; |
387 |
|
goto T135; |
388 |
|
T135:; |
389 |
|
if(!(endp_prop((V69)))){ |
390 |
|
goto T136;} |
391 |
|
base[0]= make_cons(VV[12],(V60)); |
392 |
|
{object V72; |
393 |
|
object V73= (V51); |
394 |
|
if(endp(V73)){ |
395 |
|
base[1]= Cnil; |
396 |
|
goto T142;} |
397 |
|
base[2]=V72=MMcons(Cnil,Cnil); |
398 |
|
goto T143; |
399 |
|
T143:; |
400 |
|
if(!(type_of((V73->c.c_car))!=t_cons)){ |
401 |
|
goto T150;} |
402 |
|
V76= (V73->c.c_car); |
403 |
|
goto T148; |
404 |
|
goto T150; |
405 |
|
T150:; |
406 |
|
V76= car((V73->c.c_car)); |
407 |
|
goto T148; |
408 |
|
T148:; |
409 |
|
{register object x= V76,V75= (V61); |
410 |
|
while(!endp(V75)) |
411 |
|
if(eql(x,V75->c.c_car)){ |
412 |
|
goto T147; |
413 |
|
}else V75=V75->c.c_cdr; |
414 |
|
goto T146;} |
415 |
|
goto T147; |
416 |
|
T147:; |
417 |
|
(V72->c.c_cdr)= Cnil; |
418 |
|
goto T144; |
419 |
|
goto T146; |
420 |
|
T146:; |
421 |
|
(V72->c.c_cdr)= make_cons((V73->c.c_car),Cnil); |
422 |
|
goto T144; |
423 |
|
T144:; |
424 |
|
{object cdr_V72=MMcdr(V72);while(!endp(cdr_V72)) {cdr_V72=MMcdr(cdr_V72);V72=MMcdr(V72);}} |
425 |
|
V73=MMcdr(V73); |
426 |
|
if(endp(V73)){ |
427 |
|
base[2]=base[2]->c.c_cdr; |
428 |
|
base[1]= base[2]; |
429 |
|
goto T142;} |
430 |
|
goto T143;} |
431 |
|
goto T142; |
432 |
|
T142:; |
433 |
|
vs_top=(vs_base=base+0)+2; |
434 |
|
Lreconc(); |
435 |
|
vs_top=sup; |
436 |
|
V51= vs_base[0]; |
437 |
|
goto T132; |
438 |
|
goto T136; |
439 |
|
T136:; |
440 |
|
{register object x= car((V69)),V77= VV[13]; |
441 |
|
while(!endp(V77)) |
442 |
|
if(eql(x,V77->c.c_car)){ |
443 |
|
goto T155; |
444 |
|
}else V77=V77->c.c_cdr; |
445 |
|
goto T153;} |
446 |
|
goto T155; |
447 |
|
T155:; |
448 |
|
if(!((car((V69)))==(VV[15]))){ |
449 |
|
goto T156;} |
450 |
|
V60= make_cons(VV[15],(V60)); |
451 |
|
V69= cdr((V69)); |
452 |
|
if(endp_prop((V69))){ |
453 |
|
goto T164;} |
454 |
|
if(type_of(car((V69)))==t_symbol){ |
455 |
|
goto T163;} |
456 |
|
goto T164; |
457 |
|
T164:; |
458 |
|
(void)((*(LnkLI112))()); |
459 |
|
goto T163; |
460 |
|
T163:; |
461 |
|
V61= make_cons(car((V69)),(V61)); |
462 |
|
V60= make_cons(car((V69)),(V60)); |
463 |
|
V69= cdr((V69)); |
464 |
|
if(!(endp_prop((V69)))){ |
465 |
|
goto T156;} |
466 |
|
base[0]= make_cons(VV[12],(V60)); |
467 |
|
{object V78; |
468 |
|
object V79= (V51); |
469 |
|
if(endp(V79)){ |
470 |
|
base[1]= Cnil; |
471 |
|
goto T179;} |
472 |
|
base[2]=V78=MMcons(Cnil,Cnil); |
473 |
|
goto T180; |
474 |
|
T180:; |
475 |
|
if(!(type_of((V79->c.c_car))!=t_cons)){ |
476 |
|
goto T187;} |
477 |
|
V82= (V79->c.c_car); |
478 |
|
goto T185; |
479 |
|
goto T187; |
480 |
|
T187:; |
481 |
|
V82= car((V79->c.c_car)); |
482 |
|
goto T185; |
483 |
|
T185:; |
484 |
|
{register object x= V82,V81= (V61); |
485 |
|
while(!endp(V81)) |
486 |
|
if(eql(x,V81->c.c_car)){ |
487 |
|
goto T184; |
488 |
|
}else V81=V81->c.c_cdr; |
489 |
|
goto T183;} |
490 |
|
goto T184; |
491 |
|
T184:; |
492 |
|
(V78->c.c_cdr)= Cnil; |
493 |
|
goto T181; |
494 |
|
goto T183; |
495 |
|
T183:; |
496 |
|
(V78->c.c_cdr)= make_cons((V79->c.c_car),Cnil); |
497 |
|
goto T181; |
498 |
|
T181:; |
499 |
|
{object cdr_V78=MMcdr(V78);while(!endp(cdr_V78)) {cdr_V78=MMcdr(cdr_V78);V78=MMcdr(V78);}} |
500 |
|
V79=MMcdr(V79); |
501 |
|
if(endp(V79)){ |
502 |
|
base[2]=base[2]->c.c_cdr; |
503 |
|
base[1]= base[2]; |
504 |
|
goto T179;} |
505 |
|
goto T180;} |
506 |
|
goto T179; |
507 |
|
T179:; |
508 |
|
vs_top=(vs_base=base+0)+2; |
509 |
|
Lreconc(); |
510 |
|
vs_top=sup; |
511 |
|
V51= vs_base[0]; |
512 |
|
goto T132; |
513 |
|
goto T156; |
514 |
|
T156:; |
515 |
|
if((car((V69)))==(VV[12])){ |
516 |
|
goto T189;} |
517 |
|
(void)((*(LnkLI112))()); |
518 |
|
goto T189; |
519 |
|
T189:; |
520 |
|
V60= make_cons(VV[12],(V60)); |
521 |
|
{register object V83; |
522 |
|
V83= cdr((V69)); |
523 |
|
goto T197; |
524 |
|
T197:; |
525 |
|
if(!(endp_prop((V83)))){ |
526 |
|
goto T198;} |
527 |
|
goto T194; |
528 |
|
goto T198; |
529 |
|
T198:; |
530 |
|
V60= make_cons(car((V83)),(V60)); |
531 |
|
if(!(type_of(car((V83)))!=t_cons)){ |
532 |
|
goto T206;} |
533 |
|
if(!(type_of(car((V83)))==t_symbol)){ |
534 |
|
goto T206;} |
535 |
|
V61= make_cons(car((V83)),(V61)); |
536 |
|
goto T204; |
537 |
|
goto T206; |
538 |
|
T206:; |
539 |
|
if(!(type_of(caar((V83)))==t_symbol)){ |
540 |
|
goto T212;} |
541 |
|
if(endp_prop(cdar((V83)))){ |
542 |
|
goto T211;} |
543 |
|
if(!(endp_prop(cddar((V83))))){ |
544 |
|
goto T212;} |
545 |
|
goto T211; |
546 |
|
T211:; |
547 |
|
V61= make_cons(caar((V83)),(V61)); |
548 |
|
goto T204; |
549 |
|
goto T212; |
550 |
|
T212:; |
551 |
|
(void)((*(LnkLI112))()); |
552 |
|
goto T204; |
553 |
|
T204:; |
554 |
|
V83= cdr((V83)); |
555 |
|
goto T197;} |
556 |
|
goto T194; |
557 |
|
T194:; |
558 |
|
base[0]= (V60); |
559 |
|
{object V84; |
560 |
|
object V85= (V51); |
561 |
|
if(endp(V85)){ |
562 |
|
base[1]= Cnil; |
563 |
|
goto T225;} |
564 |
|
base[2]=V84=MMcons(Cnil,Cnil); |
565 |
|
goto T226; |
566 |
|
T226:; |
567 |
|
if(!(type_of((V85->c.c_car))!=t_cons)){ |
568 |
|
goto T233;} |
569 |
|
V88= (V85->c.c_car); |
570 |
|
goto T231; |
571 |
|
goto T233; |
572 |
|
T233:; |
573 |
|
V88= car((V85->c.c_car)); |
574 |
|
goto T231; |
575 |
|
T231:; |
576 |
|
{register object x= V88,V87= (V61); |
577 |
|
while(!endp(V87)) |
578 |
|
if(eql(x,V87->c.c_car)){ |
579 |
|
goto T230; |
580 |
|
}else V87=V87->c.c_cdr; |
581 |
|
goto T229;} |
582 |
|
goto T230; |
583 |
|
T230:; |
584 |
|
(V84->c.c_cdr)= Cnil; |
585 |
|
goto T227; |
586 |
|
goto T229; |
587 |
|
T229:; |
588 |
|
(V84->c.c_cdr)= make_cons((V85->c.c_car),Cnil); |
589 |
|
goto T227; |
590 |
|
T227:; |
591 |
|
{object cdr_V84=MMcdr(V84);while(!endp(cdr_V84)) {cdr_V84=MMcdr(cdr_V84);V84=MMcdr(V84);}} |
592 |
|
V85=MMcdr(V85); |
593 |
|
if(endp(V85)){ |
594 |
|
base[2]=base[2]->c.c_cdr; |
595 |
|
base[1]= base[2]; |
596 |
|
goto T225;} |
597 |
|
goto T226;} |
598 |
|
goto T225; |
599 |
|
T225:; |
600 |
|
vs_top=(vs_base=base+0)+2; |
601 |
|
Lreconc(); |
602 |
|
vs_top=sup; |
603 |
|
V51= vs_base[0]; |
604 |
|
goto T132; |
605 |
|
goto T153; |
606 |
|
T153:; |
607 |
|
if(!(type_of(car((V69)))!=t_cons)){ |
608 |
|
goto T241;} |
609 |
|
V70= car((V69)); |
610 |
|
goto T239; |
611 |
|
goto T241; |
612 |
|
T241:; |
613 |
|
if(!(endp_prop(cdar((V69))))){ |
614 |
|
goto T246;} |
615 |
|
V70= caar((V69)); |
616 |
|
goto T239; |
617 |
|
goto T246; |
618 |
|
T246:; |
619 |
|
goto T237; |
620 |
|
goto T239; |
621 |
|
T239:; |
622 |
|
base[0]= (V70); |
623 |
|
base[1]= (V51); |
624 |
|
base[2]= VV[16]; |
625 |
|
base[3]= VV[113]; |
626 |
|
vs_top=(vs_base=base+0)+4; |
627 |
|
Lmember(); |
628 |
|
vs_top=sup; |
629 |
|
V71= vs_base[0]; |
630 |
|
if(((V71))==Cnil){ |
631 |
|
goto T237;} |
632 |
|
V60= make_cons(car((V71)),(V60)); |
633 |
|
goto T235; |
634 |
|
goto T237; |
635 |
|
T237:; |
636 |
|
V60= make_cons(car((V69)),(V60)); |
637 |
|
goto T235; |
638 |
|
T235:; |
639 |
|
if(!(type_of(car((V69)))!=t_cons)){ |
640 |
|
goto T260;} |
641 |
|
if(type_of(car((V69)))==t_symbol){ |
642 |
|
goto T262;} |
643 |
|
(void)((*(LnkLI112))()); |
644 |
|
goto T262; |
645 |
|
T262:; |
646 |
|
V61= make_cons(car((V69)),(V61)); |
647 |
|
goto T258; |
648 |
|
goto T260; |
649 |
|
T260:; |
650 |
|
if(type_of(caar((V69)))==t_symbol){ |
651 |
|
goto T267;} |
652 |
|
(void)((*(LnkLI112))()); |
653 |
|
goto T258; |
654 |
|
goto T267; |
655 |
|
T267:; |
656 |
|
if(endp_prop(cdar((V69)))){ |
657 |
|
goto T269;} |
658 |
|
if(!(endp_prop(cddar((V69))))){ |
659 |
|
goto T270;} |
660 |
|
goto T269; |
661 |
|
T269:; |
662 |
|
V61= make_cons(caar((V69)),(V61)); |
663 |
|
goto T258; |
664 |
|
goto T270; |
665 |
|
T270:; |
666 |
|
if(type_of(caddar((V69)))==t_symbol){ |
667 |
|
goto T276;} |
668 |
|
(void)((*(LnkLI112))()); |
669 |
|
goto T258; |
670 |
|
goto T276; |
671 |
|
T276:; |
672 |
|
if(endp_prop(cdddar((V69)))){ |
673 |
|
goto T279;} |
674 |
|
(void)((*(LnkLI112))()); |
675 |
|
goto T258; |
676 |
|
goto T279; |
677 |
|
T279:; |
678 |
|
V61= make_cons(caar((V69)),(V61)); |
679 |
|
V61= make_cons(caddar((V69)),(V61)); |
680 |
|
goto T258; |
681 |
|
T258:; |
682 |
|
V69= cdr((V69)); |
683 |
|
goto T135;} |
684 |
|
goto T132; |
685 |
|
T132:; |
686 |
|
goto T100; |
687 |
|
goto T128; |
688 |
|
T128:; |
689 |
|
if(type_of(car((V59)))==t_symbol){ |
690 |
|
goto T287;} |
691 |
|
(void)((*(LnkLI112))()); |
692 |
|
goto T287; |
693 |
|
T287:; |
694 |
|
V60= make_cons(car((V59)),(V60)); |
695 |
|
V61= make_cons(car((V59)),(V61)); |
696 |
|
V59= cdr((V59)); |
697 |
|
goto T103;} |
698 |
|
goto T100; |
699 |
|
T100:; |
700 |
|
V46= car((V46)); |
701 |
|
goto T96; |
702 |
|
goto T98; |
703 |
|
T98:; |
704 |
|
V51= make_cons(VV[17],(V51)); |
705 |
|
goto T96; |
706 |
|
T96:; |
707 |
|
if(((V47))!=Cnil){ |
708 |
|
goto T299;} |
709 |
|
{object V89 = list(4,VV[3],(V46),(V51),listA(3,VV[18],list(2,VV[11],(V45)),(V50))); |
710 |
|
VMR2(V89)} |
711 |
|
goto T299; |
712 |
|
T299:; |
713 |
|
if(((V47))==(VV[19])){ |
714 |
|
goto T301;} |
715 |
|
if(!(type_of((V47))==t_cons)){ |
716 |
|
goto T302;} |
717 |
|
if(!((car((V47)))==(VV[19]))){ |
718 |
|
goto T302;} |
719 |
|
goto T301; |
720 |
|
T301:; |
721 |
|
{object V90 = list(4,VV[3],(V46),(V51),make_cons(VV[19],(V50))); |
722 |
|
VMR2(V90)} |
723 |
|
goto T302; |
724 |
|
T302:; |
725 |
|
if(!(((V47))==(VV[20]))){ |
726 |
|
goto T309;} |
727 |
|
{object V91 = list(4,VV[3],(V46),(V51),make_cons(VV[20],(V50))); |
728 |
|
VMR2(V91)} |
729 |
|
goto T309; |
730 |
|
T309:; |
731 |
|
{object V92; |
732 |
|
base[0]= VV[21]; |
733 |
|
base[1]= (V47); |
734 |
|
vs_top=(vs_base=base+0)+2; |
735 |
|
Lerror(); |
736 |
|
vs_top=sup; |
737 |
|
V92= vs_base[0]; |
738 |
|
if(((V92))==Cnil){ |
739 |
|
goto T315;} |
740 |
|
{object V93 = (V92); |
741 |
|
VMR2(V93)} |
742 |
|
goto T315; |
743 |
|
T315:; |
744 |
|
{object V94 = Cnil; |
745 |
|
VMR2(V94)}}} |
746 |
|
base[0]=base[0]; |
747 |
|
return Cnil; |
748 |
|
} |
749 |
|
/* local entry for function ILLEGAL-BOA */ |
750 |
|
|
751 |
|
static object LI3() |
752 |
|
|
753 |
|
{ VMB3 VMS3 VMV3 |
754 |
|
goto TTL; |
755 |
|
TTL:; |
756 |
|
base[0]= VV[22]; |
757 |
|
vs_top=(vs_base=base+0)+1; |
758 |
|
Lerror(); |
759 |
|
vs_top=sup; |
760 |
|
{object V95 = vs_base[0]; |
761 |
|
VMR3(V95)} |
762 |
|
base[0]=base[0]; |
763 |
|
return Cnil; |
764 |
|
} |
765 |
|
/* local entry for function MAKE-PREDICATE */ |
766 |
|
|
767 |
|
static object LI4(V101,V102,V103,V104,V105) |
768 |
|
|
769 |
|
object V101;object V102;register object V103;object V104;register object V105; |
770 |
|
{ VMB4 VMS4 VMV4 |
771 |
|
goto TTL; |
772 |
|
TTL:; |
773 |
|
{object V106; |
774 |
|
V106= (((V103))==Cnil?Ct:Cnil); |
775 |
|
if(((V106))==Cnil){ |
776 |
|
goto T320;} |
777 |
|
{object V107 = (V106); |
778 |
|
VMR4(V107)} |
779 |
|
goto T320; |
780 |
|
T320:; |
781 |
|
if(((V103))==(VV[19])){ |
782 |
|
goto T322;} |
783 |
|
if(!(type_of((V103))==t_cons)){ |
784 |
|
goto T323;} |
785 |
|
if(!((car((V103)))==(VV[19]))){ |
786 |
|
goto T323;} |
787 |
|
goto T322; |
788 |
|
T322:; |
789 |
|
if(((V104))!=Cnil){ |
790 |
|
goto T329;} |
791 |
|
base[0]= VV[23]; |
792 |
|
vs_top=(vs_base=base+0)+1; |
793 |
|
Lerror(); |
794 |
|
vs_top=sup; |
795 |
|
goto T329; |
796 |
|
T329:; |
797 |
|
V108= list(3,VV[27],VV[28],(V105)); |
798 |
|
V109= list(3,VV[30],VV[31],(V105)); |
799 |
|
{object V110 = list(4,VV[3],(V102),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V108,list(3,VV[29],/* INLINE-ARGS */V109,list(2,VV[11],(V101))))); |
800 |
|
VMR4(V110)} |
801 |
|
goto T323; |
802 |
|
T323:; |
803 |
|
if(!(((V103))==(VV[20]))){ |
804 |
|
goto T334;} |
805 |
|
if(((V104))!=Cnil){ |
806 |
|
goto T336;} |
807 |
|
base[0]= VV[32]; |
808 |
|
vs_top=(vs_base=base+0)+1; |
809 |
|
Lerror(); |
810 |
|
vs_top=sup; |
811 |
|
goto T336; |
812 |
|
T336:; |
813 |
|
if(!(number_compare((V105),small_fixnum(0))==0)){ |
814 |
|
goto T341;} |
815 |
|
{object V111 = list(4,VV[3],(V102),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V101))))); |
816 |
|
VMR4(V111)} |
817 |
|
goto T341; |
818 |
|
T341:; |
819 |
|
V112= list(2,list(3,VV[38],(V105),VV[39]),VV[40]); |
820 |
|
{object V113 = list(4,VV[3],(V102),VV[36],listA(4,VV[37],/* INLINE-ARGS */V112,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V101))))),VV[44])); |
821 |
|
VMR4(V113)} |
822 |
|
goto T334; |
823 |
|
T334:; |
824 |
|
{object V114; |
825 |
|
base[0]= VV[45]; |
826 |
|
vs_top=(vs_base=base+0)+1; |
827 |
|
Lerror(); |
828 |
|
vs_top=sup; |
829 |
|
V114= vs_base[0]; |
830 |
|
if(((V114))==Cnil){ |
831 |
|
goto T346;} |
832 |
|
{object V115 = (V114); |
833 |
|
VMR4(V115)} |
834 |
|
goto T346; |
835 |
|
T346:; |
836 |
|
{object V116 = Cnil; |
837 |
|
VMR4(V116)}}} |
838 |
|
base[0]=base[0]; |
839 |
|
return Cnil; |
840 |
|
} |
841 |
|
/* local entry for function PARSE-SLOT-DESCRIPTION */ |
842 |
|
|
843 |
|
static object LI5(V119,V120) |
844 |
|
|
845 |
|
register object V119;object V120; |
846 |
|
{ VMB5 VMS5 VMV5 |
847 |
|
goto TTL; |
848 |
|
TTL:; |
849 |
|
{object V121; |
850 |
|
object V122; |
851 |
|
register object V123; |
852 |
|
register object V124; |
853 |
|
V121= Cnil; |
854 |
|
V122= Cnil; |
855 |
|
V123= Cnil; |
856 |
|
V124= Cnil; |
857 |
|
if(!(type_of((V119))!=t_cons)){ |
858 |
|
goto T350;} |
859 |
|
V121= (V119); |
860 |
|
goto T348; |
861 |
|
goto T350; |
862 |
|
T350:; |
863 |
|
if(!(endp_prop(cdr((V119))))){ |
864 |
|
goto T354;} |
865 |
|
V121= car((V119)); |
866 |
|
goto T348; |
867 |
|
goto T354; |
868 |
|
T354:; |
869 |
|
V121= car((V119)); |
870 |
|
V122= cadr((V119)); |
871 |
|
{register object V125; |
872 |
|
register object V126; |
873 |
|
register object V127; |
874 |
|
V125= cddr((V119)); |
875 |
|
V126= Cnil; |
876 |
|
V127= Cnil; |
877 |
|
goto T363; |
878 |
|
T363:; |
879 |
|
if(!(endp_prop((V125)))){ |
880 |
|
goto T364;} |
881 |
|
goto T348; |
882 |
|
goto T364; |
883 |
|
T364:; |
884 |
|
V126= car((V125)); |
885 |
|
if(!(endp_prop(cdr((V125))))){ |
886 |
|
goto T370;} |
887 |
|
base[0]= VV[46]; |
888 |
|
base[1]= (V125); |
889 |
|
vs_top=(vs_base=base+0)+2; |
890 |
|
Lerror(); |
891 |
|
vs_top=sup; |
892 |
|
goto T370; |
893 |
|
T370:; |
894 |
|
V127= cadr((V125)); |
895 |
|
{object V128= (V126); |
896 |
|
if((V128!= VV[75]))goto T378; |
897 |
|
V123= (V127); |
898 |
|
goto T377; |
899 |
|
goto T378; |
900 |
|
T378:; |
901 |
|
if((V128!= VV[114]))goto T380; |
902 |
|
V124= (V127); |
903 |
|
goto T377; |
904 |
|
goto T380; |
905 |
|
T380:; |
906 |
|
base[0]= VV[47]; |
907 |
|
base[1]= (V125); |
908 |
|
vs_top=(vs_base=base+0)+2; |
909 |
|
Lerror(); |
910 |
|
vs_top=sup;} |
911 |
|
goto T377; |
912 |
|
T377:; |
913 |
|
V125= cddr((V125)); |
914 |
|
goto T363;} |
915 |
|
goto T348; |
916 |
|
T348:; |
917 |
|
{object V129 = list(5,(V121),(V122),(V123),(V124),(V120)); |
918 |
|
VMR5(V129)}} |
919 |
|
base[0]=base[0]; |
920 |
|
return Cnil; |
921 |
|
} |
922 |
|
/* local entry for function OVERWRITE-SLOT-DESCRIPTIONS */ |
923 |
|
|
924 |
|
static object LI6(V132,V133) |
925 |
|
|
926 |
|
object V132;register object V133; |
927 |
|
{ VMB6 VMS6 VMV6 |
928 |
|
goto TTL; |
929 |
|
TTL:; |
930 |
|
if(((V133))!=Cnil){ |
931 |
|
goto T388;} |
932 |
|
{object V134 = Cnil; |
933 |
|
VMR6(V134)} |
934 |
|
goto T388; |
935 |
|
T388:; |
936 |
|
{register object V135; |
937 |
|
base[0]= caar((V133)); |
938 |
|
base[1]= (V132); |
939 |
|
base[2]= VV[16]; |
940 |
|
base[3]= symbol_function(VV[115]); |
941 |
|
vs_top=(vs_base=base+0)+4; |
942 |
|
Lmember(); |
943 |
|
vs_top=sup; |
944 |
|
V135= vs_base[0]; |
945 |
|
if(((V135))==Cnil){ |
946 |
|
goto T396;} |
947 |
|
if((cadddr(car((V135))))!=Cnil){ |
948 |
|
goto T398;} |
949 |
|
if((cadddr(car((V133))))==Cnil){ |
950 |
|
goto T398;} |
951 |
|
base[0]= VV[48]; |
952 |
|
base[1]= (V135); |
953 |
|
vs_top=(vs_base=base+0)+2; |
954 |
|
Lerror(); |
955 |
|
vs_top=sup; |
956 |
|
goto T398; |
957 |
|
T398:; |
958 |
|
{object V136; |
959 |
|
object V137; |
960 |
|
V136= car((V135)); |
961 |
|
V137= (*(LnkLI116))(caddr(car((V135)))); |
962 |
|
if(type_of(cddr((V136)))!=t_cons)FEwrong_type_argument(Scons,cddr((V136))); |
963 |
|
(cddr((V136)))->c.c_car = (V137); |
964 |
|
(void)(cddr((V136)));}{object V139; |
965 |
|
V139= caddr(car((V135))); |
966 |
|
if(V139==Cnil)goto T413; |
967 |
|
V138= V139; |
968 |
|
goto T412; |
969 |
|
goto T413; |
970 |
|
T413:;} |
971 |
|
V138= Ct; |
972 |
|
goto T412; |
973 |
|
T412:; |
974 |
|
V140= (*(LnkLI117))(V138);{object V142; |
975 |
|
V142= caddr(car((V133))); |
976 |
|
if(V142==Cnil)goto T416; |
977 |
|
V141= V142; |
978 |
|
goto T415; |
979 |
|
goto T416; |
980 |
|
T416:;} |
981 |
|
V141= Ct; |
982 |
|
goto T415; |
983 |
|
T415:; |
984 |
|
V143= (*(LnkLI117))(V141); |
985 |
|
if(equal(/* INLINE-ARGS */V140,/* INLINE-ARGS */V143)){ |
986 |
|
goto T409;} |
987 |
|
base[0]= VV[49]; |
988 |
|
base[1]= car((V135)); |
989 |
|
vs_top=(vs_base=base+0)+2; |
990 |
|
Lerror(); |
991 |
|
vs_top=sup; |
992 |
|
goto T409; |
993 |
|
T409:; |
994 |
|
V144= list(5,caar((V135)),cadar((V135)),caddar((V135)),cadddr(car((V135))),car(cddddr(car((V133))))); |
995 |
|
V145= (*(LnkLI118))((V132),cdr((V133))); |
996 |
|
{object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145); |
997 |
|
VMR6(V146)} |
998 |
|
goto T396; |
999 |
|
T396:; |
1000 |
|
V147= car((V133)); |
1001 |
|
V148= (*(LnkLI118))((V132),cdr((V133))); |
1002 |
|
{object V149 = make_cons(/* INLINE-ARGS */V147,/* INLINE-ARGS */V148); |
1003 |
|
VMR6(V149)}} |
1004 |
|
base[0]=base[0]; |
1005 |
|
return Cnil; |
1006 |
|
} |
1007 |
|
/* local entry for function MAKE-T-TYPE */ |
1008 |
|
|
1009 |
|
static object LI7(V153,V154,V155) |
1010 |
|
|
1011 |
|
object V153;object V154;object V155; |
1012 |
|
{ VMB7 VMS7 VMV7 |
1013 |
|
goto TTL; |
1014 |
|
TTL:; |
1015 |
|
{object V156; |
1016 |
|
V156= Cnil; |
1017 |
|
{register object V157; |
1018 |
|
V157= (VFUN_NARGS=5,(*(LnkLI119))((V153),VV[50],VV[51],VV[52],Ct)); |
1019 |
|
if(((V154))==Cnil){ |
1020 |
|
goto T422;} |
1021 |
|
{object V158; |
1022 |
|
object V159; |
1023 |
|
V158= get((V154),VV[53],Cnil); |
1024 |
|
V159= Cnil; |
1025 |
|
if((V158)!=Cnil){ |
1026 |
|
goto T426;} |
1027 |
|
base[0]= VV[54]; |
1028 |
|
base[1]= (V154); |
1029 |
|
vs_top=(vs_base=base+0)+2; |
1030 |
|
Lerror(); |
1031 |
|
vs_top=sup; |
1032 |
|
goto T426; |
1033 |
|
T426:; |
1034 |
|
V159= structure_ref((V158),VV[53],2); |
1035 |
|
{object V160; |
1036 |
|
register object V161; |
1037 |
|
V162 = make_fixnum((long)length((V159))); |
1038 |
|
V160= (number_compare((V153),V162)<=0?((V153)):V162); |
1039 |
|
V161= small_fixnum(0); |
1040 |
|
goto T434; |
1041 |
|
T434:; |
1042 |
|
if(!(number_compare((V161),(V160))>=0)){ |
1043 |
|
goto T435;} |
1044 |
|
goto T422; |
1045 |
|
goto T435; |
1046 |
|
T435:; |
1047 |
|
V163= aref1((V159),fixint((V161))); |
1048 |
|
(void)(aset1((V157),fixint((V161)),/* INLINE-ARGS */V163)); |
1049 |
|
V161= one_plus((V161)); |
1050 |
|
goto T434;}} |
1051 |
|
goto T422; |
1052 |
|
T422:; |
1053 |
|
{register object V164; |
1054 |
|
register object V165; |
1055 |
|
V164= (V155); |
1056 |
|
V165= car((V164)); |
1057 |
|
goto T447; |
1058 |
|
T447:; |
1059 |
|
if(!(endp_prop((V164)))){ |
1060 |
|
goto T448;} |
1061 |
|
goto T443; |
1062 |
|
goto T448; |
1063 |
|
T448:; |
1064 |
|
V156= car(cddddr((V165))); |
1065 |
|
{register object V166; |
1066 |
|
V166= caddr((V165)); |
1067 |
|
base[1]= (V166); |
1068 |
|
vs_top=(vs_base=base+1)+1; |
1069 |
|
(void) (*Lnk120)(); |
1070 |
|
vs_top=sup; |
1071 |
|
V167= vs_base[0]; |
1072 |
|
if(!(number_compare(V167,symbol_value(VV[55]))<=0)){ |
1073 |
|
goto T454;} |
1074 |
|
base[1]= (V166); |
1075 |
|
vs_top=(vs_base=base+1)+1; |
1076 |
|
(void) (*Lnk121)(); |
1077 |
|
vs_top=sup; |
1078 |
|
V168= vs_base[0]; |
1079 |
|
(void)(aset1((V157),fixint((V156)),V168));} |
1080 |
|
goto T454; |
1081 |
|
T454:; |
1082 |
|
V164= cdr((V164)); |
1083 |
|
V165= car((V164)); |
1084 |
|
goto T447;} |
1085 |
|
goto T443; |
1086 |
|
T443:; |
1087 |
|
V169 = make_fixnum((long)length(symbol_value(VV[56]))); |
1088 |
|
if(!(number_compare((V153),V169)<0)){ |
1089 |
|
goto T468;} |
1090 |
|
{register object V171; |
1091 |
|
V171= small_fixnum(0); |
1092 |
|
goto T473; |
1093 |
|
T473:; |
1094 |
|
if(!(number_compare((V171),V153)>=0)){ |
1095 |
|
goto T474;} |
1096 |
|
goto T470; |
1097 |
|
goto T474; |
1098 |
|
T474:; |
1099 |
|
{long V172= fix(aref1((V157),fixint((V171)))); |
1100 |
|
if((/* INLINE-ARGS */V172)==(0)){ |
1101 |
|
goto T478;}} |
1102 |
|
{object V173 = (V157); |
1103 |
|
VMR7(V173)} |
1104 |
|
goto T478; |
1105 |
|
T478:; |
1106 |
|
V171= one_plus((V171)); |
1107 |
|
goto T473;} |
1108 |
|
goto T470; |
1109 |
|
T470:; |
1110 |
|
{object V174 = symbol_value(VV[56]); |
1111 |
|
VMR7(V174)} |
1112 |
|
goto T468; |
1113 |
|
T468:; |
1114 |
|
{object V175 = (V157); |
1115 |
|
VMR7(V175)}}} |
1116 |
|
base[0]=base[0]; |
1117 |
|
return Cnil; |
1118 |
|
} |
1119 |
|
/* local entry for function ROUND-UP */ |
1120 |
|
|
1121 |
|
static object LI8(V178,V179) |
1122 |
|
|
1123 |
|
long V178;long V179; |
1124 |
|
{ VMB8 VMS8 VMV8 |
1125 |
|
goto TTL; |
1126 |
|
TTL:; |
1127 |
|
base[0]= make_fixnum(V178); |
1128 |
|
base[1]= make_fixnum(V179); |
1129 |
|
vs_top=(vs_base=base+0)+2; |
1130 |
|
Lceiling(); |
1131 |
|
vs_top=sup; |
1132 |
|
V178= fix(vs_base[0]); |
1133 |
|
{long V180 = (long)(V178)*(V179); |
1134 |
|
VMR8((object)V180)} |
1135 |
|
base[0]=base[0]; |
1136 |
|
} |
1137 |
|
/* local entry for function GET-SLOT-POS */ |
1138 |
|
|
1139 |
|
static object LI9(V184,V185,V186) |
1140 |
|
|
1141 |
|
object V184;object V185;object V186; |
1142 |
|
{ VMB9 VMS9 VMV9 |
1143 |
|
goto TTL; |
1144 |
|
TTL:; |
1145 |
|
{register object V187; |
1146 |
|
object V188; |
1147 |
|
object V189; |
1148 |
|
V187= Cnil; |
1149 |
|
V188= Cnil; |
1150 |
|
V189= Cnil; |
1151 |
|
{register object V190; |
1152 |
|
register object V191; |
1153 |
|
V190= (V186); |
1154 |
|
V191= car((V190)); |
1155 |
|
goto T496; |
1156 |
|
T496:; |
1157 |
|
if(!(endp_prop((V190)))){ |
1158 |
|
goto T497;} |
1159 |
|
goto T492; |
1160 |
|
goto T497; |
1161 |
|
T497:; |
1162 |
|
if(((V191))==Cnil){ |
1163 |
|
goto T501;} |
1164 |
|
if((car((V191)))==Cnil){ |
1165 |
|
goto T501;} |
1166 |
|
V187= (*(LnkLI116))(caddr((V191))); |
1167 |
|
if(type_of(cddr(V191))!=t_cons)FEwrong_type_argument(Scons,cddr(V191)); |
1168 |
|
(cddr(V191))->c.c_car = V187; |
1169 |
|
(void)(cddr(V191)); |
1170 |
|
{register object V194; |
1171 |
|
V194= cadr((V191)); |
1172 |
|
base[1]= (V194); |
1173 |
|
base[2]= (V187); |
1174 |
|
vs_top=(vs_base=base+1)+2; |
1175 |
|
(void) (*Lnk122)(); |
1176 |
|
vs_top=sup; |
1177 |
|
if((vs_base[0])!=Cnil){ |
1178 |
|
goto T510;} |
1179 |
|
if(!(type_of((V194))==t_symbol)){ |
1180 |
|
goto T516;} |
1181 |
|
base[1]= (V194); |
1182 |
|
vs_top=(vs_base=base+1)+1; |
1183 |
|
Lconstantp(); |
1184 |
|
vs_top=sup; |
1185 |
|
if((vs_base[0])==Cnil){ |
1186 |
|
goto T516;} |
1187 |
|
base[1]= (V194); |
1188 |
|
vs_top=(vs_base=base+1)+1; |
1189 |
|
Lsymbol_value(); |
1190 |
|
vs_top=sup; |
1191 |
|
V194= vs_base[0]; |
1192 |
|
goto T516; |
1193 |
|
T516:; |
1194 |
|
base[1]= (V194); |
1195 |
|
vs_top=(vs_base=base+1)+1; |
1196 |
|
Lconstantp(); |
1197 |
|
vs_top=sup; |
1198 |
|
if((vs_base[0])!=Cnil){ |
1199 |
|
goto T524;} |
1200 |
|
goto T510; |
1201 |
|
goto T524; |
1202 |
|
T524:; |
1203 |
|
{object V196; |
1204 |
|
V196= (*(LnkLI123))((V194),(V187)); |
1205 |
|
if(type_of(cdr(V191))!=t_cons)FEwrong_type_argument(Scons,cdr(V191)); |
1206 |
|
(cdr(V191))->c.c_car = (V196); |
1207 |
|
(void)(cdr(V191));}} |
1208 |
|
goto T510; |
1209 |
|
T510:; |
1210 |
|
{register object x= (V187),V197= VV[58]; |
1211 |
|
while(!endp(V197)) |
1212 |
|
if(x==(V197->c.c_car)){ |
1213 |
|
goto T530; |
1214 |
|
}else V197=V197->c.c_cdr; |
1215 |
|
goto T501;} |
1216 |
|
goto T530; |
1217 |
|
T530:; |
1218 |
|
V188= Ct; |
1219 |
|
goto T501; |
1220 |
|
T501:; |
1221 |
|
V190= cdr((V190)); |
1222 |
|
V191= car((V190)); |
1223 |
|
goto T496;} |
1224 |
|
goto T492; |
1225 |
|
T492:; |
1226 |
|
{object V198; |
1227 |
|
if(((V188))==Cnil){ |
1228 |
|
goto T538;} |
1229 |
|
V198= Cnil; |
1230 |
|
goto T537; |
1231 |
|
goto T538; |
1232 |
|
T538:; |
1233 |
|
V199 = make_fixnum((long)length(symbol_value(VV[57]))); |
1234 |
|
if(number_compare((V184),V199)<0){ |
1235 |
|
goto T540;} |
1236 |
|
V198= Cnil; |
1237 |
|
goto T537; |
1238 |
|
goto T540; |
1239 |
|
T540:;{object V200; |
1240 |
|
V200= symbol_value(VV[57]); |
1241 |
|
base[0]= Ct; |
1242 |
|
vs_top=(vs_base=base+0)+1; |
1243 |
|
(void) (*Lnk124)(); |
1244 |
|
vs_top=sup; |
1245 |
|
V201= vs_base[0]; |
1246 |
|
V198= list(3,V200,number_times((V184),V201),Cnil);} |
1247 |
|
goto T537; |
1248 |
|
T537:; |
1249 |
|
if(((V198))==Cnil){ |
1250 |
|
goto T545;} |
1251 |
|
{object V202 = (V198); |
1252 |
|
VMR9(V202)} |
1253 |
|
goto T545; |
1254 |
|
T545:; |
1255 |
|
{object V203; |
1256 |
|
register long V204; |
1257 |
|
long V205; |
1258 |
|
long V206; |
1259 |
|
object V207; |
1260 |
|
long V208; |
1261 |
|
V203= (VFUN_NARGS=5,(*(LnkLI119))((V184),VV[50],VV[59],VV[52],Ct)); |
1262 |
|
V204= 0; |
1263 |
|
V205= 0; |
1264 |
|
V206= 0; |
1265 |
|
V208= 0; |
1266 |
|
V207= Cnil; |
1267 |
|
{register object V209; |
1268 |
|
register object V210; |
1269 |
|
V209= (V186); |
1270 |
|
V210= car((V209)); |
1271 |
|
goto T556; |
1272 |
|
T556:; |
1273 |
|
if(!(endp_prop((V209)))){ |
1274 |
|
goto T557;} |
1275 |
|
goto T552; |
1276 |
|
goto T557; |
1277 |
|
T557:; |
1278 |
|
V207= caddr((V210)); |
1279 |
|
base[1]= (V207); |
1280 |
|
vs_top=(vs_base=base+1)+1; |
1281 |
|
(void) (*Lnk120)(); |
1282 |
|
vs_top=sup; |
1283 |
|
V206= fix(vs_base[0]); |
1284 |
|
V211 = make_fixnum(V206); |
1285 |
|
if(number_compare(V211,symbol_value(VV[55]))<=0){ |
1286 |
|
goto T566;} |
1287 |
|
V207= Ct; |
1288 |
|
if(type_of(cddr(V210))!=t_cons)FEwrong_type_argument(Scons,cddr(V210)); |
1289 |
|
(cddr(V210))->c.c_car = Ct; |
1290 |
|
(void)(cddr(V210)); |
1291 |
|
V206= fix(symbol_value(VV[55])); |
1292 |
|
V210= nconc((V210),VV[60]); |
1293 |
|
goto T566; |
1294 |
|
T566:; |
1295 |
|
V208= (long)(*(LnkLI125))(V204,V206); |
1296 |
|
if(!((V204)==(V208))){ |
1297 |
|
goto T579;} |
1298 |
|
goto T578; |
1299 |
|
goto T579; |
1300 |
|
T579:; |
1301 |
|
V189= Ct; |
1302 |
|
goto T578; |
1303 |
|
T578:; |
1304 |
|
V204= V208; |
1305 |
|
V214 = make_fixnum(V204); |
1306 |
|
(void)(aset1((V203),V205,V214)); |
1307 |
|
V215 = make_fixnum(V204); |
1308 |
|
base[1]= (V207); |
1309 |
|
vs_top=(vs_base=base+1)+1; |
1310 |
|
(void) (*Lnk124)(); |
1311 |
|
vs_top=sup; |
1312 |
|
V216= vs_base[0]; |
1313 |
|
V204= fix(number_plus(V215,V216)); |
1314 |
|
V205= (long)(V205)+(1); |
1315 |
|
V209= cdr((V209)); |
1316 |
|
V210= car((V209)); |
1317 |
|
goto T556;} |
1318 |
|
goto T552; |
1319 |
|
T552:; |
1320 |
|
base[0]= Ct; |
1321 |
|
vs_top=(vs_base=base+0)+1; |
1322 |
|
(void) (*Lnk124)(); |
1323 |
|
vs_top=sup; |
1324 |
|
V217= vs_base[0]; |
1325 |
|
V218 = make_fixnum((long)(*(LnkLI125))(V204,fix(V217))); |
1326 |
|
{object V219 = list(3,(V203),V218,(V189)); |
1327 |
|
VMR9(V219)}}}} |
1328 |
|
base[0]=base[0]; |
1329 |
|
return Cnil; |
1330 |
|
} |
1331 |
|
/* local entry for function DEFINE-STRUCTURE */ |
1332 |
|
|
1333 |
|
static object LI10(object V232,object V231,object V230,object V229,object V228,object V227,object V226,object V225,object V224,object V223,object V222,object V221,object V220,object first,...) |
1334 |
|
{ |
1335 |
|
va_list ap; |
1336 |
|
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
1337 |
|
{object V233; |
1338 |
|
object V234; |
1339 |
|
register object V235; |
1340 |
|
object V236; |
1341 |
|
object V237; |
1342 |
|
object V238; |
1343 |
|
object V239; |
1344 |
|
register object V240; |
1345 |
|
object V241; |
1346 |
|
object V242; |
1347 |
|
object V243; |
1348 |
|
object V244; |
1349 |
|
object V245; |
1350 |
|
register object V246; |
1351 |
|
va_start(ap,first); |
1352 |
|
if(narg <13) too_few_arguments(); |
1353 |
|
Vcs[0]=MMcons(V232,Cnil); |
1354 |
|
V233= V231; |
1355 |
|
V234= V230; |
1356 |
|
V235= V229; |
1357 |
|
V236= V228; |
1358 |
|
V237= V227; |
1359 |
|
V238= V226; |
1360 |
|
V239= V225; |
1361 |
|
V240= V224; |
1362 |
|
V241= V223; |
1363 |
|
V242= V222; |
1364 |
|
V243= V221; |
1365 |
|
V244= V220; |
1366 |
|
narg = narg - 13; |
1367 |
|
if (narg <= 0) goto T598; |
1368 |
|
else { |
1369 |
|
V245= first;} |
1370 |
|
if (--narg <= 0) goto T599; |
1371 |
|
else { |
1372 |
|
V246= va_arg(ap,object);} |
1373 |
|
--narg; goto T600; |
1374 |
|
goto T598; |
1375 |
|
T598:; |
1376 |
|
V245= Cnil; |
1377 |
|
goto T599; |
1378 |
|
T599:; |
1379 |
|
V246= Cnil; |
1380 |
|
goto T600; |
1381 |
|
T600:; |
1382 |
|
{object V247; |
1383 |
|
object V248; |
1384 |
|
V247= Cnil; |
1385 |
|
V248= Cnil; |
1386 |
|
if(type_of((V235))==t_cons){ |
1387 |
|
goto T606;} |
1388 |
|
goto T605; |
1389 |
|
goto T606; |
1390 |
|
T606:; |
1391 |
|
if((car((V235)))==(VV[19])){ |
1392 |
|
goto T608;} |
1393 |
|
goto T605; |
1394 |
|
goto T608; |
1395 |
|
T608:; |
1396 |
|
V235= VV[19]; |
1397 |
|
goto T605; |
1398 |
|
T605:; |
1399 |
|
V248= make_fixnum((long)length((V237))); |
1400 |
|
{register object V249; |
1401 |
|
register object V250; |
1402 |
|
V249= (V237); |
1403 |
|
V250= car((V249)); |
1404 |
|
goto T617; |
1405 |
|
T617:; |
1406 |
|
if(!(endp_prop((V249)))){ |
1407 |
|
goto T618;} |
1408 |
|
goto T613; |
1409 |
|
goto T618; |
1410 |
|
T618:; |
1411 |
|
if((V250)==Cnil){ |
1412 |
|
goto T622;} |
1413 |
|
if((car((V250)))!=Cnil){ |
1414 |
|
goto T623;} |
1415 |
|
goto T622; |
1416 |
|
goto T623; |
1417 |
|
T623:; |
1418 |
|
base[1]= (Vcs[0]->c.c_car); |
1419 |
|
base[2]= (V233); |
1420 |
|
base[3]= (V234); |
1421 |
|
base[4]= (V235); |
1422 |
|
base[5]= (V236); |
1423 |
|
base[6]= (V240); |
1424 |
|
base[7]= (V246); |
1425 |
|
{object V251; |
1426 |
|
V251= (V250); |
1427 |
|
vs_top=base+8; |
1428 |
|
while(!endp(V251)) |
1429 |
|
{vs_push(car(V251));V251=cdr(V251);} |
1430 |
|
vs_base=base+1;} |
1431 |
|
(void) (*Lnk126)(); |
1432 |
|
vs_top=sup; |
1433 |
|
goto T622; |
1434 |
|
T622:; |
1435 |
|
V249= cdr((V249)); |
1436 |
|
V250= car((V249)); |
1437 |
|
goto T617;} |
1438 |
|
goto T613; |
1439 |
|
T613:; |
1440 |
|
if(((V238))==Cnil){ |
1441 |
|
goto T638;} |
1442 |
|
if(((V246))!=Cnil){ |
1443 |
|
goto T638;} |
1444 |
|
base[0]= (V238); |
1445 |
|
{object V252= (V235); |
1446 |
|
if((V252!= Cnil))goto T645; |
1447 |
|
base[1]= symbol_function(VV[127]); |
1448 |
|
goto T644; |
1449 |
|
goto T645; |
1450 |
|
T645:; |
1451 |
|
if((V252!= VV[20]))goto T646; |
1452 |
|
base[1]= symbol_function(VV[128]); |
1453 |
|
goto T644; |
1454 |
|
goto T646; |
1455 |
|
T646:; |
1456 |
|
if((V252!= VV[19]))goto T647; |
1457 |
|
base[1]= symbol_function(VV[129]); |
1458 |
|
goto T644; |
1459 |
|
goto T647; |
1460 |
|
T647:; |
1461 |
|
FEerror("The ECASE key value ~s is illegal.",1,V252); |
1462 |
|
base[1]= Cnil; |
1463 |
|
goto T644;} |
1464 |
|
goto T644; |
1465 |
|
T644:; |
1466 |
|
vs_top=(vs_base=base+0)+2; |
1467 |
|
siLfset(); |
1468 |
|
vs_top=sup; |
1469 |
|
goto T638; |
1470 |
|
T638:; |
1471 |
|
if(((V235))!=Cnil){ |
1472 |
|
goto T650;} |
1473 |
|
if(!(((Vcs[0]->c.c_car))==(VV[53]))){ |
1474 |
|
goto T650;} |
1475 |
|
base[1]= Ct; |
1476 |
|
vs_top=(vs_base=base+1)+1; |
1477 |
|
(void) (*Lnk124)(); |
1478 |
|
vs_top=sup; |
1479 |
|
V253= vs_base[0]; |
1480 |
|
V254= number_times((V248),V253); |
1481 |
|
base[0]= (VFUN_NARGS=5,(*(LnkLI119))(/* INLINE-ARGS */V254,VV[50],VV[61],VV[52],Ct)); |
1482 |
|
base[1]= (*(LnkLI130))((V248),Cnil,(V237)); |
1483 |
|
base[2]= symbol_value(VV[57]); |
1484 |
|
base[3]= (V237); |
1485 |
|
base[4]= Ct; |
1486 |
|
vs_top=(vs_base=base+0)+5; |
1487 |
|
(void) (*Lnk131)(); |
1488 |
|
vs_top=sup; |
1489 |
|
V247= vs_base[0]; |
1490 |
|
goto T648; |
1491 |
|
goto T650; |
1492 |
|
T650:; |
1493 |
|
{object V255; |
1494 |
|
object V256; |
1495 |
|
object V257; |
1496 |
|
object V258; |
1497 |
|
if((V240)==Cnil){ |
1498 |
|
V258= Cnil; |
1499 |
|
goto T662;} |
1500 |
|
V258= get((V240),VV[53],Cnil); |
1501 |
|
goto T662; |
1502 |
|
T662:; |
1503 |
|
V255= Cnil; |
1504 |
|
V256= small_fixnum(0); |
1505 |
|
V257= Cnil; |
1506 |
|
if(((V258))==Cnil){ |
1507 |
|
goto T663;} |
1508 |
|
if((structure_ref((V258),VV[53],11))==Cnil){ |
1509 |
|
goto T666;} |
1510 |
|
if((structure_ref((V258),VV[53],3))==Cnil){ |
1511 |
|
goto T667;} |
1512 |
|
{object V259; |
1513 |
|
V259= get((Vcs[0]->c.c_car),VV[53],Cnil); |
1514 |
|
if((V259)==Cnil){ |
1515 |
|
goto T672;} |
1516 |
|
V260= structure_ref((V259),VV[53],4); |
1517 |
|
if((/* INLINE-ARGS */V260)==((V258))){ |
1518 |
|
goto T666;}} |
1519 |
|
goto T672; |
1520 |
|
T672:; |
1521 |
|
goto T667; |
1522 |
|
T667:; |
1523 |
|
(void)((VFUN_NARGS=2,(*(LnkLI132))(VV[62],(V240)))); |
1524 |
|
goto T666; |
1525 |
|
T666:; |
1526 |
|
{object V261; |
1527 |
|
object V263; |
1528 |
|
V261= (Vcs[0]->c.c_car); |
1529 |
|
base[1]= (V261); |
1530 |
|
base[2]= structure_ref(V258,VV[53],3); |
1531 |
|
vs_top=(vs_base=base+1)+2; |
1532 |
|
Ladjoin(); |
1533 |
|
vs_top=sup; |
1534 |
|
V263= vs_base[0]; |
1535 |
|
(void)(structure_set(V258,VV[53],3,(V263)));} |
1536 |
|
goto T663; |
1537 |
|
T663:; |
1538 |
|
if(((V235))!=Cnil){ |
1539 |
|
goto T678;} |
1540 |
|
V255= (*(LnkLI133))((V248),(V240),(V237)); |
1541 |
|
V256= cadr((V255)); |
1542 |
|
V257= caddr((V255)); |
1543 |
|
V255= car((V255)); |
1544 |
|
goto T678; |
1545 |
|
T678:; |
1546 |
|
if(((V235))==Cnil){ |
1547 |
|
goto T690;} |
1548 |
|
V264= Cnil; |
1549 |
|
goto T689; |
1550 |
|
goto T690; |
1551 |
|
T690:; |
1552 |
|
V264= (*(LnkLI130))((V248),(V240),(V237)); |
1553 |
|
goto T689; |
1554 |
|
T689:; |
1555 |
|
V247= (VFUN_NARGS=32,(*(LnkLI134))(VV[63],(Vcs[0]->c.c_car),VV[64],(V248),VV[65],V264,VV[66],(V255),VV[67],(V256),VV[68],(V257),VV[69],(V239),VV[70],(V258),VV[71],(V241),VV[72],(V237),VV[73],(V242),VV[74],(V243),VV[75],(V235),VV[76],(V236),VV[77],(V245),VV[78],(V233)));} |
1556 |
|
goto T648; |
1557 |
|
T648:; |
1558 |
|
{object V265; |
1559 |
|
V265= get((Vcs[0]->c.c_car),VV[53],Cnil); |
1560 |
|
if(!(((Vcs[0]->c.c_car))==(VV[53]))){ |
1561 |
|
goto T696;} |
1562 |
|
if(((V265))==Cnil){ |
1563 |
|
goto T698;} |
1564 |
|
(void)((VFUN_NARGS=1,(*(LnkLI132))(VV[79]))); |
1565 |
|
goto T698; |
1566 |
|
T698:; |
1567 |
|
if((V265)!=Cnil){ |
1568 |
|
goto T694;} |
1569 |
|
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247))); |
1570 |
|
goto T694; |
1571 |
|
goto T696; |
1572 |
|
T696:; |
1573 |
|
if(((V265))==Cnil){ |
1574 |
|
goto T702;} |
1575 |
|
(void)((*(LnkLI135))((V265),(V247),(Vcs[0]->c.c_car))); |
1576 |
|
goto T694; |
1577 |
|
goto T702; |
1578 |
|
T702:; |
1579 |
|
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247))); |
1580 |
|
goto T694; |
1581 |
|
T694:; |
1582 |
|
if(((V245))==Cnil){ |
1583 |
|
goto T704;} |
1584 |
|
(void)(sputprop((Vcs[0]->c.c_car),VV[80],(V245))); |
1585 |
|
goto T704; |
1586 |
|
T704:; |
1587 |
|
if(((V235))!=Cnil){ |
1588 |
|
goto T692;} |
1589 |
|
if(((V244))==Cnil){ |
1590 |
|
goto T692;} |
1591 |
|
base[0]= (V244); |
1592 |
|
base[1]= VV[3]; |
1593 |
|
base[2]= VV[81]; |
1594 |
|
base[3]= Ct; |
1595 |
|
vs_top=(vs_base=base+0)+4; |
1596 |
|
(void) (*Lnk110)(); |
1597 |
|
vs_top=sup; |
1598 |
|
if((V246)!=Cnil){ |
1599 |
|
goto T716;} |
1600 |
|
base[0]= (V244); |
1601 |
|
base[1]= |
1602 |
|
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata); |
1603 |
|
vs_top=(vs_base=base+0)+2; |
1604 |
|
siLfset(); |
1605 |
|
vs_top=sup; |
1606 |
|
goto T716; |
1607 |
|
T716:; |
1608 |
|
(void)(sputprop((V244),VV[82],VV[83])); |
1609 |
|
(void)(sputprop((V244),VV[84],(Vcs[0]->c.c_car)));} |
1610 |
|
goto T692; |
1611 |
|
T692:; |
1612 |
|
{object V266 = Cnil; |
1613 |
|
VMR10(V266)}} |
1614 |
|
va_end(ap); |
1615 |
|
base[0]=base[0]; |
1616 |
|
return Cnil;} |
1617 |
|
} |
1618 |
|
/* macro definition for DEFSTRUCT */ |
1619 |
|
|
1620 |
|
static void L11() |
1621 |
|
{register object *base=vs_base; |
1622 |
|
register object *sup=base+VM11; VC11 |
1623 |
|
vs_reserve(VM11); |
1624 |
|
check_arg(2); |
1625 |
|
vs_top=sup; |
1626 |
|
{object V267=base[0]->c.c_cdr; |
1627 |
|
if(endp(V267))invalid_macro_call(); |
1628 |
|
base[2]= (V267->c.c_car); |
1629 |
|
V267=V267->c.c_cdr; |
1630 |
|
base[3]= V267;} |
1631 |
|
{register object V268; |
1632 |
|
object V269; |
1633 |
|
register object V270; |
1634 |
|
register object V271; |
1635 |
|
register object V272; |
1636 |
|
register object V273; |
1637 |
|
register object V274; |
1638 |
|
register object V275; |
1639 |
|
register object V276; |
1640 |
|
register object V277; |
1641 |
|
register object V278; |
1642 |
|
register object V279; |
1643 |
|
register object V280; |
1644 |
|
register object V281; |
1645 |
|
register object V282; |
1646 |
|
object V283; |
1647 |
|
object V284; |
1648 |
|
register object V285; |
1649 |
|
register object V286; |
1650 |
|
V268= base[3]; |
1651 |
|
V269= Cnil; |
1652 |
|
V270= Cnil; |
1653 |
|
V271= Cnil; |
1654 |
|
V272= Cnil; |
1655 |
|
V273= Cnil; |
1656 |
|
V274= Cnil; |
1657 |
|
V275= Cnil; |
1658 |
|
V276= Cnil; |
1659 |
|
V277= Cnil; |
1660 |
|
V278= Cnil; |
1661 |
|
V279= Cnil; |
1662 |
|
V280= Cnil; |
1663 |
|
V281= Cnil; |
1664 |
|
V282= Cnil; |
1665 |
|
V283= Cnil; |
1666 |
|
V284= Cnil; |
1667 |
|
V285= Cnil; |
1668 |
|
V286= Cnil; |
1669 |
|
if(!(type_of(base[2])==t_cons)){ |
1670 |
|
goto T720;} |
1671 |
|
V269= cdr(base[2]); |
1672 |
|
base[2]= car(base[2]); |
1673 |
|
goto T720; |
1674 |
|
T720:; |
1675 |
|
base[4]= coerce_to_string(base[2]); |
1676 |
|
base[5]= VV[85]; |
1677 |
|
vs_top=(vs_base=base+4)+2; |
1678 |
|
(void) (*Lnk108)(); |
1679 |
|
vs_top=sup; |
1680 |
|
V270= vs_base[0]; |
1681 |
|
base[5]= VV[86]; |
1682 |
|
base[6]= coerce_to_string(base[2]); |
1683 |
|
vs_top=(vs_base=base+5)+2; |
1684 |
|
(void) (*Lnk108)(); |
1685 |
|
vs_top=sup; |
1686 |
|
base[4]= vs_base[0]; |
1687 |
|
vs_top=(vs_base=base+4)+1; |
1688 |
|
Lintern(); |
1689 |
|
vs_top=sup; |
1690 |
|
V272= vs_base[0]; |
1691 |
|
base[5]= VV[87]; |
1692 |
|
base[6]= coerce_to_string(base[2]); |
1693 |
|
vs_top=(vs_base=base+5)+2; |
1694 |
|
(void) (*Lnk108)(); |
1695 |
|
vs_top=sup; |
1696 |
|
base[4]= vs_base[0]; |
1697 |
|
vs_top=(vs_base=base+4)+1; |
1698 |
|
Lintern(); |
1699 |
|
vs_top=sup; |
1700 |
|
V274= vs_base[0]; |
1701 |
|
base[5]= coerce_to_string(base[2]); |
1702 |
|
base[6]= VV[88]; |
1703 |
|
vs_top=(vs_base=base+5)+2; |
1704 |
|
(void) (*Lnk108)(); |
1705 |
|
vs_top=sup; |
1706 |
|
base[4]= vs_base[0]; |
1707 |
|
vs_top=(vs_base=base+4)+1; |
1708 |
|
Lintern(); |
1709 |
|
vs_top=sup; |
1710 |
|
V275= vs_base[0]; |
1711 |
|
{register object V287; |
1712 |
|
register object V288; |
1713 |
|
register object V289; |
1714 |
|
V287= (V269); |
1715 |
|
V288= Cnil; |
1716 |
|
V289= Cnil; |
1717 |
|
goto T747; |
1718 |
|
T747:; |
1719 |
|
if(!(endp_prop((V287)))){ |
1720 |
|
goto T748;} |
1721 |
|
goto T745; |
1722 |
|
goto T748; |
1723 |
|
T748:; |
1724 |
|
if(!(type_of(car((V287)))==t_cons)){ |
1725 |
|
goto T754;} |
1726 |
|
if(endp_prop(cdar((V287)))){ |
1727 |
|
goto T754;} |
1728 |
|
V288= caar((V287)); |
1729 |
|
V289= cadar((V287)); |
1730 |
|
{object V290= (V288); |
1731 |
|
if((V290!= VV[78]))goto T762; |
1732 |
|
if(((V289))!=Cnil){ |
1733 |
|
goto T764;} |
1734 |
|
V270= VV[89]; |
1735 |
|
V286= Ct; |
1736 |
|
goto T752; |
1737 |
|
goto T764; |
1738 |
|
T764:; |
1739 |
|
V270= (V289); |
1740 |
|
goto T752; |
1741 |
|
goto T762; |
1742 |
|
T762:; |
1743 |
|
if((V290!= VV[136]))goto T770; |
1744 |
|
if(((V289))!=Cnil){ |
1745 |
|
goto T772;} |
1746 |
|
V273= Ct; |
1747 |
|
goto T752; |
1748 |
|
goto T772; |
1749 |
|
T772:; |
1750 |
|
if(!(endp_prop(cddar((V287))))){ |
1751 |
|
goto T776;} |
1752 |
|
V271= make_cons((V289),(V271)); |
1753 |
|
goto T752; |
1754 |
|
goto T776; |
1755 |
|
T776:; |
1756 |
|
V271= make_cons(cdar((V287)),(V271)); |
1757 |
|
goto T752; |
1758 |
|
goto T770; |
1759 |
|
T770:; |
1760 |
|
if((V290!= VV[137]))goto T780; |
1761 |
|
V274= (V289); |
1762 |
|
goto T752; |
1763 |
|
goto T780; |
1764 |
|
T780:; |
1765 |
|
if((V290!= VV[52]))goto T782; |
1766 |
|
V285= (V289); |
1767 |
|
goto T752; |
1768 |
|
goto T782; |
1769 |
|
T782:; |
1770 |
|
if((V290!= VV[138]))goto T784; |
1771 |
|
V275= (V289); |
1772 |
|
V276= Ct; |
1773 |
|
goto T752; |
1774 |
|
goto T784; |
1775 |
|
T784:; |
1776 |
|
if((V290!= VV[139]))goto T788; |
1777 |
|
V277= cdar((V287)); |
1778 |
|
if((get((V289),VV[53],Cnil))!=Cnil){ |
1779 |
|
goto T752;} |
1780 |
|
base[4]= VV[90]; |
1781 |
|
base[5]= (V289); |
1782 |
|
vs_top=(vs_base=base+4)+2; |
1783 |
|
Lerror(); |
1784 |
|
vs_top=sup; |
1785 |
|
goto T752; |
1786 |
|
goto T788; |
1787 |
|
T788:; |
1788 |
|
if((V290!= VV[71]))goto T795; |
1789 |
|
if(type_of((V289))==t_cons){ |
1790 |
|
goto T797;} |
1791 |
|
goto T796; |
1792 |
|
goto T797; |
1793 |
|
T797:; |
1794 |
|
if((car((V289)))==(VV[91])){ |
1795 |
|
goto T799;} |
1796 |
|
goto T796; |
1797 |
|
goto T799; |
1798 |
|
T799:; |
1799 |
|
V289= cadr((V289)); |
1800 |
|
goto T796; |
1801 |
|
T796:; |
1802 |
|
V278= (V289); |
1803 |
|
goto T752; |
1804 |
|
goto T795; |
1805 |
|
T795:; |
1806 |
|
if((V290!= VV[75]))goto T803; |
1807 |
|
V279= (V289); |
1808 |
|
goto T752; |
1809 |
|
goto T803; |
1810 |
|
T803:; |
1811 |
|
if((V290!= VV[140]))goto T805; |
1812 |
|
V281= (V289); |
1813 |
|
goto T752; |
1814 |
|
goto T805; |
1815 |
|
T805:; |
1816 |
|
base[4]= VV[92]; |
1817 |
|
base[5]= (V288); |
1818 |
|
vs_top=(vs_base=base+4)+2; |
1819 |
|
Lerror(); |
1820 |
|
vs_top=sup; |
1821 |
|
goto T752;} |
1822 |
|
goto T754; |
1823 |
|
T754:; |
1824 |
|
if(!(type_of(car((V287)))==t_cons)){ |
1825 |
|
goto T811;} |
1826 |
|
V288= caar((V287)); |
1827 |
|
goto T809; |
1828 |
|
goto T811; |
1829 |
|
T811:; |
1830 |
|
V288= car((V287)); |
1831 |
|
goto T809; |
1832 |
|
T809:; |
1833 |
|
{object V291= (V288); |
1834 |
|
if((V291!= VV[136]))goto T815; |
1835 |
|
V271= make_cons((V272),(V271)); |
1836 |
|
goto T752; |
1837 |
|
goto T815; |
1838 |
|
T815:; |
1839 |
|
if((V291!= VV[137]) |
1840 |
|
&& (V291!= VV[138]) |
1841 |
|
&& (V291!= VV[71]))goto T817; |
1842 |
|
goto T752; |
1843 |
|
goto T817; |
1844 |
|
T817:; |
1845 |
|
if((V291!= VV[78]))goto T818; |
1846 |
|
V270= VV[93]; |
1847 |
|
V286= Ct; |
1848 |
|
goto T752; |
1849 |
|
goto T818; |
1850 |
|
T818:; |
1851 |
|
if((V291!= VV[76]))goto T822; |
1852 |
|
V280= Ct; |
1853 |
|
goto T752; |
1854 |
|
goto T822; |
1855 |
|
T822:; |
1856 |
|
base[4]= VV[94]; |
1857 |
|
base[5]= (V288); |
1858 |
|
vs_top=(vs_base=base+4)+2; |
1859 |
|
Lerror(); |
1860 |
|
vs_top=sup;} |
1861 |
|
goto T752; |
1862 |
|
T752:; |
1863 |
|
V287= cdr((V287)); |
1864 |
|
goto T747;} |
1865 |
|
goto T745; |
1866 |
|
T745:; |
1867 |
|
base[4]= coerce_to_string((V270)); |
1868 |
|
vs_top=(vs_base=base+4)+1; |
1869 |
|
Lintern(); |
1870 |
|
vs_top=sup; |
1871 |
|
V270= vs_base[0]; |
1872 |
|
if((V277)==Cnil){ |
1873 |
|
goto T832;} |
1874 |
|
if(((V278))==Cnil){ |
1875 |
|
goto T833;} |
1876 |
|
goto T832; |
1877 |
|
goto T833; |
1878 |
|
T833:; |
1879 |
|
V292= get(car((V277)),VV[53],Cnil); |
1880 |
|
V278= structure_ref(V292,VV[53],6); |
1881 |
|
goto T832; |
1882 |
|
T832:; |
1883 |
|
if(endp_prop((V268))){ |
1884 |
|
goto T837;} |
1885 |
|
if(!(type_of(car((V268)))==t_string)){ |
1886 |
|
goto T837;} |
1887 |
|
V284= car((V268)); |
1888 |
|
V268= cdr((V268)); |
1889 |
|
goto T837; |
1890 |
|
T837:; |
1891 |
|
if(((V277))==Cnil){ |
1892 |
|
goto T845;} |
1893 |
|
V293= get(car((V277)),VV[53],Cnil); |
1894 |
|
V294= structure_ref(V293,VV[53],16); |
1895 |
|
if(equal((V279),/* INLINE-ARGS */V294)){ |
1896 |
|
goto T845;} |
1897 |
|
base[4]= VV[95]; |
1898 |
|
base[5]= car((V277)); |
1899 |
|
vs_top=(vs_base=base+4)+2; |
1900 |
|
Lerror(); |
1901 |
|
vs_top=sup; |
1902 |
|
goto T845; |
1903 |
|
T845:; |
1904 |
|
if(((V277))!=Cnil){ |
1905 |
|
goto T855;} |
1906 |
|
V282= small_fixnum(0); |
1907 |
|
goto T853; |
1908 |
|
goto T855; |
1909 |
|
T855:; |
1910 |
|
V295= get(car((V277)),VV[53],Cnil); |
1911 |
|
V282= structure_ref(V295,VV[53],14); |
1912 |
|
goto T853; |
1913 |
|
T853:; |
1914 |
|
if(((V279))==Cnil){ |
1915 |
|
goto T860;} |
1916 |
|
if(((V281))==Cnil){ |
1917 |
|
goto T860;} |
1918 |
|
V282= number_plus((V282),(V281)); |
1919 |
|
goto T860; |
1920 |
|
T860:; |
1921 |
|
if(((V279))==Cnil){ |
1922 |
|
goto T866;} |
1923 |
|
if(((V280))==Cnil){ |
1924 |
|
goto T866;} |
1925 |
|
V283= (V282); |
1926 |
|
V282= one_plus((V282)); |
1927 |
|
goto T866; |
1928 |
|
T866:; |
1929 |
|
{register object V296; |
1930 |
|
register object V297; |
1931 |
|
V296= (V268); |
1932 |
|
V297= Cnil; |
1933 |
|
goto T876; |
1934 |
|
T876:; |
1935 |
|
if(!(endp_prop((V296)))){ |
1936 |
|
goto T877;} |
1937 |
|
V268= nreverse((V297)); |
1938 |
|
goto T874; |
1939 |
|
goto T877; |
1940 |
|
T877:; |
1941 |
|
V298= (*(LnkLI141))(car((V296)),(V282)); |
1942 |
|
V297= make_cons(/* INLINE-ARGS */V298,(V297)); |
1943 |
|
V282= one_plus((V282)); |
1944 |
|
V296= cdr((V296)); |
1945 |
|
goto T876;} |
1946 |
|
goto T874; |
1947 |
|
T874:; |
1948 |
|
if(((V279))==Cnil){ |
1949 |
|
goto T889;} |
1950 |
|
if(((V280))==Cnil){ |
1951 |
|
goto T889;} |
1952 |
|
V299= list(2,Cnil,base[2]); |
1953 |
|
V268= make_cons(/* INLINE-ARGS */V299,(V268)); |
1954 |
|
goto T889; |
1955 |
|
T889:; |
1956 |
|
if(((V279))==Cnil){ |
1957 |
|
goto T895;} |
1958 |
|
if(((V281))==Cnil){ |
1959 |
|
goto T895;} |
1960 |
|
base[4]= (V281); |
1961 |
|
vs_top=(vs_base=base+4)+1; |
1962 |
|
Lmake_list(); |
1963 |
|
vs_top=sup; |
1964 |
|
V300= vs_base[0]; |
1965 |
|
V268= append(V300,(V268)); |
1966 |
|
goto T895; |
1967 |
|
T895:; |
1968 |
|
{object V301; |
1969 |
|
V301= (((V277))==Cnil?Ct:Cnil); |
1970 |
|
if(((V301))==Cnil){ |
1971 |
|
goto T906;} |
1972 |
|
goto T903; |
1973 |
|
goto T906; |
1974 |
|
T906:; |
1975 |
|
if(!(endp_prop(cdr((V277))))){ |
1976 |
|
goto T909;} |
1977 |
|
V302= get(car((V277)),VV[53],Cnil); |
1978 |
|
V303= structure_ref(V302,VV[53],7); |
1979 |
|
V268= append(/* INLINE-ARGS */V303,(V268)); |
1980 |
|
goto T903; |
1981 |
|
goto T909; |
1982 |
|
T909:; |
1983 |
|
{object V305; |
1984 |
|
object V306= cdr((V277)); |
1985 |
|
if(endp(V306)){ |
1986 |
|
V304= Cnil; |
1987 |
|
goto T914;} |
1988 |
|
base[4]=V305=MMcons(Cnil,Cnil); |
1989 |
|
goto T915; |
1990 |
|
T915:; |
1991 |
|
(V305->c.c_car)= (*(LnkLI141))((V306->c.c_car),small_fixnum(0)); |
1992 |
|
V306=MMcdr(V306); |
1993 |
|
if(endp(V306)){ |
1994 |
|
V304= base[4]; |
1995 |
|
goto T914;} |
1996 |
|
V305=MMcdr(V305)=MMcons(Cnil,Cnil); |
1997 |
|
goto T915;} |
1998 |
|
goto T914; |
1999 |
|
T914:; |
2000 |
|
V308= get(car((V277)),VV[53],Cnil); |
2001 |
|
V309= structure_ref(V308,VV[53],7); |
2002 |
|
V310= (*(LnkLI118))(V304,/* INLINE-ARGS */V309); |
2003 |
|
V268= append(/* INLINE-ARGS */V310,(V268));} |
2004 |
|
goto T903; |
2005 |
|
T903:; |
2006 |
|
if(((V273))==Cnil){ |
2007 |
|
goto T920;} |
2008 |
|
if(((V271))==Cnil){ |
2009 |
|
goto T918;} |
2010 |
|
base[4]= VV[96]; |
2011 |
|
vs_top=(vs_base=base+4)+1; |
2012 |
|
Lerror(); |
2013 |
|
vs_top=sup; |
2014 |
|
goto T918; |
2015 |
|
goto T920; |
2016 |
|
T920:; |
2017 |
|
if(((V271))!=Cnil){ |
2018 |
|
goto T918;} |
2019 |
|
V271= make_cons((V272),Cnil); |
2020 |
|
goto T918; |
2021 |
|
T918:;{object V311; |
2022 |
|
{object V314; |
2023 |
|
object V315= (V271); |
2024 |
|
if(endp(V315)){ |
2025 |
|
V313= Cnil; |
2026 |
|
goto T931;} |
2027 |
|
base[4]=V314=MMcons(Cnil,Cnil); |
2028 |
|
goto T932; |
2029 |
|
T932:; |
2030 |
|
base[5]= (V315->c.c_car); |
2031 |
|
vs_top=(vs_base=base+5)+1; |
2032 |
|
Lsymbolp(); |
2033 |
|
vs_top=sup; |
2034 |
|
(V314->c.c_car)= vs_base[0]; |
2035 |
|
V315=MMcdr(V315); |
2036 |
|
if(endp(V315)){ |
2037 |
|
V313= base[4]; |
2038 |
|
goto T931;} |
2039 |
|
V314=MMcdr(V314)=MMcons(Cnil,Cnil); |
2040 |
|
goto T932;} |
2041 |
|
goto T931; |
2042 |
|
T931:; |
2043 |
|
{register object x= Ct,V312= V313; |
2044 |
|
while(!endp(V312)) |
2045 |
|
if(eql(x,V312->c.c_car)){ |
2046 |
|
V311= V312; |
2047 |
|
goto T930; |
2048 |
|
}else V312=V312->c.c_cdr; |
2049 |
|
V311= Cnil;} |
2050 |
|
goto T930; |
2051 |
|
T930:; |
2052 |
|
if(V311==Cnil)goto T929; |
2053 |
|
goto T928; |
2054 |
|
goto T929; |
2055 |
|
T929:;} |
2056 |
|
{object V316; |
2057 |
|
base[6]= VV[97]; |
2058 |
|
base[7]= (V272); |
2059 |
|
vs_top=(vs_base=base+6)+2; |
2060 |
|
(void) (*Lnk108)(); |
2061 |
|
vs_top=sup; |
2062 |
|
base[5]= vs_base[0]; |
2063 |
|
vs_top=(vs_base=base+5)+1; |
2064 |
|
Lintern(); |
2065 |
|
vs_top=sup; |
2066 |
|
V316= vs_base[0]; |
2067 |
|
V271= make_cons((V316),(V271));} |
2068 |
|
goto T928; |
2069 |
|
T928:; |
2070 |
|
if(((V279))==Cnil){ |
2071 |
|
goto T940;} |
2072 |
|
if(((V280))!=Cnil){ |
2073 |
|
goto T940;} |
2074 |
|
if(((V276))==Cnil){ |
2075 |
|
goto T945;} |
2076 |
|
base[4]= VV[98]; |
2077 |
|
base[5]= (V275); |
2078 |
|
vs_top=(vs_base=base+4)+2; |
2079 |
|
Lerror(); |
2080 |
|
vs_top=sup; |
2081 |
|
goto T945; |
2082 |
|
T945:; |
2083 |
|
V275= Cnil; |
2084 |
|
goto T940; |
2085 |
|
T940:; |
2086 |
|
if(((V277))==Cnil){ |
2087 |
|
goto T951;} |
2088 |
|
V277= car((V277)); |
2089 |
|
goto T951; |
2090 |
|
T951:; |
2091 |
|
if(((V278))==Cnil){ |
2092 |
|
goto T955;} |
2093 |
|
if(((V279))==Cnil){ |
2094 |
|
goto T955;} |
2095 |
|
base[4]= VV[99]; |
2096 |
|
vs_top=(vs_base=base+4)+1; |
2097 |
|
Lerror(); |
2098 |
|
vs_top=sup; |
2099 |
|
goto T955; |
2100 |
|
T955:; |
2101 |
|
base[4]= VV[101]; |
2102 |
|
base[5]= list(2,VV[11],base[2]); |
2103 |
|
base[6]= list(2,VV[11],(V270)); |
2104 |
|
base[7]= list(2,VV[11],(V286)); |
2105 |
|
base[8]= list(2,VV[11],(V279)); |
2106 |
|
base[9]= list(2,VV[11],(V280)); |
2107 |
|
base[10]= list(2,VV[11],(V268)); |
2108 |
|
base[11]= list(2,VV[11],(V274)); |
2109 |
|
base[12]= list(2,VV[11],(V285)); |
2110 |
|
base[13]= list(2,VV[11],(V277)); |
2111 |
|
base[14]= list(2,VV[11],(V278)); |
2112 |
|
base[15]= list(2,VV[11],(V271)); |
2113 |
|
base[16]= list(2,VV[11],(V282)); |
2114 |
|
base[17]= list(2,VV[11],(V275)); |
2115 |
|
base[18]= list(2,VV[11],(V284)); |
2116 |
|
vs_top=(vs_base=base+4)+15; |
2117 |
|
Llist(); |
2118 |
|
vs_top=sup; |
2119 |
|
V317= vs_base[0]; |
2120 |
|
{object V319; |
2121 |
|
object V320= (V271); |
2122 |
|
if(endp(V320)){ |
2123 |
|
base[4]= Cnil; |
2124 |
|
goto T978;} |
2125 |
|
base[5]=V319=MMcons(Cnil,Cnil); |
2126 |
|
goto T979; |
2127 |
|
T979:; |
2128 |
|
(V319->c.c_car)= (*(LnkLI142))(base[2],(V320->c.c_car),(V279),(V280),(V268)); |
2129 |
|
V320=MMcdr(V320); |
2130 |
|
if(endp(V320)){ |
2131 |
|
base[4]= base[5]; |
2132 |
|
goto T978;} |
2133 |
|
V319=MMcdr(V319)=MMcons(Cnil,Cnil); |
2134 |
|
goto T979;} |
2135 |
|
goto T978; |
2136 |
|
T978:; |
2137 |
|
if(((V279))==Cnil){ |
2138 |
|
goto T983;} |
2139 |
|
if(((V275))==Cnil){ |
2140 |
|
goto T983;} |
2141 |
|
V322= (*(LnkLI143))(base[2],(V275),(V279),(V280),(V283)); |
2142 |
|
base[5]= make_cons(/* INLINE-ARGS */V322,Cnil); |
2143 |
|
goto T981; |
2144 |
|
goto T983; |
2145 |
|
T983:; |
2146 |
|
base[5]= Cnil; |
2147 |
|
goto T981; |
2148 |
|
T981:; |
2149 |
|
V323= list(2,VV[11],base[2]); |
2150 |
|
base[6]= make_cons(/* INLINE-ARGS */V323,Cnil); |
2151 |
|
vs_top=(vs_base=base+4)+3; |
2152 |
|
Lappend(); |
2153 |
|
vs_top=sup; |
2154 |
|
V318= vs_base[0]; |
2155 |
|
base[4]= listA(3,VV[100],V317,V318); |
2156 |
|
vs_top=(vs_base=base+4)+1; |
2157 |
|
return;} |
2158 |
|
} |
2159 |
|
/* local entry for function MAKE-S-DATA */ |
2160 |
|
|
2161 |
|
static object LI12(object first,...) |
2162 |
|
{ |
2163 |
|
va_list ap; |
2164 |
|
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
2165 |
|
{object V324; |
2166 |
|
object V325; |
2167 |
|
object V326; |
2168 |
|
object V327; |
2169 |
|
object V328; |
2170 |
|
object V329; |
2171 |
|
object V330; |
2172 |
|
object V331; |
2173 |
|
object V332; |
2174 |
|
object V333; |
2175 |
|
object V334; |
2176 |
|
object V335; |
2177 |
|
object V336; |
2178 |
|
object V337; |
2179 |
|
object V338; |
2180 |
|
object V339; |
2181 |
|
object V340; |
2182 |
|
object V341; |
2183 |
|
va_start(ap,first); |
2184 |
|
narg= narg - 0; |
2185 |
|
{ |
2186 |
|
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap); |
2187 |
|
V324=(Vcs[0]); |
2188 |
|
V325=(Vcs[1]); |
2189 |
|
V326=(Vcs[2]); |
2190 |
|
V327=(Vcs[3]); |
2191 |
|
V328=(Vcs[4]); |
2192 |
|
V329=(Vcs[5]); |
2193 |
|
V330=(Vcs[6]); |
2194 |
|
V331=(Vcs[7]); |
2195 |
|
V332=(Vcs[8]); |
2196 |
|
V333=(Vcs[9]); |
2197 |
|
V334=(Vcs[10]); |
2198 |
|
V335=(Vcs[11]); |
2199 |
|
V336=(Vcs[12]); |
2200 |
|
V337=(Vcs[13]); |
2201 |
|
V338=(Vcs[14]); |
2202 |
|
V339=(Vcs[15]); |
2203 |
|
V340=(Vcs[16]); |
2204 |
|
V341=(Vcs[17]); |
2205 |
|
base[0]= VV[53]; |
2206 |
|
base[1]= (V324); |
2207 |
|
base[2]= (V325); |
2208 |
|
base[3]= (V326); |
2209 |
|
base[4]= (V327); |
2210 |
|
base[5]= (V328); |
2211 |
|
base[6]= (V329); |
2212 |
|
base[7]= (V330); |
2213 |
|
base[8]= (V331); |
2214 |
|
base[9]= (V332); |
2215 |
|
base[10]= (V333); |
2216 |
|
base[11]= (V334); |
2217 |
|
base[12]= (V335); |
2218 |
|
base[13]= (V336); |
2219 |
|
base[14]= (V337); |
2220 |
|
base[15]= (V338); |
2221 |
|
base[16]= (V339); |
2222 |
|
base[17]= (V340); |
2223 |
|
base[18]= (V341); |
2224 |
|
vs_top=(vs_base=base+0)+19; |
2225 |
|
siLmake_structure(); |
2226 |
|
vs_top=sup; |
2227 |
|
{object V342 = vs_base[0]; |
2228 |
|
VMR12(V342)} |
2229 |
|
va_end(ap); |
2230 |
|
base[0]=base[0]; |
2231 |
|
return Cnil;} |
2232 |
|
}} |
2233 |
|
/* local entry for function CHECK-S-DATA */ |
2234 |
|
|
2235 |
|
static object LI13(V346,V347,V348) |
2236 |
|
|
2237 |
|
register object V346;register object V347;object V348; |
2238 |
|
{ VMB13 VMS13 VMV13 |
2239 |
|
goto TTL; |
2240 |
|
TTL:; |
2241 |
|
if((structure_ref((V346),VV[53],3))==Cnil){ |
2242 |
|
goto T1007;} |
2243 |
|
V349= structure_ref((V346),VV[53],3); |
2244 |
|
(void)(structure_set((V347),VV[53],3,/* INLINE-ARGS */V349)); |
2245 |
|
goto T1007; |
2246 |
|
T1007:; |
2247 |
|
if((structure_ref((V346),VV[53],11))==Cnil){ |
2248 |
|
goto T1010;} |
2249 |
|
(void)(structure_set((V347),VV[53],11,Ct)); |
2250 |
|
goto T1010; |
2251 |
|
T1010:; |
2252 |
|
if(equalp((V347),(V346))){ |
2253 |
|
goto T1014;} |
2254 |
|
(void)((VFUN_NARGS=2,(*(LnkLI132))(VV[102],(V348)))); |
2255 |
|
{object V350 = sputprop((V348),VV[53],(V347)); |
2256 |
|
VMR13(V350)} |
2257 |
|
goto T1014; |
2258 |
|
T1014:; |
2259 |
|
{object V351 = Cnil; |
2260 |
|
VMR13(V351)} |
2261 |
|
return Cnil; |
2262 |
|
} |
2263 |
|
/* local entry for function FREEZE-DEFSTRUCT */ |
2264 |
|
|
2265 |
|
static object LI14(V353) |
2266 |
|
|
2267 |
|
object V353; |
2268 |
|
{ VMB14 VMS14 VMV14 |
2269 |
|
goto TTL; |
2270 |
|
TTL:; |
2271 |
|
{object V354; |
2272 |
|
if(type_of((V353))==t_symbol){ |
2273 |
|
goto T1018;} |
2274 |
|
V354= Cnil; |
2275 |
|
goto T1017; |
2276 |
|
goto T1018; |
2277 |
|
T1018:; |
2278 |
|
V354= get((V353),VV[53],Cnil); |
2279 |
|
goto T1017; |
2280 |
|
T1017:; |
2281 |
|
if(((V354))==Cnil){ |
2282 |
|
goto T1021;} |
2283 |
|
{object V355 = structure_set((V354),VV[53],11,Ct); |
2284 |
|
VMR14(V355)} |
2285 |
|
goto T1021; |
2286 |
|
T1021:; |
2287 |
|
{object V356 = Cnil; |
2288 |
|
VMR14(V356)}} |
2289 |
|
return Cnil; |
2290 |
|
} |
2291 |
|
/* function definition for SHARP-S-READER */ |
2292 |
|
|
2293 |
|
static void L15() |
2294 |
|
{register object *base=vs_base; |
2295 |
|
register object *sup=base+VM15; VC15 |
2296 |
|
vs_reserve(VM15); |
2297 |
|
{object V357; |
2298 |
|
object V358; |
2299 |
|
object V359; |
2300 |
|
check_arg(3); |
2301 |
|
V357=(base[0]); |
2302 |
|
V358=(base[1]); |
2303 |
|
V359=(base[2]); |
2304 |
|
vs_top=sup; |
2305 |
|
goto TTL; |
2306 |
|
TTL:; |
2307 |
|
if(((V359))==Cnil){ |
2308 |
|
goto T1023;} |
2309 |
|
if((symbol_value(VV[103]))!=Cnil){ |
2310 |
|
goto T1023;} |
2311 |
|
base[3]= VV[104]; |
2312 |
|
vs_top=(vs_base=base+3)+1; |
2313 |
|
Lerror(); |
2314 |
|
vs_top=sup; |
2315 |
|
goto T1023; |
2316 |
|
T1023:; |
2317 |
|
{register object V360; |
2318 |
|
register object V361; |
2319 |
|
{object V362; |
2320 |
|
base[5]= (V357); |
2321 |
|
base[6]= Ct; |
2322 |
|
base[7]= Cnil; |
2323 |
|
base[8]= Ct; |
2324 |
|
vs_top=(vs_base=base+5)+4; |
2325 |
|
Lread(); |
2326 |
|
vs_top=sup; |
2327 |
|
V362= vs_base[0]; |
2328 |
|
if((symbol_value(VV[103]))==Cnil){ |
2329 |
|
goto T1035;} |
2330 |
|
base[5]= Cnil; |
2331 |
|
vs_top=(vs_base=base+5)+1; |
2332 |
|
return; |
2333 |
|
goto T1035; |
2334 |
|
T1035:; |
2335 |
|
V360= (V362);}{object V363; |
2336 |
|
V363= get(car((V360)),VV[53],Cnil); |
2337 |
|
if(V363==Cnil)goto T1039; |
2338 |
|
V361= V363; |
2339 |
|
goto T1038; |
2340 |
|
goto T1039; |
2341 |
|
T1039:;} |
2342 |
|
base[5]= VV[105]; |
2343 |
|
base[6]= car((V360)); |
2344 |
|
vs_top=(vs_base=base+5)+2; |
2345 |
|
Lerror(); |
2346 |
|
vs_top=sup; |
2347 |
|
V361= vs_base[0]; |
2348 |
|
goto T1038; |
2349 |
|
T1038:; |
2350 |
|
{register object V364; |
2351 |
|
V364= cdr((V360)); |
2352 |
|
goto T1045; |
2353 |
|
T1045:; |
2354 |
|
if(!(endp_prop((V364)))){ |
2355 |
|
goto T1046;} |
2356 |
|
{register object V365; |
2357 |
|
V365= structure_ref((V361),VV[53],13); |
2358 |
|
goto T1051; |
2359 |
|
T1051:; |
2360 |
|
if(!(endp_prop((V365)))){ |
2361 |
|
goto T1052;} |
2362 |
|
base[5]= VV[106]; |
2363 |
|
base[6]= car((V360)); |
2364 |
|
vs_top=(vs_base=base+5)+2; |
2365 |
|
Lerror(); |
2366 |
|
return; |
2367 |
|
goto T1052; |
2368 |
|
T1052:; |
2369 |
|
if(!(type_of(car((V365)))==t_symbol)){ |
2370 |
|
goto T1058;} |
2371 |
|
base[5]= car((V365)); |
2372 |
|
{object V366; |
2373 |
|
V366= cdr((V360)); |
2374 |
|
vs_top=base+6; |
2375 |
|
while(!endp(V366)) |
2376 |
|
{vs_push(car(V366));V366=cdr(V366);} |
2377 |
|
vs_base=base+6;} |
2378 |
|
super_funcall_no_event(base[5]); |
2379 |
|
return; |
2380 |
|
goto T1058; |
2381 |
|
T1058:; |
2382 |
|
V365= cdr((V365)); |
2383 |
|
goto T1051;} |
2384 |
|
goto T1046; |
2385 |
|
T1046:; |
2386 |
|
base[5]= coerce_to_string(car((V364))); |
2387 |
|
base[6]= VV[107]; |
2388 |
|
vs_top=(vs_base=base+5)+2; |
2389 |
|
Lintern(); |
2390 |
|
vs_top=sup; |
2391 |
|
V367= vs_base[0]; |
2392 |
|
if(type_of((V364))!=t_cons)FEwrong_type_argument(Scons,(V364)); |
2393 |
|
((V364))->c.c_car = V367; |
2394 |
|
V364= cddr((V364)); |
2395 |
|
goto T1045;}} |
2396 |
|
} |
2397 |
|
} |
2398 |
|
/* local function CLOSURE */ |
2399 |
|
|
2400 |
|
static void LC20(base0) |
2401 |
|
register object *base0; |
2402 |
|
{ register object *base=vs_base; |
2403 |
|
register object *sup=base+VM16; VC16 |
2404 |
|
vs_reserve(VM16); |
2405 |
|
{object V368; |
2406 |
|
check_arg(1); |
2407 |
|
V368=(base[0]); |
2408 |
|
vs_top=sup; |
2409 |
|
base[1]= (V368); |
2410 |
|
base[2]= (base0[0]->c.c_car); |
2411 |
|
vs_top=(vs_base=base+1)+2; |
2412 |
|
(void) (*Lnk147)(); |
2413 |
|
return; |
2414 |
|
} |
2415 |
|
} |
2416 |
|
/* local function CLOSURE */ |
2417 |
|
|
2418 |
|
static void LC19(base0) |
2419 |
|
register object *base0; |
2420 |
|
{ register object *base=vs_base; |
2421 |
|
register object *sup=base+VM17; VC17 |
2422 |
|
vs_reserve(VM17); |
2423 |
|
{object V369; |
2424 |
|
check_arg(1); |
2425 |
|
V369=(base[0]); |
2426 |
|
vs_top=sup; |
2427 |
|
if(!(type_of((V369))==t_cons)){ |
2428 |
|
goto T1077;} |
2429 |
|
base[1]= car((V369)); |
2430 |
|
vs_top=(vs_base=base+1)+1; |
2431 |
|
return; |
2432 |
|
goto T1077; |
2433 |
|
T1077:; |
2434 |
|
base[1]= Cnil; |
2435 |
|
vs_top=(vs_base=base+1)+1; |
2436 |
|
return; |
2437 |
|
} |
2438 |
|
} |
2439 |
|
/* local function CLOSURE */ |
2440 |
|
|
2441 |
|
static void LC18(base0) |
2442 |
|
register object *base0; |
2443 |
|
{ register object *base=vs_base; |
2444 |
|
register object *sup=base+VM18; VC18 |
2445 |
|
vs_reserve(VM18); |
2446 |
|
{object V370; |
2447 |
|
check_arg(1); |
2448 |
|
V370=(base[0]); |
2449 |
|
vs_top=sup; |
2450 |
|
base[1]= aref1((V370),fixint((base0[0]->c.c_car))); |
2451 |
|
vs_top=(vs_base=base+1)+1; |
2452 |
|
return; |
2453 |
|
} |
2454 |
|
} |
2455 |
|
/* local function CLOSURE */ |
2456 |
|
|
2457 |
|
static void LC17(base0) |
2458 |
|
register object *base0; |
2459 |
|
{ register object *base=vs_base; |
2460 |
|
register object *sup=base+VM19; VC19 |
2461 |
|
vs_reserve(VM19); |
2462 |
|
{object V371; |
2463 |
|
check_arg(1); |
2464 |
|
V371=(base[0]); |
2465 |
|
vs_top=sup; |
2466 |
|
base[1]= (base0[0]->c.c_car); |
2467 |
|
base[2]= (V371); |
2468 |
|
vs_top=(vs_base=base+1)+2; |
2469 |
|
siLlist_nth(); |
2470 |
|
return; |
2471 |
|
} |
2472 |
|
} |
2473 |
|
/* local function CLOSURE */ |
2474 |
|
|
2475 |
|
static void LC16(base0) |
2476 |
|
register object *base0; |
2477 |
|
{ register object *base=vs_base; |
2478 |
|
register object *sup=base+VM20; VC20 |
2479 |
|
vs_reserve(VM20); |
2480 |
|
{object V372; |
2481 |
|
check_arg(1); |
2482 |
|
V372=(base[0]); |
2483 |
|
vs_top=sup; |
2484 |
|
if(!(type_of((V372))==t_structure)){ |
2485 |
|
goto T1082;} |
2486 |
|
goto T1081; |
2487 |
|
goto T1082; |
2488 |
|
T1082:; |
2489 |
|
base[1]= VV[5]; |
2490 |
|
base[2]= (V372); |
2491 |
|
vs_top=(vs_base=base+1)+2; |
2492 |
|
Lerror(); |
2493 |
|
vs_top=sup; |
2494 |
|
goto T1081; |
2495 |
|
T1081:; |
2496 |
|
base[1]= (V372); |
2497 |
|
base[2]= (base0[0]->c.c_car); |
2498 |
|
vs_top=(vs_base=base+1)+2; |
2499 |
|
(void) (*Lnk148)(); |
2500 |
|
return; |
2501 |
|
} |
2502 |
|
} |
2503 |
|
static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* STRUCTURE-REF1 */ |
2504 |
|
static void LnkT147(){ call_or_link(VV[147],(void **)(void *)&Lnk147);} /* STRUCTURE-SUBTYPE-P */ |
2505 |
|
static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,5,first,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */ |
2506 |
|
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,5,first,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */ |
2507 |
|
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,2,first,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */ |
2508 |
|
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,3,first,ap);va_end(ap);return V1;} /* CHECK-S-DATA */ |
2509 |
|
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[134],(void **)(void *)&LnkLI134,first,ap);va_end(ap);return V1;} /* MAKE-S-DATA */ |
2510 |
|
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)(void *)&LnkLI133,3,first,ap);va_end(ap);return V1;} /* GET-SLOT-POS */ |
2511 |
|
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[132],(void **)(void *)&LnkLI132,first,ap);va_end(ap);return V1;} /* WARN */ |
2512 |
|
static void LnkT131(){ call_or_link(VV[131],(void **)(void *)&Lnk131);} /* MAKE-S-DATA-STRUCTURE */ |
2513 |
|
static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,3,first,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */ |
2514 |
|
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* MAKE-ACCESS-FUNCTION */ |
2515 |
|
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,20738,first,ap);va_end(ap);return V1;} /* ROUND-UP */ |
2516 |
|
static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* SIZE-OF */ |
2517 |
|
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,2,first,ap);va_end(ap);return V1;} /* COERCE */ |
2518 |
|
static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* TYPEP */ |
2519 |
|
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* AET-TYPE */ |
2520 |
|
static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* ALIGNMENT */ |
2521 |
|
static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)(void *)&LnkLI119,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
2522 |
|
static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,2,first,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
2523 |
|
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
2524 |
|
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
2525 |
|
static object LnkTLI112(){return call_proc0(VV[112],(void **)(void *)&LnkLI112);} /* ILLEGAL-BOA */ |
2526 |
|
static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* SUBTYPEP */ |
2527 |
|
static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* RECORD-FN */ |
2528 |
|
static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[109],(void **)(void *)&LnkLI109,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
2529 |
|
static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* STRING-CONCATENATE */ |
2530 |
|
|
2531 |
|
#ifdef SYSTEM_SPECIAL_INIT |
2532 |
|
SYSTEM_SPECIAL_INIT |
2533 |
|
#endif |
2534 |
|
|