2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "gcl_make_defpackage.h" |
#include "gcl_make_defpackage.h" |
4 |
void init_gcl_make_defpackage(){do_init(VV);} |
void init_gcl_make_defpackage(){do_init(VV);} |
5 |
/* function definition for MAKE-DEFPACKAGE-FORM */ |
/* local entry for function MAKE-DEFPACKAGE-FORM */ |
6 |
|
|
7 |
static void L1() |
static object LI1(V2) |
8 |
{register object *base=vs_base; |
|
9 |
register object *sup=base+VM1; VC1 |
object V2; |
10 |
vs_reserve(VM1); |
{ VMB1 VMS1 VMV1 |
|
{object V1; |
|
|
check_arg(1); |
|
|
V1=(base[0]); |
|
|
vs_top=sup; |
|
11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
{object V2; |
{object V3; |
14 |
base[1]= (V1); |
base[0]= (V2); |
15 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
16 |
Lfind_package(); |
Lfind_package(); |
17 |
vs_top=sup; |
vs_top=sup; |
18 |
V2= vs_base[0]; |
V3= vs_base[0]; |
19 |
{object V3; |
{object V4; |
|
object V4; |
|
20 |
object V5; |
object V5; |
21 |
object V6; |
object V6; |
22 |
object V7; |
object V7; |
25 |
object V10; |
object V10; |
26 |
object V11; |
object V11; |
27 |
object V12; |
object V12; |
28 |
base[6]= (V2); |
object V13; |
29 |
vs_top=(vs_base=base+6)+1; |
base[5]= (V3); |
30 |
|
vs_top=(vs_base=base+5)+1; |
31 |
Lpackage_name(); |
Lpackage_name(); |
32 |
vs_top=sup; |
vs_top=sup; |
33 |
V3= vs_base[0]; |
V4= vs_base[0]; |
34 |
base[6]= (V2); |
base[5]= (V3); |
35 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+5)+1; |
36 |
Lpackage_nicknames(); |
Lpackage_nicknames(); |
37 |
vs_top=sup; |
vs_top=sup; |
38 |
V4= vs_base[0]; |
V5= vs_base[0]; |
39 |
base[6]= (V2); |
base[5]= (V3); |
40 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+5)+1; |
41 |
Lpackage_use_list(); |
Lpackage_use_list(); |
42 |
vs_top=sup; |
vs_top=sup; |
43 |
V5= vs_base[0]; |
V6= vs_base[0]; |
44 |
{object V13; |
{object V14; |
45 |
object V14= (V5); |
object V15= (V6); |
46 |
if(endp(V14)){ |
if(V15==Cnil){ |
47 |
V6= Cnil; |
V7= Cnil; |
48 |
goto T9;} |
goto T9;} |
49 |
base[6]=V13=MMcons(Cnil,Cnil); |
base[5]=V14=MMcons(Cnil,Cnil); |
50 |
goto T10; |
goto T10; |
51 |
T10:; |
T10:; |
52 |
base[7]= (V14->c.c_car); |
base[6]= (V15->c.c_car); |
53 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+6)+1; |
54 |
Lpackage_name(); |
Lpackage_name(); |
55 |
vs_top=sup; |
vs_top=sup; |
56 |
(V13->c.c_car)= vs_base[0]; |
(V14->c.c_car)= vs_base[0]; |
57 |
V14=MMcdr(V14); |
if((V15=MMcdr(V15))==Cnil){ |
58 |
if(endp(V14)){ |
V7= base[5]; |
|
V6= base[6]; |
|
59 |
goto T9;} |
goto T9;} |
60 |
V13=MMcdr(V13)=MMcons(Cnil,Cnil); |
V14=MMcdr(V14)=MMcons(Cnil,Cnil); |
61 |
goto T10;} |
goto T10;} |
62 |
goto T9; |
goto T9; |
63 |
T9:; |
T9:; |
64 |
V7= Cnil; |
V8= Cnil; |
65 |
base[6]= (V2); |
base[5]= (V3); |
66 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+5)+1; |
67 |
(void) (*Lnk8)(); |
(void) (*Lnk8)(); |
68 |
vs_top=sup; |
vs_top=sup; |
69 |
V8= vs_base[0]; |
V9= vs_base[0]; |
|
V9= Cnil; |
|
70 |
V10= Cnil; |
V10= Cnil; |
71 |
V11= Cnil; |
V11= Cnil; |
72 |
V12= Cnil; |
V12= Cnil; |
73 |
{object V15; |
V13= Cnil; |
74 |
object V16; |
{object V16; |
75 |
register object V17; |
object V17; |
76 |
base[6]= V2; |
register object V18; |
77 |
vs_top=(vs_base=base+6)+1; |
base[5]= V3; |
78 |
|
vs_top=(vs_base=base+5)+1; |
79 |
Lpackagep(); |
Lpackagep(); |
80 |
vs_top=sup; |
vs_top=sup; |
81 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
82 |
goto T23;} |
goto T23;} |
83 |
V15= V2; |
V16= V3; |
84 |
goto T21; |
goto T21; |
85 |
goto T23; |
goto T23; |
86 |
T23:; |
T23:; |
87 |
base[6]= coerce_to_string(V2); |
base[5]= coerce_to_string(V3); |
88 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+5)+1; |
89 |
Lfind_package(); |
Lfind_package(); |
90 |
vs_top=sup; |
vs_top=sup; |
91 |
V15= vs_base[0]; |
V16= vs_base[0]; |
92 |
goto T21; |
goto T21; |
93 |
T21:; |
T21:; |
|
V16= Cnil; |
|
94 |
V17= Cnil; |
V17= Cnil; |
95 |
{object V19; |
V18= Cnil; |
96 |
object V20; |
{object V20; |
97 |
base[7]= (V15); |
object V21; |
98 |
vs_top=(vs_base=base+7)+1; |
base[6]= (V16); |
99 |
|
vs_top=(vs_base=base+6)+1; |
100 |
(void) (*Lnk9)(); |
(void) (*Lnk9)(); |
101 |
vs_top=sup; |
vs_top=sup; |
102 |
V19= vs_base[0]; |
V20= vs_base[0]; |
103 |
V20= small_fixnum(0); |
V21= small_fixnum(0); |
104 |
goto T31; |
goto T31; |
105 |
T31:; |
T31:; |
106 |
if(!(number_compare((V20),(V19))>=0)){ |
if(!(number_compare((V21),(V20))>=0)){ |
107 |
goto T32;} |
goto T32;} |
108 |
V16= Cnil; |
V17= Cnil; |
109 |
goto T20; |
goto T20; |
110 |
goto T32; |
goto T32; |
111 |
T32:; |
T32:; |
112 |
base[7]= (V15); |
base[6]= (V16); |
113 |
base[8]= (V20); |
base[7]= (V21); |
114 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+6)+2; |
115 |
siLpackage_external(); |
siLpackage_external(); |
116 |
vs_top=sup; |
vs_top=sup; |
117 |
V17= vs_base[0]; |
V18= vs_base[0]; |
118 |
goto T39; |
goto T39; |
119 |
T39:; |
T39:; |
120 |
if(((V17))!=Cnil){ |
if(((V18))!=Cnil){ |
121 |
goto T44;} |
goto T44;} |
122 |
goto T40; |
goto T40; |
123 |
goto T44; |
goto T44; |
124 |
T44:; |
T44:; |
125 |
V16= car((V17)); |
V17= CMPcar((V18)); |
126 |
{object V21; |
{object V22; |
127 |
V21= symbol_name((V16)); |
V22= symbol_name((V17)); |
128 |
V7= make_cons((V21),(V7));} |
V8= make_cons((V22),(V8));} |
129 |
V17= cdr((V17)); |
V18= CMPcdr((V18)); |
130 |
goto T39; |
goto T39; |
131 |
goto T40; |
goto T40; |
132 |
T40:; |
T40:; |
133 |
goto T37; |
goto T37; |
134 |
goto T37; |
goto T37; |
135 |
T37:; |
T37:; |
136 |
V20= one_plus((V20)); |
V21= one_plus((V21)); |
137 |
goto T31;}} |
goto T31;}} |
138 |
goto T20; |
goto T20; |
139 |
T20:; |
T20:; |
140 |
{register object V22; |
{register object V23; |
|
register object V23; |
|
141 |
register object V24; |
register object V24; |
142 |
base[6]= V2; |
register object V25; |
143 |
vs_top=(vs_base=base+6)+1; |
base[5]= V3; |
144 |
|
vs_top=(vs_base=base+5)+1; |
145 |
Lpackagep(); |
Lpackagep(); |
146 |
vs_top=sup; |
vs_top=sup; |
147 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
148 |
goto T60;} |
goto T60;} |
149 |
V22= V2; |
V23= V3; |
150 |
goto T58; |
goto T58; |
151 |
goto T60; |
goto T60; |
152 |
T60:; |
T60:; |
153 |
base[6]= coerce_to_string(V2); |
base[5]= coerce_to_string(V3); |
154 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+5)+1; |
155 |
Lfind_package(); |
Lfind_package(); |
156 |
vs_top=sup; |
vs_top=sup; |
157 |
V22= vs_base[0]; |
V23= vs_base[0]; |
158 |
goto T58; |
goto T58; |
159 |
T58:; |
T58:; |
|
V23= Cnil; |
|
160 |
V24= Cnil; |
V24= Cnil; |
161 |
{object V26; |
V25= Cnil; |
162 |
register object V27; |
{object V27; |
163 |
base[8]= (V22); |
register object V28; |
164 |
vs_top=(vs_base=base+8)+1; |
base[7]= (V23); |
165 |
|
vs_top=(vs_base=base+7)+1; |
166 |
Lpackage_use_list(); |
Lpackage_use_list(); |
167 |
vs_top=sup; |
vs_top=sup; |
168 |
V28= vs_base[0]; |
V29= vs_base[0]; |
169 |
V26= make_cons((V22),V28); |
V27= make_cons((V23),V29); |
170 |
V27= car((V26)); |
V28= CMPcar((V27)); |
171 |
goto T69; |
goto T69; |
172 |
T69:; |
T69:; |
173 |
if(!(endp_prop((V26)))){ |
if(!(((V27))==Cnil)){ |
174 |
goto T70;} |
goto T70;} |
175 |
V23= Cnil; |
V24= Cnil; |
176 |
goto T57; |
goto T57; |
177 |
goto T70; |
goto T70; |
178 |
T70:; |
T70:; |
179 |
{long V29; |
{long V30; |
180 |
long V30; |
long V31; |
181 |
base[8]= (V27); |
base[7]= (V28); |
182 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+7)+1; |
183 |
(void) (*Lnk9)(); |
(void) (*Lnk9)(); |
184 |
if(vs_base>=vs_top){vs_top=sup;goto T79;} |
if(vs_base>=vs_top){vs_top=sup;goto T79;} |
185 |
V29= fix(vs_base[0]); |
V30= fix(vs_base[0]); |
186 |
vs_base++; |
vs_base++; |
187 |
if(vs_base>=vs_top){vs_top=sup;goto T80;} |
if(vs_base>=vs_top){vs_top=sup;goto T80;} |
188 |
V30= fix(vs_base[0]); |
V31= fix(vs_base[0]); |
189 |
vs_top=sup; |
vs_top=sup; |
190 |
goto T81; |
goto T81; |
191 |
goto T79; |
goto T79; |
192 |
T79:; |
T79:; |
193 |
V29= fix(Cnil); |
V30= fix(Cnil); |
194 |
goto T80; |
goto T80; |
195 |
T80:; |
T80:; |
196 |
V30= fix(Cnil); |
V31= fix(Cnil); |
197 |
goto T81; |
goto T81; |
198 |
T81:; |
T81:; |
199 |
if(((V22))==((V27))){ |
if(((V23))==((V28))){ |
200 |
goto T82;} |
goto T82;} |
201 |
V30= 0; |
V31= 0; |
202 |
goto T82; |
goto T82; |
203 |
T82:; |
T82:; |
204 |
{object V31; |
{object V32; |
205 |
register object V32; |
register object V33; |
206 |
V33 = make_fixnum(V30); |
V34 = CMPmake_fixnum(V31); |
207 |
V34 = make_fixnum(V29); |
V35 = CMPmake_fixnum(V30); |
208 |
V31= number_plus(V33,V34); |
V32= number_plus(V34,V35); |
209 |
V32= small_fixnum(0); |
V33= small_fixnum(0); |
210 |
goto T89; |
goto T89; |
211 |
T89:; |
T89:; |
212 |
if(!(number_compare((V32),(V31))>=0)){ |
if(!(number_compare((V33),(V32))>=0)){ |
213 |
goto T90;} |
goto T90;} |
214 |
goto T76; |
goto T76; |
215 |
goto T90; |
goto T90; |
216 |
T90:; |
T90:; |
217 |
V35 = make_fixnum(V30); |
V36 = CMPmake_fixnum(V31); |
218 |
if(!(number_compare((V32),V35)<0)){ |
if(!(number_compare((V33),V36)<0)){ |
219 |
goto T99;} |
goto T99;} |
220 |
base[9]= (V27); |
base[8]= (V28); |
221 |
base[10]= (V32); |
base[9]= (V33); |
222 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+8)+2; |
223 |
siLpackage_internal(); |
siLpackage_internal(); |
224 |
vs_top=sup; |
vs_top=sup; |
225 |
V24= vs_base[0]; |
V25= vs_base[0]; |
226 |
goto T97; |
goto T97; |
227 |
goto T99; |
goto T99; |
228 |
T99:; |
T99:; |
229 |
base[9]= (V27); |
base[8]= (V28); |
230 |
V36 = make_fixnum(V30); |
V37 = CMPmake_fixnum(V31); |
231 |
base[10]= number_minus((V32),V36); |
base[9]= number_minus((V33),V37); |
232 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+8)+2; |
233 |
siLpackage_external(); |
siLpackage_external(); |
234 |
vs_top=sup; |
vs_top=sup; |
235 |
V24= vs_base[0]; |
V25= vs_base[0]; |
236 |
goto T97; |
goto T97; |
237 |
T97:; |
T97:; |
238 |
goto T95; |
goto T95; |
239 |
T95:; |
T95:; |
240 |
if(((V24))!=Cnil){ |
if(((V25))!=Cnil){ |
241 |
goto T105;} |
goto T105;} |
242 |
goto T96; |
goto T96; |
243 |
goto T105; |
goto T105; |
244 |
T105:; |
T105:; |
245 |
V23= car((V24)); |
V24= CMPcar((V25)); |
246 |
if(((V27))==((V22))){ |
if(((V28))==((V23))){ |
247 |
goto T111;} |
goto T111;} |
248 |
base[10]= symbol_name((V23)); |
base[9]= symbol_name((V24)); |
249 |
base[11]= (V22); |
base[10]= (V23); |
250 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+9)+2; |
251 |
Lfind_symbol(); |
Lfind_symbol(); |
252 |
Llist(); |
Llist(); |
253 |
vs_top=sup; |
vs_top=sup; |
254 |
base[9]= vs_base[0]; |
base[8]= vs_base[0]; |
255 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+8)+1; |
256 |
Llast(); |
Llast(); |
257 |
vs_top=sup; |
vs_top=sup; |
258 |
V37= vs_base[0]; |
V38= vs_base[0]; |
259 |
if(!((VV[0])==(car(V37)))){ |
if(!((VV[0])==(CMPcar(V38)))){ |
260 |
goto T110;} |
goto T110;} |
261 |
goto T111; |
goto T111; |
262 |
T111:; |
T111:; |
263 |
base[9]= (V23); |
base[8]= (V24); |
264 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+8)+1; |
265 |
Lsymbol_package(); |
Lsymbol_package(); |
266 |
vs_top=sup; |
vs_top=sup; |
267 |
V38= vs_base[0]; |
V39= vs_base[0]; |
268 |
if(((V2))==(V38)){ |
if(((V3))==(V39)){ |
269 |
goto T120;} |
goto T120;} |
270 |
base[9]= (V23); |
base[8]= (V24); |
271 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+8)+1; |
272 |
Lsymbol_package(); |
Lsymbol_package(); |
273 |
vs_top=sup; |
vs_top=sup; |
274 |
V39= vs_base[0]; |
V40= vs_base[0]; |
275 |
if(((VFUN_NARGS=2,(*(LnkLI10))(V39,(V5))))!=Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI10))(V40,(V6))))!=Cnil){ |
276 |
goto T120;} |
goto T120;} |
277 |
V9= make_cons(V23,(V9)); |
V10= make_cons(V24,(V10)); |
278 |
goto T120; |
goto T120; |
279 |
T120:; |
T120:; |
280 |
goto T110; |
goto T110; |
281 |
T110:; |
T110:; |
282 |
V24= cdr((V24)); |
V25= CMPcdr((V25)); |
283 |
goto T95; |
goto T95; |
284 |
goto T96; |
goto T96; |
285 |
T96:; |
T96:; |
286 |
goto T93; |
goto T93; |
287 |
goto T93; |
goto T93; |
288 |
T93:; |
T93:; |
289 |
V32= one_plus((V32)); |
V33= one_plus((V33)); |
290 |
goto T89;}} |
goto T89;}} |
291 |
goto T76; |
goto T76; |
292 |
T76:; |
T76:; |
293 |
V26= cdr((V26)); |
V27= CMPcdr((V27)); |
294 |
V27= car((V26)); |
V28= CMPcar((V27)); |
295 |
goto T69;}} |
goto T69;}} |
296 |
goto T57; |
goto T57; |
297 |
T57:; |
T57:; |
298 |
V10= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V9))); |
V11= (VFUN_NARGS=2,(*(LnkLI11))((V9),(V10))); |
299 |
V11= (VFUN_NARGS=2,(*(LnkLI12))((V8),(V10))); |
V12= (VFUN_NARGS=2,(*(LnkLI12))((V9),(V11))); |
300 |
V12= (VFUN_NARGS=2,(*(LnkLI12))((V9),(V10))); |
V13= (VFUN_NARGS=2,(*(LnkLI12))((V10),(V11))); |
301 |
if(((V4))==Cnil){ |
if(((V5))==Cnil){ |
302 |
goto T149;} |
goto T149;} |
303 |
V42= make_cons(VV[2],(V4)); |
V43= make_cons(VV[2],(V5)); |
304 |
base[6]= make_cons(/* INLINE-ARGS */V42,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V43,Cnil); |
305 |
goto T147; |
goto T147; |
306 |
goto T149; |
goto T149; |
307 |
T149:; |
T149:; |
308 |
base[6]= Cnil; |
base[5]= Cnil; |
309 |
goto T147; |
goto T147; |
310 |
T147:; |
T147:; |
311 |
if(((V6))==Cnil){ |
if(((V7))==Cnil){ |
312 |
goto T153;} |
goto T153;} |
313 |
V43= make_cons(VV[3],(V6)); |
V44= make_cons(VV[3],(V7)); |
314 |
base[7]= make_cons(/* INLINE-ARGS */V43,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V44,Cnil); |
315 |
goto T151; |
goto T151; |
316 |
goto T153; |
goto T153; |
317 |
T153:; |
T153:; |
318 |
base[7]= Cnil; |
base[6]= Cnil; |
319 |
goto T151; |
goto T151; |
320 |
T151:; |
T151:; |
321 |
if(((V7))==Cnil){ |
if(((V8))==Cnil){ |
322 |
goto T157;} |
goto T157;} |
323 |
V44= make_cons(VV[4],(V7)); |
V45= make_cons(VV[4],(V8)); |
324 |
base[8]= make_cons(/* INLINE-ARGS */V44,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V45,Cnil); |
325 |
goto T155; |
goto T155; |
326 |
goto T157; |
goto T157; |
327 |
T157:; |
T157:; |
328 |
base[8]= Cnil; |
base[7]= Cnil; |
329 |
goto T155; |
goto T155; |
330 |
T155:; |
T155:; |
331 |
if(((V11))==Cnil){ |
if(((V12))==Cnil){ |
332 |
goto T161;} |
goto T161;} |
333 |
{object V46; |
{object V47; |
334 |
object V47= (V11); |
object V48= (V12); |
335 |
if(endp(V47)){ |
if(V48==Cnil){ |
336 |
V45= Cnil; |
V46= Cnil; |
337 |
goto T163;} |
goto T163;} |
338 |
base[10]=V46=MMcons(Cnil,Cnil); |
base[9]=V47=MMcons(Cnil,Cnil); |
339 |
goto T164; |
goto T164; |
340 |
T164:; |
T164:; |
341 |
(V46->c.c_car)= symbol_name((V47->c.c_car)); |
(V47->c.c_car)= symbol_name((V48->c.c_car)); |
342 |
V47=MMcdr(V47); |
if((V48=MMcdr(V48))==Cnil){ |
343 |
if(endp(V47)){ |
V46= base[9]; |
|
V45= base[10]; |
|
344 |
goto T163;} |
goto T163;} |
345 |
V46=MMcdr(V46)=MMcons(Cnil,Cnil); |
V47=MMcdr(V47)=MMcons(Cnil,Cnil); |
346 |
goto T164;} |
goto T164;} |
347 |
goto T163; |
goto T163; |
348 |
T163:; |
T163:; |
349 |
V48= make_cons(VV[5],V45); |
V49= make_cons(VV[5],V46); |
350 |
base[9]= make_cons(/* INLINE-ARGS */V48,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V49,Cnil); |
351 |
goto T159; |
goto T159; |
352 |
goto T161; |
goto T161; |
353 |
T161:; |
T161:; |
354 |
base[9]= Cnil; |
base[8]= Cnil; |
355 |
goto T159; |
goto T159; |
356 |
T159:; |
T159:; |
357 |
if(((V10))==Cnil){ |
if(((V11))==Cnil){ |
358 |
goto T168;} |
goto T168;} |
359 |
{object V49; |
{object V50; |
360 |
object V50= (V10); |
object V51= (V11); |
361 |
if(endp(V50)){ |
if(V51==Cnil){ |
362 |
base[10]= Cnil; |
base[9]= Cnil; |
363 |
goto T166;} |
goto T166;} |
364 |
base[11]=V49=MMcons(Cnil,Cnil); |
base[10]=V50=MMcons(Cnil,Cnil); |
365 |
goto T170; |
goto T170; |
366 |
T170:; |
T170:; |
367 |
base[13]= (V50->c.c_car); |
base[12]= (V51->c.c_car); |
368 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+12)+1; |
369 |
Lsymbol_package(); |
Lsymbol_package(); |
370 |
vs_top=sup; |
vs_top=sup; |
371 |
base[12]= vs_base[0]; |
base[11]= vs_base[0]; |
372 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+11)+1; |
373 |
Lpackage_name(); |
Lpackage_name(); |
374 |
vs_top=sup; |
vs_top=sup; |
375 |
V52= vs_base[0]; |
V53= vs_base[0]; |
376 |
V53= list(3,VV[6],V52,symbol_name((V50->c.c_car))); |
V54= list(3,VV[6],V53,symbol_name((V51->c.c_car))); |
377 |
(V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil); |
(V50->c.c_car)= make_cons(/* INLINE-ARGS */V54,Cnil); |
378 |
V50=MMcdr(V50); |
if((V51=MMcdr(V51))==Cnil){ |
379 |
if(endp(V50)){ |
base[9]= base[10]; |
|
base[10]= base[11]; |
|
380 |
goto T166;} |
goto T166;} |
381 |
V49=MMcdr(V49)=MMcons(Cnil,Cnil); |
V50=MMcdr(V50)=MMcons(Cnil,Cnil); |
382 |
goto T170;} |
goto T170;} |
383 |
goto T168; |
goto T168; |
384 |
T168:; |
T168:; |
385 |
base[10]= Cnil; |
base[9]= Cnil; |
386 |
goto T166; |
goto T166; |
387 |
T166:; |
T166:; |
388 |
if(((V12))==Cnil){ |
if(((V13))==Cnil){ |
389 |
goto T177;} |
goto T177;} |
390 |
{object V54; |
{object V55; |
391 |
object V55= (V12); |
object V56= (V13); |
392 |
if(endp(V55)){ |
if(V56==Cnil){ |
393 |
base[11]= Cnil; |
base[10]= Cnil; |
394 |
goto T175;} |
goto T175;} |
395 |
base[12]=V54=MMcons(Cnil,Cnil); |
base[11]=V55=MMcons(Cnil,Cnil); |
396 |
goto T179; |
goto T179; |
397 |
T179:; |
T179:; |
398 |
base[14]= (V55->c.c_car); |
base[13]= (V56->c.c_car); |
399 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+13)+1; |
400 |
Lsymbol_package(); |
Lsymbol_package(); |
401 |
vs_top=sup; |
vs_top=sup; |
402 |
base[13]= vs_base[0]; |
base[12]= vs_base[0]; |
403 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+12)+1; |
404 |
Lpackage_name(); |
Lpackage_name(); |
405 |
vs_top=sup; |
vs_top=sup; |
406 |
V57= vs_base[0]; |
V58= vs_base[0]; |
407 |
V58= list(3,VV[7],V57,symbol_name((V55->c.c_car))); |
V59= list(3,VV[7],V58,symbol_name((V56->c.c_car))); |
408 |
(V54->c.c_car)= make_cons(/* INLINE-ARGS */V58,Cnil); |
(V55->c.c_car)= make_cons(/* INLINE-ARGS */V59,Cnil); |
409 |
V55=MMcdr(V55); |
if((V56=MMcdr(V56))==Cnil){ |
410 |
if(endp(V55)){ |
base[10]= base[11]; |
|
base[11]= base[12]; |
|
411 |
goto T175;} |
goto T175;} |
412 |
V54=MMcdr(V54)=MMcons(Cnil,Cnil); |
V55=MMcdr(V55)=MMcons(Cnil,Cnil); |
413 |
goto T179;} |
goto T179;} |
414 |
goto T177; |
goto T177; |
415 |
T177:; |
T177:; |
416 |
base[11]= Cnil; |
base[10]= Cnil; |
417 |
goto T175; |
goto T175; |
418 |
T175:; |
T175:; |
419 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+5)+6; |
420 |
Lappend(); |
Lappend(); |
421 |
vs_top=sup; |
vs_top=sup; |
422 |
V41= vs_base[0]; |
V42= vs_base[0]; |
423 |
base[6]= listA(3,VV[1],(V3),V41); |
{object V60 = listA(3,VV[1],(V4),V42); |
424 |
vs_top=(vs_base=base+6)+1; |
VMR1(V60)}}} |
425 |
return;}} |
base[0]=base[0]; |
426 |
} |
return Cnil; |
427 |
} |
} |
428 |
static object LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[12],(void **)(void *)&LnkLI12,first,ap);va_end(ap);return V1;} /* SET-DIFFERENCE */ |
static object LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[12],(void **)(void *)&LnkLI12,first,ap);va_end(ap);return V1;} /* SET-DIFFERENCE */ |
429 |
static object LnkTLI11(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[11],(void **)(void *)&LnkLI11,first,ap);va_end(ap);return V1;} /* INTERSECTION */ |
static object LnkTLI11(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[11],(void **)(void *)&LnkLI11,first,ap);va_end(ap);return V1;} /* INTERSECTION */ |