← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to pcl/c/pcl_defclass.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
pcl/c/pcl_defclass.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_defclass.h"
 
4
void init_pcl_defclass(){do_init(VV);}
 
5
/*      local entry for function MAKE-TOP-LEVEL-FORM    */
 
6
 
 
7
static object LI3(V4,V5,V6)
 
8
 
 
9
object V4;object V5;object V6;
 
10
{        VMB1 VMS1 VMV1
 
11
        bds_check;
 
12
        goto TTL;
 
13
TTL:;
 
14
        base[0]= (V4);
 
15
        vs_base=vs_top;
 
16
        L4(base);
 
17
        vs_top=sup;
 
18
        {object V7;
 
19
        bds_bind(VV[0],Cnil);
 
20
        vs_base=vs_top;
 
21
        L4(base);
 
22
        vs_top=sup;
 
23
        base[3]= vs_base[0];
 
24
        vs_top=(vs_base=base+3)+1;
 
25
        Lgensym();
 
26
        vs_top=sup;
 
27
        V7= vs_base[0];
 
28
        base[3]= VV[1];
 
29
        vs_top=(vs_base=base+3)+1;
 
30
        Lgensym();
 
31
        vs_top=sup;
 
32
        V8= list(4,VV[3],(V7),Cnil,(V6));
 
33
        {object V9 = list(4,VV[2],(V5),/* INLINE-ARGS */V8,make_cons((V7),Cnil));
 
34
        bds_unwind1;
 
35
        VMR1(V9)}}
 
36
        base[0]=base[0];
 
37
        return Cnil;
 
38
}
 
39
/*      local entry for function MAKE-PROGN     */
 
40
 
 
41
static object LI5(object first,...)
 
42
{       
 
43
        va_list ap;
 
44
        int narg = VFUN_NARGS; VMB2 VMS2 VMV2
 
45
        {object V10;
 
46
        va_start(ap,first);
 
47
        narg= narg - 0;
 
48
        V11 = list_vector_new(narg,first,ap);
 
49
        V10= V11;
 
50
        base[0]= Cnil;
 
51
        base[1]= (V10);
 
52
        vs_top=(vs_base=base+1)+1;
 
53
        L6(base);
 
54
        vs_top=sup;
 
55
        {object V12 = make_cons(VV[7],base[0]);
 
56
        VMR2(V12)}
 
57
        va_end(ap);
 
58
        base[0]=base[0];
 
59
        return Cnil;}
 
60
        }
 
61
/*      macro definition for DEFCLASS   */
 
62
 
 
63
static void L7()
 
64
{register object *base=vs_base;
 
65
        register object *sup=base+VM3; VC3
 
66
        vs_check;
 
67
        check_arg(2);
 
68
        vs_top=sup;
 
69
        {object V13=base[0]->c.c_cdr;
 
70
        if(endp(V13))invalid_macro_call();
 
71
        base[2]= (V13->c.c_car);
 
72
        V13=V13->c.c_cdr;
 
73
        if(endp(V13))invalid_macro_call();
 
74
        base[3]= (V13->c.c_car);
 
75
        V13=V13->c.c_cdr;
 
76
        if(endp(V13))invalid_macro_call();
 
77
        base[4]= (V13->c.c_car);
 
78
        V13=V13->c.c_cdr;
 
79
        base[5]= V13;}
 
80
        base[6]= (*(LnkLI95))(base[2],base[3],base[4],base[5]);
 
81
        vs_top=(vs_base=base+6)+1;
 
82
        return;
 
83
}
 
84
/*      local entry for function EXPAND-DEFCLASS        */
 
85
 
 
86
static object LI8(V18,V19,V20,V21)
 
87
 
 
88
register object V18;object V19;object V20;register object V21;
 
89
{        VMB4 VMS4 VMV4
 
90
        bds_check;
 
91
        goto TTL;
 
92
TTL:;
 
93
        base[0]= (V19);
 
94
        vs_top=(vs_base=base+0)+1;
 
95
        Lcopy_tree();
 
96
        vs_top=sup;
 
97
        V19= vs_base[0];
 
98
        base[0]= (V20);
 
99
        vs_top=(vs_base=base+0)+1;
 
100
        Lcopy_tree();
 
101
        vs_top=sup;
 
102
        V20= vs_base[0];
 
103
        base[0]= (V21);
 
104
        vs_top=(vs_base=base+0)+1;
 
105
        Lcopy_tree();
 
106
        vs_top=sup;
 
107
        V21= vs_base[0];
 
108
        {register object V22;
 
109
        V22= VV[11];
 
110
        {register object V23;
 
111
        register object V24;
 
112
        V23= (V21);
 
113
        V24= CMPcar((V23));
 
114
        goto T21;
 
115
T21:;
 
116
        if(!(((V23))==Cnil)){
 
117
        goto T22;}
 
118
        goto T17;
 
119
        goto T22;
 
120
T22:;
 
121
        if(type_of((V24))==t_cons||((V24))==Cnil){
 
122
        goto T28;}
 
123
        base[1]= VV[12];
 
124
        base[2]= (V24);
 
125
        vs_top=(vs_base=base+1)+2;
 
126
        Lerror();
 
127
        vs_top=sup;
 
128
        goto T26;
 
129
        goto T28;
 
130
T28:;
 
131
        if(!((CMPcar((V24)))==(VV[13]))){
 
132
        goto T26;}
 
133
        if(((*(LnkLI96))(CMPcadr((V24))))!=Cnil){
 
134
        goto T34;}
 
135
        base[1]= VV[14];
 
136
        base[2]= CMPcadr((V24));
 
137
        vs_top=(vs_base=base+1)+2;
 
138
        Lerror();
 
139
        vs_top=sup;
 
140
        goto T34;
 
141
T34:;
 
142
        V22= CMPcadr((V24));
 
143
        base[1]= (V24);
 
144
        base[2]= (V21);
 
145
        vs_top=(vs_base=base+1)+2;
 
146
        (void) (*Lnk97)();
 
147
        vs_top=sup;
 
148
        V21= vs_base[0];
 
149
        goto T17;
 
150
        goto T26;
 
151
T26:;
 
152
        V23= CMPcdr((V23));
 
153
        V24= CMPcar((V23));
 
154
        goto T21;}
 
155
        goto T17;
 
156
T17:;
 
157
        bds_bind(VV[18],Cnil);
 
158
        bds_bind(VV[17],Cnil);
 
159
        bds_bind(VV[16],Cnil);
 
160
        bds_bind(VV[15],Cnil);
 
161
        {object V25;
 
162
        object V26;
 
163
        object V27;
 
164
        {object V28;
 
165
        object V29= (V20);
 
166
        if(V29==Cnil){
 
167
        V25= Cnil;
 
168
        goto T50;}
 
169
        base[4]=V28=MMcons(Cnil,Cnil);
 
170
        goto T51;
 
171
T51:;
 
172
        (V28->c.c_car)= (*(LnkLI98))((V18),(V29->c.c_car));
 
173
        if((V29=MMcdr(V29))==Cnil){
 
174
        V25= base[4];
 
175
        goto T50;}
 
176
        V28=MMcdr(V28)=MMcons(Cnil,Cnil);
 
177
        goto T51;}
 
178
        goto T50;
 
179
T50:;
 
180
        {object V31;
 
181
        object V32= (V21);
 
182
        if(V32==Cnil){
 
183
        V26= Cnil;
 
184
        goto T53;}
 
185
        base[4]=V31=MMcons(Cnil,Cnil);
 
186
        goto T54;
 
187
T54:;
 
188
        (V31->c.c_car)= (*(LnkLI99))((V18),(V32->c.c_car));
 
189
        if((V32=MMcdr(V32))==Cnil){
 
190
        V26= base[4];
 
191
        goto T53;}
 
192
        V31=MMcdr(V31)=MMcons(Cnil,Cnil);
 
193
        goto T54;}
 
194
        goto T53;
 
195
T53:;
 
196
        if(((VV[9]->s.s_dbind))==(VV[19])){
 
197
        goto T57;}
 
198
        V27= Cnil;
 
199
        goto T56;
 
200
        goto T57;
 
201
T57:;
 
202
        {object V34;
 
203
        V34= (VFUN_NARGS=2,(*(LnkLI100))((V22),Cnil));
 
204
        if((V34)==Cnil){
 
205
        V27= Cnil;
 
206
        goto T56;}
 
207
        base[4]= (V34);
 
208
        base[5]= (VV[8]->s.s_dbind);
 
209
        vs_top=(vs_base=base+4)+2;
 
210
        (void) (*Lnk101)();
 
211
        vs_top=sup;
 
212
        V27= vs_base[0];}
 
213
        goto T56;
 
214
T56:;
 
215
        (void)((*(LnkLI102))((VV[17]->s.s_dbind)));
 
216
        {object V35;
 
217
        V36= list(2,VV[20],(V18));
 
218
        if(((V27))==Cnil){
 
219
        goto T66;}
 
220
        V37= VV[21];
 
221
        goto T64;
 
222
        goto T66;
 
223
T66:;
 
224
        V37= (VV[10]->s.s_dbind);
 
225
        goto T64;
 
226
T64:;
 
227
        {object V39;
 
228
        object V40= Cnil;
 
229
        if(V40==Cnil){
 
230
        base[4]= Cnil;
 
231
        goto T69;}
 
232
        base[5]=V39=MMcons(Cnil,Cnil);
 
233
        goto T70;
 
234
T70:;
 
235
        (V39->c.c_car)= list(2,VV[22],list(3,VV[23],VV[24],(V40->c.c_car)));
 
236
        if((V40=MMcdr(V40))==Cnil){
 
237
        base[4]= base[5];
 
238
        goto T69;}
 
239
        V39=MMcdr(V39)=MMcons(Cnil,Cnil);
 
240
        goto T70;}
 
241
        goto T69;
 
242
T69:;
 
243
        {object V42;
 
244
        object V43= Cnil;
 
245
        if(V43==Cnil){
 
246
        base[5]= Cnil;
 
247
        goto T72;}
 
248
        base[6]=V42=MMcons(Cnil,Cnil);
 
249
        goto T73;
 
250
T73:;
 
251
        (V42->c.c_car)= list(2,VV[22],list(3,VV[23],VV[25],(V43->c.c_car)));
 
252
        if((V43=MMcdr(V43))==Cnil){
 
253
        base[5]= base[6];
 
254
        goto T72;}
 
255
        V42=MMcdr(V42)=MMcons(Cnil,Cnil);
 
256
        goto T73;}
 
257
        goto T72;
 
258
T72:;
 
259
        base[8]= (VV[18]->s.s_dbind);
 
260
        {object V46;
 
261
        object V47= base[8];
 
262
        if(V47==Cnil){
 
263
        V45= Cnil;
 
264
        goto T76;}
 
265
        base[7]=V46=MMcons(Cnil,Cnil);
 
266
        goto T77;
 
267
T77:;
 
268
        (V46->c.c_car)= CMPcdr((V47->c.c_car));
 
269
        if((V47=MMcdr(V47))==Cnil){
 
270
        V45= base[7];
 
271
        goto T76;}
 
272
        V46=MMcdr(V46)=MMcons(Cnil,Cnil);
 
273
        goto T77;}
 
274
        goto T76;
 
275
T76:;
 
276
        V48= list(2,VV[28],(V18));
 
277
        V49= list(2,VV[28],(V22));
 
278
        V50= list(2,VV[28],(V19));
 
279
        V51= make_cons(VV[29],(V25));
 
280
        if(((V27))==Cnil){
 
281
        goto T82;}
 
282
        base[7]= VV[30];
 
283
        goto T80;
 
284
        goto T82;
 
285
T82:;
 
286
        base[7]= Cnil;
 
287
        goto T80;
 
288
T80:;
 
289
        {object V53;
 
290
        V53= (V26);
 
291
         vs_top=base+8;
 
292
         while(V53!=Cnil)
 
293
         {vs_push((V53)->c.c_car);V53=(V53)->c.c_cdr;}
 
294
        vs_base=base+7;}
 
295
        Lappend();
 
296
        vs_top=sup;
 
297
        V52= vs_base[0];
 
298
        V54= make_cons(VV[29],V52);
 
299
        V55= list(3,VV[26],V45,list(7,VV[27],/* INLINE-ARGS */V48,/* INLINE-ARGS */V49,/* INLINE-ARGS */V50,/* INLINE-ARGS */V51,/* INLINE-ARGS */V54,list(2,VV[28],(VV[17]->s.s_dbind))));
 
300
        base[6]= make_cons(/* INLINE-ARGS */V55,Cnil);
 
301
        vs_top=(vs_base=base+4)+3;
 
302
        Lappend();
 
303
        vs_top=sup;
 
304
        V38= vs_base[0];
 
305
        V56= make_cons(VV[7],V38);
 
306
        V35= (*(LnkLI103))(/* INLINE-ARGS */V36,V37,/* INLINE-ARGS */V56);
 
307
        if(((V27))==Cnil){
 
308
        goto T86;}
 
309
        base[4]= (V35);
 
310
        vs_top=(vs_base=base+4)+1;
 
311
        Leval();
 
312
        vs_top=sup;
 
313
        base[4]= (VFUN_NARGS=1,(*(LnkLI100))((V18)));
 
314
        vs_top=(vs_base=base+4)+1;
 
315
        (void) (*Lnk104)(Lclptr104);
 
316
        vs_top=sup;
 
317
        V57= vs_base[0];
 
318
        {object V58 = list(3,VV[7],V57,(V35));
 
319
        bds_unwind1;
 
320
        bds_unwind1;
 
321
        bds_unwind1;
 
322
        bds_unwind1;
 
323
        VMR4(V58)}
 
324
        goto T86;
 
325
T86:;
 
326
        if(!(((VV[9]->s.s_dbind))==(VV[19]))){
 
327
        goto T92;}
 
328
        {register object x= VV[31],V59= (VV[10]->s.s_dbind);
 
329
        while(V59!=Cnil)
 
330
        if(eql(x,V59->c.c_car)){
 
331
        goto T92;
 
332
        }else V59=V59->c.c_cdr;}
 
333
        (void)((*(LnkLI105))((V18)));
 
334
        goto T92;
 
335
T92:;
 
336
        {object V60 = (V35);
 
337
        bds_unwind1;
 
338
        bds_unwind1;
 
339
        bds_unwind1;
 
340
        bds_unwind1;
 
341
        VMR4(V60)}}}}
 
342
        base[0]=base[0];
 
343
        return Cnil;
 
344
}
 
345
/*      local entry for function MAKE-INITFUNCTION      */
 
346
 
 
347
static object LI9(V62)
 
348
 
 
349
register object V62;
 
350
{        VMB5 VMS5 VMV5
 
351
        goto TTL;
 
352
TTL:;
 
353
        if(((V62))==(Ct)){
 
354
        goto T97;}
 
355
        if(!(equal((V62),VV[32]))){
 
356
        goto T98;}
 
357
        goto T97;
 
358
T97:;
 
359
        {object V63 = VV[33];
 
360
        VMR5(V63)}
 
361
        goto T98;
 
362
T98:;
 
363
        if(((V62))==(Cnil)){
 
364
        goto T102;}
 
365
        if(!(equal((V62),VV[34]))){
 
366
        goto T103;}
 
367
        goto T102;
 
368
T102:;
 
369
        {object V64 = VV[35];
 
370
        VMR5(V64)}
 
371
        goto T103;
 
372
T103:;
 
373
        if(eql((V62),small_fixnum(0))){
 
374
        goto T107;}
 
375
        if(!(equal((V62),VV[36]))){
 
376
        goto T108;}
 
377
        goto T107;
 
378
T107:;
 
379
        {object V65 = VV[37];
 
380
        VMR5(V65)}
 
381
        goto T108;
 
382
T108:;
 
383
        {register object V66;
 
384
        {register object x= (V62),V67= (VV[18]->s.s_dbind);
 
385
        while(V67!=Cnil)
 
386
        if(equal(x,V67->c.c_car->c.c_car) &&V67->c.c_car != Cnil){
 
387
        V66= (V67->c.c_car);
 
388
        goto T112;
 
389
        }else V67=V67->c.c_cdr;
 
390
        V66= Cnil;}
 
391
        goto T112;
 
392
T112:;
 
393
        if(((V66))!=Cnil){
 
394
        goto T113;}
 
395
        vs_base=vs_top;
 
396
        Lgensym();
 
397
        vs_top=sup;
 
398
        V68= vs_base[0];
 
399
        V66= list(3,(V62),V68,list(2,VV[38],list(3,VV[39],Cnil,(V62))));
 
400
        (VV[18]->s.s_dbind)= make_cons(V66,(VV[18]->s.s_dbind));
 
401
        goto T113;
 
402
T113:;
 
403
        {object V70 = CMPcadr((V66));
 
404
        VMR5(V70)}}
 
405
        base[0]=base[0];
 
406
        return Cnil;
 
407
}
 
408
/*      local entry for function CANONICALIZE-SLOT-SPECIFICATION        */
 
409
 
 
410
static object LI10(V73,V74)
 
411
 
 
412
object V73;register object V74;
 
