← Back to branch summary

~ubuntu-branches/ubuntu/vivid/gcl/vivid

« back to all changes in this revision

Viewing changes to lsp/packlib.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2002-03-04 14:29:59 UTC
  • Revision ID: james.westby@ubuntu.com-20020304142959-dey14w08kr7lldu3
Tags: upstream-2.5.0.cvs20020219
Import upstream version 2.5.0.cvs20020219

Show diffs side-by-side

added added

removed removed

Lines of Context:
lsp/packlib.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "packlib.h"
 
4
init_packlib(){do_init(VV);}
 
5
/*      macro definition for COERCE-TO-PACKAGE  */
 
6
 
 
7
static L1()
 
8
{register object *base=vs_base;
 
9
        register object *sup=base+VM1; VC1
 
10
        vs_reserve(VM1);
 
11
        check_arg(2);
 
12
        vs_top=sup;
 
13
        {object V1=base[0]->c.c_cdr;
 
14
        if(endp(V1))invalid_macro_call();
 
15
        base[2]= (V1->c.c_car);
 
16
        V1=V1->c.c_cdr;
 
17
        if(!endp(V1))invalid_macro_call();}
 
18
        if(!((base[2])==(VV[0]))){
 
19
        goto T2;}
 
20
        vs_top=(vs_base=base+2)+1;
 
21
        return;
 
22
T2:;
 
23
        {register object V2;
 
24
        vs_base=vs_top;
 
25
        Lgensym();
 
26
        vs_top=sup;
 
27
        V2= vs_base[0];
 
28
        V3= list(2,(V2),base[2]);
 
29
        V4= make_cons(/* INLINE-ARGS */V3,Cnil);
 
30
        V5= list(2,VV[3],(V2));
 
31
        base[3]= list(3,VV[1],/* INLINE-ARGS */V4,list(4,VV[2],/* INLINE-ARGS */V5,(V2),list(2,VV[4],list(2,VV[5],(V2)))));
 
32
        vs_top=(vs_base=base+3)+1;
 
33
        return;}
 
34
}
 
35
/*      local entry for function FIND-ALL-SYMBOLS       */
 
36
 
 
37
static object LI2(V7)
 
38
 
 
39
register object V7;
 
40
{        VMB2 VMS2 VMV2
 
41
TTL:;
 
42
        if(!(type_of((V7))==t_symbol)){
 
43
        goto T5;}
 
44
        V7= symbol_name((V7));
 
45
T5:;
 
46
        vs_base=vs_top;
 
47
        Llist_all_packages();
 
48
        vs_top=sup;
 
49
        V10= vs_base[0];
 
50
        {object V8;
 
51
        object V9= V10;
 
52
        if(endp(V9)){
 
53
        {object V11 = Cnil;
 
54
        VMR2(V11)}}
 
55
        base[0]=V8=MMcons(Cnil,Cnil);
 
56
T9:;
 
57
        {object V13;
 
58
        object V14;
 
59
        base[1]= (V7);
 
60
        base[2]= (V9->c.c_car);
 
61
        vs_top=(vs_base=base+1)+2;
 
62
        Lfind_symbol();
 
63
        if(vs_base>=vs_top){vs_top=sup;goto T15;}
 
64
        V13= vs_base[0];
 
65
        vs_base++;
 
66
        if(vs_base>=vs_top){vs_top=sup;goto T16;}
 
67
        V14= vs_base[0];
 
68
        vs_top=sup;
 
69
        goto T17;
 
70
T15:;
 
71
        V13= Cnil;
 
72
T16:;
 
73
        V14= Cnil;
 
74
T17:;
 
75
        if(((V14))==(VV[6])){
 
76
        goto T18;}
 
77
        if(!(((V14))==(VV[7]))){
 
78
        goto T19;}
 
79
T18:;
 
80
        (V8->c.c_cdr)= make_cons((V13),Cnil);
 
81
        goto T11;
 
82
T19:;
 
83
        (V8->c.c_cdr)= Cnil;}
 
84
T11:;
 
85
        while(!endp(MMcdr(V8)))V8=MMcdr(V8);
 
86
        if(endp(V9=MMcdr(V9))){
 
87
        base[0]=base[0]->c.c_cdr;
 
88
        {object V15 = base[0];
 
89
        VMR2(V15)}}
 
90
        goto T9;}
 
91
}
 
92
/*      macro definition for DO-SYMBOLS */
 
93
 
 
94
static L3()
 
95
{register object *base=vs_base;
 
96
        register object *sup=base+VM3; VC3
 
97
        vs_reserve(VM3);
 
98
        check_arg(2);
 
99
        vs_top=sup;
 
100
        {object V16=base[0]->c.c_cdr;
 
101
        if(endp(V16))invalid_macro_call();
 
102
        {object V17= (V16->c.c_car);
 
103
        if(endp(V17))invalid_macro_call();
 
104
        base[2]= (V17->c.c_car);
 
105
        V17=V17->c.c_cdr;
 
106
        if(endp(V17)){
 
107
        base[3]= VV[0];
 
108
        } else {
 
109
        base[3]= (V17->c.c_car);
 
110
        V17=V17->c.c_cdr;}
 
111
        if(endp(V17)){
 
112
        base[4]= Cnil;
 
113
        } else {
 
114
        base[4]= (V17->c.c_car);
 
115
        V17=V17->c.c_cdr;}
 
116
        if(!endp(V17))invalid_macro_call();}
 
117
        V16=V16->c.c_cdr;
 
118
        base[5]= V16;}
 
119
        {register object V18;
 
120
        register object V19;
 
121
        register object V20;
 
122
        object V21;
 
123
        register object V22;
 
124
        object V23;
 
125
        object V24;
 
126
        object V25;
 
127
        vs_base=vs_top;
 
128
        Lgensym();
 
129
        vs_top=sup;
 
130
        V18= vs_base[0];
 
131
        vs_base=vs_top;
 
132
        Lgensym();
 
133
        vs_top=sup;
 
134
        V19= vs_base[0];
 
135
        vs_base=vs_top;
 
136
        Lgensym();
 
137
        vs_top=sup;
 
138
        V20= vs_base[0];
 
139
        vs_base=vs_top;
 
140
        Lgensym();
 
141
        vs_top=sup;
 
142
        V21= vs_base[0];
 
143
        vs_base=vs_top;
 
144
        Lgensym();
 
145
        vs_top=sup;
 
146
        V22= vs_base[0];
 
147
        vs_base=vs_top;
 
148
        Lgensym();
 
149
        vs_top=sup;
 
150
        V23= vs_base[0];
 
151
        vs_base=vs_top;
 
152
        Lgensym();
 
153
        vs_top=sup;
 
154
        V24= vs_base[0];
 
155
        V25= Cnil;
 
156
        base[6]= base[5];
 
157
        vs_top=(vs_base=base+6)+1;
 
158
        (void) (*Lnk32)();
 
159
        if(vs_base<vs_top){
 
160
        V25= vs_base[0];
 
161
        vs_base++;
 
162
        }else{
 
163
        V25= Cnil;}
 
164
        if(vs_base<vs_top){
 
165
        base[5]= vs_base[0];
 
166
        }else{
 
167
        base[5]= Cnil;}
 
168
        vs_top=sup;
 
169
        V26= list(3,list(2,(V18),list(2,VV[8],base[3])),base[2],(V20));
 
170
        V27= list(2,(V23),(V22));
 
171
        V28= list(2,VV[10],(V18));
 
172
        V29= list(2,VV[11],list(3,VV[12],(V22),(V23)));
 
173
        V30= list(3,VV[14],(V22),(V23));
 
174
        V31= list(3,(V19),/* INLINE-ARGS */V30,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4]));
 
175
        V32= list(3,VV[17],(V19),(V22));
 
176
        V33= list(3,VV[18],(V18),(V19));
 
177
        V34= list(3,VV[16],(V20),list(4,VV[2],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,list(3,VV[19],(V18),list(3,VV[20],(V19),(V22)))));
 
178
        V35= list(2,VV[22],(V20));
 
179
        V36= list(3,VV[21],/* INLINE-ARGS */V35,list(2,VV[23],(V24)));
 
180
        V37= list(3,VV[16],base[2],list(2,VV[24],(V20)));
 
181
        V38= list(3,VV[16],(V20),list(2,VV[25],(V20)));
 
182
        V39= list(3,/* INLINE-ARGS */V38,list(2,VV[23],(V21)),(V24));
 
183
        V40= list(5,VV[9],/* INLINE-ARGS */V27,/* INLINE-ARGS */V28,/* INLINE-ARGS */V29,listA(7,VV[13],/* INLINE-ARGS */V31,/* INLINE-ARGS */V34,(V21),/* INLINE-ARGS */V36,/* INLINE-ARGS */V37,append(base[5],/* INLINE-ARGS */V39)));
 
184
        V41= make_cons(/* INLINE-ARGS */V40,Cnil);
 
185
        base[6]= listA(3,VV[1],/* INLINE-ARGS */V26,append((V25),/* INLINE-ARGS */V41));
 
186
        vs_top=(vs_base=base+6)+1;
 
187
        return;}
 
188
}
 
189
/*      macro definition for DO-EXTERNAL-SYMBOLS        */
 
190
 
 
191
static L4()
 
192
{register object *base=vs_base;
 
193
        register object *sup=base+VM4; VC4
 
194
        vs_reserve(VM4);
 
195
        check_arg(2);
 
196
        vs_top=sup;
 
197
        {object V42=base[0]->c.c_cdr;
 
198
        if(endp(V42))invalid_macro_call();
 
199
        {object V43= (V42->c.c_car);
 
200
        if(endp(V43))invalid_macro_call();
 
201
        base[2]= (V43->c.c_car);
 
202
        V43=V43->c.c_cdr;
 
203
        if(endp(V43)){
 
204
        base[3]= VV[0];
 
205
        } else {
 
206
        base[3]= (V43->c.c_car);
 
207
        V43=V43->c.c_cdr;}
 
208
        if(endp(V43)){
 
209
        base[4]= Cnil;
 
210
        } else {
 
211
        base[4]= (V43->c.c_car);
 
212
        V43=V43->c.c_cdr;}
 
213
        if(!endp(V43))invalid_macro_call();}
 
214
        V42=V42->c.c_cdr;
 
215
        base[5]= V42;}
 
216
        {object V44;
 
217
        object V45;
 
218
        register object V46;
 
219
        object V47;
 
220
        object V48;
 
221
        object V49;
 
222
        vs_base=vs_top;
 
223
        Lgensym();
 
224
        vs_top=sup;
 
225
        V44= vs_base[0];
 
226
        vs_base=vs_top;
 
227
        Lgensym();
 
228
        vs_top=sup;
 
229
        V45= vs_base[0];
 
230
        vs_base=vs_top;
 
231
        Lgensym();
 
232
        vs_top=sup;
 
233
        V46= vs_base[0];
 
234
        vs_base=vs_top;
 
235
        Lgensym();
 
236
        vs_top=sup;
 
237
        V47= vs_base[0];
 
238
        vs_base=vs_top;
 
239
        Lgensym();
 
240
        vs_top=sup;
 
241
        V48= vs_base[0];
 
242
        V49= Cnil;
 
243
        base[6]= base[5];
 
244
        vs_top=(vs_base=base+6)+1;
 
245
        (void) (*Lnk32)();
 
246
        if(vs_base<vs_top){
 
247
        V49= vs_base[0];
 
248
        vs_base++;
 
249
        }else{
 
250
        V49= Cnil;}
 
251
        if(vs_base<vs_top){
 
252
        base[5]= vs_base[0];
 
253
        }else{
 
254
        base[5]= Cnil;}
 
255
        vs_top=sup;
 
256
        V50= list(3,list(2,(V44),list(2,VV[8],base[3])),base[2],(V46));
 
257
        V51= list(2,VV[10],(V44));
 
258
        V52= list(3,(V45),/* INLINE-ARGS */V51,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4]));
 
259
        V53= list(3,VV[16],(V46),list(3,VV[19],(V44),(V45)));
 
260
        V54= list(2,VV[22],(V46));
 
261
        V55= list(3,VV[21],/* INLINE-ARGS */V54,list(2,VV[23],(V48)));
 
262
        V56= list(3,VV[16],base[2],list(2,VV[24],(V46)));
 
263
        V57= list(3,VV[16],(V46),list(2,VV[25],(V46)));
 
264
        V58= list(3,/* INLINE-ARGS */V57,list(2,VV[23],(V47)),(V48));
 
265
        V59= listA(7,VV[13],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,(V47),/* INLINE-ARGS */V55,/* INLINE-ARGS */V56,append(base[5],/* INLINE-ARGS */V58));
 
266
        V60= make_cons(/* INLINE-ARGS */V59,Cnil);
 
267
        base[6]= listA(3,VV[1],/* INLINE-ARGS */V50,append((V49),/* INLINE-ARGS */V60));
 
268
        vs_top=(vs_base=base+6)+1;
 
269
        return;}
 
270
}
 
271
/*      macro definition for DO-ALL-SYMBOLS     */
 
272
 
 
273
static L5()
 
274
{register object *base=vs_base;
 
275
        register object *sup=base+VM5; VC5
 
276
        vs_reserve(VM5);
 
277
        check_arg(2);
 
278
        vs_top=sup;
 
279
        {object V61=base[0]->c.c_cdr;
 
280
        if(endp(V61))invalid_macro_call();
 
281
        {object V62= (V61->c.c_car);
 
282
        if(endp(V62))invalid_macro_call();
 
283
        base[2]= (V62->c.c_car);
 
284
        V62=V62->c.c_cdr;
 
285
        if(endp(V62)){
 
286
        base[3]= Cnil;
 
287
        } else {
 
288
        base[3]= (V62->c.c_car);
 
289
        V62=V62->c.c_cdr;}
 
290
        if(!endp(V62))invalid_macro_call();}
 
291
        V61=V61->c.c_cdr;
 
292
        base[4]= V61;}
 
293
        V63= list(3,VV[27],VV[28],base[3]);
 
294
        base[5]= list(3,VV[26],/* INLINE-ARGS */V63,listA(3,VV[29],list(2,base[2],VV[27]),base[4]));
 
295
        vs_top=(vs_base=base+5)+1;
 
296
        return;
 
297
}
 
298
/*      local entry for function SUBSTRINGP     */
 
299
 
 
300
static object LI6(V66,V67)
 
301
 
 
302
register object V66;register object V67;
 
303
{        VMB6 VMS6 VMV6
 
304
TTL:;
 
305
        {register object V68;
 
306
        register object V69;
 
307
        register object V70;
 
308
        V71 = make_fixnum(length((V67)));
 
309
        V72 = make_fixnum(length((V66)));
 
310
        V68= number_minus(V71,V72);
 
311
        V69= make_fixnum(length((V66)));
 
312
        V70= small_fixnum(0);
 
313
T49:;
 
314
        if(!(number_compare((V70),(V68))>0)){
 
315
        goto T50;}
 
316
        {object V73 = Cnil;
 
317
        VMR6(V73)}
 
318
T50:;
 
319
        base[0]= (V66);
 
320
        base[1]= (V67);
 
321
        base[2]= VV[30];
 
322
        base[3]= (V70);
 
323
        base[4]= VV[31];
 
324
        base[5]= number_plus((V70),(V69));
 
325
        vs_top=(vs_base=base+0)+6;
 
326
        Lstring_equal();
 
327
        vs_top=sup;
 
328
        if((vs_base[0])==Cnil){
 
329
        goto T54;}
 
330
        {object V74 = Ct;
 
331
        VMR6(V74)}
 
332
T54:;
 
333
        V70= one_plus((V70));
 
334
        goto T49;}
 
335
}
 
336
/*      local entry for function PRINT-SYMBOL-APROPOS   */
 
337
 
 
338
static object LI7(V76)
 
339
 
 
340
register object V76;
 
341
{        VMB7 VMS7 VMV7
 
342
TTL:;
 
343
        (void)(prin1((V76),Cnil));
 
344
        base[0]= (V76);
 
345
        vs_top=(vs_base=base+0)+1;
 
346
        Lfboundp();
 
347
        vs_top=sup;
 
348
        if((vs_base[0])==Cnil){
 
349
        goto T67;}
 
350
        base[0]= (V76);
 
351
        vs_top=(vs_base=base+0)+1;
 
352
        Lspecial_form_p();
 
353
        vs_top=sup;
 
354
        if((vs_base[0])==Cnil){
 
355
        goto T72;}
 
356
        princ_str("  Special form",Cnil);
 
357
        goto T67;
 
358
T72:;
 
359
        base[0]= (V76);
 
360
        vs_top=(vs_base=base+0)+1;
 
361
        Lmacro_function();
 
362
        vs_top=sup;
 
363
        if((vs_base[0])==Cnil){
 
364
        goto T76;}
 
365
        princ_str("  Macro",Cnil);
 
366
        goto T67;
 
367
T76:;
 
368
        princ_str("  Function",Cnil);
 
369
T67:;
 
370
        base[0]= (V76);
 
371
        vs_top=(vs_base=base+0)+1;
 
372
        Lboundp();
 
373
        vs_top=sup;
 
374
        if((vs_base[0])==Cnil){
 
375
        goto T79;}
 
376
        base[0]= (V76);
 
377
        vs_top=(vs_base=base+0)+1;
 
378
        Lconstantp();
 
379
        vs_top=sup;
 
380
        if((vs_base[0])==Cnil){
 
381
        goto T85;}
 
382
        princ_str("  Constant: ",Cnil);
 
383
        goto T83;
 
384
T85:;
 
385
        princ_str("  has value: ",Cnil);
 
386
T83:;
 
387
        base[0]= (V76);
 
388
        vs_top=(vs_base=base+0)+1;
 
389
        Lsymbol_value();
 
390
        vs_top=sup;
 
391
        V77= vs_base[0];
 
392
        (void)(prin1(V77,Cnil));
 
393
T79:;
 
394
        {object V78 = terpri(Cnil);
 
395
        VMR7(V78)}
 
396
}
 
397
/*      function definition for APROPOS */
 
398
 
 
399
static L8()
 
400
{register object *base=vs_base;
 
401
        register object *sup=base+VM8; VC8
 
402
        vs_reserve(VM8);
 
403
        {object V79;
 
404
        object V80;
 
405
        if(vs_top-vs_base<1) too_few_arguments();
 
406
        if(vs_top-vs_base>2) too_many_arguments();
 
407
        V79=(base[0]);
 
408
        vs_base=vs_base+1;
 
409
        if(vs_base>=vs_top){vs_top=sup;goto T90;}
 
410
        V80=(base[1]);
 
411
        vs_top=sup;
 
412
        goto T91;
 
413
T90:;
 
414
        V80= Cnil;
 
415
T91:;
 
416
        V79= coerce_to_string((V79));
 
417
        if(((V80))==Cnil){
 
418
        goto T97;}
 
419
        {object V81;
 
420
        object V82;
 
421
        register object V83;
 
422
        base[2]= V80;
 
423
        vs_top=(vs_base=base+2)+1;
 
424
        Lpackagep();
 
425
        vs_top=sup;
 
426
        if((vs_base[0])==Cnil){
 
427
        goto T102;}
 
428
        V81= V80;
 
429
        goto T100;
 
430
T102:;
 
431
        base[2]= coerce_to_string(V80);
 
432
        vs_top=(vs_base=base+2)+1;
 
433
        Lfind_package();
 
434
        vs_top=sup;
 
435
        V81= vs_base[0];
 
436
T100:;
 
437
        V82= Cnil;
 
438
        V83= Cnil;
 
439
        {int V85;
 
440
        int V86;
 
441
        base[2]= (V81);
 
442
        vs_top=(vs_base=base+2)+1;
 
443
        (void) (*Lnk10)();
 
444
        if(vs_base>=vs_top){vs_top=sup;goto T108;}
 
445
        V85= fix(vs_base[0]);
 
446
        vs_base++;
 
447
        if(vs_base>=vs_top){vs_top=sup;goto T109;}
 
448
        V86= fix(vs_base[0]);
 
449
        vs_top=sup;
 
450
        goto T110;
 
451
T108:;
 
452
        V85= fix(Cnil);
 
453
T109:;
 
454
        V86= fix(Cnil);
 
455
T110:;
 
456
        {object V87;
 
457
        object V88;
 
458
        V89 = make_fixnum(V86);
 
459
        V90 = make_fixnum(V85);
 
460
        V87= number_plus(V89,V90);
 
461
        V88= small_fixnum(0);
 
462
T114:;
 
463
        if(!(number_compare((V88),(V87))>=0)){
 
464
        goto T115;}
 
465
        V82= Cnil;
 
466
        goto T99;
 
467
T115:;
 
468
        V91 = make_fixnum(V86);
 
469
        if(!(number_compare((V88),V91)<0)){
 
470
        goto T126;}
 
471
        base[3]= (V81);
 
472
        base[4]= (V88);
 
473
        vs_top=(vs_base=base+3)+2;
 
474
        siLpackage_internal();
 
475
        vs_top=sup;
 
476
        V83= vs_base[0];
 
477
        goto T124;
 
478
T126:;
 
479
        base[3]= (V81);
 
480
        V92 = make_fixnum(V86);
 
481
        base[4]= number_minus((V88),V92);
 
482
        vs_top=(vs_base=base+3)+2;
 
483
        siLpackage_external();
 
484
        vs_top=sup;
 
485
        V83= vs_base[0];
 
486
T124:;
 
487
T122:;
 
488
        if(((V83))!=Cnil){
 
489
        goto T132;}
 
490
        goto T123;
 
491
T132:;
 
492
        V82= car((V83));
 
493
        V93= coerce_to_string((V82));
 
494
        if(((*(LnkLI33))((V79),/* INLINE-ARGS */V93))==Cnil){
 
495
        goto T137;}
 
496
        (void)((*(LnkLI34))((V82)));
 
497
T137:;
 
498
        V83= cdr((V83));
 
499
        goto T122;
 
500
T123:;
 
501
        goto T120;
 
502
T120:;
 
503
        V88= one_plus((V88));
 
504
        goto T114;}}}
 
505
T99:;
 
506
        {object V94;
 
507
        base[2]= (V80);
 
508
        vs_top=(vs_base=base+2)+1;
 
509
        Lpackage_use_list();
 
510
        vs_top=sup;
 
511
        V94= vs_base[0];
 
512
T148:;
 
513
        if(((V94))!=Cnil){
 
514
        goto T149;}
 
515
        goto T95;
 
516
T149:;
 
517
        {object V95;
 
518
        register object V96;
 
519
        register object V97;
 
520
        {object V98;
 
521
        V98= car((V94));
 
522
        base[2]= (V98);
 
523
        vs_top=(vs_base=base+2)+1;
 
524
        Lpackagep();
 
525
        vs_top=sup;
 
526
        if((vs_base[0])==Cnil){
 
527
        goto T157;}
 
528
        V95= (V98);
 
529
        goto T154;
 
530
T157:;
 
531
        base[2]= coerce_to_string((V98));
 
532
        vs_top=(vs_base=base+2)+1;
 
533
        Lfind_package();
 
534
        vs_top=sup;
 
535
        V95= vs_base[0];}
 
536
T154:;
 
537
        V96= Cnil;
 
538
        V97= Cnil;
 
539
        {object V99;
 
540
        object V100;
 
541
        base[3]= (V95);
 
542
        vs_top=(vs_base=base+3)+1;
 
543
        (void) (*Lnk10)();
 
544
        vs_top=sup;
 
545
        V99= vs_base[0];
 
546
        V100= small_fixnum(0);
 
547
T165:;
 
548
        if(!(number_compare((V100),(V99))>=0)){
 
549
        goto T166;}
 
550
        V96= Cnil;
 
551
        goto T153;
 
552
T166:;
 
553
        base[3]= (V95);
 
554
        base[4]= (V100);
 
555
        vs_top=(vs_base=base+3)+2;
 
556
        siLpackage_external();
 
557
        vs_top=sup;
 
558
        V97= vs_base[0];
 
559
T173:;
 
560
        if(((V97))!=Cnil){
 
561
        goto T178;}
 
562
        goto T174;
 
563
T178:;
 
564
        V96= car((V97));
 
565
        V101= coerce_to_string((V96));
 
566
        if(((*(LnkLI33))((V79),/* INLINE-ARGS */V101))==Cnil){
 
567
        goto T183;}
 
568
        (void)((*(LnkLI34))((V96)));
 
569
T183:;
 
570
        V97= cdr((V97));
 
571
        goto T173;
 
572
T174:;
 
573
        goto T171;
 
574
T171:;
 
575
        V100= one_plus((V100));
 
576
        goto T165;}}
 
577
T153:;
 
578
        V94= cdr((V94));
 
579
        goto T148;}
 
580
T97:;
 
581
        {object V102;
 
582
        object V103;
 
583
        vs_base=vs_top;
 
584
        Llist_all_packages();
 
585
        vs_top=sup;
 
586
        V102= vs_base[0];
 
587
        V103= car((V102));
 
588
T197:;
 
589
        if(!(endp((V102)))){
 
590
        goto T198;}
 
591
        goto T95;
 
592
T198:;
 
593
        {object V104;
 
594
        register object V105;
 
595
        register object V106;
 
596
        base[4]= V103;
 
597
        vs_top=(vs_base=base+4)+1;
 
598
        Lpackagep();
 
599
        vs_top=sup;
 
600
        if((vs_base[0])==Cnil){
 
601
        goto T205;}
 
602
        V104= V103;
 
603
        goto T203;
 
604
T205:;
 
605
        base[4]= coerce_to_string(V103);
 
606
        vs_top=(vs_base=base+4)+1;
 
607
        Lfind_package();
 
608
        vs_top=sup;
 
609
        V104= vs_base[0];
 
610
T203:;
 
611
        V105= Cnil;
 
612
        V106= Cnil;
 
613
        {int V108;
 
614
        int V109;
 
615
        base[4]= (V104);
 
616
        vs_top=(vs_base=base+4)+1;
 
617
        (void) (*Lnk10)();
 
618
        if(vs_base>=vs_top){vs_top=sup;goto T211;}
 
619
        V108= fix(vs_base[0]);
 
620
        vs_base++;
 
621
        if(vs_base>=vs_top){vs_top=sup;goto T212;}
 
622
        V109= fix(vs_base[0]);
 
623
        vs_top=sup;
 
624
        goto T213;
 
625
T211:;
 
626
        V108= fix(Cnil);
 
627
T212:;
 
628
        V109= fix(Cnil);
 
629
T213:;
 
630
        {object V110;
 
631
        register object V111;
 
632
        V112 = make_fixnum(V109);
 
633
        V113 = make_fixnum(V108);
 
634
        V110= number_plus(V112,V113);
 
635
        V111= small_fixnum(0);
 
636
T217:;
 
637
        if(!(number_compare((V111),(V110))>=0)){
 
638
        goto T218;}
 
639
        V105= Cnil;
 
640
        goto T202;
 
641
T218:;
 
642
        V114 = make_fixnum(V109);
 
643
        if(!(number_compare((V111),V114)<0)){
 
644
        goto T229;}
 
645
        base[5]= (V104);
 
646
        base[6]= (V111);
 
647
        vs_top=(vs_base=base+5)+2;
 
648
        siLpackage_internal();
 
649
        vs_top=sup;
 
650
        V106= vs_base[0];
 
651
        goto T227;
 
652
T229:;
 
653
        base[5]= (V104);
 
654
        V115 = make_fixnum(V109);
 
655
        base[6]= number_minus((V111),V115);
 
656
        vs_top=(vs_base=base+5)+2;
 
657
        siLpackage_external();
 
658
        vs_top=sup;
 
659
        V106= vs_base[0];
 
660
T227:;
 
661
T225:;
 
662
        if(((V106))!=Cnil){
 
663
        goto T235;}
 
664
        goto T226;
 
665
T235:;
 
666
        V105= car((V106));
 
667
        V116= coerce_to_string((V105));
 
668
        if(((*(LnkLI33))((V79),/* INLINE-ARGS */V116))==Cnil){
 
669
        goto T240;}
 
670
        (void)((*(LnkLI34))((V105)));
 
671
T240:;
 
672
        V106= cdr((V106));
 
673
        goto T225;
 
674
T226:;
 
675
        goto T223;
 
676
T223:;
 
677
        V111= one_plus((V111));
 
678
        goto T217;}}}
 
679
T202:;
 
680
        V102= cdr((V102));
 
681
        V103= car((V102));
 
682
        goto T197;}
 
683
T95:;
 
684
        vs_base=vs_top=base+2;
 
685
        vs_base[0]=Cnil;
 
686
        return;
 
687
        }
 
688
}
 
689
/*      local entry for function APROPOS-LIST   */
 
690
 
 
691
static object LI9(V117,va_alist)
 
692
        object V117;
 
693
        va_dcl 
 
694
{       
 
695
        va_list ap;
 
696
        int narg = VFUN_NARGS; VMB9 VMS9 VMV9
 
697
        {object V118;
 
698
        object V119;
 
699
        if(narg <1) too_few_arguments();
 
700
        V118= V117;
 
701
        narg = narg - 1;
 
702
        if (narg <= 0) goto T253;
 
703
        else {
 
704
        va_start(ap);
 
705
        V119= va_arg(ap,object);}
 
706
        --narg; goto T254;
 
707
T253:;
 
708
        V119= Cnil;
 
709
T254:;
 
710
        {register object V120;
 
711
        V120= Cnil;
 
712
        V120= Cnil;
 
713
        V118= coerce_to_string((V118));
 
714
        if(((V119))==Cnil){
 
715
        goto T263;}
 
716
        {object V121;
 
717
        object V122;
 
718
        object V123;
 
719
        base[0]= V119;
 
720
        vs_top=(vs_base=base+0)+1;
 
721
        Lpackagep();
 
722
        vs_top=sup;
 
723
        if((vs_base[0])==Cnil){
 
724
        goto T268;}
 
725
        V121= V119;
 
726
        goto T266;
 
727
T268:;
 
728
        base[0]= coerce_to_string(V119);
 
729
        vs_top=(vs_base=base+0)+1;
 
730
        Lfind_package();
 
731
        vs_top=sup;
 
732
        V121= vs_base[0];
 
733
T266:;
 
734
        V122= Cnil;
 
735
        V123= Cnil;
 
736
        {int V125;
 
737
        int V126;
 
738
        base[0]= (V121);
 
739
        vs_top=(vs_base=base+0)+1;
 
740
        (void) (*Lnk10)();
 
741
        if(vs_base>=vs_top){vs_top=sup;goto T274;}
 
742
        V125= fix(vs_base[0]);
 
743
        vs_base++;
 
744
        if(vs_base>=vs_top){vs_top=sup;goto T275;}
 
745
        V126= fix(vs_base[0]);
 
746
        vs_top=sup;
 
747
        goto T276;
 
748
T274:;
 
749
        V125= fix(Cnil);
 
750
T275:;
 
751
        V126= fix(Cnil);
 
752
T276:;
 
753
        {object V127;
 
754
        object V128;
 
755
        V129 = make_fixnum(V126);
 
756
        V130 = make_fixnum(V125);
 
757
        V127= number_plus(V129,V130);
 
758
        V128= small_fixnum(0);
 
759
T280:;
 
760
        if(!(number_compare((V128),(V127))>=0)){
 
761
        goto T281;}
 
762
        V122= Cnil;
 
763
        goto T265;
 
764
T281:;
 
765
        V131 = make_fixnum(V126);
 
766
        if(!(number_compare((V128),V131)<0)){
 
767
        goto T292;}
 
768
        base[1]= (V121);
 
769
        base[2]= (V128);
 
770
        vs_top=(vs_base=base+1)+2;
 
771
        siLpackage_internal();
 
772
        vs_top=sup;
 
773
        V123= vs_base[0];
 
774
        goto T290;
 
775
T292:;
 
776
        base[1]= (V121);
 
777
        V132 = make_fixnum(V126);
 
778
        base[2]= number_minus((V128),V132);
 
779
        vs_top=(vs_base=base+1)+2;
 
780
        siLpackage_external();
 
781
        vs_top=sup;
 
782
        V123= vs_base[0];
 
783
T290:;
 
784
T288:;
 
785
        if(((V123))!=Cnil){
 
786
        goto T298;}
 
787
        goto T289;
 
788
T298:;
 
789
        V122= car((V123));
 
790
        V133= coerce_to_string((V122));
 
791
        if(((*(LnkLI33))((V118),/* INLINE-ARGS */V133))==Cnil){
 
792
        goto T303;}
 
793
        V120= make_cons((V122),(V120));
 
794
T303:;
 
795
        V123= cdr((V123));
 
796
        goto T288;
 
797
T289:;
 
798
        goto T286;
 
799
T286:;
 
800
        V128= one_plus((V128));
 
801
        goto T280;}}}
 
802
T265:;
 
803
        {object V134;
 
804
        base[0]= (V119);
 
805
        vs_top=(vs_base=base+0)+1;
 
806
        Lpackage_use_list();
 
807
        vs_top=sup;
 
808
        V134= vs_base[0];
 
809
T315:;
 
810
        if(((V134))!=Cnil){
 
811
        goto T316;}
 
812
        goto T261;
 
813
T316:;
 
814
        {object V135;
 
815
        register object V136;
 
816
        register object V137;
 
817
        {object V138;
 
818
        V138= car((V134));
 
819
        base[0]= (V138);
 
820
        vs_top=(vs_base=base+0)+1;
 
821
        Lpackagep();
 
822
        vs_top=sup;
 
823
        if((vs_base[0])==Cnil){
 
824
        goto T324;}
 
825
        V135= (V138);
 
826
        goto T321;
 
827
T324:;
 
828
        base[0]= coerce_to_string((V138));
 
829
        vs_top=(vs_base=base+0)+1;
 
830
        Lfind_package();
 
831
        vs_top=sup;
 
832
        V135= vs_base[0];}
 
833
T321:;
 
834
        V136= Cnil;
 
835
        V137= Cnil;
 
836
        {int V139;
 
837
        int V140;
 
838
        base[0]= (V135);
 
839
        vs_top=(vs_base=base+0)+1;
 
840
        (void) (*Lnk10)();
 
841
        if(vs_base>=vs_top){vs_top=sup;goto T330;}
 
842
        V139= fix(vs_base[0]);
 
843
        vs_base++;
 
844
        if(vs_base>=vs_top){vs_top=sup;goto T331;}
 
845
        V140= fix(vs_base[0]);
 
846
        vs_top=sup;
 
847
        goto T332;
 
848
T330:;
 
849
        V139= fix(Cnil);
 
850
T331:;
 
851
        V140= fix(Cnil);
 
852
T332:;
 
853
        {object V141;
 
854
        register object V142;
 
855
        V143 = make_fixnum(V140);
 
856
        V144 = make_fixnum(V139);
 
857
        V141= number_plus(V143,V144);
 
858
        V142= small_fixnum(0);
 
859
T336:;
 
860
        if(!(number_compare((V142),(V141))>=0)){
 
861
        goto T337;}
 
862
        V136= Cnil;
 
863
        goto T320;
 
864
T337:;
 
865
        V145 = make_fixnum(V140);
 
866
        if(!(number_compare((V142),V145)<0)){
 
867
        goto T348;}
 
868
        base[1]= (V135);
 
869
        base[2]= (V142);
 
870
        vs_top=(vs_base=base+1)+2;
 
871
        siLpackage_internal();
 
872
        vs_top=sup;
 
873
        V137= vs_base[0];
 
874
        goto T346;
 
875
T348:;
 
876
        base[1]= (V135);
 
877
        V146 = make_fixnum(V140);
 
878
        base[2]= number_minus((V142),V146);
 
879
        vs_top=(vs_base=base+1)+2;
 
880
        siLpackage_external();
 
881
        vs_top=sup;
 
882
        V137= vs_base[0];
 
883
T346:;
 
884
T344:;
 
885
        if(((V137))!=Cnil){
 
886
        goto T354;}
 
887
        goto T345;
 
888
T354:;
 
889
        V136= car((V137));
 
890
        V147= coerce_to_string((V136));
 
891
        if(((*(LnkLI33))((V118),/* INLINE-ARGS */V147))==Cnil){
 
892
        goto T359;}
 
893
        V120= make_cons((V136),(V120));
 
894
T359:;
 
895
        V137= cdr((V137));
 
896
        goto T344;
 
897
T345:;
 
898
        goto T342;
 
899
T342:;
 
900
        V142= one_plus((V142));
 
901
        goto T336;}}}
 
902
T320:;
 
903
        V134= cdr((V134));
 
904
        goto T315;}
 
905
T263:;
 
906
        {object V148;
 
907
        object V149;
 
908
        vs_base=vs_top;
 
909
        Llist_all_packages();
 
910
        vs_top=sup;
 
911
        V148= vs_base[0];
 
912
        V149= car((V148));
 
913
T374:;
 
914
        if(!(endp((V148)))){
 
915
        goto T375;}
 
916
        goto T261;
 
917
T375:;
 
918
        {object V150;
 
919
        register object V151;
 
920
        register object V152;
 
921
        base[2]= V149;
 
922
        vs_top=(vs_base=base+2)+1;
 
923
        Lpackagep();
 
924
        vs_top=sup;
 
925
        if((vs_base[0])==Cnil){
 
926
        goto T382;}
 
927
        V150= V149;
 
928
        goto T380;
 
929
T382:;
 
930
        base[2]= coerce_to_string(V149);
 
931
        vs_top=(vs_base=base+2)+1;
 
932
        Lfind_package();
 
933
        vs_top=sup;
 
934
        V150= vs_base[0];
 
935
T380:;
 
936
        V151= Cnil;
 
937
        V152= Cnil;
 
938
        {int V154;
 
939
        int V155;
 
940
        base[2]= (V150);
 
941
        vs_top=(vs_base=base+2)+1;
 
942
        (void) (*Lnk10)();
 
943
        if(vs_base>=vs_top){vs_top=sup;goto T388;}
 
944
        V154= fix(vs_base[0]);
 
945
        vs_base++;
 
946
        if(vs_base>=vs_top){vs_top=sup;goto T389;}
 
947
        V155= fix(vs_base[0]);
 
948
        vs_top=sup;
 
949
        goto T390;
 
950
T388:;
 
951
        V154= fix(Cnil);
 
952
T389:;
 
953
        V155= fix(Cnil);
 
954
T390:;
 
955
        {object V156;
 
956
        register object V157;
 
957
        V158 = make_fixnum(V155);
 
958
        V159 = make_fixnum(V154);
 
959
        V156= number_plus(V158,V159);
 
960
        V157= small_fixnum(0);
 
961
T394:;
 
962
        if(!(number_compare((V157),(V156))>=0)){
 
963
        goto T395;}
 
964
        V151= Cnil;
 
965
        goto T379;
 
966
T395:;
 
967
        V160 = make_fixnum(V155);
 
968
        if(!(number_compare((V157),V160)<0)){
 
969
        goto T406;}
 
970
        base[3]= (V150);
 
971
        base[4]= (V157);
 
972
        vs_top=(vs_base=base+3)+2;
 
973
        siLpackage_internal();
 
974
        vs_top=sup;
 
975
        V152= vs_base[0];
 
976
        goto T404;
 
977
T406:;
 
978
        base[3]= (V150);
 
979
        V161 = make_fixnum(V155);
 
980
        base[4]= number_minus((V157),V161);
 
981
        vs_top=(vs_base=base+3)+2;
 
982
        siLpackage_external();
 
983
        vs_top=sup;
 
984
        V152= vs_base[0];
 
985
T404:;
 
986
T402:;
 
987
        if(((V152))!=Cnil){
 
988
        goto T412;}
 
989
        goto T403;
 
990
T412:;
 
991
        V151= car((V152));
 
992
        V162= coerce_to_string((V151));
 
993
        if(((*(LnkLI33))((V118),/* INLINE-ARGS */V162))==Cnil){
 
994
        goto T417;}
 
995
        V120= make_cons((V151),(V120));
 
996
T417:;
 
997
        V152= cdr((V152));
 
998
        goto T402;
 
999
T403:;
 
1000
        goto T400;
 
1001
T400:;
 
1002
        V157= one_plus((V157));
 
1003
        goto T394;}}}
 
1004
T379:;
 
1005
        V148= cdr((V148));
 
1006
        V149= car((V148));
 
1007
        goto T374;}
 
1008
T261:;
 
1009
        {object V163 = (V120);
 
1010
        VMR9(V163)}}}
 
1011
        }
 
1012
static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],&LnkLI34,1,ap);} /* PRINT-SYMBOL-APROPOS */
 
1013
static object  LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[33],&LnkLI33,2,ap);} /* SUBSTRINGP */
 
1014
static LnkT10(){ call_or_link(VV[10],&Lnk10);} /* PACKAGE-SIZE */
 
1015
static LnkT32(){ call_or_link(VV[32],&Lnk32);} /* FIND-DECLARATIONS */