2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "gcl_listlib.h" |
#include "gcl_listlib.h" |
4 |
void init_gcl_listlib(){do_init(VV);} |
void init_gcl_listlib(){do_init(VV);} |
5 |
/* function definition for KEY-LIST */ |
/* local entry for function KEY-LIST */ |
6 |
|
|
7 |
static void L1() |
static object LI1(V4,V5,V6) |
8 |
{register object *base=vs_base; |
|
9 |
register object *sup=base+VM1; VC1 |
object V4;object V5;object V6; |
10 |
vs_check; |
{ VMB1 VMS1 VMV1 |
|
{object V1; |
|
|
object V2; |
|
|
object V3; |
|
|
V1=(base[0]); |
|
|
V2=(base[1]); |
|
|
V3=(base[2]); |
|
|
vs_top=sup; |
|
11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
{register object V4; |
{register object V7; |
14 |
V4= Cnil; |
V7= Cnil; |
15 |
if(((V1))==Cnil){ |
if(((V4))==Cnil){ |
16 |
goto T2;} |
goto T2;} |
17 |
V4= make_cons(VV[0],(V4)); |
V7= make_cons(VV[0],(V7)); |
18 |
V4= make_cons(V1,(V4)); |
V7= make_cons(V4,(V7)); |
19 |
goto T2; |
goto T2; |
20 |
T2:; |
T2:; |
21 |
if(((V2))==Cnil){ |
if(((V5))==Cnil){ |
22 |
goto T8;} |
goto T8;} |
23 |
V4= make_cons(VV[1],(V4)); |
V7= make_cons(VV[1],(V7)); |
24 |
V4= make_cons(V2,(V4)); |
V7= make_cons(V5,(V7)); |
25 |
goto T8; |
goto T8; |
26 |
T8:; |
T8:; |
27 |
if(((V3))==Cnil){ |
if(((V6))==Cnil){ |
28 |
goto T14;} |
goto T14;} |
29 |
V4= make_cons(VV[2],(V4)); |
V7= make_cons(VV[2],(V7)); |
30 |
V4= make_cons(V3,(V4)); |
V7= make_cons(V6,(V7)); |
31 |
goto T14; |
goto T14; |
32 |
T14:; |
T14:; |
33 |
base[3]= nreverse((V4)); |
{object V14 = nreverse((V7)); |
34 |
vs_top=(vs_base=base+3)+1; |
VMR1(V14)}} |
35 |
return;} |
return Cnil; |
|
} |
|
36 |
} |
} |
37 |
/* local entry for function UNION */ |
/* local entry for function UNION */ |
38 |
|
|
39 |
static object LI2(object V12,object V11,object first,...) |
static object LI2(object V16,object V15,object first,...) |
40 |
{ |
{ |
41 |
va_list ap; |
va_list ap; |
42 |
int narg = VFUN_NARGS; VMB2 VMS2 VMV2 |
int narg = VFUN_NARGS; VMB2 VMS2 VMV2 |
43 |
{object V13; |
{object V17; |
44 |
register object V14; |
register object V18; |
45 |
register object V15; |
register object V19; |
46 |
register object V16; |
register object V20; |
47 |
register object V17; |
register object V21; |
48 |
va_start(ap,first); |
va_start(ap,first); |
49 |
V13= V12; |
V17= V16; |
50 |
V14= V11; |
V18= V15; |
51 |
narg= narg - 2; |
narg= narg - 2; |
52 |
{ |
{ |
53 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI2key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI2key,first,ap); |
54 |
V15=(Vcs[2]); |
V19=(Vcs[2]); |
55 |
V16=(Vcs[3]); |
V20=(Vcs[3]); |
56 |
V17=(Vcs[4]); |
V21=(Vcs[4]); |
57 |
{register object V18; |
{register object V22; |
58 |
register object V19; |
register object V23; |
59 |
V18= Cnil; |
V22= Cnil; |
60 |
V19= Cnil; |
V23= Cnil; |
61 |
{register object V20; |
{register object V24; |
62 |
V20= (V13); |
V24= (V17); |
63 |
goto T23; |
goto T23; |
64 |
T23:; |
T23:; |
65 |
if(((V20))!=Cnil){ |
if(((V24))!=Cnil){ |
66 |
goto T24;} |
goto T24;} |
67 |
if(((V19))==Cnil){ |
if(((V23))==Cnil){ |
68 |
goto T27;} |
goto T27;} |
69 |
((V19))->c.c_cdr = (V14); |
((V23))->c.c_cdr = (V18); |
70 |
goto T27; |
goto T27; |
71 |
T27:; |
T27:; |
72 |
if((V18)!=Cnil){ |
if((V22)!=Cnil){ |
73 |
{object V21 = (V18); |
{object V25 = (V22); |
74 |
VMR2(V21)}} |
VMR2(V25)}} |
75 |
{object V22 = (V14); |
{object V26 = (V18); |
76 |
VMR2(V22)} |
VMR2(V26)} |
77 |
goto T24; |
goto T24; |
78 |
T24:; |
T24:; |
79 |
if(!(type_of((V20))==t_cons)){ |
if(!(type_of((V24))==t_cons)){ |
80 |
goto T32;} |
goto T32;} |
81 |
goto T31; |
goto T31; |
82 |
goto T32; |
goto T32; |
88 |
goto T31; |
goto T31; |
89 |
T31:; |
T31:; |
90 |
base[0]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
91 |
base[1]= CMPcar((V20)); |
base[1]= CMPcar((V24)); |
92 |
base[2]= (V14); |
base[2]= (V18); |
93 |
{object V23; |
{object V27; |
94 |
base[3]= (V17); |
V27= (*(LnkLI15))((V21),(V19),(V20)); |
|
base[4]= (V15); |
|
|
base[5]= (V16); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V23= vs_base[0]; |
|
95 |
vs_top=base+3; |
vs_top=base+3; |
96 |
while(V23!=Cnil) |
while(V27!=Cnil) |
97 |
{vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;} |
{vs_push((V27)->c.c_car);V27=(V27)->c.c_cdr;} |
98 |
vs_base=base+1;} |
vs_base=base+1;} |
99 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
100 |
vs_top=sup; |
vs_top=sup; |
101 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
102 |
goto T35;} |
goto T35;} |
103 |
if(((V19))==Cnil){ |
if(((V23))==Cnil){ |
104 |
goto T45;} |
goto T42;} |
105 |
V24= make_cons(CMPcar((V20)),Cnil); |
V28= make_cons(CMPcar((V24)),Cnil); |
106 |
((V19))->c.c_cdr = /* INLINE-ARGS */V24; |
((V23))->c.c_cdr = /* INLINE-ARGS */V28; |
107 |
V19= CMPcdr((V19)); |
V23= CMPcdr((V23)); |
108 |
goto T35; |
goto T35; |
109 |
goto T45; |
goto T42; |
110 |
T45:; |
T42:; |
111 |
V18= make_cons(CMPcar((V20)),Cnil); |
V22= make_cons(CMPcar((V24)),Cnil); |
112 |
V19= (V18); |
V23= (V22); |
113 |
goto T35; |
goto T35; |
114 |
T35:; |
T35:; |
115 |
V20= CMPcdr((V20)); |
V24= CMPcdr((V24)); |
116 |
goto T23;}} |
goto T23;}} |
117 |
va_end(ap); |
va_end(ap); |
118 |
base[0]=base[0]; |
base[0]=base[0]; |
120 |
}} |
}} |
121 |
/* local entry for function NUNION */ |
/* local entry for function NUNION */ |
122 |
|
|
123 |
static object LI3(object V26,object V25,object first,...) |
static object LI3(object V30,object V29,object first,...) |
124 |
{ |
{ |
125 |
va_list ap; |
va_list ap; |
126 |
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
127 |
{object V27; |
{object V31; |
128 |
register object V28; |
register object V32; |
129 |
register object V29; |
register object V33; |
130 |
register object V30; |
register object V34; |
131 |
register object V31; |
register object V35; |
132 |
va_start(ap,first); |
va_start(ap,first); |
133 |
V27= V26; |
V31= V30; |
134 |
V28= V25; |
V32= V29; |
135 |
narg= narg - 2; |
narg= narg - 2; |
136 |
{ |
{ |
137 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI3key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI3key,first,ap); |
138 |
V29=(Vcs[2]); |
V33=(Vcs[2]); |
139 |
V30=(Vcs[3]); |
V34=(Vcs[3]); |
140 |
V31=(Vcs[4]); |
V35=(Vcs[4]); |
141 |
{register object V32; |
{register object V36; |
142 |
register object V33; |
register object V37; |
143 |
V32= Cnil; |
V36= Cnil; |
144 |
V33= Cnil; |
V37= Cnil; |
145 |
{register object V34; |
{register object V38; |
146 |
V34= (V27); |
V38= (V31); |
147 |
goto T58; |
goto T55; |
148 |
T58:; |
T55:; |
149 |
if(((V34))!=Cnil){ |
if(((V38))!=Cnil){ |
150 |
|
goto T56;} |
151 |
|
if(((V37))==Cnil){ |
152 |
goto T59;} |
goto T59;} |
153 |
if(((V33))==Cnil){ |
((V37))->c.c_cdr = (V32); |
|
goto T62;} |
|
|
((V33))->c.c_cdr = (V28); |
|
|
goto T62; |
|
|
T62:; |
|
|
if((V32)!=Cnil){ |
|
|
{object V35 = (V32); |
|
|
VMR3(V35)}} |
|
|
{object V36 = (V28); |
|
|
VMR3(V36)} |
|
154 |
goto T59; |
goto T59; |
155 |
T59:; |
T59:; |
156 |
if(!(type_of((V34))==t_cons)){ |
if((V36)!=Cnil){ |
157 |
goto T67;} |
{object V39 = (V36); |
158 |
goto T66; |
VMR3(V39)}} |
159 |
goto T67; |
{object V40 = (V32); |
160 |
T67:; |
VMR3(V40)} |
161 |
|
goto T56; |
162 |
|
T56:; |
163 |
|
if(!(type_of((V38))==t_cons)){ |
164 |
|
goto T64;} |
165 |
|
goto T63; |
166 |
|
goto T64; |
167 |
|
T64:; |
168 |
base[0]= VV[4]; |
base[0]= VV[4]; |
169 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
170 |
Lerror(); |
Lerror(); |
171 |
vs_top=sup; |
vs_top=sup; |
172 |
goto T66; |
goto T63; |
173 |
T66:; |
T63:; |
174 |
base[0]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
175 |
base[1]= CMPcar((V34)); |
base[1]= CMPcar((V38)); |
176 |
base[2]= (V28); |
base[2]= (V32); |
177 |
{object V37; |
{object V41; |
178 |
base[3]= (V31); |
V41= (*(LnkLI15))((V35),(V33),(V34)); |
|
base[4]= (V29); |
|
|
base[5]= (V30); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V37= vs_base[0]; |
|
179 |
vs_top=base+3; |
vs_top=base+3; |
180 |
while(V37!=Cnil) |
while(V41!=Cnil) |
181 |
{vs_push((V37)->c.c_car);V37=(V37)->c.c_cdr;} |
{vs_push((V41)->c.c_car);V41=(V41)->c.c_cdr;} |
182 |
vs_base=base+1;} |
vs_base=base+1;} |
183 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
184 |
vs_top=sup; |
vs_top=sup; |
185 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
186 |
goto T70;} |
goto T67;} |
187 |
if(((V33))==Cnil){ |
if(((V37))==Cnil){ |
188 |
goto T81;} |
goto T75;} |
189 |
((V33))->c.c_cdr = (V34); |
((V37))->c.c_cdr = (V38); |
190 |
goto T79; |
goto T73; |
191 |
goto T81; |
goto T75; |
192 |
T81:; |
T75:; |
193 |
V32= (V34); |
V36= (V38); |
194 |
goto T79; |
goto T73; |
195 |
T79:; |
T73:; |
196 |
V33= (V34); |
V37= (V38); |
197 |
goto T70; |
goto T67; |
198 |
T70:; |
T67:; |
199 |
V34= CMPcdr((V34)); |
V38= CMPcdr((V38)); |
200 |
goto T58;}} |
goto T55;}} |
201 |
va_end(ap); |
va_end(ap); |
202 |
base[0]=base[0]; |
base[0]=base[0]; |
203 |
return Cnil;} |
return Cnil;} |
204 |
}} |
}} |
205 |
/* local entry for function INTERSECTION */ |
/* local entry for function INTERSECTION */ |
206 |
|
|
207 |
static object LI4(object V39,object V38,object first,...) |
static object LI4(object V43,object V42,object first,...) |
208 |
{ |
{ |
209 |
va_list ap; |
va_list ap; |
210 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
211 |
{object V40; |
{object V44; |
212 |
register object V41; |
register object V45; |
213 |
register object V42; |
register object V46; |
214 |
register object V43; |
register object V47; |
215 |
register object V44; |
register object V48; |
216 |
va_start(ap,first); |
va_start(ap,first); |
217 |
V40= V39; |
V44= V43; |
218 |
V41= V38; |
V45= V42; |
219 |
narg= narg - 2; |
narg= narg - 2; |
220 |
{ |
{ |
221 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI4key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI4key,first,ap); |
222 |
V42=(Vcs[2]); |
V46=(Vcs[2]); |
223 |
V43=(Vcs[3]); |
V47=(Vcs[3]); |
224 |
V44=(Vcs[4]); |
V48=(Vcs[4]); |
225 |
{register object V45; |
{register object V49; |
226 |
V45= Cnil; |
V49= Cnil; |
227 |
{register object V46; |
{register object V50; |
228 |
V46= (V40); |
V50= (V44); |
229 |
|
goto T84; |
230 |
|
T84:; |
231 |
|
if(((V50))!=Cnil){ |
232 |
|
goto T85;} |
233 |
|
{object V51 = (V49); |
234 |
|
VMR4(V51)} |
235 |
|
goto T85; |
236 |
|
T85:; |
237 |
|
if(!(type_of((V50))==t_cons)){ |
238 |
|
goto T90;} |
239 |
|
goto T89; |
240 |
goto T90; |
goto T90; |
241 |
T90:; |
T90:; |
|
if(((V46))!=Cnil){ |
|
|
goto T91;} |
|
|
{object V47 = (V45); |
|
|
VMR4(V47)} |
|
|
goto T91; |
|
|
T91:; |
|
|
if(!(type_of((V46))==t_cons)){ |
|
|
goto T96;} |
|
|
goto T95; |
|
|
goto T96; |
|
|
T96:; |
|
242 |
base[0]= VV[5]; |
base[0]= VV[5]; |
243 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
244 |
Lerror(); |
Lerror(); |
245 |
vs_top=sup; |
vs_top=sup; |
246 |
goto T95; |
goto T89; |
247 |
T95:; |
T89:; |
248 |
base[0]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
249 |
base[1]= CMPcar((V46)); |
base[1]= CMPcar((V50)); |
250 |
base[2]= (V41); |
base[2]= (V45); |
251 |
{object V48; |
{object V52; |
252 |
base[3]= (V44); |
V52= (*(LnkLI15))((V48),(V46),(V47)); |
|
base[4]= (V42); |
|
|
base[5]= (V43); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V48= vs_base[0]; |
|
253 |
vs_top=base+3; |
vs_top=base+3; |
254 |
while(V48!=Cnil) |
while(V52!=Cnil) |
255 |
{vs_push((V48)->c.c_car);V48=(V48)->c.c_cdr;} |
{vs_push((V52)->c.c_car);V52=(V52)->c.c_cdr;} |
256 |
vs_base=base+1;} |
vs_base=base+1;} |
257 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
258 |
vs_top=sup; |
vs_top=sup; |
259 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
260 |
goto T99;} |
goto T93;} |
261 |
V45= make_cons(CMPcar((V46)),(V45)); |
V49= make_cons(CMPcar((V50)),(V49)); |
262 |
goto T99; |
goto T93; |
263 |
T99:; |
T93:; |
264 |
V46= CMPcdr((V46)); |
V50= CMPcdr((V50)); |
265 |
goto T90;}} |
goto T84;}} |
266 |
va_end(ap); |
va_end(ap); |
267 |
base[0]=base[0]; |
base[0]=base[0]; |
268 |
return Cnil;} |
return Cnil;} |
269 |
}} |
}} |
270 |
/* local entry for function NINTERSECTION */ |
/* local entry for function NINTERSECTION */ |
271 |
|
|
272 |
static object LI5(object V50,object V49,object first,...) |
static object LI5(object V54,object V53,object first,...) |
273 |
{ |
{ |
274 |
va_list ap; |
va_list ap; |
275 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
276 |
{object V51; |
{object V55; |
277 |
register object V52; |
register object V56; |
278 |
register object V53; |
register object V57; |
279 |
register object V54; |
register object V58; |
280 |
register object V55; |
register object V59; |
281 |
va_start(ap,first); |
va_start(ap,first); |
282 |
V51= V50; |
V55= V54; |
283 |
V52= V49; |
V56= V53; |
284 |
narg= narg - 2; |
narg= narg - 2; |
285 |
{ |
{ |
286 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI5key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI5key,first,ap); |
287 |
V53=(Vcs[2]); |
V57=(Vcs[2]); |
288 |
V54=(Vcs[3]); |
V58=(Vcs[3]); |
289 |
V55=(Vcs[4]); |
V59=(Vcs[4]); |
290 |
{register object V56; |
{register object V60; |
291 |
register object V57; |
register object V61; |
292 |
V56= Cnil; |
V60= Cnil; |
293 |
V57= Cnil; |
V61= Cnil; |
294 |
{register object V58; |
{register object V62; |
295 |
V58= (V51); |
V62= (V55); |
296 |
|
goto T106; |
297 |
|
T106:; |
298 |
|
if(((V62))!=Cnil){ |
299 |
|
goto T107;} |
300 |
|
if(((V61))==Cnil){ |
301 |
|
goto T110;} |
302 |
|
((V61))->c.c_cdr = Cnil; |
303 |
|
goto T110; |
304 |
|
T110:; |
305 |
|
{object V63 = (V60); |
306 |
|
VMR5(V63)} |
307 |
|
goto T107; |
308 |
|
T107:; |
309 |
|
if(!(type_of((V62))==t_cons)){ |
310 |
|
goto T115;} |
311 |
|
goto T114; |
312 |
goto T115; |
goto T115; |
313 |
T115:; |
T115:; |
|
if(((V58))!=Cnil){ |
|
|
goto T116;} |
|
|
if(((V57))==Cnil){ |
|
|
goto T119;} |
|
|
((V57))->c.c_cdr = Cnil; |
|
|
goto T119; |
|
|
T119:; |
|
|
{object V59 = (V56); |
|
|
VMR5(V59)} |
|
|
goto T116; |
|
|
T116:; |
|
|
if(!(type_of((V58))==t_cons)){ |
|
|
goto T124;} |
|
|
goto T123; |
|
|
goto T124; |
|
|
T124:; |
|
314 |
base[0]= VV[6]; |
base[0]= VV[6]; |
315 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
316 |
Lerror(); |
Lerror(); |
317 |
vs_top=sup; |
vs_top=sup; |
318 |
goto T123; |
goto T114; |
319 |
T123:; |
T114:; |
320 |
base[0]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
321 |
base[1]= CMPcar((V58)); |
base[1]= CMPcar((V62)); |
322 |
base[2]= (V52); |
base[2]= (V56); |
323 |
{object V60; |
{object V64; |
324 |
base[3]= (V55); |
V64= (*(LnkLI15))((V59),(V57),(V58)); |
|
base[4]= (V53); |
|
|
base[5]= (V54); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V60= vs_base[0]; |
|
325 |
vs_top=base+3; |
vs_top=base+3; |
326 |
while(V60!=Cnil) |
while(V64!=Cnil) |
327 |
{vs_push((V60)->c.c_car);V60=(V60)->c.c_cdr;} |
{vs_push((V64)->c.c_car);V64=(V64)->c.c_cdr;} |
328 |
vs_base=base+1;} |
vs_base=base+1;} |
329 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
330 |
vs_top=sup; |
vs_top=sup; |
331 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
332 |
goto T127;} |
goto T118;} |
333 |
if(((V57))==Cnil){ |
if(((V61))==Cnil){ |
334 |
goto T138;} |
goto T126;} |
335 |
((V57))->c.c_cdr = (V58); |
((V61))->c.c_cdr = (V62); |
336 |
goto T136; |
goto T124; |
337 |
goto T138; |
goto T126; |
338 |
T138:; |
T126:; |
339 |
V56= (V58); |
V60= (V62); |
340 |
goto T136; |
goto T124; |
341 |
T136:; |
T124:; |
342 |
V57= (V58); |
V61= (V62); |
343 |
goto T127; |
goto T118; |
344 |
T127:; |
T118:; |
345 |
V58= CMPcdr((V58)); |
V62= CMPcdr((V62)); |
346 |
goto T115;}} |
goto T106;}} |
347 |
va_end(ap); |
va_end(ap); |
348 |
base[0]=base[0]; |
base[0]=base[0]; |
349 |
return Cnil;} |
return Cnil;} |
350 |
}} |
}} |
351 |
/* local entry for function SET-DIFFERENCE */ |
/* local entry for function SET-DIFFERENCE */ |
352 |
|
|
353 |
static object LI6(object V62,object V61,object first,...) |
static object LI6(object V66,object V65,object first,...) |
354 |
{ |
{ |
355 |
va_list ap; |
va_list ap; |
356 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
357 |
{object V63; |
{object V67; |
358 |
register object V64; |
register object V68; |
359 |
register object V65; |
register object V69; |
360 |
register object V66; |
register object V70; |
361 |
register object V67; |
register object V71; |
362 |
va_start(ap,first); |
va_start(ap,first); |
363 |
V63= V62; |
V67= V66; |
364 |
V64= V61; |
V68= V65; |
365 |
narg= narg - 2; |
narg= narg - 2; |
366 |
{ |
{ |
367 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI6key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI6key,first,ap); |
368 |
V65=(Vcs[2]); |
V69=(Vcs[2]); |
369 |
V66=(Vcs[3]); |
V70=(Vcs[3]); |
370 |
V67=(Vcs[4]); |
V71=(Vcs[4]); |
371 |
{register object V68; |
{register object V72; |
372 |
V68= Cnil; |
V72= Cnil; |
373 |
{register object V69; |
{register object V73; |
374 |
V69= (V63); |
V73= (V67); |
375 |
goto T147; |
goto T135; |
376 |
T147:; |
T135:; |
377 |
if(((V69))!=Cnil){ |
if(((V73))!=Cnil){ |
378 |
goto T148;} |
goto T136;} |
379 |
{object V70 = (V68); |
{object V74 = (V72); |
380 |
VMR6(V70)} |
VMR6(V74)} |
381 |
goto T148; |
goto T136; |
382 |
T148:; |
T136:; |
383 |
if(!(type_of((V69))==t_cons)){ |
if(!(type_of((V73))==t_cons)){ |
384 |
goto T153;} |
goto T141;} |
385 |
goto T152; |
goto T140; |
386 |
goto T153; |
goto T141; |
387 |
T153:; |
T141:; |
388 |
base[0]= VV[7]; |
base[0]= VV[7]; |
389 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
390 |
Lerror(); |
Lerror(); |
391 |
vs_top=sup; |
vs_top=sup; |
392 |
goto T152; |
goto T140; |
393 |
T152:; |
T140:; |
394 |
base[0]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
395 |
base[1]= CMPcar((V69)); |
base[1]= CMPcar((V73)); |
396 |
base[2]= (V64); |
base[2]= (V68); |
397 |
{object V71; |
{object V75; |
398 |
base[3]= (V67); |
V75= (*(LnkLI15))((V71),(V69),(V70)); |
|
base[4]= (V65); |
|
|
base[5]= (V66); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V71= vs_base[0]; |
|
399 |
vs_top=base+3; |
vs_top=base+3; |
400 |
while(V71!=Cnil) |
while(V75!=Cnil) |
401 |
{vs_push((V71)->c.c_car);V71=(V71)->c.c_cdr;} |
{vs_push((V75)->c.c_car);V75=(V75)->c.c_cdr;} |
402 |
vs_base=base+1;} |
vs_base=base+1;} |
403 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
404 |
vs_top=sup; |
vs_top=sup; |
405 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
406 |
goto T156;} |
goto T144;} |
407 |
V68= make_cons(CMPcar((V69)),(V68)); |
V72= make_cons(CMPcar((V73)),(V72)); |
408 |
goto T156; |
goto T144; |
409 |
T156:; |
T144:; |
410 |
V69= CMPcdr((V69)); |
V73= CMPcdr((V73)); |
411 |
goto T147;}} |
goto T135;}} |
412 |
va_end(ap); |
va_end(ap); |
413 |
base[0]=base[0]; |
base[0]=base[0]; |
414 |
return Cnil;} |
return Cnil;} |
415 |
}} |
}} |
416 |
/* function definition for SET-DIFFERENCE-REV */ |
/* local entry for function SET-DIFFERENCE-REV */ |
417 |
|
|
418 |
static void L7() |
static object LI7(object V77,object V76,object first,...) |
419 |
{register object *base=vs_base; |
{ |
420 |
register object *sup=base+VM7; VC7 |
va_list ap; |
421 |
vs_check; |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
422 |
{object V72; |
{object V78; |
423 |
register object V73; |
register object V79; |
424 |
register object V74; |
register object V80; |
425 |
register object V75; |
register object V81; |
426 |
register object V76; |
register object V82; |
427 |
parse_key(vs_base+2,FALSE,FALSE,3,VV[1],VV[2],VV[0]); |
va_start(ap,first); |
428 |
V72=(base[0]); |
V78= V77; |
429 |
V73=(base[1]); |
V79= V76; |
430 |
vs_top=sup; |
narg= narg - 2; |
431 |
V74=(base[2]); |
{ |
432 |
V75=(base[3]); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI7key,first,ap); |
433 |
V76=(base[4]); |
V80=(Vcs[2]); |
434 |
{register object V77; |
V81=(Vcs[3]); |
435 |
V77= Cnil; |
V82=(Vcs[4]); |
436 |
{register object V78; |
{register object V83; |
437 |
V78= (V72); |
V83= Cnil; |
438 |
goto T171; |
{register object V84; |
439 |
T171:; |
V84= (V78); |
440 |
if(((V78))!=Cnil){ |
goto T156; |
441 |
goto T172;} |
T156:; |
442 |
base[8]= (V77); |
if(((V84))!=Cnil){ |
443 |
vs_top=(vs_base=base+8)+1; |
goto T157;} |
444 |
return; |
{object V85 = (V83); |
445 |
goto T172; |
VMR7(V85)} |
446 |
T172:; |
goto T157; |
447 |
if(!(type_of((V78))==t_cons)){ |
T157:; |
448 |
goto T177;} |
if(!(type_of((V84))==t_cons)){ |
449 |
goto T176; |
goto T162;} |
450 |
goto T177; |
goto T161; |
451 |
T177:; |
goto T162; |
452 |
base[8]= VV[8]; |
T162:; |
453 |
vs_top=(vs_base=base+8)+1; |
base[0]= VV[8]; |
454 |
|
vs_top=(vs_base=base+0)+1; |
455 |
Lerror(); |
Lerror(); |
456 |
vs_top=sup; |
vs_top=sup; |
457 |
goto T176; |
goto T161; |
458 |
T176:; |
T161:; |
459 |
base[8]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
460 |
base[9]= CMPcar((V78)); |
base[1]= CMPcar((V84)); |
461 |
base[10]= (V73); |
base[2]= (V79); |
462 |
base[11]= VV[9]; |
base[3]= VV[9]; |
463 |
base[12]= Ct; |
base[4]= Ct; |
464 |
{object V79; |
{object V86; |
465 |
base[13]= (V76); |
V86= (*(LnkLI15))((V82),(V80),(V81)); |
466 |
base[14]= (V74); |
vs_top=base+5; |
467 |
base[15]= (V75); |
while(V86!=Cnil) |
468 |
vs_top=(vs_base=base+13)+3; |
{vs_push((V86)->c.c_car);V86=(V86)->c.c_cdr;} |
469 |
(void) (*Lnk15)(); |
vs_base=base+1;} |
|
vs_top=sup; |
|
|
V79= vs_base[0]; |
|
|
vs_top=base+13; |
|
|
while(V79!=Cnil) |
|
|
{vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;} |
|
|
vs_base=base+9;} |
|
470 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
471 |
vs_top=sup; |
vs_top=sup; |
472 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
473 |
goto T180;} |
goto T165;} |
474 |
V77= make_cons(CMPcar((V78)),(V77)); |
V83= make_cons(CMPcar((V84)),(V83)); |
475 |
goto T180; |
goto T165; |
476 |
T180:; |
T165:; |
477 |
V78= CMPcdr((V78)); |
V84= CMPcdr((V84)); |
478 |
goto T171;}} |
goto T156;}} |
479 |
} |
va_end(ap); |
480 |
} |
base[0]=base[0]; |
481 |
|
return Cnil;} |
482 |
|
}} |
483 |
/* local entry for function NSET-DIFFERENCE */ |
/* local entry for function NSET-DIFFERENCE */ |
484 |
|
|
485 |
static object LI8(object V81,object V80,object first,...) |
static object LI8(object V88,object V87,object first,...) |
486 |
{ |
{ |
487 |
va_list ap; |
va_list ap; |
488 |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
489 |
{object V82; |
{object V89; |
490 |
register object V83; |
register object V90; |
491 |
register object V84; |
register object V91; |
492 |
register object V85; |
register object V92; |
493 |
register object V86; |
register object V93; |
494 |
va_start(ap,first); |
va_start(ap,first); |
495 |
V82= V81; |
V89= V88; |
496 |
V83= V80; |
V90= V87; |
497 |
narg= narg - 2; |
narg= narg - 2; |
498 |
{ |
{ |
499 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI8key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI8key,first,ap); |
500 |
V84=(Vcs[2]); |
V91=(Vcs[2]); |
501 |
V85=(Vcs[3]); |
V92=(Vcs[3]); |
502 |
V86=(Vcs[4]); |
V93=(Vcs[4]); |
503 |
{register object V87; |
{register object V94; |
504 |
register object V88; |
register object V95; |
505 |
V87= Cnil; |
V94= Cnil; |
506 |
V88= Cnil; |
V95= Cnil; |
507 |
{register object V89; |
{register object V96; |
508 |
V89= (V82); |
V96= (V89); |
509 |
goto T198; |
goto T180; |
510 |
T198:; |
T180:; |
511 |
if(((V89))!=Cnil){ |
if(((V96))!=Cnil){ |
512 |
goto T199;} |
goto T181;} |
513 |
if(((V88))==Cnil){ |
if(((V95))==Cnil){ |
514 |
goto T202;} |
goto T184;} |
515 |
((V88))->c.c_cdr = Cnil; |
((V95))->c.c_cdr = Cnil; |
516 |
goto T202; |
goto T184; |
517 |
T202:; |
T184:; |
518 |
{object V90 = (V87); |
{object V97 = (V94); |
519 |
VMR8(V90)} |
VMR8(V97)} |
520 |
goto T199; |
goto T181; |
521 |
T199:; |
T181:; |
522 |
if(!(type_of((V89))==t_cons)){ |
if(!(type_of((V96))==t_cons)){ |
523 |
goto T207;} |
goto T189;} |
524 |
goto T206; |
goto T188; |
525 |
goto T207; |
goto T189; |
526 |
T207:; |
T189:; |
527 |
base[0]= VV[10]; |
base[0]= VV[10]; |
528 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
529 |
Lerror(); |
Lerror(); |
530 |
vs_top=sup; |
vs_top=sup; |
531 |
goto T206; |
goto T188; |
532 |
T206:; |
T188:; |
533 |
base[0]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
534 |
base[1]= CMPcar((V89)); |
base[1]= CMPcar((V96)); |
535 |
base[2]= (V83); |
base[2]= (V90); |
536 |
{object V91; |
{object V98; |
537 |
base[3]= (V86); |
V98= (*(LnkLI15))((V93),(V91),(V92)); |
|
base[4]= (V84); |
|
|
base[5]= (V85); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V91= vs_base[0]; |
|
538 |
vs_top=base+3; |
vs_top=base+3; |
539 |
while(V91!=Cnil) |
while(V98!=Cnil) |
540 |
{vs_push((V91)->c.c_car);V91=(V91)->c.c_cdr;} |
{vs_push((V98)->c.c_car);V98=(V98)->c.c_cdr;} |
541 |
vs_base=base+1;} |
vs_base=base+1;} |
542 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
543 |
vs_top=sup; |
vs_top=sup; |
544 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
545 |
goto T210;} |
goto T192;} |
546 |
if(((V88))==Cnil){ |
if(((V95))==Cnil){ |
547 |
goto T221;} |
goto T200;} |
548 |
((V88))->c.c_cdr = (V89); |
((V95))->c.c_cdr = (V96); |
549 |
goto T219; |
goto T198; |
550 |
goto T221; |
goto T200; |
551 |
T221:; |
T200:; |
552 |
V87= (V89); |
V94= (V96); |
553 |
goto T219; |
goto T198; |
554 |
T219:; |
T198:; |
555 |
V88= (V89); |
V95= (V96); |
556 |
goto T210; |
goto T192; |
557 |
T210:; |
T192:; |
558 |
V89= CMPcdr((V89)); |
V96= CMPcdr((V96)); |
559 |
goto T198;}} |
goto T180;}} |
560 |
va_end(ap); |
va_end(ap); |
561 |
base[0]=base[0]; |
base[0]=base[0]; |
562 |
return Cnil;} |
return Cnil;} |
563 |
}} |
}} |
564 |
/* function definition for NSET-DIFFERENCE-REV */ |
/* local entry for function NSET-DIFFERENCE-REV */ |
565 |
|
|
566 |
static void L9() |
static object LI9(object V100,object V99,object first,...) |
567 |
{register object *base=vs_base; |
{ |
568 |
register object *sup=base+VM9; VC9 |
va_list ap; |
569 |
vs_check; |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
570 |
{object V92; |
{object V101; |
571 |
register object V93; |
register object V102; |
572 |
register object V94; |
register object V103; |
573 |
register object V95; |
register object V104; |
574 |
register object V96; |
register object V105; |
575 |
parse_key(vs_base+2,FALSE,FALSE,3,VV[1],VV[2],VV[0]); |
va_start(ap,first); |
576 |
V92=(base[0]); |
V101= V100; |
577 |
V93=(base[1]); |
V102= V99; |
578 |
vs_top=sup; |
narg= narg - 2; |
579 |
V94=(base[2]); |
{ |
580 |
V95=(base[3]); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI9key,first,ap); |
581 |
V96=(base[4]); |
V103=(Vcs[2]); |
582 |
{register object V97; |
V104=(Vcs[3]); |
583 |
register object V98; |
V105=(Vcs[4]); |
584 |
V97= Cnil; |
{register object V106; |
585 |
V98= Cnil; |
register object V107; |
586 |
{register object V99; |
V106= Cnil; |
587 |
V99= (V92); |
V107= Cnil; |
588 |
goto T231; |
{register object V108; |
589 |
T231:; |
V108= (V101); |
590 |
if(((V99))!=Cnil){ |
goto T210; |
591 |
goto T232;} |
T210:; |
592 |
if(((V98))==Cnil){ |
if(((V108))!=Cnil){ |
593 |
goto T235;} |
goto T211;} |
594 |
((V98))->c.c_cdr = Cnil; |
if(((V107))==Cnil){ |
595 |
goto T235; |
goto T214;} |
596 |
T235:; |
((V107))->c.c_cdr = Cnil; |
597 |
base[8]= (V97); |
goto T214; |
598 |
vs_top=(vs_base=base+8)+1; |
T214:; |
599 |
return; |
{object V109 = (V106); |
600 |
goto T232; |
VMR9(V109)} |
601 |
T232:; |
goto T211; |
602 |
if(!(type_of((V99))==t_cons)){ |
T211:; |
603 |
goto T240;} |
if(!(type_of((V108))==t_cons)){ |
604 |
goto T239; |
goto T219;} |
605 |
goto T240; |
goto T218; |
606 |
T240:; |
goto T219; |
607 |
base[8]= VV[11]; |
T219:; |
608 |
vs_top=(vs_base=base+8)+1; |
base[0]= VV[11]; |
609 |
|
vs_top=(vs_base=base+0)+1; |
610 |
Lerror(); |
Lerror(); |
611 |
vs_top=sup; |
vs_top=sup; |
612 |
goto T239; |
goto T218; |
613 |
T239:; |
T218:; |
614 |
base[8]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
615 |
base[9]= CMPcar((V99)); |
base[1]= CMPcar((V108)); |
616 |
base[10]= (V93); |
base[2]= (V102); |
617 |
base[11]= VV[9]; |
base[3]= VV[9]; |
618 |
base[12]= Ct; |
base[4]= Ct; |
619 |
{object V100; |
{object V110; |
620 |
base[13]= (V96); |
V110= (*(LnkLI15))((V105),(V103),(V104)); |
621 |
base[14]= (V94); |
vs_top=base+5; |
622 |
base[15]= (V95); |
while(V110!=Cnil) |
623 |
vs_top=(vs_base=base+13)+3; |
{vs_push((V110)->c.c_car);V110=(V110)->c.c_cdr;} |
624 |
(void) (*Lnk15)(); |
vs_base=base+1;} |
|
vs_top=sup; |
|
|
V100= vs_base[0]; |
|
|
vs_top=base+13; |
|
|
while(V100!=Cnil) |
|
|
{vs_push((V100)->c.c_car);V100=(V100)->c.c_cdr;} |
|
|
vs_base=base+9;} |
|
625 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
626 |
vs_top=sup; |
vs_top=sup; |
627 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
628 |
goto T243;} |
goto T222;} |
629 |
if(((V98))==Cnil){ |
if(((V107))==Cnil){ |
630 |
goto T256;} |
goto T232;} |
631 |
((V98))->c.c_cdr = (V99); |
((V107))->c.c_cdr = (V108); |
632 |
goto T254; |
goto T230; |
633 |
goto T256; |
goto T232; |
634 |
T256:; |
T232:; |
635 |
V97= (V99); |
V106= (V108); |
636 |
goto T254; |
goto T230; |
637 |
T254:; |
T230:; |
638 |
V98= (V99); |
V107= (V108); |
639 |
goto T243; |
goto T222; |
640 |
T243:; |
T222:; |
641 |
V99= CMPcdr((V99)); |
V108= CMPcdr((V108)); |
642 |
goto T231;}} |
goto T210;}} |
643 |
} |
va_end(ap); |
644 |
} |
base[0]=base[0]; |
645 |
|
return Cnil;} |
646 |
|
}} |
647 |
/* local entry for function SET-EXCLUSIVE-OR */ |
/* local entry for function SET-EXCLUSIVE-OR */ |
648 |
|
|
649 |
static object LI10(object V102,object V101,object first,...) |
static object LI10(object V112,object V111,object first,...) |
650 |
{ |
{ |
651 |
va_list ap; |
va_list ap; |
652 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
653 |
{object V103; |
{object V113; |
654 |
object V104; |
object V114; |
655 |
object V105; |
object V115; |
656 |
object V106; |
object V116; |
657 |
object V107; |
object V117; |
658 |
va_start(ap,first); |
va_start(ap,first); |
659 |
V103= V102; |
V113= V112; |
660 |
V104= V101; |
V114= V111; |
661 |
narg= narg - 2; |
narg= narg - 2; |
662 |
{ |
{ |
663 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI10key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI10key,first,ap); |
664 |
V105=(Vcs[2]); |
V115=(Vcs[2]); |
665 |
V106=(Vcs[3]); |
V116=(Vcs[3]); |
666 |
V107=(Vcs[4]); |
V117=(Vcs[4]); |
667 |
base[0]= (V103); |
base[0]= (V113); |
668 |
base[1]= (V104); |
base[1]= (V114); |
669 |
{object V109; |
{object V119; |
670 |
base[2]= (V107); |
V119= (*(LnkLI15))((V117),(V115),(V116)); |
|
base[3]= (V105); |
|
|
base[4]= (V106); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V109= vs_base[0]; |
|
671 |
vs_top=base+2; |
vs_top=base+2; |
672 |
while(V109!=Cnil) |
while(V119!=Cnil) |
673 |
{vs_push((V109)->c.c_car);V109=(V109)->c.c_cdr;} |
{vs_push((V119)->c.c_car);V119=(V119)->c.c_cdr;} |
674 |
vs_base=base+0;} |
vs_base=base+0;} |
675 |
(void) (*Lnk16)(); |
(void) (*Lnk16)(); |
676 |
vs_top=sup; |
vs_top=sup; |
677 |
V108= vs_base[0]; |
V118= vs_base[0]; |
678 |
base[0]= (V104); |
base[0]= (V114); |
679 |
base[1]= (V103); |
base[1]= (V113); |
680 |
{object V111; |
{object V121; |
681 |
base[2]= (V107); |
V121= (*(LnkLI15))((V117),(V115),(V116)); |
|
base[3]= (V105); |
|
|
base[4]= (V106); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V111= vs_base[0]; |
|
682 |
vs_top=base+2; |
vs_top=base+2; |
683 |
while(V111!=Cnil) |
while(V121!=Cnil) |
684 |
{vs_push((V111)->c.c_car);V111=(V111)->c.c_cdr;} |
{vs_push((V121)->c.c_car);V121=(V121)->c.c_cdr;} |
685 |
vs_base=base+0;} |
vs_base=base+0;} |
686 |
(void) (*Lnk17)(); |
(void) (*Lnk17)(); |
687 |
vs_top=sup; |
vs_top=sup; |
688 |
V110= vs_base[0]; |
V120= vs_base[0]; |
689 |
{object V112 = nconc(V108,V110); |
{object V122 = nconc(V118,V120); |
690 |
VMR10(V112)} |
VMR10(V122)} |
691 |
va_end(ap); |
va_end(ap); |
692 |
base[0]=base[0]; |
base[0]=base[0]; |
693 |
return Cnil;} |
return Cnil;} |
694 |
}} |
}} |
695 |
/* local entry for function NSET-EXCLUSIVE-OR */ |
/* local entry for function NSET-EXCLUSIVE-OR */ |
696 |
|
|
697 |
static object LI11(object V114,object V113,object first,...) |
static object LI11(object V124,object V123,object first,...) |
698 |
{ |
{ |
699 |
va_list ap; |
va_list ap; |
700 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
701 |
{object V115; |
{object V125; |
702 |
register object V116; |
register object V126; |
703 |
register object V117; |
register object V127; |
704 |
register object V118; |
register object V128; |
705 |
register object V119; |
register object V129; |
706 |
va_start(ap,first); |
va_start(ap,first); |
707 |
V115= V114; |
V125= V124; |
708 |
V116= V113; |
V126= V123; |
709 |
narg= narg - 2; |
narg= narg - 2; |
710 |
{ |
{ |
711 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI11key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI11key,first,ap); |
712 |
V117=(Vcs[2]); |
V127=(Vcs[2]); |
713 |
V118=(Vcs[3]); |
V128=(Vcs[3]); |
714 |
V119=(Vcs[4]); |
V129=(Vcs[4]); |
715 |
{object V120; |
{object V130; |
716 |
register object V121; |
register object V131; |
717 |
register object V122; |
register object V132; |
718 |
register object V123; |
register object V133; |
719 |
V120= Cnil; |
V130= Cnil; |
720 |
V121= Cnil; |
V131= Cnil; |
721 |
V122= Cnil; |
V132= Cnil; |
722 |
V123= Cnil; |
V133= Cnil; |
723 |
{register object V124; |
{register object V134; |
724 |
V124= (V115); |
V134= (V125); |
725 |
goto T282; |
goto T252; |
726 |
T282:; |
T252:; |
727 |
if(((V124))!=Cnil){ |
if(((V134))!=Cnil){ |
728 |
goto T283;} |
goto T253;} |
729 |
if(((V123))==Cnil){ |
if(((V133))==Cnil){ |
730 |
goto T286;} |
goto T256;} |
731 |
((V123))->c.c_cdr = Cnil; |
((V133))->c.c_cdr = Cnil; |
732 |
goto T286; |
goto T256; |
733 |
T286:; |
T256:; |
734 |
if(((V121))==Cnil){ |
if(((V131))==Cnil){ |
735 |
goto T290;} |
goto T260;} |
736 |
base[0]= (V116); |
base[0]= (V126); |
737 |
base[1]= (V122); |
base[1]= (V132); |
738 |
{object V126; |
{object V136; |
739 |
base[2]= (V119); |
V136= (*(LnkLI15))((V129),(V127),(V128)); |
|
base[3]= (V117); |
|
|
base[4]= (V118); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V126= vs_base[0]; |
|
740 |
vs_top=base+2; |
vs_top=base+2; |
741 |
while(V126!=Cnil) |
while(V136!=Cnil) |
742 |
{vs_push((V126)->c.c_car);V126=(V126)->c.c_cdr;} |
{vs_push((V136)->c.c_car);V136=(V136)->c.c_cdr;} |
743 |
vs_base=base+0;} |
vs_base=base+0;} |
744 |
(void) (*Lnk18)(); |
(void) (*Lnk18)(); |
745 |
vs_top=sup; |
vs_top=sup; |
746 |
V125= vs_base[0]; |
V135= vs_base[0]; |
747 |
((V121))->c.c_cdr = V125; |
((V131))->c.c_cdr = V135; |
748 |
{object V127 = (V120); |
{object V137 = (V130); |
749 |
VMR11(V127)} |
VMR11(V137)} |
750 |
goto T290; |
goto T260; |
751 |
T290:; |
T260:; |
752 |
base[0]= (V116); |
base[0]= (V126); |
753 |
base[1]= (V122); |
base[1]= (V132); |
754 |
{object V128; |
{object V138; |
755 |
base[2]= (V119); |
V138= (*(LnkLI15))((V129),(V127),(V128)); |
|
base[3]= (V117); |
|
|
base[4]= (V118); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V128= vs_base[0]; |
|
756 |
vs_top=base+2; |
vs_top=base+2; |
757 |
while(V128!=Cnil) |
while(V138!=Cnil) |
758 |
{vs_push((V128)->c.c_car);V128=(V128)->c.c_cdr;} |
{vs_push((V138)->c.c_car);V138=(V138)->c.c_cdr;} |
759 |
vs_base=base+0;} |
vs_base=base+0;} |
760 |
(void) (*Lnk18)(); |
(void) (*Lnk18)(); |
761 |
vs_top=sup; |
vs_top=sup; |
762 |
{object V129 = vs_base[0]; |
{object V139 = vs_base[0]; |
763 |
VMR11(V129)} |
VMR11(V139)} |
764 |
goto T283; |
goto T253; |
765 |
T283:; |
T253:; |
766 |
if(!(type_of((V124))==t_cons)){ |
if(!(type_of((V134))==t_cons)){ |
767 |
goto T308;} |
goto T272;} |
768 |
goto T307; |
goto T271; |
769 |
goto T308; |
goto T272; |
770 |
T308:; |
T272:; |
771 |
base[0]= VV[12]; |
base[0]= VV[12]; |
772 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
773 |
Lerror(); |
Lerror(); |
774 |
vs_top=sup; |
vs_top=sup; |
775 |
goto T307; |
goto T271; |
776 |
T307:; |
T271:; |
777 |
base[0]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
778 |
base[1]= CMPcar((V124)); |
base[1]= CMPcar((V134)); |
779 |
base[2]= (V116); |
base[2]= (V126); |
780 |
{object V130; |
{object V140; |
781 |
base[3]= (V119); |
V140= (*(LnkLI15))((V129),(V127),(V128)); |
|
base[4]= (V117); |
|
|
base[5]= (V118); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V130= vs_base[0]; |
|
782 |
vs_top=base+3; |
vs_top=base+3; |
783 |
while(V130!=Cnil) |
while(V140!=Cnil) |
784 |
{vs_push((V130)->c.c_car);V130=(V130)->c.c_cdr;} |
{vs_push((V140)->c.c_car);V140=(V140)->c.c_cdr;} |
785 |
vs_base=base+1;} |
vs_base=base+1;} |
786 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
787 |
vs_top=sup; |
vs_top=sup; |
788 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
789 |
goto T313;} |
goto T277;} |
790 |
if(((V123))==Cnil){ |
if(((V133))==Cnil){ |
791 |
goto T323;} |
goto T284;} |
792 |
((V123))->c.c_cdr = (V124); |
((V133))->c.c_cdr = (V134); |
793 |
goto T321; |
goto T282; |
794 |
goto T323; |
goto T284; |
795 |
T323:; |
T284:; |
796 |
V122= (V124); |
V132= (V134); |
797 |
goto T321; |
goto T282; |
798 |
T321:; |
T282:; |
799 |
V123= (V124); |
V133= (V134); |
800 |
goto T311; |
goto T275; |
801 |
goto T313; |
goto T277; |
802 |
T313:; |
T277:; |
803 |
if(((V121))==Cnil){ |
if(((V131))==Cnil){ |
804 |
goto T329;} |
goto T290;} |
805 |
((V121))->c.c_cdr = (V124); |
((V131))->c.c_cdr = (V134); |
806 |
goto T327; |
goto T288; |
807 |
goto T329; |
goto T290; |
808 |
T329:; |
T290:; |
809 |
V120= (V124); |
V130= (V134); |
810 |
goto T327; |
goto T288; |
811 |
T327:; |
T288:; |
812 |
V121= (V124); |
V131= (V134); |
813 |
goto T311; |
goto T275; |
814 |
T311:; |
T275:; |
815 |
V124= CMPcdr((V124)); |
V134= CMPcdr((V134)); |
816 |
goto T282;}} |
goto T252;}} |
817 |
va_end(ap); |
va_end(ap); |
818 |
base[0]=base[0]; |
base[0]=base[0]; |
819 |
return Cnil;} |
return Cnil;} |
820 |
}} |
}} |
821 |
/* local entry for function SUBSETP */ |
/* local entry for function SUBSETP */ |
822 |
|
|
823 |
static object LI12(object V132,object V131,object first,...) |
static object LI12(object V142,object V141,object first,...) |
824 |
{ |
{ |
825 |
va_list ap; |
va_list ap; |
826 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
827 |
{object V133; |
{object V143; |
828 |
register object V134; |
register object V144; |
829 |
register object V135; |
register object V145; |
830 |
register object V136; |
register object V146; |
831 |
register object V137; |
register object V147; |
832 |
va_start(ap,first); |
va_start(ap,first); |
833 |
V133= V132; |
V143= V142; |
834 |
V134= V131; |
V144= V141; |
835 |
narg= narg - 2; |
narg= narg - 2; |
836 |
{ |
{ |
837 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI12key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI12key,first,ap); |
838 |
V135=(Vcs[2]); |
V145=(Vcs[2]); |
839 |
V136=(Vcs[3]); |
V146=(Vcs[3]); |
840 |
V137=(Vcs[4]); |
V147=(Vcs[4]); |
841 |
{register object V138; |
{register object V148; |
842 |
V138= (V133); |
V148= (V143); |
843 |
goto T337; |
goto T298; |
844 |
T337:; |
T298:; |
845 |
if(((V138))!=Cnil){ |
if(((V148))!=Cnil){ |
846 |
goto T338;} |
goto T299;} |
847 |
{object V139 = Ct; |
{object V149 = Ct; |
848 |
VMR12(V139)} |
VMR12(V149)} |
849 |
goto T338; |
goto T299; |
850 |
T338:; |
T299:; |
851 |
if(!(type_of((V138))==t_cons)){ |
if(!(type_of((V148))==t_cons)){ |
852 |
goto T343;} |
goto T304;} |
853 |
goto T342; |
goto T303; |
854 |
goto T343; |
goto T304; |
855 |
T343:; |
T304:; |
856 |
base[0]= VV[13]; |
base[0]= VV[13]; |
857 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
858 |
Lerror(); |
Lerror(); |
859 |
vs_top=sup; |
vs_top=sup; |
860 |
goto T342; |
goto T303; |
861 |
T342:; |
T303:; |
862 |
base[0]=VV[14]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
863 |
base[1]= CMPcar((V138)); |
base[1]= CMPcar((V148)); |
864 |
base[2]= (V134); |
base[2]= (V144); |
865 |
{object V140; |
{object V150; |
866 |
base[3]= (V137); |
V150= (*(LnkLI15))((V147),(V145),(V146)); |
|
base[4]= (V135); |
|
|
base[5]= (V136); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk15)(); |
|
|
vs_top=sup; |
|
|
V140= vs_base[0]; |
|
867 |
vs_top=base+3; |
vs_top=base+3; |
868 |
while(V140!=Cnil) |
while(V150!=Cnil) |
869 |
{vs_push((V140)->c.c_car);V140=(V140)->c.c_cdr;} |
{vs_push((V150)->c.c_car);V150=(V150)->c.c_cdr;} |
870 |
vs_base=base+1;} |
vs_base=base+1;} |
871 |
(void) (*Lnk14)(); |
(void) (*Lnk14)(); |
872 |
vs_top=sup; |
vs_top=sup; |
873 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
874 |
goto T346;} |
goto T307;} |
875 |
{object V141 = Cnil; |
{object V151 = Cnil; |
876 |
VMR12(V141)} |
VMR12(V151)} |
877 |
goto T346; |
goto T307; |
878 |
T346:; |
T307:; |
879 |
V138= CMPcdr((V138)); |
V148= CMPcdr((V148)); |
880 |
goto T337;} |
goto T298;} |
881 |
va_end(ap); |
va_end(ap); |
882 |
base[0]=base[0]; |
base[0]=base[0]; |
883 |
return Cnil;} |
return Cnil;} |
886 |
static void LnkT17(){ call_or_link(VV[17],(void **)(void *)&Lnk17);} /* SET-DIFFERENCE-REV */ |
static void LnkT17(){ call_or_link(VV[17],(void **)(void *)&Lnk17);} /* SET-DIFFERENCE-REV */ |
887 |
static void LnkT16(){ call_or_link(VV[16],(void **)(void *)&Lnk16);} /* SET-DIFFERENCE */ |
static void LnkT16(){ call_or_link(VV[16],(void **)(void *)&Lnk16);} /* SET-DIFFERENCE */ |
888 |
static void LnkT14(){ call_or_link(VV[14],(void **)(void *)&Lnk14);} /* MEMBER1 */ |
static void LnkT14(){ call_or_link(VV[14],(void **)(void *)&Lnk14);} /* MEMBER1 */ |
889 |
static void LnkT15(){ call_or_link(VV[15],(void **)(void *)&Lnk15);} /* KEY-LIST */ |
static object LnkTLI15(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[15],(void **)(void *)&LnkLI15,3,first,ap);va_end(ap);return V1;} /* KEY-LIST */ |
890 |
|
|
891 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
892 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |