← Back to branch summary

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

« back to all changes in this revision

Viewing changes to pcl/c/pcl_defcombin.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_defcombin.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_defcombin.h"
 
4
void init_pcl_defcombin(){do_init(VV);}
 
5
/*      macro definition for DEFINE-METHOD-COMBINATION  */
 
6
 
 
7
static void L1()
 
8
{register object *base=vs_base;
 
9
        register object *sup=base+VM1; VC1
 
10
        vs_check;
 
11
        check_arg(2);
 
12
        vs_top=sup;
 
13
        {object V1=base[0]->c.c_cdr;
 
14
        base[2]= V1;}
 
15
        if((CMPcddr(base[0]))==Cnil){
 
16
        goto T2;}
 
17
        {object V2= CMPcaddr(base[0]);
 
18
        if(!(type_of(V2)==t_cons||(V2)==Cnil)){
 
19
        goto T2;}}
 
20
        base[3]= (*(LnkLI139))(base[0]);
 
21
        vs_top=(vs_base=base+3)+1;
 
22
        return;
 
23
        goto T2;
 
24
T2:;
 
25
        base[3]= (*(LnkLI140))(base[0]);
 
26
        vs_top=(vs_base=base+3)+1;
 
27
        return;
 
28
}
 
29
/*      function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD :AROUND (GENERIC-FUNCTION METHOD-COMBINATION T))  */
 
30
 
 
31
static void L2()
 
32
{register object *base=vs_base;
 
33
        register object *sup=base+VM2; VC2
 
34
        vs_check;
 
35
        bds_check;
 
36
        {object V3;
 
37
        check_arg(5);
 
38
        V3=(base[0]);
 
39
        vs_top=sup;
 
40
        goto TTL;
 
41
TTL:;
 
42
        base[5]=make_cclosure_new(LC6,Cnil,Cnil,Cdata);
 
43
        base[5]=MMcons(base[5],Cnil);
 
44
        base[6]=make_cclosure_new(LC7,Cnil,base[5],Cdata);
 
45
        base[6]=MMcons(base[6],base[5]);
 
46
        base[7]= (base[5]->c.c_car);
 
47
        base[8]= (base[6]->c.c_car);
 
48
        bds_bind(VV[0],base[7]);
 
49
        bds_bind(VV[1],base[8]);
 
50
        vs_base=vs_top;
 
51
        L5(base);
 
52
        bds_unwind1;
 
53
        bds_unwind1;
 
54
        return;
 
55
        }
 
56
}
 
57
/*      local entry for function (FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))      */
 
58
 
 
59
static object LI8(V10,V11,V12,V13,V14)
 
60
 
 
61
object V10;object V11;object V12;object V13;object V14;
 
62
{        VMB3 VMS3 VMV3
 
63
        goto TTL;
 
64
TTL:;
 
65
        if(((V14))==Cnil){
 
66
        goto T12;}
 
67
        base[0]= VV[15];
 
68
        vs_top=(vs_base=base+0)+1;
 
69
        (void) (*Lnk141)();
 
70
        vs_top=sup;
 
71
        goto T12;
 
72
T12:;
 
73
        {object V16 = (VV[16]->s.s_dbind);
 
74
        VMR3(V16)}
 
75
        base[0]=base[0];
 
76
        return Cnil;
 
77
}
 
78
/*      function definition for Defclass SHORT-METHOD-COMBINATION9981   */
 
79
 
 
80
static void L9()
 
81
{register object *base=vs_base;
 
82
        register object *sup=base+VM4; VC4
 
83
        vs_check;
 
84
        check_arg(0);
 
85
        vs_top=sup;
 
86
        goto TTL;
 
87
TTL:;
 
88
        base[0]= VV[17];
 
89
        base[1]= VV[18];
 
90
        base[2]= VV[19];
 
91
        V17= listA(9,VV[5],VV[20],VV[21],VV[22],VV[23],Cnil,VV[24],VV[25],Cnil);
 
92
        base[3]= list(2,/* INLINE-ARGS */V17,listA(9,VV[5],VV[26],VV[21],VV[27],VV[23],Cnil,VV[24],VV[28],Cnil));
 
93
        base[4]= list(2,VV[29],VV[30]);
 
94
        base[5]= Cnil;
 
95
        symlispcall(VV[142],base+0,6);
 
96
        return;
 
97
}
 
98
/*      local entry for function EXPAND-SHORT-DEFCOMBIN */
 
99
 
 
100
static object LI10(V19)
 
101
 
 
102
register object V19;
 
103
{        VMB5 VMS5 VMV5
 
104
        goto TTL;
 
105
TTL:;
 
106
        {object V20;
 
107
        object V21;
 
108
        object V22;
 
109
        object V23;
 
110
        V20= CMPcadr((V19));
 
111
        base[4]= CMPcddr((V19));
 
112
        base[5]= VV[31];
 
113
        base[6]= VV[32];
 
114
        vs_top=(vs_base=base+4)+3;
 
115
        Lgetf();
 
116
        vs_top=sup;
 
117
        V21= vs_base[0];
 
118
        base[4]= CMPcddr((V19));
 
119
        base[5]= VV[33];
 
120
        base[6]= Cnil;
 
121
        vs_top=(vs_base=base+4)+3;
 
122
        Lgetf();
 
123
        vs_top=sup;
 
124
        V22= vs_base[0];
 
125
        base[4]= CMPcddr((V19));
 
126
        base[5]= VV[34];
 
127
        base[6]= (V20);
 
128
        vs_top=(vs_base=base+4)+3;
 
129
        Lgetf();
 
130
        vs_top=sup;
 
131
        V23= vs_base[0];
 
132
        V24= list(2,VV[35],(V20));
 
133
        V25= list(2,VV[38],(V20));
 
134
        V26= list(2,VV[38],(V23));
 
135
        V27= list(2,VV[38],(V22));
 
136
        V28= list(5,VV[37],/* INLINE-ARGS */V25,/* INLINE-ARGS */V26,/* INLINE-ARGS */V27,list(2,VV[38],(V21)));
 
137
        {object V29 = (*(LnkLI143))(/* INLINE-ARGS */V24,VV[36],/* INLINE-ARGS */V28);
 
138
        VMR5(V29)}}
 
139
        base[0]=base[0];
 
140
        return Cnil;
 
141
}
 
142
/*      function definition for LOAD-SHORT-DEFCOMBIN    */
 
143
 
 
144
static void L11()
 
145
{register object *base=vs_base;
 
146
        register object *sup=base+VM6; VC6
 
147
        vs_check;
 
148
        {object V30;
 
149
        check_arg(4);
 
150
        V30=(base[0]);
 
151
        base[1]=MMcons(base[1],Cnil);
 
152
        base[2]=MMcons(base[2],base[1]);
 
153
        base[3]=MMcons(base[3],base[2]);
 
154
        vs_top=sup;
 
155
        {object V31;
 
156
        object V32;
 
157
        object V33;
 
158
        vs_base=vs_top;
 
159
        (void) (*Lnk144)();
 
160
        vs_top=sup;
 
161
        V31= vs_base[0];
 
162
        V34= (VFUN_NARGS=1,(*(LnkLI145))(VV[39]));
 
163
        V35= (*(LnkLI146))((V30));
 
164
        V32= list(3,/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,(VV[40]->s.s_dbind));
 
165
        V36= (VV[148]->s.s_gfdef);
 
166
        V33= (VFUN_NARGS=4,(*(LnkLI147))(V36,Cnil,(V32),Cnil));
 
167
        base[7]=MMcons(Cnil,base[3]);
 
168
        base[8]= VV[41];
 
169
        base[9]= VV[42];
 
170
        base[10]= Cnil;
 
171
        base[11]= VV[43];
 
172
        base[12]= (V32);
 
173
        base[13]= VV[44];
 
174
        base[14]= VV[45];
 
175
        base[15]= VV[46];
 
176
        base[16]= 
 
177
        make_cclosure_new(LC28,Cnil,base[7],Cdata);
 
178
        base[17]= VV[47];
 
179
        base[18]= list(2,list(2,VV[35],(V30)),(V31));
 
180
        vs_top=(vs_base=base+8)+11;
 
181
        (void) (*Lnk149)(Lclptr149);
 
182
        vs_top=sup;
 
183
        (base[7]->c.c_car)= vs_base[0];
 
184
        if(((V33))==Cnil){
 
185
        goto T52;}
 
186
        base[8]=(VV[150]->s.s_gfdef);
 
187
        base[9]= (VV[148]->s.s_gfdef);
 
188
        base[10]= (V33);
 
189
        (void)simple_lispcall(base+8,2);
 
190
        goto T52;
 
191
T52:;
 
192
        base[8]=(VV[151]->s.s_gfdef);
 
193
        base[9]= (VV[148]->s.s_gfdef);
 
194
        base[10]= (base[7]->c.c_car);
 
195
        (void)simple_lispcall(base+8,2);
 
196
        base[8]= (V30);
 
197
        vs_top=(vs_base=base+8)+1;
 
198
        return;}
 
199
        }
 
200
}
 
201
/*      function definition for MAKE-SHORT-METHOD-COMBINATION   */
 
202
 
 
203
static void L12()
 
204
{register object *base=vs_base;
 
205
        register object *sup=base+VM7; VC7
 
206
        vs_check;
 
207
        {object V37;
 
208
        register object V38;
 
209
        object V39;
 
210
        object V40;
 
211
        object V41;
 
212
        object V42;
 
213
        check_arg(6);
 
214
        V37=(base[0]);
 
215
        V38=(base[1]);
 
216
        V39=(base[2]);
 
217
        V40=(base[3]);
 
218
        V41=(base[4]);
 
219
        V42=(base[5]);
 
220
        vs_top=sup;
 
221
        goto TTL;
 
222
TTL:;
 
223
        if(((V38))!=Cnil){
 
224
        goto T62;}
 
225
        V38= VV[48];
 
226
        goto T60;
 
227
        goto T62;
 
228
T62:;
 
229
        {object V43;
 
230
        V43= (equal((V38),VV[49])?Ct:Cnil);
 
231
        if(((V43))==Cnil){
 
232
        goto T67;}
 
233
        goto T60;
 
234
        goto T67;
 
235
T67:;
 
236
        {object V44;
 
237
        V44= (equal((V38),VV[50])?Ct:Cnil);
 
238
        if(((V44))==Cnil){
 
239
        goto T71;}
 
240
        goto T60;
 
241
        goto T71;
 
242
T71:;
 
243
        base[6]= VV[51];
 
244
        base[7]= (V37);
 
245
        vs_top=(vs_base=base+6)+2;
 
246
        (void) (*Lnk141)();
 
247
        vs_top=sup;}}
 
248
        goto T60;
 
249
T60:;
 
250
        base[6]= VV[17];
 
251
        base[7]= VV[52];
 
252
        base[8]= (V37);
 
253
        base[9]= VV[53];
 
254
        base[10]= (V38);
 
255
        base[11]= VV[34];
 
256
        base[12]= (V39);
 
257
        base[13]= VV[33];
 
258
        base[14]= (V40);
 
259
        base[15]= VV[47];
 
260
        base[16]= (V41);
 
261
        base[17]= VV[31];
 
262
        base[18]= (V42);
 
263
        vs_top=(vs_base=base+6)+13;
 
264
        (void) (*Lnk149)(Lclptr149);
 
265
        return;
 
266
        }
 
267
}
 
268
/*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))   */
 
269
 
 
270
static object LI13(V50,V51,V52,V53,V54)
 
271
 
 
272
object V50;object V51;object V52;object V53;object V54;
 
273
{        VMB8 VMS8 VMV8
 
274
        goto TTL;
 
275
TTL:;
 
276
        {object V56;
 
277
        object V57;
 
278
        object V58;
 
279
        object V59;
 
280
        register object V60;
 
281
        base[1]= (V53);
 
282
        vs_top=(vs_base=base+1)+1;
 
283
        (void) (*Lnk152)(Lclptr152);
 
284
        vs_top=sup;
 
285
        base[0]= vs_base[0];
 
286
        base[1]= (V53);
 
287
        vs_top=(vs_base=base+1)+1;
 
288
        (void) (*Lnk153)(Lclptr153);
 
289
        vs_top=sup;
 
290
        V56= vs_base[0];
 
291
        base[1]= (V53);
 
292
        vs_top=(vs_base=base+1)+1;
 
293
        (void) (*Lnk154)(Lclptr154);
 
294
        vs_top=sup;
 
295
        V57= vs_base[0];
 
296
        base[1]= (V53);
 
297
        vs_top=(vs_base=base+1)+1;
 
298
        (void) (*Lnk155)(Lclptr155);
 
299
        vs_top=sup;
 
300
        V61= vs_base[0];
 
301
        V58= CMPcar(V61);
 
302
        V59= Cnil;
 
303
        V60= Cnil;
 
304
        {register object V62;
 
305
        register object V63;
 
306
        V62= (V54);
 
307
        V63= CMPcar((V62));
 
308
        goto T103;
 
309
T103:;
 
310
        if(!(((V62))==Cnil)){
 
311
        goto T104;}
 
312
        goto T99;
 
313
        goto T104;
 
314
T104:;
 
315
        {register object V64;
 
316
        base[2]= (V63);
 
317
        vs_top=(vs_base=base+2)+1;
 
318
        (void) (*Lnk156)(Lclptr156);
 
319
        vs_top=sup;
 
320
        V64= vs_base[0];
 
321
        if(((V64))!=Cnil){
 
322
        goto T112;}
 
323
        base[2]= (V63);
 
324
        base[3]= VV[54];
 
325
        vs_top=(vs_base=base+2)+2;
 
326
        L15(base);
 
327
        vs_top=sup;
 
328
        goto T108;
 
329
        goto T112;
 
330
T112:;
 
331
        if((CMPcdr((V64)))==Cnil){
 
332
        goto T117;}
 
333
        base[2]= (V63);
 
334
        base[3]= VV[55];
 
335
        vs_top=(vs_base=base+2)+2;
 
336
        L15(base);
 
337
        vs_top=sup;
 
338
        goto T108;
 
339
        goto T117;
 
340
T117:;
 
341
        if(!((CMPcar((V64)))==(VV[56]))){
 
342
        goto T122;}
 
343
        V59= make_cons(V63,(V59));
 
344
        goto T108;
 
345
        goto T122;
 
346
T122:;
 
347
        if(!((CMPcar((V64)))==(base[0]))){
 
348
        goto T126;}
 
349
        V60= make_cons(V63,(V60));
 
350
        goto T108;
 
351
        goto T126;
 
352
T126:;
 
353
        base[2]= (V63);
 
354
        base[3]= VV[57];
 
355
        vs_top=(vs_base=base+2)+2;
 
356
        L15(base);
 
357
        vs_top=sup;}
 
358
        goto T108;
 
359
T108:;
 
360
        V62= CMPcdr((V62));
 
361
        V63= CMPcar((V62));
 
362
        goto T103;}
 
363
        goto T99;
 
364
T99:;
 
365
        V59= nreverse((V59));
 
366
        if(((V58))==(VV[59])){
 
367
        goto T138;}
 
368
        V60= nreverse((V60));
 
369
        goto T138;
 
370
T138:;
 
371
        {object V67;
 
372
        if((CMPcdr((V60)))!=Cnil){
 
373
        goto T144;}
 
374
        if(((V57))==Cnil){
 
375
        goto T144;}
 
376
        V67= list(3,VV[60],CMPcar((V60)),Cnil);
 
377
        goto T142;
 
378
        goto T144;
 
379
T144:;
 
380
        {object V69;
 
381
        object V70= (V60);
 
382
        if(V70==Cnil){
 
383
        V68= Cnil;
 
384
        goto T148;}
 
385
        base[1]=V69=MMcons(Cnil,Cnil);
 
386
        goto T149;
 
387
T149:;
 
388
        (V69->c.c_car)= list(3,VV[60],(V70->c.c_car),Cnil);
 
389
        if((V70=MMcdr(V70))==Cnil){
 
390
        V68= base[1];
 
391
        goto T148;}
 
392
        V69=MMcdr(V69)=MMcons(Cnil,Cnil);
 
393
        goto T149;}
 
394
        goto T148;
 
395
T148:;
 
396
        V67= make_cons((V56),V68);
 
397
        goto T142;
 
398
T142:;
 
399
        if(((V60))!=Cnil){
 
400
        goto T152;}
 
401
        V72= list(2,VV[38],base[0]);
 
402
        {object V73 = list(4,VV[61],VV[62],/* INLINE-ARGS */V72,list(2,VV[38],(V52)));
 
403
        VMR8(V73)}
 
404
        goto T152;
 
405
T152:;
 
406
        if(((V59))!=Cnil){
 
407
        goto T155;}
 
408
        {object V74 = (V67);
 
409
        VMR8(V74)}
 
410
        goto T155;
 
411
T155:;
 
412
        V75= CMPcar((V59));
 
413
        V76= CMPcdr((V59));
 
414
        V77= list(2,VV[63],(V67));
 
415
        V78= make_cons(/* INLINE-ARGS */V77,Cnil);
 
416
        {object V79 = list(3,VV[60],/* INLINE-ARGS */V75,append(/* INLINE-ARGS */V76,/* INLINE-ARGS */V78));
 
417
        VMR8(V79)}}}
 
418
        base[0]=base[0];
 
419
        return Cnil;
 
420
}
 
421
/*      local entry for function EXPAND-LONG-DEFCOMBIN  */
 
422
 
 
423
static object LI16(V81)
 
424
 
 
425
register object V81;
 
426
{        VMB9 VMS9 VMV9
 
427
        goto TTL;
 
428
TTL:;
 
429
        {object V82;
 
430
        object V83;
 
431
        object V84;
 
432
        register object V85;
 
433
        object V86;
 
434
        object V87;
 
435
        V82= CMPcadr((V81));
 
436
        V83= CMPcaddr((V81));
 
437
        V84= CMPcadddr((V81));
 
438
        V85= CMPcddddr((V81));
 
439
        V86= Cnil;
 
440
        V87= Cnil;
 
441
        if(!(type_of(CMPcar((V85)))==t_cons)){
 
442
        goto T161;}
 
443
        if(!((CMPcaar((V85)))==(VV[64]))){
 
444
        goto T161;}
 
445
        {object V89;
 
446
        V89= CMPcar((V85));
 
447
        V85= CMPcdr((V85));
 
448
        V88= (V89);}
 
449
        V86= CMPcdr(V88);
 
450
        goto T161;
 
451
T161:;
 
452
        if(!(type_of(CMPcar((V85)))==t_cons)){
 
453
        goto T171;}
 
454
        if(!((CMPcaar((V85)))==(VV[65]))){
 
455
        goto T171;}
 
456
        {object V91;
 
457
        V91= CMPcar((V85));
 
458
        V85= CMPcdr((V85));
 
459
        V90= (V91);}
 
460
        V87= CMPcadr(V90);
 
461
        goto T171;
 
462
T171:;
 
463
        {object V92;
 
464
        object V93;
 
465
        base[0]= (V82);
 
466
        base[1]= (V83);
 
467
        base[2]= (V84);
 
468
        base[3]= (V86);
 
469
        base[4]= (V87);
 
470
        base[5]= (V85);
 
471
        vs_top=(vs_base=base+0)+6;
 
472
        (void) (*Lnk157)();
 
473
        if(vs_base>=vs_top){vs_top=sup;goto T188;}
 
474
        V92= vs_base[0];
 
475
        vs_base++;
 
476
        if(vs_base>=vs_top){vs_top=sup;goto T189;}
 
477
        V93= vs_base[0];
 
478
        vs_top=sup;
 
479
        goto T190;
 
480
        goto T188;
 
481
T188:;
 
482
        V92= Cnil;
 
483
        goto T189;
 
484
T189:;
 
485
        V93= Cnil;
 
486
        goto T190;
 
487
T190:;
 
488
        V94= list(2,VV[35],(V82));
 
489
        V95= list(2,VV[38],(V82));
 
490
        V96= list(2,VV[38],(V92));
 
491
        V97= list(2,VV[68],(V93));
 
492
        V98= list(5,VV[67],/* INLINE-ARGS */V95,/* INLINE-ARGS */V96,/* INLINE-ARGS */V97,list(2,VV[38],(V86)));
 
493
        {object V99 = (*(LnkLI143))(/* INLINE-ARGS */V94,VV[66],/* INLINE-ARGS */V98);
 
494
        VMR9(V99)}}}
 
495
        base[0]=base[0];
 
496
        return Cnil;
 
497
}
 
498
/*      function definition for LOAD-LONG-DEFCOMBIN     */
 
499
 
 
500
static void L17()
 
501
{register object *base=vs_base;
 
502
        register object *sup=base+VM10; VC10
 
503
        vs_check;
 
504
        {register object V100;
 
505
        check_arg(4);
 
506
        V100=(base[0]);
 
507
        base[1]=MMcons(base[1],Cnil);
 
508
        base[2]=MMcons(base[2],base[1]);
 
509
        base[3]=MMcons(base[3],base[2]);
 
510
        vs_top=sup;
 
511
        {object V101;
 
512
        object V102;
 
513
        object V103;
 
514
        V104= (VFUN_NARGS=1,(*(LnkLI145))(VV[39]));
 
515
        V105= (*(LnkLI146))((V100));
 
516
        V101= list(3,/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,(VV[40]->s.s_dbind));
 
517
        V106= (VV[148]->s.s_gfdef);
 
518
        V102= (VFUN_NARGS=4,(*(LnkLI147))(V106,Cnil,(V101),Cnil));
 
519
        base[7]= VV[41];
 
520
        base[8]= VV[42];
 
521
        base[9]= Cnil;
 
522
        base[10]= VV[43];
 
523
        base[11]= (V101);
 
524
        base[12]= VV[44];
 
525
        base[13]= VV[69];
 
526
        base[14]= VV[46];
 
527
        base[15]= 
 
528
        make_cclosure_new(LC29,Cnil,base[3],Cdata);
 
529
        base[16]= VV[47];
 
530
        V107= list(2,VV[35],(V100));
 
531
        vs_base=vs_top;
 
532
        (void) (*Lnk144)();
 
533
        vs_top=sup;
 
534
        V108= vs_base[0];
 
535
        base[17]= list(2,/* INLINE-ARGS */V107,V108);
 
536
        vs_top=(vs_base=base+7)+11;
 
537
        (void) (*Lnk149)(Lclptr149);
 
538
        vs_top=sup;
 
539
        V103= vs_base[0];
 
540
        {object V110;
 
541
        object V111;
 
542
        V110= (VV[72]->s.s_dbind);
 
543
        V111= (base[2]->c.c_car);
 
544
        base[7]= V100;
 
545
        base[8]= (V110);
 
546
        base[9]= (V111);
 
547
        vs_top=(vs_base=base+7)+3;
 
548
        siLhash_set();
 
549
        vs_top=sup;}
 
550
        if(((V102))==Cnil){
 
551
        goto T213;}
 
552
        base[7]=(VV[150]->s.s_gfdef);
 
553
        base[8]= (VV[148]->s.s_gfdef);
 
554
        base[9]= (V102);
 
555
        (void)simple_lispcall(base+7,2);
 
556
        goto T213;
 
557
T213:;
 
558
        base[7]=(VV[151]->s.s_gfdef);
 
559
        base[8]= (VV[148]->s.s_gfdef);
 
560
        base[9]= (V103);
 
561
        (void)simple_lispcall(base+7,2);
 
562
        base[7]= (V100);
 
563
        vs_top=(vs_base=base+7)+1;
 
564
        return;}
 
565
        }
 
566
}
 
567
/*      function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))     */
 
568
 
 
569
static void L18()
 
570
{register object *base=vs_base;
 
571
        register object *sup=base+VM11; VC11
 
572
        vs_check;
 
573
        {object V112;
 
574
        object V113;
 
575
        object V114;
 
576
        register object V115;
 
577
        object V116;
 
578
        check_arg(5);
 
579
        V112=(base[0]);
 
580
        V113=(base[1]);
 
581
        V114=(base[2]);
 
582
        V115=(base[3]);
 
583
        V116=(base[4]);
 
584
        vs_top=sup;
 
585
        goto TTL;
 
586
TTL:;
 
587
        base[7]= (V115);
 
588
        vs_top=(vs_base=base+7)+1;
 
589
        (void) (*Lnk152)(Lclptr152);
 
590
        vs_top=sup;
 
591
        base[6]= vs_base[0];
 
592
        base[7]= (VV[72]->s.s_dbind);
 
593
        vs_top=(vs_base=base+6)+2;
 
594
        Lgethash();
 
595
        vs_top=sup;
 
596
        base[5]= vs_base[0];
 
597
        base[6]= (V114);
 
598
        base[7]= (V115);
 
599
        base[8]= (V116);
 
600
        vs_top=(vs_base=base+6)+3;
 
601
        {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
602
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
603
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
604
               else super_funcall_no_event(_funobj);}
 
605
        return;
 
606
        }
 
607
}
 
608
/*      function definition for MAKE-LONG-METHOD-COMBINATION-FUNCTION   */
 
609
 
 
610
static void L19()
 
611
{register object *base=vs_base;
 
612
        register object *sup=base+VM12; VC12
 
613
        vs_check;
 
614
        {object V118;
 
615
        object V119;
 
616
        object V120;
 
617
        object V121;
 
618
        object V122;
 
619
        object V123;
 
620
        check_arg(6);
 
621
        V118=(base[0]);
 
622
        V119=(base[1]);
 
623
        V120=(base[2]);
 
624
        V121=(base[3]);
 
625
        V122=(base[4]);
 
626
        V123=(base[5]);
 
627
        vs_top=sup;
 
628
        goto TTL;
 
629
TTL:;
 
630
        {object V124;
 
631
        object V125;
 
632
        object V126;
 
633
        base[6]= (V123);
 
634
        vs_top=(vs_base=base+6)+1;
 
635
        (void) (*Lnk158)();
 
636
        if(vs_base>=vs_top){vs_top=sup;goto T232;}
 
637
        V124= vs_base[0];
 
638
        vs_base++;
 
639
        if(vs_base>=vs_top){vs_top=sup;goto T233;}
 
640
        V125= vs_base[0];
 
641
        vs_base++;
 
642
        if(vs_base>=vs_top){vs_top=sup;goto T234;}
 
643
        V126= vs_base[0];
 
644
        vs_top=sup;
 
645
        goto T235;
 
646
        goto T232;
 
647
T232:;
 
648
        V124= Cnil;
 
649
        goto T233;
 
650
T233:;
 
651
        V125= Cnil;
 
652
        goto T234;
 
653
T234:;
 
654
        V126= Cnil;
 
655
        goto T235;
 
656
T235:;
 
657
        {register object V127;
 
658
        V127= (*(LnkLI159))((V120),(V125),(V126));
 
659
        if(((V122))==Cnil){
 
660
        goto T237;}
 
661
        {object V128;
 
662
        object V130;
 
663
        V128= list(2,(V122),VV[73]);
 
664
        V130= make_cons((V128),CMPcadr(V127));
 
665
        (CMPcdr(V127))->c.c_car = (V130);
 
666
        (void)(CMPcdr(V127));}
 
667
        goto T237;
 
668
T237:;
 
669
        if(((V121))==Cnil){
 
670
        goto T243;}
 
671
        V127= (*(LnkLI160))((V127),(V121));
 
672
        goto T243;
 
673
T243:;
 
674
        if(((V119))==Cnil){
 
675
        goto T247;}
 
676
        V127= list(3,VV[74],list(3,VV[75],(V119),(V127)),VV[76]);
 
677
        goto T247;
 
678
T247:;
 
679
        base[6]= (V124);
 
680
        base[7]= list(4,VV[75],VV[77],VV[78],list(3,VV[79],VV[80],(V127)));
 
681
        vs_top=(vs_base=base+6)+2;
 
682
        return;}}
 
683
        }
 
684
}
 
685
/*      local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS   */
 
686
 
 
687
static object LI20(V134,V135,V136)
 
688
 
 
689
object V134;object V135;object V136;
 
690
{        VMB13 VMS13 VMV13
 
691
        goto TTL;
 
692
TTL:;
 
693
        {register object V137;
 
694
        register object V138;
 
695
        register object V139;
 
696
        register object V140;
 
697
        register object V141;
 
698
        V137= Cnil;
 
699
        V138= Cnil;
 
700
        V139= Cnil;
 
701
        V140= Cnil;
 
702
        V141= Cnil;
 
703
        {register object V142;
 
704
        object V143;
 
705
        V142= (V134);
 
706
        V143= CMPcar((V142));
 
707
        goto T257;
 
708
T257:;
 
709
        if(!(((V142))==Cnil)){
 
710
        goto T258;}
 
711
        goto T253;
 
712
        goto T258;
 
713
T258:;
 
714
        {register object V144;
 
715
        object V145;
 
716
        register object V146;
 
717
        register object V147;
 
718
        object V148;
 
719
        base[1]= (V143);
 
720
        vs_top=(vs_base=base+1)+1;
 
721
        (void) (*Lnk161)();
 
722
        if(vs_base>=vs_top){vs_top=sup;goto T265;}
 
723
        V144= vs_base[0];
 
724
        vs_base++;
 
725
        if(vs_base>=vs_top){vs_top=sup;goto T266;}
 
726
        V145= vs_base[0];
 
727
        vs_base++;
 
728
        if(vs_base>=vs_top){vs_top=sup;goto T267;}
 
729
        V146= vs_base[0];
 
730
        vs_base++;
 
731
        if(vs_base>=vs_top){vs_top=sup;goto T268;}
 
732
        V147= vs_base[0];
 
733
        vs_base++;
 
734
        if(vs_base>=vs_top){vs_top=sup;goto T269;}
 
735
        V148= vs_base[0];
 
736
        vs_top=sup;
 
737
        goto T270;
 
738
        goto T265;
 
739
T265:;
 
740
        V144= Cnil;
 
741
        goto T266;
 
742
T266:;
 
743
        V145= Cnil;
 
744
        goto T267;
 
745
T267:;
 
746
        V146= Cnil;
 
747
        goto T268;
 
748
T268:;
 
749
        V147= Cnil;
 
750
        goto T269;
 
751
T269:;
 
752
        V148= Cnil;
 
753
        goto T270;
 
754
T270:;
 
755
        {register object V149;
 
756
        vs_base=vs_top;
 
757
        Lgensym();
 
758
        vs_top=sup;
 
759
        V149= vs_base[0];
 
760
        V137= make_cons(V144,(V137));
 
761
        V138= make_cons(V149,(V138));
 
762
        {object V152;
 
763
        V153= make_cons(VV[81],(V145));
 
764
        V154= list(3,VV[83],list(3,VV[84],(V149),VV[85]),VV[86]);
 
765
        V155= list(3,VV[87],VV[80],list(2,VV[38],list(3,VV[61],VV[88],list(2,VV[38],(V144)))));
 
766
        V156= list(4,VV[82],/* INLINE-ARGS */V154,/* INLINE-ARGS */V155,list(3,VV[89],(V149),VV[85]));
 
767
        V152= list(3,/* INLINE-ARGS */V153,/* INLINE-ARGS */V156,list(3,VV[90],VV[91],(V144)));
 
768
        V139= make_cons((V152),(V139));}
 
769
        if(((V148))==Cnil){
 
770
        goto T279;}
 
771
        {object V157;
 
772
        V158= list(2,VV[93],(V144));
 
773
        V157= list(3,VV[92],/* INLINE-ARGS */V158,list(3,VV[87],VV[80],list(2,VV[38],list(3,VV[61],VV[94],list(2,VV[38],(V144))))));
 
774
        V140= make_cons((V157),(V140));}
 
775
        goto T279;
 
776
T279:;
 
777
        goto T286;
 
778
T286:;
 
779
        base[1]= (V147);
 
780
        vs_top=(vs_base=base+1)+1;
 
781
        Lconstantp();
 
782
        vs_top=sup;
 
783
        if((vs_base[0])==Cnil){
 
784
        goto T288;}{object V159;
 
785
        V159= (V147);
 
786
        base[1]= (V147);
 
787
        vs_top=(vs_base=base+1)+1;
 
788
        Leval();
 
789
        vs_top=sup;
 
790
        V147= vs_base[0];
 
791
        if((((V159)==((V147))?Ct:Cnil))==Cnil){
 
792
        goto T287;}}
 
793
        goto T288;
 
794
T288:;
 
795
        goto T284;
 
796
        goto T287;
 
797
T287:;
 
798
        goto T286;
 
799
        goto T284;
 
800
T284:;
 
801
        {object V160;
 
802
        if(!(((V147))==(VV[95]))){
 
803
        goto T298;}
 
804
        V160= list(3,VV[89],(V144),list(2,VV[96],(V144)));
 
805
        goto T296;
 
806
        goto T298;
 
807
T298:;
 
808
        if(!(((V147))==(VV[59]))){
 
809
        goto T301;}
 
810
        V160= Cnil;
 
811
        goto T296;
 
812
        goto T301;
 
813
T301:;
 
814
        V160= list(4,VV[97],(V147),list(2,VV[95],list(3,VV[89],(V144),list(2,VV[96],(V144)))),VV[98]);
 
815
        goto T296;
 
816
T296:;
 
817
        V141= make_cons((V160),(V141));}}}
 
818
        V142= CMPcdr((V142));
 
819
        V143= CMPcar((V142));
 
820
        goto T257;}
 
821
        goto T253;
 
822
T253:;
 
823
        V161= nreverse((V137));
 
824
        V162= nreverse((V138));
 
825
        V163= append(/* INLINE-ARGS */V161,/* INLINE-ARGS */V162);
 
826
        V164= nreverse((V139));
 
827
        V165= list(3,VV[100],VV[101],list(4,VV[99],VV[102],VV[103],make_cons(VV[104],/* INLINE-ARGS */V164)));
 
828
        base[0]= nreverse((V140));
 
829
        base[1]= nreverse((V141));
 
830
        base[2]= (V136);
 
831
        vs_top=(vs_base=base+0)+3;
 
832
        Lappend();
 
833
        vs_top=sup;
 
834
        V166= vs_base[0];
 
835
        V167= make_cons(/* INLINE-ARGS */V165,V166);
 
836
        {object V168 = listA(3,VV[99],/* INLINE-ARGS */V163,append((V135),/* INLINE-ARGS */V167));
 
837
        VMR13(V168)}}
 
838
        base[0]=base[0];
 
839
        return Cnil;
 
840
}
 
841
/*      function definition for PARSE-METHOD-GROUP-SPECIFIER    */
 
842
 
 
843
static void L21()
 
844
{register object *base=vs_base;
 
845
        register object *sup=base+VM14; VC14
 
846
        vs_check;
 
847
        {object V169;
 
848
        check_arg(1);
 
849
        V169=(base[0]);
 
850
        vs_top=sup;
 
851
        goto TTL;
 
852
TTL:;
 
853
        {register object V170;
 
854
        {object V171;
 
855
        V171= CMPcar((V169));
 
856
        V169= CMPcdr((V169));
 
857
        V170= (V171);}
 
858
        {register object V172;
 
859
        V172= (V169);
 
860
        {register object V173;
 
861
        V173= Cnil;
 
862
        {register object V174;
 
863
        register object V175;
 
864
        register object V176;
 
865
        V174= make_cons(Cnil,Cnil);
 
866
        V175= (V174);
 
867
        V176= Cnil;
 
868
        {register object V177;
 
869
        register object V178;
 
870
        register object V179;
 
871
        V177= make_cons(Cnil,Cnil);
 
872
        V178= (V177);
 
873
        V179= Cnil;
 
874
        goto T324;
 
875
T324:;
 
876
        if(!(type_of((V172))!=t_cons)){
 
877
        goto T326;}
 
878
        goto T325;
 
879
        goto T326;
 
880
T326:;
 
881
        V173= CMPcar((V172));
 
882
        {register object x= (V173),V180= VV[105];
 
883
        while(V180!=Cnil)
 
884
        if(x==(V180->c.c_car)){
 
885
        goto T333;
 
886
        }else V180=V180->c.c_cdr;
 
887
        goto T331;}
 
888
        goto T333;
 
889
T333:;
 
890
        goto T325;
 
891
        goto T331;
 
892
T331:;{object V181;
 
893
        V181= (V175);
 
894
        V175= make_cons((V173),Cnil);
 
895
        (V181)->c.c_cdr = (V175);}
 
896
        V176= CMPcdr((V174));{object V182;
 
897
        V182= (V178);
 
898
        V183= (*(LnkLI162))((V170),(V173));
 
899
        V178= make_cons(/* INLINE-ARGS */V183,Cnil);
 
900
        (V182)->c.c_cdr = (V178);}
 
901
        V179= CMPcdr((V177));
 
902
        V172= CMPcdr((V172));
 
903
        goto T324;
 
904
        goto T325;
 
905
T325:;
 
906
        base[3]= (V170);
 
907
        base[4]= (V179);
 
908
        base[6]= (V172);
 
909
        base[7]= VV[106];
 
910
        V184= nreverse((V176));
 
911
        base[8]= (*(LnkLI163))(/* INLINE-ARGS */V184);
 
912
        vs_top=(vs_base=base+6)+3;
 
913
        Lgetf();
 
914
        vs_top=sup;
 
915
        base[5]= vs_base[0];
 
916
        base[7]= (V172);
 
917
        base[8]= VV[107];
 
918
        base[9]= VV[95];
 
919
        vs_top=(vs_base=base+7)+3;
 
920
        Lgetf();
 
921
        vs_top=sup;
 
922
        base[6]= vs_base[0];
 
923
        base[8]= (V172);
 
924
        base[9]= VV[108];
 
925
        base[10]= Cnil;
 
926
        vs_top=(vs_base=base+8)+3;
 
927
        Lgetf();
 
928
        vs_top=sup;
 
929
        base[7]= vs_base[0];
 
930
        vs_top=(vs_base=base+3)+5;
 
931
        return;
 
932
        base[3]= Cnil;
 
933
        vs_top=(vs_base=base+3)+1;
 
934
        return;}}}}}
 
935
        }
 
936
}
 
937
/*      local entry for function PARSE-QUALIFIER-PATTERN        */
 
938
 
 
939
static object LI22(V187,V188)
 
940
 
 
941
object V187;register object V188;
 
942
{        VMB15 VMS15 VMV15
 
943
        goto TTL;
 
944
TTL:;
 
945
        if(!(((V188))==(Cnil))){
 
946
        goto T360;}
 
947
        {object V189 = VV[109];
 
948
        VMR15(V189)}
 
949
        goto T360;
 
950
T360:;
 
951
        if(!(((V188))==(VV[110]))){
 
952
        goto T363;}
 
953
        {object V190 = Ct;
 
954
        VMR15(V190)}
 
955
        goto T363;
 
956
T363:;
 
957
        if(!(type_of((V188))==t_symbol)){
 
958
        goto T366;}
 
959
        {object V191 = list(2,(V188),VV[111]);
 
960
        VMR15(V191)}
 
961
        goto T366;
 
962
T366:;
 
963
        if(!(type_of((V188))==t_cons||((V188))==Cnil)){
 
964
        goto T369;}
 
965
        {object V192 = list(3,VV[112],list(2,VV[38],(V188)),VV[111]);
 
966
        VMR15(V192)}
 
967
        goto T369;
 
968
T369:;
 
969
        base[0]= VV[113];
 
970
        base[1]= (V187);
 
971
        base[2]= (V188);
 
972
        vs_top=(vs_base=base+0)+3;
 
973
        Lerror();
 
974
        vs_top=sup;
 
975
        {object V193 = vs_base[0];
 
976
        VMR15(V193)}
 
977
        base[0]=base[0];
 
978
        return Cnil;
 
979
}
 
980
/*      local entry for function QUALIFIER-CHECK-RUNTIME        */
 
981
 
 
982
static object LI23(V196,V197)
 
983
 
 
984
register object V196;register object V197;
 
985
{        VMB16 VMS16 VMV16
 
986
        goto TTL;
 
987
TTL:;
 
988
        goto T375;
 
989
T375:;
 
990
        if(((V196))!=Cnil){
 
991
        goto T378;}
 
992
        if(((V197))!=Cnil){
 
993
        goto T378;}
 
994
        {object V198 = Ct;
 
995
        VMR16(V198)}
 
996
        goto T378;
 
997
T378:;
 
998
        if(!(((V196))==(VV[110]))){
 
999
        goto T383;}
 
1000
        {object V199 = Ct;
 
1001
        VMR16(V199)}
 
1002
        goto T383;
 
1003
T383:;
 
1004
        if(((V196))==Cnil){
 
1005
        goto T386;}
 
1006
        if(((V197))==Cnil){
 
1007
        goto T386;}
 
1008
        {register object V200;
 
1009
        V200= CMPcar((V196));
 
1010
        if(!(((V200))==(CMPcar((V197))))){
 
1011
        goto T393;}
 
1012
        goto T391;
 
1013
        goto T393;
 
1014
T393:;
 
1015
        if(!(((V200))==(VV[110]))){
 
1016
        goto T386;}}
 
1017
        goto T391;
 
1018
T391:;
 
1019
        {register object V201;
 
1020
        V201= CMPcar((V196));
 
1021
        V196= CMPcdr((V196));}
 
1022
        {register object V202;
 
1023
        V202= CMPcar((V197));
 
1024
        V197= CMPcdr((V197));
 
1025
        goto T376;}
 
1026
        goto T386;
 
1027
T386:;
 
1028
        {object V203 = Cnil;
 
1029
        VMR16(V203)}
 
1030
        goto T376;
 
1031
T376:;
 
1032
        goto T375;
 
1033
        return Cnil;
 
1034
}
 
1035
/*      local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION  */
 
1036
 
 
1037
static object LI24(V205)
 
1038
 
 
1039
register object V205;
 
1040
{        VMB17 VMS17 VMV17
 
1041
        goto TTL;
 
1042
TTL:;
 
1043
        if((CMPcdr((V205)))==Cnil){
 
1044
        goto T404;}
 
1045
        base[0]= Cnil;
 
1046
        base[1]= VV[114];
 
1047
        base[3]= (V205);
 
1048
        vs_top=(vs_base=base+3)+1;
 
1049
        Lbutlast();
 
1050
        vs_top=sup;
 
1051
        base[2]= vs_base[0];
 
1052
        base[4]= (V205);
 
1053
        vs_top=(vs_base=base+4)+1;
 
1054
        Llast();
 
1055
        vs_top=sup;
 
1056
        V206= vs_base[0];
 
1057
        base[3]= CMPcar(V206);
 
1058
        vs_top=(vs_base=base+0)+4;
 
1059
        Lformat();
 
1060
        vs_top=sup;
 
1061
        {object V207 = vs_base[0];
 
1062
        VMR17(V207)}
 
1063
        goto T404;
 
1064
T404:;
 
1065
        base[0]= Cnil;
 
1066
        base[1]= VV[115];
 
1067
        base[2]= CMPcar((V205));
 
1068
        vs_top=(vs_base=base+0)+3;
 
1069
        Lformat();
 
1070
        vs_top=sup;
 
1071
        {object V208 = vs_base[0];
 
1072
        VMR17(V208)}
 
1073
        base[0]=base[0];
 
1074
        return Cnil;
 
1075
}
 
1076
/*      local entry for function DEAL-WITH-ARGUMENTS-OPTION     */
 
1077
 
 
1078
static object LI25(V211,V212)
 
1079
 
 
1080
object V211;object V212;
 
1081
{        VMB18 VMS18 VMV18
 
1082
        goto TTL;
 
1083
TTL:;
 
1084
        {object V213;
 
1085
        register object V214;
 
1086
        register object V215;
 
1087
        object V216;
 
1088
        {register object V217;
 
1089
        register object V218;
 
1090
        V217= Cnil;
 
1091
        V218= (V212);
 
1092
        {object V219;
 
1093
        object V220;
 
1094
        V219= make_cons(Cnil,Cnil);
 
1095
        V220= (V219);
 
1096
        goto T420;
 
1097
T420:;
 
1098
        if(!(((V218))==Cnil)){
 
1099
        goto T422;}
 
1100
        goto T421;
 
1101
        goto T422;
 
1102
T422:;
 
1103
        V217= CMPcar((V218));
 
1104
        V218= CMPcdr((V218));
 
1105
        {register object x= (V217),V221= VV[116];
 
1106
        while(V221!=Cnil)
 
1107
        if(x==(V221->c.c_car)){
 
1108
        goto T429;
 
1109
        }else V221=V221->c.c_cdr;}{object V222;
 
1110
        V222= (V220);
 
1111
        V223= list(2,(V217),list(2,VV[38],(V217)));
 
1112
        V220= make_cons(/* INLINE-ARGS */V223,Cnil);
 
1113
        (V222)->c.c_cdr = (V220);}
 
1114
        goto T429;
 
1115
T429:;
 
1116
        goto T420;
 
1117
        goto T421;
 
1118
T421:;
 
1119
        V213= CMPcdr((V219));
 
1120
        goto T416;
 
1121
        V213= Cnil;
 
1122
        goto T416;}}
 
1123
        goto T416;
 
1124
T416:;
 
1125
        V214= small_fixnum(0);
 
1126
        V215= small_fixnum(0);
 
1127
        V216= Cnil;
 
1128
        {register object V224;
 
1129
        V224= VV[117];
 
1130
        {register object V225;
 
1131
        register object V226;
 
1132
        V225= Cnil;
 
1133
        V226= (V212);
 
1134
        goto T436;
 
1135
T436:;
 
1136
        if(!(((V226))==Cnil)){
 
1137
        goto T438;}
 
1138
        goto T437;
 
1139
        goto T438;
 
1140
T438:;
 
1141
        V225= CMPcar((V226));
 
1142
        V226= CMPcdr((V226));
 
1143
        {register object x= (V225),V227= VV[116];
 
1144
        while(V227!=Cnil)
 
1145
        if(x==(V227->c.c_car)){
 
1146
        goto T448;
 
1147
        }else V227=V227->c.c_cdr;
 
1148
        goto T447;}
 
1149
        goto T448;
 
1150
T448:;
 
1151
        V224= (V225);
 
1152
        goto T445;
 
1153
        goto T447;
 
1154
T447:;
 
1155
        {object V228= (V224);
 
1156
        if((V228!= VV[117]))goto T450;
 
1157
        V214= number_plus((V214),small_fixnum(1));
 
1158
        goto T445;
 
1159
        goto T450;
 
1160
T450:;
 
1161
        if((V228!= VV[138]))goto T452;
 
1162
        V215= number_plus((V215),small_fixnum(1));
 
1163
        goto T445;
 
1164
        goto T452;
 
1165
T452:;
 
1166
        if((V228!= VV[164]))goto T454;
 
1167
        V216= (V225);
 
1168
        V224= VV[117];
 
1169
        goto T445;
 
1170
        goto T454;
 
1171
T454:;}
 
1172
        goto T445;
 
1173
T445:;
 
1174
        goto T436;
 
1175
        goto T437;
 
1176
T437:;
 
1177
        goto T434;}}
 
1178
        goto T434;
 
1179
T434:;
 
1180
        goto T460;
 
1181
T460:;
 
1182
        {register object x= CMPcar((V211)),V229= VV[118];
 
1183
        while(V229!=Cnil)
 
1184
        if(x==(V229->c.c_car)){
 
1185
        goto T461;
 
1186
        }else V229=V229->c.c_cdr;}
 
1187
        base[1]= VV[119];
 
1188
        vs_top=(vs_base=base+1)+1;
 
1189
        (void) (*Lnk165)();
 
1190
        vs_top=sup;
 
1191
        base[0]= vs_base[0];
 
1192
        base[2]= Cnil;
 
1193
        base[3]= VV[120];
 
1194
        base[4]= VV[166];
 
1195
        goto T460;
 
1196
        vs_top=(vs_base=base+2)+4;
 
1197
        (void) (*Lnk167)();
 
1198
        vs_top=sup;
 
1199
        base[1]= vs_base[0];
 
1200
        vs_top=(vs_base=base+0)+2;
 
1201
        (void) (*Lnk168)();
 
1202
        vs_top=sup;
 
1203
        goto T461;
 
1204
T461:;
 
1205
        goto T458;
 
1206
        goto T458;
 
1207
T458:;
 
1208
        {object V231;
 
1209
        V231= append((V213),CMPcadr((V211)));
 
1210
        (CMPcdr(V211))->c.c_car = (V231);
 
1211
        (void)(CMPcdr(V211));}
 
1212
        {register object x= VV[121],V232= (V212);
 
1213
        while(V232!=Cnil)
 
1214
        if(x==(V232->c.c_car)){
 
1215
        goto T474;
 
1216
        }else V232=V232->c.c_cdr;}
 
1217
        {register object x= VV[122],V233= (V212);
 
1218
        while(V233!=Cnil)
 
1219
        if(x==(V233->c.c_car)){
 
1220
        goto T474;
 
1221
        }else V233=V233->c.c_cdr;}
 
1222
        {object V234;
 
1223
        {register object x= VV[123],V235= (V212);
 
1224
        while(V235!=Cnil)
 
1225
        if(x==(V235->c.c_car)){
 
1226
        V234= V235;
 
1227
        goto T479;
 
1228
        }else V235=V235->c.c_cdr;
 
1229
        V234= Cnil;}
 
1230
        goto T479;
 
1231
T479:;
 
1232
        base[1]= (V212);
 
1233
        base[2]= (V234);
 
1234
        vs_top=(vs_base=base+1)+2;
 
1235
        Lldiff();
 
1236
        vs_top=sup;
 
1237
        base[0]= vs_base[0];
 
1238
        {register object x= VV[124],V236= (V212);
 
1239
        while(V236!=Cnil)
 
1240
        if(x==(V236->c.c_car)){
 
1241
        goto T487;
 
1242
        }else V236=V236->c.c_cdr;
 
1243
        goto T486;}
 
1244
        goto T487;
 
1245
T487:;
 
1246
        base[1]= VV[125];
 
1247
        goto T484;
 
1248
        goto T486;
 
1249
T486:;
 
1250
        base[1]= VV[126];
 
1251
        goto T484;
 
1252
T484:;
 
1253
        base[2]= (V234);
 
1254
        vs_top=(vs_base=base+0)+3;
 
1255
        Lappend();
 
1256
        vs_top=sup;
 
1257
        V212= vs_base[0];}
 
1258
        goto T474;
 
1259
T474:;
 
1260
        V237= list(2,list(2,VV[127],(V211)),VV[128]);
 
1261
        V238= list(2,VV[38],(V212));
 
1262
        V239= list(2,VV[38],(V214));
 
1263
        V240= list(6,VV[129],VV[131],VV[132],VV[133],/* INLINE-ARGS */V239,list(2,VV[38],(V215)));
 
1264
        {register object x= VV[134],V242= (V212);
 
1265
        while(V242!=Cnil)
 
1266
        if(x==(V242->c.c_car)){
 
1267
        goto T492;
 
1268
        }else V242=V242->c.c_cdr;
 
1269
        goto T491;}
 
1270
        goto T492;
 
1271
T492:;
 
1272
        V241= VV[135];
 
1273
        goto T489;
 
1274
        goto T491;
 
1275
T491:;
 
1276
        V241= Cnil;
 
1277
        goto T489;
 
1278
T489:;
 
1279
        if(((V216))==Cnil){
 
1280
        goto T495;}
 
1281
        V243= list(4,VV[129],VV[136],list(2,VV[38],(V216)),VV[137]);
 
1282
        goto T493;
 
1283
        goto T495;
 
1284
T495:;
 
1285
        V243= Cnil;
 
1286
        goto T493;
 
1287
T493:;
 
1288
        {object V244 = list(3,VV[99],/* INLINE-ARGS */V237,list(7,VV[129],VV[130],/* INLINE-ARGS */V238,/* INLINE-ARGS */V240,V241,V243,VV[127]));
 
1289
        VMR18(V244)}}
 
1290
        base[0]=base[0];
 
1291
        return Cnil;
 
1292
}
 
1293
/*      local entry for function FROB-COMBINED-METHOD-ARGS      */
 
1294
 
 
1295
static object LI26(V249,V250,V251,V252)
 
1296
 
 
1297
register object V249;object V250;object V251;object V252;
 
1298
{        VMB19 VMS19 VMV19
 
1299
        goto TTL;
 
1300
TTL:;
 
1301
        {register object V253;
 
1302
        V253= VV[117];
 
1303
        {register object V254;
 
1304
        register object V255;
 
1305
        V254= Cnil;
 
1306
        V255= (V250);
 
1307
        {register long V256;
 
1308
        register long V257;
 
1309
        V256= 0;
 
1310
        V257= 0;
 
1311
        {object V258;
 
1312
        object V259;
 
1313
        object V260;
 
1314
        V258= make_cons(Cnil,Cnil);
 
1315
        V259= (V258);
 
1316
        V260= Cnil;
 
1317
        {object V261;
 
1318
        object V262;
 
1319
        object V263;
 
1320
        V261= make_cons(Cnil,Cnil);
 
1321
        V262= (V261);
 
1322
        V263= Cnil;
 
1323
        goto T506;
 
1324
T506:;
 
1325
        if(!(((V255))==Cnil)){
 
1326
        goto T508;}
 
1327
        goto T507;
 
1328
        goto T508;
 
1329
T508:;
 
1330
        V254= CMPcar((V255));
 
1331
        V255= CMPcdr((V255));
 
1332
        {register object x= (V254),V264= VV[116];
 
1333
        while(V264!=Cnil)
 
1334
        if(x==(V264->c.c_car)){
 
1335
        goto T518;
 
1336
        }else V264=V264->c.c_cdr;
 
1337
        goto T517;}
 
1338
        goto T518;
 
1339
T518:;
 
1340
        V253= (V254);
 
1341
        if(((V253))==(VV[138])){
 
1342
        goto T515;}
 
1343
        vs_base=vs_top;
 
1344
        (void) (*Lnk169)();
 
1345
        vs_top=sup;
 
1346
        goto T515;
 
1347
        goto T517;
 
1348
T517:;
 
1349
        if(!(((V253))==(VV[117]))){
 
1350
        goto T524;}
 
1351
        V256= (long)(V256)+1;{object V265;
 
1352
        V265= (V259);
 
1353
        {object V267;
 
1354
        V267= CMPcar((V249));
 
1355
        V249= CMPcdr((V249));
 
1356
        V266= (V267);}
 
1357
        V259= make_cons(V266,Cnil);
 
1358
        (V265)->c.c_cdr = (V259);}
 
1359
        V260= CMPcdr((V258));
 
1360
        goto T515;
 
1361
        goto T524;
 
1362
T524:;
 
1363
        if(!(((V253))==(VV[138]))){
 
1364
        goto T515;}
 
1365
        V257= (long)(V257)+1;{object V268;
 
1366
        V268= (V262);
 
1367
        {object V270;
 
1368
        V270= CMPcar((V249));
 
1369
        V249= CMPcdr((V249));
 
1370
        V269= (V270);}
 
1371
        V262= make_cons(V269,Cnil);
 
1372
        (V268)->c.c_cdr = (V262);}
 
1373
        V263= CMPcdr((V261));
 
1374
        goto T515;
 
1375
T515:;
 
1376
        goto T506;
 
1377
        goto T507;
 
1378
T507:;
 
1379
        base[3]= (V260);
 
1380
        base[4]= CMPmake_fixnum(V256);
 
1381
        base[5]= (V251);
 
1382
        vs_top=(vs_base=base+3)+3;
 
1383
        L27(base);
 
1384
        vs_top=sup;
 
1385
        base[2]= vs_base[0];
 
1386
        base[4]= (V263);
 
1387
        base[5]= CMPmake_fixnum(V257);
 
1388
        base[6]= (V252);
 
1389
        vs_top=(vs_base=base+4)+3;
 
1390
        L27(base);
 
1391
        vs_top=sup;
 
1392
        base[3]= vs_base[0];
 
1393
        base[4]= (V249);
 
1394
        vs_top=(vs_base=base+2)+3;
 
1395
        Lnconc();
 
1396
        vs_top=sup;
 
1397
        {object V271 = vs_base[0];
 
1398
        VMR19(V271)}
 
1399
        {object V272 = Cnil;
 
1400
        VMR19(V272)}}}}}}
 
1401
        base[0]=base[0];
 
1402
        return Cnil;
 
1403
}
 
1404
/*      local function FROB     */
 
1405
 
 
1406
static void L27(base0)
 
1407
register object *base0;
 
1408
{       register object *base=vs_base;
 
1409
        register object *sup=base+VM20; VC20
 
1410
        vs_check;
 
1411
        {object V273;
 
1412
        object V274;
 
1413
        object V275;
 
1414
        check_arg(3);
 
1415
        V273=(base[0]);
 
1416
        V274=(base[1]);
 
1417
        V275=(base[2]);
 
1418
        vs_top=sup;
 
1419
        goto TTL;
 
1420
TTL:;
 
1421
        if(!(number_compare((V274),(V275))>0)){
 
1422
        goto T557;}
 
1423
        base[3]= (V273);
 
1424
        base[4]= number_minus((V274),(V275));
 
1425
        vs_top=(vs_base=base+3)+2;
 
1426
        Lbutlast();
 
1427
        return;
 
1428
        goto T557;
 
1429
T557:;
 
1430
        if(!(number_compare((V274),(V275))<0)){
 
1431
        goto T562;}
 
1432
        base[3]= number_minus((V275),(V274));
 
1433
        vs_top=(vs_base=base+3)+1;
 
1434
        Lmake_list();
 
1435
        vs_top=sup;
 
1436
        V276= vs_base[0];
 
1437
        base[3]= nconc((V273),V276);
 
1438
        vs_top=(vs_base=base+3)+1;
 
1439
        return;
 
1440
        goto T562;
 
1441
T562:;
 
1442
        base[3]= (V273);
 
1443
        vs_top=(vs_base=base+3)+1;
 
1444
        return;
 
1445
        }
 
1446
}
 
1447
/*      local function CLOSURE  */
 
1448
 
 
1449
static void LC30(base0)
 
1450
register object *base0;
 
1451
{       register object *base=vs_base;
 
1452
        register object *sup=base+VM21; VC21
 
1453
        vs_check;
 
1454
        {object V277;
 
1455
        check_arg(1);
 
1456
        V277=(base[0]);
 
1457
        vs_top=sup;
 
1458
        base[1]= Cnil;
 
1459
        base[2]= (V277);
 
1460
        vs_top=(vs_base=base+1)+2;
 
1461
        (void) (*Lnk170)();
 
1462
        return;
 
1463
        }
 
1464
}
 
1465
/*      local function CLOSURE  */
 
1466
 
 
1467
static void LC29(base0)
 
1468
register object *base0;
 
1469
{       register object *base=vs_base;
 
1470
        register object *sup=base+VM22; VC22
 
1471
        vs_check;
 
1472
        {object V278;
 
1473
        object V279;
 
1474
        object V280;
 
1475
        if(vs_top-vs_base<2) too_few_arguments();
 
1476
        V278=(base[0]);
 
1477
        V279=(base[1]);
 
1478
        vs_base=vs_base+2;
 
1479
        vs_top[0]=Cnil;
 
1480
        {object *p=vs_top;
 
1481
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
1482
        V280=(base[2]);
 
1483
        vs_top=sup;
 
1484
        ck_larg_exactly(3,V278);
 
1485
        base[3]=(V278)->c.c_car;
 
1486
        base[4]=((V278
 
1487
        )->c.c_cdr)->c.c_car;
 
1488
        base[5]=(((V278
 
1489
        )->c.c_cdr
 
1490
        )->c.c_cdr)->c.c_car;
 
1491
        base[6]= VV[70];
 
1492
        base[7]= VV[52];
 
1493
        base[8]= base[4];
 
1494
        base[9]= VV[53];
 
1495
        base[10]= base[5];
 
1496
        base[11]= VV[46];
 
1497
        base[12]= (base0[1]->c.c_car);
 
1498
        base[13]= VV[71];
 
1499
        base[14]= (base0[0]->c.c_car);
 
1500
        base[15]= VV[31];
 
1501
        base[16]= (base0[2]->c.c_car);
 
1502
        vs_top=(vs_base=base+6)+11;
 
1503
        (void) (*Lnk149)(Lclptr149);
 
1504
        return;
 
1505
        }
 
1506
}
 
1507
/*      local function LOSE     */
 
1508
 
 
1509
static void L15(base0)
 
1510
register object *base0;
 
1511
{       register object *base=vs_base;
 
1512
        register object *sup=base+VM23; VC23
 
1513
        vs_check;
 
1514
        {register object V282;
 
1515
        object V283;
 
1516
        check_arg(2);
 
1517
        V282=(base[0]);
 
1518
        V283=(base[1]);
 
1519
        vs_top=sup;
 
1520
        goto TTL;
 
1521
TTL:;
 
1522
        base[2]= (V282);
 
1523
        base[3]= VV[58];
 
1524
        base[4]= (V282);
 
1525
        base[5]= (V283);
 
1526
        base[6]= base0[0];
 
1527
        base[7]= base0[0];
 
1528
        vs_top=(vs_base=base+2)+6;
 
1529
        (void) (*Lnk171)();
 
1530
        return;
 
1531
        }
 
1532
}
 
1533
/*      local function CLOSURE  */
 
1534
 
 
1535
static void LC28(base0)
 
1536
register object *base0;
 
1537
{       register object *base=vs_base;
 
1538
        register object *sup=base+VM24; VC24
 
1539
        vs_check;
 
1540
        {object V284;
 
1541
        object V285;
 
1542
        object V286;
 
1543
        if(vs_top-vs_base<2) too_few_arguments();
 
1544
        V284=(base[0]);
 
1545
        V285=(base[1]);
 
1546
        vs_base=vs_base+2;
 
1547
        vs_top[0]=Cnil;
 
1548
        {object *p=vs_top;
 
1549
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
1550
        V286=(base[2]);
 
1551
        vs_top=sup;
 
1552
        ck_larg_exactly(3,V284);
 
1553
        base[3]=(V284)->c.c_car;
 
1554
        base[4]=((V284
 
1555
        )->c.c_cdr)->c.c_car;
 
1556
        base[5]=(((V284
 
1557
        )->c.c_cdr
 
1558
        )->c.c_cdr)->c.c_car;
 
1559
        base[6]= base[4];
 
1560
        base[7]= base[5];
 
1561
        base[8]= (base0[3]->c.c_car);
 
1562
        base[9]= (base0[2]->c.c_car);
 
1563
        base[10]= (base0[0]->c.c_car);
 
1564
        base[11]= (base0[1]->c.c_car);
 
1565
        vs_top=(vs_base=base+6)+6;
 
1566
        (void) (*Lnk172)();
 
1567
        return;
 
1568
        }
 
1569
}
 
1570
/*      local function REAL-METHOD-COMBINATION-ERROR    */
 
1571
 
 
1572
static void LC7(base0)
 
1573
register object *base0;
 
1574
{       register object *base=vs_base;
 
1575
        register object *sup=base+VM25; VC25
 
1576
        vs_check;
 
1577
        {object V288;
 
1578
        object V289;
 
1579
        if(vs_top-vs_base<1) too_few_arguments();
 
1580
        V288=(base[0]);
 
1581
        vs_base=vs_base+1;
 
1582
        vs_top[0]=Cnil;
 
1583
        {object *p=vs_top;
 
1584
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
1585
        V289=(base[1]);
 
1586
        vs_top=sup;
 
1587
        base[2]= (V288);
 
1588
        {object V290;
 
1589
        V290= (V289);
 
1590
         vs_top=base+3;
 
1591
         while(V290!=Cnil)
 
1592
         {vs_push((V290)->c.c_car);V290=(V290)->c.c_cdr;}
 
1593
        vs_base=base+2;}
 
1594
        Lerror();
 
1595
        return;
 
1596
        }
 
1597
}
 
1598
/*      local function REAL-INVALID-METHOD-ERROR        */
 
1599
 
 
1600
static void LC6(base0)
 
1601
register object *base0;
 
1602
{       register object *base=vs_base;
 
1603
        register object *sup=base+VM26; VC26
 
1604
        vs_check;
 
1605
        {object V291;
 
1606
        object V292;
 
1607
        object V293;
 
1608
        if(vs_top-vs_base<2) too_few_arguments();
 
1609
        V291=(base[0]);
 
1610
        V292=(base[1]);
 
1611
        vs_base=vs_base+2;
 
1612
        vs_top[0]=Cnil;
 
1613
        {object *p=vs_top;
 
1614
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
1615
        V293=(base[2]);
 
1616
        vs_top=sup;
 
1617
        base[3]= (V292);
 
1618
        {object V294;
 
1619
        V294= (V293);
 
1620
         vs_top=base+4;
 
1621
         while(V294!=Cnil)
 
1622
         {vs_push((V294)->c.c_car);V294=(V294)->c.c_cdr;}
 
1623
        vs_base=base+3;}
 
1624
        Lerror();
 
1625
        return;
 
1626
        }
 
1627
}
 
1628
/*      local function CALL-NEXT-METHOD */
 
1629
 
 
1630
static void L5(base0)
 
1631
register object *base0;
 
1632
{       register object *base=vs_base;
 
1633
        register object *sup=base+VM27; VC27
 
1634
        vs_check;
 
1635
        {object V295;
 
1636
        vs_top[0]=Cnil;
 
1637
        {object *p=vs_top;
 
1638
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
1639
        V295=(base[0]);
 
1640
        vs_top=sup;
 
1641
        if((base0[1])==Cnil){
 
1642
        goto T596;}
 
1643
        if(((V295))==Cnil){
 
1644
        goto T599;}
 
1645
        {register object V296;
 
1646
        object V297;
 
1647
        object V298;
 
1648
        object V299;
 
1649
        V296= (V295);
 
1650
        {object V300;
 
1651
        V300= CMPcar((V296));
 
1652
        V296= CMPcdr((V296));
 
1653
        V297= (V300);}
 
1654
        {object V301;
 
1655
        V301= CMPcar((V296));
 
1656
        V296= CMPcdr((V296));
 
1657
        V298= (V301);}
 
1658
        {object V302;
 
1659
        V302= CMPcar((V296));
 
1660
        V296= CMPcdr((V296));
 
1661
        V299= (V302);}
 
1662
        base[4]= base0[1];
 
1663
        base[5]= VV[2];
 
1664
        vs_top=(vs_base=base+4)+2;
 
1665
        (void) (*Lnk173)();
 
1666
        vs_top=sup;
 
1667
        if((vs_base[0])==Cnil){
 
1668
        goto T616;}
 
1669
        base[4]= STREF(object,base0[1],0);
 
1670
        base[5]= STREF(object,base0[1],4);
 
1671
        base[6]= STREF(object,base0[1],8);
 
1672
        base[7]= (V297);
 
1673
        base[8]= (V298);
 
1674
        base[9]= (V299);
 
1675
        vs_top=(vs_base=base+5)+5;
 
1676
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1677
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1678
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1679
               else super_funcall_no_event(_funobj);}
 
1680
        return;
 
1681
        goto T616;
 
1682
T616:;
 
1683
        {register object V304;
 
1684
        V304= base0[1];
 
1685
        base[4]= (V304);
 
1686
        base[5]= VV[3];
 
1687
        vs_top=(vs_base=base+4)+2;
 
1688
        (void) (*Lnk173)();
 
1689
        vs_top=sup;
 
1690
        if((vs_base[0])==Cnil){
 
1691
        goto T627;}
 
1692
        {object V305;
 
1693
        object V306;
 
1694
        register object V307;
 
1695
        V305= STREF(object,base0[1],0);
 
1696
        V306= list(3,(V297),(V298),(V299));
 
1697
        V307= STREF(object,base0[1],4);
 
1698
        if(((V307))==Cnil){
 
1699
        goto T635;}
 
1700
        if((CMPcdr((V307)))!=Cnil){
 
1701
        goto T635;}
 
1702
        base[4]= (V306);
 
1703
        base[5]= CMPcar((V307));
 
1704
        vs_top=(vs_base=base+4)+2;
 
1705
        {object _funobj = (V305);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1706
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1707
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1708
               else super_funcall_no_event(_funobj);}
 
1709
        return;
 
1710
        goto T635;
 
1711
T635:;
 
1712
        base[4]= (V305);
 
1713
        base[5]= (V306);
 
1714
        {object V308;
 
1715
        V308= (V307);
 
1716
         vs_top=base+6;
 
1717
         while(V308!=Cnil)
 
1718
         {vs_push((V308)->c.c_car);V308=(V308)->c.c_cdr;}
 
1719
        vs_base=base+5;}
 
1720
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1721
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1722
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1723
               else super_funcall_no_event(_funobj);}
 
1724
        return;}
 
1725
        goto T627;
 
1726
T627:;
 
1727
        base[4]= (V304);
 
1728
        vs_top=(vs_base=base+4)+1;
 
1729
        Lfunctionp();
 
1730
        vs_top=sup;
 
1731
        if((vs_base[0])==Cnil){
 
1732
        goto T645;}
 
1733
        base[4]= (V297);
 
1734
        base[5]= (V298);
 
1735
        base[6]= (V299);
 
1736
        vs_top=(vs_base=base+4)+3;
 
1737
        {object _funobj = base0[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1738
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1739
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1740
               else super_funcall_no_event(_funobj);}
 
1741
        return;
 
1742
        goto T645;
 
1743
T645:;
 
1744
        base[4]= VV[4];
 
1745
        base[5]= VV[5];
 
1746
        base[6]= VV[6];
 
1747
        base[7]= VV[7];
 
1748
        base[8]= base0[1];
 
1749
        base[9]= VV[8];
 
1750
        base[10]= VV[9];
 
1751
        base[11]= VV[10];
 
1752
        base[12]= VV[11];
 
1753
        vs_top=(vs_base=base+4)+9;
 
1754
        (void) (*Lnk174)();
 
1755
        return;}}
 
1756
        goto T599;
 
1757
T599:;
 
1758
        base[1]= base0[1];
 
1759
        base[2]= VV[2];
 
1760
        vs_top=(vs_base=base+1)+2;
 
1761
        (void) (*Lnk173)();
 
1762
        vs_top=sup;
 
1763
        if((vs_base[0])==Cnil){
 
1764
        goto T662;}
 
1765
        base[1]= STREF(object,base0[1],0);
 
1766
        base[2]= STREF(object,base0[1],4);
 
1767
        base[3]= STREF(object,base0[1],8);
 
1768
        base[4]= base0[2];
 
1769
        base[5]= base0[3];
 
1770
        base[6]= base0[4];
 
1771
        vs_top=(vs_base=base+2)+5;
 
1772
        {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1773
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1774
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1775
               else super_funcall_no_event(_funobj);}
 
1776
        return;
 
1777
        goto T662;
 
1778
T662:;
 
1779
        {register object V310;
 
1780
        V310= base0[1];
 
1781
        base[1]= (V310);
 
1782
        base[2]= VV[3];
 
1783
        vs_top=(vs_base=base+1)+2;
 
1784
        (void) (*Lnk173)();
 
1785
        vs_top=sup;
 
1786
        if((vs_base[0])==Cnil){
 
1787
        goto T673;}
 
1788
        {object V311;
 
1789
        object V312;
 
1790
        register object V313;
 
1791
        V311= STREF(object,base0[1],0);
 
1792
        V312= list(3,base0[2],base0[3],base0[4]);
 
1793
        V313= STREF(object,base0[1],4);
 
1794
        if(((V313))==Cnil){
 
1795
        goto T681;}
 
1796
        if((CMPcdr((V313)))!=Cnil){
 
1797
        goto T681;}
 
1798
        base[1]= (V312);
 
1799
        base[2]= CMPcar((V313));
 
1800
        vs_top=(vs_base=base+1)+2;
 
1801
        {object _funobj = (V311);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1802
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1803
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1804
               else super_funcall_no_event(_funobj);}
 
1805
        return;
 
1806
        goto T681;
 
1807
T681:;
 
1808
        base[1]= (V311);
 
1809
        base[2]= (V312);
 
1810
        {object V314;
 
1811
        V314= (V313);
 
1812
         vs_top=base+3;
 
1813
         while(V314!=Cnil)
 
1814
         {vs_push((V314)->c.c_car);V314=(V314)->c.c_cdr;}
 
1815
        vs_base=base+2;}
 
1816
        {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1817
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1818
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1819
               else super_funcall_no_event(_funobj);}
 
1820
        return;}
 
1821
        goto T673;
 
1822
T673:;
 
1823
        base[1]= (V310);
 
1824
        vs_top=(vs_base=base+1)+1;
 
1825
        Lfunctionp();
 
1826
        vs_top=sup;
 
1827
        if((vs_base[0])==Cnil){
 
1828
        goto T691;}
 
1829
        base[1]= base0[2];
 
1830
        base[2]= base0[3];
 
1831
        base[3]= base0[4];
 
1832
        vs_top=(vs_base=base+1)+3;
 
1833
        {object _funobj = base0[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1834
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1835
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1836
               else super_funcall_no_event(_funobj);}
 
1837
        return;
 
1838
        goto T691;
 
1839
T691:;
 
1840
        base[1]= VV[4];
 
1841
        base[2]= VV[5];
 
1842
        base[3]= VV[6];
 
1843
        base[4]= VV[7];
 
1844
        base[5]= base0[1];
 
1845
        base[6]= VV[8];
 
1846
        base[7]= VV[12];
 
1847
        base[8]= VV[10];
 
1848
        base[9]= VV[13];
 
1849
        vs_top=(vs_base=base+1)+9;
 
1850
        (void) (*Lnk174)();
 
1851
        return;}
 
1852
        goto T596;
 
1853
T596:;
 
1854
        base[1]= VV[14];
 
1855
        base[2]= base0[2];
 
1856
        base[3]= base0[3];
 
1857
        base[4]= base0[4];
 
1858
        vs_top=(vs_base=base+1)+4;
 
1859
        (void) (*Lnk175)();
 
1860
        return;
 
1861
        }
 
1862
}
 
1863
static void LnkT175(){ call_or_link(VV[175],(void **)(void *)&Lnk175);} /* CALL-NO-NEXT-METHOD */
 
1864
static void LnkT174(){ call_or_link(VV[174],(void **)(void *)&Lnk174);} /* ERROR */
 
1865
static void LnkT173(){ call_or_link(VV[173],(void **)(void *)&Lnk173);} /* STRUCTURE-SUBTYPE-P */
 
1866
static void LnkT172(){ call_or_link(VV[172],(void **)(void *)&Lnk172);} /* MAKE-SHORT-METHOD-COMBINATION */
 
1867
static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* INVALID-METHOD-ERROR */
 
1868
static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* ASSERT-REPORT */
 
1869
static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* LOOP-FINISH */
 
1870
static void LnkT168(){ call_or_link(VV[168],(void **)(void *)&Lnk168);} /* RESTART-CASE */
 
1871
static void LnkT167(){ call_or_link(VV[167],(void **)(void *)&Lnk167);} /* CONTINUE */
 
1872
static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* SIMPLE-ASSERTION-FAILURE */
 
1873
static object  LnkTLI163(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[163],(void **)(void *)&LnkLI163,1,first,ap);va_end(ap);return V1;} /* MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */
 
1874
static object  LnkTLI162(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[162],(void **)(void *)&LnkLI162,2,first,ap);va_end(ap);return V1;} /* PARSE-QUALIFIER-PATTERN */
 
1875
static void LnkT161(){ call_or_link(VV[161],(void **)(void *)&Lnk161);} /* PARSE-METHOD-GROUP-SPECIFIER */
 
1876
static object  LnkTLI160(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[160],(void **)(void *)&LnkLI160,2,first,ap);va_end(ap);return V1;} /* DEAL-WITH-ARGUMENTS-OPTION */
 
1877
static object  LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,3,first,ap);va_end(ap);return V1;} /* WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */
 
1878
static void LnkT158(){ call_or_link(VV[158],(void **)(void *)&Lnk158);} /* EXTRACT-DECLARATIONS */
 
1879
static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* MAKE-LONG-METHOD-COMBINATION-FUNCTION */
 
1880
static void LnkT156(ptr) object *ptr;{ call_or_link_closure(VV[156],(void **)(void *)&Lnk156,(void **)(void *)&Lclptr156);} /* METHOD-QUALIFIERS */
 
1881
static void LnkT155(ptr) object *ptr;{ call_or_link_closure(VV[155],(void **)(void *)&Lnk155,(void **)(void *)&Lclptr155);} /* METHOD-COMBINATION-OPTIONS */
 
1882
static void LnkT154(ptr) object *ptr;{ call_or_link_closure(VV[154],(void **)(void *)&Lnk154,(void **)(void *)&Lclptr154);} /* SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT */
 
1883
static void LnkT153(ptr) object *ptr;{ call_or_link_closure(VV[153],(void **)(void *)&Lnk153,(void **)(void *)&Lclptr153);} /* SHORT-COMBINATION-OPERATOR */
 
1884
static void LnkT152(ptr) object *ptr;{ call_or_link_closure(VV[152],(void **)(void *)&Lnk152,(void **)(void *)&Lclptr152);} /* METHOD-COMBINATION-TYPE */
 
1885
static void LnkT149(ptr) object *ptr;{ call_or_link_closure(VV[149],(void **)(void *)&Lnk149,(void **)(void *)&Lclptr149);} /* MAKE-INSTANCE */
 
1886
static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* GET-METHOD */
 
1887
static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */
 
1888
static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
 
1889
static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* LOAD-TRUENAME */
 
1890
static object  LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
 
1891
static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* METHOD-COMBINATION-ERROR */
 
1892
static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* EXPAND-SHORT-DEFCOMBIN */
 
1893
static object  LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,1,first,ap);va_end(ap);return V1;} /* EXPAND-LONG-DEFCOMBIN */
 
1894
 
 
1895
#ifdef SYSTEM_SPECIAL_INIT
 
1896
SYSTEM_SPECIAL_INIT
 
1897
#endif
 
1898