1 |
|
|
2 |
|
#include <cmpinclude.h> |
3 |
|
#include "make_defpackage.h" |
4 |
|
init_make_defpackage(){do_init(VV);} |
5 |
|
/* function definition for MAKE-DEFPACKAGE-FORM */ |
6 |
|
|
7 |
|
static L1() |
8 |
|
{register object *base=vs_base; |
9 |
|
register object *sup=base+VM1; VC1 |
10 |
|
vs_check; |
11 |
|
{object V1; |
12 |
|
V1=(base[0]); |
13 |
|
vs_top=sup; |
14 |
|
TTL:; |
15 |
|
{object V2; |
16 |
|
base[1]= (V1); |
17 |
|
vs_top=(vs_base=base+1)+1; |
18 |
|
Lfind_package(); |
19 |
|
vs_top=sup; |
20 |
|
V2= vs_base[0]; |
21 |
|
{object V3; |
22 |
|
object V4; |
23 |
|
object V5; |
24 |
|
object V6; |
25 |
|
register object V7; |
26 |
|
object V8; |
27 |
|
register object V9; |
28 |
|
object V10; |
29 |
|
object V11; |
30 |
|
object V12; |
31 |
|
base[6]= (V2); |
32 |
|
vs_top=(vs_base=base+6)+1; |
33 |
|
Lpackage_name(); |
34 |
|
vs_top=sup; |
35 |
|
V3= vs_base[0]; |
36 |
|
base[6]= (V2); |
37 |
|
vs_top=(vs_base=base+6)+1; |
38 |
|
Lpackage_nicknames(); |
39 |
|
vs_top=sup; |
40 |
|
V4= vs_base[0]; |
41 |
|
base[6]= (V2); |
42 |
|
vs_top=(vs_base=base+6)+1; |
43 |
|
Lpackage_use_list(); |
44 |
|
vs_top=sup; |
45 |
|
V5= vs_base[0]; |
46 |
|
{object V13; |
47 |
|
object V14= (V5); |
48 |
|
if(V14==Cnil){ |
49 |
|
V6= Cnil; |
50 |
|
goto T9;} |
51 |
|
base[6]=V13=MMcons(Cnil,Cnil); |
52 |
|
T10:; |
53 |
|
base[7]= (V14->c.c_car); |
54 |
|
vs_top=(vs_base=base+7)+1; |
55 |
|
Lpackage_name(); |
56 |
|
vs_top=sup; |
57 |
|
(V13->c.c_car)= vs_base[0]; |
58 |
|
if((V14=MMcdr(V14))==Cnil){ |
59 |
|
V6= base[6]; |
60 |
|
goto T9;} |
61 |
|
V13=MMcdr(V13)=MMcons(Cnil,Cnil); |
62 |
|
goto T10;} |
63 |
|
T9:; |
64 |
|
V7= Cnil; |
65 |
|
base[6]= (V2); |
66 |
|
vs_top=(vs_base=base+6)+1; |
67 |
|
(void) (*Lnk7)(); |
68 |
|
vs_top=sup; |
69 |
|
V8= vs_base[0]; |
70 |
|
V9= Cnil; |
71 |
|
V10= Cnil; |
72 |
|
V11= Cnil; |
73 |
|
V12= Cnil; |
74 |
|
{object V15; |
75 |
|
register object V16; |
76 |
|
register object V17; |
77 |
|
base[6]= V2; |
78 |
|
vs_top=(vs_base=base+6)+1; |
79 |
|
Lpackagep(); |
80 |
|
vs_top=sup; |
81 |
|
if((vs_base[0])==Cnil){ |
82 |
|
goto T23;} |
83 |
|
V15= V2; |
84 |
|
goto T21; |
85 |
|
T23:; |
86 |
|
base[6]= coerce_to_string(V2); |
87 |
|
vs_top=(vs_base=base+6)+1; |
88 |
|
Lfind_package(); |
89 |
|
vs_top=sup; |
90 |
|
V15= vs_base[0]; |
91 |
|
T21:; |
92 |
|
V16= Cnil; |
93 |
|
V17= Cnil; |
94 |
|
{object V19; |
95 |
|
register object V20; |
96 |
|
base[7]= (V15); |
97 |
|
vs_top=(vs_base=base+7)+1; |
98 |
|
(void) (*Lnk8)(); |
99 |
|
vs_top=sup; |
100 |
|
V19= vs_base[0]; |
101 |
|
V20= small_fixnum(0); |
102 |
|
T31:; |
103 |
|
if(!(number_compare((V20),(V19))>=0)){ |
104 |
|
goto T32;} |
105 |
|
V16= Cnil; |
106 |
|
goto T20; |
107 |
|
T32:; |
108 |
|
base[7]= (V15); |
109 |
|
base[8]= (V20); |
110 |
|
vs_top=(vs_base=base+7)+2; |
111 |
|
siLpackage_external(); |
112 |
|
vs_top=sup; |
113 |
|
V17= vs_base[0]; |
114 |
|
T39:; |
115 |
|
if(((V17))!=Cnil){ |
116 |
|
goto T44;} |
117 |
|
goto T40; |
118 |
|
T44:; |
119 |
|
V16= CMPcar((V17)); |
120 |
|
V21= symbol_name((V16)); |
121 |
|
V7= make_cons(/* INLINE-ARGS */V21,(V7)); |
122 |
|
V17= CMPcdr((V17)); |
123 |
|
goto T39; |
124 |
|
T40:; |
125 |
|
goto T37; |
126 |
|
T37:; |
127 |
|
V20= one_plus((V20)); |
128 |
|
goto T31;}} |
129 |
|
T20:; |
130 |
|
{object V22; |
131 |
|
register object V23; |
132 |
|
register object V24; |
133 |
|
base[6]= V2; |
134 |
|
vs_top=(vs_base=base+6)+1; |
135 |
|
Lpackagep(); |
136 |
|
vs_top=sup; |
137 |
|
if((vs_base[0])==Cnil){ |
138 |
|
goto T59;} |
139 |
|
V22= V2; |
140 |
|
goto T57; |
141 |
|
T59:; |
142 |
|
base[6]= coerce_to_string(V2); |
143 |
|
vs_top=(vs_base=base+6)+1; |
144 |
|
Lfind_package(); |
145 |
|
vs_top=sup; |
146 |
|
V22= vs_base[0]; |
147 |
|
T57:; |
148 |
|
V23= Cnil; |
149 |
|
V24= Cnil; |
150 |
|
{int V26; |
151 |
|
int V27; |
152 |
|
base[6]= (V22); |
153 |
|
vs_top=(vs_base=base+6)+1; |
154 |
|
(void) (*Lnk8)(); |
155 |
|
if(vs_base>=vs_top){vs_top=sup;goto T65;} |
156 |
|
V26= fix(vs_base[0]); |
157 |
|
vs_base++; |
158 |
|
if(vs_base>=vs_top){vs_top=sup;goto T66;} |
159 |
|
V27= fix(vs_base[0]); |
160 |
|
vs_top=sup; |
161 |
|
goto T67; |
162 |
|
T65:; |
163 |
|
V26= fix(Cnil); |
164 |
|
T66:; |
165 |
|
V27= fix(Cnil); |
166 |
|
T67:; |
167 |
|
{object V28; |
168 |
|
register object V29; |
169 |
|
V30 = CMPmake_fixnum(V27); |
170 |
|
V31 = CMPmake_fixnum(V26); |
171 |
|
V28= number_plus(V30,V31); |
172 |
|
V29= small_fixnum(0); |
173 |
|
T71:; |
174 |
|
if(!(number_compare((V29),(V28))>=0)){ |
175 |
|
goto T72;} |
176 |
|
V23= Cnil; |
177 |
|
goto T56; |
178 |
|
T72:; |
179 |
|
V32 = CMPmake_fixnum(V27); |
180 |
|
if(!(number_compare((V29),V32)<0)){ |
181 |
|
goto T83;} |
182 |
|
base[7]= (V22); |
183 |
|
base[8]= (V29); |
184 |
|
vs_top=(vs_base=base+7)+2; |
185 |
|
siLpackage_internal(); |
186 |
|
vs_top=sup; |
187 |
|
V24= vs_base[0]; |
188 |
|
goto T81; |
189 |
|
T83:; |
190 |
|
base[7]= (V22); |
191 |
|
V33 = CMPmake_fixnum(V27); |
192 |
|
base[8]= number_minus((V29),V33); |
193 |
|
vs_top=(vs_base=base+7)+2; |
194 |
|
siLpackage_external(); |
195 |
|
vs_top=sup; |
196 |
|
V24= vs_base[0]; |
197 |
|
T81:; |
198 |
|
T79:; |
199 |
|
if(((V24))!=Cnil){ |
200 |
|
goto T89;} |
201 |
|
goto T80; |
202 |
|
T89:; |
203 |
|
V23= CMPcar((V24)); |
204 |
|
base[7]= (V23); |
205 |
|
vs_top=(vs_base=base+7)+1; |
206 |
|
Lsymbol_package(); |
207 |
|
vs_top=sup; |
208 |
|
V34= vs_base[0]; |
209 |
|
if(((V2))==(V34)){ |
210 |
|
goto T94;} |
211 |
|
base[8]= (V23); |
212 |
|
vs_top=(vs_base=base+8)+1; |
213 |
|
Lsymbol_package(); |
214 |
|
vs_top=sup; |
215 |
|
base[7]= vs_base[0]; |
216 |
|
base[8]= (V5); |
217 |
|
vs_top=(vs_base=base+7)+2; |
218 |
|
(void) (*Lnk9)(); |
219 |
|
vs_top=sup; |
220 |
|
if((vs_base[0])!=Cnil){ |
221 |
|
goto T94;} |
222 |
|
V9= make_cons((V23),(V9)); |
223 |
|
T94:; |
224 |
|
V24= CMPcdr((V24)); |
225 |
|
goto T79; |
226 |
|
T80:; |
227 |
|
goto T77; |
228 |
|
T77:; |
229 |
|
V29= one_plus((V29)); |
230 |
|
goto T71;}}} |
231 |
|
T56:; |
232 |
|
base[6]= (V8); |
233 |
|
base[7]= (V9); |
234 |
|
vs_top=(vs_base=base+6)+2; |
235 |
|
(void) (*Lnk10)(); |
236 |
|
vs_top=sup; |
237 |
|
V10= vs_base[0]; |
238 |
|
base[6]= (V8); |
239 |
|
base[7]= (V10); |
240 |
|
vs_top=(vs_base=base+6)+2; |
241 |
|
(void) (*Lnk11)(); |
242 |
|
vs_top=sup; |
243 |
|
V11= vs_base[0]; |
244 |
|
base[6]= (V9); |
245 |
|
base[7]= (V10); |
246 |
|
vs_top=(vs_base=base+6)+2; |
247 |
|
(void) (*Lnk11)(); |
248 |
|
vs_top=sup; |
249 |
|
V12= vs_base[0]; |
250 |
|
if(((V4))==Cnil){ |
251 |
|
goto T125;} |
252 |
|
V36= make_cons(VV[1],(V4)); |
253 |
|
base[6]= make_cons(/* INLINE-ARGS */V36,Cnil); |
254 |
|
goto T123; |
255 |
|
T125:; |
256 |
|
base[6]= Cnil; |
257 |
|
T123:; |
258 |
|
if(((V6))==Cnil){ |
259 |
|
goto T129;} |
260 |
|
V37= make_cons(VV[2],(V6)); |
261 |
|
base[7]= make_cons(/* INLINE-ARGS */V37,Cnil); |
262 |
|
goto T127; |
263 |
|
T129:; |
264 |
|
base[7]= Cnil; |
265 |
|
T127:; |
266 |
|
if(((V7))==Cnil){ |
267 |
|
goto T133;} |
268 |
|
V38= make_cons(VV[3],(V7)); |
269 |
|
base[8]= make_cons(/* INLINE-ARGS */V38,Cnil); |
270 |
|
goto T131; |
271 |
|
T133:; |
272 |
|
base[8]= Cnil; |
273 |
|
T131:; |
274 |
|
if(((V11))==Cnil){ |
275 |
|
goto T137;} |
276 |
|
{object V40; |
277 |
|
object V41= (V11); |
278 |
|
if(V41==Cnil){ |
279 |
|
V39= Cnil; |
280 |
|
goto T139;} |
281 |
|
base[10]=V40=MMcons(Cnil,Cnil); |
282 |
|
T140:; |
283 |
|
(V40->c.c_car)= symbol_name((V41->c.c_car)); |
284 |
|
if((V41=MMcdr(V41))==Cnil){ |
285 |
|
V39= base[10]; |
286 |
|
goto T139;} |
287 |
|
V40=MMcdr(V40)=MMcons(Cnil,Cnil); |
288 |
|
goto T140;} |
289 |
|
T139:; |
290 |
|
V42= make_cons(VV[4],V39); |
291 |
|
base[9]= make_cons(/* INLINE-ARGS */V42,Cnil); |
292 |
|
goto T135; |
293 |
|
T137:; |
294 |
|
base[9]= Cnil; |
295 |
|
T135:; |
296 |
|
if(((V10))==Cnil){ |
297 |
|
goto T144;} |
298 |
|
{object V43; |
299 |
|
object V44= (V10); |
300 |
|
if(V44==Cnil){ |
301 |
|
base[10]= Cnil; |
302 |
|
goto T142;} |
303 |
|
base[11]=V43=MMcons(Cnil,Cnil); |
304 |
|
T146:; |
305 |
|
base[13]= (V44->c.c_car); |
306 |
|
vs_top=(vs_base=base+13)+1; |
307 |
|
Lsymbol_package(); |
308 |
|
vs_top=sup; |
309 |
|
base[12]= vs_base[0]; |
310 |
|
vs_top=(vs_base=base+12)+1; |
311 |
|
Lpackage_name(); |
312 |
|
vs_top=sup; |
313 |
|
V46= vs_base[0]; |
314 |
|
V47= list(3,VV[5],V46,symbol_name((V44->c.c_car))); |
315 |
|
(V43->c.c_car)= make_cons(/* INLINE-ARGS */V47,Cnil); |
316 |
|
if((V44=MMcdr(V44))==Cnil){ |
317 |
|
base[10]= base[11]; |
318 |
|
goto T142;} |
319 |
|
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
320 |
|
goto T146;} |
321 |
|
T144:; |
322 |
|
base[10]= Cnil; |
323 |
|
T142:; |
324 |
|
if(((V12))==Cnil){ |
325 |
|
goto T153;} |
326 |
|
{object V48; |
327 |
|
object V49= (V12); |
328 |
|
if(V49==Cnil){ |
329 |
|
base[11]= Cnil; |
330 |
|
goto T151;} |
331 |
|
base[12]=V48=MMcons(Cnil,Cnil); |
332 |
|
T155:; |
333 |
|
base[14]= (V49->c.c_car); |
334 |
|
vs_top=(vs_base=base+14)+1; |
335 |
|
Lsymbol_package(); |
336 |
|
vs_top=sup; |
337 |
|
base[13]= vs_base[0]; |
338 |
|
vs_top=(vs_base=base+13)+1; |
339 |
|
Lpackage_name(); |
340 |
|
vs_top=sup; |
341 |
|
V51= vs_base[0]; |
342 |
|
V52= list(3,VV[6],V51,symbol_name((V49->c.c_car))); |
343 |
|
(V48->c.c_car)= make_cons(/* INLINE-ARGS */V52,Cnil); |
344 |
|
if((V49=MMcdr(V49))==Cnil){ |
345 |
|
base[11]= base[12]; |
346 |
|
goto T151;} |
347 |
|
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
348 |
|
goto T155;} |
349 |
|
T153:; |
350 |
|
base[11]= Cnil; |
351 |
|
T151:; |
352 |
|
vs_top=(vs_base=base+6)+6; |
353 |
|
Lappend(); |
354 |
|
vs_top=sup; |
355 |
|
V35= vs_base[0]; |
356 |
|
base[6]= listA(3,VV[0],(V3),V35); |
357 |
|
vs_top=(vs_base=base+6)+1; |
358 |
|
return;}} |
359 |
|
} |
360 |
|
} |
361 |
|
static LnkT11(){ call_or_link(VV[11],&Lnk11);} /* SET-DIFFERENCE */ |
362 |
|
static LnkT10(){ call_or_link(VV[10],&Lnk10);} /* INTERSECTION */ |
363 |
|
static LnkT9(){ call_or_link(VV[9],&Lnk9);} /* FIND */ |
364 |
|
static LnkT8(){ call_or_link(VV[8],&Lnk8);} /* PACKAGE-SIZE */ |
365 |
|
static LnkT7(){ call_or_link(VV[7],&Lnk7);} /* PACKAGE-SHADOWING-SYMBOLS */ |