← Back to branch summary

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

« back to all changes in this revision

Viewing changes to pcl/c/pcl_combin.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_combin.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_combin.h"
 
4
void init_pcl_combin(){do_init(VV);}
 
5
/*      function definition for GET-METHOD-FUNCTION     */
 
6
 
 
7
static void L1()
 
8
{register object *base=vs_base;
 
9
        register object *sup=base+VM1; VC1
 
10
        vs_check;
 
11
        {register object V1;
 
12
        object V2;
 
13
        object V3;
 
14
        if(vs_top-vs_base<1) too_few_arguments();
 
15
        if(vs_top-vs_base>3) too_many_arguments();
 
16
        V1=(base[0]);
 
17
        vs_base=vs_base+1;
 
18
        if(vs_base>=vs_top){vs_top=sup;goto T1;}
 
19
        V2=(base[1]);
 
20
        vs_base++;
 
21
        if(vs_base>=vs_top){vs_top=sup;goto T2;}
 
22
        V3=(base[2]);
 
23
        vs_top=sup;
 
24
        goto T3;
 
25
        goto T1;
 
26
T1:;
 
27
        V2= Cnil;
 
28
        goto T2;
 
29
T2:;
 
30
        V3= Cnil;
 
31
        goto T3;
 
32
T3:;
 
33
        {object V4;
 
34
        {register object x= (V1),V6= (V2);
 
35
        while(V6!=Cnil)
 
36
        if(eql(x,V6->c.c_car->c.c_car) &&V6->c.c_car != Cnil){
 
37
        V5= (V6->c.c_car);
 
38
        goto T7;
 
39
        }else V6=V6->c.c_cdr;
 
40
        V5= Cnil;}
 
41
        goto T7;
 
42
T7:;
 
43
        V4= CMPcadr(V5);
 
44
        if(((V4))==Cnil){
 
45
        goto T9;}
 
46
        base[3]= (V4);
 
47
        base[4]= Cnil;
 
48
        base[5]= Cnil;
 
49
        base[6]= Cnil;
 
50
        vs_top=(vs_base=base+3)+4;
 
51
        return;
 
52
        goto T9;
 
53
T9:;
 
54
        {object V7;
 
55
        register object V8;
 
56
        if(!(type_of((V1))==t_cons||((V1))==Cnil)){
 
57
        goto T17;}
 
58
        base[3]= (V1);
 
59
        vs_top=(vs_base=base+3)+1;
 
60
        (void) (*Lnk51)();
 
61
        goto T15;
 
62
        goto T17;
 
63
T17:;
 
64
        base[3]= Cnil;
 
65
        base[5]= (V1);
 
66
        vs_top=(vs_base=base+5)+1;
 
67
        (void) (*Lnk52)(Lclptr52);
 
68
        vs_top=sup;
 
69
        base[4]= vs_base[0];
 
70
        vs_top=(vs_base=base+3)+2;
 
71
        goto T15;
 
72
T15:;
 
73
        if(vs_base>=vs_top){vs_top=sup;goto T23;}
 
74
        V7= vs_base[0];
 
75
        vs_base++;
 
76
        if(vs_base>=vs_top){vs_top=sup;goto T24;}
 
77
        V8= vs_base[0];
 
78
        vs_top=sup;
 
79
        goto T25;
 
80
        goto T23;
 
81
T23:;
 
82
        V7= Cnil;
 
83
        goto T24;
 
84
T24:;
 
85
        V8= Cnil;
 
86
        goto T25;
 
87
T25:;
 
88
        {register object V9;
 
89
        if((V8)==Cnil){
 
90
        V9= Cnil;
 
91
        goto T26;}
 
92
        V9= (*(LnkLI53))((V8));
 
93
        goto T26;
 
94
T26:;
 
95
        if(((V8))==Cnil){
 
96
        goto T28;}
 
97
        if(((V9))==Cnil){
 
98
        goto T27;}
 
99
        if(((V3))==Cnil){
 
100
        goto T28;}
 
101
        goto T27;
 
102
T27:;
 
103
        {object V10;
 
104
        object V11;
 
105
        if(((V9))==Cnil){
 
106
        goto T36;}
 
107
        V10= (*(LnkLI54))((V9),(V3));
 
108
        goto T34;
 
109
        goto T36;
 
110
T36:;
 
111
        V10= Cnil;
 
112
        goto T34;
 
113
T34:;
 
114
        if(((V9))==Cnil){
 
115
        goto T40;}
 
116
        if(((V10))==Cnil){
 
117
        goto T40;}
 
118
        V11= (*(LnkLI55))((V9),(V10));
 
119
        goto T38;
 
120
        goto T40;
 
121
T40:;
 
122
        V11= Cnil;
 
123
        goto T38;
 
124
T38:;
 
125
        base[6]= (V7);
 
126
        base[7]= Ct;
 
127
        base[8]= (V8);
 
128
        base[9]= (V11);
 
129
        vs_top=(vs_base=base+6)+4;
 
130
        return;}
 
131
        goto T28;
 
132
T28:;
 
133
        if((V7)!=Cnil){
 
134
        base[4]= (V7);
 
135
        goto T48;}
 
136
        if(!(type_of((V1))==t_cons||((V1))==Cnil)){
 
137
        goto T50;}
 
138
        {object V13;
 
139
        V13= (*(LnkLI56))((V8));
 
140
        (CMPcdr(V1))->c.c_car = (V13);
 
141
        (void)(CMPcdr(V1));
 
142
        base[4]= (V13);
 
143
        goto T48;}
 
144
        goto T50;
 
145
T50:;
 
146
        base[5]= (V1);
 
147
        vs_top=(vs_base=base+5)+1;
 
148
        (void) (*Lnk57)(Lclptr57);
 
149
        vs_top=sup;
 
150
        base[4]= vs_base[0];
 
151
        goto T48;
 
152
T48:;
 
153
        base[5]= Ct;
 
154
        base[6]= Cnil;
 
155
        base[7]= Cnil;
 
156
        vs_top=(vs_base=base+4)+4;
 
157
        return;}}}
 
158
        }
 
159
}
 
160
/*      function definition for MAKE-EFFECTIVE-METHOD-FUNCTION  */
 
161
 
 
162
static void L2()
 
163
{register object *base=vs_base;
 
164
        register object *sup=base+VM2; VC2
 
165
        vs_check;
 
166
        {object V14;
 
167
        object V15;
 
168
        object V16;
 
169
        object V17;
 
170
        if(vs_top-vs_base<2) too_few_arguments();
 
171
        if(vs_top-vs_base>4) too_many_arguments();
 
172
        V14=(base[0]);
 
173
        V15=(base[1]);
 
174
        vs_base=vs_base+2;
 
175
        if(vs_base>=vs_top){vs_top=sup;goto T58;}
 
176
        V16=(base[2]);
 
177
        vs_base++;
 
178
        if(vs_base>=vs_top){vs_top=sup;goto T59;}
 
179
        V17=(base[3]);
 
180
        vs_top=sup;
 
181
        goto T60;
 
182
        goto T58;
 
183
T58:;
 
184
        V16= Cnil;
 
185
        goto T59;
 
186
T59:;
 
187
        V17= Cnil;
 
188
        goto T60;
 
189
T60:;
 
190
        base[4]= (*(LnkLI58))((V14),(V15),(((((V16))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V17))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil));
 
191
        base[5]= (V16);
 
192
        base[6]= (V17);
 
193
        vs_top=(vs_base=base+5)+2;
 
194
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
195
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
196
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
197
               else super_funcall_no_event(_funobj);}
 
198
        return;
 
199
        }
 
200
}
 
201
/*      local entry for function MAKE-EFFECTIVE-METHOD-FUNCTION1        */
 
202
 
 
203
static object LI3(V22,V23,V24,V25)
 
204
 
 
205
object V22;register object V23;object V24;object V25;
 
206
{        VMB3 VMS3 VMV3
 
207
        goto TTL;
 
208
TTL:;
 
209
        if(!(type_of((V23))==t_cons||((V23))==Cnil)){
 
210
        goto T67;}
 
211
        if(!((CMPcar((V23)))==(VV[0]))){
 
212
        goto T67;}
 
213
        {object V26 = (VFUN_NARGS=2,(*(LnkLI59))((V22),(V23)));
 
214
        VMR3(V26)}
 
215
        goto T67;
 
216
T67:;
 
217
        {object V27 = (*(LnkLI60))((V22),(V23),(V24),(V25));
 
218
        VMR3(V27)}
 
219
        return Cnil;
 
220
}
 
221
/*      local entry for function MAKE-EFFECTIVE-METHOD-FUNCTION-TYPE    */
 
222
 
 
223
static object LI4(V32,V33,V34,V35)
 
224
 
 
225
object V32;object V33;object V34;object V35;
 
226
{        VMB4 VMS4 VMV4
 
227
        goto TTL;
 
228
TTL:;
 
229
        if(!(type_of((V33))==t_cons||((V33))==Cnil)){
 
230
        goto T72;}
 
231
        if(!((CMPcar((V33)))==(VV[0]))){
 
232
        goto T72;}
 
233
        {object V36;
 
234
        register object V37;
 
235
        V36= CMPcdr((V33));
 
236
        V37= CMPcar((V36));
 
237
        if(((V37))==Cnil){
 
238
        goto T79;}
 
239
        if(!(type_of((V37))==t_cons||((V37))==Cnil)){
 
240
        goto T85;}
 
241
        if(!((CMPcar((V37)))==(VV[1]))){
 
242
        goto T82;}
 
243
        goto T83;
 
244
        goto T85;
 
245
T85:;
 
246
        base[2]= (V37);
 
247
        vs_top=(vs_base=base+2)+1;
 
248
        (void) (*Lnk61)(Lclptr61);
 
249
        vs_top=sup;
 
250
        if((vs_base[0])==Cnil){
 
251
        goto T82;}
 
252
        goto T83;
 
253
T83:;
 
254
        if(((V34))==Cnil){
 
255
        goto T89;}
 
256
        {object V38 = Ct;
 
257
        VMR4(V38)}
 
258
        goto T89;
 
259
T89:;
 
260
        {object V39;
 
261
        object V40;
 
262
        if(!(type_of((V37))==t_cons||((V37))==Cnil)){
 
263
        goto T93;}
 
264
        base[2]= (V37);
 
265
        vs_top=(vs_base=base+2)+1;
 
266
        (void) (*Lnk51)();
 
267
        goto T91;
 
268
        goto T93;
 
269
T93:;
 
270
        base[2]= Cnil;
 
271
        base[4]= (V37);
 
272
        vs_top=(vs_base=base+4)+1;
 
273
        (void) (*Lnk52)(Lclptr52);
 
274
        vs_top=sup;
 
275
        base[3]= vs_base[0];
 
276
        vs_top=(vs_base=base+2)+2;
 
277
        goto T91;
 
278
T91:;
 
279
        if(vs_base>=vs_top){vs_top=sup;goto T99;}
 
280
        V39= vs_base[0];
 
281
        vs_base++;
 
282
        if(vs_base>=vs_top){vs_top=sup;goto T100;}
 
283
        V40= vs_base[0];
 
284
        vs_top=sup;
 
285
        goto T101;
 
286
        goto T99;
 
287
T99:;
 
288
        V39= Cnil;
 
289
        goto T100;
 
290
T100:;
 
291
        V40= Cnil;
 
292
        goto T101;
 
293
T101:;
 
294
        {object V41;
 
295
        if((V40)==Cnil){
 
296
        V41= Cnil;
 
297
        goto T102;}
 
298
        V41= (*(LnkLI53))((V40));
 
299
        goto T102;
 
300
T102:;
 
301
        if(((V40))==Cnil){
 
302
        goto T104;}
 
303
        if(((V41))==Cnil){
 
304
        goto T103;}
 
305
        if(((V35))==Cnil){
 
306
        goto T104;}
 
307
        goto T103;
 
308
T103:;
 
309
        {object V42 = VV[2];
 
310
        VMR4(V42)}
 
311
        goto T104;
 
312
T104:;
 
313
        {object V43 = VV[3];
 
314
        VMR4(V43)}}}
 
315
        goto T82;
 
316
T82:;
 
317
        if(!(type_of((V37))==t_cons)){
 
318
        goto T111;}
 
319
        if(!((CMPcar((V37)))==(VV[4]))){
 
320
        goto T111;}
 
321
        V33= CMPcadr((V37));
 
322
        goto TTL;
 
323
        goto T111;
 
324
T111:;
 
325
        base[2]= (V37);
 
326
        vs_top=(vs_base=base+2)+1;
 
327
        Ltype_of();
 
328
        vs_top=sup;
 
329
        {object V44 = vs_base[0];
 
330
        VMR4(V44)}
 
331
        goto T79;
 
332
T79:;
 
333
        {object V45 = Cnil;
 
334
        VMR4(V45)}}
 
335
        goto T72;
 
336
T72:;
 
337
        {object V46 = VV[2];
 
338
        VMR4(V46)}
 
339
        base[0]=base[0];
 
340
        return Cnil;
 
341
}
 
342
/*      local entry for function MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE  */
 
343
 
 
344
static object LI5(object V48,object V47,object first,...)
 
345
{       
 
346
        va_list ap;
 
347
        int narg = VFUN_NARGS; VMB5 VMS5 VMV5
 
348
        {object V49;
 
349
        object V50;
 
350
        va_start(ap,first);
 
351
        if(narg <2) too_few_arguments();
 
352
        Vcs[0]=MMcons(V48,Cnil);
 
353
        V49= V47;
 
354
        narg = narg - 2;
 
355
        if (narg <= 0) goto T121;
 
356
        else {
 
357
        V50= first;}
 
358
        --narg; goto T122;
 
359
        goto T121;
 
360
T121:;
 
361
        V50= Cnil;
 
362
        goto T122;
 
363
T122:;
 
364
        {object V51;
 
365
        V51= CMPcdr((V49));
 
366
        if(((V50))==Cnil){
 
367
        goto T126;}
 
368
        base[1]= Cnil;
 
369
        goto T125;
 
370
        goto T126;
 
371
T126:;
 
372
        if(!(((((VV[5]->s.s_dbind))==(VV[6])?Ct:Cnil))==Cnil)){
 
373
        goto T130;}
 
374
        goto T128;
 
375
        goto T130;
 
376
T130:;
 
377
        base[4]= (Vcs[0]->c.c_car);
 
378
        vs_top=(vs_base=base+4)+1;
 
379
        (void) (*Lnk62)(Lclptr62);
 
380
        vs_top=sup;
 
381
        if((vs_base[0])!=Cnil){
 
382
        goto T128;}
 
383
        base[1]= Cnil;
 
384
        goto T125;
 
385
        goto T128;
 
386
T128:;
 
387
        base[1]= ((CMPcddr((V51)))==Cnil?Ct:Cnil);
 
388
        goto T125;
 
389
T125:;
 
390
        base[1]=MMcons(base[1],Vcs[0]);
 
391
        base[2]= CMPcar((V51));
 
392
        base[2]=MMcons(base[2],base[1]);
 
393
        base[3]= CMPcdr((V51));
 
394
        base[3]=MMcons(base[3],base[2]);
 
395
        {object V52 = 
 
396
        make_cclosure_new(LC24,Cnil,base[3],Cdata);
 
397
        VMR5(V52)}}
 
398
        va_end(ap);
 
399
        base[0]=base[0];
 
400
        return Cnil;}
 
401
        }
 
402
/*      local entry for function MAKE-EMF-FROM-METHOD   */
 
403
 
 
404
static object LI6(object V54,object V53,object first,...)
 
405
{       
 
406
        va_list ap;
 
407
        int narg = VFUN_NARGS; VMB6 VMS6 VMV6
 
408
        {object V55;
 
409
        object V56;
 
410
        object V57;
 
411
        object V58;
 
412
        object V59;
 
413
        object V60;
 
414
        va_start(ap,first);
 
415
        if(narg <2) too_few_arguments();
 
416
        V55= V54;
 
417
        V56= V53;
 
418
        narg = narg - 2;
 
419
        if (narg <= 0) goto T135;
 
420
        else {
 
421
        V57= first;}
 
422
        if (--narg <= 0) goto T136;
 
423
        else {
 
424
        V58= va_arg(ap,object);}
 
425
        if (--narg <= 0) goto T137;
 
426
        else {
 
427
        V59= va_arg(ap,object);}
 
428
        if (--narg <= 0) goto T138;
 
429
        else {
 
430
        V60= va_arg(ap,object);}
 
431
        --narg; goto T139;
 
432
        goto T135;
 
433
T135:;
 
434
        V57= Cnil;
 
435
        goto T136;
 
436
T136:;
 
437
        V58= Cnil;
 
438
        goto T137;
 
439
T137:;
 
440
        V59= Cnil;
 
441
        goto T138;
 
442
T138:;
 
443
        V60= Cnil;
 
444
        goto T139;
 
445
T139:;
 
446
        {object V61;
 
447
        object V62;
 
448
        object V63;
 
449
        object V64;
 
450
        base[0]= (V55);
 
451
        base[1]= (V59);
 
452
        base[2]= (V60);
 
453
        vs_top=(vs_base=base+0)+3;
 
454
        (void) (*Lnk63)();
 
455
        if(vs_base>=vs_top){vs_top=sup;goto T148;}
 
456
        V61= vs_base[0];
 
457
        vs_base++;
 
458
        if(vs_base>=vs_top){vs_top=sup;goto T149;}
 
459
        V62= vs_base[0];
 
460
        vs_base++;
 
461
        if(vs_base>=vs_top){vs_top=sup;goto T150;}
 
462
        V63= vs_base[0];
 
463
        vs_base++;
 
464
        if(vs_base>=vs_top){vs_top=sup;goto T151;}
 
465
        V64= vs_base[0];
 
466
        vs_top=sup;
 
467
        goto T152;
 
468
        goto T148;
 
469
T148:;
 
470
        V61= Cnil;
 
471
        goto T149;
 
472
T149:;
 
473
        V62= Cnil;
 
474
        goto T150;
 
475
T150:;
 
476
        V63= Cnil;
 
477
        goto T151;
 
478
T151:;
 
479
        V64= Cnil;
 
480
        goto T152;
 
481
T152:;
 
482
        if(((V63))==Cnil){
 
483
        goto T154;}
 
484
        {object V65;
 
485
        object V66;
 
486
        object V67;
 
487
        V65= CMPcar((V56));
 
488
        base[3]= (V57);
 
489
        base[4]= CMPcar((V65));
 
490
        base[5]= make_cons(CMPcdr((V65)),CMPcdr((V56)));
 
491
        base[6]= (V58);
 
492
        base[7]= (V59);
 
493
        base[8]= (V60);
 
494
        vs_top=(vs_base=base+3)+6;
 
495
        (void) (*Lnk64)();
 
496
        vs_top=sup;
 
497
        V66= vs_base[0];
 
498
        V67= (VFUN_NARGS=2,(*(LnkLI65))((V63),VV[7]));
 
499
        {object V68 = (VFUN_NARGS=8,(*(LnkLI66))(VV[8],(V63),VV[9],(V64),VV[10],(V66),VV[7],(V67)));
 
500
        VMR6(V68)}}
 
501
        goto T154;
 
502
T154:;
 
503
        if(((V62))==Cnil){
 
504
        goto T166;}
 
505
        {object V69 = (VFUN_NARGS=4,(*(LnkLI67))(VV[8],(V61),VV[11],(V56)));
 
506
        VMR6(V69)}
 
507
        goto T166;
 
508
T166:;
 
509
        {object V70 = (V61);
 
510
        VMR6(V70)}}
 
511
        va_end(ap);
 
512
        base[0]=base[0];
 
513
        return Cnil;}
 
514
        }
 
515
/*      function definition for MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1  */
 
516
 
 
517
static void L7()
 
518
{register object *base=vs_base;
 
519
        register object *sup=base+VM7; VC7
 
520
        vs_check;
 
521
        {object V71;
 
522
        register object V72;
 
523
        object V73;
 
524
        object V74;
 
525
        object V75;
 
526
        object V76;
 
527
        if(vs_top-vs_base<4) too_few_arguments();
 
528
        if(vs_top-vs_base>6) too_many_arguments();
 
529
        V71=(base[0]);
 
530
        V72=(base[1]);
 
531
        V73=(base[2]);
 
532
        V74=(base[3]);
 
533
        vs_base=vs_base+4;
 
534
        if(vs_base>=vs_top){vs_top=sup;goto T168;}
 
535
        V75=(base[4]);
 
536
        vs_base++;
 
537
        if(vs_base>=vs_top){vs_top=sup;goto T169;}
 
538
        V76=(base[5]);
 
539
        vs_top=sup;
 
540
        goto T170;
 
541
        goto T168;
 
542
T168:;
 
543
        V75= Cnil;
 
544
        goto T169;
 
545
T169:;
 
546
        V76= Cnil;
 
547
        goto T170;
 
548
T170:;
 
549
        if(((V72))==Cnil){
 
550
        goto T174;}
 
551
        if(!(type_of((V72))==t_cons||((V72))==Cnil)){
 
552
        goto T180;}
 
553
        if(!((CMPcar((V72)))==(VV[1]))){
 
554
        goto T177;}
 
555
        goto T178;
 
556
        goto T180;
 
557
T180:;
 
558
        base[6]= (V72);
 
559
        vs_top=(vs_base=base+6)+1;
 
560
        (void) (*Lnk61)(Lclptr61);
 
561
        vs_top=sup;
 
562
        if((vs_base[0])==Cnil){
 
563
        goto T177;}
 
564
        goto T178;
 
565
T178:;
 
566
        base[6]= (VFUN_NARGS=6,(*(LnkLI68))((V72),(V73),(V71),(V74),(V75),(V76)));
 
567
        vs_top=(vs_base=base+6)+1;
 
568
        return;
 
569
        goto T177;
 
570
T177:;
 
571
        if(!(type_of((V72))==t_cons)){
 
572
        goto T184;}
 
573
        if(!((CMPcar((V72)))==(VV[4]))){
 
574
        goto T184;}
 
575
        base[6]= (V71);
 
576
        base[7]= CMPcadr((V72));
 
577
        base[8]= (V75);
 
578
        base[9]= (V76);
 
579
        vs_top=(vs_base=base+6)+4;
 
580
        (void) (*Lnk69)();
 
581
        return;
 
582
        goto T184;
 
583
T184:;
 
584
        base[6]= (V72);
 
585
        vs_top=(vs_base=base+6)+1;
 
586
        return;
 
587
        goto T174;
 
588
T174:;
 
589
        base[6]= Cnil;
 
590
        vs_top=(vs_base=base+6)+1;
 
591
        return;
 
592
        }
 
593
}
 
594
/*      local entry for function GET-EFFECTIVE-METHOD-GENSYM    */
 
595
 
 
596
static object LI8()
 
597
 
 
598
{        VMB8 VMS8 VMV8
 
599
        goto TTL;
 
600
TTL:;{object V77;
 
601
        {object V78;
 
602
        V78= CMPcar((VV[12]->s.s_dbind));
 
603
        (VV[12]->s.s_dbind)= CMPcdr((VV[12]->s.s_dbind));
 
604
        V77= (V78);}
 
605
        if(V77==Cnil)goto T192;
 
606
        {object V79 = V77;
 
607
        VMR8(V79)}
 
608
        goto T192;
 
609
T192:;}
 
610
        {object V80;
 
611
        base[1]= Cnil;
 
612
        base[2]= VV[13];
 
613
        base[3]= CMPmake_fixnum((long)length((VV[14]->s.s_dbind)));
 
614
        vs_top=(vs_base=base+1)+3;
 
615
        Lformat();
 
616
        vs_top=sup;
 
617
        base[0]= vs_base[0];
 
618
        base[1]= VV[15];
 
619
        vs_top=(vs_base=base+0)+2;
 
620
        Lintern();
 
621
        vs_top=sup;
 
622
        V80= vs_base[0];{object V81;
 
623
        V81= (VV[14]->s.s_dbind);
 
624
        V82= make_cons((V80),Cnil);
 
625
        (VV[14]->s.s_dbind)= append(V81,/* INLINE-ARGS */V82);}
 
626
        {object V83 = (V80);
 
627
        VMR8(V83)}}
 
628
        base[0]=base[0];
 
629
        return Cnil;
 
630
}
 
631
/*      local entry for function EXPAND-EFFECTIVE-METHOD-FUNCTION       */
 
632
 
 
633
static object LI9(object V85,object V84,object first,...)
 
634
{       
 
635
        va_list ap;
 
636
        int narg = VFUN_NARGS; VMB9 VMS9 VMV9
 
637
        {object V86;
 
638
        register object V87;
 
639
        object V88;
 
640
        va_start(ap,first);
 
641
        if(narg <2) too_few_arguments();
 
642
        V86= V85;
 
643
        V87= V84;
 
644
        narg = narg - 2;
 
645
        if (narg <= 0) goto T205;
 
646
        else {
 
647
        V88= first;}
 
648
        --narg; goto T206;
 
649
        goto T205;
 
650
T205:;
 
651
        V88= Cnil;
 
652
        goto T206;
 
653
T206:;
 
654
        {object V89;
 
655
        object V90;
 
656
        object V91;
 
657
        object V92;
 
658
        object V93;
 
659
        base[0]= (V86);
 
660
        vs_top=(vs_base=base+0)+1;
 
661
        (void) (*Lnk70)();
 
662
        if(vs_base>=vs_top){vs_top=sup;goto T210;}
 
663
        V89= vs_base[0];
 
664
        vs_base++;
 
665
        if(vs_base>=vs_top){vs_top=sup;goto T211;}
 
666
        V90= vs_base[0];
 
667
        vs_base++;
 
668
        if(vs_base>=vs_top){vs_top=sup;goto T212;}
 
669
        V91= vs_base[0];
 
670
        vs_base++;
 
671
        if(vs_base>=vs_top){vs_top=sup;goto T213;}
 
672
        V92= vs_base[0];
 
673
        vs_base++;
 
674
        if(vs_base>=vs_top){vs_top=sup;goto T214;}
 
675
        V93= vs_base[0];
 
676
        vs_top=sup;
 
677
        goto T215;
 
678
        goto T210;
 
679
T210:;
 
680
        V89= Cnil;
 
681
        goto T211;
 
682
T211:;
 
683
        V90= Cnil;
 
684
        goto T212;
 
685
T212:;
 
686
        V91= Cnil;
 
687
        goto T213;
 
688
T213:;
 
689
        V92= Cnil;
 
690
        goto T214;
 
691
T214:;
 
692
        V93= Cnil;
 
693
        goto T215;
 
694
T215:;
 
695
        {object V94;
 
696
        V94= (*(LnkLI71))((V91),(V90));
 
697
        if(!((CMPcar((V87)))==(VV[16]))){
 
698
        goto T218;}
 
699
        {object V95 = list(4,VV[17],VV[18],VV[19],list(3,VV[20],VV[21],(V87)));
 
700
        VMR9(V95)}
 
701
        goto T218;
 
702
T218:;
 
703
        if(!(((VV[5]->s.s_dbind))==(VV[6]))){
 
704
        goto T221;}
 
705
        {object V96;
 
706
        base[0]= (V86);
 
707
        vs_top=(vs_base=base+0)+1;
 
708
        (void) (*Lnk72)(Lclptr72);
 
709
        vs_top=sup;
 
710
        V96= vs_base[0];
 
711
        base[0]= (V96);
 
712
        vs_top=(vs_base=base+0)+1;
 
713
        (void) (*Lnk73)(Lclptr73);
 
714
        vs_top=sup;
 
715
        if((vs_base[0])!=Cnil){
 
716
        goto T227;}
 
717
        goto T221;
 
718
        goto T227;
 
719
T227:;
 
720
        base[0]= (V96);
 
721
        vs_top=(vs_base=base+0)+1;
 
722
        (void) (*Lnk74)();
 
723
        vs_top=sup;
 
724
        if((vs_base[0])==Cnil){
 
725
        goto T221;}}
 
726
        {object V97;
 
727
        object V98;
 
728
        base[2]= (V91);
 
729
        vs_top=(vs_base=base+2)+1;
 
730
        (void) (*Lnk75)();
 
731
        vs_top=sup;
 
732
        V97= vs_base[0];
 
733
        if(((V90))==Cnil){
 
734
        goto T235;}
 
735
        V99= append((V97),VV[23]);
 
736
        V98= make_cons(VV[22],/* INLINE-ARGS */V99);
 
737
        goto T233;
 
738
        goto T235;
 
739
T235:;
 
740
        V98= make_cons(VV[24],(V97));
 
741
        goto T233;
 
742
T233:;
 
743
        V100= list(2,VV[27],(V98));
 
744
        {object V101 = list(4,VV[17],(V94),VV[25],list(4,VV[26],make_cons(/* INLINE-ARGS */V100,Cnil),VV[28],(V87)));
 
745
        VMR9(V101)}}
 
746
        goto T221;
 
747
T221:;
 
748
        {object V102 = list(4,VV[17],(V94),VV[29],(V87));
 
749
        VMR9(V102)}}}
 
750
        va_end(ap);
 
751
        base[0]=base[0];
 
752
        return Cnil;}
 
753
        }
 
754
/*      local entry for function EXPAND-EMF-CALL-METHOD */
 
755
 
 
756
static object LI10(V108,V109,V110,V111,V112)
 
757
 
 
758
object V108;object V109;object V110;object V111;object V112;
 
759
{        VMB10 VMS10 VMV10
 
760
        goto TTL;
 
761
TTL:;
 
762
        {object V113 = list(2,VV[0],CMPcdr((V109)));
 
763
        VMR10(V113)}
 
764
        return Cnil;
 
765
}
 
766
/*      macro definition for CALL-METHOD        */
 
767
 
 
768
static void L11()
 
769
{register object *base=vs_base;
 
770
        register object *sup=base+VM11; VC11
 
771
        vs_check;
 
772
        check_arg(2);
 
773
        vs_top=sup;
 
774
        {object V114=base[0]->c.c_cdr;
 
775
        base[2]= V114;}
 
776
        base[3]= VV[30];
 
777
        vs_top=(vs_base=base+3)+1;
 
778
        return;
 
779
}
 
780
/*      local entry for function MEMF-TEST-CONVERTER    */
 
781
 
 
782
static object LI13(V119,V120,V121,V122)
 
783
 
 
784
register object V119;object V120;object V121;object V122;
 
785
{        VMB12 VMS12 VMV12
 
786
        goto TTL;
 
787
TTL:;
 
788
        base[0]=MMcons((V122),Cnil);
 
789
        base[1]=MMcons((V121),base[0]);
 
790
        base[2]=MMcons((V120),base[1]);
 
791
        if(!(type_of((V119))==t_cons)){
 
792
        goto T238;}
 
793
        if(!((CMPcar((V119)))==(VV[0]))){
 
794
        goto T238;}
 
795
        V124= (*(LnkLI76))((base[2]->c.c_car),(V119),(base[1]->c.c_car),(base[0]->c.c_car));
 
796
        {object V123= /* INLINE-ARGS */V124;
 
797
        if((V123!= VV[2]))goto T242;
 
798
        {object V125 = VV[31];
 
799
        VMR12(V125)}
 
800
        goto T242;
 
801
T242:;
 
802
        {object V126 = VV[32];
 
803
        VMR12(V126)}}
 
804
        goto T238;
 
805
T238:;
 
806
        if(!(type_of((V119))==t_cons)){
 
807
        goto T244;}
 
808
        if(!((CMPcar((V119)))==(VV[33]))){
 
809
        goto T244;}
 
810
        base[3]= 
 
811
        make_cclosure_new(LC25,Cnil,base[2],Cdata);
 
812
        base[4]= CMPcdr((V119));
 
813
        vs_top=(vs_base=base+3)+2;
 
814
        (void) (*Lnk77)();
 
815
        vs_top=sup;
 
816
        if((vs_base[0])==Cnil){
 
817
        goto T250;}
 
818
        V128= VV[2];
 
819
        goto T248;
 
820
        goto T250;
 
821
T250:;
 
822
        V128= Ct;
 
823
        goto T248;
 
824
T248:;
 
825
        {object V127= V128;
 
826
        if((V127!= VV[2]))goto T254;
 
827
        {object V129 = VV[34];
 
828
        VMR12(V129)}
 
829
        goto T254;
 
830
T254:;
 
831
        {object V130 = VV[35];
 
832
        VMR12(V130)}}
 
833
        goto T244;
 
834
T244:;
 
835
        {object V131 = (*(LnkLI78))((V119));
 
836
        VMR12(V131)}
 
837
        base[0]=base[0];
 
838
        return Cnil;
 
839
}
 
840
/*      function definition for MEMF-CODE-CONVERTER     */
 
841
 
 
842
static void L14()
 
843
{register object *base=vs_base;
 
844
        register object *sup=base+VM13; VC13
 
845
        vs_check;
 
846
        {register object V132;
 
847
        object V133;
 
848
        object V134;
 
849
        check_arg(6);
 
850
        V132=(base[0]);
 
851
        base[1]=MMcons(base[1],Cnil);
 
852
        V133=(base[2]);
 
853
        V134=(base[3]);
 
854
        base[4]=MMcons(base[4],base[1]);
 
855
        base[5]=MMcons(base[5],base[4]);
 
856
        vs_top=sup;
 
857
        if(!(type_of((V132))==t_cons)){
 
858
        goto T256;}
 
859
        if(!((CMPcar((V132)))==(VV[0]))){
 
860
        goto T256;}
 
861
        {object V135;
 
862
        V135= (*(LnkLI79))();
 
863
        V136= (*(LnkLI76))((base[1]->c.c_car),(V132),(base[4]->c.c_car),(base[5]->c.c_car));
 
864
        base[6]= (VFUN_NARGS=4,(*(LnkLI80))((V133),(V134),(V135),/* INLINE-ARGS */V136));
 
865
        base[7]= make_cons((V135),Cnil);
 
866
        vs_top=(vs_base=base+6)+2;
 
867
        return;}
 
868
        goto T256;
 
869
T256:;
 
870
        if(!(type_of((V132))==t_cons)){
 
871
        goto T264;}
 
872
        if(!((CMPcar((V132)))==(VV[33]))){
 
873
        goto T264;}
 
874
        {object V137;
 
875
        object V138;
 
876
        V137= (*(LnkLI79))();
 
877
        base[6]= 
 
878
        make_cclosure_new(LC26,Cnil,base[5],Cdata);
 
879
        base[7]= CMPcdr((V132));
 
880
        vs_top=(vs_base=base+6)+2;
 
881
        (void) (*Lnk77)();
 
882
        vs_top=sup;
 
883
        if((vs_base[0])==Cnil){
 
884
        goto T271;}
 
885
        V138= VV[2];
 
886
        goto T269;
 
887
        goto T271;
 
888
T271:;
 
889
        V138= Ct;
 
890
        goto T269;
 
891
T269:;
 
892
        V139= list(3,VV[37],(V137),Cnil);
 
893
        base[6]= list(3,VV[36],/* INLINE-ARGS */V139,(VFUN_NARGS=4,(*(LnkLI80))((V133),(V134),VV[37],(V138))));
 
894
        base[7]= make_cons((V137),Cnil);
 
895
        vs_top=(vs_base=base+6)+2;
 
896
        return;}
 
897
        goto T264;
 
898
T264:;
 
899
        base[6]= (V132);
 
900
        vs_top=(vs_base=base+6)+1;
 
901
        (void) (*Lnk81)();
 
902
        return;
 
903
        }
 
904
}
 
905
/*      local entry for function MEMF-CONSTANT-CONVERTER        */
 
906
 
 
907
static object LI15(V142,V143)
 
908
 
 
909
register object V142;object V143;
 
910
{        VMB14 VMS14 VMV14
 
911
        goto TTL;
 
912
TTL:;
 
913
        if(!(type_of((V142))==t_cons)){
 
914
        goto T279;}
 
915
        if(!((CMPcar((V142)))==(VV[0]))){
 
916
        goto T279;}
 
917
        V144= (VFUN_NARGS=2,(*(LnkLI59))((V143),(V142)));
 
918
        V145= make_cons(VV[38],/* INLINE-ARGS */V144);
 
919
        {object V146 = make_cons(/* INLINE-ARGS */V145,Cnil);
 
920
        VMR14(V146)}
 
921
        goto T279;
 
922
T279:;
 
923
        if(!(type_of((V142))==t_cons)){
 
924
        goto T284;}
 
925
        if(!((CMPcar((V142)))==(VV[33]))){
 
926
        goto T284;}
 
927
        {object V148;
 
928
        object V149= CMPcdr((V142));
 
929
        if(V149==Cnil){
 
930
        V147= Cnil;
 
931
        goto T288;}
 
932
        base[0]=V148=MMcons(Cnil,Cnil);
 
933
        goto T289;
 
934
T289:;
 
935
        (V148->c.c_car)= (VFUN_NARGS=2,(*(LnkLI59))((V143),(V149->c.c_car)));
 
936
        if((V149=MMcdr(V149))==Cnil){
 
937
        V147= base[0];
 
938
        goto T288;}
 
939
        V148=MMcdr(V148)=MMcons(Cnil,Cnil);
 
940
        goto T289;}
 
941
        goto T288;
 
942
T288:;
 
943
        V151= make_cons(VV[39],V147);
 
944
        {object V152 = make_cons(/* INLINE-ARGS */V151,Cnil);
 
945
        VMR14(V152)}
 
946
        goto T284;
 
947
T284:;
 
948
        {object V153 = (*(LnkLI82))((V142));
 
949
        VMR14(V153)}
 
950
        base[0]=base[0];
 
951
        return Cnil;
 
952
}
 
953
/*      local entry for function MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL        */
 
954
 
 
955
static object LI17(V158,V159,V160,V161)
 
956
 
 
957
object V158;object V159;object V160;object V161;
 
958
{        VMB15 VMS15 VMV15
 
959
        bds_check;
 
960
        goto TTL;
 
961
TTL:;
 
962
        base[0]=MMcons((V161),Cnil);
 
963
        base[1]=MMcons((V160),base[0]);
 
964
        base[2]=MMcons((V158),base[1]);
 
965
        {object V162;
 
966
        object V163;
 
967
        object V164;
 
968
        base[5]= (base[2]->c.c_car);
 
969
        vs_top=(vs_base=base+5)+1;
 
970
        (void) (*Lnk70)();
 
971
        if(vs_base>=vs_top){vs_top=sup;goto T293;}
 
972
        V162= vs_base[0];
 
973
        vs_base++;
 
974
        if(vs_base>=vs_top){vs_top=sup;goto T294;}
 
975
        base[3]=MMcons(vs_base[0],base[2]);
 
976
        vs_base++;
 
977
        if(vs_base>=vs_top){vs_top=sup;goto T295;}
 
978
        base[4]=MMcons(vs_base[0],base[3]);
 
979
        vs_base++;
 
980
        if(vs_base>=vs_top){vs_top=sup;goto T296;}
 
981
        V163= vs_base[0];
 
982
        vs_base++;
 
983
        if(vs_base>=vs_top){vs_top=sup;goto T297;}
 
984
        V164= vs_base[0];
 
985
        vs_top=sup;
 
986
        goto T298;
 
987
        goto T293;
 
988
T293:;
 
989
        V162= Cnil;
 
990
        goto T294;
 
991
T294:;
 
992
        base[3]=MMcons(Cnil,base[2]);
 
993
        goto T295;
 
994
T295:;
 
995
        base[4]=MMcons(Cnil,base[3]);
 
996
        goto T296;
 
997
T296:;
 
998
        V163= Cnil;
 
999
        goto T297;
 
1000
T297:;
 
1001
        V164= Cnil;
 
1002
        goto T298;
 
1003
T298:;
 
1004
        {object V165;
 
1005
        bds_bind(VV[12],(VV[14]->s.s_dbind));
 
1006
        if(((*(LnkLI83))((base[2]->c.c_car)))==Cnil){
 
1007
        goto T301;}
 
1008
        base[6]= (*(LnkLI84))((base[2]->c.c_car));
 
1009
        goto T299;
 
1010
        goto T301;
 
1011
T301:;
 
1012
        base[9]= (base[2]->c.c_car);
 
1013
        vs_top=(vs_base=base+9)+1;
 
1014
        (void) (*Lnk85)(Lclptr85);
 
1015
        vs_top=sup;
 
1016
        base[6]= vs_base[0];
 
1017
        goto T299;
 
1018
T299:;
 
1019
        base[6]=MMcons(base[6],base[4]);
 
1020
        base[7]= make_cons((V162),(base[3]->c.c_car));
 
1021
        base[7]=MMcons(base[7],base[6]);
 
1022
        V165= (VFUN_NARGS=2,(*(LnkLI86))((base[2]->c.c_car),(V159)));
 
1023
        base[11]= (V165);
 
1024
        base[12]= 
 
1025
        make_cclosure_new(LC27,Cnil,base[7],Cdata);
 
1026
        base[13]= 
 
1027
        make_cclosure_new(LC28,Cnil,base[7],Cdata);
 
1028
        base[14]= 
 
1029
        make_cclosure_new(LC29,Cnil,base[7],Cdata);
 
1030
        vs_top=(vs_base=base+11)+4;
 
1031
        (void) (*Lnk87)();
 
1032
        if(vs_base>=vs_top){vs_top=sup;goto T311;}
 
1033
        base[9]=MMcons(vs_base[0],base[7]);
 
1034
        vs_base++;
 
1035
        if(vs_base>=vs_top){vs_top=sup;goto T312;}
 
1036
        base[10]=MMcons(vs_base[0],base[9]);
 
1037
        vs_top=sup;
 
1038
        goto T313;
 
1039
        goto T311;
 
1040
T311:;
 
1041
        base[9]=MMcons(Cnil,base[7]);
 
1042
        goto T312;
 
1043
T312:;
 
1044
        base[10]=MMcons(Cnil,base[9]);
 
1045
        goto T313;
 
1046
T313:;
 
1047
        {object V166 = 
 
1048
        make_cclosure_new(LC30,Cnil,base[10],Cdata);
 
1049
        bds_unwind1;
 
1050
        VMR15(V166)}}}
 
1051
        base[0]=base[0];
 
1052
        return Cnil;
 
1053
}
 
1054
/*      macro definition for CALL-METHOD-LIST   */
 
1055
 
 
1056
static void L18()
 
1057
{register object *base=vs_base;
 
1058
        register object *sup=base+VM16; VC16
 
1059
        vs_check;
 
1060
        check_arg(2);
 
1061
        vs_top=sup;
 
1062
        {object V167=base[0]->c.c_cdr;
 
1063
        base[2]= V167;}
 
1064
        base[3]= make_cons(VV[41],base[2]);
 
1065
        vs_top=(vs_base=base+3)+1;
 
1066
        return;
 
1067
}
 
1068
/*      local entry for function MAKE-CALL-METHODS      */
 
1069
 
 
1070
static object LI19(V169)
 
1071
 
 
1072
object V169;
 
1073
{        VMB17 VMS17 VMV17
 
1074
        goto TTL;
 
1075
TTL:;
 
1076
        {object V171;
 
1077
        object V172= (V169);
 
1078
        if(V172==Cnil){
 
1079
        V170= Cnil;
 
1080
        goto T314;}
 
1081
        base[0]=V171=MMcons(Cnil,Cnil);
 
1082
        goto T315;
 
1083
T315:;
 
1084
        (V171->c.c_car)= list(3,VV[0],(V172->c.c_car),Cnil);
 
1085
        if((V172=MMcdr(V172))==Cnil){
 
1086
        V170= base[0];
 
1087
        goto T314;}
 
1088
        V171=MMcdr(V171)=MMcons(Cnil,Cnil);
 
1089
        goto T315;}
 
1090
        goto T314;
 
1091
T314:;
 
1092
        {object V174 = make_cons(VV[33],V170);
 
1093
        VMR17(V174)}
 
1094
        base[0]=base[0];
 
1095
        return Cnil;
 
1096
}
 
1097
/*      local entry for function STANDARD-COMPUTE-EFFECTIVE-METHOD      */
 
1098
 
 
1099
static object LI20(V178,V179,V180)
 
1100
 
 
1101
object V178;object V179;object V180;
 
1102
{        VMB18 VMS18 VMV18
 
1103
        goto TTL;
 
1104
TTL:;
 
1105
        {register object V181;
 
1106
        register object V182;
 
1107
        register object V183;
 
1108
        register object V184;
 
1109
        V181= Cnil;
 
1110
        V182= Cnil;
 
1111
        V183= Cnil;
 
1112
        V184= Cnil;
 
1113
        {register object V185;
 
1114
        register object V186;
 
1115
        V185= (V180);
 
1116
        V186= CMPcar((V185));
 
1117
        goto T321;
 
1118
T321:;
 
1119
        if(!(((V185))==Cnil)){
 
1120
        goto T322;}
 
1121
        goto T317;
 
1122
        goto T322;
 
1123
T322:;
 
1124
        {register object V187;
 
1125
        if(!(type_of((V186))==t_cons||((V186))==Cnil)){
 
1126
        goto T329;}
 
1127
        V187= (*(LnkLI88))((V186));
 
1128
        goto T327;
 
1129
        goto T329;
 
1130
T329:;
 
1131
        base[1]= (V186);
 
1132
        vs_top=(vs_base=base+1)+1;
 
1133
        (void) (*Lnk89)(Lclptr89);
 
1134
        vs_top=sup;
 
1135
        V187= vs_base[0];
 
1136
        goto T327;
 
1137
T327:;
 
1138
        {register object x= VV[42],V188= (V187);
 
1139
        while(V188!=Cnil)
 
1140
        if(eql(x,V188->c.c_car)){
 
1141
        goto T334;
 
1142
        }else V188=V188->c.c_cdr;
 
1143
        goto T333;}
 
1144
        goto T334;
 
1145
T334:;
 
1146
        V181= make_cons(V186,(V181));
 
1147
        goto T326;
 
1148
        goto T333;
 
1149
T333:;
 
1150
        {register object x= VV[43],V190= (V187);
 
1151
        while(V190!=Cnil)
 
1152
        if(eql(x,V190->c.c_car)){
 
1153
        goto T338;
 
1154
        }else V190=V190->c.c_cdr;
 
1155
        goto T337;}
 
1156
        goto T338;
 
1157
T338:;
 
1158
        V183= make_cons(V186,(V183));
 
1159
        goto T326;
 
1160
        goto T337;
 
1161
T337:;
 
1162
        {register object x= VV[44],V192= (V187);
 
1163
        while(V192!=Cnil)
 
1164
        if(eql(x,V192->c.c_car)){
 
1165
        goto T342;
 
1166
        }else V192=V192->c.c_cdr;
 
1167
        goto T341;}
 
1168
        goto T342;
 
1169
T342:;
 
1170
        V184= make_cons(V186,(V184));
 
1171
        goto T326;
 
1172
        goto T341;
 
1173
T341:;
 
1174
        V182= make_cons(V186,(V182));}
 
1175
        goto T326;
 
1176
T326:;
 
1177
        V185= CMPcdr((V185));
 
1178
        V186= CMPcar((V185));
 
1179
        goto T321;}
 
1180
        goto T317;
 
1181
T317:;
 
1182
        V181= reverse((V181));
 
1183
        V183= reverse((V183));
 
1184
        V182= reverse((V182));
 
1185
        V184= reverse((V184));
 
1186
        if(((V182))!=Cnil){
 
1187
        goto T359;}
 
1188
        {object V195 = list(3,VV[45],VV[46],list(2,VV[47],(V178)));
 
1189
        VMR18(V195)}
 
1190
        goto T359;
 
1191
T359:;
 
1192
        if(((V181))!=Cnil){
 
1193
        goto T362;}
 
1194
        if(((V183))!=Cnil){
 
1195
        goto T362;}
 
1196
        if(((V184))!=Cnil){
 
1197
        goto T362;}
 
1198
        {object V196 = list(3,VV[0],CMPcar((V182)),CMPcdr((V182)));
 
1199
        VMR18(V196)}
 
1200
        goto T362;
 
1201
T362:;
 
1202
        {object V197;
 
1203
        if(((V181))!=Cnil){
 
1204
        goto T369;}
 
1205
        if(((V183))==Cnil){
 
1206
        goto T370;}
 
1207
        goto T369;
 
1208
T369:;
 
1209
        V198= (*(LnkLI90))((V181));
 
1210
        V199= list(3,VV[41],/* INLINE-ARGS */V198,list(3,VV[0],CMPcar((V182)),CMPcdr((V182))));
 
1211
        V200= reverse((V183));
 
1212
        V197= list(3,VV[48],/* INLINE-ARGS */V199,(*(LnkLI90))(/* INLINE-ARGS */V200));
 
1213
        goto T368;
 
1214
        goto T370;
 
1215
T370:;
 
1216
        V197= list(3,VV[0],CMPcar((V182)),CMPcdr((V182)));
 
1217
        goto T368;
 
1218
T368:;
 
1219
        if(((V184))==Cnil){
 
1220
        goto T375;}
 
1221
        V201= CMPcar((V184));
 
1222
        V202= CMPcdr((V184));
 
1223
        V203= list(2,VV[4],(V197));
 
1224
        V204= make_cons(/* INLINE-ARGS */V203,Cnil);
 
1225
        {object V205 = list(3,VV[0],/* INLINE-ARGS */V201,append(/* INLINE-ARGS */V202,/* INLINE-ARGS */V204));
 
1226
        VMR18(V205)}
 
1227
        goto T375;
 
1228
T375:;
 
1229
        {object V206 = (V197);
 
1230
        VMR18(V206)}}}
 
1231
        base[0]=base[0];
 
1232
        return Cnil;
 
1233
}
 
1234
/*      local entry for function COMPUTE-EFFECTIVE-METHOD       */
 
1235
 
 
1236
static object LI21(V210,V211,V212)
 
1237
 
 
1238
object V210;object V211;object V212;
 
1239
{        VMB19 VMS19 VMV19
 
1240
        goto TTL;
 
1241
TTL:;
 
1242
        {object V213 = (*(LnkLI91))((V210),(V211),(V212));
 
1243
        VMR19(V213)}
 
1244
        return Cnil;
 
1245
}
 
1246
/*      function definition for INVALID-METHOD-ERROR    */
 
1247
 
 
1248
static void L22()
 
1249
{register object *base=vs_base;
 
1250
        register object *sup=base+VM20; VC20
 
1251
        vs_check;
 
1252
        {object V214;
 
1253
        vs_top[0]=Cnil;
 
1254
        {object *p=vs_top;
 
1255
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
1256
        V214=(base[0]);
 
1257
        vs_top=sup;
 
1258
        base[1]= (VV[49]->s.s_dbind);
 
1259
        {object V215;
 
1260
        V215= (V214);
 
1261
         vs_top=base+2;
 
1262
         while(V215!=Cnil)
 
1263
         {vs_push((V215)->c.c_car);V215=(V215)->c.c_cdr;}
 
1264
        vs_base=base+2;}
 
1265
        {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1266
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1267
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1268
               else super_funcall_no_event(_funobj);}
 
1269
        return;
 
1270
        }
 
1271
}
 
1272
/*      function definition for METHOD-COMBINATION-ERROR        */
 
1273
 
 
1274
static void L23()
 
1275
{register object *base=vs_base;
 
1276
        register object *sup=base+VM21; VC21
 
1277
        vs_check;
 
1278
        {object V216;
 
1279
        vs_top[0]=Cnil;
 
1280
        {object *p=vs_top;
 
1281
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
1282
        V216=(base[0]);
 
1283
        vs_top=sup;
 
1284
        base[1]= (VV[50]->s.s_dbind);
 
1285
        {object V217;
 
1286
        V217= (V216);
 
1287
         vs_top=base+2;
 
1288
         while(V217!=Cnil)
 
1289
         {vs_push((V217)->c.c_car);V217=(V217)->c.c_cdr;}
 
1290
        vs_base=base+2;}
 
1291
        {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1292
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1293
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1294
               else super_funcall_no_event(_funobj);}
 
1295
        return;
 
1296
        }
 
1297
}
 
1298
/*      local function CLOSURE  */
 
1299
 
 
1300
static void LC30(base0)
 
1301
register object *base0;
 
1302
{       register object *base=vs_base;
 
1303
        register object *sup=base+VM22; VC22
 
1304
        vs_check;
 
1305
        {object V218;
 
1306
        object V219;
 
1307
        check_arg(2);
 
1308
        V218=(base[0]);
 
1309
        V219=(base[1]);
 
1310
        vs_top=sup;
 
1311
        {object V220;
 
1312
        object V221;
 
1313
        {object V222;
 
1314
        object V223= (base0[0]->c.c_car);
 
1315
        if(V223==Cnil){
 
1316
        V220= Cnil;
 
1317
        goto T381;}
 
1318
        base[4]=V222=MMcons(Cnil,Cnil);
 
1319
        goto T382;
 
1320
T382:;
 
1321
        {register object V224;
 
1322
        V224= (V223->c.c_car);
 
1323
        if(!(type_of((V224))==t_cons)){
 
1324
        goto T385;}
 
1325
        {object V225= CMPcar((V224));
 
1326
        if((V225!= VV[38]))goto T387;
 
1327
        base[5]= CMPcdr((V224));
 
1328
        base[6]= (V218);
 
1329
        base[7]= (V219);
 
1330
        vs_top=(vs_base=base+6)+2;
 
1331
        {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1332
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1333
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1334
               else super_funcall_no_event(_funobj);}
 
1335
        vs_top=sup;
 
1336
        (V222->c.c_car)= vs_base[0];
 
1337
        goto T383;
 
1338
        goto T387;
 
1339
T387:;
 
1340
        if((V225!= VV[39]))goto T391;
 
1341
        {object V226;
 
1342
        object V227= CMPcdr((V224));
 
1343
        if(V227==Cnil){
 
1344
        (V222->c.c_car)= Cnil;
 
1345
        goto T383;}
 
1346
        base[5]=V226=MMcons(Cnil,Cnil);
 
1347
        goto T392;
 
1348
T392:;
 
1349
        base[6]= (V218);
 
1350
        base[7]= (V219);
 
1351
        vs_top=(vs_base=base+6)+2;
 
1352
        {object _funobj = (V227->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1353
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1354
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1355
               else super_funcall_no_event(_funobj);}
 
1356
        vs_top=sup;
 
1357
        (V226->c.c_car)= vs_base[0];
 
1358
        if((V227=MMcdr(V227))==Cnil){
 
1359
        (V222->c.c_car)= base[5];
 
1360
        goto T383;}
 
1361
        V226=MMcdr(V226)=MMcons(Cnil,Cnil);
 
1362
        goto T392;}
 
1363
        goto T391;
 
1364
T391:;
 
1365
        (V222->c.c_car)= (V224);
 
1366
        goto T383;}
 
1367
        goto T385;
 
1368
T385:;
 
1369
        (V222->c.c_car)= (V224);}
 
1370
        goto T383;
 
1371
T383:;
 
1372
        if((V223=MMcdr(V223))==Cnil){
 
1373
        V220= base[4];
 
1374
        goto T381;}
 
1375
        V222=MMcdr(V222)=MMcons(Cnil,Cnil);
 
1376
        goto T382;}
 
1377
        goto T381;
 
1378
T381:;
 
1379
        base[5]= (base0[1]->c.c_car);
 
1380
        {object V229;
 
1381
        V229= (V220);
 
1382
         vs_top=base+6;
 
1383
         while(V229!=Cnil)
 
1384
         {vs_push((V229)->c.c_car);V229=(V229)->c.c_cdr;}
 
1385
        vs_base=base+6;}
 
1386
        {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1387
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1388
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1389
               else super_funcall_no_event(_funobj);}
 
1390
        vs_top=sup;
 
1391
        base[4]= vs_base[0];
 
1392
        base[5]= list(2,VV[40],(base0[3]->c.c_car));
 
1393
        vs_top=(vs_base=base+4)+2;
 
1394
        (void) (*Lnk92)();
 
1395
        vs_top=sup;
 
1396
        V221= vs_base[0];
 
1397
        base[4]= (VFUN_NARGS=4,(*(LnkLI66))(VV[8],(V221),VV[7],(base0[2]->c.c_car)));
 
1398
        vs_top=(vs_base=base+4)+1;
 
1399
        return;}
 
1400
        }
 
1401
}
 
1402
/*      local function CLOSURE  */
 
1403
 
 
1404
static void LC29(base0)
 
1405
register object *base0;
 
1406
{       register object *base=vs_base;
 
1407
        register object *sup=base+VM23; VC23
 
1408
        vs_check;
 
1409
        {object V230;
 
1410
        check_arg(1);
 
1411
        V230=(base[0]);
 
1412
        vs_top=sup;
 
1413
        base[1]= (*(LnkLI93))((V230),(base0[4]->c.c_car));
 
1414
        vs_top=(vs_base=base+1)+1;
 
1415
        return;
 
1416
        }
 
1417
}
 
1418
/*      local function CLOSURE  */
 
1419
 
 
1420
static void LC28(base0)
 
1421
register object *base0;
 
1422
{       register object *base=vs_base;
 
1423
        register object *sup=base+VM24; VC24
 
1424
        vs_check;
 
1425
        {object V231;
 
1426
        check_arg(1);
 
1427
        V231=(base[0]);
 
1428
        vs_top=sup;
 
1429
        base[1]= (V231);
 
1430
        base[2]= (base0[4]->c.c_car);
 
1431
        base[3]= (base0[2]->c.c_car);
 
1432
        base[4]= (base0[3]->c.c_car);
 
1433
        base[5]= (base0[5]->c.c_car);
 
1434
        base[6]= (base0[6]->c.c_car);
 
1435
        vs_top=(vs_base=base+1)+6;
 
1436
        (void) (*Lnk94)();
 
1437
        return;
 
1438
        }
 
1439
}
 
1440
/*      local function CLOSURE  */
 
1441
 
 
1442
static void LC27(base0)
 
1443
register object *base0;
 
1444
{       register object *base=vs_base;
 
1445
        register object *sup=base+VM25; VC25
 
1446
        vs_check;
 
1447
        {object V232;
 
1448
        check_arg(1);
 
1449
        V232=(base[0]);
 
1450
        vs_top=sup;
 
1451
        base[1]= (*(LnkLI95))((V232),(base0[4]->c.c_car),(base0[5]->c.c_car),(base0[6]->c.c_car));
 
1452
        vs_top=(vs_base=base+1)+1;
 
1453
        return;
 
1454
        }
 
1455
}
 
1456
/*      local function CLOSURE  */
 
1457
 
 
1458
static void LC26(base0)
 
1459
register object *base0;
 
1460
{       register object *base=vs_base;
 
1461
        register object *sup=base+VM26; VC26
 
1462
        vs_check;
 
1463
        {object V233;
 
1464
        check_arg(1);
 
1465
        V233=(base[0]);
 
1466
        vs_top=sup;
 
1467
        V234= (*(LnkLI76))((base0[2]->c.c_car),(V233),(base0[1]->c.c_car),(base0[0]->c.c_car));
 
1468
        base[1]= ((VV[2])==(/* INLINE-ARGS */V234)?Ct:Cnil);
 
1469
        vs_top=(vs_base=base+1)+1;
 
1470
        return;
 
1471
        }
 
1472
}
 
1473
/*      local function CLOSURE  */
 
1474
 
 
1475
static void LC25(base0)
 
1476
register object *base0;
 
1477
{       register object *base=vs_base;
 
1478
        register object *sup=base+VM27; VC27
 
1479
        vs_check;
 
1480
        {object V235;
 
1481
        check_arg(1);
 
1482
        V235=(base[0]);
 
1483
        vs_top=sup;
 
1484
        V236= (*(LnkLI76))((base0[0]->c.c_car),(V235),(base0[1]->c.c_car),(base0[2]->c.c_car));
 
1485
        base[1]= ((VV[2])==(/* INLINE-ARGS */V236)?Ct:Cnil);
 
1486
        vs_top=(vs_base=base+1)+1;
 
1487
        return;
 
1488
        }
 
1489
}
 
1490
/*      local function CLOSURE  */
 
1491
 
 
1492
static void LC24(base0)
 
1493
register object *base0;
 
1494
{       register object *base=vs_base;
 
1495
        register object *sup=base+VM28; VC28
 
1496
        vs_check;
 
1497
        {object V237;
 
1498
        object V238;
 
1499
        check_arg(2);
 
1500
        V237=(base[0]);
 
1501
        V238=(base[1]);
 
1502
        vs_top=sup;
 
1503
        base[2]= (base0[3]->c.c_car);
 
1504
        base[3]= (base0[1]->c.c_car);
 
1505
        base[4]= (base0[0]->c.c_car);
 
1506
        base[5]= (base0[2]->c.c_car);
 
1507
        base[6]= (V237);
 
1508
        base[7]= (V238);
 
1509
        vs_top=(vs_base=base+2)+6;
 
1510
        (void) (*Lnk64)();
 
1511
        return;
 
1512
        }
 
1513
}
 
1514
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;} /* MEMF-TEST-CONVERTER */
 
1515
static void LnkT94(){ call_or_link(VV[94],(void **)(void *)&Lnk94);} /* MEMF-CODE-CONVERTER */
 
1516
static object  LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[93],(void **)(void *)&LnkLI93,2,first,ap);va_end(ap);return V1;} /* MEMF-CONSTANT-CONVERTER */
 
1517
static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* SET-FUNCTION-NAME */
 
1518
static object  LnkTLI91(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[91],(void **)(void *)&LnkLI91,3,first,ap);va_end(ap);return V1;} /* STANDARD-COMPUTE-EFFECTIVE-METHOD */
 
1519
static object  LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[90],(void **)(void *)&LnkLI90,1,first,ap);va_end(ap);return V1;} /* MAKE-CALL-METHODS */
 
1520
static void LnkT89(ptr) object *ptr;{ call_or_link_closure(VV[89],(void **)(void *)&Lnk89,(void **)(void *)&Lclptr89);} /* METHOD-QUALIFIERS */
 
1521
static object  LnkTLI88(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[88],(void **)(void *)&LnkLI88,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */
 
1522
static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* GET-FUNCTION1 */
 
1523
static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[86],(void **)(void *)&LnkLI86,first,ap);va_end(ap);return V1;} /* EXPAND-EFFECTIVE-METHOD-FUNCTION */
 
1524
static void LnkT85(ptr) object *ptr;{ call_or_link_closure(VV[85],(void **)(void *)&Lnk85,(void **)(void *)&Lclptr85);} /* GENERIC-FUNCTION-NAME */
 
1525
static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */
 
1526
static object  LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */
 
1527
static object  LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[82],(void **)(void *)&LnkLI82,1,first,ap);va_end(ap);return V1;} /* DEFAULT-CONSTANT-CONVERTER */
 
1528
static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* DEFAULT-CODE-CONVERTER */
 
1529
static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[80],(void **)(void *)&LnkLI80,first,ap);va_end(ap);return V1;} /* MAKE-EMF-CALL */
 
1530
static object  LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* GET-EFFECTIVE-METHOD-GENSYM */
 
1531
static object  LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[78],(void **)(void *)&LnkLI78,1,first,ap);va_end(ap);return V1;} /* DEFAULT-TEST-CONVERTER */
 
1532
static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* EVERY */
 
1533
static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,4,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION-TYPE */
 
1534
static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* DFUN-ARG-SYMBOL-LIST */
 
1535
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* LONG-METHOD-COMBINATION-ARGUMENTS-LAMBDA-LIST */
 
1536
static void LnkT73(ptr) object *ptr;{ call_or_link_closure(VV[73],(void **)(void *)&Lnk73,(void **)(void *)&Lclptr73);} /* LONG-METHOD-COMBINATION-P */
 
1537
static void LnkT72(ptr) object *ptr;{ call_or_link_closure(VV[72],(void **)(void *)&Lnk72,(void **)(void *)&Lclptr72);} /* GENERIC-FUNCTION-METHOD-COMBINATION */
 
1538
static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* MAKE-FAST-METHOD-CALL-LAMBDA-LIST */
 
1539
static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* GET-GENERIC-FUNCTION-INFO */
 
1540
static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* MAKE-EFFECTIVE-METHOD-FUNCTION */
 
1541
static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[68],(void **)(void *)&LnkLI68,first,ap);va_end(ap);return V1;} /* MAKE-EMF-FROM-METHOD */
 
1542
static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-CALL */
 
1543
static object  LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[66],(void **)(void *)&LnkLI66,first,ap);va_end(ap);return V1;} /* MAKE-FAST-METHOD-CALL */
 
1544
static object  LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[65],(void **)(void *)&LnkLI65,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */
 
1545
static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1 */
 
1546
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* GET-METHOD-FUNCTION */
 
1547
static void LnkT62(ptr) object *ptr;{ call_or_link_closure(VV[62],(void **)(void *)&Lnk62,(void **)(void *)&Lclptr62);} /* GF-FAST-METHOD-FUNCTION-P */
 
1548
static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* METHOD-P */
 
1549
static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,4,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL */
 
1550
static object  LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE */
 
1551
static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,4,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION1 */
 
1552
static void LnkT57(ptr) object *ptr;{ call_or_link_closure(VV[57],(void **)(void *)&Lnk57,(void **)(void *)&Lclptr57);} /* METHOD-FUNCTION */
 
1553
static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-FROM-FAST-FUNCTION */
 
1554
static object  LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */
 
1555
static object  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,2,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-ALL-WRAPPERS */
 
1556
static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PV-TABLE */
 
1557
static void LnkT52(ptr) object *ptr;{ call_or_link_closure(VV[52],(void **)(void *)&Lnk52,(void **)(void *)&Lclptr52);} /* METHOD-FAST-FUNCTION */
 
1558
static void LnkT51(){ call_or_link(VV[51],(void **)(void *)&Lnk51);} /* EARLY-METHOD-FUNCTION */
 
1559
 
 
1560
#ifdef SYSTEM_SPECIAL_INIT
 
1561
SYSTEM_SPECIAL_INIT
 
1562
#endif
 
1563