1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "assert.h" |
#include "assert.h" |
4 |
init_assert(){do_init(VV);} |
void init_assert(){do_init(VV);} |
5 |
/* macro definition for CHECK-TYPE */ |
/* macro definition for CHECK-TYPE */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
31 |
goto T4;} |
goto T4;} |
32 |
V4= base[4]; |
V4= base[4]; |
33 |
goto T2; |
goto T2; |
34 |
|
goto T4; |
35 |
T4:; |
T4:; |
36 |
V4= list(2,VV[3],base[3]); |
V4= list(2,VV[3],base[3]); |
37 |
|
goto T2; |
38 |
T2:; |
T2:; |
39 |
V5= list(6,VV[4],VV[5],VV[6],/* INLINE-ARGS */V3,base[2],V4); |
V5= list(6,VV[4],VV[5],VV[6],/* INLINE-ARGS */V3,base[2],V4); |
40 |
V6= (*(LnkLI53))(base[2]); |
V6= (*(LnkLI53))(base[2]); |
44 |
} |
} |
45 |
/* macro definition for ASSERT */ |
/* macro definition for ASSERT */ |
46 |
|
|
47 |
static L2() |
static void L2() |
48 |
{register object *base=vs_base; |
{register object *base=vs_base; |
49 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
50 |
vs_reserve(VM2); |
vs_reserve(VM2); |
70 |
goto T10;} |
goto T10;} |
71 |
V9= listA(4,VV[4],VV[9],base[4],base[5]); |
V9= listA(4,VV[4],VV[9],base[4],base[5]); |
72 |
goto T8; |
goto T8; |
73 |
|
goto T10; |
74 |
T10:; |
T10:; |
75 |
V9= list(4,VV[4],VV[10],VV[11],list(2,VV[3],base[2])); |
V9= list(4,VV[4],VV[10],VV[11],list(2,VV[3],base[2])); |
76 |
|
goto T8; |
77 |
T8:; |
T8:; |
78 |
{object V11; |
{object V11; |
79 |
object V12= base[3]; |
object V12= base[3]; |
81 |
V10= Cnil; |
V10= Cnil; |
82 |
goto T12;} |
goto T12;} |
83 |
base[6]=V11=MMcons(Cnil,Cnil); |
base[6]=V11=MMcons(Cnil,Cnil); |
84 |
|
goto T13; |
85 |
T13:; |
T13:; |
86 |
(V11->c.c_car)= (*(LnkLI53))((V12->c.c_car)); |
(V11->c.c_car)= (*(LnkLI53))((V12->c.c_car)); |
87 |
if(endp(V12=MMcdr(V12))){ |
if(endp(V12=MMcdr(V12))){ |
89 |
goto T12;} |
goto T12;} |
90 |
V11=MMcdr(V11)=MMcons(Cnil,Cnil); |
V11=MMcdr(V11)=MMcons(Cnil,Cnil); |
91 |
goto T13;} |
goto T13;} |
92 |
|
goto T12; |
93 |
T12:; |
T12:; |
94 |
base[6]= listA(5,VV[0],VV[8],/* INLINE-ARGS */V8,V9,append(V10,VV[12])); |
base[6]= listA(5,VV[0],VV[8],/* INLINE-ARGS */V8,V9,append(V10,VV[12])); |
95 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
101 |
|
|
102 |
object V14; |
object V14; |
103 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
104 |
|
goto TTL; |
105 |
TTL:; |
TTL:; |
106 |
V15= list(4,VV[14],VV[15],VV[16],list(2,VV[3],(V14))); |
V15= list(4,VV[14],VV[15],VV[16],list(2,VV[3],(V14))); |
107 |
{object V16 = list(4,VV[13],/* INLINE-ARGS */V15,VV[17],list(3,VV[18],(V14),VV[19])); |
{object V16 = list(4,VV[13],/* INLINE-ARGS */V15,VV[17],list(3,VV[18],(V14),VV[19])); |
108 |
VMR3(V16)} |
VMR3(V16)} |
109 |
|
return Cnil; |
110 |
} |
} |
111 |
/* macro definition for ECASE */ |
/* macro definition for ECASE */ |
112 |
|
|
113 |
static L4() |
static void L4() |
114 |
{register object *base=vs_base; |
{register object *base=vs_base; |
115 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
116 |
vs_reserve(VM4); |
vs_reserve(VM4); |
135 |
V21= Cnil; |
V21= Cnil; |
136 |
goto T18;} |
goto T18;} |
137 |
base[5]=V22=MMcons(Cnil,Cnil); |
base[5]=V22=MMcons(Cnil,Cnil); |
138 |
|
goto T19; |
139 |
T19:; |
T19:; |
140 |
{object V25= car((V23->c.c_car)); |
{object V25= car((V23->c.c_car)); |
141 |
if(!(type_of(V25)==t_cons||(V25)==Cnil)){ |
if(!(type_of(V25)==t_cons||(V25)==Cnil)){ |
146 |
(V22->c.c_cdr)= Cnil; |
(V22->c.c_cdr)= Cnil; |
147 |
goto T20;} |
goto T20;} |
148 |
base[6]=V26=MMcons(Cnil,Cnil); |
base[6]=V26=MMcons(Cnil,Cnil); |
149 |
|
goto T24; |
150 |
T24:; |
T24:; |
151 |
(V26->c.c_car)= list(2,VV[3],(V27->c.c_car)); |
(V26->c.c_car)= list(2,VV[3],(V27->c.c_car)); |
152 |
if(endp(V27=MMcdr(V27))){ |
if(endp(V27=MMcdr(V27))){ |
154 |
goto T20;} |
goto T20;} |
155 |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
156 |
goto T24;} |
goto T24;} |
157 |
|
goto T22; |
158 |
T22:; |
T22:; |
159 |
V29= list(2,VV[3],car((V23->c.c_car))); |
V29= list(2,VV[3],car((V23->c.c_car))); |
160 |
(V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil); |
(V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil); |
161 |
|
goto T20; |
162 |
T20:; |
T20:; |
163 |
while(!endp(MMcdr(V22)))V22=MMcdr(V22); |
while(!endp(MMcdr(V22)))V22=MMcdr(V22); |
164 |
if(endp(V23=MMcdr(V23))){ |
if(endp(V23=MMcdr(V23))){ |
166 |
V21= base[5]; |
V21= base[5]; |
167 |
goto T18;} |
goto T18;} |
168 |
goto T19;} |
goto T19;} |
169 |
|
goto T18; |
170 |
T18:; |
T18:; |
171 |
V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21)); |
V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21)); |
172 |
|
goto T27; |
173 |
T27:; |
T27:; |
174 |
if(!(endp((V18)))){ |
if(!(endp((V18)))){ |
175 |
goto T28;} |
goto T28;} |
177 |
base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19)); |
base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19)); |
178 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
179 |
return; |
return; |
180 |
|
goto T28; |
181 |
T28:; |
T28:; |
182 |
if((caar((V18)))==Cnil){ |
if((caar((V18)))==Cnil){ |
183 |
goto T32;} |
goto T32;} |
186 |
goto T38;}} |
goto T38;}} |
187 |
V31= list(3,VV[25],base[4],list(2,VV[3],caar((V18)))); |
V31= list(3,VV[25],base[4],list(2,VV[3],caar((V18)))); |
188 |
goto T36; |
goto T36; |
189 |
|
goto T38; |
190 |
T38:; |
T38:; |
191 |
V31= list(3,VV[26],base[4],list(2,VV[3],caar((V18)))); |
V31= list(3,VV[26],base[4],list(2,VV[3],caar((V18)))); |
192 |
|
goto T36; |
193 |
T36:; |
T36:; |
194 |
V19= list(4,VV[24],V31,make_cons(VV[13],cdar((V18))),(V19)); |
V19= list(4,VV[24],V31,make_cons(VV[13],cdar((V18))),(V19)); |
195 |
|
goto T32; |
196 |
T32:; |
T32:; |
197 |
V18= cdr((V18)); |
V18= cdr((V18)); |
198 |
goto T27;} |
goto T27;} |
199 |
} |
} |
200 |
/* macro definition for CCASE */ |
/* macro definition for CCASE */ |
201 |
|
|
202 |
static L5() |
static void L5() |
203 |
{register object *base=vs_base; |
{register object *base=vs_base; |
204 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
205 |
vs_reserve(VM5); |
vs_reserve(VM5); |
222 |
V36= Cnil; |
V36= Cnil; |
223 |
goto T44;} |
goto T44;} |
224 |
base[5]=V37=MMcons(Cnil,Cnil); |
base[5]=V37=MMcons(Cnil,Cnil); |
225 |
|
goto T45; |
226 |
T45:; |
T45:; |
227 |
{register object V39; |
{register object V39; |
228 |
V39= (V38->c.c_car); |
V39= (V38->c.c_car); |
231 |
goto T49;}} |
goto T49;}} |
232 |
V40= list(3,VV[25],base[4],list(2,VV[3],car((V39)))); |
V40= list(3,VV[25],base[4],list(2,VV[3],car((V39)))); |
233 |
goto T47; |
goto T47; |
234 |
|
goto T49; |
235 |
T49:; |
T49:; |
236 |
V40= list(3,VV[26],base[4],list(2,VV[3],car((V39)))); |
V40= list(3,VV[26],base[4],list(2,VV[3],car((V39)))); |
237 |
|
goto T47; |
238 |
T47:; |
T47:; |
239 |
(V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));} |
(V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));} |
240 |
if(endp(V38=MMcdr(V38))){ |
if(endp(V38=MMcdr(V38))){ |
242 |
goto T44;} |
goto T44;} |
243 |
V37=MMcdr(V37)=MMcons(Cnil,Cnil); |
V37=MMcdr(V37)=MMcons(Cnil,Cnil); |
244 |
goto T45;} |
goto T45;} |
245 |
|
goto T44; |
246 |
T44:; |
T44:; |
247 |
V42= list(2,VV[3],base[2]); |
V42= list(2,VV[3],base[2]); |
248 |
{object V44; |
{object V44; |
251 |
V43= Cnil; |
V43= Cnil; |
252 |
goto T51;} |
goto T51;} |
253 |
base[5]=V44=MMcons(Cnil,Cnil); |
base[5]=V44=MMcons(Cnil,Cnil); |
254 |
|
goto T52; |
255 |
T52:; |
T52:; |
256 |
{object V47= car((V45->c.c_car)); |
{object V47= car((V45->c.c_car)); |
257 |
if(!(type_of(V47)==t_cons||(V47)==Cnil)){ |
if(!(type_of(V47)==t_cons||(V47)==Cnil)){ |
262 |
(V44->c.c_cdr)= Cnil; |
(V44->c.c_cdr)= Cnil; |
263 |
goto T53;} |
goto T53;} |
264 |
base[6]=V48=MMcons(Cnil,Cnil); |
base[6]=V48=MMcons(Cnil,Cnil); |
265 |
|
goto T57; |
266 |
T57:; |
T57:; |
267 |
(V48->c.c_car)= list(2,VV[3],(V49->c.c_car)); |
(V48->c.c_car)= list(2,VV[3],(V49->c.c_car)); |
268 |
if(endp(V49=MMcdr(V49))){ |
if(endp(V49=MMcdr(V49))){ |
270 |
goto T53;} |
goto T53;} |
271 |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
272 |
goto T57;} |
goto T57;} |
273 |
|
goto T55; |
274 |
T55:; |
T55:; |
275 |
V51= list(2,VV[3],car((V45->c.c_car))); |
V51= list(2,VV[3],car((V45->c.c_car))); |
276 |
(V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil); |
(V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil); |
277 |
|
goto T53; |
278 |
T53:; |
T53:; |
279 |
while(!endp(MMcdr(V44)))V44=MMcdr(V44); |
while(!endp(MMcdr(V44)))V44=MMcdr(V44); |
280 |
if(endp(V45=MMcdr(V45))){ |
if(endp(V45=MMcdr(V45))){ |
282 |
V43= base[5]; |
V43= base[5]; |
283 |
goto T51;} |
goto T51;} |
284 |
goto T52;} |
goto T52;} |
285 |
|
goto T51; |
286 |
T51:; |
T51:; |
287 |
V52= listA(6,VV[4],VV[31],VV[32],/* INLINE-ARGS */V42,base[4],V43); |
V52= listA(6,VV[4],VV[31],VV[32],/* INLINE-ARGS */V42,base[4],V43); |
288 |
V53= (*(LnkLI53))(base[2]); |
V53= (*(LnkLI53))(base[2]); |
294 |
} |
} |
295 |
/* macro definition for TYPECASE */ |
/* macro definition for TYPECASE */ |
296 |
|
|
297 |
static L6() |
static void L6() |
298 |
{register object *base=vs_base; |
{register object *base=vs_base; |
299 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
300 |
vs_reserve(VM6); |
vs_reserve(VM6); |
314 |
vs_top=sup; |
vs_top=sup; |
315 |
V59= vs_base[0]; |
V59= vs_base[0]; |
316 |
V58= Cnil; |
V58= Cnil; |
317 |
|
goto T62; |
318 |
T62:; |
T62:; |
319 |
if(!(endp((V57)))){ |
if(!(endp((V57)))){ |
320 |
goto T63;} |
goto T63;} |
322 |
base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58)); |
base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58)); |
323 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
324 |
return; |
return; |
325 |
|
goto T63; |
326 |
T63:; |
T63:; |
327 |
if((caar((V57)))==(Ct)){ |
if((caar((V57)))==(Ct)){ |
328 |
goto T68;} |
goto T68;} |
329 |
if(!((caar((V57)))==(VV[34]))){ |
if(!((caar((V57)))==(VV[34]))){ |
330 |
goto T69;} |
goto T69;} |
331 |
|
goto T68; |
332 |
T68:; |
T68:; |
333 |
V58= make_cons(VV[13],cdar((V57))); |
V58= make_cons(VV[13],cdar((V57))); |
334 |
goto T67; |
goto T67; |
335 |
|
goto T69; |
336 |
T69:; |
T69:; |
337 |
V61= list(3,VV[2],(V59),list(2,VV[3],caar((V57)))); |
V61= list(3,VV[2],(V59),list(2,VV[3],caar((V57)))); |
338 |
V58= list(4,VV[24],/* INLINE-ARGS */V61,make_cons(VV[13],cdar((V57))),(V58)); |
V58= list(4,VV[24],/* INLINE-ARGS */V61,make_cons(VV[13],cdar((V57))),(V58)); |
339 |
|
goto T67; |
340 |
T67:; |
T67:; |
341 |
V57= cdr((V57)); |
V57= cdr((V57)); |
342 |
goto T62;} |
goto T62;} |
343 |
} |
} |
344 |
/* macro definition for ETYPECASE */ |
/* macro definition for ETYPECASE */ |
345 |
|
|
346 |
static L7() |
static void L7() |
347 |
{register object *base=vs_base; |
{register object *base=vs_base; |
348 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
349 |
vs_reserve(VM7); |
vs_reserve(VM7); |
368 |
V66= Cnil; |
V66= Cnil; |
369 |
goto T81;} |
goto T81;} |
370 |
base[5]=V67=MMcons(Cnil,Cnil); |
base[5]=V67=MMcons(Cnil,Cnil); |
371 |
|
goto T82; |
372 |
T82:; |
T82:; |
373 |
(V67->c.c_car)= car((V68->c.c_car)); |
(V67->c.c_car)= car((V68->c.c_car)); |
374 |
if(endp(V68=MMcdr(V68))){ |
if(endp(V68=MMcdr(V68))){ |
376 |
goto T81;} |
goto T81;} |
377 |
V67=MMcdr(V67)=MMcons(Cnil,Cnil); |
V67=MMcdr(V67)=MMcons(Cnil,Cnil); |
378 |
goto T82;} |
goto T82;} |
379 |
|
goto T81; |
380 |
T81:; |
T81:; |
381 |
V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66))); |
V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66))); |
382 |
|
goto T85; |
383 |
T85:; |
T85:; |
384 |
if(!(endp((V63)))){ |
if(!(endp((V63)))){ |
385 |
goto T86;} |
goto T86;} |
387 |
base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64)); |
base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64)); |
388 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
389 |
return; |
return; |
390 |
|
goto T86; |
391 |
T86:; |
T86:; |
392 |
V71= list(3,VV[2],base[4],list(2,VV[3],caar((V63)))); |
V71= list(3,VV[2],base[4],list(2,VV[3],caar((V63)))); |
393 |
V64= list(4,VV[24],/* INLINE-ARGS */V71,make_cons(VV[13],cdar((V63))),(V64)); |
V64= list(4,VV[24],/* INLINE-ARGS */V71,make_cons(VV[13],cdar((V63))),(V64)); |
396 |
} |
} |
397 |
/* macro definition for CTYPECASE */ |
/* macro definition for CTYPECASE */ |
398 |
|
|
399 |
static L8() |
static void L8() |
400 |
{register object *base=vs_base; |
{register object *base=vs_base; |
401 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
402 |
vs_reserve(VM8); |
vs_reserve(VM8); |
419 |
V75= Cnil; |
V75= Cnil; |
420 |
goto T96;} |
goto T96;} |
421 |
base[5]=V76=MMcons(Cnil,Cnil); |
base[5]=V76=MMcons(Cnil,Cnil); |
422 |
|
goto T97; |
423 |
T97:; |
T97:; |
424 |
V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car)))); |
V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car)))); |
425 |
(V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car))))); |
(V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car))))); |
428 |
goto T96;} |
goto T96;} |
429 |
V76=MMcdr(V76)=MMcons(Cnil,Cnil); |
V76=MMcdr(V76)=MMcons(Cnil,Cnil); |
430 |
goto T97;} |
goto T97;} |
431 |
|
goto T96; |
432 |
T96:; |
T96:; |
433 |
V80= list(2,VV[3],base[2]); |
V80= list(2,VV[3],base[2]); |
434 |
{object V82; |
{object V82; |
437 |
V81= Cnil; |
V81= Cnil; |
438 |
goto T99;} |
goto T99;} |
439 |
base[5]=V82=MMcons(Cnil,Cnil); |
base[5]=V82=MMcons(Cnil,Cnil); |
440 |
|
goto T100; |
441 |
T100:; |
T100:; |
442 |
(V82->c.c_car)= car((V83->c.c_car)); |
(V82->c.c_car)= car((V83->c.c_car)); |
443 |
if(endp(V83=MMcdr(V83))){ |
if(endp(V83=MMcdr(V83))){ |
445 |
goto T99;} |
goto T99;} |
446 |
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
447 |
goto T100;} |
goto T100;} |
448 |
|
goto T99; |
449 |
T99:; |
T99:; |
450 |
V85= list(3,VV[4],VV[36],list(4,VV[35],/* INLINE-ARGS */V80,base[4],list(2,VV[3],V81))); |
V85= list(3,VV[4],VV[36],list(4,VV[35],/* INLINE-ARGS */V80,base[4],list(2,VV[3],V81))); |
451 |
V86= make_cons(/* INLINE-ARGS */V85,Cnil); |
V86= make_cons(/* INLINE-ARGS */V85,Cnil); |
461 |
|
|
462 |
object V92;object V93;register object V94; |
object V92;object V93;register object V94; |
463 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
464 |
|
goto TTL; |
465 |
TTL:; |
TTL:; |
466 |
{register object V95; |
{register object V95; |
467 |
register object V96; |
register object V96; |
469 |
V95= Cnil; |
V95= Cnil; |
470 |
V96= Cnil; |
V96= Cnil; |
471 |
V97= Cnil; |
V97= Cnil; |
472 |
|
goto T107; |
473 |
T107:; |
T107:; |
474 |
if(!(endp((V94)))){ |
if(!(endp((V94)))){ |
475 |
goto T108;} |
goto T108;} |
476 |
goto T105; |
goto T105; |
477 |
|
goto T108; |
478 |
T108:; |
T108:; |
479 |
if(!(type_of(car((V94)))==t_symbol)){ |
if(!(type_of(car((V94)))==t_symbol)){ |
480 |
goto T114;} |
goto T114;} |
484 |
V99= car((V94)); |
V99= car((V94)); |
485 |
V94= cdr((V94)); |
V94= cdr((V94)); |
486 |
goto T112;} |
goto T112;} |
487 |
|
goto T114; |
488 |
T114:; |
T114:; |
489 |
{object V100= caar((V94)); |
{object V100= caar((V94)); |
490 |
if((V100!= VV[54]))goto T121; |
if((V100!= VV[54]))goto T121; |
491 |
V94= append(cdar((V94)),cdr((V94))); |
V94= append(cdar((V94)),cdr((V94))); |
492 |
goto T112; |
goto T112; |
493 |
|
goto T121; |
494 |
T121:; |
T121:; |
495 |
if((V100!= VV[25]))goto T123; |
if((V100!= VV[25]))goto T123; |
496 |
{ |
{ |
497 |
object V101= cdar((V94)); |
object V101= cdar((V94)); |
498 |
if(endp(V101)){ |
if(endp(V101)){ |
499 |
goto T124;} |
goto T124;} |
500 |
|
goto T125; |
501 |
T125:; |
T125:; |
502 |
{register object V102; |
{register object V102; |
503 |
V102= (V101->c.c_car); |
V102= (V101->c.c_car); |
507 |
(void)(cdar((V94))); |
(void)(cdar((V94))); |
508 |
goto T124;} |
goto T124;} |
509 |
goto T125;} |
goto T125;} |
510 |
|
goto T124; |
511 |
T124:; |
T124:; |
512 |
{register object V104; |
{register object V104; |
513 |
V104= car((V94)); |
V104= car((V94)); |
514 |
V94= cdr((V94)); |
V94= cdr((V94)); |
515 |
goto T112;} |
goto T112;} |
516 |
|
goto T123; |
517 |
T123:; |
T123:; |
518 |
if((V100!= VV[55]))goto T131; |
if((V100!= VV[55]))goto T131; |
519 |
V96= make_cons(cadar((V94)),(V96)); |
V96= make_cons(cadar((V94)),(V96)); |
521 |
V105= car((V94)); |
V105= car((V94)); |
522 |
V94= cdr((V94)); |
V94= cdr((V94)); |
523 |
goto T112;} |
goto T112;} |
524 |
|
goto T131; |
525 |
T131:; |
T131:; |
526 |
V95= make_cons(car((V94)),(V95)); |
V95= make_cons(car((V94)),(V95)); |
527 |
{register object V106; |
{register object V106; |
528 |
V106= car((V94)); |
V106= car((V94)); |
529 |
V94= cdr((V94));}} |
V94= cdr((V94));}} |
530 |
|
goto T112; |
531 |
T112:; |
T112:; |
532 |
goto T107; |
goto T107; |
533 |
|
goto T105; |
534 |
T105:; |
T105:; |
535 |
|
goto T146; |
536 |
T146:; |
T146:; |
537 |
if(!(endp((V96)))){ |
if(!(endp((V96)))){ |
538 |
goto T147;} |
goto T147;} |
539 |
goto T144; |
goto T144; |
540 |
|
goto T147; |
541 |
T147:; |
T147:; |
542 |
if(!(type_of(car((V96)))==t_symbol)){ |
if(!(type_of(car((V96)))==t_symbol)){ |
543 |
goto T153;} |
goto T153;} |
547 |
V108= car((V96)); |
V108= car((V96)); |
548 |
V96= cdr((V96)); |
V96= cdr((V96)); |
549 |
goto T151;} |
goto T151;} |
550 |
|
goto T153; |
551 |
T153:; |
T153:; |
552 |
if(!((caar((V96)))==(VV[38]))){ |
if(!((caar((V96)))==(VV[38]))){ |
553 |
goto T161;} |
goto T161;} |
554 |
V96= append(cdar((V96)),cdr((V96))); |
V96= append(cdar((V96)),cdr((V96))); |
555 |
goto T151; |
goto T151; |
556 |
|
goto T161; |
557 |
T161:; |
T161:; |
558 |
V97= make_cons(car((V96)),(V97)); |
V97= make_cons(car((V96)),(V97)); |
559 |
{register object V109; |
{register object V109; |
560 |
V109= car((V96)); |
V109= car((V96)); |
561 |
V96= cdr((V96));} |
V96= cdr((V96));} |
562 |
|
goto T151; |
563 |
T151:; |
T151:; |
564 |
goto T146; |
goto T146; |
565 |
|
goto T144; |
566 |
T144:; |
T144:; |
567 |
base[0]= Cnil; |
base[0]= Cnil; |
568 |
base[1]= VV[39]; |
base[1]= VV[39]; |
575 |
base[5]= Cnil; |
base[5]= Cnil; |
576 |
goto T176;} |
goto T176;} |
577 |
base[6]=V110=MMcons(Cnil,Cnil); |
base[6]=V110=MMcons(Cnil,Cnil); |
578 |
|
goto T177; |
579 |
T177:; |
T177:; |
580 |
(V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car)); |
(V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car)); |
581 |
while(!endp(MMcdr(V110)))V110=MMcdr(V110); |
while(!endp(MMcdr(V110)))V110=MMcdr(V110); |
584 |
base[5]= base[6]; |
base[5]= base[6]; |
585 |
goto T176;} |
goto T176;} |
586 |
goto T177;} |
goto T177;} |
587 |
|
goto T176; |
588 |
T176:; |
T176:; |
589 |
base[6]= VV[41]; |
base[6]= VV[41]; |
590 |
V112 = make_fixnum(length((V95))); |
V112 = make_fixnum(length((V95))); |
595 |
V113= Cnil; |
V113= Cnil; |
596 |
goto T181;} |
goto T181;} |
597 |
base[8]=V114=MMcons(Cnil,Cnil); |
base[8]=V114=MMcons(Cnil,Cnil); |
598 |
|
goto T182; |
599 |
T182:; |
T182:; |
600 |
(V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car)); |
(V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car)); |
601 |
while(!endp(MMcdr(V114)))V114=MMcdr(V114); |
while(!endp(MMcdr(V114)))V114=MMcdr(V114); |
604 |
V113= base[8]; |
V113= base[8]; |
605 |
goto T181;} |
goto T181;} |
606 |
goto T182;} |
goto T182;} |
607 |
|
goto T181; |
608 |
T181:; |
T181:; |
609 |
base[7]= listA(3,(V97),V112,V113); |
base[7]= listA(3,(V97),V112,V113); |
610 |
vs_top=(vs_base=base+0)+8; |
vs_top=(vs_base=base+0)+8; |
612 |
vs_top=sup; |
vs_top=sup; |
613 |
{object V117 = vs_base[0]; |
{object V117 = vs_base[0]; |
614 |
VMR9(V117)}} |
VMR9(V117)}} |
615 |
|
base[0]=base[0]; |
616 |
|
return Cnil; |
617 |
} |
} |
618 |
/* local entry for function TYPECASE-ERROR-STRINGS */ |
/* local entry for function TYPECASE-ERROR-STRINGS */ |
619 |
|
|
621 |
|
|
622 |
register object V119; |
register object V119; |
623 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
624 |
|
goto TTL; |
625 |
TTL:; |
TTL:; |
626 |
if(!((car((V119)))==(VV[25]))){ |
if(!((car((V119)))==(VV[25]))){ |
627 |
goto T185;}switch(length(cdr((V119)))){ |
goto T185;}switch(length(cdr((V119)))){ |
628 |
case 0: |
case 0: |
629 |
|
goto T188; |
630 |
T188:; |
T188:; |
631 |
{object V120 = VV[42]; |
{object V120 = VV[42]; |
632 |
VMR10(V120)} |
VMR10(V120)} |
633 |
case 1: |
case 1: |
634 |
|
goto T189; |
635 |
T189:; |
T189:; |
636 |
{object V121 = list(2,VV[43],make_cons(cadr((V119)),Cnil)); |
{object V121 = list(2,VV[43],make_cons(cadr((V119)),Cnil)); |
637 |
VMR10(V121)} |
VMR10(V121)} |
638 |
case 2: |
case 2: |
639 |
|
goto T190; |
640 |
T190:; |
T190:; |
641 |
{object V122 = list(2,VV[44],cdr((V119))); |
{object V122 = list(2,VV[44],cdr((V119))); |
642 |
VMR10(V122)} |
VMR10(V122)} |
643 |
default: |
default: |
644 |
|
goto T191; |
645 |
T191:; |
T191:; |
646 |
{object V123 = list(2,VV[45],make_cons(cdr((V119)),Cnil)); |
{object V123 = list(2,VV[45],make_cons(cdr((V119)),Cnil)); |
647 |
VMR10(V123)} |
VMR10(V123)} |
649 |
VMR10(V124)}} |
VMR10(V124)}} |
650 |
{object V125 = Cnil; |
{object V125 = Cnil; |
651 |
VMR10(V125)} |
VMR10(V125)} |
652 |
|
goto T185; |
653 |
T185:; |
T185:; |
654 |
if(!((car((V119)))==(VV[46]))){ |
if(!((car((V119)))==(VV[46]))){ |
655 |
goto T194;} |
goto T194;} |
656 |
{object V126 = list(2,VV[47],cdr((V119))); |
{object V126 = list(2,VV[47],cdr((V119))); |
657 |
VMR10(V126)} |
VMR10(V126)} |
658 |
|
goto T194; |
659 |
T194:; |
T194:; |
660 |
if(endp(cdr((V119)))){ |
if(endp(cdr((V119)))){ |
661 |
goto T196;} |
goto T196;} |
662 |
if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){ |
663 |
goto T197;} |
goto T197;} |
664 |
|
goto T196; |
665 |
T196:; |
T196:; |
666 |
{object V127; |
{object V127; |
667 |
{register object x= car((V119)),V128= VV[49]; |
{register object x= car((V119)),V128= VV[49]; |
671 |
goto T201; |
goto T201; |
672 |
}else V128=V128->c.c_cdr; |
}else V128=V128->c.c_cdr; |
673 |
V127= Cnil;} |
V127= Cnil;} |
674 |
|
goto T201; |
675 |
T201:; |
T201:; |
676 |
if(((V127))==Cnil){ |
if(((V127))==Cnil){ |
677 |
goto T203;} |
goto T203;} |
678 |
{object V129 = list(2,cadr((V127)),Cnil); |
{object V129 = list(2,cadr((V127)),Cnil); |
679 |
VMR10(V129)} |
VMR10(V129)} |
680 |
|
goto T203; |
681 |
T203:; |
T203:; |
682 |
V130= (*(LnkLI58))(car((V119))); |
V130= (*(LnkLI58))(car((V119))); |
683 |
{object V131 = list(2,VV[50],list(2,/* INLINE-ARGS */V130,car((V119)))); |
{object V131 = list(2,VV[50],list(2,/* INLINE-ARGS */V130,car((V119)))); |
684 |
VMR10(V131)}} |
VMR10(V131)}} |
685 |
|
goto T197; |
686 |
T197:; |
T197:; |
687 |
V132= (*(LnkLI58))(car((V119))); |
V132= (*(LnkLI58))(car((V119))); |
688 |
{object V133 = list(2,VV[51],list(2,/* INLINE-ARGS */V132,(V119))); |
{object V133 = list(2,VV[51],list(2,/* INLINE-ARGS */V132,(V119))); |
689 |
VMR10(V133)} |
VMR10(V133)} |
690 |
|
return Cnil; |
691 |
} |
} |
692 |
/* local entry for function BOIN-P */ |
/* local entry for function BOIN-P */ |
693 |
|
|
695 |
|
|
696 |
object V135; |
object V135; |
697 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
698 |
|
goto TTL; |
699 |
TTL:; |
TTL:; |
700 |
V137= symbol_name((V135)); |
V137= symbol_name((V135)); |
701 |
V138= elt(/* INLINE-ARGS */V137,0); |
V138= elt(/* INLINE-ARGS */V137,0); |
707 |
}else V136=V136->c.c_cdr; |
}else V136=V136->c.c_cdr; |
708 |
{object V140 = Cnil; |
{object V140 = Cnil; |
709 |
VMR11(V140)}} |
VMR11(V140)}} |
710 |
|
return Cnil; |
711 |
} |
} |
712 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* BOIN-P */ |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* BOIN-P */ |
713 |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[57],&LnkLI57,ap);} /* REMOVE */ |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[57],(void **)&LnkLI57,ap);} /* REMOVE */ |
714 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* TYPECASE-ERROR-STRINGS */ |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* TYPECASE-ERROR-STRINGS */ |
715 |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* ASK-FOR-FORM */ |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* ASK-FOR-FORM */ |
716 |
|
|
717 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
718 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |