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