413
{        VMB6 VMS6 VMV6
 
414
        goto TTL;
 
415
TTL:;
 
416
        if(!(type_of((V74))==t_symbol)){
 
417
        goto T121;}
 
418
        if((type_of((V74))==t_symbol&&((V74))->s.s_hpack==keyword_package)){
 
419
        goto T121;}
 
420
        {register object x= (V74),V75= VV[40];
 
421
        while(V75!=Cnil)
 
422
        if(x==(V75->c.c_car)){
 
423
        goto T121;
 
424
        }else V75=V75->c.c_cdr;}
 
425
        {object V76 = list(2,VV[28],list(2,VV[41],(V74)));
 
426
        VMR6(V76)}
 
427
        goto T121;
 
428
T121:;
 
429
        if(type_of((V74))==t_cons){
 
430
        goto T128;}
 
431
        base[0]= VV[42];
 
432
        base[1]= (V74);
 
433
        vs_top=(vs_base=base+0)+2;
 
434
        Lerror();
 
435
        vs_top=sup;
 
436
        {object V77 = vs_base[0];
 
437
        VMR6(V77)}
 
438
        goto T128;
 
439
T128:;
 
440
        if((CMPcdr((V74)))!=Cnil){
 
441
        goto T133;}
 
442
        {object V78 = list(2,VV[28],list(2,VV[41],CMPcar((V74))));
 
443
        VMR6(V78)}
 
444
        goto T133;
 
445
T133:;
 
446
        if((CMPcddr((V74)))!=Cnil){
 
447
        goto T136;}
 
448
        base[0]= VV[43];
 
449
        base[1]= (V73);
 
450
        base[2]= (V74);
 
451
        base[3]= list(3,CMPcar((V74)),VV[44],CMPcadr((V74)));
 
452
        vs_top=(vs_base=base+0)+4;
 
453
        Lerror();
 
454
        vs_top=sup;
 
455
        {object V79 = vs_base[0];
 
456
        VMR6(V79)}
 
457
        goto T136;
 
458
T136:;
 
459
        {object V80;
 
460
        register object V81;
 
461
        register object V82;
 
462
        object V83;
 
463
        object V84;
 
464
        object V85;
 
465
        {object V86;
 
466
        V86= CMPcar((V74));
 
467
        V74= CMPcdr((V74));
 
468
        V80= (V86);}
 
469
        V81= Cnil;
 
470
        V82= Cnil;
 
471
        V83= Cnil;
 
472
        V84= make_cons(Cnil,Cnil);
 
473
        base[3]= (V74);
 
474
        base[4]= VV[44];
 
475
        base[5]= (V84);
 
476
        vs_top=(vs_base=base+3)+3;
 
477
        Lgetf();
 
478
        vs_top=sup;
 
479
        V85= vs_base[0];
 
480
        {register object V87;
 
481
        register object V88;
 
482
        register object V89;
 
483
        V87= (V74);
 
484
        V88= Cnil;
 
485
        V89= Cnil;
 
486
        goto T156;
 
487
T156:;
 
488
        if(((V87))!=Cnil){
 
489
        goto T158;}
 
490
        goto T154;
 
491
        goto T158;
 
492
T158:;
 
493
        {object V90;
 
494
        V90= CMPcar((V87));
 
495
        V87= CMPcdr((V87));
 
496
        V88= (V90);}
 
497
        if(((V87))!=Cnil){
 
498
        goto T166;}
 
499
        base[3]= VV[45];
 
500
        base[4]= VV[46];
 
501
        vs_top=(vs_base=base+3)+2;
 
502
        (void) (*Lnk106)();
 
503
        vs_top=sup;
 
504
        goto T166;
 
505
T166:;
 
506
        if(type_of((V88))==t_symbol){
 
507
        goto T171;}
 
508
        base[3]= VV[45];
 
509
        base[4]= VV[47];
 
510
        vs_top=(vs_base=base+3)+2;
 
511
        (void) (*Lnk106)();
 
512
        vs_top=sup;
 
513
        goto T171;
 
514
T171:;
 
515
        {object V91;
 
516
        V91= CMPcar((V87));
 
517
        V87= CMPcdr((V87));
 
518
        V89= (V91);}
 
519
        {object V92= (V88);
 
520
        if((V92!= VV[49]))goto T181;
 
521
        (VV[17]->s.s_dbind)= make_cons(V89,(VV[17]->s.s_dbind));
 
522
        V81= make_cons(V89,(V81));
 
523
        {object V95;
 
524
        V95= list(2,VV[48],(V89));
 
525
        V82= make_cons((V95),(V82));
 
526
        goto T157;}
 
527
        goto T181;
 
528
T181:;
 
529
        if((V92!= VV[50]))goto T188;
 
530
        V81= make_cons(V89,(V81));
 
531
        goto T157;
 
532
        goto T188;
 
533
T188:;
 
534
        if((V92!= VV[51]))goto T190;
 
535
        V82= make_cons(V89,(V82));
 
536
        goto T157;
 
537
        goto T190;
 
538
T190:;
 
539
        if((V92!= VV[52]))goto T192;
 
540
        V83= make_cons(V89,(V83));
 
541
        goto T157;
 
542
        goto T192;
 
543
T192:;}
 
544
        goto T157;
 
545
T157:;
 
546
        goto T156;}
 
547
        goto T154;
 
548
T154:;
 
549
        goto T197;
 
550
T197:;
 
551
        {object V99;
 
552
        object V100;
 
553
        base[3]= (V74);
 
554
        base[4]= VV[49];
 
555
        vs_top=(vs_base=base+3)+2;
 
556
        siLrem_f();
 
557
        if(vs_base>=vs_top){vs_top=sup;goto T204;}
 
558
        V99= vs_base[0];
 
559
        vs_base++;
 
560
        if(vs_base>=vs_top){vs_top=sup;goto T205;}
 
561
        V100= vs_base[0];
 
562
        vs_top=sup;
 
563
        goto T206;
 
564
        goto T204;
 
565
T204:;
 
566
        V99= Cnil;
 
567
        goto T205;
 
568
T205:;
 
569
        V100= Cnil;
 
570
        goto T206;
 
571
T206:;
 
572
        V74= (V99);
 
573
        if(((V100))!=Cnil){
 
574
        goto T198;}}
 
575
        goto T195;
 
576
        goto T198;
 
577
T198:;
 
578
        goto T197;
 
579
        goto T195;
 
580
T195:;
 
581
        goto T212;
 
582
T212:;
 
583
        {object V101;
 
584
        object V102;
 
585
        base[3]= (V74);
 
586
        base[4]= VV[50];
 
587
        vs_top=(vs_base=base+3)+2;
 
588
        siLrem_f();
 
589
        if(vs_base>=vs_top){vs_top=sup;goto T219;}
 
590
        V101= vs_base[0];
 
591
        vs_base++;
 
592
        if(vs_base>=vs_top){vs_top=sup;goto T220;}
 
593
        V102= vs_base[0];
 
594
        vs_top=sup;
 
595
        goto T221;
 
596
        goto T219;
 
597
T219:;
 
598
        V101= Cnil;
 
599
        goto T220;
 
600
T220:;
 
601
        V102= Cnil;
 
602
        goto T221;
 
603
T221:;
 
604
        V74= (V101);
 
605
        if(((V102))!=Cnil){
 
606
        goto T213;}}
 
607
        goto T210;
 
608
        goto T213;
 
609
T213:;
 
610
        goto T212;
 
611
        goto T210;
 
612
T210:;
 
613
        goto T227;
 
614
T227:;
 
615
        {object V103;
 
616
        object V104;
 
617
        base[3]= (V74);
 
618
        base[4]= VV[51];
 
619
        vs_top=(vs_base=base+3)+2;
 
620
        siLrem_f();
 
621
        if(vs_base>=vs_top){vs_top=sup;goto T234;}
 
622
        V103= vs_base[0];
 
623
        vs_base++;
 
624
        if(vs_base>=vs_top){vs_top=sup;goto T235;}
 
625
        V104= vs_base[0];
 
626
        vs_top=sup;
 
627
        goto T236;
 
628
        goto T234;
 
629
T234:;
 
630
        V103= Cnil;
 
631
        goto T235;
 
632
T235:;
 
633
        V104= Cnil;
 
634
        goto T236;
 
635
T236:;
 
636
        V74= (V103);
 
637
        if(((V104))!=Cnil){
 
638
        goto T228;}}
 
639
        goto T225;
 
640
        goto T228;
 
641
T228:;
 
642
        goto T227;
 
643
        goto T225;
 
644
T225:;
 
645
        goto T242;
 
646
T242:;
 
647
        {object V105;
 
648
        object V106;
 
649
        base[3]= (V74);
 
650
        base[4]= VV[52];
 
651
        vs_top=(vs_base=base+3)+2;
 
652
        siLrem_f();
 
653
        if(vs_base>=vs_top){vs_top=sup;goto T249;}
 
654
        V105= vs_base[0];
 
655
        vs_base++;
 
656
        if(vs_base>=vs_top){vs_top=sup;goto T250;}
 
657
        V106= vs_base[0];
 
658
        vs_top=sup;
 
659
        goto T251;
 
660
        goto T249;
 
661
T249:;
 
662
        V105= Cnil;
 
663
        goto T250;
 
664
T250:;
 
665
        V106= Cnil;
 
666
        goto T251;
 
667
T251:;
 
668
        V74= (V105);
 
669
        if(((V106))!=Cnil){
 
670
        goto T243;}}
 
671
        goto T240;
 
672
        goto T243;
 
673
T243:;
 
674
        goto T242;
 
675
        goto T240;
 
676
T240:;
 
677
        (VV[15]->s.s_dbind)= append((V82),(VV[15]->s.s_dbind));
 
678
        (VV[16]->s.s_dbind)= append((V81),(VV[16]->s.s_dbind));
 
679
        V107= list(2,VV[28],(V80));
 
680
        V108= list(2,VV[28],(V81));
 
681
        V109= list(2,VV[28],(V82));
 
682
        V110= list(2,VV[28],(V83));
 
683
        V74= list(9,VV[41],/* INLINE-ARGS */V107,VV[53],/* INLINE-ARGS */V108,VV[54],/* INLINE-ARGS */V109,VV[55],/* INLINE-ARGS */V110,list(2,VV[28],(V74)));
 
684
        if(!(((V85))==((V84)))){
 
685
        goto T262;}
 
686
        {object V111 = make_cons(VV[56],(V74));
 
687
        VMR6(V111)}
 
688
        goto T262;
 
689
T262:;
 
690
        V112= (*(LnkLI107))((V85));
 
691
        {object V113 = listA(4,VV[56],VV[57],/* INLINE-ARGS */V112,(V74));
 
692
        VMR6(V113)}}
 
693
        base[0]=base[0];
 
694
        return Cnil;
 
695
}
 
696
/*      local entry for function CANONICALIZE-DEFCLASS-OPTION   */
 
697
 
 
698
static object LI11(V116,V117)
 
699
 
 
700
object V116;object V117;
 
701
{        VMB7 VMS7 VMV7
 
702
        goto TTL;
 
703
TTL:;
 
704
        {object V118= CMPcar((V117));
 
705
        if((V118!= VV[108]))goto T264;
 
706
        {register object V119;
 
707
        V119= Cnil;
 
708
        {register object V120;
 
709
        register object V121;
 
710
        register object V122;
 
711
        V122= CMPcdr((V117));
 
712
        V120= Cnil;
 
713
        V121= Cnil;
 
714
        goto T268;
 
715
T268:;
 
716
        if(((V122))!=Cnil){
 
717
        goto T270;}
 
718
        goto T266;
 
719
        goto T270;
 
720
T270:;
 
721
        {register object V123;
 
722
        V123= CMPcar((V122));
 
723
        V122= CMPcdr((V122));
 
724
        V120= (V123);}
 
725
        {register object V124;
 
726
        V124= CMPcar((V122));
 
727
        V122= CMPcdr((V122));
 
728
        V121= (V124);}
 
729
        {register object V125;
 
730
        V126= list(2,VV[28],(V120));
 
731
        V127= (*(LnkLI107))((V121));
 
732
        V125= list(4,VV[29],/* INLINE-ARGS */V126,/* INLINE-ARGS */V127,list(2,VV[28],(V121)));
 
733
        V119= make_cons((V125),(V119));}
 
734
        goto T268;
 
735
        goto T266;
 
736
T266:;
 
737
        V128= nreverse((V119));
 
738
        {object V129 = list(2,VV[58],make_cons(VV[29],/* INLINE-ARGS */V128));
 
739
        VMR7(V129)}}}
 
740
        goto T264;
 
741
T264:;
 
742
        V130= list(2,VV[28],CMPcar((V117)));
 
743
        {object V131 = list(2,/* INLINE-ARGS */V130,list(2,VV[28],CMPcdr((V117))));
 
744
        VMR7(V131)}}
 
745
        base[0]=base[0];
 
746
        return Cnil;
 
747
}
 
748
/*      local entry for function EARLY-CLASS-DEFINITION */
 
749
 
 
750
static object LI12(V133)
 
751
 
 
752
object V133;
 
753
{        VMB8 VMS8 VMV8
 
754
        goto TTL;
 
755
TTL:;{object V134;
 
756
        base[0]= (V133);
 
757
        base[1]= (VV[59]->s.s_dbind);
 
758
        base[2]= VV[60];
 
759
        base[3]= (VV[109]->s.s_gfdef);
 
760
        vs_top=(vs_base=base+0)+4;
 
761
        (void) (*Lnk110)();
 
762
        vs_top=sup;
 
763
        V134= vs_base[0];
 
764
        if(V134==Cnil)goto T286;
 
765
        {object V135 = V134;
 
766
        VMR8(V135)}
 
767
        goto T286;
 
768
T286:;}
 
769
        base[0]= VV[61];
 
770
        base[1]= (V133);
 
771
        vs_top=(vs_base=base+0)+2;
 
772
        Lerror();
 
773
        vs_top=sup;
 
774
        {object V136 = vs_base[0];
 
775
        VMR8(V136)}
 
776
        base[0]=base[0];
 
777
        return Cnil;
 
778
}
 
779
/*      local entry for function MAKE-EARLY-CLASS-DEFINITION    */
 
780
 
 
781
static object LI13(V143,V144,V145,V146,V147,V148)
 
782
 
 
783
object V143;object V144;object V145;object V146;object V147;object V148;
 
784
{        VMB9 VMS9 VMV9
 
785
        goto TTL;
 
786
TTL:;
 
787
        {object V149 = list(7,VV[62],(V143),(V144),(V145),(V146),(V147),(V148));
 
788
        VMR9(V149)}
 
789
        return Cnil;
 
790
}
 
791
/*      local entry for function ECD-CLASS-NAME */
 
792
 
 
793
static object LI14(V151)
 
794
 
 
795
object V151;
 
796
{        VMB10 VMS10 VMV10
 
797
        goto TTL;
 
798
TTL:;
 
799
        {object V152 = CMPcadr((V151));
 
800
        VMR10(V152)}
 
801
        return Cnil;
 
802
}
 
803
/*      local entry for function ECD-SOURCE     */
 
804
 
 
805
static object LI15(V154)
 
806
 
 
807
object V154;
 
808
{        VMB11 VMS11 VMV11
 
809
        goto TTL;
 
810
TTL:;
 
811
        {object V155 = CMPcaddr((V154));
 
812
        VMR11(V155)}
 
813
        return Cnil;
 
814
}
 
815
/*      local entry for function ECD-METACLASS  */
 
816
 
 
817
static object LI16(V157)
 
818
 
 
819
object V157;
 
820
{        VMB12 VMS12 VMV12
 
821
        goto TTL;
 
822
TTL:;
 
823
        {object V158 = CMPcadddr((V157));
 
824
        VMR12(V158)}
 
825
        return Cnil;
 
826
}
 
827
/*      local entry for function ECD-SUPERCLASS-NAMES   */
 
828
 
 
829
static object LI17(V160)
 
830
 
 
831
object V160;
 
832
{        VMB13 VMS13 VMV13
 
833
        goto TTL;
 
834
TTL:;
 
835
        {object V161 = CMPcar(CMPcddddr((V160)));
 
836
        VMR13(V161)}
 
837
        return Cnil;
 
838
}
 
839
/*      local entry for function ECD-CANONICAL-SLOTS    */
 
840
 
 
841
static object LI18(V163)
 
842
 
 
843
object V163;
 
844
{        VMB14 VMS14 VMV14
 
845
        goto TTL;
 
846
TTL:;
 
847
        {object V164 = CMPcadr(CMPcddddr((V163)));
 
848
        VMR14(V164)}
 
849
        return Cnil;
 
850
}
 
851
/*      local entry for function ECD-OTHER-INITARGS     */
 
852
 
 
853
static object LI19(V166)
 
854
 
 
855
object V166;
 
856
{        VMB15 VMS15 VMV15
 
857
        goto TTL;
 
858
TTL:;
 
859
        {object V167 = CMPcaddr(CMPcddddr((V166)));
 
860
        VMR15(V167)}
 
861
        return Cnil;
 
862
}
 
863
/*      local entry for function CANONICAL-SLOT-NAME    */
 
864
 
 
865
static object LI20(V169)
 
866
 
 
867
object V169;
 
868
{        VMB16 VMS16 VMV16
 
869
        goto TTL;
 
870
TTL:;
 
871
        base[0]= (V169);
 
872
        base[1]= VV[41];
 
873
        vs_top=(vs_base=base+0)+2;
 
874
        Lgetf();
 
875
        vs_top=sup;
 
876
        {object V170 = vs_base[0];
 
877
        VMR16(V170)}
 
878
        base[0]=base[0];
 
879
        return Cnil;
 
880
}
 
881
/*      local entry for function EARLY-CLASS-SLOTS      */
 
882
 
 
883
static object LI21(V172)
 
884
 
 
885
object V172;
 
886
{        VMB17 VMS17 VMV17
 
887
        goto TTL;
 
888
TTL:;{object V174;
 
889
        {register object x= (V172),V175= (VV[63]->s.s_dbind);
 
890
        while(V175!=Cnil)
 
891
        if(eql(x,V175->c.c_car->c.c_car) &&V175->c.c_car != Cnil){
 
892
        V174= (V175->c.c_car);
 
893
        goto T298;
 
894
        }else V175=V175->c.c_cdr;
 
895
        V174= Cnil;}
 
896
        goto T298;
 
897
T298:;
 
898
        if(V174==Cnil)goto T297;
 
899
        V173= V174;
 
900
        goto T296;
 
901
        goto T297;
 
902
T297:;}
 
903
        {object V176;
 
904
        base[1]= (V172);
 
905
        vs_top=(vs_base=base+1)+1;
 
906
        (void) (*Lnk111)();
 
907
        vs_top=sup;
 
908
        V180= vs_base[0];
 
909
        {object V178;
 
910
        object V179= V180;
 
911
        if(V179==Cnil){
 
912
        V177= Cnil;
 
913
        goto T300;}
 
914
        base[0]=V178=MMcons(Cnil,Cnil);
 
915
        goto T301;
 
916
T301:;
 
917
        (V178->c.c_car)= (*(LnkLI112))((V179->c.c_car));
 
918
        if((V179=MMcdr(V179))==Cnil){
 
919
        V177= base[0];
 
920
        goto T300;}
 
921
        V178=MMcdr(V178)=MMcons(Cnil,Cnil);
 
922
        goto T301;}
 
923
        goto T300;
 
924
T300:;
 
925
        V176= make_cons((V172),V177);
 
926
        (VV[63]->s.s_dbind)= make_cons(V176,(VV[63]->s.s_dbind));
 
927
        V173= (V176);}
 
928
        goto T296;
 
929
T296:;
 
930
        {object V182 = CMPcdr(V173);
 
931
        VMR17(V182)}
 
932
        base[0]=base[0];
 
933
        return Cnil;
 
934
}
 
935
/*      local entry for function EARLY-CLASS-SIZE       */
 
936
 
 
937
static object LI22(V184)
 
938
 
 
939
object V184;
 
940
{        VMB18 VMS18 VMV18
 
941
        goto TTL;
 
942
TTL:;
 
943
        V185= (*(LnkLI113))((V184));
 
944
        {long V186 = (long)length(/* INLINE-ARGS */V185);
 
945
        VMR18((object)V186)}
 
946
}
 
947
/*      function definition for EARLY-COLLECT-INHERITANCE       */
 
948
 
 
949
static void L23()
 
950
{register object *base=vs_base;
 
951
        register object *sup=base+VM19; VC19
 
952
        vs_check;
 
953
        {register object V187;
 
954
        check_arg(1);
 
955
        V187=(base[0]);
 
956
        vs_top=sup;
 
957
        goto TTL;
 
958
TTL:;
 
959
        {object V188;
 
960
        V188= (*(LnkLI114))((V187));
 
961
        base[1]= (*(LnkLI115))((V188));
 
962
        base[2]= (V188);
 
963
        base[3]= (*(LnkLI116))((V188));
 
964
        {register object V189;
 
965
        register object V190;
 
966
        V189= Cnil;
 
967
        V190= Cnil;
 
968
        {register object V191;
 
969
        register object V192;
 
970
        V191= (VV[59]->s.s_dbind);
 
971
        V192= CMPcar((V191));
 
972
        goto T318;
 
973
T318:;
 
974
        if(!(((V191))==Cnil)){
 
975
        goto T319;}
 
976
        goto T314;
 
977
        goto T319;
 
978
T319:;
 
979
        V194= (*(LnkLI117))((V192));
 
980
        {register object x= (V187),V193= /* INLINE-ARGS */V194;
 
981
        while(V193!=Cnil)
 
982
        if(x==(V193->c.c_car)){
 
983
        goto T325;
 
984
        }else V193=V193->c.c_cdr;
 
985
        goto T323;}
 
986
        goto T325;
 
987
T325:;
 
988
        {register object V195;
 
989
        V195= (*(LnkLI109))((V192));
 
990
        if(((V189))!=Cnil){
 
991
        goto T328;}
 
992
        V190= make_cons((V195),Cnil);
 
993
        V189= (V190);
 
994
        goto T323;
 
995
        goto T328;
 
996
T328:;
 
997
        V197= make_cons((V195),Cnil);
 
998
        ((V190))->c.c_cdr = /* INLINE-ARGS */V197;
 
999
        V196= (V190);
 
1000
        V190= CMPcdr(V196);}
 
1001
        goto T323;
 
1002
T323:;
 
1003
        V191= CMPcdr((V191));
 
1004
        V192= CMPcar((V191));
 
1005
        goto T318;}
 
1006
        goto T314;
 
1007
T314:;
 
1008
        base[4]= (V189);}
 
1009
        vs_top=(vs_base=base+1)+4;
 
1010
        return;}
 
1011
        }
 
1012
}
 
1013
/*      local entry for function EARLY-COLLECT-SLOTS    */
 
1014
 
 
1015
static object LI24(V199)
 
1016
 
 
1017
object V199;
 
1018
{        VMB20 VMS20 VMV20
 
1019
        goto TTL;
 
1020
TTL:;
 
1021
        {object V200;
 
1022
        object V201;
 
1023
        register object V202;
 
1024
        {object V203;
 
1025
        object V204= (V199);
 
1026
        if(V204==Cnil){
 
1027
        V200= Cnil;
 
1028
        goto T339;}
 
1029
        base[3]=V203=MMcons(Cnil,Cnil);
 
1030
        goto T340;
 
1031
T340:;
 
1032
        (V203->c.c_car)= (*(LnkLI62))((V204->c.c_car));
 
1033
        if((V204=MMcdr(V204))==Cnil){
 
1034
        V200= base[3];
 
1035
        goto T339;}
 
1036
        V203=MMcdr(V203)=MMcons(Cnil,Cnil);
 
1037
        goto T340;}
 
1038
        goto T339;
 
1039
T339:;
 
1040
        {object V205;
 
1041
        object V206= (V200);
 
1042
        if(V206==Cnil){
 
1043
        V201= Cnil;
 
1044
        goto T342;}
 
1045
        base[3]=V205=MMcons(Cnil,Cnil);
 
1046
        goto T343;
 
1047
T343:;
 
1048
        (V205->c.c_car)= (*(LnkLI118))((V206->c.c_car));
 
1049
        if((V206=MMcdr(V206))==Cnil){
 
1050
        V201= base[3];
 
1051
        goto T342;}
 
1052
        V205=MMcdr(V205)=MMcons(Cnil,Cnil);
 
1053
        goto T343;}
 
1054
        goto T342;
 
1055
T342:;
 
1056
        {object V207;
 
1057
        V207= reverse((V201));
 
1058
         vs_top=base+3;
 
1059
         while(V207!=Cnil)
 
1060
         {vs_push((V207)->c.c_car);V207=(V207)->c.c_cdr;}
 
1061
        vs_base=base+3;}
 
1062
        Lappend();
 
1063
        vs_top=sup;
 
1064
        V202= vs_base[0];
 
1065
        {register object V208;
 
1066
        register object V209;
 
1067
        V208= (V202);
 
1068
        V209= CMPcar((V208));
 
1069
        goto T351;
 
1070
T351:;
 
1071
        if(!(((V208))==Cnil)){
 
1072
        goto T352;}
 
1073
        goto T347;
 
1074
        goto T352;
 
1075
T352:;
 
1076
        {register object V210;
 
1077
        V210= (*(LnkLI112))((V209));
 
1078
        {register object V211;
 
1079
        register object V212;
 
1080
        {register object x= (V209),V214= (V202);
 
1081
        while(V214!=Cnil)
 
1082
        if(x==(V214->c.c_car)){
 
1083
        V213= V214;
 
1084
        goto T359;
 
1085
        }else V214=V214->c.c_cdr;
 
1086
        V213= Cnil;}
 
1087
        goto T359;
 
1088
T359:;
 
1089
        V211= CMPcdr(V213);
 
1090
        V212= CMPcar((V211));
 
1091
        goto T362;
 
1092
T362:;
 
1093
        if(!(((V211))==Cnil)){
 
1094
        goto T363;}
 
1095
        goto T356;
 
1096
        goto T363;
 
1097
T363:;
 
1098
        V215= (*(LnkLI112))((V212));
 
1099
        if(!(((V210))==(/* INLINE-ARGS */V215))){
 
1100
        goto T367;}
 
1101
        base[6]= VV[64];
 
1102
        base[7]= (V210);
 
1103
        vs_top=(vs_base=base+6)+2;
 
1104
        Lerror();
 
1105
        vs_top=sup;
 
1106
        goto T367;
 
1107
T367:;
 
1108
        V211= CMPcdr((V211));
 
1109
        V212= CMPcar((V211));
 
1110
        goto T362;}}
 
1111
        goto T356;
 
1112
T356:;
 
1113
        V208= CMPcdr((V208));
 
1114
        V209= CMPcar((V208));
 
1115
        goto T351;}
 
1116
        goto T347;
 
1117
T347:;
 
1118
        {object V216 = (V202);
 
1119
        VMR20(V216)}}
 
1120
        base[0]=base[0];
 
1121
        return Cnil;
 
1122
}
 
1123
/*      local entry for function EARLY-COLLECT-CPL      */
 
1124
 
 
1125
static object LI25(V218)
 
1126
 
 
1127
object V218;
 
1128
{        VMB21 VMS21 VMV21
 
1129
        goto TTL;
 
1130
TTL:;
 
1131
        base[1]= (V218);
 
1132
        vs_top=(vs_base=base+1)+1;
 
1133
        L26(base);
 
1134
        vs_top=sup;
 
1135
        base[0]= vs_base[0];
 
1136
        base[1]= VV[65];
 
1137
        base[2]= Cnil;
 
1138
        base[3]= VV[66];
 
1139
        base[4]= (VV[119]->s.s_gfdef);
 
1140
        vs_top=(vs_base=base+0)+5;
 
1141
        (void) (*Lnk120)();
 
1142
        vs_top=sup;
 
1143
        {object V219 = vs_base[0];
 
1144
        VMR21(V219)}
 
1145
        base[0]=base[0];
 
1146
        return Cnil;
 
1147
}
 
1148
/*      local entry for function EARLY-COLLECT-DEFAULT-INITARGS */
 
1149
 
 
1150
static object LI27(V221)
 
1151
 
 
1152
object V221;
 
1153
{        VMB22 VMS22 VMV22
 
1154
        goto TTL;
 
1155
TTL:;
 
1156
        {register object V222;
 
1157
        V222= Cnil;
 
1158
        {register object V223;
 
1159
        object V224;
 
1160
        V223= (V221);
 
1161
        V224= CMPcar((V223));
 
1162
        goto T392;
 
1163
T392:;
 
1164
        if(!(((V223))==Cnil)){
 
1165
        goto T393;}
 
1166
        goto T388;
 
1167
        goto T393;
 
1168
T393:;
 
1169
        {object V225;
 
1170
        register object V226;
 
1171
        V225= (*(LnkLI62))((V224));
 
1172
        V226= (*(LnkLI121))((V225));
 
1173
        goto T401;
 
1174
T401:;
 
1175
        if(((V226))!=Cnil){
 
1176
        goto T403;}
 
1177
        goto T397;
 
1178
        goto T403;
 
1179
T403:;
 
1180
        {register object V227;
 
1181
        {register object V228;
 
1182
        V228= CMPcar((V226));
 
1183
        V226= CMPcdr((V226));
 
1184
        V227= (V228);}
 
1185
        if(((V227))==(VV[67])){
 
1186
        goto T406;}
 
1187
        base[3]= VV[68];
 
1188
        base[4]= (V227);
 
1189
        vs_top=(vs_base=base+3)+2;
 
1190
        Lerror();
 
1191
        vs_top=sup;}
 
1192
        goto T406;
 
1193
T406:;
 
1194
        {register object V230;
 
1195
        V230= CMPcar((V226));
 
1196
        V226= CMPcdr((V226));
 
1197
        V229= (V230);}
 
1198
        V231= reverse(V229);
 
1199
        V222= nconc((V222),/* INLINE-ARGS */V231);
 
1200
        goto T401;}
 
1201
        goto T397;
 
1202
T397:;
 
1203
        V223= CMPcdr((V223));
 
1204
        V224= CMPcar((V223));
 
1205
        goto T392;}
 
1206
        goto T388;
 
1207
T388:;
 
1208
        {object V232 = reverse((V222));
 
1209
        VMR22(V232)}}
 
1210
        base[0]=base[0];
 
1211
        return Cnil;
 
1212
}
 
1213
/*      local entry for function BOOTSTRAP-SLOT-INDEX   */
 
1214
 
 
1215
static object LI28(V235,V236)
 
1216
 
 
1217
object V235;object V236;
 
1218
{        VMB23 VMS23 VMV23
 
1219
        goto TTL;
 
1220
TTL:;{object V237;
 
1221
        base[0]= (V236);
 
1222
        base[1]= (*(LnkLI113))((V235));
 
1223
        vs_top=(vs_base=base+0)+2;
 
1224
        (void) (*Lnk122)();
 
1225
        vs_top=sup;
 
1226
        V237= vs_base[0];
 
1227
        if(V237==Cnil)goto T426;
 
1228
        {object V238 = V237;
 
1229
        VMR23(V238)}
 
1230
        goto T426;
 
1231
T426:;}
 
1232
        base[0]= VV[69];
 
1233
        base[1]= (V236);
 
1234
        vs_top=(vs_base=base+0)+2;
 
1235
        Lerror();
 
1236
        vs_top=sup;
 
1237
        {object V239 = vs_base[0];
 
1238
        VMR23(V239)}
 
1239
        base[0]=base[0];
 
1240
        return Cnil;
 
1241
}
 
1242
/*      macro definition for BOOTSTRAP-GET-SLOT */
 
1243
 
 
1244
static void L29()
 
1245
{register object *base=vs_base;
 
1246
        register object *sup=base+VM24; VC24
 
1247
        vs_check;
 
1248
        check_arg(2);
 
1249
        vs_top=sup;
 
1250
        {object V240=base[0]->c.c_cdr;
 
1251
        if(endp(V240))invalid_macro_call();
 
1252
        base[2]= (V240->c.c_car);
 
1253
        V240=V240->c.c_cdr;
 
1254
        if(endp(V240))invalid_macro_call();
 
1255
        base[3]= (V240->c.c_car);
 
1256
        V240=V240->c.c_cdr;
 
1257
        if(endp(V240))invalid_macro_call();
 
1258
        base[4]= (V240->c.c_car);
 
1259
        V240=V240->c.c_cdr;
 
1260
        if(!endp(V240))invalid_macro_call();}
 
1261
        V241= list(2,VV[71],base[3]);
 
1262
        base[5]= list(3,VV[70],/* INLINE-ARGS */V241,list(3,VV[72],base[2],base[4]));
 
1263
        vs_top=(vs_base=base+5)+1;
 
1264
        return;
 
1265
}
 
1266
/*      local entry for function BOOTSTRAP-SET-SLOT     */
 
1267
 
 
1268
static object LI30(V246,V247,V248,V249)
 
1269
 
 
1270
object V246;register object V247;object V248;object V249;
 
1271
{        VMB25 VMS25 VMV25
 
1272
        goto TTL;
 
1273
TTL:;
 
1274
        if(type_of(V247)==t_structure){
 
1275
        goto T436;}
 
1276
        goto T434;
 
1277
        goto T436;
 
1278
T436:;
 
1279
        if(!(((V247)->str.str_def)==(VV[73]))){
 
1280
        goto T434;}
 
1281
        V250= STREF(object,(V247),4);
 
1282
        goto T432;
 
1283
        goto T434;
 
1284
T434:;{object V252;
 
1285
        V252= (VV[75]->s.s_dbind);
 
1286
        base[0]= small_fixnum(14);
 
1287
        base[1]= (V247);
 
1288
        vs_top=(vs_base=base+0)+2;
 
1289
        (void) (*Lnk123)();
 
1290
        vs_top=sup;
 
1291
        V253= vs_base[0];
 
1292
        if(!((V252)==(CMPcar(V253)))){
 
1293
        goto T439;}}
 
1294
        V250= CMPcar(((V247))->cc.cc_turbo[12]);
 
1295
        goto T432;
 
1296
        goto T439;
 
1297
T439:;
 
1298
        base[0]= VV[76];
 
1299
        vs_top=(vs_base=base+0)+1;
 
1300
        Lerror();
 
1301
        vs_top=sup;
 
1302
        V250= vs_base[0];
 
1303
        goto T432;
 
1304
T432:;
 
1305
        V254= (*(LnkLI72))((V246),(V248));
 
1306
        {object V255 = ((V250)->v.v_self[fix(/* INLINE-ARGS */V254)]=((V249)));
 
1307
        VMR25(V255)}
 
1308
        base[0]=base[0];
 
1309
        return Cnil;
 
1310
}
 
1311
/*      local entry for function EARLY-CLASS-NAME       */
 
1312
 
 
1313
static object LI31(V257)
 
1314
 
 
1315
register object V257;
 
1316
{        VMB26 VMS26 VMV26
 
1317
        goto TTL;
 
1318
TTL:;
 
1319
        if(type_of(V257)==t_structure){
 
1320
        goto T449;}
 
1321
        goto T447;
 
1322
        goto T449;
 
1323
T449:;
 
1324
        if(!(((V257)->str.str_def)==(VV[77]))){
 
1325
        goto T447;}
 
1326
        V258= STREF(object,(V257),4);
 
1327
        goto T445;
 
1328
        goto T447;
 
1329
T447:;{object V260;
 
1330
        V260= (VV[75]->s.s_dbind);
 
1331
        base[0]= small_fixnum(14);
 
1332
        base[1]= (V257);
 
1333
        vs_top=(vs_base=base+0)+2;
 
1334
        (void) (*Lnk123)();
 
1335
        vs_top=sup;
 
1336
        V261= vs_base[0];
 
1337
        if(!((V260)==(CMPcar(V261)))){
 
1338
        goto T452;}}
 
1339
        V258= CMPcar(((V257))->cc.cc_turbo[12]);
 
1340
        goto T445;
 
1341
        goto T452;
 
1342
T452:;
 
1343
        base[0]= VV[76];
 
1344
        vs_top=(vs_base=base+0)+1;
 
1345
        Lerror();
 
1346
        vs_top=sup;
 
1347
        V258= vs_base[0];
 
1348
        goto T445;
 
1349
T445:;
 
1350
        V262= (*(LnkLI72))(VV[78],VV[79]);
 
1351
        {object V263 = (V258)->v.v_self[fix(/* INLINE-ARGS */V262)];
 
1352
        VMR26(V263)}
 
1353
        base[0]=base[0];
 
1354
        return Cnil;
 
1355
}
 
1356
/*      local entry for function EARLY-CLASS-PRECEDENCE-LIST    */
 
1357
 
 
1358
static object LI32(V265)
 
1359
 
 
1360
register object V265;
 
1361
{        VMB27 VMS27 VMV27
 
1362
        goto TTL;
 
1363
TTL:;
 
1364
        if(type_of(V265)==t_structure){
 
1365
        goto T462;}
 
1366
        goto T460;
 
1367
        goto T462;
 
1368
T462:;
 
1369
        if(!(((V265)->str.str_def)==(VV[80]))){
 
1370
        goto T460;}
 
1371
        V266= STREF(object,(V265),4);
 
1372
        goto T458;
 
1373
        goto T460;
 
1374
T460:;{object V268;
 
1375
        V268= (VV[75]->s.s_dbind);
 
1376
        base[0]= small_fixnum(14);
 
1377
        base[1]= (V265);
 
1378
        vs_top=(vs_base=base+0)+2;
 
1379
        (void) (*Lnk123)();
 
1380
        vs_top=sup;
 
1381
        V269= vs_base[0];
 
1382
        if(!((V268)==(CMPcar(V269)))){
 
1383
        goto T465;}}
 
1384
        V266= CMPcar(((V265))->cc.cc_turbo[12]);
 
1385
        goto T458;
 
1386
        goto T465;
 
1387
T465:;
 
1388
        base[0]= VV[76];
 
1389
        vs_top=(vs_base=base+0)+1;
 
1390
        Lerror();
 
1391
        vs_top=sup;
 
1392
        V266= vs_base[0];
 
1393
        goto T458;
 
1394
T458:;
 
1395
        V270= (*(LnkLI72))(VV[81],VV[82]);
 
1396
        {object V271 = (V266)->v.v_self[fix(/* INLINE-ARGS */V270)];
 
1397
        VMR27(V271)}
 
1398
        base[0]=base[0];
 
1399
        return Cnil;
 
1400
}
 
1401
/*      local entry for function EARLY-CLASS-NAME-OF    */
 
1402
 
 
1403
static object LI33(V273)
 
1404
 
 
1405
object V273;
 
1406
{        VMB28 VMS28 VMV28
 
1407
        goto TTL;
 
1408
TTL:;
 
1409
        V274= (*(LnkLI126))((V273));
 
1410
        {object V275 = (*(LnkLI125))(/* INLINE-ARGS */V274);
 
1411
        VMR28(V275)}
 
1412
        return Cnil;
 
1413
}
 
1414
/*      local entry for function EARLY-CLASS-SLOTDS     */
 
1415
 
 
1416
static object LI34(V277)
 
1417
 
 
1418
register object V277;
 
1419
{        VMB29 VMS29 VMV29
 
1420
        goto TTL;
 
1421
TTL:;
 
1422
        if(type_of(V277)==t_structure){
 
1423
        goto T475;}
 
1424
        goto T473;
 
1425
        goto T475;
 
1426
T475:;
 
1427
        if(!(((V277)->str.str_def)==(VV[83]))){
 
1428
        goto T473;}
 
1429
        V278= STREF(object,(V277),4);
 
1430
        goto T471;
 
1431
        goto T473;
 
1432
T473:;{object V280;
 
1433
        V280= (VV[75]->s.s_dbind);
 
1434
        base[0]= small_fixnum(14);
 
1435
        base[1]= (V277);
 
1436
        vs_top=(vs_base=base+0)+2;
 
1437
        (void) (*Lnk123)();
 
1438
        vs_top=sup;
 
1439
        V281= vs_base[0];
 
1440
        if(!((V280)==(CMPcar(V281)))){
 
1441
        goto T478;}}
 
1442
        V278= CMPcar(((V277))->cc.cc_turbo[12]);
 
1443
        goto T471;
 
1444
        goto T478;
 
1445
T478:;
 
1446
        base[0]= VV[76];
 
1447
        vs_top=(vs_base=base+0)+1;
 
1448
        Lerror();
 
1449
        vs_top=sup;
 
1450
        V278= vs_base[0];
 
1451
        goto T471;
 
1452
T471:;
 
1453
        V282= (*(LnkLI72))(VV[84],VV[85]);
 
1454
        {object V283 = (V278)->v.v_self[fix(/* INLINE-ARGS */V282)];
 
1455
        VMR29(V283)}
 
1456
        base[0]=base[0];
 
1457
        return Cnil;
 
1458
}
 
1459
/*      local entry for function EARLY-SLOT-DEFINITION-NAME     */
 
1460
 
 
1461
static object LI35(V285)
 
1462
 
 
1463
register object V285;
 
1464
{        VMB30 VMS30 VMV30
 
1465
        goto TTL;
 
1466
TTL:;
 
1467
        if(type_of(V285)==t_structure){
 
1468
        goto T488;}
 
1469
        goto T486;
 
1470
        goto T488;
 
1471
T488:;
 
1472
        if(!(((V285)->str.str_def)==(VV[86]))){
 
1473
        goto T486;}
 
1474
        V286= STREF(object,(V285),4);
 
1475
        goto T484;
 
1476
        goto T486;
 
1477
T486:;{object V288;
 
1478
        V288= (VV[75]->s.s_dbind);
 
1479
        base[0]= small_fixnum(14);
 
1480
        base[1]= (V285);
 
1481
        vs_top=(vs_base=base+0)+2;
 
1482
        (void) (*Lnk123)();
 
1483
        vs_top=sup;
 
1484
        V289= vs_base[0];
 
1485
        if(!((V288)==(CMPcar(V289)))){
 
1486
        goto T491;}}
 
1487
        V286= CMPcar(((V285))->cc.cc_turbo[12]);
 
1488
        goto T484;
 
1489
        goto T491;
 
1490
T491:;
 
1491
        base[0]= VV[76];
 
1492
        vs_top=(vs_base=base+0)+1;
 
1493
        Lerror();
 
1494
        vs_top=sup;
 
1495
        V286= vs_base[0];
 
1496
        goto T484;
 
1497
T484:;
 
1498
        V290= (*(LnkLI72))(VV[87],VV[79]);
 
1499
        {object V291 = (V286)->v.v_self[fix(/* INLINE-ARGS */V290)];
 
1500
        VMR30(V291)}
 
1501
        base[0]=base[0];
 
1502
        return Cnil;
 
1503
}
 
1504
/*      local entry for function EARLY-SLOT-DEFINITION-LOCATION */
 
1505
 
 
1506
static object LI36(V293)
 
1507
 
 
1508
register object V293;
 
1509
{        VMB31 VMS31 VMV31
 
1510
        goto TTL;
 
1511
TTL:;
 
1512
        if(type_of(V293)==t_structure){
 
1513
        goto T501;}
 
1514
        goto T499;
 
1515
        goto T501;
 
1516
T501:;
 
1517
        if(!(((V293)->str.str_def)==(VV[88]))){
 
1518
        goto T499;}
 
1519
        V294= STREF(object,(V293),4);
 
1520
        goto T497;
 
1521
        goto T499;
 
1522
T499:;{object V296;
 
1523
        V296= (VV[75]->s.s_dbind);
 
1524
        base[0]= small_fixnum(14);
 
1525
        base[1]= (V293);
 
1526
        vs_top=(vs_base=base+0)+2;
 
1527
        (void) (*Lnk123)();
 
1528
        vs_top=sup;
 
1529
        V297= vs_base[0];
 
1530
        if(!((V296)==(CMPcar(V297)))){
 
1531
        goto T504;}}
 
1532
        V294= CMPcar(((V293))->cc.cc_turbo[12]);
 
1533
        goto T497;
 
1534
        goto T504;
 
1535
T504:;
 
1536
        base[0]= VV[76];
 
1537
        vs_top=(vs_base=base+0)+1;
 
1538
        Lerror();
 
1539
        vs_top=sup;
 
1540
        V294= vs_base[0];
 
1541
        goto T497;
 
1542
T497:;
 
1543
        V298= (*(LnkLI72))(VV[87],VV[89]);
 
1544
        {object V299 = (V294)->v.v_self[fix(/* INLINE-ARGS */V298)];
 
1545
        VMR31(V299)}
 
1546
        base[0]=base[0];
 
1547
        return Cnil;
 
1548
}
 
1549
/*      local entry for function EARLY-ACCESSOR-METHOD-SLOT-NAME        */
 
1550
 
 
1551
static object LI37(V301)
 
1552
 
 
1553
register object V301;
 
1554
{        VMB32 VMS32 VMV32
 
1555
        goto TTL;
 
1556
TTL:;
 
1557
        if(type_of(V301)==t_structure){
 
1558
        goto T514;}
 
1559
        goto T512;
 
1560
        goto T514;
 
1561
T514:;
 
1562
        if(!(((V301)->str.str_def)==(VV[90]))){
 
1563
        goto T512;}
 
1564
        V302= STREF(object,(V301),4);
 
1565
        goto T510;
 
1566
        goto T512;
 
1567
T512:;{object V304;
 
1568
        V304= (VV[75]->s.s_dbind);
 
1569
        base[0]= small_fixnum(14);
 
1570
        base[1]= (V301);
 
1571
        vs_top=(vs_base=base+0)+2;
 
1572
        (void) (*Lnk123)();
 
1573
        vs_top=sup;
 
1574
        V305= vs_base[0];
 
1575
        if(!((V304)==(CMPcar(V305)))){
 
1576
        goto T517;}}
 
1577
        V302= CMPcar(((V301))->cc.cc_turbo[12]);
 
1578
        goto T510;
 
1579
        goto T517;
 
1580
T517:;
 
1581
        base[0]= VV[76];
 
1582
        vs_top=(vs_base=base+0)+1;
 
1583
        Lerror();
 
1584
        vs_top=sup;
 
1585
        V302= vs_base[0];
 
1586
        goto T510;
 
1587
T510:;
 
1588
        V306= (*(LnkLI72))(VV[91],VV[92]);
 
1589
        {object V307 = (V302)->v.v_self[fix(/* INLINE-ARGS */V306)];
 
1590
        VMR32(V307)}
 
1591
        base[0]=base[0];
 
1592
        return Cnil;
 
1593
}
 
1594
/*      local entry for function EARLY-CLASS-DIRECT-SUBCLASSES  */
 
1595
 
 
1596
static object LI38(V309)
 
1597
 
 
1598
register object V309;
 
1599
{        VMB33 VMS33 VMV33
 
1600
        goto TTL;
 
1601
TTL:;
 
1602
        if(type_of(V309)==t_structure){
 
1603
        goto T527;}
 
1604
        goto T525;
 
1605
        goto T527;
 
1606
T527:;
 
1607
        if(!(((V309)->str.str_def)==(VV[93]))){
 
1608
        goto T525;}
 
1609
        V310= STREF(object,(V309),4);
 
1610
        goto T523;
 
1611
        goto T525;
 
1612
T525:;{object V312;
 
1613
        V312= (VV[75]->s.s_dbind);
 
1614
        base[0]= small_fixnum(14);
 
1615
        base[1]= (V309);
 
1616
        vs_top=(vs_base=base+0)+2;
 
1617
        (void) (*Lnk123)();
 
1618
        vs_top=sup;
 
1619
        V313= vs_base[0];
 
1620
        if(!((V312)==(CMPcar(V313)))){
 
1621
        goto T530;}}
 
1622
        V310= CMPcar(((V309))->cc.cc_turbo[12]);
 
1623
        goto T523;
 
1624
        goto T530;
 
1625
T530:;
 
1626
        base[0]= VV[76];
 
1627
        vs_top=(vs_base=base+0)+1;
 
1628
        Lerror();
 
1629
        vs_top=sup;
 
1630
        V310= vs_base[0];
 
1631
        goto T523;
 
1632
T523:;
 
1633
        V314= (*(LnkLI72))(VV[78],VV[94]);
 
1634
        {object V315 = (V310)->v.v_self[fix(/* INLINE-ARGS */V314)];
 
1635
        VMR33(V315)}
 
1636
        base[0]=base[0];
 
1637
        return Cnil;
 
1638
}
 
1639
/*      local entry for function LOAD-DEFCLASS  */
 
1640
 
 
1641
static object LI39(V322,V323,V324,V325,V326,V327)
 
1642
 
 
1643
object V322;object V323;object V324;object V325;object V326;object V327;
 
1644
{        VMB34 VMS34 VMV34
 
1645
        goto TTL;
 
1646
TTL:;
 
1647
        base[0]= (V324);
 
1648
        vs_top=(vs_base=base+0)+1;
 
1649
        Lcopy_tree();
 
1650
        vs_top=sup;
 
1651
        V324= vs_base[0];
 
1652
        base[0]= (V325);
 
1653
        vs_top=(vs_base=base+0)+1;
 
1654
        Lcopy_tree();
 
1655
        vs_top=sup;
 
1656
        V325= vs_base[0];
 
1657
        base[0]= (V326);
 
1658
        vs_top=(vs_base=base+0)+1;
 
1659
        Lcopy_tree();
 
1660
        vs_top=sup;
 
1661
        V326= vs_base[0];
 
1662
        (void)((*(LnkLI102))((V327)));
 
1663
        if(!(((V323))==(VV[11]))){
 
1664
        goto T546;}
 
1665
        (void)((*(LnkLI105))((V322)));
 
1666
        goto T546;
 
1667
T546:;
 
1668
        {object V328;
 
1669
        object V329;
 
1670
        vs_base=vs_top;
 
1671
        (void) (*Lnk128)();
 
1672
        vs_top=sup;
 
1673
        V330= vs_base[0];
 
1674
        V328= (*(LnkLI127))((V322),V330,(V323),(V324),(V325),(V326));
 
1675
        base[0]= (V322);
 
1676
        base[1]= (VV[59]->s.s_dbind);
 
1677
        base[2]= VV[60];
 
1678
        base[3]= (VV[109]->s.s_gfdef);
 
1679
        vs_top=(vs_base=base+0)+4;
 
1680
        (void) (*Lnk110)();
 
1681
        vs_top=sup;
 
1682
        V329= vs_base[0];
 
1683
        base[0]= (V329);
 
1684
        base[1]= (VV[59]->s.s_dbind);
 
1685
        vs_top=(vs_base=base+0)+2;
 
1686
        (void) (*Lnk97)();
 
1687
        vs_top=sup;
 
1688
        V331= vs_base[0];
 
1689
        (VV[59]->s.s_dbind)= make_cons((V328),V331);
 
1690
        {object V332 = (V328);
 
1691
        VMR34(V332)}}
 
1692
        base[0]=base[0];
 
1693
        return Cnil;
 
1694
}
 
1695
/*      local function WALK     */
 
1696
 
 
1697
static void L26(base0)
 
1698
register object *base0;
 
1699
{       register object *base=vs_base;
 
1700
        register object *sup=base+VM35; VC35
 
1701
        vs_check;
 
1702
        {object V333;
 
1703
        check_arg(1);
 
1704
        V333=(base[0]);
 
1705
        vs_top=sup;
 
1706
        goto TTL;
 
1707
TTL:;
 
1708
        {object V334;
 
1709
        object V335;
 
1710
        V334= (*(LnkLI62))((V333));
 
1711
        V335= (*(LnkLI117))((V334));
 
1712
        {object V337;
 
1713
        {object V338;
 
1714
        object V339= (V335);
 
1715
        if(V339==Cnil){
 
1716
        V337= Cnil;
 
1717
        goto T564;}
 
1718
        base[3]=V338=MMcons(Cnil,Cnil);
 
1719
        goto T565;
 
1720
T565:;
 
1721
        (V338->c.c_car)= (*(LnkLI114))((V339->c.c_car));
 
1722
        if((V339=MMcdr(V339))==Cnil){
 
1723
        V337= base[3];
 
1724
        goto T564;}
 
1725
        V338=MMcdr(V338)=MMcons(Cnil,Cnil);
 
1726
        goto T565;}
 
1727
        goto T564;
 
1728
T564:;
 
1729
         vs_top=base+3;
 
1730
         while(V337!=Cnil)
 
1731
         {vs_push((V337)->c.c_car);V337=(V337)->c.c_cdr;}
 
1732
        vs_base=base+3;}
 
1733
        Lappend();
 
1734
        vs_top=sup;
 
1735
        V336= vs_base[0];
 
1736
        base[3]= make_cons((V333),V336);
 
1737
        vs_top=(vs_base=base+3)+1;
 
1738
        return;}
 
1739
        }
 
1740
}
 
1741
/*      local function COLLECT-FORMS    */
 
1742
 
 
1743
static void L6(base0)
 
1744
register object *base0;
 
1745
{       register object *base=vs_base;
 
1746
        register object *sup=base+VM36; VC36
 
1747
        vs_check;
 
1748
        {register object V340;
 
1749
        check_arg(1);
 
1750
        V340=(base[0]);
 
1751
        vs_top=sup;
 
1752
        goto TTL;
 
1753
TTL:;
 
1754
        if(((V340))==Cnil){
 
1755
        goto T568;}
 
1756
        base[1]= CMPcdr((V340));
 
1757
        vs_top=(vs_base=base+1)+1;
 
1758
        L6(base0);
 
1759
        vs_top=sup;
 
1760
        {object V341= CMPcar((V340));
 
1761
        if(!(type_of(V341)==t_cons||(V341)==Cnil)){
 
1762
        goto T573;}}
 
1763
        if(!((CMPcaar((V340)))==(VV[7]))){
 
1764
        goto T573;}
 
1765
        V340= CMPcdar((V340));
 
1766
        goto TTL;
 
1767
        return;
 
1768
        goto T573;
 
1769
T573:;
 
1770
        {object V342;
 
1771
        V342= CMPcar((V340));
 
1772
        base0[0]= make_cons((V342),base0[0]);
 
1773
        base[2]= base0[0];
 
1774
        vs_top=(vs_base=base+2)+1;
 
1775
        return;}
 
1776
        goto T568;
 
1777
T568:;
 
1778
        base[1]= Cnil;
 
1779
        vs_top=(vs_base=base+1)+1;
 
1780
        return;
 
1781
        }
 
1782
}
 
1783
/*      local function DEFINITION-NAME  */
 
1784
 
 
1785
static void L4(base0)
 
1786
register object *base0;
 
1787
{       register object *base=vs_base;
 
1788
        register object *sup=base+VM37; VC37
 
1789
        vs_check;
 
1790
        check_arg(0);
 
1791
        vs_top=sup;
 
1792
        goto TTL;
 
1793
TTL:;
 
1794
        if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){
 
1795
        goto T582;}
 
1796
        {register object x= CMPcar(base0[0]),V343= VV[4];
 
1797
        while(V343!=Cnil)
 
1798
        if(x==(V343->c.c_car)){
 
1799
        goto T585;
 
1800
        }else V343=V343->c.c_cdr;
 
1801
        goto T582;}
 
1802
        goto T585;
 
1803
T585:;
 
1804
        base[0]= Cnil;
 
1805
        base[1]= VV[5];
 
1806
        base[2]= (VFUN_NARGS=2,(*(LnkLI129))(CMPcar(base0[0]),Cnil));
 
1807
        base[3]= CMPcdr(base0[0]);
 
1808
        vs_top=(vs_base=base+0)+4;
 
1809
        Lformat();
 
1810
        return;
 
1811
        goto T582;
 
1812
T582:;
 
1813
        base[0]= Cnil;
 
1814
        base[1]= VV[6];
 
1815
        base[2]= base0[0];
 
1816
        vs_top=(vs_base=base+0)+3;
 
1817
        Lformat();
 
1818
        return;
 
1819
}
 
1820
static object  LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[129],(void **)(void *)&LnkLI129,first,ap);va_end(ap);return V1;} /* CAPITALIZE-WORDS */
 
1821
static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* LOAD-TRUENAME */
 
1822
static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,6,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-CLASS-DEFINITION */
 
1823
static object  LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
 
1824
static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-NAME */
 
1825
static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */
 
1826
static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
 
1827
static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* CCLOSURE-ENV-NTHCDR */
 
1828
static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* POSITION */
 
1829
static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */
 
1830
static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* REMOVE-DUPLICATES */
 
1831
static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */
 
1832
static object  LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[62],(void **)(void *)&LnkLI62,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DEFINITION */
 
1833
static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */
 
1834
static object  LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */
 
1835
static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-DEFAULT-INITARGS */
 
1836
static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-SLOTS */
 
1837
static object  LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-CPL */
 
1838
static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTS */
 
1839
static object  LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)(void *)&LnkLI112,1,first,ap);va_end(ap);return V1;} /* CANONICAL-SLOT-NAME */
 
1840
static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* EARLY-COLLECT-INHERITANCE */
 
1841
static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* FIND */
 
1842
static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* MAKE-INITFUNCTION */
 
1843
static void LnkT106(){ call_or_link(VV[106],(void **)(void *)&Lnk106);} /* SPECIFIC-ERROR */
 
1844
static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */
 
1845
static void LnkT104(ptr) object *ptr;{ call_or_link_closure(VV[104],(void **)(void *)&Lnk104,(void **)(void *)&Lclptr104);} /* CLASS-DEFSTRUCT-FORM */
 
1846
static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
 
1847
static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETFS-FOR-DEFCLASS */
 
1848
static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* *SUBTYPEP */
 
1849
static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[100],(void **)(void *)&LnkLI100,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
 
1850
static object  LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,2,first,ap);va_end(ap);return V1;} /* CANONICALIZE-DEFCLASS-OPTION */
 
1851
static object  LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,2,first,ap);va_end(ap);return V1;} /* CANONICALIZE-SLOT-SPECIFICATION */
 
1852
static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* REMOVE */
 
1853
static object  LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */
 
1854
static object  LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,4,first,ap);va_end(ap);return V1;} /* EXPAND-DEFCLASS */
 
1855
 
 
1856
#ifdef SYSTEM_SPECIAL_INIT
 
1857
SYSTEM_SPECIAL_INIT
 
1858
#endif
 
1859