1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "make_defpackage.h" |
#include "make_defpackage.h" |
4 |
init_make_defpackage(){do_init(VV);} |
void init_make_defpackage(){do_init(VV);} |
5 |
/* function definition for MAKE-DEFPACKAGE-FORM */ |
/* function definition for MAKE-DEFPACKAGE-FORM */ |
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); |
12 |
check_arg(1); |
check_arg(1); |
13 |
V1=(base[0]); |
V1=(base[0]); |
14 |
vs_top=sup; |
vs_top=sup; |
15 |
|
goto TTL; |
16 |
TTL:; |
TTL:; |
17 |
{object V2; |
{object V2; |
18 |
base[1]= (V1); |
base[1]= (V1); |
51 |
V6= Cnil; |
V6= Cnil; |
52 |
goto T9;} |
goto T9;} |
53 |
base[6]=V13=MMcons(Cnil,Cnil); |
base[6]=V13=MMcons(Cnil,Cnil); |
54 |
|
goto T10; |
55 |
T10:; |
T10:; |
56 |
base[7]= (V14->c.c_car); |
base[7]= (V14->c.c_car); |
57 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
63 |
goto T9;} |
goto T9;} |
64 |
V13=MMcdr(V13)=MMcons(Cnil,Cnil); |
V13=MMcdr(V13)=MMcons(Cnil,Cnil); |
65 |
goto T10;} |
goto T10;} |
66 |
|
goto T9; |
67 |
T9:; |
T9:; |
68 |
V7= Cnil; |
V7= Cnil; |
69 |
base[6]= (V2); |
base[6]= (V2); |
86 |
goto T23;} |
goto T23;} |
87 |
V15= V2; |
V15= V2; |
88 |
goto T21; |
goto T21; |
89 |
|
goto T23; |
90 |
T23:; |
T23:; |
91 |
base[6]= coerce_to_string(V2); |
base[6]= coerce_to_string(V2); |
92 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
93 |
Lfind_package(); |
Lfind_package(); |
94 |
vs_top=sup; |
vs_top=sup; |
95 |
V15= vs_base[0]; |
V15= vs_base[0]; |
96 |
|
goto T21; |
97 |
T21:; |
T21:; |
98 |
V16= Cnil; |
V16= Cnil; |
99 |
V17= Cnil; |
V17= Cnil; |
105 |
vs_top=sup; |
vs_top=sup; |
106 |
V19= vs_base[0]; |
V19= vs_base[0]; |
107 |
V20= small_fixnum(0); |
V20= small_fixnum(0); |
108 |
|
goto T31; |
109 |
T31:; |
T31:; |
110 |
if(!(number_compare((V20),(V19))>=0)){ |
if(!(number_compare((V20),(V19))>=0)){ |
111 |
goto T32;} |
goto T32;} |
112 |
V16= Cnil; |
V16= Cnil; |
113 |
goto T20; |
goto T20; |
114 |
|
goto T32; |
115 |
T32:; |
T32:; |
116 |
base[7]= (V15); |
base[7]= (V15); |
117 |
base[8]= (V20); |
base[8]= (V20); |
119 |
siLpackage_external(); |
siLpackage_external(); |
120 |
vs_top=sup; |
vs_top=sup; |
121 |
V17= vs_base[0]; |
V17= vs_base[0]; |
122 |
|
goto T39; |
123 |
T39:; |
T39:; |
124 |
if(((V17))!=Cnil){ |
if(((V17))!=Cnil){ |
125 |
goto T44;} |
goto T44;} |
126 |
goto T40; |
goto T40; |
127 |
|
goto T44; |
128 |
T44:; |
T44:; |
129 |
V16= car((V17)); |
V16= car((V17)); |
130 |
V21= symbol_name((V16)); |
V21= symbol_name((V16)); |
131 |
V7= make_cons(/* INLINE-ARGS */V21,(V7)); |
V7= make_cons(/* INLINE-ARGS */V21,(V7)); |
132 |
V17= cdr((V17)); |
V17= cdr((V17)); |
133 |
goto T39; |
goto T39; |
134 |
|
goto T40; |
135 |
T40:; |
T40:; |
136 |
goto T37; |
goto T37; |
137 |
|
goto T37; |
138 |
T37:; |
T37:; |
139 |
V20= one_plus((V20)); |
V20= one_plus((V20)); |
140 |
goto T31;}} |
goto T31;}} |
141 |
|
goto T20; |
142 |
T20:; |
T20:; |
143 |
{object V22; |
{object V22; |
144 |
register object V23; |
register object V23; |
151 |
goto T59;} |
goto T59;} |
152 |
V22= V2; |
V22= V2; |
153 |
goto T57; |
goto T57; |
154 |
|
goto T59; |
155 |
T59:; |
T59:; |
156 |
base[6]= coerce_to_string(V2); |
base[6]= coerce_to_string(V2); |
157 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
158 |
Lfind_package(); |
Lfind_package(); |
159 |
vs_top=sup; |
vs_top=sup; |
160 |
V22= vs_base[0]; |
V22= vs_base[0]; |
161 |
|
goto T57; |
162 |
T57:; |
T57:; |
163 |
V23= Cnil; |
V23= Cnil; |
164 |
V24= Cnil; |
V24= Cnil; |
174 |
V27= fix(vs_base[0]); |
V27= fix(vs_base[0]); |
175 |
vs_top=sup; |
vs_top=sup; |
176 |
goto T67; |
goto T67; |
177 |
|
goto T65; |
178 |
T65:; |
T65:; |
179 |
V26= fix(Cnil); |
V26= fix(Cnil); |
180 |
|
goto T66; |
181 |
T66:; |
T66:; |
182 |
V27= fix(Cnil); |
V27= fix(Cnil); |
183 |
|
goto T67; |
184 |
T67:; |
T67:; |
185 |
{object V28; |
{object V28; |
186 |
register object V29; |
register object V29; |
188 |
V31 = make_fixnum(V26); |
V31 = make_fixnum(V26); |
189 |
V28= number_plus(V30,V31); |
V28= number_plus(V30,V31); |
190 |
V29= small_fixnum(0); |
V29= small_fixnum(0); |
191 |
|
goto T71; |
192 |
T71:; |
T71:; |
193 |
if(!(number_compare((V29),(V28))>=0)){ |
if(!(number_compare((V29),(V28))>=0)){ |
194 |
goto T72;} |
goto T72;} |
195 |
V23= Cnil; |
V23= Cnil; |
196 |
goto T56; |
goto T56; |
197 |
|
goto T72; |
198 |
T72:; |
T72:; |
199 |
V32 = make_fixnum(V27); |
V32 = make_fixnum(V27); |
200 |
if(!(number_compare((V29),V32)<0)){ |
if(!(number_compare((V29),V32)<0)){ |
206 |
vs_top=sup; |
vs_top=sup; |
207 |
V24= vs_base[0]; |
V24= vs_base[0]; |
208 |
goto T81; |
goto T81; |
209 |
|
goto T83; |
210 |
T83:; |
T83:; |
211 |
base[7]= (V22); |
base[7]= (V22); |
212 |
V33 = make_fixnum(V27); |
V33 = make_fixnum(V27); |
215 |
siLpackage_external(); |
siLpackage_external(); |
216 |
vs_top=sup; |
vs_top=sup; |
217 |
V24= vs_base[0]; |
V24= vs_base[0]; |
218 |
|
goto T81; |
219 |
T81:; |
T81:; |
220 |
|
goto T79; |
221 |
T79:; |
T79:; |
222 |
if(((V24))!=Cnil){ |
if(((V24))!=Cnil){ |
223 |
goto T89;} |
goto T89;} |
224 |
goto T80; |
goto T80; |
225 |
|
goto T89; |
226 |
T89:; |
T89:; |
227 |
V23= car((V24)); |
V23= car((V24)); |
228 |
base[7]= (V23); |
base[7]= (V23); |
240 |
if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){ |
241 |
goto T94;} |
goto T94;} |
242 |
V9= make_cons((V23),(V9)); |
V9= make_cons((V23),(V9)); |
243 |
|
goto T94; |
244 |
T94:; |
T94:; |
245 |
V24= cdr((V24)); |
V24= cdr((V24)); |
246 |
goto T79; |
goto T79; |
247 |
|
goto T80; |
248 |
T80:; |
T80:; |
249 |
goto T77; |
goto T77; |
250 |
|
goto T77; |
251 |
T77:; |
T77:; |
252 |
V29= one_plus((V29)); |
V29= one_plus((V29)); |
253 |
goto T71;}}} |
goto T71;}}} |
254 |
|
goto T56; |
255 |
T56:; |
T56:; |
256 |
V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9))); |
V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9))); |
257 |
V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10))); |
V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10))); |
261 |
V37= make_cons(VV[1],(V4)); |
V37= make_cons(VV[1],(V4)); |
262 |
base[6]= make_cons(/* INLINE-ARGS */V37,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V37,Cnil); |
263 |
goto T116; |
goto T116; |
264 |
|
goto T118; |
265 |
T118:; |
T118:; |
266 |
base[6]= Cnil; |
base[6]= Cnil; |
267 |
|
goto T116; |
268 |
T116:; |
T116:; |
269 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
270 |
goto T122;} |
goto T122;} |
271 |
V38= make_cons(VV[2],(V6)); |
V38= make_cons(VV[2],(V6)); |
272 |
base[7]= make_cons(/* INLINE-ARGS */V38,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V38,Cnil); |
273 |
goto T120; |
goto T120; |
274 |
|
goto T122; |
275 |
T122:; |
T122:; |
276 |
base[7]= Cnil; |
base[7]= Cnil; |
277 |
|
goto T120; |
278 |
T120:; |
T120:; |
279 |
if(((V7))==Cnil){ |
if(((V7))==Cnil){ |
280 |
goto T126;} |
goto T126;} |
281 |
V39= make_cons(VV[3],(V7)); |
V39= make_cons(VV[3],(V7)); |
282 |
base[8]= make_cons(/* INLINE-ARGS */V39,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V39,Cnil); |
283 |
goto T124; |
goto T124; |
284 |
|
goto T126; |
285 |
T126:; |
T126:; |
286 |
base[8]= Cnil; |
base[8]= Cnil; |
287 |
|
goto T124; |
288 |
T124:; |
T124:; |
289 |
if(((V11))==Cnil){ |
if(((V11))==Cnil){ |
290 |
goto T130;} |
goto T130;} |
294 |
V40= Cnil; |
V40= Cnil; |
295 |
goto T132;} |
goto T132;} |
296 |
base[10]=V41=MMcons(Cnil,Cnil); |
base[10]=V41=MMcons(Cnil,Cnil); |
297 |
|
goto T133; |
298 |
T133:; |
T133:; |
299 |
(V41->c.c_car)= symbol_name((V42->c.c_car)); |
(V41->c.c_car)= symbol_name((V42->c.c_car)); |
300 |
if(endp(V42=MMcdr(V42))){ |
if(endp(V42=MMcdr(V42))){ |
302 |
goto T132;} |
goto T132;} |
303 |
V41=MMcdr(V41)=MMcons(Cnil,Cnil); |
V41=MMcdr(V41)=MMcons(Cnil,Cnil); |
304 |
goto T133;} |
goto T133;} |
305 |
|
goto T132; |
306 |
T132:; |
T132:; |
307 |
V43= make_cons(VV[4],V40); |
V43= make_cons(VV[4],V40); |
308 |
base[9]= make_cons(/* INLINE-ARGS */V43,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V43,Cnil); |
309 |
goto T128; |
goto T128; |
310 |
|
goto T130; |
311 |
T130:; |
T130:; |
312 |
base[9]= Cnil; |
base[9]= Cnil; |
313 |
|
goto T128; |
314 |
T128:; |
T128:; |
315 |
if(((V10))==Cnil){ |
if(((V10))==Cnil){ |
316 |
goto T137;} |
goto T137;} |
320 |
base[10]= Cnil; |
base[10]= Cnil; |
321 |
goto T135;} |
goto T135;} |
322 |
base[11]=V44=MMcons(Cnil,Cnil); |
base[11]=V44=MMcons(Cnil,Cnil); |
323 |
|
goto T139; |
324 |
T139:; |
T139:; |
325 |
base[13]= (V45->c.c_car); |
base[13]= (V45->c.c_car); |
326 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
338 |
goto T135;} |
goto T135;} |
339 |
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
340 |
goto T139;} |
goto T139;} |
341 |
|
goto T137; |
342 |
T137:; |
T137:; |
343 |
base[10]= Cnil; |
base[10]= Cnil; |
344 |
|
goto T135; |
345 |
T135:; |
T135:; |
346 |
if(((V12))==Cnil){ |
if(((V12))==Cnil){ |
347 |
goto T146;} |
goto T146;} |
351 |
base[11]= Cnil; |
base[11]= Cnil; |
352 |
goto T144;} |
goto T144;} |
353 |
base[12]=V49=MMcons(Cnil,Cnil); |
base[12]=V49=MMcons(Cnil,Cnil); |
354 |
|
goto T148; |
355 |
T148:; |
T148:; |
356 |
base[14]= (V50->c.c_car); |
base[14]= (V50->c.c_car); |
357 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
369 |
goto T144;} |
goto T144;} |
370 |
V49=MMcdr(V49)=MMcons(Cnil,Cnil); |
V49=MMcdr(V49)=MMcons(Cnil,Cnil); |
371 |
goto T148;} |
goto T148;} |
372 |
|
goto T146; |
373 |
T146:; |
T146:; |
374 |
base[11]= Cnil; |
base[11]= Cnil; |
375 |
|
goto T144; |
376 |
T144:; |
T144:; |
377 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+6)+6; |
378 |
Lappend(); |
Lappend(); |
383 |
return;}} |
return;}} |
384 |
} |
} |
385 |
} |
} |
386 |
static object LnkTLI11(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[11],&LnkLI11,ap);} /* SET-DIFFERENCE */ |
static object LnkTLI11(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[11],(void **)&LnkLI11,ap);} /* SET-DIFFERENCE */ |
387 |
static object LnkTLI10(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[10],&LnkLI10,ap);} /* INTERSECTION */ |
static object LnkTLI10(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[10],(void **)&LnkLI10,ap);} /* INTERSECTION */ |
388 |
static object LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[9],&LnkLI9,ap);} /* FIND */ |
static object LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[9],(void **)&LnkLI9,ap);} /* FIND */ |
389 |
static LnkT8(){ call_or_link(VV[8],&Lnk8);} /* PACKAGE-SIZE */ |
static void LnkT8(){ call_or_link(VV[8],(void **)&Lnk8);} /* PACKAGE-SIZE */ |
390 |
static LnkT7(){ call_or_link(VV[7],&Lnk7);} /* PACKAGE-SHADOWING-SYMBOLS */ |
static void LnkT7(){ call_or_link(VV[7],(void **)&Lnk7);} /* PACKAGE-SHADOWING-SYMBOLS */ |
391 |
|
|
392 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
393 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |