← Back to branch summary

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

« back to all changes in this revision

Viewing changes to pcl/c/pcl_dfun.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_dfun.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_dfun.h"
 
4
void init_pcl_dfun(){do_init(VV);}
 
5
/*      local entry for function SHOW-DFUN-CONSTRUCTORS */
 
6
 
 
7
static object LI1()
 
8
 
 
9
{        VMB1 VMS1 VMV1
 
10
        goto TTL;
 
11
TTL:;
 
12
        base[0]= Ct;
 
13
        base[1]= VV[0];
 
14
        if(((VV[1]->s.s_dbind))==Cnil){
 
15
        goto T6;}
 
16
        base[2]= VV[2];
 
17
        goto T4;
 
18
        goto T6;
 
19
T6:;
 
20
        base[2]= VV[3];
 
21
        goto T4;
 
22
T4:;
 
23
        vs_top=(vs_base=base+0)+3;
 
24
        Lformat();
 
25
        vs_top=sup;
 
26
        {register object V1;
 
27
        register object V2;
 
28
        V1= (VV[4]->s.s_dbind);
 
29
        V2= CMPcar((V1));
 
30
        goto T11;
 
31
T11:;
 
32
        if(!(((V1))==Cnil)){
 
33
        goto T12;}
 
34
        {object V3 = Cnil;
 
35
        VMR1(V3)}
 
36
        goto T12;
 
37
T12:;
 
38
        {register object V4;
 
39
        register object V5;
 
40
        V4= CMPcdr((V2));
 
41
        V5= CMPcar((V4));
 
42
        goto T20;
 
43
T20:;
 
44
        if(!(((V4))==Cnil)){
 
45
        goto T21;}
 
46
        goto T16;
 
47
        goto T21;
 
48
T21:;
 
49
        base[3]= Ct;
 
50
        base[4]= VV[5];
 
51
        base[5]= make_cons(CMPcar((V2)),CMPcaar((V5)));
 
52
        base[6]= CMPcaddr((V5));
 
53
        vs_top=(vs_base=base+3)+4;
 
54
        Lformat();
 
55
        vs_top=sup;
 
56
        V4= CMPcdr((V4));
 
57
        V5= CMPcar((V4));
 
58
        goto T20;}
 
59
        goto T16;
 
60
T16:;
 
61
        V1= CMPcdr((V1));
 
62
        V2= CMPcar((V1));
 
63
        goto T11;}
 
64
        base[0]=base[0];
 
65
        return Cnil;
 
66
}
 
67
/*      function definition for GET-DFUN-CONSTRUCTOR    */
 
68
 
 
69
static void L2()
 
70
{register object *base=vs_base;
 
71
        register object *sup=base+VM2; VC2
 
72
        vs_check;
 
73
        {register object V6;
 
74
        register object V7;
 
75
        if(vs_top-vs_base<1) too_few_arguments();
 
76
        V6=(base[0]);
 
77
        vs_base=vs_base+1;
 
78
        vs_top[0]=Cnil;
 
79
        {object *p=vs_top;
 
80
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
81
        V7=(base[1]);
 
82
        vs_top=sup;
 
83
        if(((VV[6]->s.s_dbind))==Cnil){
 
84
        goto T40;}
 
85
        {register object x= (V6),V8= VV[7];
 
86
        while(V8!=Cnil)
 
87
        if(eql(x,V8->c.c_car)){
 
88
        goto T44;
 
89
        }else V8=V8->c.c_cdr;
 
90
        goto T40;}
 
91
        goto T44;
 
92
T44:;
 
93
        {object V10;
 
94
        object V11= CMPcar((V7));
 
95
        if(V11==Cnil){
 
96
        V9= Cnil;
 
97
        goto T46;}
 
98
        base[2]=V10=MMcons(Cnil,Cnil);
 
99
        goto T47;
 
100
T47:;
 
101
        if(!(((V11->c.c_car))==(Ct))){
 
102
        goto T50;}
 
103
        (V10->c.c_car)= (V11->c.c_car);
 
104
        goto T48;
 
105
        goto T50;
 
106
T50:;
 
107
        (V10->c.c_car)= VV[8];
 
108
        goto T48;
 
109
T48:;
 
110
        if((V11=MMcdr(V11))==Cnil){
 
111
        V9= base[2];
 
112
        goto T46;}
 
113
        V10=MMcdr(V10)=MMcons(Cnil,Cnil);
 
114
        goto T47;}
 
115
        goto T46;
 
116
T46:;
 
117
        V7= make_cons(V9,CMPcdr((V7)));
 
118
        goto T40;
 
119
T40:;
 
120
        {object V13;
 
121
        object V14;
 
122
        {register object x= (V6),V15= (VV[4]->s.s_dbind);
 
123
        while(V15!=Cnil)
 
124
        if(EQ(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){
 
125
        V13= (V15->c.c_car);
 
126
        goto T52;
 
127
        }else V15=V15->c.c_cdr;
 
128
        V13= Cnil;}
 
129
        goto T52;
 
130
T52:;
 
131
        {register object x= (V7),V16= CMPcdr((V13));
 
132
        while(V16!=Cnil)
 
133
        if(equal(x,V16->c.c_car->c.c_car) &&V16->c.c_car != Cnil){
 
134
        V14= (V16->c.c_car);
 
135
        goto T53;
 
136
        }else V16=V16->c.c_cdr;
 
137
        V14= Cnil;}
 
138
        goto T53;
 
139
T53:;
 
140
        if(((VV[1]->s.s_dbind))!=Cnil){
 
141
        goto T55;}
 
142
        base[5]= (V6);
 
143
        vs_top=(vs_base=base+5)+1;
 
144
        Lsymbol_function();
 
145
        vs_top=sup;
 
146
        base[4]= vs_base[0];
 
147
        {object V17;
 
148
        V17= (V7);
 
149
         vs_top=base+5;
 
150
         while(V17!=Cnil)
 
151
         {vs_push((V17)->c.c_car);V17=(V17)->c.c_cdr;}
 
152
        vs_base=base+5;}
 
153
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
154
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
155
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
156
               else super_funcall_no_event(_funobj);}
 
157
        return;
 
158
        goto T55;
 
159
T55:;{object V18;
 
160
        V18= CMPcadr((V14));
 
161
        if(V18==Cnil)goto T60;
 
162
        base[4]= V18;
 
163
        vs_top=(vs_base=base+4)+1;
 
164
        return;
 
165
        goto T60;
 
166
T60:;}
 
167
        {object V19;
 
168
        object V20;
 
169
        base[5]= (V6);
 
170
        vs_top=(vs_base=base+5)+1;
 
171
        Lsymbol_function();
 
172
        vs_top=sup;
 
173
        base[4]= vs_base[0];
 
174
        {object V21;
 
175
        V21= (V7);
 
176
         vs_top=base+5;
 
177
         while(V21!=Cnil)
 
178
         {vs_push((V21)->c.c_car);V21=(V21)->c.c_cdr;}
 
179
        vs_base=base+5;}
 
180
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
181
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
182
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
183
               else super_funcall_no_event(_funobj);}
 
184
        if(vs_base>=vs_top){vs_top=sup;goto T66;}
 
185
        V19= vs_base[0];
 
186
        vs_base++;
 
187
        if(vs_base>=vs_top){vs_top=sup;goto T67;}
 
188
        V20= vs_base[0];
 
189
        vs_top=sup;
 
190
        goto T68;
 
191
        goto T66;
 
192
T66:;
 
193
        V19= Cnil;
 
194
        goto T67;
 
195
T67:;
 
196
        V20= Cnil;
 
197
        goto T68;
 
198
T68:;
 
199
        {object V22;
 
200
        base[4]= (V7);
 
201
        vs_top=(vs_base=base+4)+1;
 
202
        Lcopy_list();
 
203
        vs_top=sup;
 
204
        V23= vs_base[0];
 
205
        if(((V20))!=Cnil){
 
206
        goto T75;}
 
207
        V24= VV[9];
 
208
        goto T73;
 
209
        goto T75;
 
210
T75:;
 
211
        V24= Cnil;
 
212
        goto T73;
 
213
T73:;
 
214
        V22= list(4,V23,(V19),V24,(V20));
 
215
        if(((V13))==Cnil){
 
216
        goto T78;}
 
217
        {object V27;
 
218
        V27= make_cons(V22,CMPcdr(V13));
 
219
        (V13)->c.c_cdr = (V27);
 
220
        goto T69;}
 
221
        goto T78;
 
222
T78:;
 
223
        {object V28;
 
224
        V28= list(2,(V6),(V22));
 
225
        (VV[4]->s.s_dbind)= make_cons((V28),(VV[4]->s.s_dbind));}}
 
226
        goto T69;
 
227
T69:;
 
228
        base[4]= (V19);
 
229
        base[5]= (V20);
 
230
        vs_top=(vs_base=base+4)+2;
 
231
        return;}}
 
232
        }
 
233
}
 
234
/*      local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR      */
 
235
 
 
236
static object LI3(V33,V34,V35,V36)
 
237
 
 
238
object V33;object V34;object V35;object V36;
 
239
{        VMB3 VMS3 VMV3
 
240
        goto TTL;
 
241
TTL:;
 
242
        {object V37;
 
243
        register object V38;
 
244
        {register object x= (V33),V39= (VV[4]->s.s_dbind);
 
245
        while(V39!=Cnil)
 
246
        if(EQ(x,V39->c.c_car->c.c_car) &&V39->c.c_car != Cnil){
 
247
        V37= (V39->c.c_car);
 
248
        goto T86;
 
249
        }else V39=V39->c.c_cdr;
 
250
        V37= Cnil;}
 
251
        goto T86;
 
252
T86:;
 
253
        {register object x= (V34),V40= CMPcdr((V37));
 
254
        while(V40!=Cnil)
 
255
        if(equal(x,V40->c.c_car->c.c_car) &&V40->c.c_car != Cnil){
 
256
        V38= (V40->c.c_car);
 
257
        goto T87;
 
258
        }else V40=V40->c.c_cdr;
 
259
        V38= Cnil;}
 
260
        goto T87;
 
261
T87:;
 
262
        if(((V38))==Cnil){
 
263
        goto T89;}
 
264
        if((CMPcadddr((V38)))==Cnil){
 
265
        goto T92;}
 
266
        {object V41;
 
267
        register object V42;
 
268
        object V43;
 
269
        {object V44= (V33);
 
270
        if((V44!= VV[69]))goto T95;
 
271
        V41= VV[10];
 
272
        goto T94;
 
273
        goto T95;
 
274
T95:;
 
275
        if((V44!= VV[76]))goto T96;
 
276
        V41= VV[11];
 
277
        goto T94;
 
278
        goto T96;
 
279
T96:;
 
280
        if((V44!= VV[82]))goto T97;
 
281
        V41= VV[12];
 
282
        goto T94;
 
283
        goto T97;
 
284
T97:;
 
285
        if((V44!= VV[68]))goto T98;
 
286
        V41= VV[13];
 
287
        goto T94;
 
288
        goto T98;
 
289
T98:;
 
290
        V41= Cnil;}
 
291
        goto T94;
 
292
T94:;
 
293
        V42= CMPcar((V34));
 
294
        if(((V41))==Cnil){
 
295
        goto T102;}
 
296
        V43= (*(LnkLI176))((V41));
 
297
        goto T100;
 
298
        goto T102;
 
299
T102:;
 
300
        V43= Cnil;
 
301
        goto T100;
 
302
T100:;
 
303
        {register object V45;
 
304
        register object V46;
 
305
        V45= (V43);
 
306
        V46= CMPcar((V45));
 
307
        goto T108;
 
308
T108:;
 
309
        if(!(((V45))==Cnil)){
 
310
        goto T109;}
 
311
        goto T104;
 
312
        goto T109;
 
313
T109:;
 
314
        base[6]= (V46);
 
315
        vs_top=(vs_base=base+6)+1;
 
316
        (void) (*Lnk177)(Lclptr177);
 
317
        vs_top=sup;
 
318
        V47= vs_base[0];
 
319
        if(!(equal((V42),STREF(object,V47,8)))){
 
320
        goto T113;}
 
321
        {register object V48;
 
322
        base[6]= (V46);
 
323
        vs_top=(vs_base=base+6)+1;
 
324
        (void) (*Lnk178)(Lclptr178);
 
325
        vs_top=sup;
 
326
        V48= vs_base[0];
 
327
        if(((((V48))==(VV[15])?Ct:Cnil))==Cnil){
 
328
        goto T122;}
 
329
        goto T113;
 
330
        goto T122;
 
331
T122:;
 
332
        if(((equal((V48),VV[16])?Ct:Cnil))==Cnil){
 
333
        goto T124;}
 
334
        goto T113;
 
335
        goto T124;
 
336
T124:;
 
337
        if(!(((((V48))==(VV[17])?Ct:Cnil))==Cnil)){
 
338
        goto T113;}}
 
339
        (void)((VFUN_NARGS=1,(*(LnkLI47))((V46))));
 
340
        goto T113;
 
341
T113:;
 
342
        V45= CMPcdr((V45));
 
343
        V46= CMPcar((V45));
 
344
        goto T108;}
 
345
        goto T104;
 
346
T104:;
 
347
        (CMPcdr(V38))->c.c_car = V36;
 
348
        (void)(CMPcdr(V38));
 
349
        (CMPcddr(V38))->c.c_car = V35;
 
350
        (void)(CMPcddr(V38));
 
351
        (CMPcdddr(V38))->c.c_car = Cnil;
 
352
        (void)(CMPcdddr(V38));
 
353
        {object V55 = Cnil;
 
354
        VMR3(V55)}}
 
355
        goto T92;
 
356
T92:;
 
357
        {object V56 = Cnil;
 
358
        VMR3(V56)}
 
359
        goto T89;
 
360
T89:;
 
361
        {object V57;
 
362
        V57= list(4,(V34),(V36),(V35),Cnil);
 
363
        if(((V37))==Cnil){
 
364
        goto T138;}
 
365
        {object V60;
 
366
        V60= make_cons(V57,CMPcdr(V37));
 
367
        (V37)->c.c_cdr = (V60);
 
368
        {object V61 = (V60);
 
369
        VMR3(V61)}}
 
370
        goto T138;
 
371
T138:;
 
372
        {object V62;
 
373
        V62= list(2,(V33),(V57));
 
374
        (VV[4]->s.s_dbind)= make_cons((V62),(VV[4]->s.s_dbind));
 
375
        {object V63 = (VV[4]->s.s_dbind);
 
376
        VMR3(V63)}}}}
 
377
        base[0]=base[0];
 
378
        return Cnil;
 
379
}
 
380
/*      macro definition for PRECOMPILE-DFUN-CONSTRUCTORS       */
 
381
 
 
382
static void L4()
 
383
{register object *base=vs_base;
 
384
        register object *sup=base+VM4; VC4
 
385
        vs_check;
 
386
        bds_check;
 
387
        check_arg(2);
 
388
        vs_top=sup;
 
389
        {object V64=base[0]->c.c_cdr;
 
390
        if(endp(V64)){
 
391
        base[2]= Cnil;
 
392
        } else {
 
393
        base[2]= (V64->c.c_car);
 
394
        V64=V64->c.c_cdr;}
 
395
        if(!endp(V64))invalid_macro_call();}
 
396
        bds_bind(VV[18],Ct);
 
397
        {register object V66;
 
398
        V66= Cnil;
 
399
        {register object V67;
 
400
        register object V68;
 
401
        V67= (VV[4]->s.s_dbind);
 
402
        V68= CMPcar((V67));
 
403
        goto T149;
 
404
T149:;
 
405
        if(!(((V67))==Cnil)){
 
406
        goto T150;}
 
407
        V65= nreverse((V66));
 
408
        goto T145;
 
409
        goto T150;
 
410
T150:;
 
411
        {register object V69;
 
412
        register object V70;
 
413
        V69= CMPcdr((V68));
 
414
        V70= CMPcar((V69));
 
415
        goto T158;
 
416
T158:;
 
417
        if(!(((V69))==Cnil)){
 
418
        goto T159;}
 
419
        goto T154;
 
420
        goto T159;
 
421
T159:;
 
422
        if((CMPcaddr((V70)))==Cnil){
 
423
        goto T164;}
 
424
        if(!((CMPcaddr((V70)))==(base[2]))){
 
425
        goto T163;}
 
426
        goto T164;
 
427
T164:;
 
428
        if((base[2])==Cnil){
 
429
        goto T168;}
 
430
        {register object V71;
 
431
        register object V72;
 
432
        V71= (V70);
 
433
        V72= base[2];
 
434
        (CMPcddr((V71)))->c.c_car = (V72);
 
435
        (void)(CMPcddr((V71)));}
 
436
        goto T168;
 
437
T168:;
 
438
        {register object V73;
 
439
        V74= list(2,VV[20],CMPcar((V68)));
 
440
        V75= list(2,VV[23],CMPcar((V68)));
 
441
        V76= list(2,VV[23],CMPcar((V70)));
 
442
        V77= list(2,VV[23],base[2]);
 
443
        base[9]= CMPcar((V68));
 
444
        vs_top=(vs_base=base+9)+1;
 
445
        Lsymbol_function();
 
446
        vs_top=sup;
 
447
        base[8]= vs_base[0];
 
448
        {object V79;
 
449
        V79= CMPcar((V70));
 
450
         vs_top=base+9;
 
451
         while(V79!=Cnil)
 
452
         {vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;}
 
453
        vs_base=base+9;}
 
454
        {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
455
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
456
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
457
               else super_funcall_no_event(_funobj);}
 
458
        vs_top=sup;
 
459
        V78= vs_base[0];
 
460
        V80= list(5,VV[22],/* INLINE-ARGS */V75,/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,V78);
 
461
        V73= (*(LnkLI179))(/* INLINE-ARGS */V74,VV[21],/* INLINE-ARGS */V80);
 
462
        V66= make_cons((V73),(V66));}
 
463
        goto T163;
 
464
T163:;
 
465
        V69= CMPcdr((V69));
 
466
        V70= CMPcar((V69));
 
467
        goto T158;}
 
468
        goto T154;
 
469
T154:;
 
470
        V67= CMPcdr((V67));
 
471
        V68= CMPcar((V67));
 
472
        goto T149;}}
 
473
        goto T145;
 
474
T145:;
 
475
        base[4]= make_cons(VV[19],V65);
 
476
        vs_top=(vs_base=base+4)+1;
 
477
        bds_unwind1;
 
478
        return;
 
479
}
 
480
/*      local entry for function __si::MAKE-DFUN-INFO   */
 
481
 
 
482
static object LI5(object first,...)
 
483
{       
 
484
        va_list ap;
 
485
        int narg = VFUN_NARGS; VMB5 VMS5 VMV5
 
486
        {object V81;
 
487
        va_start(ap,first);
 
488
        narg= narg - 0;
 
489
        {
 
490
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI5key,first,ap);
 
491
        V81=(Vcs[0]);
 
492
        base[0]= VV[24];
 
493
        base[1]= (V81);
 
494
        vs_top=(vs_base=base+0)+2;
 
495
        siLmake_structure();
 
496
        vs_top=sup;
 
497
        {object V82 = vs_base[0];
 
498
        VMR5(V82)}
 
499
        va_end(ap);
 
500
        base[0]=base[0];
 
501
        return Cnil;}
 
502
        }}
 
503
/*      local entry for function PRINT-DFUN-INFO        */
 
504
 
 
505
static object LI6(V86,V87,V88)
 
506
 
 
507
object V86;register object V87;object V88;
 
508
{        VMB6 VMS6 VMV6
 
509
        goto TTL;
 
510
TTL:;
 
511
        base[0]= (V87);
 
512
        base[1]= VV[25];
 
513
        vs_top=(vs_base=base+0)+2;
 
514
        Lformat();
 
515
        vs_top=sup;
 
516
        base[0]= (V87);
 
517
        base[1]= VV[26];
 
518
        base[3]= (V86);
 
519
        vs_top=(vs_base=base+3)+1;
 
520
        Ltype_of();
 
521
        vs_top=sup;
 
522
        base[2]= vs_base[0];
 
523
        vs_top=(vs_base=base+0)+3;
 
524
        Lformat();
 
525
        vs_top=sup;
 
526
        base[0]= (V87);
 
527
        base[1]= VV[27];
 
528
        vs_top=(vs_base=base+0)+2;
 
529
        Lformat();
 
530
        vs_top=sup;
 
531
        (void)((*(LnkLI181))((V86),(V87)));
 
532
        base[0]= (V87);
 
533
        base[1]= VV[28];
 
534
        vs_top=(vs_base=base+0)+2;
 
535
        Lformat();
 
536
        vs_top=sup;
 
537
        {object V89 = vs_base[0];
 
538
        VMR6(V89)}
 
539
        base[0]=base[0];
 
540
        return Cnil;
 
541
}
 
542
/*      local entry for function __si::MAKE-NO-METHODS  */
 
543
 
 
544
static object LI7(object first,...)
 
545
{       
 
546
        va_list ap;
 
547
        int narg = VFUN_NARGS; VMB7 VMS7 VMV7
 
548
        {object V90;
 
549
        va_start(ap,first);
 
550
        narg= narg - 0;
 
551
        {
 
552
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI7key,first,ap);
 
553
        V90=(Vcs[0]);
 
554
        base[0]= VV[29];
 
555
        base[1]= (V90);
 
556
        vs_top=(vs_base=base+0)+2;
 
557
        siLmake_structure();
 
558
        vs_top=sup;
 
559
        {object V91 = vs_base[0];
 
560
        VMR7(V91)}
 
561
        va_end(ap);
 
562
        base[0]=base[0];
 
563
        return Cnil;}
 
564
        }}
 
565
/*      local entry for function NO-METHODS-DFUN-INFO   */
 
566
 
 
567
static object LI8()
 
568
 
 
569
{        VMB8 VMS8 VMV8
 
570
        goto TTL;
 
571
TTL:;
 
572
        base[0]= VV[29];
 
573
        base[1]= Cnil;
 
574
        vs_top=(vs_base=base+0)+2;
 
575
        siLmake_structure();
 
576
        vs_top=sup;
 
577
        {object V93 = vs_base[0];
 
578
        VMR8(V93)}
 
579
        base[0]=base[0];
 
580
        return Cnil;
 
581
}
 
582
/*      local entry for function __si::MAKE-INITIAL     */
 
583
 
 
584
static object LI9(object first,...)
 
585
{       
 
586
        va_list ap;
 
587
        int narg = VFUN_NARGS; VMB9 VMS9 VMV9
 
588
        {object V94;
 
589
        va_start(ap,first);
 
590
        narg= narg - 0;
 
591
        {
 
592
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI9key,first,ap);
 
593
        V94=(Vcs[0]);
 
594
        base[0]= VV[30];
 
595
        base[1]= (V94);
 
596
        vs_top=(vs_base=base+0)+2;
 
597
        siLmake_structure();
 
598
        vs_top=sup;
 
599
        {object V95 = vs_base[0];
 
600
        VMR9(V95)}
 
601
        va_end(ap);
 
602
        base[0]=base[0];
 
603
        return Cnil;}
 
604
        }}
 
605
/*      local entry for function INITIAL-DFUN-INFO      */
 
606
 
 
607
static object LI10()
 
608
 
 
609
{        VMB10 VMS10 VMV10
 
610
        goto TTL;
 
611
TTL:;
 
612
        base[0]= VV[30];
 
613
        base[1]= Cnil;
 
614
        vs_top=(vs_base=base+0)+2;
 
615
        siLmake_structure();
 
616
        vs_top=sup;
 
617
        {object V97 = vs_base[0];
 
618
        VMR10(V97)}
 
619
        base[0]=base[0];
 
620
        return Cnil;
 
621
}
 
622
/*      local entry for function __si::MAKE-INITIAL-DISPATCH    */
 
623
 
 
624
static object LI11(object first,...)
 
625
{       
 
626
        va_list ap;
 
627
        int narg = VFUN_NARGS; VMB11 VMS11 VMV11
 
628
        {object V98;
 
629
        va_start(ap,first);
 
630
        narg= narg - 0;
 
631
        {
 
632
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI11key,first,ap);
 
633
        V98=(Vcs[0]);
 
634
        base[0]= VV[31];
 
635
        base[1]= (V98);
 
636
        vs_top=(vs_base=base+0)+2;
 
637
        siLmake_structure();
 
638
        vs_top=sup;
 
639
        {object V99 = vs_base[0];
 
640
        VMR11(V99)}
 
641
        va_end(ap);
 
642
        base[0]=base[0];
 
643
        return Cnil;}
 
644
        }}
 
645
/*      local entry for function INITIAL-DISPATCH-DFUN-INFO     */
 
646
 
 
647
static object LI12()
 
648
 
 
649
{        VMB12 VMS12 VMV12
 
650
        goto TTL;
 
651
TTL:;
 
652
        base[0]= VV[31];
 
653
        base[1]= Cnil;
 
654
        vs_top=(vs_base=base+0)+2;
 
655
        siLmake_structure();
 
656
        vs_top=sup;
 
657
        {object V101 = vs_base[0];
 
658
        VMR12(V101)}
 
659
        base[0]=base[0];
 
660
        return Cnil;
 
661
}
 
662
/*      local entry for function __si::MAKE-DISPATCH    */
 
663
 
 
664
static object LI13(object first,...)
 
665
{       
 
666
        va_list ap;
 
667
        int narg = VFUN_NARGS; VMB13 VMS13 VMV13
 
668
        {object V102;
 
669
        va_start(ap,first);
 
670
        narg= narg - 0;
 
671
        {
 
672
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI13key,first,ap);
 
673
        V102=(Vcs[0]);
 
674
        base[0]= VV[32];
 
675
        base[1]= (V102);
 
676
        vs_top=(vs_base=base+0)+2;
 
677
        siLmake_structure();
 
678
        vs_top=sup;
 
679
        {object V103 = vs_base[0];
 
680
        VMR13(V103)}
 
681
        va_end(ap);
 
682
        base[0]=base[0];
 
683
        return Cnil;}
 
684
        }}
 
685
/*      local entry for function DISPATCH-DFUN-INFO     */
 
686
 
 
687
static object LI14()
 
688
 
 
689
{        VMB14 VMS14 VMV14
 
690
        goto TTL;
 
691
TTL:;
 
692
        base[0]= VV[32];
 
693
        base[1]= Cnil;
 
694
        vs_top=(vs_base=base+0)+2;
 
695
        siLmake_structure();
 
696
        vs_top=sup;
 
697
        {object V105 = vs_base[0];
 
698
        VMR14(V105)}
 
699
        base[0]=base[0];
 
700
        return Cnil;
 
701
}
 
702
/*      local entry for function __si::MAKE-DEFAULT-METHOD-ONLY */
 
703
 
 
704
static object LI15(object first,...)
 
705
{       
 
706
        va_list ap;
 
707
        int narg = VFUN_NARGS; VMB15 VMS15 VMV15
 
708
        {object V106;
 
709
        va_start(ap,first);
 
710
        narg= narg - 0;
 
711
        {
 
712
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI15key,first,ap);
 
713
        V106=(Vcs[0]);
 
714
        base[0]= VV[13];
 
715
        base[1]= (V106);
 
716
        vs_top=(vs_base=base+0)+2;
 
717
        siLmake_structure();
 
718
        vs_top=sup;
 
719
        {object V107 = vs_base[0];
 
720
        VMR15(V107)}
 
721
        va_end(ap);
 
722
        base[0]=base[0];
 
723
        return Cnil;}
 
724
        }}
 
725
/*      local entry for function DEFAULT-METHOD-ONLY-DFUN-INFO  */
 
726
 
 
727
static object LI16()
 
728
 
 
729
{        VMB16 VMS16 VMV16
 
730
        goto TTL;
 
731
TTL:;
 
732
        base[0]= VV[13];
 
733
        base[1]= Cnil;
 
734
        vs_top=(vs_base=base+0)+2;
 
735
        siLmake_structure();
 
736
        vs_top=sup;
 
737
        {object V109 = vs_base[0];
 
738
        VMR16(V109)}
 
739
        base[0]=base[0];
 
740
        return Cnil;
 
741
}
 
742
/*      local entry for function __si::MAKE-ACCESSOR-DFUN-INFO  */
 
743
 
 
744
static object LI17(object first,...)
 
745
{       
 
746
        va_list ap;
 
747
        int narg = VFUN_NARGS; VMB17 VMS17 VMV17
 
748
        {object V110;
 
749
        object V111;
 
750
        va_start(ap,first);
 
751
        narg= narg - 0;
 
752
        {
 
753
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI17key,first,ap);
 
754
        V110=(Vcs[0]);
 
755
        V111=(Vcs[1]);
 
756
        base[0]= VV[33];
 
757
        base[1]= (V110);
 
758
        base[2]= (V111);
 
759
        vs_top=(vs_base=base+0)+3;
 
760
        siLmake_structure();
 
761
        vs_top=sup;
 
762
        {object V112 = vs_base[0];
 
763
        VMR17(V112)}
 
764
        va_end(ap);
 
765
        base[0]=base[0];
 
766
        return Cnil;}
 
767
        }}
 
768
/*      macro definition for DFUN-INFO-ACCESSOR-TYPE    */
 
769
 
 
770
static void L18()
 
771
{register object *base=vs_base;
 
772
        register object *sup=base+VM18; VC18
 
773
        vs_check;
 
774
        check_arg(2);
 
775
        vs_top=sup;
 
776
        {object V113=base[0]->c.c_cdr;
 
777
        if(endp(V113))invalid_macro_call();
 
778
        base[2]= (V113->c.c_car);
 
779
        V113=V113->c.c_cdr;
 
780
        if(!endp(V113))invalid_macro_call();}
 
781
        base[3]= list(2,VV[34],base[2]);
 
782
        vs_top=(vs_base=base+3)+1;
 
783
        return;
 
784
}
 
785
/*      local entry for function __si::MAKE-ONE-INDEX-DFUN-INFO */
 
786
 
 
787
static object LI19(object first,...)
 
788
{       
 
789
        va_list ap;
 
790
        int narg = VFUN_NARGS; VMB19 VMS19 VMV19
 
791
        {object V114;
 
792
        object V115;
 
793
        object V116;
 
794
        va_start(ap,first);
 
795
        narg= narg - 0;
 
796
        {
 
797
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI19key,first,ap);
 
798
        V114=(Vcs[0]);
 
799
        V115=(Vcs[1]);
 
800
        V116=(Vcs[2]);
 
801
        base[0]= VV[35];
 
802
        base[1]= (V114);
 
803
        base[2]= (V115);
 
804
        base[3]= (V116);
 
805
        vs_top=(vs_base=base+0)+4;
 
806
        siLmake_structure();
 
807
        vs_top=sup;
 
808
        {object V117 = vs_base[0];
 
809
        VMR19(V117)}
 
810
        va_end(ap);
 
811
        base[0]=base[0];
 
812
        return Cnil;}
 
813
        }}
 
814
/*      macro definition for DFUN-INFO-INDEX    */
 
815
 
 
816
static void L20()
 
817
{register object *base=vs_base;
 
818
        register object *sup=base+VM20; VC20
 
819
        vs_check;
 
820
        check_arg(2);
 
821
        vs_top=sup;
 
822
        {object V118=base[0]->c.c_cdr;
 
823
        if(endp(V118))invalid_macro_call();
 
824
        base[2]= (V118->c.c_car);
 
825
        V118=V118->c.c_cdr;
 
826
        if(!endp(V118))invalid_macro_call();}
 
827
        base[3]= list(2,VV[36],base[2]);
 
828
        vs_top=(vs_base=base+3)+1;
 
829
        return;
 
830
}
 
831
/*      local entry for function __si::MAKE-N-N */
 
832
 
 
833
static object LI21(object first,...)
 
834
{       
 
835
        va_list ap;
 
836
        int narg = VFUN_NARGS; VMB21 VMS21 VMV21
 
837
        {object V119;
 
838
        object V120;
 
839
        va_start(ap,first);
 
840
        narg= narg - 0;
 
841
        {
 
842
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI21key,first,ap);
 
843
        V119=(Vcs[0]);
 
844
        V120=(Vcs[1]);
 
845
        base[0]= VV[37];
 
846
        base[1]= (V119);
 
847
        base[2]= (V120);
 
848
        vs_top=(vs_base=base+0)+3;
 
849
        siLmake_structure();
 
850
        vs_top=sup;
 
851
        {object V121 = vs_base[0];
 
852
        VMR21(V121)}
 
853
        va_end(ap);
 
854
        base[0]=base[0];
 
855
        return Cnil;}
 
856
        }}
 
857
/*      local entry for function N-N-DFUN-INFO  */
 
858
 
 
859
static object LI22(V124,V125)
 
860
 
 
861
object V124;object V125;
 
862
{        VMB22 VMS22 VMV22
 
863
        goto TTL;
 
864
TTL:;
 
865
        base[0]= VV[37];
 
866
        base[1]= (V125);
 
867
        base[2]= (V124);
 
868
        vs_top=(vs_base=base+0)+3;
 
869
        siLmake_structure();
 
870
        vs_top=sup;
 
871
        {object V126 = vs_base[0];
 
872
        VMR22(V126)}
 
873
        base[0]=base[0];
 
874
        return Cnil;
 
875
}
 
876
/*      local entry for function __si::MAKE-ONE-CLASS   */
 
877
 
 
878
static object LI23(object first,...)
 
879
{       
 
880
        va_list ap;
 
881
        int narg = VFUN_NARGS; VMB23 VMS23 VMV23
 
882
        {object V127;
 
883
        object V128;
 
884
        object V129;
 
885
        object V130;
 
886
        va_start(ap,first);
 
887
        narg= narg - 0;
 
888
        {
 
889
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap);
 
890
        V127=(Vcs[0]);
 
891
        V128=(Vcs[1]);
 
892
        V129=(Vcs[2]);
 
893
        V130=(Vcs[3]);
 
894
        base[0]= VV[38];
 
895
        base[1]= (V127);
 
896
        base[2]= (V128);
 
897
        base[3]= (V129);
 
898
        base[4]= (V130);
 
899
        vs_top=(vs_base=base+0)+5;
 
900
        siLmake_structure();
 
901
        vs_top=sup;
 
902
        {object V131 = vs_base[0];
 
903
        VMR23(V131)}
 
904
        va_end(ap);
 
905
        base[0]=base[0];
 
906
        return Cnil;}
 
907
        }}
 
908
/*      local entry for function ONE-CLASS-DFUN-INFO    */
 
909
 
 
910
static object LI24(V135,V136,V137)
 
911
 
 
912
object V135;object V136;object V137;
 
913
{        VMB24 VMS24 VMV24
 
914
        goto TTL;
 
915
TTL:;
 
916
        base[0]= VV[38];
 
917
        base[1]= Cnil;
 
918
        base[2]= (V135);
 
919
        base[3]= (V136);
 
920
        base[4]= (V137);
 
921
        vs_top=(vs_base=base+0)+5;
 
922
        siLmake_structure();
 
923
        vs_top=sup;
 
924
        {object V139 = vs_base[0];
 
925
        VMR24(V139)}
 
926
        base[0]=base[0];
 
927
        return Cnil;
 
928
}
 
929
/*      macro definition for DFUN-INFO-WRAPPER0 */
 
930
 
 
931
static void L25()
 
932
{register object *base=vs_base;
 
933
        register object *sup=base+VM25; VC25
 
934
        vs_check;
 
935
        check_arg(2);
 
936
        vs_top=sup;
 
937
        {object V140=base[0]->c.c_cdr;
 
938
        if(endp(V140))invalid_macro_call();
 
939
        base[2]= (V140->c.c_car);
 
940
        V140=V140->c.c_cdr;
 
941
        if(!endp(V140))invalid_macro_call();}
 
942
        base[3]= list(2,VV[39],base[2]);
 
943
        vs_top=(vs_base=base+3)+1;
 
944
        return;
 
945
}
 
946
/*      local entry for function __si::MAKE-TWO-CLASS   */
 
947
 
 
948
static object LI26(object first,...)
 
949
{       
 
950
        va_list ap;
 
951
        int narg = VFUN_NARGS; VMB26 VMS26 VMV26
 
952
        {object V141;
 
953
        object V142;
 
954
        object V143;
 
955
        object V144;
 
956
        object V145;
 
957
        va_start(ap,first);
 
958
        narg= narg - 0;
 
959
        {
 
960
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap);
 
961
        V141=(Vcs[0]);
 
962
        V142=(Vcs[1]);
 
963
        V143=(Vcs[2]);
 
964
        V144=(Vcs[3]);
 
965
        V145=(Vcs[4]);
 
966
        base[0]= VV[40];
 
967
        base[1]= (V141);
 
968
        base[2]= (V142);
 
969
        base[3]= (V143);
 
970
        base[4]= (V144);
 
971
        base[5]= (V145);
 
972
        vs_top=(vs_base=base+0)+6;
 
973
        siLmake_structure();
 
974
        vs_top=sup;
 
975
        {object V146 = vs_base[0];
 
976
        VMR26(V146)}
 
977
        va_end(ap);
 
978
        base[0]=base[0];
 
979
        return Cnil;}
 
980
        }}
 
981
/*      local entry for function TWO-CLASS-DFUN-INFO    */
 
982
 
 
983
static object LI27(V151,V152,V153,V154)
 
984
 
 
985
object V151;object V152;object V153;object V154;
 
986
{        VMB27 VMS27 VMV27
 
987
        goto TTL;
 
988
TTL:;
 
989
        base[0]= VV[40];
 
990
        base[1]= Cnil;
 
991
        base[2]= (V151);
 
992
        base[3]= (V152);
 
993
        base[4]= (V153);
 
994
        base[5]= (V154);
 
995
        vs_top=(vs_base=base+0)+6;
 
996
        siLmake_structure();
 
997
        vs_top=sup;
 
998
        {object V156 = vs_base[0];
 
999
        VMR27(V156)}
 
1000
        base[0]=base[0];
 
1001
        return Cnil;
 
1002
}
 
1003
/*      macro definition for DFUN-INFO-WRAPPER1 */
 
1004
 
 
1005
static void L28()
 
1006
{register object *base=vs_base;
 
1007
        register object *sup=base+VM28; VC28
 
1008
        vs_check;
 
1009
        check_arg(2);
 
1010
        vs_top=sup;
 
1011
        {object V157=base[0]->c.c_cdr;
 
1012
        if(endp(V157))invalid_macro_call();
 
1013
        base[2]= (V157->c.c_car);
 
1014
        V157=V157->c.c_cdr;
 
1015
        if(!endp(V157))invalid_macro_call();}
 
1016
        base[3]= list(2,VV[41],base[2]);
 
1017
        vs_top=(vs_base=base+3)+1;
 
1018
        return;
 
1019
}
 
1020
/*      local entry for function __si::MAKE-ONE-INDEX   */
 
1021
 
 
1022
static object LI29(object first,...)
 
1023
{       
 
1024
        va_list ap;
 
1025
        int narg = VFUN_NARGS; VMB29 VMS29 VMV29
 
1026
        {object V158;
 
1027
        object V159;
 
1028
        object V160;
 
1029
        va_start(ap,first);
 
1030
        narg= narg - 0;
 
1031
        {
 
1032
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap);
 
1033
        V158=(Vcs[0]);
 
1034
        V159=(Vcs[1]);
 
1035
        V160=(Vcs[2]);
 
1036
        base[0]= VV[42];
 
1037
        base[1]= (V158);
 
1038
        base[2]= (V159);
 
1039
        base[3]= (V160);
 
1040
        vs_top=(vs_base=base+0)+4;
 
1041
        siLmake_structure();
 
1042
        vs_top=sup;
 
1043
        {object V161 = vs_base[0];
 
1044
        VMR29(V161)}
 
1045
        va_end(ap);
 
1046
        base[0]=base[0];
 
1047
        return Cnil;}
 
1048
        }}
 
1049
/*      local entry for function ONE-INDEX-DFUN-INFO    */
 
1050
 
 
1051
static object LI30(V165,V166,V167)
 
1052
 
 
1053
object V165;object V166;object V167;
 
1054
{        VMB30 VMS30 VMV30
 
1055
        goto TTL;
 
1056
TTL:;
 
1057
        base[0]= VV[42];
 
1058
        base[1]= (V167);
 
1059
        base[2]= (V165);
 
1060
        base[3]= (V166);
 
1061
        vs_top=(vs_base=base+0)+4;
 
1062
        siLmake_structure();
 
1063
        vs_top=sup;
 
1064
        {object V168 = vs_base[0];
 
1065
        VMR30(V168)}
 
1066
        base[0]=base[0];
 
1067
        return Cnil;
 
1068
}
 
1069
/*      local entry for function __si::MAKE-CHECKING    */
 
1070
 
 
1071
static object LI31(object first,...)
 
1072
{       
 
1073
        va_list ap;
 
1074
        int narg = VFUN_NARGS; VMB31 VMS31 VMV31
 
1075
        {object V169;
 
1076
        object V170;
 
1077
        va_start(ap,first);
 
1078
        narg= narg - 0;
 
1079
        {
 
1080
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap);
 
1081
        V169=(Vcs[0]);
 
1082
        V170=(Vcs[1]);
 
1083
        base[0]= VV[10];
 
1084
        base[1]= (V169);
 
1085
        base[2]= (V170);
 
1086
        vs_top=(vs_base=base+0)+3;
 
1087
        siLmake_structure();
 
1088
        vs_top=sup;
 
1089
        {object V171 = vs_base[0];
 
1090
        VMR31(V171)}
 
1091
        va_end(ap);
 
1092
        base[0]=base[0];
 
1093
        return Cnil;}
 
1094
        }}
 
1095
/*      local entry for function CHECKING-DFUN-INFO     */
 
1096
 
 
1097
static object LI32(V174,V175)
 
1098
 
 
1099
object V174;object V175;
 
1100
{        VMB32 VMS32 VMV32
 
1101
        goto TTL;
 
1102
TTL:;
 
1103
        base[0]= VV[10];
 
1104
        base[1]= (V175);
 
1105
        base[2]= (V174);
 
1106
        vs_top=(vs_base=base+0)+3;
 
1107
        siLmake_structure();
 
1108
        vs_top=sup;
 
1109
        {object V176 = vs_base[0];
 
1110
        VMR32(V176)}
 
1111
        base[0]=base[0];
 
1112
        return Cnil;
 
1113
}
 
1114
/*      macro definition for DFUN-INFO-FUNCTION */
 
1115
 
 
1116
static void L33()
 
1117
{register object *base=vs_base;
 
1118
        register object *sup=base+VM33; VC33
 
1119
        vs_check;
 
1120
        check_arg(2);
 
1121
        vs_top=sup;
 
1122
        {object V177=base[0]->c.c_cdr;
 
1123
        if(endp(V177))invalid_macro_call();
 
1124
        base[2]= (V177->c.c_car);
 
1125
        V177=V177->c.c_cdr;
 
1126
        if(!endp(V177))invalid_macro_call();}
 
1127
        base[3]= list(2,VV[43],base[2]);
 
1128
        vs_top=(vs_base=base+3)+1;
 
1129
        return;
 
1130
}
 
1131
/*      local entry for function __si::MAKE-CACHING     */
 
1132
 
 
1133
static object LI34(object first,...)
 
1134
{       
 
1135
        va_list ap;
 
1136
        int narg = VFUN_NARGS; VMB34 VMS34 VMV34
 
1137
        {object V178;
 
1138
        va_start(ap,first);
 
1139
        narg= narg - 0;
 
1140
        {
 
1141
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI34key,first,ap);
 
1142
        V178=(Vcs[0]);
 
1143
        base[0]= VV[11];
 
1144
        base[1]= (V178);
 
1145
        vs_top=(vs_base=base+0)+2;
 
1146
        siLmake_structure();
 
1147
        vs_top=sup;
 
1148
        {object V179 = vs_base[0];
 
1149
        VMR34(V179)}
 
1150
        va_end(ap);
 
1151
        base[0]=base[0];
 
1152
        return Cnil;}
 
1153
        }}
 
1154
/*      local entry for function CACHING-DFUN-INFO      */
 
1155
 
 
1156
static object LI35(V181)
 
1157
 
 
1158
object V181;
 
1159
{        VMB35 VMS35 VMV35
 
1160
        goto TTL;
 
1161
TTL:;
 
1162
        base[0]= VV[11];
 
1163
        base[1]= (V181);
 
1164
        vs_top=(vs_base=base+0)+2;
 
1165
        siLmake_structure();
 
1166
        vs_top=sup;
 
1167
        {object V182 = vs_base[0];
 
1168
        VMR35(V182)}
 
1169
        base[0]=base[0];
 
1170
        return Cnil;
 
1171
}
 
1172
/*      local entry for function __si::MAKE-CONSTANT-VALUE      */
 
1173
 
 
1174
static object LI36(object first,...)
 
1175
{       
 
1176
        va_list ap;
 
1177
        int narg = VFUN_NARGS; VMB36 VMS36 VMV36
 
1178
        {object V183;
 
1179
        va_start(ap,first);
 
1180
        narg= narg - 0;
 
1181
        {
 
1182
        parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI36key,first,ap);
 
1183
        V183=(Vcs[0]);
 
1184
        base[0]= VV[12];
 
1185
        base[1]= (V183);
 
1186
        vs_top=(vs_base=base+0)+2;
 
1187
        siLmake_structure();
 
1188
        vs_top=sup;
 
1189
        {object V184 = vs_base[0];
 
1190
        VMR36(V184)}
 
1191
        va_end(ap);
 
1192
        base[0]=base[0];
 
1193
        return Cnil;}
 
1194
        }}
 
1195
/*      local entry for function CONSTANT-VALUE-DFUN-INFO       */
 
1196
 
 
1197
static object LI37(V186)
 
1198
 
 
1199
object V186;
 
1200
{        VMB37 VMS37 VMV37
 
1201
        goto TTL;
 
1202
TTL:;
 
1203
        base[0]= VV[12];
 
1204
        base[1]= (V186);
 
1205
        vs_top=(vs_base=base+0)+2;
 
1206
        siLmake_structure();
 
1207
        vs_top=sup;
 
1208
        {object V187 = vs_base[0];
 
1209
        VMR37(V187)}
 
1210
        base[0]=base[0];
 
1211
        return Cnil;
 
1212
}
 
1213
/*      macro definition for DFUN-UPDATE        */
 
1214
 
 
1215
static void L38()
 
1216
{register object *base=vs_base;
 
1217
        register object *sup=base+VM38; VC38
 
1218
        vs_check;
 
1219
        check_arg(2);
 
1220
        vs_top=sup;
 
1221
        {object V188=base[0]->c.c_cdr;
 
1222
        if(endp(V188))invalid_macro_call();
 
1223
        base[2]= (V188->c.c_car);
 
1224
        V188=V188->c.c_cdr;
 
1225
        if(endp(V188))invalid_macro_call();
 
1226
        base[3]= (V188->c.c_car);
 
1227
        V188=V188->c.c_cdr;
 
1228
        base[4]= V188;}
 
1229
        V189= listA(4,VV[46],base[3],base[2],base[4]);
 
1230
        base[5]= list(4,VV[44],VV[45],/* INLINE-ARGS */V189,listA(3,VV[47],base[2],VV[48]));
 
1231
        vs_top=(vs_base=base+5)+1;
 
1232
        return;
 
1233
}
 
1234
/*      local entry for function ACCESSOR-MISS-FUNCTION */
 
1235
 
 
1236
static object LI40(V192,V193)
 
1237
 
 
1238
object V192;object V193;
 
1239
{        VMB39 VMS39 VMV39
 
1240
        goto TTL;
 
1241
TTL:;
 
1242
        base[0]=MMcons((V193),Cnil);
 
1243
        base[1]=MMcons((V192),base[0]);
 
1244
        {object V194;
 
1245
        V194= STREF(object,(base[0]->c.c_car),4);
 
1246
        {object V195= (V194);
 
1247
        if((V195!= VV[59]))goto T284;
 
1248
        {object V196 = 
 
1249
        make_cclosure_new(LC139,Cnil,base[1],Cdata);
 
1250
        VMR39(V196)}
 
1251
        goto T284;
 
1252
T284:;
 
1253
        if((V195!= VV[133]))goto T285;
 
1254
        {object V197 = 
 
1255
        make_cclosure_new(LC140,Cnil,base[1],Cdata);
 
1256
        VMR39(V197)}
 
1257
        goto T285;
 
1258
T285:;
 
1259
        base[2]= VV[49];
 
1260
        base[3]= VV[50];
 
1261
        base[4]= VV[51];
 
1262
        base[5]= VV[52];
 
1263
        base[6]= (V194);
 
1264
        base[7]= VV[53];
 
1265
        base[8]= VV[57];
 
1266
        base[9]= VV[55];
 
1267
        base[10]= VV[58];
 
1268
        vs_top=(vs_base=base+2)+9;
 
1269
        (void) (*Lnk187)();
 
1270
        vs_top=sup;
 
1271
        {object V198 = vs_base[0];
 
1272
        VMR39(V198)}}}
 
1273
        base[0]=base[0];
 
1274
        return Cnil;
 
1275
}
 
1276
/*      function definition for MAKE-ONE-CLASS-ACCESSOR-DFUN    */
 
1277
 
 
1278
static void L41()
 
1279
{register object *base=vs_base;
 
1280
        register object *sup=base+VM40; VC40
 
1281
        vs_check;
 
1282
        {object V199;
 
1283
        object V200;
 
1284
        object V201;
 
1285
        object V202;
 
1286
        check_arg(4);
 
1287
        V199=(base[0]);
 
1288
        V200=(base[1]);
 
1289
        V201=(base[2]);
 
1290
        V202=(base[3]);
 
1291
        vs_top=sup;
 
1292
        goto TTL;
 
1293
TTL:;
 
1294
        {object V203;
 
1295
        object V204;
 
1296
        if(!(((V200))==(VV[59]))){
 
1297
        goto T297;}
 
1298
        V203= VV[60];
 
1299
        goto T295;
 
1300
        goto T297;
 
1301
T297:;
 
1302
        V203= VV[61];
 
1303
        goto T295;
 
1304
T295:;
 
1305
        V204= (*(LnkLI188))((V200),(V202),(V201));
 
1306
        base[6]= (V203);
 
1307
        base[7]= (type_of((V202))==t_cons?Ct:Cnil);
 
1308
        vs_top=(vs_base=base+6)+2;
 
1309
        (void) (*Lnk189)();
 
1310
        vs_top=sup;
 
1311
        base[5]= vs_base[0];
 
1312
        base[6]= (V201);
 
1313
        base[7]= (V202);
 
1314
        base[8]= (*(LnkLI190))((V199),(V204));
 
1315
        vs_top=(vs_base=base+6)+3;
 
1316
        {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1317
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1318
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1319
               else super_funcall_no_event(_funobj);}
 
1320
        vs_top=sup;
 
1321
        base[4]= vs_base[0];
 
1322
        base[5]= Cnil;
 
1323
        base[6]= (V204);
 
1324
        vs_top=(vs_base=base+4)+3;
 
1325
        return;}
 
1326
        }
 
1327
}
 
1328
/*      function definition for MAKE-TWO-CLASS-ACCESSOR-DFUN    */
 
1329
 
 
1330
static void L42()
 
1331
{register object *base=vs_base;
 
1332
        register object *sup=base+VM41; VC41
 
1333
        vs_check;
 
1334
        {object V205;
 
1335
        object V206;
 
1336
        object V207;
 
1337
        object V208;
 
1338
        object V209;
 
1339
        check_arg(5);
 
1340
        V205=(base[0]);
 
1341
        V206=(base[1]);
 
1342
        V207=(base[2]);
 
1343
        V208=(base[3]);
 
1344
        V209=(base[4]);
 
1345
        vs_top=sup;
 
1346
        goto TTL;
 
1347
TTL:;
 
1348
        {object V210;
 
1349
        object V211;
 
1350
        if(!(((V206))==(VV[59]))){
 
1351
        goto T311;}
 
1352
        V210= VV[62];
 
1353
        goto T309;
 
1354
        goto T311;
 
1355
T311:;
 
1356
        V210= VV[63];
 
1357
        goto T309;
 
1358
T309:;
 
1359
        V211= (*(LnkLI191))((V206),(V209),(V207),(V208));
 
1360
        base[7]= (V210);
 
1361
        base[8]= (type_of((V209))==t_cons?Ct:Cnil);
 
1362
        vs_top=(vs_base=base+7)+2;
 
1363
        (void) (*Lnk189)();
 
1364
        vs_top=sup;
 
1365
        base[6]= vs_base[0];
 
1366
        base[7]= (V207);
 
1367
        base[8]= (V208);
 
1368
        base[9]= (V209);
 
1369
        base[10]= (*(LnkLI190))((V205),(V211));
 
1370
        vs_top=(vs_base=base+7)+4;
 
1371
        {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1372
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1373
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1374
               else super_funcall_no_event(_funobj);}
 
1375
        vs_top=sup;
 
1376
        base[5]= vs_base[0];
 
1377
        base[6]= Cnil;
 
1378
        base[7]= (V211);
 
1379
        vs_top=(vs_base=base+5)+3;
 
1380
        return;}
 
1381
        }
 
1382
}
 
1383
/*      function definition for MAKE-ONE-INDEX-ACCESSOR-DFUN    */
 
1384
 
 
1385
static void L43()
 
1386
{register object *base=vs_base;
 
1387
        register object *sup=base+VM42; VC42
 
1388
        vs_check;
 
1389
        {object V212;
 
1390
        object V213;
 
1391
        object V214;
 
1392
        object V215;
 
1393
        if(vs_top-vs_base<3) too_few_arguments();
 
1394
        if(vs_top-vs_base>4) too_many_arguments();
 
1395
        V212=(base[0]);
 
1396
        V213=(base[1]);
 
1397
        V214=(base[2]);
 
1398
        vs_base=vs_base+3;
 
1399
        if(vs_base>=vs_top){vs_top=sup;goto T324;}
 
1400
        V215=(base[3]);
 
1401
        vs_top=sup;
 
1402
        goto T325;
 
1403
        goto T324;
 
1404
T324:;
 
1405
        V215= Cnil;
 
1406
        goto T325;
 
1407
T325:;
 
1408
        {object V216;
 
1409
        object V217;
 
1410
        object V218;
 
1411
        if(!(((V213))==(VV[59]))){
 
1412
        goto T329;}
 
1413
        V216= VV[64];
 
1414
        goto T327;
 
1415
        goto T329;
 
1416
T329:;
 
1417
        V216= VV[65];
 
1418
        goto T327;
 
1419
T327:;
 
1420
        if((V215)!=Cnil){
 
1421
        V217= (V215);
 
1422
        goto T331;}
 
1423
        V219= (VV[193]->s.s_gfdef);
 
1424
        V217= (*(LnkLI192))(small_fixnum(1),Cnil,V219,4);
 
1425
        goto T331;
 
1426
T331:;
 
1427
        V218= (*(LnkLI35))((V213),(V214),(V217));
 
1428
        base[9]= (V216);
 
1429
        base[10]= (type_of((V214))==t_cons?Ct:Cnil);
 
1430
        vs_top=(vs_base=base+9)+2;
 
1431
        (void) (*Lnk189)();
 
1432
        vs_top=sup;
 
1433
        base[8]= vs_base[0];
 
1434
        base[9]= (V217);
 
1435
        base[10]= (V214);
 
1436
        base[11]= (*(LnkLI190))((V212),(V218));
 
1437
        vs_top=(vs_base=base+9)+3;
 
1438
        {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1439
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1440
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1441
               else super_funcall_no_event(_funobj);}
 
1442
        vs_top=sup;
 
1443
        base[7]= vs_base[0];
 
1444
        base[8]= (V217);
 
1445
        base[9]= (V218);
 
1446
        vs_top=(vs_base=base+7)+3;
 
1447
        return;}
 
1448
        }
 
1449
}
 
1450
/*      function definition for MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN      */
 
1451
 
 
1452
static void L44()
 
1453
{register object *base=vs_base;
 
1454
        register object *sup=base+VM43; VC43
 
1455
        vs_check;
 
1456
        {object V220;
 
1457
        object V221;
 
1458
        object V222;
 
1459
        object V223;
 
1460
        check_arg(4);
 
1461
        V220=(base[0]);
 
1462
        V221=(base[1]);
 
1463
        V222=(base[2]);
 
1464
        V223=(base[3]);
 
1465
        vs_top=sup;
 
1466
        goto TTL;
 
1467
TTL:;
 
1468
        {object V224;
 
1469
        V225= (VV[193]->s.s_gfdef);
 
1470
        V224= (VFUN_NARGS=4,(*(LnkLI194))((V223),Cnil,small_fixnum(1),V225));
 
1471
        base[4]= (V220);
 
1472
        base[5]= (V221);
 
1473
        base[6]= (V222);
 
1474
        base[7]= (V224);
 
1475
        vs_top=(vs_base=base+4)+4;
 
1476
        (void) (*Lnk195)();
 
1477
        return;}
 
1478
        }
 
1479
}
 
1480
/*      local entry for function ONE-INDEX-LIMIT-FN     */
 
1481
 
 
1482
static object LI45(V227)
 
1483
 
 
1484
object V227;
 
1485
{        VMB44 VMS44 VMV44
 
1486
        goto TTL;
 
1487
TTL:;
 
1488
        {long V228 = (long)(*(LnkLI196))((V227));
 
1489
        VMR44((object)V228)}
 
1490
}
 
1491
/*      function definition for MAKE-N-N-ACCESSOR-DFUN  */
 
1492
 
 
1493
static void L46()
 
1494
{register object *base=vs_base;
 
1495
        register object *sup=base+VM45; VC45
 
1496
        vs_check;
 
1497
        {object V229;
 
1498
        object V230;
 
1499
        object V231;
 
1500
        if(vs_top-vs_base<2) too_few_arguments();
 
1501
        if(vs_top-vs_base>3) too_many_arguments();
 
1502
        V229=(base[0]);
 
1503
        V230=(base[1]);
 
1504
        vs_base=vs_base+2;
 
1505
        if(vs_base>=vs_top){vs_top=sup;goto T349;}
 
1506
        V231=(base[2]);
 
1507
        vs_top=sup;
 
1508
        goto T350;
 
1509
        goto T349;
 
1510
T349:;
 
1511
        V231= Cnil;
 
1512
        goto T350;
 
1513
T350:;
 
1514
        {object V232;
 
1515
        object V233;
 
1516
        object V234;
 
1517
        if(!(((V230))==(VV[59]))){
 
1518
        goto T354;}
 
1519
        V232= VV[66];
 
1520
        goto T352;
 
1521
        goto T354;
 
1522
T354:;
 
1523
        V232= VV[67];
 
1524
        goto T352;
 
1525
T352:;
 
1526
        if((V231)!=Cnil){
 
1527
        V233= (V231);
 
1528
        goto T356;}
 
1529
        V235= (VV[197]->s.s_gfdef);
 
1530
        V233= (*(LnkLI192))(small_fixnum(1),Ct,V235,2);
 
1531
        goto T356;
 
1532
T356:;
 
1533
        V234= (*(LnkLI198))((V230),(V233));
 
1534
        base[8]= (V232);
 
1535
        vs_top=(vs_base=base+8)+1;
 
1536
        (void) (*Lnk189)();
 
1537
        vs_top=sup;
 
1538
        base[7]= vs_base[0];
 
1539
        base[8]= (V233);
 
1540
        base[9]= (*(LnkLI190))((V229),(V234));
 
1541
        vs_top=(vs_base=base+8)+2;
 
1542
        {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1543
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1544
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1545
               else super_funcall_no_event(_funobj);}
 
1546
        vs_top=sup;
 
1547
        base[6]= vs_base[0];
 
1548
        base[7]= (V233);
 
1549
        base[8]= (V234);
 
1550
        vs_top=(vs_base=base+6)+3;
 
1551
        return;}
 
1552
        }
 
1553
}
 
1554
/*      function definition for MAKE-FINAL-N-N-ACCESSOR-DFUN    */
 
1555
 
 
1556
static void L47()
 
1557
{register object *base=vs_base;
 
1558
        register object *sup=base+VM46; VC46
 
1559
        vs_check;
 
1560
        {object V236;
 
1561
        object V237;
 
1562
        object V238;
 
1563
        check_arg(3);
 
1564
        V236=(base[0]);
 
1565
        V237=(base[1]);
 
1566
        V238=(base[2]);
 
1567
        vs_top=sup;
 
1568
        goto TTL;
 
1569
TTL:;
 
1570
        {object V239;
 
1571
        V240= (VV[197]->s.s_gfdef);
 
1572
        V239= (VFUN_NARGS=4,(*(LnkLI194))((V238),Ct,small_fixnum(1),V240));
 
1573
        base[3]= (V236);
 
1574
        base[4]= (V237);
 
1575
        base[5]= (V239);
 
1576
        vs_top=(vs_base=base+3)+3;
 
1577
        (void) (*Lnk199)();
 
1578
        return;}
 
1579
        }
 
1580
}
 
1581
/*      local entry for function N-N-ACCESSORS-LIMIT-FN */
 
1582
 
 
1583
static object LI48(V242)
 
1584
 
 
1585
object V242;
 
1586
{        VMB47 VMS47 VMV47
 
1587
        goto TTL;
 
1588
TTL:;
 
1589
        {long V243 = (long)(*(LnkLI196))((V242));
 
1590
        VMR47((object)V243)}
 
1591
}
 
1592
/*      function definition for MAKE-CHECKING-DFUN      */
 
1593
 
 
1594
static void L49()
 
1595
{register object *base=vs_base;
 
1596
        register object *sup=base+VM48; VC48
 
1597
        vs_check;
 
1598
        {object V244;
 
1599
        object V245;
 
1600
        if(vs_top-vs_base<2) too_few_arguments();
 
1601
        if(vs_top-vs_base>3) too_many_arguments();
 
1602
        base[0]=MMcons(base[0],Cnil);
 
1603
        V244=(base[1]);
 
1604
        vs_base=vs_base+2;
 
1605
        if(vs_base>=vs_top){vs_top=sup;goto T371;}
 
1606
        V245=(base[2]);
 
1607
        vs_top=sup;
 
1608
        goto T372;
 
1609
        goto T371;
 
1610
T371:;
 
1611
        V245= Cnil;
 
1612
        goto T372;
 
1613
T372:;
 
1614
        if(((V245))!=Cnil){
 
1615
        goto T374;}
 
1616
        if(((*(LnkLI200))((base[0]->c.c_car)))==Cnil){
 
1617
        goto T377;}
 
1618
        base[3]= (base[0]->c.c_car);
 
1619
        vs_top=(vs_base=base+3)+1;
 
1620
        (void) (*Lnk201)();
 
1621
        return;
 
1622
        goto T377;
 
1623
T377:;
 
1624
        if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){
 
1625
        goto T374;}
 
1626
        base[3]= (base[0]->c.c_car);
 
1627
        vs_top=(vs_base=base+3)+1;
 
1628
        (void) (*Lnk203)();
 
1629
        return;
 
1630
        goto T374;
 
1631
T374:;
 
1632
        {object V246;
 
1633
        object V247;
 
1634
        object V248;
 
1635
        object V249;
 
1636
        base[3]= (base[0]->c.c_car);
 
1637
        vs_top=(vs_base=base+3)+1;
 
1638
        (void) (*Lnk204)();
 
1639
        if(vs_base>=vs_top){vs_top=sup;goto T386;}
 
1640
        V246= vs_base[0];
 
1641
        vs_base++;
 
1642
        if(vs_base>=vs_top){vs_top=sup;goto T387;}
 
1643
        V247= vs_base[0];
 
1644
        vs_base++;
 
1645
        if(vs_base>=vs_top){vs_top=sup;goto T388;}
 
1646
        V248= vs_base[0];
 
1647
        vs_base++;
 
1648
        if(vs_base>=vs_top){vs_top=sup;goto T389;}
 
1649
        V249= vs_base[0];
 
1650
        vs_top=sup;
 
1651
        goto T390;
 
1652
        goto T386;
 
1653
T386:;
 
1654
        V246= Cnil;
 
1655
        goto T387;
 
1656
T387:;
 
1657
        V247= Cnil;
 
1658
        goto T388;
 
1659
T388:;
 
1660
        V248= Cnil;
 
1661
        goto T389;
 
1662
T389:;
 
1663
        V249= Cnil;
 
1664
        goto T390;
 
1665
T390:;
 
1666
        base[3]= 
 
1667
        make_cclosure_new(LC141,Cnil,base[0],Cdata);
 
1668
        base[4]= (V248);
 
1669
        vs_top=(vs_base=base+3)+2;
 
1670
        (void) (*Lnk205)();
 
1671
        vs_top=sup;
 
1672
        if((vs_base[0])==Cnil){
 
1673
        goto T392;}
 
1674
        {object V250;
 
1675
        V250= (*(LnkLI206))();
 
1676
        base[5]= VV[68];
 
1677
        base[6]= (V248);
 
1678
        base[7]= (V247);
 
1679
        vs_top=(vs_base=base+5)+3;
 
1680
        (void) (*Lnk189)();
 
1681
        vs_top=sup;
 
1682
        base[4]= vs_base[0];
 
1683
        base[5]= (V244);
 
1684
        vs_top=(vs_base=base+5)+1;
 
1685
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1686
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1687
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1688
               else super_funcall_no_event(_funobj);}
 
1689
        vs_top=sup;
 
1690
        base[3]= vs_base[0];
 
1691
        base[4]= Cnil;
 
1692
        base[5]= (V250);
 
1693
        vs_top=(vs_base=base+3)+3;
 
1694
        return;}
 
1695
        goto T392;
 
1696
T392:;
 
1697
        {object V251;
 
1698
        if((V245)!=Cnil){
 
1699
        V251= (V245);
 
1700
        goto T405;}
 
1701
        V252= (VV[207]->s.s_gfdef);
 
1702
        V251= (*(LnkLI192))((V249),Cnil,V252,2);
 
1703
        goto T405;
 
1704
T405:;
 
1705
        base[4]= (*(LnkLI208))((V244),(V251));
 
1706
        base[4]=MMcons(base[4],base[0]);
 
1707
        base[7]= VV[69];
 
1708
        base[8]= (V248);
 
1709
        base[9]= (V247);
 
1710
        vs_top=(vs_base=base+7)+3;
 
1711
        (void) (*Lnk189)();
 
1712
        vs_top=sup;
 
1713
        base[6]= vs_base[0];
 
1714
        base[7]= (V251);
 
1715
        base[8]= (V244);
 
1716
        base[9]= 
 
1717
        make_cclosure_new(LC142,Cnil,base[4],Cdata);
 
1718
        vs_top=(vs_base=base+7)+3;
 
1719
        {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1720
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1721
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
1722
               else super_funcall_no_event(_funobj);}
 
1723
        vs_top=sup;
 
1724
        base[5]= vs_base[0];
 
1725
        base[6]= (V251);
 
1726
        base[7]= (base[4]->c.c_car);
 
1727
        vs_top=(vs_base=base+5)+3;
 
1728
        return;}}
 
1729
        }
 
1730
}
 
1731
/*      function definition for MAKE-FINAL-CHECKING-DFUN        */
 
1732
 
 
1733
static void L50()
 
1734
{register object *base=vs_base;
 
1735
        register object *sup=base+VM49; VC49
 
1736
        vs_check;
 
1737
        {object V253;
 
1738
        object V254;
 
1739
        object V255;
 
1740
        check_arg(4);
 
1741
        V253=(base[0]);
 
1742
        base[1]=MMcons(base[1],Cnil);
 
1743
        V254=(base[2]);
 
1744
        V255=(base[3]);
 
1745
        vs_top=sup;
 
1746
        {object V256;
 
1747
        base[4]= (V253);
 
1748
        vs_top=(vs_base=base+4)+1;
 
1749
        (void) (*Lnk177)(Lclptr177);
 
1750
        vs_top=sup;
 
1751
        V257= vs_base[0];
 
1752
        V256= STREF(object,V257,8);
 
1753
        base[4]= 
 
1754
        make_cclosure_new(LC143,Cnil,base[1],Cdata);
 
1755
        base[5]= (V256);
 
1756
        vs_top=(vs_base=base+4)+2;
 
1757
        (void) (*Lnk205)();
 
1758
        vs_top=sup;
 
1759
        if((vs_base[0])==Cnil){
 
1760
        goto T422;}
 
1761
        base[4]= 
 
1762
        make_cclosure_new(LC144,Cnil,base[1],Cdata);
 
1763
        base[5]= Cnil;
 
1764
        base[6]= (*(LnkLI206))();
 
1765
        vs_top=(vs_base=base+4)+3;
 
1766
        return;
 
1767
        goto T422;
 
1768
T422:;
 
1769
        {object V258;
 
1770
        V259= (VV[207]->s.s_gfdef);
 
1771
        V258= (*(LnkLI209))((V253),Cnil,V259,(V254),(V255));
 
1772
        base[4]= (V253);
 
1773
        base[5]= (base[1]->c.c_car);
 
1774
        base[6]= (V258);
 
1775
        vs_top=(vs_base=base+4)+3;
 
1776
        (void) (*Lnk210)();
 
1777
        return;}}
 
1778
        }
 
1779
}
 
1780
/*      local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */
 
1781
 
 
1782
static object LI51(V261)
 
1783
 
 
1784
object V261;
 
1785
{        VMB50 VMS50 VMV50
 
1786
        goto TTL;
 
1787
TTL:;
 
1788
        {object V262;
 
1789
        object V263;
 
1790
        object V264;
 
1791
        object V265;
 
1792
        base[0]= (V261);
 
1793
        vs_top=(vs_base=base+0)+1;
 
1794
        (void) (*Lnk204)();
 
1795
        if(vs_base>=vs_top){vs_top=sup;goto T436;}
 
1796
        V262= vs_base[0];
 
1797
        vs_base++;
 
1798
        if(vs_base>=vs_top){vs_top=sup;goto T437;}
 
1799
        V263= vs_base[0];
 
1800
        vs_base++;
 
1801
        if(vs_base>=vs_top){vs_top=sup;goto T438;}
 
1802
        V264= vs_base[0];
 
1803
        vs_base++;
 
1804
        if(vs_base>=vs_top){vs_top=sup;goto T439;}
 
1805
        V265= vs_base[0];
 
1806
        vs_top=sup;
 
1807
        goto T440;
 
1808
        goto T436;
 
1809
T436:;
 
1810
        V262= Cnil;
 
1811
        goto T437;
 
1812
T437:;
 
1813
        V263= Cnil;
 
1814
        goto T438;
 
1815
T438:;
 
1816
        V264= Cnil;
 
1817
        goto T439;
 
1818
T439:;
 
1819
        V265= Cnil;
 
1820
        goto T440;
 
1821
T440:;
 
1822
        base[0]= VV[211];
 
1823
        base[1]= (V264);
 
1824
        vs_top=(vs_base=base+0)+2;
 
1825
        (void) (*Lnk205)();
 
1826
        vs_top=sup;
 
1827
        {object V266 = vs_base[0];
 
1828
        VMR50(V266)}}
 
1829
        base[0]=base[0];
 
1830
        return Cnil;
 
1831
}
 
1832
/*      local entry for function USE-CACHING-DFUN-P     */
 
1833
 
 
1834
static object LI52(V268)
 
1835
 
 
1836
register object V268;
 
1837
{        VMB51 VMS51 VMV51
 
1838
        goto TTL;
 
1839
TTL:;
 
1840
        base[0]= VV[212];
 
1841
        if(((*(LnkLI213))((V268)))==Cnil){
 
1842
        goto T446;}
 
1843
        if(type_of(V268)==t_structure){
 
1844
        goto T452;}
 
1845
        goto T450;
 
1846
        goto T452;
 
1847
T452:;
 
1848
        if(!(((V268)->str.str_def)==(VV[71]))){
 
1849
        goto T450;}
 
1850
        V269= STREF(object,(V268),4);
 
1851
        goto T448;
 
1852
        goto T450;
 
1853
T450:;{object V271;
 
1854
        V271= (VV[73]->s.s_dbind);
 
1855
        base[2]= small_fixnum(14);
 
1856
        base[3]= (V268);
 
1857
        vs_top=(vs_base=base+2)+2;
 
1858
        (void) (*Lnk214)();
 
1859
        vs_top=sup;
 
1860
        V272= vs_base[0];
 
1861
        if(!((V271)==(CMPcar(V272)))){
 
1862
        goto T455;}}
 
1863
        V269= CMPcar(((V268))->cc.cc_turbo[12]);
 
1864
        goto T448;
 
1865
        goto T455;
 
1866
T455:;
 
1867
        base[2]= VV[74];
 
1868
        vs_top=(vs_base=base+2)+1;
 
1869
        Lerror();
 
1870
        vs_top=sup;
 
1871
        V269= vs_base[0];
 
1872
        goto T448;
 
1873
T448:;
 
1874
        base[1]= (V269)->v.v_self[fix((VV[75]->s.s_dbind))];
 
1875
        goto T444;
 
1876
        goto T446;
 
1877
T446:;
 
1878
        base[2]= (V268);
 
1879
        vs_top=(vs_base=base+2)+1;
 
1880
        (void) (*Lnk216)(Lclptr216);
 
1881
        vs_top=sup;
 
1882
        base[1]= vs_base[0];
 
1883
        goto T444;
 
1884
T444:;
 
1885
        vs_top=(vs_base=base+0)+2;
 
1886
        (void) (*Lnk217)();
 
1887
        vs_top=sup;
 
1888
        {object V273 = vs_base[0];
 
1889
        VMR51(V273)}
 
1890
        base[0]=base[0];
 
1891
        return Cnil;
 
1892
}
 
1893
/*      local entry for function CHECKING-LIMIT-FN      */
 
1894
 
 
1895
static object LI53(V275)
 
1896
 
 
1897
object V275;
 
1898
{        VMB52 VMS52 VMV52
 
1899
        goto TTL;
 
1900
TTL:;
 
1901
        {long V276 = (long)(*(LnkLI196))((V275));
 
1902
        VMR52((object)V276)}
 
1903
}
 
1904
/*      function definition for MAKE-CACHING-DFUN       */
 
1905
 
 
1906
static void L54()
 
1907
{register object *base=vs_base;
 
1908
        register object *sup=base+VM53; VC53
 
1909
        vs_check;
 
1910
        {object V277;
 
1911
        if(vs_top-vs_base<1) too_few_arguments();
 
1912
        if(vs_top-vs_base>2) too_many_arguments();
 
1913
        base[0]=MMcons(base[0],Cnil);
 
1914
        vs_base=vs_base+1;
 
1915
        if(vs_base>=vs_top){vs_top=sup;goto T462;}
 
1916
        V277=(base[1]);
 
1917
        vs_top=sup;
 
1918
        goto T463;
 
1919
        goto T462;
 
1920
T462:;
 
1921
        V277= Cnil;
 
1922
        goto T463;
 
1923
T463:;
 
1924
        if(((V277))!=Cnil){
 
1925
        goto T465;}
 
1926
        if(((VFUN_NARGS=1,(*(LnkLI218))((base[0]->c.c_car))))==Cnil){
 
1927
        goto T468;}
 
1928
        base[2]= (base[0]->c.c_car);
 
1929
        vs_top=(vs_base=base+2)+1;
 
1930
        (void) (*Lnk219)();
 
1931
        return;
 
1932
        goto T468;
 
1933
T468:;
 
1934
        if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){
 
1935
        goto T465;}
 
1936
        base[2]= (base[0]->c.c_car);
 
1937
        vs_top=(vs_base=base+2)+1;
 
1938
        (void) (*Lnk203)();
 
1939
        return;
 
1940
        goto T465;
 
1941
T465:;
 
1942
        {object V278;
 
1943
        object V279;
 
1944
        object V280;
 
1945
        object V281;
 
1946
        base[2]= (base[0]->c.c_car);
 
1947
        vs_top=(vs_base=base+2)+1;
 
1948
        (void) (*Lnk204)();
 
1949
        if(vs_base>=vs_top){vs_top=sup;goto T477;}
 
1950
        V278= vs_base[0];
 
1951
        vs_base++;
 
1952
        if(vs_base>=vs_top){vs_top=sup;goto T478;}
 
1953
        V279= vs_base[0];
 
1954
        vs_base++;
 
1955
        if(vs_base>=vs_top){vs_top=sup;goto T479;}
 
1956
        V280= vs_base[0];
 
1957
        vs_base++;
 
1958
        if(vs_base>=vs_top){vs_top=sup;goto T480;}
 
1959
        V281= vs_base[0];
 
1960
        vs_top=sup;
 
1961
        goto T481;
 
1962
        goto T477;
 
1963
T477:;
 
1964
        V278= Cnil;
 
1965
        goto T478;
 
1966
T478:;
 
1967
        V279= Cnil;
 
1968
        goto T479;
 
1969
T479:;
 
1970
        V280= Cnil;
 
1971
        goto T480;
 
1972
T480:;
 
1973
        V281= Cnil;
 
1974
        goto T481;
 
1975
T481:;
 
1976
        {object V282;
 
1977
        if((V277)!=Cnil){
 
1978
        V282= (V277);
 
1979
        goto T482;}
 
1980
        V283= (VV[220]->s.s_gfdef);
 
1981
        V282= (*(LnkLI192))((V281),Ct,V283,2);
 
1982
        goto T482;
 
1983
T482:;
 
1984
        base[3]= (*(LnkLI221))((V282));
 
1985
        base[3]=MMcons(base[3],base[0]);
 
1986
        base[6]= VV[76];
 
1987
        base[7]= (V280);
 
1988
        base[8]= (V279);
 
1989
        vs_top=(vs_base=base+6)+3;
 
1990
        (void) (*Lnk189)();
 
1991
        vs_top=sup;
 
1992
        base[5]= vs_base[0];
 
1993
        base[6]= (V282);
 
1994
        base[7]= 
 
1995
        make_cclosure_new(LC147,Cnil,base[3],Cdata);
 
1996
        vs_top=(vs_base=base+6)+2;
 
1997
        {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
1998
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
1999
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
2000
               else super_funcall_no_event(_funobj);}
 
2001
        vs_top=sup;
 
2002
        base[4]= vs_base[0];
 
2003
        base[5]= (V282);
 
2004
        base[6]= (base[3]->c.c_car);
 
2005
        vs_top=(vs_base=base+4)+3;
 
2006
        return;}}
 
2007
        }
 
2008
}
 
2009
/*      function definition for MAKE-FINAL-CACHING-DFUN */
 
2010
 
 
2011
static void L55()
 
2012
{register object *base=vs_base;
 
2013
        register object *sup=base+VM54; VC54
 
2014
        vs_check;
 
2015
        {object V284;
 
2016
        object V285;
 
2017
        object V286;
 
2018
        check_arg(3);
 
2019
        V284=(base[0]);
 
2020
        V285=(base[1]);
 
2021
        V286=(base[2]);
 
2022
        vs_top=sup;
 
2023
        goto TTL;
 
2024
TTL:;
 
2025
        {object V287;
 
2026
        V288= (VV[220]->s.s_gfdef);
 
2027
        V287= (*(LnkLI209))((V284),Ct,V288,(V285),(V286));
 
2028
        base[3]= (V284);
 
2029
        base[4]= (V287);
 
2030
        vs_top=(vs_base=base+3)+2;
 
2031
        (void) (*Lnk201)();
 
2032
        return;}
 
2033
        }
 
2034
}
 
2035
/*      local entry for function CACHING-LIMIT-FN       */
 
2036
 
 
2037
static object LI56(V290)
 
2038
 
 
2039
object V290;
 
2040
{        VMB55 VMS55 VMV55
 
2041
        goto TTL;
 
2042
TTL:;
 
2043
        {long V291 = (long)(*(LnkLI196))((V290));
 
2044
        VMR55((object)V291)}
 
2045
}
 
2046
/*      function definition for INSURE-CACHING-DFUN     */
 
2047
 
 
2048
static void L57()
 
2049
{register object *base=vs_base;
 
2050
        register object *sup=base+VM56; VC56
 
2051
        vs_check;
 
2052
        {object V292;
 
2053
        check_arg(1);
 
2054
        V292=(base[0]);
 
2055
        vs_top=sup;
 
2056
        goto TTL;
 
2057
TTL:;
 
2058
        {object V293;
 
2059
        object V294;
 
2060
        register object V295;
 
2061
        object V296;
 
2062
        base[1]= (V292);
 
2063
        vs_top=(vs_base=base+1)+1;
 
2064
        (void) (*Lnk204)();
 
2065
        if(vs_base>=vs_top){vs_top=sup;goto T500;}
 
2066
        V293= vs_base[0];
 
2067
        vs_base++;
 
2068
        if(vs_base>=vs_top){vs_top=sup;goto T501;}
 
2069
        V294= vs_base[0];
 
2070
        vs_base++;
 
2071
        if(vs_base>=vs_top){vs_top=sup;goto T502;}
 
2072
        V295= vs_base[0];
 
2073
        vs_base++;
 
2074
        if(vs_base>=vs_top){vs_top=sup;goto T503;}
 
2075
        V296= vs_base[0];
 
2076
        vs_top=sup;
 
2077
        goto T504;
 
2078
        goto T500;
 
2079
T500:;
 
2080
        V293= Cnil;
 
2081
        goto T501;
 
2082
T501:;
 
2083
        V294= Cnil;
 
2084
        goto T502;
 
2085
T502:;
 
2086
        V295= Cnil;
 
2087
        goto T503;
 
2088
T503:;
 
2089
        V296= Cnil;
 
2090
        goto T504;
 
2091
T504:;
 
2092
        if(((V295))==Cnil){
 
2093
        goto T506;}
 
2094
        if((CMPcar((V295)))==Cnil){
 
2095
        goto T506;}
 
2096
        {register object V297;
 
2097
        register object V298;
 
2098
        V297= (V295);
 
2099
        V298= CMPcar((V297));
 
2100
        goto T515;
 
2101
T515:;
 
2102
        if(!(((V297))==Cnil)){
 
2103
        goto T516;}
 
2104
        goto T506;
 
2105
        goto T516;
 
2106
T516:;
 
2107
        if(((V298))==(Ct)){
 
2108
        goto T520;}
 
2109
        goto T511;
 
2110
        goto T520;
 
2111
T520:;
 
2112
        V297= CMPcdr((V297));
 
2113
        V298= CMPcar((V297));
 
2114
        goto T515;}
 
2115
        goto T511;
 
2116
T511:;
 
2117
        base[1]= VV[76];
 
2118
        base[2]= (V295);
 
2119
        base[3]= (V294);
 
2120
        vs_top=(vs_base=base+1)+3;
 
2121
        (void) (*Lnk189)();
 
2122
        return;
 
2123
        goto T506;
 
2124
T506:;
 
2125
        base[1]= Cnil;
 
2126
        vs_top=(vs_base=base+1)+1;
 
2127
        return;}
 
2128
        }
 
2129
}
 
2130
/*      local entry for function USE-CONSTANT-VALUE-DFUN-P      */
 
2131
 
 
2132
static object LI58(object V299,object first,...)
 
2133
{       
 
2134
        va_list ap;
 
2135
        int narg = VFUN_NARGS; VMB57 VMS57 VMV57
 
2136
        {register object V300;
 
2137
        va_start(ap,first);
 
2138
        if(narg <1) too_few_arguments();
 
2139
        V300= V299;
 
2140
        narg = narg - 1;
 
2141
        if (narg <= 0) goto T531;
 
2142
        else {
 
2143
        Vcs[1]=MMcons(first,Cnil);}
 
2144
        --narg; goto T532;
 
2145
        goto T531;
 
2146
T531:;
 
2147
        Vcs[1]= Cnil;
 
2148
        Vcs[1]=MMcons(Vcs[1],Cnil);
 
2149
        goto T532;
 
2150
T532:;
 
2151
        {object V301;
 
2152
        object V302;
 
2153
        object V303;
 
2154
        object V304;
 
2155
        base[0]= (V300);
 
2156
        vs_top=(vs_base=base+0)+1;
 
2157
        (void) (*Lnk204)();
 
2158
        if(vs_base>=vs_top){vs_top=sup;goto T536;}
 
2159
        V301= vs_base[0];
 
2160
        vs_base++;
 
2161
        if(vs_base>=vs_top){vs_top=sup;goto T537;}
 
2162
        V302= vs_base[0];
 
2163
        vs_base++;
 
2164
        if(vs_base>=vs_top){vs_top=sup;goto T538;}
 
2165
        V303= vs_base[0];
 
2166
        vs_base++;
 
2167
        if(vs_base>=vs_top){vs_top=sup;goto T539;}
 
2168
        V304= vs_base[0];
 
2169
        vs_top=sup;
 
2170
        goto T540;
 
2171
        goto T536;
 
2172
T536:;
 
2173
        V301= Cnil;
 
2174
        goto T537;
 
2175
T537:;
 
2176
        V302= Cnil;
 
2177
        goto T538;
 
2178
T538:;
 
2179
        V303= Cnil;
 
2180
        goto T539;
 
2181
T539:;
 
2182
        V304= Cnil;
 
2183
        goto T540;
 
2184
T540:;
 
2185
        {object V305;
 
2186
        base[0]= (*(LnkLI213))((V300));
 
2187
        base[0]=MMcons(base[0],Vcs[1]);
 
2188
        if(((base[0]->c.c_car))==Cnil){
 
2189
        goto T544;}
 
2190
        if(type_of(V300)==t_structure){
 
2191
        goto T550;}
 
2192
        goto T548;
 
2193
        goto T550;
 
2194
T550:;
 
2195
        if(!(((V300)->str.str_def)==(VV[77]))){
 
2196
        goto T548;}
 
2197
        V306= STREF(object,(V300),4);
 
2198
        goto T546;
 
2199
        goto T548;
 
2200
T548:;{object V308;
 
2201
        V308= (VV[73]->s.s_dbind);
 
2202
        base[3]= small_fixnum(14);
 
2203
        base[4]= (V300);
 
2204
        vs_top=(vs_base=base+3)+2;
 
2205
        (void) (*Lnk214)();
 
2206
        vs_top=sup;
 
2207
        V309= vs_base[0];
 
2208
        if(!((V308)==(CMPcar(V309)))){
 
2209
        goto T553;}}
 
2210
        V306= CMPcar(((V300))->cc.cc_turbo[12]);
 
2211
        goto T546;
 
2212
        goto T553;
 
2213
T553:;
 
2214
        base[3]= VV[74];
 
2215
        vs_top=(vs_base=base+3)+1;
 
2216
        Lerror();
 
2217
        vs_top=sup;
 
2218
        V306= vs_base[0];
 
2219
        goto T546;
 
2220
T546:;
 
2221
        V305= (V306)->v.v_self[fix((VV[75]->s.s_dbind))];
 
2222
        goto T542;
 
2223
        goto T544;
 
2224
T544:;
 
2225
        base[3]= (V300);
 
2226
        vs_top=(vs_base=base+3)+1;
 
2227
        (void) (*Lnk216)(Lclptr216);
 
2228
        vs_top=sup;
 
2229
        V305= vs_base[0];
 
2230
        goto T542;
 
2231
T542:;
 
2232
        base[2]=MMcons(VV[78],base[0]);
 
2233
        if(((V302))==Cnil){
 
2234
        goto T560;}
 
2235
        {object V310 = Cnil;
 
2236
        VMR57(V310)}
 
2237
        goto T560;
 
2238
T560:;
 
2239
        if(!(((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil)){
 
2240
        goto T564;}
 
2241
        goto T562;
 
2242
        goto T564;
 
2243
T564:;
 
2244
        if(((*(LnkLI222))((V300)))!=Cnil){
 
2245
        goto T562;}
 
2246
        {object V311 = Cnil;
 
2247
        VMR57(V311)}
 
2248
        goto T562;
 
2249
T562:;
 
2250
        base[3]= 
 
2251
        make_cclosure_new(LC148,Cnil,base[2],Cdata);
 
2252
        base[4]= (V305);
 
2253
        vs_top=(vs_base=base+3)+2;
 
2254
        (void) (*Lnk223)();
 
2255
        vs_top=sup;
 
2256
        {object V312 = vs_base[0];
 
2257
        VMR57(V312)}}}
 
2258
        va_end(ap);
 
2259
        base[0]=base[0];
 
2260
        return Cnil;}
 
2261
        }
 
2262
/*      function definition for MAKE-CONSTANT-VALUE-DFUN        */
 
2263
 
 
2264
static void L59()
 
2265
{register object *base=vs_base;
 
2266
        register object *sup=base+VM58; VC58
 
2267
        vs_check;
 
2268
        {object V313;
 
2269
        if(vs_top-vs_base<1) too_few_arguments();
 
2270
        if(vs_top-vs_base>2) too_many_arguments();
 
2271
        base[0]=MMcons(base[0],Cnil);
 
2272
        vs_base=vs_base+1;
 
2273
        if(vs_base>=vs_top){vs_top=sup;goto T568;}
 
2274
        V313=(base[1]);
 
2275
        vs_top=sup;
 
2276
        goto T569;
 
2277
        goto T568;
 
2278
T568:;
 
2279
        V313= Cnil;
 
2280
        goto T569;
 
2281
T569:;
 
2282
        {object V314;
 
2283
        object V315;
 
2284
        object V316;
 
2285
        object V317;
 
2286
        base[2]= (base[0]->c.c_car);
 
2287
        vs_top=(vs_base=base+2)+1;
 
2288
        (void) (*Lnk204)();
 
2289
        if(vs_base>=vs_top){vs_top=sup;goto T573;}
 
2290
        V314= vs_base[0];
 
2291
        vs_base++;
 
2292
        if(vs_base>=vs_top){vs_top=sup;goto T574;}
 
2293
        V315= vs_base[0];
 
2294
        vs_base++;
 
2295
        if(vs_base>=vs_top){vs_top=sup;goto T575;}
 
2296
        V316= vs_base[0];
 
2297
        vs_base++;
 
2298
        if(vs_base>=vs_top){vs_top=sup;goto T576;}
 
2299
        V317= vs_base[0];
 
2300
        vs_top=sup;
 
2301
        goto T577;
 
2302
        goto T573;
 
2303
T573:;
 
2304
        V314= Cnil;
 
2305
        goto T574;
 
2306
T574:;
 
2307
        V315= Cnil;
 
2308
        goto T575;
 
2309
T575:;
 
2310
        V316= Cnil;
 
2311
        goto T576;
 
2312
T576:;
 
2313
        V317= Cnil;
 
2314
        goto T577;
 
2315
T577:;
 
2316
        {object V318;
 
2317
        if((V313)!=Cnil){
 
2318
        V318= (V313);
 
2319
        goto T578;}
 
2320
        V319= (VV[220]->s.s_gfdef);
 
2321
        V318= (*(LnkLI192))((V317),Ct,V319,2);
 
2322
        goto T578;
 
2323
T578:;
 
2324
        base[3]= (*(LnkLI224))((V318));
 
2325
        base[3]=MMcons(base[3],base[0]);
 
2326
        base[6]= VV[82];
 
2327
        base[7]= (V316);
 
2328
        vs_top=(vs_base=base+6)+2;
 
2329
        (void) (*Lnk189)();
 
2330
        vs_top=sup;
 
2331
        base[5]= vs_base[0];
 
2332
        base[6]= (V318);
 
2333
        base[7]= 
 
2334
        make_cclosure_new(LC149,Cnil,base[3],Cdata);
 
2335
        vs_top=(vs_base=base+6)+2;
 
2336
        {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
2337
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
2338
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
2339
               else super_funcall_no_event(_funobj);}
 
2340
        vs_top=sup;
 
2341
        base[4]= vs_base[0];
 
2342
        base[5]= (V318);
 
2343
        base[6]= (base[3]->c.c_car);
 
2344
        vs_top=(vs_base=base+4)+3;
 
2345
        return;}}
 
2346
        }
 
2347
}
 
2348
/*      function definition for MAKE-FINAL-CONSTANT-VALUE-DFUN  */
 
2349
 
 
2350
static void L60()
 
2351
{register object *base=vs_base;
 
2352
        register object *sup=base+VM59; VC59
 
2353
        vs_check;
 
2354
        {object V320;
 
2355
        object V321;
 
2356
        object V322;
 
2357
        check_arg(3);
 
2358
        V320=(base[0]);
 
2359
        V321=(base[1]);
 
2360
        V322=(base[2]);
 
2361
        vs_top=sup;
 
2362
        goto TTL;
 
2363
TTL:;
 
2364
        {object V323;
 
2365
        V324= (VV[220]->s.s_gfdef);
 
2366
        V323= (*(LnkLI209))((V320),VV[81],V324,(V321),(V322));
 
2367
        base[3]= (V320);
 
2368
        base[4]= (V323);
 
2369
        vs_top=(vs_base=base+3)+2;
 
2370
        (void) (*Lnk219)();
 
2371
        return;}
 
2372
        }
 
2373
}
 
2374
/*      local entry for function USE-DISPATCH-DFUN-P    */
 
2375
 
 
2376
static object LI61(object V325,object first,...)
 
2377
{       
 
2378
        va_list ap;
 
2379
        int narg = VFUN_NARGS; VMB60 VMS60 VMV60
 
2380
        {object V326;
 
2381
        object V327;
 
2382
        va_start(ap,first);
 
2383
        if(narg <1) too_few_arguments();
 
2384
        V326= V325;
 
2385
        narg = narg - 1;
 
2386
        if (narg <= 0) goto T593;
 
2387
        else {
 
2388
        V327= first;}
 
2389
        --narg; goto T594;
 
2390
        goto T593;
 
2391
T593:;
 
2392
        V327= (*(LnkLI200))((V326));
 
2393
        goto T594;
 
2394
T594:;
 
2395
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
2396
        goto T597;}
 
2397
        if(((V327))!=Cnil){
 
2398
        goto T600;}
 
2399
        {object V328;
 
2400
        V328= (*(LnkLI225))((V326));
 
2401
        base[0]= (V326);
 
2402
        base[1]= (V328);
 
2403
        vs_top=(vs_base=base+0)+2;
 
2404
        (void) (*Lnk226)();
 
2405
        vs_top=sup;
 
2406
        V329= vs_base[0];
 
2407
        {object V330 = (number_compare((V328),V329)>0?Ct:Cnil);
 
2408
        VMR60(V330)}}
 
2409
        goto T600;
 
2410
T600:;
 
2411
        {object V331 = Cnil;
 
2412
        VMR60(V331)}
 
2413
        goto T597;
 
2414
T597:;
 
2415
        {object V332 = Cnil;
 
2416
        VMR60(V332)}
 
2417
        va_end(ap);
 
2418
        base[0]=base[0];
 
2419
        return Cnil;}
 
2420
        }
 
2421
/*      local entry for function SHOW-DFUN-COSTS        */
 
2422
 
 
2423
static object LI62(V334)
 
2424
 
 
2425
register object V334;
 
2426
{        VMB61 VMS61 VMV61
 
2427
        goto TTL;
 
2428
TTL:;
 
2429
        if(type_of((V334))==t_symbol){
 
2430
        goto T607;}
 
2431
        if(!(type_of((V334))==t_cons)){
 
2432
        goto T606;}
 
2433
        goto T607;
 
2434
T607:;
 
2435
        V334= (*(LnkLI227))((V334));
 
2436
        goto T606;
 
2437
T606:;
 
2438
        base[0]= Ct;
 
2439
        base[1]= VV[83];
 
2440
        base[3]= (V334);
 
2441
        vs_top=(vs_base=base+3)+1;
 
2442
        (void) (*Lnk178)(Lclptr178);
 
2443
        vs_top=sup;
 
2444
        base[2]= vs_base[0];
 
2445
        base[3]= (*(LnkLI225))((V334));
 
2446
        base[5]= (V334);
 
2447
        vs_top=(vs_base=base+5)+1;
 
2448
        (void) (*Lnk226)();
 
2449
        vs_top=sup;
 
2450
        base[4]= vs_base[0];
 
2451
        vs_top=(vs_base=base+0)+5;
 
2452
        Lformat();
 
2453
        vs_top=sup;
 
2454
        {object V335 = vs_base[0];
 
2455
        VMR61(V335)}
 
2456
        base[0]=base[0];
 
2457
        return Cnil;
 
2458
}
 
2459
/*      function definition for DISPATCH-DFUN-COST      */
 
2460
 
 
2461
static void L63()
 
2462
{register object *VOL base=vs_base;
 
2463
        register object *VOL sup=base+VM62; VC62
 
2464
        vs_check;
 
2465
        {VOL object V336;
 
2466
        if(vs_top-vs_base<1) too_few_arguments();
 
2467
        if(vs_top-vs_base>2) too_many_arguments();
 
2468
        V336=(base[0]);
 
2469
        vs_base=vs_base+1;
 
2470
        if(vs_base>=vs_top){vs_top=sup;goto T619;}
 
2471
        base[1]=MMcons(base[1],Cnil);
 
2472
        vs_top=sup;
 
2473
        goto T620;
 
2474
        goto T619;
 
2475
T619:;
 
2476
        base[1]= Cnil;
 
2477
        base[1]=MMcons(base[1],Cnil);
 
2478
        goto T620;
 
2479
T620:;
 
2480
        base[2]=alloc_frame_id();
 
2481
        base[2]=MMcons(base[2],base[1]);
 
2482
        frs_push(FRS_CATCH,(base[2]->c.c_car));
 
2483
        if(nlj_active)
 
2484
        {nlj_active=FALSE;frs_pop();
 
2485
        return;}
 
2486
        else{
 
2487
        base[3]= (V336);
 
2488
        base[5]= (V336);
 
2489
        vs_top=(vs_base=base+5)+1;
 
2490
        (void) (*Lnk216)(Lclptr216);
 
2491
        vs_top=sup;
 
2492
        base[4]= vs_base[0];
 
2493
        base[5]= Cnil;
 
2494
        base[6]= 
 
2495
        make_cclosure_new(LC150,Cnil,base[2],Cdata);
 
2496
        base[7]= 
 
2497
        make_cclosure_new(LC151,Cnil,base[2],Cdata);
 
2498
        base[8]= (VV[228]->s.s_gfdef);
 
2499
        vs_top=(vs_base=base+3)+6;
 
2500
        (void) (*Lnk229)();
 
2501
        frs_pop();
 
2502
        return;
 
2503
        }
 
2504
        }
 
2505
}
 
2506
/*      local entry for function CACHING-DFUN-COST      */
 
2507
 
 
2508
static object LI64(V338)
 
2509
 
 
2510
object V338;
 
2511
{        VMB63 VMS63 VMV63
 
2512
        goto TTL;
 
2513
TTL:;
 
2514
        {object V339;
 
2515
        object V340;
 
2516
        base[2]= (V338);
 
2517
        vs_top=(vs_base=base+2)+1;
 
2518
        (void) (*Lnk177)(Lclptr177);
 
2519
        vs_top=sup;
 
2520
        V339= vs_base[0];
 
2521
        V340= CMPmake_fixnum((long)length(STREF(object,(V339),8)));
 
2522
        base[2]= (VV[89]->s.s_dbind);
 
2523
        base[3]= number_times((VV[90]->s.s_dbind),(V340));
 
2524
        base[5]= (V338);
 
2525
        vs_top=(vs_base=base+5)+1;
 
2526
        (void) (*Lnk216)(Lclptr216);
 
2527
        vs_top=sup;
 
2528
        V341= vs_base[0];
 
2529
        if(((*(LnkLI230))(V341))==Cnil){
 
2530
        goto T636;}
 
2531
        base[4]= (VV[91]->s.s_dbind);
 
2532
        goto T634;
 
2533
        goto T636;
 
2534
T636:;
 
2535
        base[4]= small_fixnum(0);
 
2536
        goto T634;
 
2537
T634:;
 
2538
        vs_top=(vs_base=base+2)+3;
 
2539
        Lplus();
 
2540
        vs_top=sup;
 
2541
        {object V342 = vs_base[0];
 
2542
        VMR63(V342)}}
 
2543
        base[0]=base[0];
 
2544
        return Cnil;
 
2545
}
 
2546
/*      function definition for MAKE-DISPATCH-DFUN      */
 
2547
 
 
2548
static void L65()
 
2549
{register object *base=vs_base;
 
2550
        register object *sup=base+VM64; VC64
 
2551
        vs_check;
 
2552
        {object V343;
 
2553
        check_arg(1);
 
2554
        V343=(base[0]);
 
2555
        vs_top=sup;
 
2556
        goto TTL;
 
2557
TTL:;
 
2558
        base[2]= (V343);
 
2559
        vs_top=(vs_base=base+2)+1;
 
2560
        (void) (*Lnk231)();
 
2561
        vs_top=sup;
 
2562
        base[1]= vs_base[0];
 
2563
        base[2]= Cnil;
 
2564
        base[3]= (*(LnkLI232))();
 
2565
        vs_top=(vs_base=base+1)+3;
 
2566
        return;
 
2567
        }
 
2568
}
 
2569
/*      function definition for GET-DISPATCH-FUNCTION   */
 
2570
 
 
2571
static void L66()
 
2572
{register object *base=vs_base;
 
2573
        register object *sup=base+VM65; VC65
 
2574
        vs_check;
 
2575
        {object V344;
 
2576
        check_arg(1);
 
2577
        V344=(base[0]);
 
2578
        vs_top=sup;
 
2579
        goto TTL;
 
2580
TTL:;
 
2581
        {object V345;
 
2582
        base[1]= (V344);
 
2583
        vs_top=(vs_base=base+1)+1;
 
2584
        (void) (*Lnk216)(Lclptr216);
 
2585
        vs_top=sup;
 
2586
        V345= vs_base[0];
 
2587
        base[1]= (VFUN_NARGS=8,(*(LnkLI233))((V344),(V345),Cnil,Cnil,Cnil,Cnil,Cnil,Ct));
 
2588
        base[2]= Cnil;
 
2589
        base[3]= Cnil;
 
2590
        vs_top=(vs_base=base+2)+2;
 
2591
        {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
2592
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
2593
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
2594
               else super_funcall_no_event(_funobj);}
 
2595
        return;}
 
2596
        }
 
2597
}
 
2598
/*      function definition for MAKE-FINAL-DISPATCH-DFUN        */
 
2599
 
 
2600
static void L67()
 
2601
{register object *base=vs_base;
 
2602
        register object *sup=base+VM66; VC66
 
2603
        vs_check;
 
2604
        {object V346;
 
2605
        check_arg(1);
 
2606
        V346=(base[0]);
 
2607
        vs_top=sup;
 
2608
        goto TTL;
 
2609
TTL:;
 
2610
        base[1]= (V346);
 
2611
        vs_top=(vs_base=base+1)+1;
 
2612
        (void) (*Lnk203)();
 
2613
        return;
 
2614
        }
 
2615
}
 
2616
/*      local entry for function UPDATE-DISPATCH-DFUNS  */
 
2617
 
 
2618
static object LI68()
 
2619
 
 
2620
{        VMB67 VMS67 VMV67
 
2621
        goto TTL;
 
2622
TTL:;
 
2623
        {register object V347;
 
2624
        register object V348;
 
2625
        V347= (*(LnkLI176))(VV[92]);
 
2626
        V348= CMPcar((V347));
 
2627
        goto T653;
 
2628
T653:;
 
2629
        if(!(((V347))==Cnil)){
 
2630
        goto T654;}
 
2631
        {object V349 = Cnil;
 
2632
        VMR67(V349)}
 
2633
        goto T654;
 
2634
T654:;
 
2635
        {register object V350;
 
2636
        register object V351;
 
2637
        register object V352;
 
2638
        base[2]= (V348);
 
2639
        vs_top=(vs_base=base+2)+1;
 
2640
        (void) (*Lnk203)();
 
2641
        if(vs_base>=vs_top){vs_top=sup;goto T661;}
 
2642
        V350= vs_base[0];
 
2643
        vs_base++;
 
2644
        if(vs_base>=vs_top){vs_top=sup;goto T662;}
 
2645
        V351= vs_base[0];
 
2646
        vs_base++;
 
2647
        if(vs_base>=vs_top){vs_top=sup;goto T663;}
 
2648
        V352= vs_base[0];
 
2649
        vs_top=sup;
 
2650
        goto T664;
 
2651
        goto T661;
 
2652
T661:;
 
2653
        V350= Cnil;
 
2654
        goto T662;
 
2655
T662:;
 
2656
        V351= Cnil;
 
2657
        goto T663;
 
2658
T663:;
 
2659
        V352= Cnil;
 
2660
        goto T664;
 
2661
T664:;
 
2662
        (void)((VFUN_NARGS=4,(*(LnkLI47))((V348),(V350),(V351),(V352))));}
 
2663
        V347= CMPcdr((V347));
 
2664
        V348= CMPcar((V347));
 
2665
        goto T653;}
 
2666
        base[0]=base[0];
 
2667
        return Cnil;
 
2668
}
 
2669
/*      local entry for function FILL-DFUN-CACHE        */
 
2670
 
 
2671
static object LI69(object V356,object V355,object V354,object V353,object first,...)
 
2672
{       
 
2673
        va_list ap;
 
2674
        int narg = VFUN_NARGS; VMB68 VMS68 VMV68
 
2675
        {object V357;
 
2676
        object V358;
 
2677
        object V359;
 
2678
        object V360;
 
2679
        object V361;
 
2680
        va_start(ap,first);
 
2681
        if(narg <4) too_few_arguments();
 
2682
        V357= V356;
 
2683
        V358= V355;
 
2684
        V359= V354;
 
2685
        V360= V353;
 
2686
        narg = narg - 4;
 
2687
        if (narg <= 0) goto T670;
 
2688
        else {
 
2689
        V361= first;}
 
2690
        --narg; goto T671;
 
2691
        goto T670;
 
2692
T670:;
 
2693
        V361= Cnil;
 
2694
        goto T671;
 
2695
T671:;
 
2696
        if((V361)!=Cnil){
 
2697
        base[0]= (V361);
 
2698
        goto T673;}
 
2699
        base[1]= (V357);
 
2700
        vs_top=(vs_base=base+1)+1;
 
2701
        Lhash_table_count();
 
2702
        vs_top=sup;
 
2703
        V362= vs_base[0];
 
2704
        {long V363= fix(number_plus(V362,small_fixnum(3)));
 
2705
        base[0]= (*(LnkLI192))((V359),(V358),(V360),/* INLINE-ARGS */V363);}
 
2706
        goto T673;
 
2707
T673:;
 
2708
        base[0]=MMcons(base[0],Cnil);
 
2709
        base[1]= 
 
2710
        make_cclosure_new(LC152,Cnil,base[0],Cdata);
 
2711
        base[2]= (V357);
 
2712
        vs_top=(vs_base=base+1)+2;
 
2713
        Lmaphash();
 
2714
        vs_top=sup;
 
2715
        {object V364 = (base[0]->c.c_car);
 
2716
        VMR68(V364)}
 
2717
        va_end(ap);
 
2718
        base[0]=base[0];
 
2719
        return Cnil;}
 
2720
        }
 
2721
/*      local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL      */
 
2722
 
 
2723
static object LI70(V370,V371,V372,V373,V374)
 
2724
 
 
2725
register object V370;register object V371;object V372;object V373;object V374;
 
2726
{        VMB69 VMS69 VMV69
 
2727
        goto TTL;
 
2728
TTL:;
 
2729
        {object V375;
 
2730
        object V376;
 
2731
        object V377;
 
2732
        object V378;
 
2733
        base[4]= (V370);
 
2734
        vs_top=(vs_base=base+4)+1;
 
2735
        (void) (*Lnk177)(Lclptr177);
 
2736
        vs_top=sup;
 
2737
        V375= vs_base[0];
 
2738
        V376= (*(LnkLI234))((V375));
 
2739
        if((V374)==Cnil){
 
2740
        V377= Cnil;
 
2741
        goto T682;}
 
2742
        base[4]= (*(LnkLI235))((V370));
 
2743
        vs_top=(vs_base=base+4)+1;
 
2744
        Ltype_of();
 
2745
        vs_top=sup;
 
2746
        V379= vs_base[0];
 
2747
        if(!(((V371))==(Ct))){
 
2748
        goto T689;}
 
2749
        V380= VV[11];
 
2750
        goto T687;
 
2751
        goto T689;
 
2752
T689:;
 
2753
        if(!(((V371))==(VV[81]))){
 
2754
        goto T692;}
 
2755
        V380= VV[12];
 
2756
        goto T687;
 
2757
        goto T692;
 
2758
T692:;
 
2759
        if(((V371))!=Cnil){
 
2760
        goto T695;}
 
2761
        V380= VV[10];
 
2762
        goto T687;
 
2763
        goto T695;
 
2764
T695:;
 
2765
        V380= Cnil;
 
2766
        goto T687;
 
2767
T687:;
 
2768
        if(equal(V379,V380)){
 
2769
        goto T683;}
 
2770
        V377= Cnil;
 
2771
        goto T682;
 
2772
        goto T683;
 
2773
T683:;
 
2774
        V377= (V374);
 
2775
        goto T682;
 
2776
T682:;
 
2777
        if(((V377))==Cnil){
 
2778
        goto T699;}
 
2779
        V381= (*(LnkLI237))((V370));
 
2780
        V378= (*(LnkLI236))(/* INLINE-ARGS */V381);
 
2781
        goto T697;
 
2782
        goto T699;
 
2783
T699:;
 
2784
        V378= (*(LnkLI192))((V376),(((((V371))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V372),4);
 
2785
        goto T697;
 
2786
T697:;
 
2787
        {object V382 = (*(LnkLI238))((V370),(V371),(V378),(V373),(V377));
 
2788
        VMR69(V382)}}
 
2789
        base[0]=base[0];
 
2790
        return Cnil;
 
2791
}
 
2792
/*      macro definition for DFUN-MISS  */
 
2793
 
 
2794
static void L71()
 
2795
{register object *base=vs_base;
 
2796
        register object *sup=base+VM70; VC70
 
2797
        vs_check;
 
2798
        check_arg(2);
 
2799
        vs_top=sup;
 
2800
        {object V383=base[0]->c.c_cdr;
 
2801
        if(endp(V383))invalid_macro_call();
 
2802
        {object V384= (V383->c.c_car);
 
2803
        if(endp(V384))invalid_macro_call();
 
2804
        base[2]= (V384->c.c_car);
 
2805
        V384=V384->c.c_cdr;
 
2806
        if(endp(V384))invalid_macro_call();
 
2807
        base[3]= (V384->c.c_car);
 
2808
        V384=V384->c.c_cdr;
 
2809
        if(endp(V384))invalid_macro_call();
 
2810
        base[4]= (V384->c.c_car);
 
2811
        V384=V384->c.c_cdr;
 
2812
        if(endp(V384))invalid_macro_call();
 
2813
        base[5]= (V384->c.c_car);
 
2814
        V384=V384->c.c_cdr;
 
2815
        if(endp(V384))invalid_macro_call();
 
2816
        base[6]= (V384->c.c_car);
 
2817
        V384=V384->c.c_cdr;
 
2818
        if(endp(V384)){
 
2819
        base[7]= Cnil;
 
2820
        } else {
 
2821
        base[7]= (V384->c.c_car);
 
2822
        V384=V384->c.c_cdr;}
 
2823
        if(endp(V384)){
 
2824
        base[8]= Cnil;
 
2825
        } else {
 
2826
        base[8]= (V384->c.c_car);
 
2827
        V384=V384->c.c_cdr;}
 
2828
        if(endp(V384)){
 
2829
        base[9]= Cnil;
 
2830
        } else {
 
2831
        base[9]= (V384->c.c_car);
 
2832
        V384=V384->c.c_cdr;}
 
2833
        if(endp(V384)){
 
2834
        base[10]= Cnil;
 
2835
        } else {
 
2836
        base[10]= (V384->c.c_car);
 
2837
        V384=V384->c.c_cdr;}
 
2838
        if(!endp(V384))invalid_macro_call();}
 
2839
        V383=V383->c.c_cdr;
 
2840
        base[11]= V383;}
 
2841
        if((base[10])!=Cnil){
 
2842
        goto T705;}
 
2843
        vs_base=vs_top;
 
2844
        Lgensym();
 
2845
        vs_top=sup;
 
2846
        base[10]= vs_base[0];
 
2847
        goto T705;
 
2848
T705:;
 
2849
        if((base[7])==Cnil){
 
2850
        goto T711;}
 
2851
        V385= list(2,base[7],base[8]);
 
2852
        goto T709;
 
2853
        goto T711;
 
2854
T711:;
 
2855
        V385= Cnil;
 
2856
        goto T709;
 
2857
T709:;
 
2858
        V386= listA(5,base[6],base[10],base[4],base[5],V385);
 
2859
        if((base[9])==Cnil){
 
2860
        goto T715;}
 
2861
        V387= VV[11];
 
2862
        goto T713;
 
2863
        goto T715;
 
2864
T715:;
 
2865
        if((base[7])==Cnil){
 
2866
        goto T718;}
 
2867
        V387= VV[94];
 
2868
        goto T713;
 
2869
        goto T718;
 
2870
T718:;
 
2871
        V387= VV[10];
 
2872
        goto T713;
 
2873
T713:;
 
2874
        V388= list(4,VV[93],base[2],base[3],list(2,VV[23],V387));
 
2875
        V389= list(3,VV[96],base[10],list(2,VV[97],list(3,VV[98],base[2],VV[99])));
 
2876
        V390= list(2,VV[99],list(3,VV[101],base[2],VV[99]));
 
2877
        V391= list(3,VV[95],/* INLINE-ARGS */V389,listA(3,VV[100],make_cons(/* INLINE-ARGS */V390,Cnil),base[11]));
 
2878
        base[12]= list(5,VV[44],/* INLINE-ARGS */V386,/* INLINE-ARGS */V388,/* INLINE-ARGS */V391,list(3,VV[102],base[6],base[3]));
 
2879
        vs_top=(vs_base=base+12)+1;
 
2880
        return;
 
2881
}
 
2882
/*      local entry for function MAKE-INITIAL-DFUN      */
 
2883
 
 
2884
static object LI73(V393)
 
2885
 
 
2886
object V393;
 
2887
{        VMB71 VMS71 VMV71
 
2888
        goto TTL;
 
2889
TTL:;
 
2890
        base[0]=MMcons((V393),Cnil);
 
2891
        {object V394;
 
2892
        V394= 
 
2893
        make_cclosure_new(LC153,Cnil,base[0],Cdata);
 
2894
        {object V395;
 
2895
        object V396;
 
2896
        object V397;
 
2897
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
2898
        goto T723;}
 
2899
        if(((*(LnkLI222))((base[0]->c.c_car)))==Cnil){
 
2900
        goto T723;}
 
2901
        {object V398;
 
2902
        object V399;
 
2903
        V398= (*(LnkLI200))((base[0]->c.c_car));
 
2904
        V399= (VFUN_NARGS=3,(*(LnkLI239))((base[0]->c.c_car),(V398),(((VV[103]->s.s_dbind))==Cnil?Ct:Cnil)));
 
2905
        if(((VV[103]->s.s_dbind))==Cnil){
 
2906
        goto T730;}
 
2907
        if(((VFUN_NARGS=2,(*(LnkLI202))((base[0]->c.c_car),(V398))))==Cnil){
 
2908
        goto T733;}
 
2909
        base[3]= (V394);
 
2910
        base[4]= Cnil;
 
2911
        base[5]= (*(LnkLI240))();
 
2912
        vs_top=(vs_base=base+3)+3;
 
2913
        goto T721;
 
2914
        goto T733;
 
2915
T733:;
 
2916
        if(((V398))==Cnil){
 
2917
        goto T738;}
 
2918
        base[3]= (base[0]->c.c_car);
 
2919
        vs_top=(vs_base=base+3)+1;
 
2920
        (void) (*Lnk241)();
 
2921
        vs_top=sup;
 
2922
        goto T738;
 
2923
T738:;
 
2924
        base[3]= (V394);
 
2925
        base[4]= Cnil;
 
2926
        base[5]= (*(LnkLI242))();
 
2927
        vs_top=(vs_base=base+3)+3;
 
2928
        goto T721;
 
2929
        goto T730;
 
2930
T730:;
 
2931
        base[3]= (base[0]->c.c_car);
 
2932
        base[4]= (V399);
 
2933
        vs_top=(vs_base=base+3)+2;
 
2934
        (void) (*Lnk243)();
 
2935
        goto T721;}
 
2936
        goto T723;
 
2937
T723:;
 
2938
        {object V400;
 
2939
        object V401;
 
2940
        if(((*(LnkLI213))((base[0]->c.c_car)))==Cnil){
 
2941
        goto T749;}
 
2942
        {object V403;
 
2943
        V403= (base[0]->c.c_car);
 
2944
        if(type_of((V403))==t_structure){
 
2945
        goto T755;}
 
2946
        goto T753;
 
2947
        goto T755;
 
2948
T755:;
 
2949
        if(!((((V403))->str.str_def)==(VV[107]))){
 
2950
        goto T753;}}
 
2951
        V402= STREF(object,(base[0]->c.c_car),4);
 
2952
        goto T751;
 
2953
        goto T753;
 
2954
T753:;{object V404;
 
2955
        V404= (VV[73]->s.s_dbind);
 
2956
        base[1]= small_fixnum(14);
 
2957
        base[2]= (base[0]->c.c_car);
 
2958
        vs_top=(vs_base=base+1)+2;
 
2959
        (void) (*Lnk214)();
 
2960
        vs_top=sup;
 
2961
        V405= vs_base[0];
 
2962
        if(!((V404)==(CMPcar(V405)))){
 
2963
        goto T758;}}
 
2964
        V402= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);
 
2965
        goto T751;
 
2966
        goto T758;
 
2967
T758:;
 
2968
        base[1]= VV[74];
 
2969
        vs_top=(vs_base=base+1)+1;
 
2970
        Lerror();
 
2971
        vs_top=sup;
 
2972
        V402= vs_base[0];
 
2973
        goto T751;
 
2974
T751:;
 
2975
        V400= (V402)->v.v_self[fix((VV[105]->s.s_dbind))];
 
2976
        goto T747;
 
2977
        goto T749;
 
2978
T749:;
 
2979
        base[1]= (base[0]->c.c_car);
 
2980
        vs_top=(vs_base=base+1)+1;
 
2981
        (void) (*Lnk177)(Lclptr177);
 
2982
        vs_top=sup;
 
2983
        V400= vs_base[0];
 
2984
        goto T747;
 
2985
T747:;
 
2986
        V401= Cnil;
 
2987
        if((STREF(object,(V400),28))==Cnil){
 
2988
        goto T766;}
 
2989
        V401= (*(LnkLI244))((base[0]->c.c_car));
 
2990
        if(((V401))==Cnil){
 
2991
        goto T766;}
 
2992
        if(((VV[106]->s.s_dbind))==Cnil){
 
2993
        goto T772;}
 
2994
        base[1]= (*(LnkLI245))((base[0]->c.c_car),(V401));
 
2995
        base[2]= Cnil;
 
2996
        base[3]= Cnil;
 
2997
        vs_top=(vs_base=base+1)+3;
 
2998
        goto T721;
 
2999
        goto T772;
 
3000
T772:;
 
3001
        base[1]= (base[0]->c.c_car);
 
3002
        base[2]= (V401);
 
3003
        vs_top=(vs_base=base+1)+2;
 
3004
        (void) (*Lnk246)();
 
3005
        goto T721;
 
3006
        goto T766;
 
3007
T766:;
 
3008
        base[1]= (V394);
 
3009
        base[2]= Cnil;
 
3010
        base[3]= (*(LnkLI242))();
 
3011
        vs_top=(vs_base=base+1)+3;}
 
3012
        goto T721;
 
3013
T721:;
 
3014
        if(vs_base>=vs_top){vs_top=sup;goto T782;}
 
3015
        V395= vs_base[0];
 
3016
        vs_base++;
 
3017
        if(vs_base>=vs_top){vs_top=sup;goto T783;}
 
3018
        V396= vs_base[0];
 
3019
        vs_base++;
 
3020
        if(vs_base>=vs_top){vs_top=sup;goto T784;}
 
3021
        V397= vs_base[0];
 
3022
        vs_top=sup;
 
3023
        goto T785;
 
3024
        goto T782;
 
3025
T782:;
 
3026
        V395= Cnil;
 
3027
        goto T783;
 
3028
T783:;
 
3029
        V396= Cnil;
 
3030
        goto T784;
 
3031
T784:;
 
3032
        V397= Cnil;
 
3033
        goto T785;
 
3034
T785:;
 
3035
        {object V406 = (VFUN_NARGS=4,(*(LnkLI247))((base[0]->c.c_car),(V395),(V396),(V397)));
 
3036
        VMR71(V406)}}}
 
3037
        base[0]=base[0];
 
3038
        return Cnil;
 
3039
}
 
3040
/*      local entry for function MAKE-EARLY-ACCESSOR    */
 
3041
 
 
3042
static object LI74(V409,V410)
 
3043
 
 
3044
register object V409;object V410;
 
3045
{        VMB72 VMS72 VMV72
 
3046
        goto TTL;
 
3047
TTL:;
 
3048
        {object V411;
 
3049
        if(type_of(V409)==t_structure){
 
3050
        goto T791;}
 
3051
        goto T789;
 
3052
        goto T791;
 
3053
T791:;
 
3054
        if(!(((V409)->str.str_def)==(VV[108]))){
 
3055
        goto T789;}
 
3056
        V412= STREF(object,(V409),4);
 
3057
        goto T787;
 
3058
        goto T789;
 
3059
T789:;{object V414;
 
3060
        V414= (VV[73]->s.s_dbind);
 
3061
        base[2]= small_fixnum(14);
 
3062
        base[3]= (V409);
 
3063
        vs_top=(vs_base=base+2)+2;
 
3064
        (void) (*Lnk214)();
 
3065
        vs_top=sup;
 
3066
        V415= vs_base[0];
 
3067
        if(!((V414)==(CMPcar(V415)))){
 
3068
        goto T794;}}
 
3069
        V412= CMPcar(((V409))->cc.cc_turbo[12]);
 
3070
        goto T787;
 
3071
        goto T794;
 
3072
T794:;
 
3073
        base[2]= VV[74];
 
3074
        vs_top=(vs_base=base+2)+1;
 
3075
        Lerror();
 
3076
        vs_top=sup;
 
3077
        V412= vs_base[0];
 
3078
        goto T787;
 
3079
T787:;
 
3080
        V411= (V412)->v.v_self[fix((VV[75]->s.s_dbind))];
 
3081
        base[2]= CMPcar((V411));
 
3082
        vs_top=(vs_base=base+2)+1;
 
3083
        (void) (*Lnk248)();
 
3084
        vs_top=sup;
 
3085
        base[1]= vs_base[0];
 
3086
        base[1]=MMcons(base[1],Cnil);
 
3087
        {object V417= V410;
 
3088
        if((V417!= VV[59]))goto T802;
 
3089
        {object V418 = 
 
3090
        make_cclosure_new(LC154,Cnil,base[1],Cdata);
 
3091
        VMR72(V418)}
 
3092
        goto T802;
 
3093
T802:;
 
3094
        if((V417!= VV[133]))goto T803;
 
3095
        {object V419 = 
 
3096
        make_cclosure_new(LC155,Cnil,base[1],Cdata);
 
3097
        VMR72(V419)}
 
3098
        goto T803;
 
3099
T803:;
 
3100
        base[2]= VV[49];
 
3101
        base[3]= VV[50];
 
3102
        base[4]= VV[51];
 
3103
        base[5]= VV[52];
 
3104
        base[6]= V410;
 
3105
        base[7]= VV[53];
 
3106
        base[8]= VV[113];
 
3107
        base[9]= VV[55];
 
3108
        base[10]= VV[114];
 
3109
        vs_top=(vs_base=base+2)+9;
 
3110
        (void) (*Lnk187)();
 
3111
        vs_top=sup;
 
3112
        {object V420 = vs_base[0];
 
3113
        VMR72(V420)}}}
 
3114
        base[0]=base[0];
 
3115
        return Cnil;
 
3116
}
 
3117
/*      function definition for INITIAL-DFUN    */
 
3118
 
 
3119
static void L75()
 
3120
{register object *base=vs_base;
 
3121
        register object *sup=base+VM73; VC73
 
3122
        vs_check;
 
3123
        bds_check;
 
3124
        {register object V421;
 
3125
        object V422;
 
3126
        check_arg(2);
 
3127
        V421=(base[0]);
 
3128
        V422=(base[1]);
 
3129
        vs_top=sup;
 
3130
        goto TTL;
 
3131
TTL:;
 
3132
        {object V423;
 
3133
        object V424;
 
3134
        object V425;
 
3135
        object V426;
 
3136
        object V427;
 
3137
        object V428;
 
3138
        base[2]= (V421);
 
3139
        base[3]= (V422);
 
3140
        base[4]= VV[94];
 
3141
        vs_top=(vs_base=base+2)+3;
 
3142
        (void) (*Lnk93)();
 
3143
        if(vs_base>=vs_top){vs_top=sup;goto T817;}
 
3144
        V423= vs_base[0];
 
3145
        vs_base++;
 
3146
        if(vs_base>=vs_top){vs_top=sup;goto T818;}
 
3147
        V424= vs_base[0];
 
3148
        vs_base++;
 
3149
        if(vs_base>=vs_top){vs_top=sup;goto T819;}
 
3150
        V425= vs_base[0];
 
3151
        vs_base++;
 
3152
        if(vs_base>=vs_top){vs_top=sup;goto T820;}
 
3153
        V426= vs_base[0];
 
3154
        vs_base++;
 
3155
        if(vs_base>=vs_top){vs_top=sup;goto T821;}
 
3156
        V427= vs_base[0];
 
3157
        vs_base++;
 
3158
        if(vs_base>=vs_top){vs_top=sup;goto T822;}
 
3159
        V428= vs_base[0];
 
3160
        vs_top=sup;
 
3161
        goto T823;
 
3162
        goto T817;
 
3163
T817:;
 
3164
        V423= Cnil;
 
3165
        goto T818;
 
3166
T818:;
 
3167
        V424= Cnil;
 
3168
        goto T819;
 
3169
T819:;
 
3170
        V425= Cnil;
 
3171
        goto T820;
 
3172
T820:;
 
3173
        V426= Cnil;
 
3174
        goto T821;
 
3175
T821:;
 
3176
        V427= Cnil;
 
3177
        goto T822;
 
3178
T822:;
 
3179
        V428= Cnil;
 
3180
        goto T823;
 
3181
T823:;
 
3182
        if(((V424))==Cnil){
 
3183
        goto T824;}
 
3184
        {register object x= (V421),V429= (VV[99]->s.s_dbind);
 
3185
        while(V429!=Cnil)
 
3186
        if(x==(V429->c.c_car)){
 
3187
        goto T824;
 
3188
        }else V429=V429->c.c_cdr;}
 
3189
        base[2]= make_cons((V421),(VV[99]->s.s_dbind));
 
3190
        bds_bind(VV[99],base[2]);
 
3191
        if((V426)==Cnil){
 
3192
        goto T831;}
 
3193
        bds_unwind1;
 
3194
        goto T824;
 
3195
        goto T831;
 
3196
T831:;
 
3197
        if(((V427))==Cnil){
 
3198
        goto T834;}
 
3199
        if(((V428))==Cnil){
 
3200
        goto T834;}
 
3201
        {object V431;
 
3202
        object V432;
 
3203
        object V433;
 
3204
        base[3]= (V421);
 
3205
        base[4]= (V427);
 
3206
        base[5]= (V425);
 
3207
        base[6]= (V428);
 
3208
        vs_top=(vs_base=base+3)+4;
 
3209
        (void) (*Lnk249)();
 
3210
        if(vs_base>=vs_top){vs_top=sup;goto T843;}
 
3211
        V431= vs_base[0];
 
3212
        vs_base++;
 
3213
        if(vs_base>=vs_top){vs_top=sup;goto T844;}
 
3214
        V432= vs_base[0];
 
3215
        vs_base++;
 
3216
        if(vs_base>=vs_top){vs_top=sup;goto T845;}
 
3217
        V433= vs_base[0];
 
3218
        vs_top=sup;
 
3219
        goto T846;
 
3220
        goto T843;
 
3221
T843:;
 
3222
        V431= Cnil;
 
3223
        goto T844;
 
3224
T844:;
 
3225
        V432= Cnil;
 
3226
        goto T845;
 
3227
T845:;
 
3228
        V433= Cnil;
 
3229
        goto T846;
 
3230
T846:;
 
3231
        V434= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V431),(V432),(V433)));
 
3232
        bds_unwind1;
 
3233
        goto T824;}
 
3234
        goto T834;
 
3235
T834:;
 
3236
        if(((*(LnkLI200))((V421)))==Cnil){
 
3237
        goto T848;}
 
3238
        {object V435;
 
3239
        object V436;
 
3240
        object V437;
 
3241
        base[3]= (V421);
 
3242
        vs_top=(vs_base=base+3)+1;
 
3243
        (void) (*Lnk201)();
 
3244
        if(vs_base>=vs_top){vs_top=sup;goto T852;}
 
3245
        V435= vs_base[0];
 
3246
        vs_base++;
 
3247
        if(vs_base>=vs_top){vs_top=sup;goto T853;}
 
3248
        V436= vs_base[0];
 
3249
        vs_base++;
 
3250
        if(vs_base>=vs_top){vs_top=sup;goto T854;}
 
3251
        V437= vs_base[0];
 
3252
        vs_top=sup;
 
3253
        goto T855;
 
3254
        goto T852;
 
3255
T852:;
 
3256
        V435= Cnil;
 
3257
        goto T853;
 
3258
T853:;
 
3259
        V436= Cnil;
 
3260
        goto T854;
 
3261
T854:;
 
3262
        V437= Cnil;
 
3263
        goto T855;
 
3264
T855:;
 
3265
        V438= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V435),(V436),(V437)));
 
3266
        bds_unwind1;
 
3267
        goto T824;}
 
3268
        goto T848;
 
3269
T848:;
 
3270
        {object V439;
 
3271
        object V440;
 
3272
        object V441;
 
3273
        base[3]= (V421);
 
3274
        base[5]= (V421);
 
3275
        base[6]= (V422);
 
3276
        base[7]= VV[10];
 
3277
        vs_top=(vs_base=base+5)+3;
 
3278
        (void) (*Lnk93)();
 
3279
        vs_top=sup;
 
3280
        base[4]= vs_base[0];
 
3281
        vs_top=(vs_base=base+3)+2;
 
3282
        (void) (*Lnk210)();
 
3283
        if(vs_base>=vs_top){vs_top=sup;goto T862;}
 
3284
        V439= vs_base[0];
 
3285
        vs_base++;
 
3286
        if(vs_base>=vs_top){vs_top=sup;goto T863;}
 
3287
        V440= vs_base[0];
 
3288
        vs_base++;
 
3289
        if(vs_base>=vs_top){vs_top=sup;goto T864;}
 
3290
        V441= vs_base[0];
 
3291
        vs_top=sup;
 
3292
        goto T865;
 
3293
        goto T862;
 
3294
T862:;
 
3295
        V439= Cnil;
 
3296
        goto T863;
 
3297
T863:;
 
3298
        V440= Cnil;
 
3299
        goto T864;
 
3300
T864:;
 
3301
        V441= Cnil;
 
3302
        goto T865;
 
3303
T865:;
 
3304
        V442= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V439),(V440),(V441)));
 
3305
        bds_unwind1;}
 
3306
        goto T824;
 
3307
T824:;
 
3308
        base[2]= (V423);
 
3309
        base[3]= (V422);
 
3310
        vs_top=(vs_base=base+2)+2;
 
3311
        (void) (*Lnk102)();
 
3312
        return;}
 
3313
        }
 
3314
}
 
3315
/*      local entry for function MAKE-FINAL-DFUN        */
 
3316
 
 
3317
static object LI76(object V443,object first,...)
 
3318
{       
 
3319
        va_list ap;
 
3320
        int narg = VFUN_NARGS; VMB74 VMS74 VMV74
 
3321
        {object V444;
 
3322
        object V445;
 
3323
        va_start(ap,first);
 
3324
        if(narg <1) too_few_arguments();
 
3325
        V444= V443;
 
3326
        narg = narg - 1;
 
3327
        if (narg <= 0) goto T868;
 
3328
        else {
 
3329
        V445= first;}
 
3330
        --narg; goto T869;
 
3331
        goto T868;
 
3332
T868:;
 
3333
        V445= Cnil;
 
3334
        goto T869;
 
3335
T869:;
 
3336
        {object V446;
 
3337
        object V447;
 
3338
        object V448;
 
3339
        base[0]= (V444);
 
3340
        base[1]= (V445);
 
3341
        vs_top=(vs_base=base+0)+2;
 
3342
        (void) (*Lnk243)();
 
3343
        if(vs_base>=vs_top){vs_top=sup;goto T874;}
 
3344
        V446= vs_base[0];
 
3345
        vs_base++;
 
3346
        if(vs_base>=vs_top){vs_top=sup;goto T875;}
 
3347
        V447= vs_base[0];
 
3348
        vs_base++;
 
3349
        if(vs_base>=vs_top){vs_top=sup;goto T876;}
 
3350
        V448= vs_base[0];
 
3351
        vs_top=sup;
 
3352
        goto T877;
 
3353
        goto T874;
 
3354
T874:;
 
3355
        V446= Cnil;
 
3356
        goto T875;
 
3357
T875:;
 
3358
        V447= Cnil;
 
3359
        goto T876;
 
3360
T876:;
 
3361
        V448= Cnil;
 
3362
        goto T877;
 
3363
T877:;
 
3364
        {object V449 = (VFUN_NARGS=4,(*(LnkLI247))((V444),(V446),(V447),(V448)));
 
3365
        VMR74(V449)}}
 
3366
        va_end(ap);
 
3367
        base[0]=base[0];
 
3368
        return Cnil;}
 
3369
        }
 
3370
/*      macro definition for WITH-HASH-TABLE    */
 
3371
 
 
3372
static void L77()
 
3373
{register object *base=vs_base;
 
3374
        register object *sup=base+VM75; VC75
 
3375
        vs_check;
 
3376
        check_arg(2);
 
3377
        vs_top=sup;
 
3378
        {object V450=base[0]->c.c_cdr;
 
3379
        if(endp(V450))invalid_macro_call();
 
3380
        {object V451= (V450->c.c_car);
 
3381
        if(endp(V451))invalid_macro_call();
 
3382
        base[2]= (V451->c.c_car);
 
3383
        V451=V451->c.c_cdr;
 
3384
        if(endp(V451))invalid_macro_call();
 
3385
        base[3]= (V451->c.c_car);
 
3386
        V451=V451->c.c_cdr;
 
3387
        if(!endp(V451))invalid_macro_call();}
 
3388
        V450=V450->c.c_cdr;
 
3389
        base[4]= V450;}
 
3390
        V452= list(2,VV[116],list(3,VV[117],list(2,VV[23],base[3]),VV[118]));
 
3391
        V453= list(2,/* INLINE-ARGS */V452,list(2,base[2],list(4,VV[119],VV[120],VV[121],list(3,VV[122],VV[123],list(2,VV[23],base[3])))));
 
3392
        V454= make_cons(VV[19],base[4]);
 
3393
        V455= list(2,VV[125],base[2]);
 
3394
        base[5]= list(3,VV[115],/* INLINE-ARGS */V453,list(4,VV[124],/* INLINE-ARGS */V454,/* INLINE-ARGS */V455,list(3,VV[126],base[2],VV[127])));
 
3395
        vs_top=(vs_base=base+5)+1;
 
3396
        return;
 
3397
}
 
3398
/*      macro definition for WITH-EQ-HASH-TABLE */
 
3399
 
 
3400
static void L78()
 
3401
{register object *base=vs_base;
 
3402
        register object *sup=base+VM76; VC76
 
3403
        vs_check;
 
3404
        check_arg(2);
 
3405
        vs_top=sup;
 
3406
        {object V456=base[0]->c.c_cdr;
 
3407
        if(endp(V456))invalid_macro_call();
 
3408
        {object V457= (V456->c.c_car);
 
3409
        if(endp(V457))invalid_macro_call();
 
3410
        base[2]= (V457->c.c_car);
 
3411
        V457=V457->c.c_cdr;
 
3412
        if(!endp(V457))invalid_macro_call();}
 
3413
        V456=V456->c.c_cdr;
 
3414
        base[3]= V456;}
 
3415
        base[4]= listA(3,VV[128],list(2,base[2],VV[129]),base[3]);
 
3416
        vs_top=(vs_base=base+4)+1;
 
3417
        return;
 
3418
}
 
3419
/*      local entry for function FINAL-ACCESSOR-DFUN-TYPE       */
 
3420
 
 
3421
static object LI79(V459)
 
3422
 
 
3423
register object V459;
 
3424
{        VMB77 VMS77 VMV77
 
3425
        goto TTL;
 
3426
TTL:;
 
3427
        {object V460;
 
3428
        if(((*(LnkLI213))((V459)))==Cnil){
 
3429
        goto T880;}
 
3430
        if(type_of(V459)==t_structure){
 
3431
        goto T886;}
 
3432
        goto T884;
 
3433
        goto T886;
 
3434
T886:;
 
3435
        if(!(((V459)->str.str_def)==(VV[130]))){
 
3436
        goto T884;}
 
3437
        V461= STREF(object,(V459),4);
 
3438
        goto T882;
 
3439
        goto T884;
 
3440
T884:;{object V463;
 
3441
        V463= (VV[73]->s.s_dbind);
 
3442
        base[0]= small_fixnum(14);
 
3443
        base[1]= (V459);
 
3444
        vs_top=(vs_base=base+0)+2;
 
3445
        (void) (*Lnk214)();
 
3446
        vs_top=sup;
 
3447
        V464= vs_base[0];
 
3448
        if(!((V463)==(CMPcar(V464)))){
 
3449
        goto T889;}}
 
3450
        V461= CMPcar(((V459))->cc.cc_turbo[12]);
 
3451
        goto T882;
 
3452
        goto T889;
 
3453
T889:;
 
3454
        base[0]= VV[74];
 
3455
        vs_top=(vs_base=base+0)+1;
 
3456
        Lerror();
 
3457
        vs_top=sup;
 
3458
        V461= vs_base[0];
 
3459
        goto T882;
 
3460
T882:;
 
3461
        V460= (V461)->v.v_self[fix((VV[75]->s.s_dbind))];
 
3462
        goto T878;
 
3463
        goto T880;
 
3464
T880:;
 
3465
        base[0]= (V459);
 
3466
        vs_top=(vs_base=base+0)+1;
 
3467
        (void) (*Lnk216)(Lclptr216);
 
3468
        vs_top=sup;
 
3469
        V460= vs_base[0];
 
3470
        goto T878;
 
3471
T878:;
 
3472
        base[0]= VV[250];
 
3473
        base[1]= (V460);
 
3474
        vs_top=(vs_base=base+0)+2;
 
3475
        (void) (*Lnk205)();
 
3476
        vs_top=sup;
 
3477
        if((vs_base[0])==Cnil){
 
3478
        goto T897;}
 
3479
        {object V465 = VV[59];
 
3480
        VMR77(V465)}
 
3481
        goto T897;
 
3482
T897:;
 
3483
        base[0]= VV[251];
 
3484
        base[1]= (V460);
 
3485
        vs_top=(vs_base=base+0)+2;
 
3486
        (void) (*Lnk205)();
 
3487
        vs_top=sup;
 
3488
        if((vs_base[0])==Cnil){
 
3489
        goto T902;}
 
3490
        {object V466 = VV[133];
 
3491
        VMR77(V466)}
 
3492
        goto T902;
 
3493
T902:;
 
3494
        {object V467 = Cnil;
 
3495
        VMR77(V467)}}
 
3496
        base[0]=base[0];
 
3497
        return Cnil;
 
3498
}
 
3499
/*      function definition for MAKE-FINAL-ACCESSOR-DFUN        */
 
3500
 
 
3501
static void L80()
 
3502
{register object *base=vs_base;
 
3503
        register object *sup=base+VM78; VC78
 
3504
        vs_check;
 
3505
        {register object V468;
 
3506
        register object V469;
 
3507
        object V470;
 
3508
        object V471;
 
3509
        if(vs_top-vs_base<2) too_few_arguments();
 
3510
        if(vs_top-vs_base>4) too_many_arguments();
 
3511
        V468=(base[0]);
 
3512
        V469=(base[1]);
 
3513
        vs_base=vs_base+2;
 
3514
        if(vs_base>=vs_top){vs_top=sup;goto T906;}
 
3515
        V470=(base[2]);
 
3516
        vs_base++;
 
3517
        if(vs_base>=vs_top){vs_top=sup;goto T907;}
 
3518
        V471=(base[3]);
 
3519
        vs_top=sup;
 
3520
        goto T908;
 
3521
        goto T906;
 
3522
T906:;
 
3523
        V470= Cnil;
 
3524
        goto T907;
 
3525
T907:;
 
3526
        V471= Cnil;
 
3527
        goto T908;
 
3528
T908:;
 
3529
        {object V472;
 
3530
        object V473;
 
3531
        {register object x= VV[129],V474= (VV[118]->s.s_dbind);
 
3532
        while(V474!=Cnil)
 
3533
        if(eql(x,V474->c.c_car->c.c_car) &&V474->c.c_car != Cnil){
 
3534
        V472= (V474->c.c_car);
 
3535
        goto T911;
 
3536
        }else V474=V474->c.c_cdr;
 
3537
        V472= Cnil;}
 
3538
        goto T911;
 
3539
T911:;
 
3540
        if((CMPcdr((V472)))==Cnil){
 
3541
        goto T914;}
 
3542
        {object V476;
 
3543
        V476= CMPcdr(CMPcdr(V472));
 
3544
        {object V477;
 
3545
        V477= CMPcar(CMPcdr(V472));
 
3546
        (V472)->c.c_cdr = (V476);
 
3547
        V473= (V477);
 
3548
        goto T912;}}
 
3549
        goto T914;
 
3550
T914:;
 
3551
        base[6]= VV[123];
 
3552
        base[7]= VV[129];
 
3553
        vs_top=(vs_base=base+6)+2;
 
3554
        Lmake_hash_table();
 
3555
        vs_top=sup;
 
3556
        V473= vs_base[0];
 
3557
        goto T912;
 
3558
T912:;
 
3559
        {object V480;
 
3560
        register object V481;
 
3561
        object V482;
 
3562
        object V483;
 
3563
        object V484;
 
3564
        object V485;
 
3565
        base[6]= (V468);
 
3566
        base[7]= (V469);
 
3567
        base[8]= (V473);
 
3568
        vs_top=(vs_base=base+6)+3;
 
3569
        (void) (*Lnk252)();
 
3570
        if(vs_base>=vs_top){vs_top=sup;goto T927;}
 
3571
        V480= vs_base[0];
 
3572
        vs_base++;
 
3573
        if(vs_base>=vs_top){vs_top=sup;goto T928;}
 
3574
        V481= vs_base[0];
 
3575
        vs_base++;
 
3576
        if(vs_base>=vs_top){vs_top=sup;goto T929;}
 
3577
        V482= vs_base[0];
 
3578
        vs_base++;
 
3579
        if(vs_base>=vs_top){vs_top=sup;goto T930;}
 
3580
        V483= vs_base[0];
 
3581
        vs_base++;
 
3582
        if(vs_base>=vs_top){vs_top=sup;goto T931;}
 
3583
        V484= vs_base[0];
 
3584
        vs_base++;
 
3585
        if(vs_base>=vs_top){vs_top=sup;goto T932;}
 
3586
        V485= vs_base[0];
 
3587
        vs_top=sup;
 
3588
        goto T933;
 
3589
        goto T927;
 
3590
T927:;
 
3591
        V480= Cnil;
 
3592
        goto T928;
 
3593
T928:;
 
3594
        V481= Cnil;
 
3595
        goto T929;
 
3596
T929:;
 
3597
        V482= Cnil;
 
3598
        goto T930;
 
3599
T930:;
 
3600
        V483= Cnil;
 
3601
        goto T931;
 
3602
T931:;
 
3603
        V484= Cnil;
 
3604
        goto T932;
 
3605
T932:;
 
3606
        V485= Cnil;
 
3607
        goto T933;
 
3608
T933:;
 
3609
        if(((V480))==Cnil){
 
3610
        goto T935;}
 
3611
        if(!(number_compare((V484),small_fixnum(1))==0)){
 
3612
        goto T938;}
 
3613
        {object V486;
 
3614
        base[6]= (V482);
 
3615
        vs_top=(vs_base=base+6)+1;
 
3616
        (void) (*Lnk253)(Lclptr253);
 
3617
        vs_top=sup;
 
3618
        V486= vs_base[0];
 
3619
        base[6]= (V468);
 
3620
        base[7]= (V469);
 
3621
        base[8]= (V486);
 
3622
        base[9]= (V481);
 
3623
        vs_top=(vs_base=base+6)+4;
 
3624
        (void) (*Lnk249)();
 
3625
        goto T922;}
 
3626
        goto T938;
 
3627
T938:;
 
3628
        if(!(number_compare((V484),small_fixnum(2))==0)){
 
3629
        goto T947;}
 
3630
        if(type_of((V481))==t_fixnum||type_of((V481))==t_bignum){
 
3631
        goto T946;}
 
3632
        if(!(type_of((V481))==t_cons)){
 
3633
        goto T947;}
 
3634
        goto T946;
 
3635
T946:;
 
3636
        {object V487;
 
3637
        object V488;
 
3638
        base[6]= (V482);
 
3639
        vs_top=(vs_base=base+6)+1;
 
3640
        (void) (*Lnk253)(Lclptr253);
 
3641
        vs_top=sup;
 
3642
        V487= vs_base[0];
 
3643
        base[6]= (V483);
 
3644
        vs_top=(vs_base=base+6)+1;
 
3645
        (void) (*Lnk253)(Lclptr253);
 
3646
        vs_top=sup;
 
3647
        V488= vs_base[0];
 
3648
        base[6]= (V468);
 
3649
        base[7]= (V469);
 
3650
        base[8]= (V487);
 
3651
        base[9]= (V488);
 
3652
        base[10]= (V481);
 
3653
        vs_top=(vs_base=base+6)+5;
 
3654
        (void) (*Lnk254)();
 
3655
        goto T922;}
 
3656
        goto T947;
 
3657
T947:;
 
3658
        if(type_of((V481))==t_fixnum||type_of((V481))==t_bignum){
 
3659
        goto T962;}
 
3660
        if(!(type_of((V481))==t_cons)){
 
3661
        goto T963;}
 
3662
        goto T962;
 
3663
T962:;
 
3664
        base[6]= (V468);
 
3665
        base[7]= (V469);
 
3666
        base[8]= (V481);
 
3667
        base[9]= (V480);
 
3668
        vs_top=(vs_base=base+6)+4;
 
3669
        (void) (*Lnk255)();
 
3670
        goto T922;
 
3671
        goto T963;
 
3672
T963:;
 
3673
        if(((V485))==Cnil){
 
3674
        goto T972;}
 
3675
        base[6]= (V468);
 
3676
        base[7]= (V469);
 
3677
        base[8]= (V480);
 
3678
        vs_top=(vs_base=base+6)+3;
 
3679
        (void) (*Lnk256)();
 
3680
        goto T922;
 
3681
        goto T972;
 
3682
T972:;
 
3683
        base[6]= (V468);
 
3684
        base[7]= (V470);
 
3685
        base[8]= (V471);
 
3686
        vs_top=(vs_base=base+6)+3;
 
3687
        (void) (*Lnk257)();
 
3688
        goto T922;
 
3689
        goto T935;
 
3690
T935:;
 
3691
        base[6]= (V468);
 
3692
        base[7]= (V470);
 
3693
        base[8]= (V471);
 
3694
        vs_top=(vs_base=base+6)+3;
 
3695
        (void) (*Lnk257)();}
 
3696
        goto T922;
 
3697
T922:;
 
3698
        {object *V479=vs_top;object *V478=vs_base; vs_base=V479;
 
3699
        {register object *base0=base;
 
3700
        {register object *base=V479;
 
3701
        register object *sup=vs_base+VM79;
 
3702
        base0[0]=base0[0];
 
3703
        base[0]=base[0];
 
3704
        vs_check;
 
3705
        vs_top=sup;
 
3706
        base[0]= (V473);
 
3707
        vs_top=(vs_base=base+0)+1;
 
3708
        Lclrhash();
 
3709
        vs_top=sup;
 
3710
        }}
 
3711
        {register object *base0=base;
 
3712
        {register object *base=V479;
 
3713
        register object *sup=vs_base+VM80;
 
3714
        base0[0]=base0[0];
 
3715
        base[0]=base[0];
 
3716
        vs_check;
 
3717
        vs_top=sup;
 
3718
        {object V491;
 
3719
        V491= make_cons(V473,CMPcdr(V472));
 
3720
        (V472)->c.c_cdr = (V491);}
 
3721
        }}
 
3722
        vs_base=V478;vs_top=V479;}
 
3723
        return;}
 
3724
        }
 
3725
}
 
3726
/*      function definition for MAKE-FINAL-DFUN-INTERNAL        */
 
3727
 
 
3728
static void L81()
 
3729
{register object *base=vs_base;
 
3730
        register object *sup=base+VM81; VC81
 
3731
        vs_check;
 
3732
        bds_check;
 
3733
        {register object V492;
 
3734
        if(vs_top-vs_base<1) too_few_arguments();
 
3735
        if(vs_top-vs_base>2) too_many_arguments();
 
3736
        base[0]=MMcons(base[0],Cnil);
 
3737
        vs_base=vs_base+1;
 
3738
        if(vs_base>=vs_top){vs_top=sup;goto T988;}
 
3739
        V492=(base[1]);
 
3740
        vs_top=sup;
 
3741
        goto T989;
 
3742
        goto T988;
 
3743
T988:;
 
3744
        V492= Cnil;
 
3745
        goto T989;
 
3746
T989:;
 
3747
        {register object V493;
 
3748
        object V494;
 
3749
        register object V495;
 
3750
        object V496;
 
3751
        base[4]= (base[0]->c.c_car);
 
3752
        vs_top=(vs_base=base+4)+1;
 
3753
        (void) (*Lnk216)(Lclptr216);
 
3754
        vs_top=sup;
 
3755
        V493= vs_base[0];
 
3756
        V494= Cnil;
 
3757
        V495= (VV[134]->s.s_dbind);
 
3758
        bds_bind(VV[134],Cnil);
 
3759
        base[3]=MMcons(Cnil,base[0]);
 
3760
        V496= Cnil;
 
3761
        if(((V493))!=Cnil){
 
3762
        goto T994;}
 
3763
        base[4]= 
 
3764
        make_cclosure_new(LC158,Cnil,base[3],Cdata);
 
3765
        base[5]= Cnil;
 
3766
        base[6]= (*(LnkLI258))();
 
3767
        vs_top=(vs_base=base+4)+3;
 
3768
        bds_unwind1;
 
3769
        return;
 
3770
        goto T994;
 
3771
T994:;
 
3772
        V494= (*(LnkLI244))((base[0]->c.c_car));
 
3773
        if(((V494))==Cnil){
 
3774
        goto T1000;}
 
3775
        base[4]= (base[0]->c.c_car);
 
3776
        base[5]= (V494);
 
3777
        base[6]= (V492);
 
3778
        base[7]= (V495);
 
3779
        vs_top=(vs_base=base+4)+4;
 
3780
        (void) (*Lnk246)();
 
3781
        bds_unwind1;
 
3782
        return;
 
3783
        goto T1000;
 
3784
T1000:;
 
3785
        base[4]= 
 
3786
        make_cclosure_new(LC159,Cnil,base[3],Cdata);
 
3787
        base[6]= CMPcar((V493));
 
3788
        vs_top=(vs_base=base+6)+1;
 
3789
        (void) (*Lnk259)(Lclptr259);
 
3790
        vs_top=sup;
 
3791
        (base[3]->c.c_car)= vs_base[0];
 
3792
        base[5]= (base[3]->c.c_car);
 
3793
        vs_top=(vs_base=base+4)+2;
 
3794
        (void) (*Lnk205)();
 
3795
        vs_top=sup;
 
3796
        if((vs_base[0])==Cnil){
 
3797
        goto T1009;}
 
3798
        base[4]= 
 
3799
        make_cclosure_new(LC160,Cnil,base[3],Cdata);
 
3800
        base[5]= (V493);
 
3801
        vs_top=(vs_base=base+4)+2;
 
3802
        (void) (*Lnk205)();
 
3803
        vs_top=sup;
 
3804
        V496= vs_base[0];
 
3805
        if(((V496))!=Cnil){
 
3806
        goto T1008;}
 
3807
        goto T1009;
 
3808
T1009:;
 
3809
        if(((VFUN_NARGS=1,(*(LnkLI218))((base[0]->c.c_car))))==Cnil){
 
3810
        goto T1008;}
 
3811
        base[4]= (base[0]->c.c_car);
 
3812
        base[5]= (V492);
 
3813
        base[6]= (V495);
 
3814
        vs_top=(vs_base=base+4)+3;
 
3815
        (void) (*Lnk260)();
 
3816
        bds_unwind1;
 
3817
        return;
 
3818
        goto T1008;
 
3819
T1008:;
 
3820
        if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){
 
3821
        goto T1025;}
 
3822
        base[4]= (base[0]->c.c_car);
 
3823
        vs_top=(vs_base=base+4)+1;
 
3824
        (void) (*Lnk261)();
 
3825
        bds_unwind1;
 
3826
        return;
 
3827
        goto T1025;
 
3828
T1025:;
 
3829
        if(((V496))==Cnil){
 
3830
        goto T1029;}
 
3831
        if(((*(LnkLI200))((base[0]->c.c_car)))!=Cnil){
 
3832
        goto T1029;}
 
3833
        {object V497;
 
3834
        base[4]= (base[0]->c.c_car);
 
3835
        base[5]= (V493);
 
3836
        base[6]= Cnil;
 
3837
        vs_top=(vs_base=base+4)+3;
 
3838
        (void) (*Lnk262)();
 
3839
        vs_top=sup;
 
3840
        V497= vs_base[0];
 
3841
        base[4]= (base[0]->c.c_car);
 
3842
        base[5]= (V497);
 
3843
        base[6]= (V492);
 
3844
        base[7]= (V495);
 
3845
        vs_top=(vs_base=base+4)+4;
 
3846
        (void) (*Lnk263)();
 
3847
        bds_unwind1;
 
3848
        return;}
 
3849
        goto T1029;
 
3850
T1029:;
 
3851
        base[4]= (base[0]->c.c_car);
 
3852
        base[5]= (V492);
 
3853
        base[6]= (V495);
 
3854
        vs_top=(vs_base=base+4)+3;
 
3855
        (void) (*Lnk257)();
 
3856
        bds_unwind1;
 
3857
        return;}
 
3858
        }
 
3859
}
 
3860
/*      function definition for ACCESSOR-MISS   */
 
3861
 
 
3862
static void L82()
 
3863
{register object *base=vs_base;
 
3864
        register object *sup=base+VM82; VC82
 
3865
        vs_check;
 
3866
        bds_check;
 
3867
        {object V498;
 
3868
        register object V499;
 
3869
        register object V500;
 
3870
        check_arg(4);
 
3871
        base[0]=MMcons(base[0],Cnil);
 
3872
        V498=(base[1]);
 
3873
        V499=(base[2]);
 
3874
        V500=(base[3]);
 
3875
        vs_top=sup;
 
3876
        {object V501;
 
3877
        object V502;
 
3878
        register object V503;
 
3879
        register object V504;
 
3880
        object V505;
 
3881
        object V506;
 
3882
        base[8]= (V500);
 
3883
        vs_top=(vs_base=base+8)+1;
 
3884
        Ltype_of();
 
3885
        vs_top=sup;
 
3886
        V501= vs_base[0];
 
3887
        V502= STREF(object,(V500),4);
 
3888
        V503= Cnil;
 
3889
        V504= Cnil;
 
3890
        V505= Cnil;
 
3891
        base[6]= Cnil;
 
3892
        {object V508= V502;
 
3893
        if((V508!= VV[59]))goto T1051;
 
3894
        V506= make_cons((V499),Cnil);
 
3895
        goto T1050;
 
3896
        goto T1051;
 
3897
T1051:;
 
3898
        if((V508!= VV[133]))goto T1052;
 
3899
        V506= list(2,(V498),(V499));
 
3900
        goto T1050;
 
3901
        goto T1052;
 
3902
T1052:;
 
3903
        base[8]= VV[49];
 
3904
        base[9]= VV[50];
 
3905
        base[10]= VV[51];
 
3906
        base[11]= VV[52];
 
3907
        base[12]= V502;
 
3908
        base[13]= VV[53];
 
3909
        base[14]= VV[136];
 
3910
        base[15]= VV[55];
 
3911
        base[16]= VV[137];
 
3912
        vs_top=(vs_base=base+8)+9;
 
3913
        (void) (*Lnk187)();
 
3914
        vs_top=sup;
 
3915
        V506= vs_base[0];}
 
3916
        goto T1050;
 
3917
T1050:;
 
3918
        {object V509;
 
3919
        object V510;
 
3920
        base[12]= (base[0]->c.c_car);
 
3921
        base[13]= (V506);
 
3922
        base[14]= VV[94];
 
3923
        vs_top=(vs_base=base+12)+3;
 
3924
        (void) (*Lnk93)();
 
3925
        if(vs_base>=vs_top){vs_top=sup;goto T1066;}
 
3926
        base[8]=MMcons(vs_base[0],base[0]);
 
3927
        vs_base++;
 
3928
        if(vs_base>=vs_top){vs_top=sup;goto T1067;}
 
3929
        V509= vs_base[0];
 
3930
        vs_base++;
 
3931
        if(vs_base>=vs_top){vs_top=sup;goto T1068;}
 
3932
        base[9]= vs_base[0];
 
3933
        vs_base++;
 
3934
        if(vs_base>=vs_top){vs_top=sup;goto T1069;}
 
3935
        V510= vs_base[0];
 
3936
        vs_base++;
 
3937
        if(vs_base>=vs_top){vs_top=sup;goto T1070;}
 
3938
        base[10]=MMcons(vs_base[0],base[8]);
 
3939
        vs_base++;
 
3940
        if(vs_base>=vs_top){vs_top=sup;goto T1071;}
 
3941
        base[11]=MMcons(vs_base[0],base[10]);
 
3942
        vs_top=sup;
 
3943
        goto T1072;
 
3944
        goto T1066;
 
3945
T1066:;
 
3946
        base[8]=MMcons(Cnil,base[0]);
 
3947
        goto T1067;
 
3948
T1067:;
 
3949
        V509= Cnil;
 
3950
        goto T1068;
 
3951
T1068:;
 
3952
        base[9]= Cnil;
 
3953
        goto T1069;
 
3954
T1069:;
 
3955
        V510= Cnil;
 
3956
        goto T1070;
 
3957
T1070:;
 
3958
        base[10]=MMcons(Cnil,base[8]);
 
3959
        goto T1071;
 
3960
T1071:;
 
3961
        base[11]=MMcons(Cnil,base[10]);
 
3962
        goto T1072;
 
3963
T1072:;
 
3964
        if(((V509))==Cnil){
 
3965
        goto T1073;}
 
3966
        {register object x= (base[0]->c.c_car),V511= (VV[99]->s.s_dbind);
 
3967
        while(V511!=Cnil)
 
3968
        if(x==(V511->c.c_car)){
 
3969
        goto T1073;
 
3970
        }else V511=V511->c.c_cdr;}
 
3971
        base[12]= make_cons((base[0]->c.c_car),(VV[99]->s.s_dbind));
 
3972
        bds_bind(VV[99],base[12]);
 
3973
        base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata);
 
3974
        base[13]=MMcons(base[13],base[11]);
 
3975
        base[14]=make_cclosure_new(LC85,Cnil,base[13],Cdata);
 
3976
        base[14]=MMcons(base[14],base[13]);
 
3977
        if(((base[10]->c.c_car))!=Cnil){
 
3978
        goto T1080;}
 
3979
        vs_base=vs_top;
 
3980
        L86(base);
 
3981
        vs_top=sup;
 
3982
        bds_unwind1;
 
3983
        goto T1073;
 
3984
        goto T1080;
 
3985
T1080:;
 
3986
        {object V512;
 
3987
        if((V510)!=Cnil){
 
3988
        V512= (V510);
 
3989
        goto T1082;}
 
3990
        V512= (((base[11]->c.c_car))==Cnil?Ct:Cnil);
 
3991
        goto T1082;
 
3992
T1082:;
 
3993
        if(((V512))==Cnil){
 
3994
        goto T1084;}
 
3995
        bds_unwind1;
 
3996
        goto T1073;
 
3997
        goto T1084;
 
3998
T1084:;
 
3999
        if(type_of(V499)==t_structure){
 
4000
        goto T1090;}
 
4001
        goto T1089;
 
4002
        goto T1090;
 
4003
T1090:;
 
4004
        if(((V499)->str.str_def)==(VV[141])){
 
4005
        goto T1087;}
 
4006
        goto T1089;
 
4007
T1089:;{object V514;
 
4008
        V514= (VV[73]->s.s_dbind);
 
4009
        base[15]= small_fixnum(14);
 
4010
        base[16]= (V499);
 
4011
        vs_top=(vs_base=base+15)+2;
 
4012
        (void) (*Lnk214)();
 
4013
        vs_top=sup;
 
4014
        V515= vs_base[0];
 
4015
        if((V514)==(CMPcar(V515))){
 
4016
        goto T1087;}}
 
4017
        vs_base=vs_top;
 
4018
        L86(base);
 
4019
        vs_top=sup;
 
4020
        bds_unwind1;
 
4021
        goto T1073;
 
4022
        goto T1087;
 
4023
T1087:;
 
4024
        if(((((base[10]->c.c_car))==((V502))?Ct:Cnil))==Cnil){
 
4025
        goto T1096;}
 
4026
        if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){
 
4027
        goto T1097;}
 
4028
        goto T1096;
 
4029
T1096:;
 
4030
        vs_base=vs_top;
 
4031
        L86(base);
 
4032
        vs_top=sup;
 
4033
        bds_unwind1;
 
4034
        goto T1073;
 
4035
        goto T1097;
 
4036
T1097:;
 
4037
        {object V517= V501;
 
4038
        if((V517!= VV[38]))goto T1101;
 
4039
        V503= STREF(object,(V500),8);
 
4040
        V504= STREF(object,(V500),12);
 
4041
        if(((V504))==(base[9])){
 
4042
        bds_unwind1;
 
4043
        goto T1073;}
 
4044
        if(!(eql((base[11]->c.c_car),(V503)))){
 
4045
        goto T1109;}
 
4046
        base[15]= (base[11]->c.c_car);
 
4047
        base[16]= (V504);
 
4048
        base[17]= base[9];
 
4049
        vs_top=(vs_base=base+15)+3;
 
4050
        L83(base);
 
4051
        vs_top=sup;
 
4052
        bds_unwind1;
 
4053
        goto T1073;
 
4054
        goto T1109;
 
4055
T1109:;
 
4056
        vs_base=vs_top;
 
4057
        L85(base);
 
4058
        vs_top=sup;
 
4059
        bds_unwind1;
 
4060
        goto T1073;
 
4061
        goto T1101;
 
4062
T1101:;
 
4063
        if((V517!= VV[40]))goto T1114;
 
4064
        V503= STREF(object,(V500),8);
 
4065
        V504= STREF(object,(V500),12);
 
4066
        V505= STREF(object,(V500),16);
 
4067
        if(((V504))==(base[9])){
 
4068
        bds_unwind1;
 
4069
        goto T1073;}
 
4070
        if(((V505))==(base[9])){
 
4071
        bds_unwind1;
 
4072
        goto T1073;}
 
4073
        if(!(eql((base[11]->c.c_car),(V503)))){
 
4074
        goto T1126;}
 
4075
        base[15]= (base[11]->c.c_car);
 
4076
        vs_top=(vs_base=base+15)+1;
 
4077
        L84(base);
 
4078
        vs_top=sup;
 
4079
        bds_unwind1;
 
4080
        goto T1073;
 
4081
        goto T1126;
 
4082
T1126:;
 
4083
        vs_base=vs_top;
 
4084
        L85(base);
 
4085
        vs_top=sup;
 
4086
        bds_unwind1;
 
4087
        goto T1073;
 
4088
        goto T1114;
 
4089
T1114:;
 
4090
        if((V517!= VV[42]))goto T1129;
 
4091
        V503= STREF(object,(V500),8);
 
4092
        base[6]= STREF(object,(V500),0);
 
4093
        if(!(eql((base[11]->c.c_car),(V503)))){
 
4094
        goto T1135;}
 
4095
        base[15]= 
 
4096
        make_cclosure_new(LC161,Cnil,base[14],Cdata);
 
4097
        vs_top=(vs_base=base+15)+1;
 
4098
        L87(base);
 
4099
        vs_top=sup;
 
4100
        bds_unwind1;
 
4101
        goto T1073;
 
4102
        goto T1135;
 
4103
T1135:;
 
4104
        vs_base=vs_top;
 
4105
        L85(base);
 
4106
        vs_top=sup;
 
4107
        bds_unwind1;
 
4108
        goto T1073;
 
4109
        goto T1129;
 
4110
T1129:;
 
4111
        if((V517!= VV[37]))goto T1138;
 
4112
        base[6]= STREF(object,(V500),0);
 
4113
        if(!(type_of((base[11]->c.c_car))==t_cons)){
 
4114
        goto T1142;}
 
4115
        vs_base=vs_top;
 
4116
        L86(base);
 
4117
        vs_top=sup;
 
4118
        bds_unwind1;
 
4119
        goto T1073;
 
4120
        goto T1142;
 
4121
T1142:;
 
4122
        base[15]= (base[14]->c.c_car);
 
4123
        vs_top=(vs_base=base+15)+1;
 
4124
        L87(base);
 
4125
        vs_top=sup;
 
4126
        bds_unwind1;
 
4127
        goto T1073;
 
4128
        goto T1138;
 
4129
T1138:;
 
4130
        base[15]= VV[49];
 
4131
        base[16]= VV[50];
 
4132
        base[17]= VV[51];
 
4133
        base[18]= VV[52];
 
4134
        base[19]= V501;
 
4135
        base[20]= VV[53];
 
4136
        base[21]= VV[142];
 
4137
        base[22]= VV[55];
 
4138
        base[23]= VV[143];
 
4139
        vs_top=(vs_base=base+15)+9;
 
4140
        (void) (*Lnk187)();
 
4141
        vs_top=sup;
 
4142
        bds_unwind1;}}
 
4143
        goto T1073;
 
4144
T1073:;
 
4145
        base[12]= (base[8]->c.c_car);
 
4146
        base[13]= (V506);
 
4147
        vs_top=(vs_base=base+12)+2;
 
4148
        (void) (*Lnk102)();
 
4149
        return;}}
 
4150
        }
 
4151
}
 
4152
/*      function definition for CHECKING-MISS   */
 
4153
 
 
4154
static void L88()
 
4155
{register object *base=vs_base;
 
4156
        register object *sup=base+VM83; VC83
 
4157
        vs_check;
 
4158
        bds_check;
 
4159
        {register object V518;
 
4160
        object V519;
 
4161
        object V520;
 
4162
        check_arg(3);
 
4163
        V518=(base[0]);
 
4164
        V519=(base[1]);
 
4165
        V520=(base[2]);
 
4166
        vs_top=sup;
 
4167
        goto TTL;
 
4168
TTL:;
 
4169
        {object V521;
 
4170
        object V522;
 
4171
        V521= STREF(object,(V520),4);
 
4172
        V522= STREF(object,(V520),0);
 
4173
        {object V523;
 
4174
        object V524;
 
4175
        object V525;
 
4176
        object V526;
 
4177
        base[3]= (V518);
 
4178
        base[4]= (V519);
 
4179
        base[5]= VV[10];
 
4180
        vs_top=(vs_base=base+3)+3;
 
4181
        (void) (*Lnk93)();
 
4182
        if(vs_base>=vs_top){vs_top=sup;goto T1162;}
 
4183
        V523= vs_base[0];
 
4184
        vs_base++;
 
4185
        if(vs_base>=vs_top){vs_top=sup;goto T1163;}
 
4186
        V524= vs_base[0];
 
4187
        vs_base++;
 
4188
        if(vs_base>=vs_top){vs_top=sup;goto T1164;}
 
4189
        V525= vs_base[0];
 
4190
        vs_base++;
 
4191
        if(vs_base>=vs_top){vs_top=sup;goto T1165;}
 
4192
        V526= vs_base[0];
 
4193
        vs_top=sup;
 
4194
        goto T1166;
 
4195
        goto T1162;
 
4196
T1162:;
 
4197
        V523= Cnil;
 
4198
        goto T1163;
 
4199
T1163:;
 
4200
        V524= Cnil;
 
4201
        goto T1164;
 
4202
T1164:;
 
4203
        V525= Cnil;
 
4204
        goto T1165;
 
4205
T1165:;
 
4206
        V526= Cnil;
 
4207
        goto T1166;
 
4208
T1166:;
 
4209
        if(((V524))==Cnil){
 
4210
        goto T1167;}
 
4211
        {register object x= (V518),V527= (VV[99]->s.s_dbind);
 
4212
        while(V527!=Cnil)
 
4213
        if(x==(V527->c.c_car)){
 
4214
        goto T1167;
 
4215
        }else V527=V527->c.c_cdr;}
 
4216
        base[3]= make_cons((V518),(VV[99]->s.s_dbind));
 
4217
        bds_bind(VV[99],base[3]);
 
4218
        if((V526)==Cnil){
 
4219
        goto T1174;}
 
4220
        bds_unwind1;
 
4221
        goto T1167;
 
4222
        goto T1174;
 
4223
T1174:;
 
4224
        if(!(((V521))==((V523)))){
 
4225
        goto T1177;}
 
4226
        {object V529;
 
4227
        V529= (VFUN_NARGS=3,(*(LnkLI264))((V522),(V525),Cnil));
 
4228
        if(((V529))==((V522))){
 
4229
        bds_unwind1;
 
4230
        goto T1167;}
 
4231
        {object V530;
 
4232
        object V531;
 
4233
        object V532;
 
4234
        base[4]= (V518);
 
4235
        base[5]= (V523);
 
4236
        base[6]= (V529);
 
4237
        vs_top=(vs_base=base+4)+3;
 
4238
        (void) (*Lnk210)();
 
4239
        if(vs_base>=vs_top){vs_top=sup;goto T1186;}
 
4240
        V530= vs_base[0];
 
4241
        vs_base++;
 
4242
        if(vs_base>=vs_top){vs_top=sup;goto T1187;}
 
4243
        V531= vs_base[0];
 
4244
        vs_base++;
 
4245
        if(vs_base>=vs_top){vs_top=sup;goto T1188;}
 
4246
        V532= vs_base[0];
 
4247
        vs_top=sup;
 
4248
        goto T1189;
 
4249
        goto T1186;
 
4250
T1186:;
 
4251
        V530= Cnil;
 
4252
        goto T1187;
 
4253
T1187:;
 
4254
        V531= Cnil;
 
4255
        goto T1188;
 
4256
T1188:;
 
4257
        V532= Cnil;
 
4258
        goto T1189;
 
4259
T1189:;
 
4260
        V533= (VFUN_NARGS=4,(*(LnkLI47))((V518),(V530),(V531),(V532)));
 
4261
        bds_unwind1;
 
4262
        goto T1167;}}
 
4263
        goto T1177;
 
4264
T1177:;
 
4265
        {object V534;
 
4266
        object V535;
 
4267
        object V536;
 
4268
        base[4]= (V518);
 
4269
        vs_top=(vs_base=base+4)+1;
 
4270
        (void) (*Lnk201)();
 
4271
        if(vs_base>=vs_top){vs_top=sup;goto T1192;}
 
4272
        V534= vs_base[0];
 
4273
        vs_base++;
 
4274
        if(vs_base>=vs_top){vs_top=sup;goto T1193;}
 
4275
        V535= vs_base[0];
 
4276
        vs_base++;
 
4277
        if(vs_base>=vs_top){vs_top=sup;goto T1194;}
 
4278
        V536= vs_base[0];
 
4279
        vs_top=sup;
 
4280
        goto T1195;
 
4281
        goto T1192;
 
4282
T1192:;
 
4283
        V534= Cnil;
 
4284
        goto T1193;
 
4285
T1193:;
 
4286
        V535= Cnil;
 
4287
        goto T1194;
 
4288
T1194:;
 
4289
        V536= Cnil;
 
4290
        goto T1195;
 
4291
T1195:;
 
4292
        V537= (VFUN_NARGS=4,(*(LnkLI47))((V518),(V534),(V535),(V536)));
 
4293
        bds_unwind1;}
 
4294
        goto T1167;
 
4295
T1167:;
 
4296
        base[3]= (V523);
 
4297
        base[4]= (V519);
 
4298
        vs_top=(vs_base=base+3)+2;
 
4299
        (void) (*Lnk102)();
 
4300
        return;}}
 
4301
        }
 
4302
}
 
4303
/*      function definition for CACHING-MISS    */
 
4304
 
 
4305
static void L89()
 
4306
{register object *base=vs_base;
 
4307
        register object *sup=base+VM84; VC84
 
4308
        vs_check;
 
4309
        bds_check;
 
4310
        {register object V538;
 
4311
        object V539;
 
4312
        object V540;
 
4313
        check_arg(3);
 
4314
        V538=(base[0]);
 
4315
        V539=(base[1]);
 
4316
        V540=(base[2]);
 
4317
        vs_top=sup;
 
4318
        goto TTL;
 
4319
TTL:;
 
4320
        {object V541;
 
4321
        V541= STREF(object,(V540),0);
 
4322
        {object V542;
 
4323
        object V543;
 
4324
        object V544;
 
4325
        object V545;
 
4326
        base[3]= (V538);
 
4327
        base[4]= (V539);
 
4328
        base[5]= VV[11];
 
4329
        vs_top=(vs_base=base+3)+3;
 
4330
        (void) (*Lnk93)();
 
4331
        if(vs_base>=vs_top){vs_top=sup;goto T1203;}
 
4332
        V542= vs_base[0];
 
4333
        vs_base++;
 
4334
        if(vs_base>=vs_top){vs_top=sup;goto T1204;}
 
4335
        V543= vs_base[0];
 
4336
        vs_base++;
 
4337
        if(vs_base>=vs_top){vs_top=sup;goto T1205;}
 
4338
        V544= vs_base[0];
 
4339
        vs_base++;
 
4340
        if(vs_base>=vs_top){vs_top=sup;goto T1206;}
 
4341
        V545= vs_base[0];
 
4342
        vs_top=sup;
 
4343
        goto T1207;
 
4344
        goto T1203;
 
4345
T1203:;
 
4346
        V542= Cnil;
 
4347
        goto T1204;
 
4348
T1204:;
 
4349
        V543= Cnil;
 
4350
        goto T1205;
 
4351
T1205:;
 
4352
        V544= Cnil;
 
4353
        goto T1206;
 
4354
T1206:;
 
4355
        V545= Cnil;
 
4356
        goto T1207;
 
4357
T1207:;
 
4358
        if(((V543))==Cnil){
 
4359
        goto T1208;}
 
4360
        {register object x= (V538),V546= (VV[99]->s.s_dbind);
 
4361
        while(V546!=Cnil)
 
4362
        if(x==(V546->c.c_car)){
 
4363
        goto T1208;
 
4364
        }else V546=V546->c.c_cdr;}
 
4365
        base[3]= make_cons((V538),(VV[99]->s.s_dbind));
 
4366
        bds_bind(VV[99],base[3]);
 
4367
        if((V545)==Cnil){
 
4368
        goto T1215;}
 
4369
        bds_unwind1;
 
4370
        goto T1208;
 
4371
        goto T1215;
 
4372
T1215:;
 
4373
        {object V548;
 
4374
        V548= (VFUN_NARGS=3,(*(LnkLI264))((V541),(V544),(V542)));
 
4375
        if(((V548))==((V541))){
 
4376
        bds_unwind1;
 
4377
        goto T1208;}
 
4378
        {object V549;
 
4379
        object V550;
 
4380
        object V551;
 
4381
        base[4]= (V538);
 
4382
        base[5]= (V548);
 
4383
        vs_top=(vs_base=base+4)+2;
 
4384
        (void) (*Lnk201)();
 
4385
        if(vs_base>=vs_top){vs_top=sup;goto T1223;}
 
4386
        V549= vs_base[0];
 
4387
        vs_base++;
 
4388
        if(vs_base>=vs_top){vs_top=sup;goto T1224;}
 
4389
        V550= vs_base[0];
 
4390
        vs_base++;
 
4391
        if(vs_base>=vs_top){vs_top=sup;goto T1225;}
 
4392
        V551= vs_base[0];
 
4393
        vs_top=sup;
 
4394
        goto T1226;
 
4395
        goto T1223;
 
4396
T1223:;
 
4397
        V549= Cnil;
 
4398
        goto T1224;
 
4399
T1224:;
 
4400
        V550= Cnil;
 
4401
        goto T1225;
 
4402
T1225:;
 
4403
        V551= Cnil;
 
4404
        goto T1226;
 
4405
T1226:;
 
4406
        V552= (VFUN_NARGS=4,(*(LnkLI47))((V538),(V549),(V550),(V551)));
 
4407
        bds_unwind1;}}
 
4408
        goto T1208;
 
4409
T1208:;
 
4410
        base[3]= (V542);
 
4411
        base[4]= (V539);
 
4412
        vs_top=(vs_base=base+3)+2;
 
4413
        (void) (*Lnk102)();
 
4414
        return;}}
 
4415
        }
 
4416
}
 
4417
/*      function definition for CONSTANT-VALUE-MISS     */
 
4418
 
 
4419
static void L90()
 
4420
{register object *base=vs_base;
 
4421
        register object *sup=base+VM85; VC85
 
4422
        vs_check;
 
4423
        bds_check;
 
4424
        {register object V553;
 
4425
        object V554;
 
4426
        object V555;
 
4427
        check_arg(3);
 
4428
        V553=(base[0]);
 
4429
        V554=(base[1]);
 
4430
        V555=(base[2]);
 
4431
        vs_top=sup;
 
4432
        goto TTL;
 
4433
TTL:;
 
4434
        {object V556;
 
4435
        V556= STREF(object,(V555),0);
 
4436
        {register object V557;
 
4437
        object V558;
 
4438
        object V559;
 
4439
        object V560;
 
4440
        base[3]= (V553);
 
4441
        base[4]= (V554);
 
4442
        base[5]= VV[11];
 
4443
        vs_top=(vs_base=base+3)+3;
 
4444
        (void) (*Lnk93)();
 
4445
        if(vs_base>=vs_top){vs_top=sup;goto T1234;}
 
4446
        V557= vs_base[0];
 
4447
        vs_base++;
 
4448
        if(vs_base>=vs_top){vs_top=sup;goto T1235;}
 
4449
        V558= vs_base[0];
 
4450
        vs_base++;
 
4451
        if(vs_base>=vs_top){vs_top=sup;goto T1236;}
 
4452
        V559= vs_base[0];
 
4453
        vs_base++;
 
4454
        if(vs_base>=vs_top){vs_top=sup;goto T1237;}
 
4455
        V560= vs_base[0];
 
4456
        vs_top=sup;
 
4457
        goto T1238;
 
4458
        goto T1234;
 
4459
T1234:;
 
4460
        V557= Cnil;
 
4461
        goto T1235;
 
4462
T1235:;
 
4463
        V558= Cnil;
 
4464
        goto T1236;
 
4465
T1236:;
 
4466
        V559= Cnil;
 
4467
        goto T1237;
 
4468
T1237:;
 
4469
        V560= Cnil;
 
4470
        goto T1238;
 
4471
T1238:;
 
4472
        if(((V558))==Cnil){
 
4473
        goto T1239;}
 
4474
        {register object x= (V553),V561= (VV[99]->s.s_dbind);
 
4475
        while(V561!=Cnil)
 
4476
        if(x==(V561->c.c_car)){
 
4477
        goto T1239;
 
4478
        }else V561=V561->c.c_cdr;}
 
4479
        base[3]= make_cons((V553),(VV[99]->s.s_dbind));
 
4480
        bds_bind(VV[99],base[3]);
 
4481
        if((V560)==Cnil){
 
4482
        goto T1246;}
 
4483
        bds_unwind1;
 
4484
        goto T1239;
 
4485
        goto T1246;
 
4486
T1246:;
 
4487
        {object V563;
 
4488
        object V564;
 
4489
        object V565;
 
4490
        {register object V566;
 
4491
        V566= (V557);
 
4492
        base[7]= (V566);
 
4493
        base[8]= VV[144];
 
4494
        vs_top=(vs_base=base+7)+2;
 
4495
        (void) (*Lnk265)();
 
4496
        vs_top=sup;
 
4497
        if((vs_base[0])==Cnil){
 
4498
        goto T1250;}
 
4499
        V563= STREF(object,(V557),0);
 
4500
        goto T1248;
 
4501
        goto T1250;
 
4502
T1250:;
 
4503
        base[7]= (V566);
 
4504
        base[8]= VV[145];
 
4505
        vs_top=(vs_base=base+7)+2;
 
4506
        (void) (*Lnk265)();
 
4507
        vs_top=sup;
 
4508
        if((vs_base[0])==Cnil){
 
4509
        goto T1255;}
 
4510
        V563= STREF(object,(V557),0);
 
4511
        goto T1248;
 
4512
        goto T1255;
 
4513
T1255:;
 
4514
        V563= Cnil;}
 
4515
        goto T1248;
 
4516
T1248:;
 
4517
        V564= (VFUN_NARGS=2,(*(LnkLI266))((V563),VV[81]));
 
4518
        V565= (VFUN_NARGS=3,(*(LnkLI264))((V556),(V559),(V564)));
 
4519
        if(((V565))==((V556))){
 
4520
        bds_unwind1;
 
4521
        goto T1239;}
 
4522
        {object V567;
 
4523
        object V568;
 
4524
        object V569;
 
4525
        base[7]= (V553);
 
4526
        base[8]= (V565);
 
4527
        vs_top=(vs_base=base+7)+2;
 
4528
        (void) (*Lnk219)();
 
4529
        if(vs_base>=vs_top){vs_top=sup;goto T1266;}
 
4530
        V567= vs_base[0];
 
4531
        vs_base++;
 
4532
        if(vs_base>=vs_top){vs_top=sup;goto T1267;}
 
4533
        V568= vs_base[0];
 
4534
        vs_base++;
 
4535
        if(vs_base>=vs_top){vs_top=sup;goto T1268;}
 
4536
        V569= vs_base[0];
 
4537
        vs_top=sup;
 
4538
        goto T1269;
 
4539
        goto T1266;
 
4540
T1266:;
 
4541
        V567= Cnil;
 
4542
        goto T1267;
 
4543
T1267:;
 
4544
        V568= Cnil;
 
4545
        goto T1268;
 
4546
T1268:;
 
4547
        V569= Cnil;
 
4548
        goto T1269;
 
4549
T1269:;
 
4550
        V570= (VFUN_NARGS=4,(*(LnkLI47))((V553),(V567),(V568),(V569)));
 
4551
        bds_unwind1;}}
 
4552
        goto T1239;
 
4553
T1239:;
 
4554
        base[3]= (V557);
 
4555
        base[4]= (V554);
 
4556
        vs_top=(vs_base=base+3)+2;
 
4557
        (void) (*Lnk102)();
 
4558
        return;}}
 
4559
        }
 
4560
}
 
4561
/*      function definition for CACHE-MISS-VALUES       */
 
4562
 
 
4563
static void L91()
 
4564
{register object *base=vs_base;
 
4565
        register object *sup=base+VM86; VC86
 
4566
        vs_check;
 
4567
        {object V571;
 
4568
        object V572;
 
4569
        object V573;
 
4570
        check_arg(3);
 
4571
        V571=(base[0]);
 
4572
        V572=(base[1]);
 
4573
        V573=(base[2]);
 
4574
        vs_top=sup;
 
4575
        goto TTL;
 
4576
TTL:;
 
4577
        {object V574;
 
4578
        object V575;
 
4579
        object V576;
 
4580
        object V577;
 
4581
        object V578;
 
4582
        base[3]= (V571);
 
4583
        vs_top=(vs_base=base+3)+1;
 
4584
        (void) (*Lnk204)();
 
4585
        if(vs_base>=vs_top){vs_top=sup;goto T1274;}
 
4586
        V574= vs_base[0];
 
4587
        vs_base++;
 
4588
        if(vs_base>=vs_top){vs_top=sup;goto T1275;}
 
4589
        V575= vs_base[0];
 
4590
        vs_base++;
 
4591
        if(vs_base>=vs_top){vs_top=sup;goto T1276;}
 
4592
        V576= vs_base[0];
 
4593
        vs_base++;
 
4594
        if(vs_base>=vs_top){vs_top=sup;goto T1277;}
 
4595
        V577= vs_base[0];
 
4596
        vs_base++;
 
4597
        if(vs_base>=vs_top){vs_top=sup;goto T1278;}
 
4598
        V578= vs_base[0];
 
4599
        vs_top=sup;
 
4600
        goto T1279;
 
4601
        goto T1274;
 
4602
T1274:;
 
4603
        V574= Cnil;
 
4604
        goto T1275;
 
4605
T1275:;
 
4606
        V575= Cnil;
 
4607
        goto T1276;
 
4608
T1276:;
 
4609
        V576= Cnil;
 
4610
        goto T1277;
 
4611
T1277:;
 
4612
        V577= Cnil;
 
4613
        goto T1278;
 
4614
T1278:;
 
4615
        V578= Cnil;
 
4616
        goto T1279;
 
4617
T1279:;
 
4618
        {register object V579;
 
4619
        object V580;
 
4620
        object V581;
 
4621
        register object V582;
 
4622
        register object V583;
 
4623
        object V584;
 
4624
        object V585;
 
4625
        object V586;
 
4626
        V579= (V572);
 
4627
        V580= Cnil;
 
4628
        V581= Cnil;
 
4629
        V582= Cnil;
 
4630
        V583= Cnil;
 
4631
        V584= Cnil;
 
4632
        V585= Cnil;
 
4633
        V586= Cnil;
 
4634
        {register object V587;
 
4635
        object V588;
 
4636
        V587= (V576);
 
4637
        V588= CMPcar((V587));
 
4638
        goto T1292;
 
4639
T1292:;
 
4640
        if(!(((V587))==Cnil)){
 
4641
        goto T1293;}
 
4642
        goto T1288;
 
4643
        goto T1293;
 
4644
T1293:;
 
4645
        if(((V579))!=Cnil){
 
4646
        goto T1297;}
 
4647
        V581= Ct;
 
4648
        goto T1288;
 
4649
        goto T1297;
 
4650
T1297:;
 
4651
        {object V589;
 
4652
        register object V590;
 
4653
        register object V591;
 
4654
        object V592;
 
4655
        {object V593;
 
4656
        V593= CMPcar((V579));
 
4657
        V579= CMPcdr((V579));
 
4658
        V589= (V593);}
 
4659
        V590= Cnil;
 
4660
        V591= (VV[135]->s.s_dbind);
 
4661
        V592= Ct;
 
4662
        if(((V588))==(Ct)){
 
4663
        goto T1310;}
 
4664
        V590= (*(LnkLI267))((V589));
 
4665
        if(!((((((V590))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
 
4666
        goto T1315;}
 
4667
        V580= Ct;
 
4668
        V590= (*(LnkLI268))((V589));
 
4669
        goto T1315;
 
4670
T1315:;
 
4671
        if(((V582))!=Cnil){
 
4672
        goto T1323;}
 
4673
        V582= (V590);
 
4674
        goto T1321;
 
4675
        goto T1323;
 
4676
T1323:;
 
4677
        if(type_of((V582))==t_cons){
 
4678
        goto T1327;}
 
4679
        V583= make_cons((V590),Cnil);
 
4680
        V582= make_cons((V582),(V583));
 
4681
        goto T1321;
 
4682
        goto T1327;
 
4683
T1327:;
 
4684
        {object V594;
 
4685
        V594= make_cons((V590),Cnil);
 
4686
        (V583)->c.c_cdr = V594;
 
4687
        V583= (V594);}
 
4688
        goto T1321;
 
4689
T1321:;
 
4690
        V591= ((V590))->v.v_self[11];
 
4691
        V592= list(2,VV[146],(V591));
 
4692
        goto T1310;
 
4693
T1310:;
 
4694
        V584= make_cons(V590,(V584));
 
4695
        V586= make_cons(V591,(V586));
 
4696
        V585= make_cons(V592,(V585));}
 
4697
        V587= CMPcdr((V587));
 
4698
        V588= CMPcar((V587));
 
4699
        goto T1292;}
 
4700
        goto T1288;
 
4701
T1288:;
 
4702
        if(((V581))==Cnil){
 
4703
        goto T1350;}
 
4704
        base[3]= VV[147];
 
4705
        base[4]= (V571);
 
4706
        base[5]= CMPmake_fixnum((long)length((V576)));
 
4707
        vs_top=(vs_base=base+3)+3;
 
4708
        Lerror();
 
4709
        return;
 
4710
        goto T1350;
 
4711
T1350:;
 
4712
        {object V600;
 
4713
        object V601;
 
4714
        object V602;
 
4715
        V600= nreverse((V584));
 
4716
        V601= nreverse((V586));
 
4717
        {object V603;
 
4718
        object V604= (V601);
 
4719
        if(V604==Cnil){
 
4720
        V602= Cnil;
 
4721
        goto T1357;}
 
4722
        base[6]=V603=MMcons(Cnil,Cnil);
 
4723
        goto T1358;
 
4724
T1358:;
 
4725
        (V603->c.c_car)= list(2,VV[146],(V604->c.c_car));
 
4726
        if((V604=MMcdr(V604))==Cnil){
 
4727
        V602= base[6];
 
4728
        goto T1357;}
 
4729
        V603=MMcdr(V603)=MMcons(Cnil,Cnil);
 
4730
        goto T1358;}
 
4731
        goto T1357;
 
4732
T1357:;
 
4733
        {object V606;
 
4734
        object V607;
 
4735
        object V608;
 
4736
        object V609;
 
4737
        base[6]= (V571);
 
4738
        base[7]= (V578);
 
4739
        base[8]= (V600);
 
4740
        base[9]= (V601);
 
4741
        base[10]= (V602);
 
4742
        base[11]= (V573);
 
4743
        vs_top=(vs_base=base+6)+6;
 
4744
        (void) (*Lnk269)();
 
4745
        if(vs_base>=vs_top){vs_top=sup;goto T1367;}
 
4746
        V606= vs_base[0];
 
4747
        vs_base++;
 
4748
        if(vs_base>=vs_top){vs_top=sup;goto T1368;}
 
4749
        V607= vs_base[0];
 
4750
        vs_base++;
 
4751
        if(vs_base>=vs_top){vs_top=sup;goto T1369;}
 
4752
        V608= vs_base[0];
 
4753
        vs_base++;
 
4754
        if(vs_base>=vs_top){vs_top=sup;goto T1370;}
 
4755
        V609= vs_base[0];
 
4756
        vs_top=sup;
 
4757
        goto T1371;
 
4758
        goto T1367;
 
4759
T1367:;
 
4760
        V606= Cnil;
 
4761
        goto T1368;
 
4762
T1368:;
 
4763
        V607= Cnil;
 
4764
        goto T1369;
 
4765
T1369:;
 
4766
        V608= Cnil;
 
4767
        goto T1370;
 
4768
T1370:;
 
4769
        V609= Cnil;
 
4770
        goto T1371;
 
4771
T1371:;
 
4772
        base[6]= (V606);
 
4773
        base[7]= (V607);
 
4774
        base[8]= (V582);
 
4775
        base[9]= (V580);
 
4776
        base[10]= (V608);
 
4777
        base[11]= (V609);
 
4778
        vs_top=(vs_base=base+6)+6;
 
4779
        return;}}}}
 
4780
        }
 
4781
}
 
4782
/*      function definition for CACHE-MISS-VALUES-INTERNAL      */
 
4783
 
 
4784
static void L92()
 
4785
{register object *base=vs_base;
 
4786
        register object *sup=base+VM87; VC87
 
4787
        vs_check;
 
4788
        {register object V610;
 
4789
        object V611;
 
4790
        object V612;
 
4791
        object V613;
 
4792
        object V614;
 
4793
        object V615;
 
4794
        check_arg(6);
 
4795
        V610=(base[0]);
 
4796
        V611=(base[1]);
 
4797
        V612=(base[2]);
 
4798
        V613=(base[3]);
 
4799
        V614=(base[4]);
 
4800
        V615=(base[5]);
 
4801
        vs_top=sup;
 
4802
        goto TTL;
 
4803
TTL:;
 
4804
        {object V616;
 
4805
        object V617;
 
4806
        object V618;
 
4807
        V616= (((V615))==(VV[94])?Ct:Cnil);
 
4808
        if(!(((V615))==(VV[11]))){
 
4809
        goto T1380;}
 
4810
        V617= Ct;
 
4811
        goto T1379;
 
4812
        goto T1380;
 
4813
T1380:;
 
4814
        V617= (((V615))==(VV[94])?Ct:Cnil);
 
4815
        goto T1379;
 
4816
T1379:;
 
4817
        if(!(((V611))==Cnil)){
 
4818
        goto T1383;}
 
4819
        V618= Ct;
 
4820
        goto T1382;
 
4821
        goto T1383;
 
4822
T1383:;
 
4823
        V618= STREF(object,(V611),36);
 
4824
        goto T1382;
 
4825
T1382:;
 
4826
        {register object V619;
 
4827
        object V620;
 
4828
        if(((V618))==Cnil){
 
4829
        goto T1387;}
 
4830
        base[9]= (V610);
 
4831
        base[10]= (V614);
 
4832
        vs_top=(vs_base=base+9)+2;
 
4833
        (void) (*Lnk270)();
 
4834
        goto T1385;
 
4835
        goto T1387;
 
4836
T1387:;
 
4837
        base[9]= (V610);
 
4838
        base[10]= (V613);
 
4839
        vs_top=(vs_base=base+9)+2;
 
4840
        (void) (*Lnk271)(Lclptr271);
 
4841
        goto T1385;
 
4842
T1385:;
 
4843
        if(vs_base>=vs_top){vs_top=sup;goto T1393;}
 
4844
        V619= vs_base[0];
 
4845
        vs_base++;
 
4846
        if(vs_base>=vs_top){vs_top=sup;goto T1394;}
 
4847
        V620= vs_base[0];
 
4848
        vs_top=sup;
 
4849
        goto T1395;
 
4850
        goto T1393;
 
4851
T1393:;
 
4852
        V619= Cnil;
 
4853
        goto T1394;
 
4854
T1394:;
 
4855
        V620= Cnil;
 
4856
        goto T1395;
 
4857
T1395:;
 
4858
        {object V621;
 
4859
        if(((V618))!=Cnil){
 
4860
        goto T1397;}
 
4861
        if(((V620))==Cnil){
 
4862
        goto T1398;}
 
4863
        goto T1397;
 
4864
T1397:;
 
4865
        if((V617)==Cnil){
 
4866
        V622= Cnil;
 
4867
        goto T1402;}
 
4868
        V622= (V612);
 
4869
        goto T1402;
 
4870
T1402:;
 
4871
        V623= (VFUN_NARGS=6,(*(LnkLI233))((V610),(V619),(V614),Cnil,V622,(V620)));
 
4872
        if((V617)==Cnil){
 
4873
        V624= Cnil;
 
4874
        goto T1403;}
 
4875
        V624= (V612);
 
4876
        goto T1403;
 
4877
T1403:;
 
4878
        V621= (
 
4879
        V625 = /* INLINE-ARGS */V623,
 
4880
        (type_of(V625) == t_sfun ?(*((V625)->sfn.sfn_self)):
 
4881
        (fcall.argd=2,type_of(V625)==t_vfun) ?
 
4882
        (*((V625)->sfn.sfn_self)):
 
4883
        (fcall.fun=(V625),fcalln))(Cnil,V624));
 
4884
        goto T1396;
 
4885
        goto T1398;
 
4886
T1398:;
 
4887
        V621= (*(LnkLI272))((V610));
 
4888
        goto T1396;
 
4889
T1396:;
 
4890
        {object V626;
 
4891
        object V627;
 
4892
        if((V616)==Cnil){
 
4893
        base[9]= Cnil;
 
4894
        vs_top=(vs_base=base+9)+1;
 
4895
        goto T1404;}
 
4896
        if((V620)==Cnil){
 
4897
        base[9]= Cnil;
 
4898
        vs_top=(vs_base=base+9)+1;
 
4899
        goto T1404;}
 
4900
        if((V619)==Cnil){
 
4901
        base[9]= Cnil;
 
4902
        vs_top=(vs_base=base+9)+1;
 
4903
        goto T1404;}
 
4904
        base[9]= (V610);
 
4905
        base[10]= (V611);
 
4906
        base[11]= (V613);
 
4907
        base[12]= (V619);
 
4908
        vs_top=(vs_base=base+9)+4;
 
4909
        (void) (*Lnk273)();
 
4910
        goto T1404;
 
4911
T1404:;
 
4912
        if(vs_base>=vs_top){vs_top=sup;goto T1409;}
 
4913
        V626= vs_base[0];
 
4914
        vs_base++;
 
4915
        if(vs_base>=vs_top){vs_top=sup;goto T1410;}
 
4916
        V627= vs_base[0];
 
4917
        vs_top=sup;
 
4918
        goto T1411;
 
4919
        goto T1409;
 
4920
T1409:;
 
4921
        V626= Cnil;
 
4922
        goto T1410;
 
4923
T1410:;
 
4924
        V627= Cnil;
 
4925
        goto T1411;
 
4926
T1411:;
 
4927
        if(!(type_of((V626))==t_fixnum||type_of((V626))==t_bignum)){
 
4928
        goto T1414;}
 
4929
        base[9]= (V626);
 
4930
        goto T1412;
 
4931
        goto T1414;
 
4932
T1414:;
 
4933
        base[9]= (V621);
 
4934
        goto T1412;
 
4935
T1412:;
 
4936
        base[10]= (V619);
 
4937
        base[11]= (V627);
 
4938
        base[12]= (V626);
 
4939
        vs_top=(vs_base=base+9)+4;
 
4940
        return;}}}}
 
4941
        }
 
4942
}
 
4943
/*      function definition for ACCESSOR-VALUES */
 
4944
 
 
4945
static void L93()
 
4946
{register object *base=vs_base;
 
4947
        register object *sup=base+VM88; VC88
 
4948
        vs_check;
 
4949
        {object V628;
 
4950
        object V629;
 
4951
        object V630;
 
4952
        object V631;
 
4953
        check_arg(4);
 
4954
        V628=(base[0]);
 
4955
        V629=(base[1]);
 
4956
        V630=(base[2]);
 
4957
        V631=(base[3]);
 
4958
        vs_top=sup;
 
4959
        goto TTL;
 
4960
TTL:;
 
4961
        {object V632;
 
4962
        object V633;
 
4963
        V632= STREF(object,(V629),24);
 
4964
        {object V634= (V632);
 
4965
        if((V634!= VV[59]))goto T1421;
 
4966
        V633= CMPcar((V630));
 
4967
        goto T1420;
 
4968
        goto T1421;
 
4969
T1421:;
 
4970
        if((V634!= VV[133]))goto T1422;
 
4971
        V633= CMPcadr((V630));
 
4972
        goto T1420;
 
4973
        goto T1422;
 
4974
T1422:;
 
4975
        if((V634!= VV[274]))goto T1423;
 
4976
        V633= CMPcar((V630));
 
4977
        goto T1420;
 
4978
        goto T1423;
 
4979
T1423:;
 
4980
        V633= Cnil;}
 
4981
        goto T1420;
 
4982
T1420:;
 
4983
        base[6]= (V632);
 
4984
        base[7]= (V633);
 
4985
        base[8]= (V631);
 
4986
        vs_top=(vs_base=base+6)+3;
 
4987
        (void) (*Lnk275)();
 
4988
        return;}
 
4989
        }
 
4990
}
 
4991
/*      function definition for ACCESSOR-VALUES1        */
 
4992
 
 
4993
static void L94()
 
4994
{register object *base=vs_base;
 
4995
        register object *sup=base+VM89; VC89
 
4996
        vs_check;
 
4997
        {object V635;
 
4998
        object V636;
 
4999
        object V637;
 
5000
        check_arg(3);
 
5001
        V635=(base[0]);
 
5002
        V636=(base[1]);
 
5003
        V637=(base[2]);
 
5004
        vs_top=sup;
 
5005
        goto TTL;
 
5006
TTL:;
 
5007
        {object V638;
 
5008
        object V639;
 
5009
        object V640;
 
5010
        V638= list(2,VV[146],(V637));
 
5011
        if(!(((V636))==(VV[133]))){
 
5012
        goto T1430;}
 
5013
        V639= list(2,Ct,(V638));
 
5014
        goto T1428;
 
5015
        goto T1430;
 
5016
T1430:;
 
5017
        V639= make_cons((V638),Cnil);
 
5018
        goto T1428;
 
5019
T1428:;
 
5020
        base[6]= (V635);
 
5021
        base[7]= (V639);
 
5022
        vs_top=(vs_base=base+6)+2;
 
5023
        (void) (*Lnk270)();
 
5024
        vs_top=sup;
 
5025
        V640= vs_base[0];
 
5026
        base[6]= (V636);
 
5027
        base[7]= (V637);
 
5028
        base[8]= (V640);
 
5029
        vs_top=(vs_base=base+6)+3;
 
5030
        (void) (*Lnk275)();
 
5031
        return;}
 
5032
        }
 
5033
}
 
5034
/*      function definition for ACCESSOR-VALUES-INTERNAL        */
 
5035
 
 
5036
static void L95()
 
5037
{register object *base=vs_base;
 
5038
        register object *sup=base+VM90; VC90
 
5039
        vs_check;
 
5040
        {object V641;
 
5041
        object V642;
 
5042
        object V643;
 
5043
        check_arg(3);
 
5044
        V641=(base[0]);
 
5045
        V642=(base[1]);
 
5046
        V643=(base[2]);
 
5047
        vs_top=sup;
 
5048
        goto TTL;
 
5049
TTL:;
 
5050
        {register object V644;
 
5051
        register object V645;
 
5052
        V644= (V643);
 
5053
        V645= CMPcar((V644));
 
5054
        goto T1442;
 
5055
T1442:;
 
5056
        if(!(((V644))==Cnil)){
 
5057
        goto T1443;}
 
5058
        goto T1438;
 
5059
        goto T1443;
 
5060
T1443:;
 
5061
        if(!(type_of((V645))==t_cons)){
 
5062
        goto T1451;}
 
5063
        if(((*(LnkLI276))((V645)))==Cnil){
 
5064
        goto T1447;}
 
5065
        goto T1449;
 
5066
        goto T1451;
 
5067
T1451:;
 
5068
        base[4]= (V645);
 
5069
        vs_top=(vs_base=base+4)+1;
 
5070
        (void) (*Lnk277)(Lclptr277);
 
5071
        vs_top=sup;
 
5072
        if((vs_base[0])==Cnil){
 
5073
        goto T1447;}
 
5074
        goto T1449;
 
5075
T1449:;
 
5076
        base[4]= Cnil;
 
5077
        base[5]= Cnil;
 
5078
        vs_top=(vs_base=base+4)+2;
 
5079
        return;
 
5080
        goto T1447;
 
5081
T1447:;
 
5082
        V644= CMPcdr((V644));
 
5083
        V645= CMPcar((V644));
 
5084
        goto T1442;}
 
5085
        goto T1438;
 
5086
T1438:;
 
5087
        {object V646;
 
5088
        object V647;
 
5089
        register object V648;
 
5090
        object V649;
 
5091
        V646= CMPcar((V643));
 
5092
        V647= (((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil?Ct:Cnil);
 
5093
        if(((V642))==Cnil){
 
5094
        goto T1465;}
 
5095
        if(!(type_of((V646))==t_cons)){
 
5096
        goto T1468;}
 
5097
        if(((*(LnkLI278))((V646)))!=Cnil){
 
5098
        goto T1470;}
 
5099
        V648= Cnil;
 
5100
        goto T1463;
 
5101
        goto T1470;
 
5102
T1470:;
 
5103
        base[7]= (V646);
 
5104
        vs_top=(vs_base=base+7)+1;
 
5105
        (void) (*Lnk248)();
 
5106
        vs_top=sup;
 
5107
        V648= vs_base[0];
 
5108
        goto T1463;
 
5109
        goto T1468;
 
5110
T1468:;{object V651;
 
5111
        V651= (VV[148]->s.s_dbind);
 
5112
        if(((V647))==Cnil){
 
5113
        goto T1477;}
 
5114
        V652= (*(LnkLI279))((V642));
 
5115
        goto T1475;
 
5116
        goto T1477;
 
5117
T1477:;
 
5118
        base[7]= (V642);
 
5119
        vs_top=(vs_base=base+7)+1;
 
5120
        (void) (*Lnk280)(Lclptr280);
 
5121
        vs_top=sup;
 
5122
        V652= vs_base[0];
 
5123
        goto T1475;
 
5124
T1475:;
 
5125
        {register object x= V651,V650= V652;
 
5126
        while(V650!=Cnil)
 
5127
        if(eql(x,V650->c.c_car)){
 
5128
        goto T1473;
 
5129
        }else V650=V650->c.c_cdr;}}
 
5130
        V648= Cnil;
 
5131
        goto T1463;
 
5132
        goto T1473;
 
5133
T1473:;
 
5134
        if(((V647))==Cnil){
 
5135
        goto T1483;}{object V653;
 
5136
        V653= (VV[149]->s.s_dbind);
 
5137
        V654= (*(LnkLI281))((V646));
 
5138
        if((((V653)==(/* INLINE-ARGS */V654)?Ct:Cnil))==Cnil){
 
5139
        goto T1480;}
 
5140
        goto T1481;}
 
5141
        goto T1483;
 
5142
T1483:;
 
5143
        base[7]= (V646);
 
5144
        vs_top=(vs_base=base+7)+1;
 
5145
        (void) (*Lnk282)(Lclptr282);
 
5146
        vs_top=sup;
 
5147
        if((vs_base[0])!=Cnil){
 
5148
        goto T1480;}
 
5149
        goto T1481;
 
5150
T1481:;
 
5151
        V648= Cnil;
 
5152
        goto T1463;
 
5153
        goto T1480;
 
5154
T1480:;
 
5155
        if(((V647))==Cnil){
 
5156
        goto T1487;}
 
5157
        V648= (*(LnkLI283))((V646));
 
5158
        goto T1463;
 
5159
        goto T1487;
 
5160
T1487:;
 
5161
        base[7]= (V646);
 
5162
        vs_top=(vs_base=base+7)+1;
 
5163
        (void) (*Lnk284)(Lclptr284);
 
5164
        vs_top=sup;
 
5165
        V648= vs_base[0];
 
5166
        goto T1463;
 
5167
        goto T1465;
 
5168
T1465:;
 
5169
        V648= Cnil;
 
5170
        goto T1463;
 
5171
T1463:;
 
5172
        if((V642)==Cnil){
 
5173
        V649= Cnil;
 
5174
        goto T1490;}
 
5175
        if(((V647))==Cnil){
 
5176
        goto T1492;}
 
5177
        {register object V655;
 
5178
        register object V656;
 
5179
        V655= (*(LnkLI285))((V642));
 
5180
        V656= CMPcar((V655));
 
5181
        goto T1497;
 
5182
T1497:;
 
5183
        if(!(((V655))==Cnil)){
 
5184
        goto T1498;}
 
5185
        V649= Cnil;
 
5186
        goto T1490;
 
5187
        goto T1498;
 
5188
T1498:;
 
5189
        V657= (*(LnkLI286))((V656));
 
5190
        if(!(eql((V648),/* INLINE-ARGS */V657))){
 
5191
        goto T1502;}
 
5192
        V649= (V656);
 
5193
        goto T1490;
 
5194
        goto T1502;
 
5195
T1502:;
 
5196
        V655= CMPcdr((V655));
 
5197
        V656= CMPcar((V655));
 
5198
        goto T1497;}
 
5199
        goto T1492;
 
5200
T1492:;
 
5201
        V649= (*(LnkLI287))((V642),(V648));
 
5202
        goto T1490;
 
5203
T1490:;
 
5204
        if(((V649))==Cnil){
 
5205
        goto T1511;}
 
5206
        if(((V647))!=Cnil){
 
5207
        goto T1510;}
 
5208
        base[7]= (V649);
 
5209
        base[8]= (V641);
 
5210
        vs_top=(vs_base=base+7)+2;
 
5211
        (void) (*Lnk288)(Lclptr288);
 
5212
        vs_top=sup;
 
5213
        if((vs_base[0])==Cnil){
 
5214
        goto T1511;}
 
5215
        goto T1510;
 
5216
T1510:;
 
5217
        if(((V647))==Cnil){
 
5218
        goto T1521;}
 
5219
        base[7]= (*(LnkLI289))((V649));
 
5220
        goto T1519;
 
5221
        goto T1521;
 
5222
T1521:;
 
5223
        base[8]= (V649);
 
5224
        vs_top=(vs_base=base+8)+1;
 
5225
        (void) (*Lnk290)(Lclptr290);
 
5226
        vs_top=sup;
 
5227
        base[7]= vs_base[0];
 
5228
        goto T1519;
 
5229
T1519:;
 
5230
        base[8]= (V641);
 
5231
        vs_top=(vs_base=base+7)+2;
 
5232
        return;
 
5233
        goto T1511;
 
5234
T1511:;
 
5235
        base[7]= Cnil;
 
5236
        vs_top=(vs_base=base+7)+1;
 
5237
        return;}
 
5238
        }
 
5239
}
 
5240
/*      function definition for MAKE-ACCESSOR-TABLE     */
 
5241
 
 
5242
static void L96()
 
5243
{register object *VOL base=vs_base;
 
5244
        register object *VOL sup=base+VM91; VC91
 
5245
        vs_check;
 
5246
        {VOL object V658;
 
5247
        if(vs_top-vs_base<2) too_few_arguments();
 
5248
        if(vs_top-vs_base>3) too_many_arguments();
 
5249
        V658=(base[0]);
 
5250
        base[1]=MMcons(base[1],Cnil);
 
5251
        vs_base=vs_base+2;
 
5252
        if(vs_base>=vs_top){vs_top=sup;goto T1525;}
 
5253
        base[2]=MMcons(base[2],base[1]);
 
5254
        vs_top=sup;
 
5255
        goto T1526;
 
5256
        goto T1525;
 
5257
T1525:;
 
5258
        base[2]= Cnil;
 
5259
        base[2]=MMcons(base[2],base[1]);
 
5260
        goto T1526;
 
5261
T1526:;
 
5262
        base[3]=alloc_frame_id();
 
5263
        base[3]=MMcons(base[3],base[2]);
 
5264
        frs_push(FRS_CATCH,(base[3]->c.c_car));
 
5265
        if(nlj_active)
 
5266
        {nlj_active=FALSE;frs_pop();
 
5267
        return;}
 
5268
        else{
 
5269
        if(((base[2]->c.c_car))!=Cnil){
 
5270
        goto T1528;}
 
5271
        base[4]= VV[123];
 
5272
        base[5]= VV[129];
 
5273
        vs_top=(vs_base=base+4)+2;
 
5274
        Lmake_hash_table();
 
5275
        vs_top=sup;
 
5276
        (base[2]->c.c_car)= vs_base[0];
 
5277
        goto T1528;
 
5278
T1528:;
 
5279
        {object V659;
 
5280
        if(((*(LnkLI213))((V658)))==Cnil){
 
5281
        goto T1536;}
 
5282
        if(type_of(V658)==t_structure){
 
5283
        goto T1542;}
 
5284
        goto T1540;
 
5285
        goto T1542;
 
5286
T1542:;
 
5287
        if(!(((V658)->str.str_def)==(VV[150]))){
 
5288
        goto T1540;}
 
5289
        V660= STREF(object,(V658),4);
 
5290
        goto T1538;
 
5291
        goto T1540;
 
5292
T1540:;{object V662;
 
5293
        V662= (VV[73]->s.s_dbind);
 
5294
        base[10]= small_fixnum(14);
 
5295
        base[11]= (V658);
 
5296
        vs_top=(vs_base=base+10)+2;
 
5297
        (void) (*Lnk214)();
 
5298
        vs_top=sup;
 
5299
        V663= vs_base[0];
 
5300
        if(!((V662)==(CMPcar(V663)))){
 
5301
        goto T1545;}}
 
5302
        V660= CMPcar(((V658))->cc.cc_turbo[12]);
 
5303
        goto T1538;
 
5304
        goto T1545;
 
5305
T1545:;
 
5306
        base[10]= VV[74];
 
5307
        vs_top=(vs_base=base+10)+1;
 
5308
        Lerror();
 
5309
        vs_top=sup;
 
5310
        V660= vs_base[0];
 
5311
        goto T1538;
 
5312
T1538:;
 
5313
        V659= (V660)->v.v_self[fix((VV[75]->s.s_dbind))];
 
5314
        goto T1534;
 
5315
        goto T1536;
 
5316
T1536:;
 
5317
        base[10]= (V658);
 
5318
        vs_top=(vs_base=base+10)+1;
 
5319
        (void) (*Lnk216)(Lclptr216);
 
5320
        vs_top=sup;
 
5321
        V659= vs_base[0];
 
5322
        goto T1534;
 
5323
T1534:;
 
5324
        base[6]= (((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil?Ct:Cnil);
 
5325
        base[4]=MMcons(Cnil,base[3]);
 
5326
        base[5]=MMcons(Ct,base[4]);
 
5327
        base[6]=MMcons(base[6],base[5]);
 
5328
        base[7]=MMcons(Cnil,base[6]);
 
5329
        base[8]=MMcons(Cnil,base[7]);
 
5330
        base[9]=MMcons(small_fixnum(0),base[8]);
 
5331
        {register object V664;
 
5332
        register object V665;
 
5333
        V664= (V659);
 
5334
        V665= CMPcar((V664));
 
5335
        goto T1557;
 
5336
T1557:;
 
5337
        if(!(((V664))==Cnil)){
 
5338
        goto T1558;}
 
5339
        goto T1553;
 
5340
        goto T1558;
 
5341
T1558:;
 
5342
        {object V666;
 
5343
        register object V667;
 
5344
        object V668;
 
5345
        if(!(type_of((V665))==t_cons)){
 
5346
        goto T1565;}
 
5347
        V666= (VFUN_NARGS=2,(*(LnkLI291))((V665),Ct));
 
5348
        goto T1563;
 
5349
        goto T1565;
 
5350
T1565:;
 
5351
        base[16]= (V665);
 
5352
        vs_top=(vs_base=base+16)+1;
 
5353
        (void) (*Lnk259)(Lclptr259);
 
5354
        vs_top=sup;
 
5355
        V666= vs_base[0];
 
5356
        goto T1563;
 
5357
T1563:;
 
5358
        if(!(((base[1]->c.c_car))==(VV[59]))){
 
5359
        goto T1570;}
 
5360
        base[12]= CMPcar((V666));
 
5361
        goto T1568;
 
5362
        goto T1570;
 
5363
T1570:;
 
5364
        base[12]= CMPcadr((V666));
 
5365
        goto T1568;
 
5366
T1568:;
 
5367
        base[12]=MMcons(base[12],base[9]);
 
5368
        if(((base[6]->c.c_car))==Cnil){
 
5369
        goto T1574;}
 
5370
        V667= (*(LnkLI279))((base[12]->c.c_car));
 
5371
        goto T1572;
 
5372
        goto T1574;
 
5373
T1574:;
 
5374
        base[16]= (base[12]->c.c_car);
 
5375
        vs_top=(vs_base=base+16)+1;
 
5376
        (void) (*Lnk292)(Lclptr292);
 
5377
        vs_top=sup;
 
5378
        if((vs_base[0])!=Cnil){
 
5379
        goto T1576;}
 
5380
        V667= Cnil;
 
5381
        goto T1572;
 
5382
        goto T1576;
 
5383
T1576:;
 
5384
        base[16]= (base[12]->c.c_car);
 
5385
        vs_top=(vs_base=base+16)+1;
 
5386
        (void) (*Lnk280)(Lclptr280);
 
5387
        vs_top=sup;
 
5388
        V667= vs_base[0];
 
5389
        goto T1572;
 
5390
T1572:;
 
5391
        {register object x= (VV[148]->s.s_dbind),V669= (V667);
 
5392
        while(V669!=Cnil)
 
5393
        if(eql(x,V669->c.c_car)){
 
5394
        base[14]= V669;
 
5395
        goto T1580;
 
5396
        }else V669=V669->c.c_cdr;
 
5397
        base[14]= Cnil;}
 
5398
        goto T1580;
 
5399
T1580:;
 
5400
        base[14]=MMcons(base[14],base[12]);
 
5401
        if(!(type_of((V665))==t_cons)){
 
5402
        goto T1583;}
 
5403
        if(((*(LnkLI278))((V665)))!=Cnil){
 
5404
        goto T1585;}
 
5405
        V668= Cnil;
 
5406
        goto T1581;
 
5407
        goto T1585;
 
5408
T1585:;
 
5409
        base[16]= (V665);
 
5410
        vs_top=(vs_base=base+16)+1;
 
5411
        (void) (*Lnk248)();
 
5412
        vs_top=sup;
 
5413
        V668= vs_base[0];
 
5414
        goto T1581;
 
5415
        goto T1583;
 
5416
T1583:;
 
5417
        base[16]= (V665);
 
5418
        vs_top=(vs_base=base+16)+1;
 
5419
        (void) (*Lnk284)(Lclptr284);
 
5420
        vs_top=sup;
 
5421
        V668= vs_base[0];
 
5422
        goto T1581;
 
5423
T1581:;
 
5424
        if(((V667))==Cnil){
 
5425
        goto T1590;}
 
5426
        {register object x= (VV[151]->s.s_dbind),V670= (V667);
 
5427
        while(V670!=Cnil)
 
5428
        if(eql(x,V670->c.c_car)){
 
5429
        goto T1593;
 
5430
        }else V670=V670->c.c_cdr;
 
5431
        goto T1589;}
 
5432
        goto T1593;
 
5433
T1593:;
 
5434
        goto T1590;
 
5435
T1590:;
 
5436
        frs_pop();
 
5437
        base[16]= Cnil;
 
5438
        vs_top=(vs_base=base+16)+1;
 
5439
        return;
 
5440
        goto T1589;
 
5441
T1589:;
 
5442
        base[16]= 
 
5443
        make_cclosure_new(LC162,Cnil,base[14],Cdata);
 
5444
        base[18]= (V668);
 
5445
        base[19]= (VV[152]->s.s_dbind);
 
5446
        vs_top=(vs_base=base+18)+2;
 
5447
        Lgethash();
 
5448
        vs_top=sup;
 
5449
        base[17]= vs_base[0];
 
5450
        vs_top=(vs_base=base+16)+2;
 
5451
        Lmaphash();
 
5452
        vs_top=sup;}
 
5453
        V664= CMPcdr((V664));
 
5454
        V665= CMPcar((V664));
 
5455
        goto T1557;}
 
5456
        goto T1553;
 
5457
T1553:;
 
5458
        base[10]= 
 
5459
        make_cclosure_new(LC163,Cnil,base[9],Cdata);
 
5460
        base[11]= (base[2]->c.c_car);
 
5461
        vs_top=(vs_base=base+10)+2;
 
5462
        Lmaphash();
 
5463
        vs_top=sup;
 
5464
        base[10]= (base[2]->c.c_car);
 
5465
        base[11]= (base[4]->c.c_car);
 
5466
        base[12]= (base[7]->c.c_car);
 
5467
        base[13]= (base[8]->c.c_car);
 
5468
        base[14]= (base[9]->c.c_car);
 
5469
        base[15]= (base[5]->c.c_car);
 
5470
        vs_top=(vs_base=base+10)+6;
 
5471
        frs_pop();
 
5472
        return;}
 
5473
        }
 
5474
        }
 
5475
}
 
5476
/*      function definition for COMPUTE-APPLICABLE-METHODS-USING-TYPES  */
 
5477
 
 
5478
static void L97()
 
5479
{register object *base=vs_base;
 
5480
        register object *sup=base+VM92; VC92
 
5481
        vs_check;
 
5482
        {object V671;
 
5483
        object V672;
 
5484
        check_arg(2);
 
5485
        V671=(base[0]);
 
5486
        V672=(base[1]);
 
5487
        vs_top=sup;
 
5488
        goto TTL;
 
5489
TTL:;
 
5490
        {object V673;
 
5491
        object V674;
 
5492
        V673= Ct;
 
5493
        V674= Cnil;
 
5494
        {register object V675;
 
5495
        register object V676;
 
5496
        if(((*(LnkLI213))((V671)))==Cnil){
 
5497
        goto T1615;}
 
5498
        if(type_of(V671)==t_structure){
 
5499
        goto T1621;}
 
5500
        goto T1619;
 
5501
        goto T1621;
 
5502
T1621:;
 
5503
        if(!(((V671)->str.str_def)==(VV[154]))){
 
5504
        goto T1619;}
 
5505
        V677= STREF(object,(V671),4);
 
5506
        goto T1617;
 
5507
        goto T1619;
 
5508
T1619:;{object V679;
 
5509
        V679= (VV[73]->s.s_dbind);
 
5510
        base[4]= small_fixnum(14);
 
5511
        base[5]= (V671);
 
5512
        vs_top=(vs_base=base+4)+2;
 
5513
        (void) (*Lnk214)();
 
5514
        vs_top=sup;
 
5515
        V680= vs_base[0];
 
5516
        if(!((V679)==(CMPcar(V680)))){
 
5517
        goto T1624;}}
 
5518
        V677= CMPcar(((V671))->cc.cc_turbo[12]);
 
5519
        goto T1617;
 
5520
        goto T1624;
 
5521
T1624:;
 
5522
        base[4]= VV[74];
 
5523
        vs_top=(vs_base=base+4)+1;
 
5524
        Lerror();
 
5525
        vs_top=sup;
 
5526
        V677= vs_base[0];
 
5527
        goto T1617;
 
5528
T1617:;
 
5529
        V675= (V677)->v.v_self[fix((VV[75]->s.s_dbind))];
 
5530
        goto T1613;
 
5531
        goto T1615;
 
5532
T1615:;
 
5533
        base[4]= (V671);
 
5534
        vs_top=(vs_base=base+4)+1;
 
5535
        (void) (*Lnk216)(Lclptr216);
 
5536
        vs_top=sup;
 
5537
        V675= vs_base[0];
 
5538
        goto T1613;
 
5539
T1613:;
 
5540
        V676= CMPcar((V675));
 
5541
        goto T1633;
 
5542
T1633:;
 
5543
        if(!(((V675))==Cnil)){
 
5544
        goto T1634;}
 
5545
        goto T1612;
 
5546
        goto T1634;
 
5547
T1634:;
 
5548
        {object V681;
 
5549
        register object V682;
 
5550
        register object V683;
 
5551
        register object V684;
 
5552
        if(!(type_of((V676))==t_cons)){
 
5553
        goto T1641;}
 
5554
        V681= (VFUN_NARGS=2,(*(LnkLI291))((V676),Ct));
 
5555
        goto T1639;
 
5556
        goto T1641;
 
5557
T1641:;
 
5558
        base[4]= (V676);
 
5559
        vs_top=(vs_base=base+4)+1;
 
5560
        (void) (*Lnk259)(Lclptr259);
 
5561
        vs_top=sup;
 
5562
        V681= vs_base[0];
 
5563
        goto T1639;
 
5564
T1639:;
 
5565
        V682= (V672);
 
5566
        V683= Ct;
 
5567
        V684= Ct;
 
5568
        {register object V685;
 
5569
        register object V686;
 
5570
        V685= (V681);
 
5571
        V686= CMPcar((V685));
 
5572
        goto T1648;
 
5573
T1648:;
 
5574
        if(!(((V685))==Cnil)){
 
5575
        goto T1649;}
 
5576
        goto T1644;
 
5577
        goto T1649;
 
5578
T1649:;
 
5579
        {object V687;
 
5580
        object V688;
 
5581
        base[5]= (V686);
 
5582
        {object V689;
 
5583
        V689= CMPcar((V682));
 
5584
        V682= CMPcdr((V682));
 
5585
        base[6]= (V689);}
 
5586
        vs_top=(vs_base=base+5)+2;
 
5587
        (void) (*Lnk162)();
 
5588
        if(vs_base>=vs_top){vs_top=sup;goto T1660;}
 
5589
        V687= vs_base[0];
 
5590
        vs_base++;
 
5591
        if(vs_base>=vs_top){vs_top=sup;goto T1661;}
 
5592
        V688= vs_base[0];
 
5593
        vs_top=sup;
 
5594
        goto T1662;
 
5595
        goto T1660;
 
5596
T1660:;
 
5597
        V687= Cnil;
 
5598
        goto T1661;
 
5599
T1661:;
 
5600
        V688= Cnil;
 
5601
        goto T1662;
 
5602
T1662:;
 
5603
        if(((V687))!=Cnil){
 
5604
        goto T1663;}
 
5605
        V684= Cnil;
 
5606
        goto T1663;
 
5607
T1663:;
 
5608
        if(((V688))!=Cnil){
 
5609
        goto T1653;}
 
5610
        V683= Cnil;
 
5611
        goto T1644;}
 
5612
        goto T1653;
 
5613
T1653:;
 
5614
        V685= CMPcdr((V685));
 
5615
        V686= CMPcar((V685));
 
5616
        goto T1648;}
 
5617
        goto T1644;
 
5618
T1644:;
 
5619
        if(((V683))==Cnil){
 
5620
        goto T1638;}
 
5621
        if(((V684))!=Cnil){
 
5622
        goto T1678;}
 
5623
        V673= Cnil;
 
5624
        goto T1678;
 
5625
T1678:;
 
5626
        V674= make_cons(V676,(V674));}
 
5627
        goto T1638;
 
5628
T1638:;
 
5629
        V675= CMPcdr((V675));
 
5630
        V676= CMPcar((V675));
 
5631
        goto T1633;}
 
5632
        goto T1612;
 
5633
T1612:;
 
5634
        {object V691;
 
5635
        if(((*(LnkLI213))((V671)))==Cnil){
 
5636
        goto T1691;}
 
5637
        if(type_of(V671)==t_structure){
 
5638
        goto T1697;}
 
5639
        goto T1695;
 
5640
        goto T1697;
 
5641
T1697:;
 
5642
        if(!(((V671)->str.str_def)==(VV[155]))){
 
5643
        goto T1695;}
 
5644
        V693= STREF(object,(V671),4);
 
5645
        goto T1693;
 
5646
        goto T1695;
 
5647
T1695:;{object V695;
 
5648
        V695= (VV[73]->s.s_dbind);
 
5649
        base[2]= small_fixnum(14);
 
5650
        base[3]= (V671);
 
5651
        vs_top=(vs_base=base+2)+2;
 
5652
        (void) (*Lnk214)();
 
5653
        vs_top=sup;
 
5654
        V696= vs_base[0];
 
5655
        if(!((V695)==(CMPcar(V696)))){
 
5656
        goto T1700;}}
 
5657
        V693= CMPcar(((V671))->cc.cc_turbo[12]);
 
5658
        goto T1693;
 
5659
        goto T1700;
 
5660
T1700:;
 
5661
        base[2]= VV[74];
 
5662
        vs_top=(vs_base=base+2)+1;
 
5663
        Lerror();
 
5664
        vs_top=sup;
 
5665
        V693= vs_base[0];
 
5666
        goto T1693;
 
5667
T1693:;
 
5668
        V692= (V693)->v.v_self[fix((VV[105]->s.s_dbind))];
 
5669
        goto T1689;
 
5670
        goto T1691;
 
5671
T1691:;
 
5672
        base[2]= (V671);
 
5673
        vs_top=(vs_base=base+2)+1;
 
5674
        (void) (*Lnk177)(Lclptr177);
 
5675
        vs_top=sup;
 
5676
        V692= vs_base[0];
 
5677
        goto T1689;
 
5678
T1689:;
 
5679
        V691= STREF(object,V692,4);
 
5680
        V697= nreverse((V674));
 
5681
        base[2]= (*(LnkLI293))((V691),/* INLINE-ARGS */V697,(V672));
 
5682
        base[3]= (V673);
 
5683
        vs_top=(vs_base=base+2)+2;
 
5684
        return;}}
 
5685
        }
 
5686
}
 
5687
/*      local entry for function SORT-APPLICABLE-METHODS        */
 
5688
 
 
5689
static object LI99(V701,V702,V703)
 
5690
 
 
5691
object V701;object V702;object V703;
 
5692
{        VMB93 VMS93 VMV93
 
5693
        goto TTL;
 
5694
TTL:;
 
5695
        base[0]=MMcons((V703),Cnil);
 
5696
        V704= 
 
5697
        make_cclosure_new(LC164,Cnil,base[0],Cdata);
 
5698
        {object V705 = (*(LnkLI294))((V702),(V701),V704);
 
5699
        VMR93(V705)}
 
5700
        base[0]=base[0];
 
5701
        return Cnil;
 
5702
}
 
5703
/*      local entry for function SORT-METHODS   */
 
5704
 
 
5705
static object LI102(V709,V710,V711)
 
5706
 
 
5707
object V709;object V710;object V711;
 
5708
{        VMB94 VMS94 VMV94
 
5709
        goto TTL;
 
5710
TTL:;
 
5711
        base[0]=MMcons((V711),Cnil);
 
5712
        base[1]=MMcons((V710),base[0]);
 
5713
        base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata);
 
5714
        base[2]=MMcons(base[2],base[1]);
 
5715
        base[3]= (V709);
 
5716
        base[4]= (base[2]->c.c_car);
 
5717
        vs_top=(vs_base=base+3)+2;
 
5718
        (void) (*Lnk295)();
 
5719
        vs_top=sup;
 
5720
        {object V712 = vs_base[0];
 
5721
        VMR94(V712)}
 
5722
        base[0]=base[0];
 
5723
        return Cnil;
 
5724
}
 
5725
/*      function definition for ORDER-SPECIALIZERS      */
 
5726
 
 
5727
static void L104()
 
5728
{register object *base=vs_base;
 
5729
        register object *sup=base+VM95; VC95
 
5730
        vs_check;
 
5731
        {register object V713;
 
5732
        register object V714;
 
5733
        object V715;
 
5734
        object V716;
 
5735
        check_arg(4);
 
5736
        V713=(base[0]);
 
5737
        V714=(base[1]);
 
5738
        V715=(base[2]);
 
5739
        V716=(base[3]);
 
5740
        vs_top=sup;
 
5741
        goto TTL;
 
5742
TTL:;
 
5743
        {object V717;
 
5744
        register object V718;
 
5745
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
5746
        goto T1714;}
 
5747
        base[4]= (V713);
 
5748
        vs_top=(vs_base=base+4)+1;
 
5749
        (void) (*Lnk296)(Lclptr296);
 
5750
        vs_top=sup;
 
5751
        V717= vs_base[0];
 
5752
        goto T1712;
 
5753
        goto T1714;
 
5754
T1714:;
 
5755
        if(type_of(V713)==t_structure){
 
5756
        goto T1721;}
 
5757
        goto T1719;
 
5758
        goto T1721;
 
5759
T1721:;
 
5760
        if(!(((V713)->str.str_def)==(VV[156]))){
 
5761
        goto T1719;}
 
5762
        V719= STREF(object,(V713),4);
 
5763
        goto T1717;
 
5764
        goto T1719;
 
5765
T1719:;{object V721;
 
5766
        V721= (VV[73]->s.s_dbind);
 
5767
        base[4]= small_fixnum(14);
 
5768
        base[5]= (V713);
 
5769
        vs_top=(vs_base=base+4)+2;
 
5770
        (void) (*Lnk214)();
 
5771
        vs_top=sup;
 
5772
        V722= vs_base[0];
 
5773
        if(!((V721)==(CMPcar(V722)))){
 
5774
        goto T1724;}}
 
5775
        V719= CMPcar(((V713))->cc.cc_turbo[12]);
 
5776
        goto T1717;
 
5777
        goto T1724;
 
5778
T1724:;
 
5779
        base[4]= VV[74];
 
5780
        vs_top=(vs_base=base+4)+1;
 
5781
        Lerror();
 
5782
        vs_top=sup;
 
5783
        V719= vs_base[0];
 
5784
        goto T1717;
 
5785
T1717:;
 
5786
        V723= (*(LnkLI297))(VV[157],VV[158]);
 
5787
        V717= (V719)->v.v_self[fix(/* INLINE-ARGS */V723)];
 
5788
        goto T1712;
 
5789
T1712:;
 
5790
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
5791
        goto T1732;}
 
5792
        base[4]= (V714);
 
5793
        vs_top=(vs_base=base+4)+1;
 
5794
        (void) (*Lnk296)(Lclptr296);
 
5795
        vs_top=sup;
 
5796
        V718= vs_base[0];
 
5797
        goto T1730;
 
5798
        goto T1732;
 
5799
T1732:;
 
5800
        if(type_of(V714)==t_structure){
 
5801
        goto T1739;}
 
5802
        goto T1737;
 
5803
        goto T1739;
 
5804
T1739:;
 
5805
        if(!(((V714)->str.str_def)==(VV[159]))){
 
5806
        goto T1737;}
 
5807
        V724= STREF(object,(V714),4);
 
5808
        goto T1735;
 
5809
        goto T1737;
 
5810
T1737:;{object V726;
 
5811
        V726= (VV[73]->s.s_dbind);
 
5812
        base[4]= small_fixnum(14);
 
5813
        base[5]= (V714);
 
5814
        vs_top=(vs_base=base+4)+2;
 
5815
        (void) (*Lnk214)();
 
5816
        vs_top=sup;
 
5817
        V727= vs_base[0];
 
5818
        if(!((V726)==(CMPcar(V727)))){
 
5819
        goto T1742;}}
 
5820
        V724= CMPcar(((V714))->cc.cc_turbo[12]);
 
5821
        goto T1735;
 
5822
        goto T1742;
 
5823
T1742:;
 
5824
        base[4]= VV[74];
 
5825
        vs_top=(vs_base=base+4)+1;
 
5826
        Lerror();
 
5827
        vs_top=sup;
 
5828
        V724= vs_base[0];
 
5829
        goto T1735;
 
5830
T1735:;
 
5831
        V728= (*(LnkLI297))(VV[157],VV[158]);
 
5832
        V718= (V724)->v.v_self[fix(/* INLINE-ARGS */V728)];
 
5833
        goto T1730;
 
5834
T1730:;
 
5835
        if(!(((V713))==((V714)))){
 
5836
        goto T1749;}
 
5837
        base[4]= Cnil;
 
5838
        vs_top=(vs_base=base+4)+1;
 
5839
        return;
 
5840
        goto T1749;
 
5841
T1749:;
 
5842
        if(!(type_of((V717))!=t_cons)){
 
5843
        goto T1752;}
 
5844
        base[4]= (V714);
 
5845
        vs_top=(vs_base=base+4)+1;
 
5846
        return;
 
5847
        goto T1752;
 
5848
T1752:;
 
5849
        if(!(type_of((V718))!=t_cons)){
 
5850
        goto T1755;}
 
5851
        base[4]= (V713);
 
5852
        vs_top=(vs_base=base+4)+1;
 
5853
        return;
 
5854
        goto T1755;
 
5855
T1755:;
 
5856
        {object V729= CMPcar((V717));
 
5857
        if((V729!= VV[8]))goto T1757;
 
5858
        {object V730= CMPcar((V718));
 
5859
        if((V730!= VV[8]))goto T1758;
 
5860
        base[4]= (V713);
 
5861
        base[5]= (V714);
 
5862
        base[6]= (V715);
 
5863
        vs_top=(vs_base=base+4)+3;
 
5864
        {object _funobj = (V716);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
5865
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
5866
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
5867
               else super_funcall_no_event(_funobj);}
 
5868
        return;
 
5869
        goto T1758;
 
5870
T1758:;
 
5871
        base[4]= (V714);
 
5872
        vs_top=(vs_base=base+4)+1;
 
5873
        return;}
 
5874
        goto T1757;
 
5875
T1757:;
 
5876
        if((V729!= VV[298]))goto T1762;
 
5877
        {object V731= CMPcar((V718));
 
5878
        if((V731!= VV[8]))goto T1763;
 
5879
        base[4]= (V713);
 
5880
        base[5]= (V714);
 
5881
        base[6]= (V715);
 
5882
        vs_top=(vs_base=base+4)+3;
 
5883
        {object _funobj = (V716);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
5884
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
5885
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
5886
               else super_funcall_no_event(_funobj);}
 
5887
        return;
 
5888
        goto T1763;
 
5889
T1763:;
 
5890
        base[4]= (V714);
 
5891
        vs_top=(vs_base=base+4)+1;
 
5892
        return;}
 
5893
        goto T1762;
 
5894
T1762:;
 
5895
        if((V729!= VV[146]))goto T1767;
 
5896
        {object V732= CMPcar((V718));
 
5897
        if((V732!= VV[163]))goto T1768;
 
5898
        base[4]= (V714);
 
5899
        vs_top=(vs_base=base+4)+1;
 
5900
        return;
 
5901
        goto T1768;
 
5902
T1768:;
 
5903
        if((V732!= VV[146]))goto T1769;
 
5904
        base[4]= Cnil;
 
5905
        vs_top=(vs_base=base+4)+1;
 
5906
        return;
 
5907
        goto T1769;
 
5908
T1769:;
 
5909
        if((V732!= VV[8]))goto T1770;
 
5910
        base[4]= (V717);
 
5911
        vs_top=(vs_base=base+4)+1;
 
5912
        return;
 
5913
        goto T1770;
 
5914
T1770:;
 
5915
        base[4]= Cnil;
 
5916
        vs_top=(vs_base=base+4)+1;
 
5917
        return;}
 
5918
        goto T1767;
 
5919
T1767:;
 
5920
        if((V729!= VV[163]))goto T1771;
 
5921
        {object V733= CMPcar((V718));
 
5922
        if((V733!= VV[163]))goto T1772;
 
5923
        base[4]= Cnil;
 
5924
        vs_top=(vs_base=base+4)+1;
 
5925
        return;
 
5926
        goto T1772;
 
5927
T1772:;
 
5928
        base[4]= (V713);
 
5929
        vs_top=(vs_base=base+4)+1;
 
5930
        return;}
 
5931
        goto T1771;
 
5932
T1771:;
 
5933
        base[4]= Cnil;
 
5934
        vs_top=(vs_base=base+4)+1;
 
5935
        return;}}
 
5936
        }
 
5937
}
 
5938
/*      local entry for function MAP-ALL-ORDERS */
 
5939
 
 
5940
static object LI105(V737,V738,V739)
 
5941
 
 
5942
object V737;object V738;object V739;
 
5943
{        VMB96 VMS96 VMV96
 
5944
        goto TTL;
 
5945
TTL:;
 
5946
        base[0]=MMcons(Cnil,Cnil);
 
5947
        base[1]=make_cclosure_new(LC106,Cnil,base[0],Cdata);
 
5948
        base[1]=MMcons(base[1],base[0]);
 
5949
        goto T1774;
 
5950
T1774:;
 
5951
        V740= (base[1]->c.c_car);
 
5952
        V741= (*(LnkLI294))((V737),(V738),V740);
 
5953
        (void)((
 
5954
        (type_of((V739)) == t_sfun ?(*(((V739))->sfn.sfn_self)):
 
5955
        (fcall.argd=1,type_of((V739))==t_vfun) ?
 
5956
        (*(((V739))->sfn.sfn_self)):
 
5957
        (fcall.fun=((V739)),fcalln))(/* INLINE-ARGS */V741)));
 
5958
        {register object V742;
 
5959
        register object V743;
 
5960
        V742= (base[0]->c.c_car);
 
5961
        V743= CMPcar((V742));
 
5962
        goto T1783;
 
5963
T1783:;
 
5964
        if(!(((V742))==Cnil)){
 
5965
        goto T1784;}
 
5966
        goto T1779;
 
5967
        goto T1784;
 
5968
T1784:;
 
5969
        if((CMPcaddr((V743)))!=Cnil){
 
5970
        goto T1788;}
 
5971
        {register object V744;
 
5972
        register object V745;
 
5973
        register object V746;
 
5974
        register object V747;
 
5975
        V744= (V743);
 
5976
        V745= (V743);
 
5977
        V746= CMPcadr((V745));
 
5978
        V747= CMPcar((V744));
 
5979
        ((V744))->c.c_car = (V746);
 
5980
        (CMPcdr((V745)))->c.c_car = (V747);
 
5981
        (void)(CMPcdr((V745)));}
 
5982
        {register object V749;
 
5983
        V749= Ct;
 
5984
        (CMPcddr(V743))->c.c_car = (V749);
 
5985
        (void)(CMPcddr(V743));
 
5986
        if(((V749))!=Cnil){
 
5987
        goto T1775;}
 
5988
        goto T1779;}
 
5989
        goto T1788;
 
5990
T1788:;
 
5991
        V742= CMPcdr((V742));
 
5992
        V743= CMPcar((V742));
 
5993
        goto T1783;}
 
5994
        goto T1779;
 
5995
T1779:;
 
5996
        {object V750 = Cnil;
 
5997
        VMR96(V750)}
 
5998
        goto T1775;
 
5999
T1775:;
 
6000
        goto T1774;
 
6001
        base[0]=base[0];
 
6002
        return Cnil;
 
6003
}
 
6004
/*      local entry for function CLASS-MIGHT-PRECEDE-P  */
 
6005
 
 
6006
static object LI107(V753,V754)
 
6007
 
 
6008
object V753;object V754;
 
6009
{        VMB97 VMS97 VMV97
 
6010
        goto TTL;
 
6011
TTL:;
 
6012
        if(((VV[160]->s.s_dbind))!=Cnil){
 
6013
        goto T1809;}
 
6014
        base[0]= (V754);
 
6015
        vs_top=(vs_base=base+0)+1;
 
6016
        (void) (*Lnk280)(Lclptr280);
 
6017
        vs_top=sup;
 
6018
        V757= vs_base[0];
 
6019
        {register object x= (V753),V756= CMPcdr(V757);
 
6020
        while(V756!=Cnil)
 
6021
        if(eql(x,V756->c.c_car)){
 
6022
        V755= V756;
 
6023
        goto T1811;
 
6024
        }else V756=V756->c.c_cdr;
 
6025
        V755= Cnil;}
 
6026
        goto T1811;
 
6027
T1811:;
 
6028
        {object V758 = ((V755)==Cnil?Ct:Cnil);
 
6029
        VMR97(V758)}
 
6030
        goto T1809;
 
6031
T1809:;
 
6032
        {object V759 = (*(LnkLI299))((V753),(V754));
 
6033
        VMR97(V759)}
 
6034
        base[0]=base[0];
 
6035
        return Cnil;
 
6036
}
 
6037
/*      local entry for function COMPUTE-PRECEDENCE     */
 
6038
 
 
6039
static object LI108(V763,V764,V765)
 
6040
 
 
6041
object V763;register object V764;object V765;
 
6042
{        VMB98 VMS98 VMV98
 
6043
        goto TTL;
 
6044
TTL:;
 
6045
        if(((V765))!=Cnil){
 
6046
        goto T1815;}
 
6047
        {register object V766;
 
6048
        V766= Cnil;
 
6049
        {register long V767;
 
6050
        register long V768;
 
6051
        V767= fix((V764));
 
6052
        V768= 0;
 
6053
        goto T1820;
 
6054
T1820:;
 
6055
        if(!((V768)>=(V767))){
 
6056
        goto T1821;}
 
6057
        {object V769 = (V766);
 
6058
        VMR98(V769)}
 
6059
        goto T1821;
 
6060
T1821:;
 
6061
        {register object V770;
 
6062
        V771= one_minus((V764));
 
6063
        V772 = CMPmake_fixnum(V768);
 
6064
        V770= number_minus(/* INLINE-ARGS */V771,V772);
 
6065
        V766= make_cons((V770),(V766));}
 
6066
        V768= (long)(V768)+1;
 
6067
        goto T1820;}}
 
6068
        goto T1815;
 
6069
T1815:;
 
6070
        {object V773;
 
6071
        object V774= (V765);
 
6072
        if(V774==Cnil){
 
6073
        {object V775 = Cnil;
 
6074
        VMR98(V775)}}
 
6075
        base[0]=V773=MMcons(Cnil,Cnil);
 
6076
        goto T1830;
 
6077
T1830:;
 
6078
        base[1]= (V774->c.c_car);
 
6079
        base[2]= (V763);
 
6080
        vs_top=(vs_base=base+1)+2;
 
6081
        (void) (*Lnk300)();
 
6082
        vs_top=sup;
 
6083
        (V773->c.c_car)= vs_base[0];
 
6084
        if((V774=MMcdr(V774))==Cnil){
 
6085
        {object V777 = base[0];
 
6086
        VMR98(V777)}}
 
6087
        V773=MMcdr(V773)=MMcons(Cnil,Cnil);
 
6088
        goto T1830;}
 
6089
        base[0]=base[0];
 
6090
        return Cnil;
 
6091
}
 
6092
/*      function definition for SAUT-AND        */
 
6093
 
 
6094
static void L109()
 
6095
{register object *base=vs_base;
 
6096
        register object *sup=base+VM99; VC99
 
6097
        vs_check;
 
6098
        {object V778;
 
6099
        object V779;
 
6100
        check_arg(2);
 
6101
        V778=(base[0]);
 
6102
        V779=(base[1]);
 
6103
        vs_top=sup;
 
6104
        goto TTL;
 
6105
TTL:;
 
6106
        {register object V780;
 
6107
        register object V781;
 
6108
        V780= Cnil;
 
6109
        V781= Ct;
 
6110
        {register object V782;
 
6111
        register object V783;
 
6112
        V782= CMPcdr((V779));
 
6113
        V783= CMPcar((V782));
 
6114
        goto T1838;
 
6115
T1838:;
 
6116
        if(!(((V782))==Cnil)){
 
6117
        goto T1839;}
 
6118
        goto T1834;
 
6119
        goto T1839;
 
6120
T1839:;
 
6121
        {register object V784;
 
6122
        register object V785;
 
6123
        base[4]= (V778);
 
6124
        base[5]= (V783);
 
6125
        vs_top=(vs_base=base+4)+2;
 
6126
        (void) (*Lnk162)();
 
6127
        if(vs_base>=vs_top){vs_top=sup;goto T1847;}
 
6128
        V784= vs_base[0];
 
6129
        vs_base++;
 
6130
        if(vs_base>=vs_top){vs_top=sup;goto T1848;}
 
6131
        V785= vs_base[0];
 
6132
        vs_top=sup;
 
6133
        goto T1849;
 
6134
        goto T1847;
 
6135
T1847:;
 
6136
        V784= Cnil;
 
6137
        goto T1848;
 
6138
T1848:;
 
6139
        V785= Cnil;
 
6140
        goto T1849;
 
6141
T1849:;
 
6142
        if(((V784))==Cnil){
 
6143
        goto T1850;}
 
6144
        V780= Ct;
 
6145
        goto T1834;
 
6146
        goto T1850;
 
6147
T1850:;
 
6148
        if(((V785))!=Cnil){
 
6149
        goto T1843;}
 
6150
        V781= Cnil;
 
6151
        goto T1834;}
 
6152
        goto T1843;
 
6153
T1843:;
 
6154
        V782= CMPcdr((V782));
 
6155
        V783= CMPcar((V782));
 
6156
        goto T1838;}
 
6157
        goto T1834;
 
6158
T1834:;
 
6159
        base[2]= (V780);
 
6160
        base[3]= (V781);
 
6161
        vs_top=(vs_base=base+2)+2;
 
6162
        return;}
 
6163
        }
 
6164
}
 
6165
/*      function definition for SAUT-NOT        */
 
6166
 
 
6167
static void L110()
 
6168
{register object *base=vs_base;
 
6169
        register object *sup=base+VM100; VC100
 
6170
        vs_check;
 
6171
        {register object V786;
 
6172
        object V787;
 
6173
        check_arg(2);
 
6174
        V786=(base[0]);
 
6175
        V787=(base[1]);
 
6176
        vs_top=sup;
 
6177
        goto TTL;
 
6178
TTL:;
 
6179
        {register object V788;
 
6180
        V788= CMPcadr((V787));
 
6181
        base[2]= Cnil;
 
6182
        {object V789= CMPcar((V788));
 
6183
        if((V789!= VV[8]))goto T1867;
 
6184
        base[3]= (*(LnkLI301))((V786),(V788));
 
6185
        goto T1866;
 
6186
        goto T1867;
 
6187
T1867:;
 
6188
        if((V789!= VV[146]))goto T1868;
 
6189
        base[3]= (*(LnkLI302))((V786),(V788));
 
6190
        goto T1866;
 
6191
        goto T1868;
 
6192
T1868:;
 
6193
        if((V789!= VV[298]))goto T1869;
 
6194
        base[3]= (*(LnkLI303))((V786),(V788));
 
6195
        goto T1866;
 
6196
        goto T1869;
 
6197
T1869:;
 
6198
        if((V789!= VV[163]))goto T1870;
 
6199
        base[3]= (*(LnkLI304))((V786),(V788));
 
6200
        goto T1866;
 
6201
        goto T1870;
 
6202
T1870:;
 
6203
        base[4]= VV[161];
 
6204
        base[5]= VV[162];
 
6205
        base[6]= (V787);
 
6206
        vs_top=(vs_base=base+4)+3;
 
6207
        Lerror();
 
6208
        vs_top=sup;
 
6209
        base[3]= vs_base[0];}
 
6210
        goto T1866;
 
6211
T1866:;
 
6212
        vs_top=(vs_base=base+2)+2;
 
6213
        return;}
 
6214
        }
 
6215
}
 
6216
/*      local entry for function SAUT-NOT-CLASS */
 
6217
 
 
6218
static object LI111(V792,V793)
 
6219
 
 
6220
object V792;object V793;
 
6221
{        VMB101 VMS101 VMV101
 
6222
        goto TTL;
 
6223
TTL:;
 
6224
        {object V794;
 
6225
        object V795;
 
6226
        V794= (*(LnkLI305))((V792));
 
6227
        base[2]= (V794);
 
6228
        vs_top=(vs_base=base+2)+1;
 
6229
        (void) (*Lnk280)(Lclptr280);
 
6230
        vs_top=sup;
 
6231
        V795= vs_base[0];
 
6232
        {register object x= CMPcadr((V793)),V797= (V795);
 
6233
        while(V797!=Cnil)
 
6234
        if(x==(V797->c.c_car)){
 
6235
        V796= V797;
 
6236
        goto T1877;
 
6237
        }else V797=V797->c.c_cdr;
 
6238
        V796= Cnil;}
 
6239
        goto T1877;
 
6240
T1877:;
 
6241
        {object V798 = ((V796)==Cnil?Ct:Cnil);
 
6242
        VMR101(V798)}}
 
6243
        base[0]=base[0];
 
6244
        return Cnil;
 
6245
}
 
6246
/*      local entry for function SAUT-NOT-PROTOTYPE     */
 
6247
 
 
6248
static object LI112(V801,V802)
 
6249
 
 
6250
register object V801;object V802;
 
6251
{        VMB102 VMS102 VMV102
 
6252
        goto TTL;
 
6253
TTL:;
 
6254
        {object V803;
 
6255
        object V804;
 
6256
        {object V805= CMPcar((V801));
 
6257
        if((V805!= VV[163]))goto T1879;
 
6258
        V803= (*(LnkLI306))(CMPcadr((V801)));
 
6259
        goto T1878;
 
6260
        goto T1879;
 
6261
T1879:;
 
6262
        if((V805!= VV[146]))goto T1880;
 
6263
        V803= CMPcadr((V801));
 
6264
        goto T1878;
 
6265
        goto T1880;
 
6266
T1880:;
 
6267
        if((V805!= VV[298]))goto T1881;
 
6268
        V803= CMPcadr((V801));
 
6269
        goto T1878;
 
6270
        goto T1881;
 
6271
T1881:;
 
6272
        if((V805!= VV[8]))goto T1882;
 
6273
        V803= CMPcadr((V801));
 
6274
        goto T1878;
 
6275
        goto T1882;
 
6276
T1882:;
 
6277
        V803= Cnil;}
 
6278
        goto T1878;
 
6279
T1878:;
 
6280
        base[2]= (V803);
 
6281
        vs_top=(vs_base=base+2)+1;
 
6282
        (void) (*Lnk280)(Lclptr280);
 
6283
        vs_top=sup;
 
6284
        V804= vs_base[0];
 
6285
        {register object x= CMPcadr((V802)),V807= (V804);
 
6286
        while(V807!=Cnil)
 
6287
        if(x==(V807->c.c_car)){
 
6288
        V806= V807;
 
6289
        goto T1885;
 
6290
        }else V807=V807->c.c_cdr;
 
6291
        V806= Cnil;}
 
6292
        goto T1885;
 
6293
T1885:;
 
6294
        {object V808 = ((V806)==Cnil?Ct:Cnil);
 
6295
        VMR102(V808)}}
 
6296
        base[0]=base[0];
 
6297
        return Cnil;
 
6298
}
 
6299
/*      local entry for function SAUT-NOT-CLASS-EQ      */
 
6300
 
 
6301
static object LI113(V811,V812)
 
6302
 
 
6303
object V811;object V812;
 
6304
{        VMB103 VMS103 VMV103
 
6305
        goto TTL;
 
6306
TTL:;
 
6307
        {object V813;
 
6308
        {object V814= CMPcar((V811));
 
6309
        if((V814!= VV[163]))goto T1887;
 
6310
        V813= (*(LnkLI306))(CMPcadr((V811)));
 
6311
        goto T1886;
 
6312
        goto T1887;
 
6313
T1887:;
 
6314
        if((V814!= VV[146]))goto T1888;
 
6315
        V813= CMPcadr((V811));
 
6316
        goto T1886;
 
6317
        goto T1888;
 
6318
T1888:;
 
6319
        V813= Cnil;}
 
6320
        goto T1886;
 
6321
T1886:;
 
6322
        {object V815 = (((((V813))==(CMPcadr((V812)))?Ct:Cnil))==Cnil?Ct:Cnil);
 
6323
        VMR103(V815)}}
 
6324
        return Cnil;
 
6325
}
 
6326
/*      local entry for function SAUT-NOT-EQL   */
 
6327
 
 
6328
static object LI114(V818,V819)
 
6329
 
 
6330
object V818;object V819;
 
6331
{        VMB104 VMS104 VMV104
 
6332
        goto TTL;
 
6333
TTL:;
 
6334
        {object V820= CMPcar((V818));
 
6335
        if((V820!= VV[163]))goto T1889;
 
6336
        {object V821 = (((eql(CMPcadr((V818)),CMPcadr((V819)))?Ct:Cnil))==Cnil?Ct:Cnil);
 
6337
        VMR104(V821)}
 
6338
        goto T1889;
 
6339
T1889:;
 
6340
        {object V822 = Ct;
 
6341
        VMR104(V822)}}
 
6342
        return Cnil;
 
6343
}
 
6344
/*      function definition for CLASS-APPLICABLE-USING-CLASS-P  */
 
6345
 
 
6346
static void L115()
 
6347
{register object *base=vs_base;
 
6348
        register object *sup=base+VM105; VC105
 
6349
        vs_check;
 
6350
        {object V823;
 
6351
        register object V824;
 
6352
        check_arg(2);
 
6353
        V823=(base[0]);
 
6354
        V824=(base[1]);
 
6355
        vs_top=sup;
 
6356
        goto TTL;
 
6357
TTL:;
 
6358
        {object V825;
 
6359
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
6360
        goto T1893;}
 
6361
        base[2]= (V824);
 
6362
        vs_top=(vs_base=base+2)+1;
 
6363
        (void) (*Lnk280)(Lclptr280);
 
6364
        vs_top=sup;
 
6365
        V827= vs_base[0];
 
6366
        goto T1891;
 
6367
        goto T1893;
 
6368
T1893:;
 
6369
        V827= (*(LnkLI279))((V824));
 
6370
        goto T1891;
 
6371
T1891:;
 
6372
        {register object x= (V823),V826= V827;
 
6373
        while(V826!=Cnil)
 
6374
        if(x==(V826->c.c_car)){
 
6375
        V825= V826;
 
6376
        goto T1890;
 
6377
        }else V826=V826->c.c_cdr;
 
6378
        V825= Cnil;}
 
6379
        goto T1890;
 
6380
T1890:;
 
6381
        base[2]= (V825);
 
6382
        if((V825)!=Cnil){
 
6383
        base[3]= (V825);
 
6384
        goto T1897;}
 
6385
        if(((VV[160]->s.s_dbind))!=Cnil){
 
6386
        goto T1899;}
 
6387
        base[3]= (*(LnkLI307))((V823),(V824));
 
6388
        goto T1897;
 
6389
        goto T1899;
 
6390
T1899:;
 
6391
        base[3]= (*(LnkLI308))((V823),(V824));
 
6392
        goto T1897;
 
6393
T1897:;
 
6394
        vs_top=(vs_base=base+2)+2;
 
6395
        return;}
 
6396
        }
 
6397
}
 
6398
/*      local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */
 
6399
 
 
6400
static object LI116(V830,V831)
 
6401
 
 
6402
object V830;register object V831;
 
6403
{        VMB106 VMS106 VMV106
 
6404
        goto TTL;
 
6405
TTL:;
 
6406
        if(!(((V830))==((V831)))){
 
6407
        goto T1901;}
 
6408
        {object V832 = Ct;
 
6409
        VMR106(V832)}
 
6410
        goto T1901;
 
6411
T1901:;
 
6412
        {object V833;
 
6413
        base[0]= (V830);
 
6414
        vs_top=(vs_base=base+0)+1;
 
6415
        (void) (*Lnk309)(Lclptr309);
 
6416
        vs_top=sup;
 
6417
        V833= vs_base[0];{object V834;
 
6418
        {register object x= (V831),V835= (V833);
 
6419
        while(V835!=Cnil)
 
6420
        if(x==(V835->c.c_car)){
 
6421
        V834= V835;
 
6422
        goto T1906;
 
6423
        }else V835=V835->c.c_cdr;
 
6424
        V834= Cnil;}
 
6425
        goto T1906;
 
6426
T1906:;
 
6427
        if(V834==Cnil)goto T1905;
 
6428
        {object V836 = V834;
 
6429
        VMR106(V836)}
 
6430
        goto T1905;
 
6431
T1905:;}
 
6432
        {register object V837;
 
6433
        register object V838;
 
6434
        V837= (V833);
 
6435
        V838= CMPcar((V837));
 
6436
        goto T1910;
 
6437
T1910:;
 
6438
        if(!(((V837))==Cnil)){
 
6439
        goto T1911;}
 
6440
        {object V839 = Cnil;
 
6441
        VMR106(V839)}
 
6442
        goto T1911;
 
6443
T1911:;
 
6444
        if(((*(LnkLI308))((V838),(V831)))==Cnil){
 
6445
        goto T1915;}
 
6446
        {object V840 = Ct;
 
6447
        VMR106(V840)}
 
6448
        goto T1915;
 
6449
T1915:;
 
6450
        V837= CMPcdr((V837));
 
6451
        V838= CMPcar((V837));
 
6452
        goto T1910;}}
 
6453
        base[0]=base[0];
 
6454
        return Cnil;
 
6455
}
 
6456
/*      function definition for SAUT-CLASS      */
 
6457
 
 
6458
static void L117()
 
6459
{register object *base=vs_base;
 
6460
        register object *sup=base+VM107; VC107
 
6461
        vs_check;
 
6462
        {object V841;
 
6463
        object V842;
 
6464
        check_arg(2);
 
6465
        V841=(base[0]);
 
6466
        V842=(base[1]);
 
6467
        vs_top=sup;
 
6468
        goto TTL;
 
6469
TTL:;
 
6470
        {object V843= CMPcar((V841));
 
6471
        if((V843!= VV[8]))goto T1923;
 
6472
        base[2]= CMPcadr((V841));
 
6473
        base[3]= CMPcadr((V842));
 
6474
        vs_top=(vs_base=base+2)+2;
 
6475
        (void) (*Lnk310)();
 
6476
        return;
 
6477
        goto T1923;
 
6478
T1923:;
 
6479
        base[2]= Cnil;
 
6480
        {object V844;
 
6481
        V844= (*(LnkLI305))((V841));
 
6482
        V846= CMPcadr((V842));
 
6483
        base[4]= (V844);
 
6484
        vs_top=(vs_base=base+4)+1;
 
6485
        (void) (*Lnk280)(Lclptr280);
 
6486
        vs_top=sup;
 
6487
        V847= vs_base[0];
 
6488
        {register object x= /* INLINE-ARGS */V846,V845= V847;
 
6489
        while(V845!=Cnil)
 
6490
        if(x==(V845->c.c_car)){
 
6491
        base[3]= V845;
 
6492
        goto T1927;
 
6493
        }else V845=V845->c.c_cdr;
 
6494
        base[3]= Cnil;}}
 
6495
        goto T1927;
 
6496
T1927:;
 
6497
        vs_top=(vs_base=base+2)+2;
 
6498
        return;}
 
6499
        }
 
6500
}
 
6501
/*      function definition for SAUT-CLASS-EQ   */
 
6502
 
 
6503
static void L118()
 
6504
{register object *base=vs_base;
 
6505
        register object *sup=base+VM108; VC108
 
6506
        vs_check;
 
6507
        {register object V848;
 
6508
        register object V849;
 
6509
        check_arg(2);
 
6510
        V848=(base[0]);
 
6511
        V849=(base[1]);
 
6512
        vs_top=sup;
 
6513
        goto TTL;
 
6514
TTL:;
 
6515
        if(!((CMPcar((V848)))==(VV[163]))){
 
6516
        goto T1932;}
 
6517
        base[2]= Cnil;
 
6518
        V850= (*(LnkLI306))(CMPcadr((V848)));
 
6519
        base[3]= ((/* INLINE-ARGS */V850)==(CMPcadr((V849)))?Ct:Cnil);
 
6520
        vs_top=(vs_base=base+2)+2;
 
6521
        return;
 
6522
        goto T1932;
 
6523
T1932:;
 
6524
        {object V851;
 
6525
        {object V852= CMPcar((V848));
 
6526
        if((V852!= VV[146]))goto T1937;
 
6527
        V851= ((CMPcadr((V848)))==(CMPcadr((V849)))?Ct:Cnil);
 
6528
        goto T1936;
 
6529
        goto T1937;
 
6530
T1937:;
 
6531
        if((V852!= VV[8]))goto T1938;
 
6532
        if(!((CMPcadr((V848)))==(CMPcadr((V849))))){
 
6533
        goto T1939;}
 
6534
        V851= Ct;
 
6535
        goto T1936;
 
6536
        goto T1939;
 
6537
T1939:;
 
6538
        V854= CMPcadr((V848));
 
6539
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
6540
        goto T1943;}
 
6541
        base[2]= CMPcadr((V849));
 
6542
        vs_top=(vs_base=base+2)+1;
 
6543
        (void) (*Lnk280)(Lclptr280);
 
6544
        vs_top=sup;
 
6545
        V855= vs_base[0];
 
6546
        goto T1941;
 
6547
        goto T1943;
 
6548
T1943:;
 
6549
        V855= (*(LnkLI279))(CMPcadr((V849)));
 
6550
        goto T1941;
 
6551
T1941:;
 
6552
        {register object x= /* INLINE-ARGS */V854,V853= V855;
 
6553
        while(V853!=Cnil)
 
6554
        if(x==(V853->c.c_car)){
 
6555
        V851= V853;
 
6556
        goto T1936;
 
6557
        }else V853=V853->c.c_cdr;
 
6558
        V851= Cnil;
 
6559
        goto T1936;}
 
6560
        goto T1938;
 
6561
T1938:;
 
6562
        V851= Cnil;}
 
6563
        goto T1936;
 
6564
T1936:;
 
6565
        base[2]= (V851);
 
6566
        base[3]= (V851);
 
6567
        vs_top=(vs_base=base+2)+2;
 
6568
        return;}
 
6569
        }
 
6570
}
 
6571
/*      function definition for SAUT-PROTOTYPE  */
 
6572
 
 
6573
static void L119()
 
6574
{register object *base=vs_base;
 
6575
        register object *sup=base+VM109; VC109
 
6576
        vs_check;
 
6577
        {object V856;
 
6578
        object V857;
 
6579
        check_arg(2);
 
6580
        V856=(base[0]);
 
6581
        V857=(base[1]);
 
6582
        vs_top=sup;
 
6583
        goto TTL;
 
6584
TTL:;
 
6585
        base[2]= Cnil;
 
6586
        base[3]= Cnil;
 
6587
        vs_top=(vs_base=base+2)+2;
 
6588
        return;
 
6589
        }
 
6590
}
 
6591
/*      function definition for SAUT-EQL        */
 
6592
 
 
6593
static void L120()
 
6594
{register object *base=vs_base;
 
6595
        register object *sup=base+VM110; VC110
 
6596
        vs_check;
 
6597
        {register object V858;
 
6598
        object V859;
 
6599
        check_arg(2);
 
6600
        V858=(base[0]);
 
6601
        V859=(base[1]);
 
6602
        vs_top=sup;
 
6603
        goto TTL;
 
6604
TTL:;
 
6605
        {object V860;
 
6606
        {object V861= CMPcar((V858));
 
6607
        if((V861!= VV[163]))goto T1951;
 
6608
        V860= (eql(CMPcadr((V858)),CMPcadr((V859)))?Ct:Cnil);
 
6609
        goto T1950;
 
6610
        goto T1951;
 
6611
T1951:;
 
6612
        if((V861!= VV[146]))goto T1952;
 
6613
        V862= CMPcadr((V858));
 
6614
        V863= (*(LnkLI306))(CMPcadr((V859)));
 
6615
        V860= ((/* INLINE-ARGS */V862)==(/* INLINE-ARGS */V863)?Ct:Cnil);
 
6616
        goto T1950;
 
6617
        goto T1952;
 
6618
T1952:;
 
6619
        if((V861!= VV[8]))goto T1953;
 
6620
        V865= CMPcadr((V858));
 
6621
        {object V867;
 
6622
        V867= (*(LnkLI306))(CMPcadr((V859)));
 
6623
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
6624
        goto T1957;}
 
6625
        base[2]= (V867);
 
6626
        vs_top=(vs_base=base+2)+1;
 
6627
        (void) (*Lnk280)(Lclptr280);
 
6628
        vs_top=sup;
 
6629
        V866= vs_base[0];
 
6630
        goto T1954;
 
6631
        goto T1957;
 
6632
T1957:;
 
6633
        V866= (*(LnkLI279))((V867));}
 
6634
        goto T1954;
 
6635
T1954:;
 
6636
        {register object x= /* INLINE-ARGS */V865,V864= V866;
 
6637
        while(V864!=Cnil)
 
6638
        if(x==(V864->c.c_car)){
 
6639
        V860= V864;
 
6640
        goto T1950;
 
6641
        }else V864=V864->c.c_cdr;
 
6642
        V860= Cnil;
 
6643
        goto T1950;}
 
6644
        goto T1953;
 
6645
T1953:;
 
6646
        V860= Cnil;}
 
6647
        goto T1950;
 
6648
T1950:;
 
6649
        base[2]= (V860);
 
6650
        base[3]= (V860);
 
6651
        vs_top=(vs_base=base+2)+2;
 
6652
        return;}
 
6653
        }
 
6654
}
 
6655
/*      function definition for SPECIALIZER-APPLICABLE-USING-TYPE-P     */
 
6656
 
 
6657
static void L121()
 
6658
{register object *base=vs_base;
 
6659
        register object *sup=base+VM111; VC111
 
6660
        vs_check;
 
6661
        {register object V868;
 
6662
        register object V869;
 
6663
        check_arg(2);
 
6664
        V868=(base[0]);
 
6665
        V869=(base[1]);
 
6666
        vs_top=sup;
 
6667
        goto TTL;
 
6668
TTL:;
 
6669
        base[2]= (V868);
 
6670
        vs_top=(vs_base=base+2)+1;
 
6671
        (void) (*Lnk311)();
 
6672
        vs_top=sup;
 
6673
        V868= vs_base[0];
 
6674
        if(!(((V868))==(Ct))){
 
6675
        goto T1965;}
 
6676
        base[2]= Ct;
 
6677
        base[3]= Ct;
 
6678
        vs_top=(vs_base=base+2)+2;
 
6679
        return;
 
6680
        goto T1965;
 
6681
T1965:;
 
6682
        if(type_of((V869))!=t_cons){
 
6683
        goto T1970;}
 
6684
        if(!((CMPcar((V869)))==(Ct))){
 
6685
        goto T1971;}
 
6686
        goto T1970;
 
6687
T1970:;
 
6688
        base[2]= Cnil;
 
6689
        base[3]= Ct;
 
6690
        vs_top=(vs_base=base+2)+2;
 
6691
        return;
 
6692
        goto T1971;
 
6693
T1971:;
 
6694
        {object V870= CMPcar((V869));
 
6695
        if((V870!= VV[96]))goto T1977;
 
6696
        base[2]= (V868);
 
6697
        base[3]= (V869);
 
6698
        vs_top=(vs_base=base+2)+2;
 
6699
        (void) (*Lnk312)();
 
6700
        return;
 
6701
        goto T1977;
 
6702
T1977:;
 
6703
        if((V870!= VV[97]))goto T1980;
 
6704
        base[2]= (V868);
 
6705
        base[3]= (V869);
 
6706
        vs_top=(vs_base=base+2)+2;
 
6707
        (void) (*Lnk313)();
 
6708
        return;
 
6709
        goto T1980;
 
6710
T1980:;
 
6711
        if((V870!= VV[8]))goto T1983;
 
6712
        base[2]= (V868);
 
6713
        base[3]= (V869);
 
6714
        vs_top=(vs_base=base+2)+2;
 
6715
        (void) (*Lnk314)();
 
6716
        return;
 
6717
        goto T1983;
 
6718
T1983:;
 
6719
        if((V870!= VV[298]))goto T1986;
 
6720
        base[2]= (V868);
 
6721
        base[3]= (V869);
 
6722
        vs_top=(vs_base=base+2)+2;
 
6723
        (void) (*Lnk315)();
 
6724
        return;
 
6725
        goto T1986;
 
6726
T1986:;
 
6727
        if((V870!= VV[146]))goto T1989;
 
6728
        base[2]= (V868);
 
6729
        base[3]= (V869);
 
6730
        vs_top=(vs_base=base+2)+2;
 
6731
        (void) (*Lnk316)();
 
6732
        return;
 
6733
        goto T1989;
 
6734
T1989:;
 
6735
        if((V870!= VV[163]))goto T1992;
 
6736
        base[2]= (V868);
 
6737
        base[3]= (V869);
 
6738
        vs_top=(vs_base=base+2)+2;
 
6739
        (void) (*Lnk317)();
 
6740
        return;
 
6741
        goto T1992;
 
6742
T1992:;
 
6743
        base[2]= VV[164];
 
6744
        base[3]= VV[162];
 
6745
        base[4]= (V869);
 
6746
        vs_top=(vs_base=base+2)+3;
 
6747
        Lerror();
 
6748
        return;}
 
6749
        }
 
6750
}
 
6751
/*      function definition for MAP-ALL-CLASSES */
 
6752
 
 
6753
static void L122()
 
6754
{register object *base=vs_base;
 
6755
        register object *sup=base+VM112; VC112
 
6756
        vs_check;
 
6757
        {register object V871;
 
6758
        if(vs_top-vs_base<1) too_few_arguments();
 
6759
        if(vs_top-vs_base>2) too_many_arguments();
 
6760
        vs_base=vs_base+1;
 
6761
        if(vs_base>=vs_top){vs_top=sup;goto T1998;}
 
6762
        V871=(base[1]);
 
6763
        vs_top=sup;
 
6764
        goto T1999;
 
6765
        goto T1998;
 
6766
T1998:;
 
6767
        V871= Ct;
 
6768
        goto T1999;
 
6769
T1999:;
 
6770
        if(!(((VV[79]->s.s_dbind))==(VV[165]))){
 
6771
        goto T2002;}
 
6772
        base[2]= Ct;
 
6773
        goto T2001;
 
6774
        goto T2002;
 
6775
T2002:;
 
6776
        base[2]= (((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil);
 
6777
        goto T2001;
 
6778
T2001:;
 
6779
        if(!(type_of((V871))==t_symbol)){
 
6780
        goto T2006;}
 
6781
        base[3]= (VFUN_NARGS=1,(*(LnkLI318))((V871)));
 
6782
        goto T2004;
 
6783
        goto T2006;
 
6784
T2006:;
 
6785
        base[3]= (V871);
 
6786
        goto T2004;
 
6787
T2004:;
 
6788
        vs_top=(vs_base=base+3)+1;
 
6789
        L123(base);
 
6790
        return;
 
6791
        }
 
6792
}
 
6793
/*      function definition for GET-SECONDARY-DISPATCH-FUNCTION */
 
6794
 
 
6795
static void L124()
 
6796
{register object *base=vs_base;
 
6797
        register object *sup=base+VM113; VC113
 
6798
        vs_check;
 
6799
        {object V872;
 
6800
        object V873;
 
6801
        object V874;
 
6802
        object V875;
 
6803
        object V876;
 
6804
        if(vs_top-vs_base<3) too_few_arguments();
 
6805
        if(vs_top-vs_base>5) too_many_arguments();
 
6806
        V872=(base[0]);
 
6807
        V873=(base[1]);
 
6808
        V874=(base[2]);
 
6809
        vs_base=vs_base+3;
 
6810
        if(vs_base>=vs_top){vs_top=sup;goto T2008;}
 
6811
        V875=(base[3]);
 
6812
        vs_base++;
 
6813
        if(vs_base>=vs_top){vs_top=sup;goto T2009;}
 
6814
        V876=(base[4]);
 
6815
        vs_top=sup;
 
6816
        goto T2010;
 
6817
        goto T2008;
 
6818
T2008:;
 
6819
        V875= Cnil;
 
6820
        goto T2009;
 
6821
T2009:;
 
6822
        V876= Cnil;
 
6823
        goto T2010;
 
6824
T2010:;
 
6825
        V877= (((((V875))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
 
6826
        V878= (((((V876))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
 
6827
        V879= (*(LnkLI230))((V873));
 
6828
        base[5]= (VFUN_NARGS=6,(*(LnkLI233))((V872),(V873),(V874),/* INLINE-ARGS */V877,/* INLINE-ARGS */V878,((/* INLINE-ARGS */V879)==Cnil?Ct:Cnil)));
 
6829
        base[6]= (V875);
 
6830
        base[7]= (V876);
 
6831
        vs_top=(vs_base=base+6)+2;
 
6832
        {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
6833
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
6834
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
6835
               else super_funcall_no_event(_funobj);}
 
6836
        return;
 
6837
        }
 
6838
}
 
6839
/*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION1       */
 
6840
 
 
6841
static object LI125(object V884,object V883,object V882,object V881,object V880,object first,...)
 
6842
{       
 
6843
        va_list ap;
 
6844
        int narg = VFUN_NARGS; VMB114 VMS114 VMV114
 
6845
        {register object V885;
 
6846
        object V886;
 
6847
        register object V887;
 
6848
        register object V888;
 
6849
        register object V889;
 
6850
        object V890;
 
6851
        register object V891;
 
6852
        va_start(ap,first);
 
6853
        if(narg <5) too_few_arguments();
 
6854
        Vcs[0]=MMcons(V884,Cnil);
 
6855
        V885= V883;
 
6856
        V886= V882;
 
6857
        V887= V881;
 
6858
        V888= V880;
 
6859
        narg = narg - 5;
 
6860
        if (narg <= 0) goto T2016;
 
6861
        else {
 
6862
        V889= first;}
 
6863
        if (--narg <= 0) goto T2017;
 
6864
        else {
 
6865
        V890= va_arg(ap,object);}
 
6866
        if (--narg <= 0) goto T2018;
 
6867
        else {
 
6868
        V891= va_arg(ap,object);}
 
6869
        --narg; goto T2019;
 
6870
        goto T2016;
 
6871
T2016:;
 
6872
        V889= Cnil;
 
6873
        goto T2017;
 
6874
T2017:;
 
6875
        V890= Ct;
 
6876
        goto T2018;
 
6877
T2018:;
 
6878
        V891= Cnil;
 
6879
        goto T2019;
 
6880
T2019:;
 
6881
        if(((V885))!=Cnil){
 
6882
        goto T2024;}
 
6883
        if(((V891))==Cnil){
 
6884
        goto T2027;}
 
6885
        {object V892 = 
 
6886
        make_cclosure_new(LC165,Cnil,Vcs[0],Cdata);
 
6887
        VMR114(V892)}
 
6888
        goto T2027;
 
6889
T2027:;
 
6890
        {object V893 = 
 
6891
        make_cclosure_new(LC166,Cnil,Vcs[0],Cdata);
 
6892
        VMR114(V893)}
 
6893
        goto T2024;
 
6894
T2024:;
 
6895
        {object V894;
 
6896
        register object V895;
 
6897
        V894= CMPcar((V885));{object V896;
 
6898
        base[2]= (V894);
 
6899
        base[3]= (VV[166]->s.s_dbind);
 
6900
        vs_top=(vs_base=base+2)+2;
 
6901
        Lgethash();
 
6902
        vs_top=sup;
 
6903
        V896= vs_base[0];
 
6904
        if(V896==Cnil)goto T2031;
 
6905
        V895= V896;
 
6906
        goto T2030;
 
6907
        goto T2031;
 
6908
T2031:;}
 
6909
        {object V898;
 
6910
        object V899;
 
6911
        V898= (VV[166]->s.s_dbind);
 
6912
        V899= make_cons(Cnil,Cnil);
 
6913
        base[3]= V894;
 
6914
        base[4]= (V898);
 
6915
        base[5]= (V899);
 
6916
        vs_top=(vs_base=base+3)+3;
 
6917
        siLhash_set();
 
6918
        vs_top=sup;
 
6919
        V895= vs_base[0];}
 
6920
        goto T2030;
 
6921
T2030:;
 
6922
        if((CMPcdr((V885)))!=Cnil){
 
6923
        goto T2041;}
 
6924
        if(((V889))==Cnil){
 
6925
        goto T2041;}
 
6926
        if(((V887))!=Cnil){
 
6927
        goto T2041;}
 
6928
        if(((V888))==Cnil){
 
6929
        goto T2041;}
 
6930
        if(((V891))!=Cnil){
 
6931
        goto T2041;}{object V900;
 
6932
        V900= CMPcar((V895));
 
6933
        if(V900==Cnil)goto T2051;
 
6934
        {object V901 = V900;
 
6935
        VMR114(V901)}
 
6936
        goto T2051;
 
6937
T2051:;}
 
6938
        {object V903;
 
6939
        V903= (*(LnkLI319))((Vcs[0]->c.c_car),(V885),(V886),(V887),(V888),(V889),(V890),(V891));
 
6940
        (V895)->c.c_car = (V903);
 
6941
        {object V904 = (V903);
 
6942
        VMR114(V904)}}
 
6943
        goto T2041;
 
6944
T2041:;
 
6945
        {object V905;
 
6946
        if(((V889))==Cnil){
 
6947
        goto T2058;}
 
6948
        V906= VV[167];
 
6949
        goto T2056;
 
6950
        goto T2058;
 
6951
T2058:;
 
6952
        V906= (V886);
 
6953
        goto T2056;
 
6954
T2056:;
 
6955
        V905= list(5,(V885),V906,(V887),(V888),(V891));{object V907;
 
6956
        {register object x= (V905),V909= CMPcdr((V895));
 
6957
        while(V909!=Cnil)
 
6958
        if(equal(x,V909->c.c_car->c.c_car) &&V909->c.c_car != Cnil){
 
6959
        V908= (V909->c.c_car);
 
6960
        goto T2062;
 
6961
        }else V909=V909->c.c_cdr;
 
6962
        V908= Cnil;}
 
6963
        goto T2062;
 
6964
T2062:;
 
6965
        V907= CMPcdr(V908);
 
6966
        if(V907==Cnil)goto T2060;
 
6967
        {object V910 = V907;
 
6968
        VMR114(V910)}
 
6969
        goto T2060;
 
6970
T2060:;}
 
6971
        {object V911;
 
6972
        V911= (*(LnkLI319))((Vcs[0]->c.c_car),(V885),(V886),(V887),(V888),(V889),(V890),(V891));
 
6973
        {object V912;
 
6974
        object V914;
 
6975
        V912= make_cons((V905),(V911));
 
6976
        V914= make_cons((V912),CMPcdr(V895));
 
6977
        (V895)->c.c_cdr = (V914);}
 
6978
        {object V915 = (V911);
 
6979
        VMR114(V915)}}}}
 
6980
        va_end(ap);
 
6981
        base[0]=base[0];
 
6982
        return Cnil;}
 
6983
        }
 
6984
/*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION2       */
 
6985
 
 
6986
static object LI126(V924,V925,V926,V927,V928,V929,V930,V931)
 
6987
 
 
6988
register object V924;object V925;object V926;object V927;object V928;object V929;object V930;object V931;
 
6989
{        VMB115 VMS115 VMV115
 
6990
        goto TTL;
 
6991
TTL:;
 
6992
        if(((V929))==Cnil){
 
6993
        goto T2069;}
 
6994
        if(((V930))==Cnil){
 
6995
        goto T2069;}
 
6996
        if(((V931))!=Cnil){
 
6997
        goto T2069;}
 
6998
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
6999
        goto T2076;}
 
7000
        {object V932;
 
7001
        object V933;
 
7002
        base[2]= (V924);
 
7003
        vs_top=(vs_base=base+2)+1;
 
7004
        (void) (*Lnk320)(Lclptr320);
 
7005
        vs_top=sup;
 
7006
        V932= vs_base[0];
 
7007
        V933= (*(LnkLI321))((V924),(V932),(V925));
 
7008
        {object V934 = (*(LnkLI322))((V924),(V933),(V927),(V928));
 
7009
        VMR115(V934)}}
 
7010
        goto T2076;
 
7011
T2076:;
 
7012
        {object V935;
 
7013
        V935= (*(LnkLI323))((V924),Cnil,(V925));
 
7014
        {object V936 = (*(LnkLI322))((V924),(V935),(V927),(V928));
 
7015
        VMR115(V936)}}
 
7016
        goto T2069;
 
7017
T2069:;
 
7018
        {object V937;
 
7019
        base[0]= (V924);
 
7020
        base[1]= (V925);
 
7021
        base[2]= (V926);
 
7022
        base[3]= (V930);
 
7023
        vs_top=(vs_base=base+0)+4;
 
7024
        (void) (*Lnk324)();
 
7025
        vs_top=sup;
 
7026
        V937= vs_base[0];
 
7027
        {object V938 = (VFUN_NARGS=3,(*(LnkLI325))((V924),(V937),(V931)));
 
7028
        VMR115(V938)}}
 
7029
        base[0]=base[0];
 
7030
        return Cnil;
 
7031
}
 
7032
/*      function definition for GET-EFFECTIVE-METHOD-FUNCTION   */
 
7033
 
 
7034
static void L127()
 
7035
{register object *base=vs_base;
 
7036
        register object *sup=base+VM116; VC116
 
7037
        vs_check;
 
7038
        {object V939;
 
7039
        object V940;
 
7040
        object V941;
 
7041
        object V942;
 
7042
        if(vs_top-vs_base<2) too_few_arguments();
 
7043
        if(vs_top-vs_base>4) too_many_arguments();
 
7044
        V939=(base[0]);
 
7045
        V940=(base[1]);
 
7046
        vs_base=vs_base+2;
 
7047
        if(vs_base>=vs_top){vs_top=sup;goto T2087;}
 
7048
        V941=(base[2]);
 
7049
        vs_base++;
 
7050
        if(vs_base>=vs_top){vs_top=sup;goto T2088;}
 
7051
        V942=(base[3]);
 
7052
        vs_top=sup;
 
7053
        goto T2089;
 
7054
        goto T2087;
 
7055
T2087:;
 
7056
        V941= Cnil;
 
7057
        goto T2088;
 
7058
T2088:;
 
7059
        V942= Cnil;
 
7060
        goto T2089;
 
7061
T2089:;
 
7062
        base[4]= (VFUN_NARGS=6,(*(LnkLI233))((V939),(V940),Cnil,(((((V941))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V942))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct));
 
7063
        base[5]= (V941);
 
7064
        base[6]= (V942);
 
7065
        vs_top=(vs_base=base+5)+2;
 
7066
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
7067
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
7068
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
7069
               else super_funcall_no_event(_funobj);}
 
7070
        return;
 
7071
        }
 
7072
}
 
7073
/*      local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */
 
7074
 
 
7075
static object LI128(object V944,object V943,object first,...)
 
7076
{       
 
7077
        va_list ap;
 
7078
        int narg = VFUN_NARGS; VMB117 VMS117 VMV117
 
7079
        {object V945;
 
7080
        object V946;
 
7081
        object V947;
 
7082
        va_start(ap,first);
 
7083
        if(narg <2) too_few_arguments();
 
7084
        V945= V944;
 
7085
        V946= V943;
 
7086
        narg = narg - 2;
 
7087
        if (narg <= 0) goto T2095;
 
7088
        else {
 
7089
        V947= first;}
 
7090
        --narg; goto T2096;
 
7091
        goto T2095;
 
7092
T2095:;
 
7093
        V947= Ct;
 
7094
        goto T2096;
 
7095
T2096:;
 
7096
        {object V948 = (VFUN_NARGS=7,(*(LnkLI233))((V945),(V946),Cnil,Cnil,Cnil,Ct,(V947)));
 
7097
        VMR117(V948)}
 
7098
        va_end(ap);
 
7099
        return Cnil;}
 
7100
        }
 
7101
/*      local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P      */
 
7102
 
 
7103
static object LI129(V950)
 
7104
 
 
7105
object V950;
 
7106
{        VMB118 VMS118 VMV118
 
7107
        goto TTL;
 
7108
TTL:;
 
7109
        if(((VV[79]->s.s_dbind))==(VV[80])){
 
7110
        goto T2098;}
 
7111
        {object V951 = Cnil;
 
7112
        VMR118(V951)}
 
7113
        goto T2098;
 
7114
T2098:;
 
7115
        {register object V952;
 
7116
        register object V953;
 
7117
        V952= (V950);
 
7118
        V953= CMPcar((V952));
 
7119
        goto T2103;
 
7120
T2103:;
 
7121
        if(!(((V952))==Cnil)){
 
7122
        goto T2104;}
 
7123
        {object V954 = Cnil;
 
7124
        VMR118(V954)}
 
7125
        goto T2104;
 
7126
T2104:;
 
7127
        {register object V955;
 
7128
        register object V956;
 
7129
        base[3]= (V953);
 
7130
        vs_top=(vs_base=base+3)+1;
 
7131
        (void) (*Lnk259)(Lclptr259);
 
7132
        vs_top=sup;
 
7133
        V955= vs_base[0];
 
7134
        V956= CMPcar((V955));
 
7135
        goto T2115;
 
7136
T2115:;
 
7137
        if(!(((V955))==Cnil)){
 
7138
        goto T2116;}
 
7139
        goto T2108;
 
7140
        goto T2116;
 
7141
T2116:;
 
7142
        base[3]= (V956);
 
7143
        vs_top=(vs_base=base+3)+1;
 
7144
        (void) (*Lnk326)(Lclptr326);
 
7145
        vs_top=sup;
 
7146
        if((vs_base[0])==Cnil){
 
7147
        goto T2120;}
 
7148
        goto T2110;
 
7149
        goto T2120;
 
7150
T2120:;
 
7151
        V955= CMPcdr((V955));
 
7152
        V956= CMPcar((V955));
 
7153
        goto T2115;}
 
7154
        goto T2110;
 
7155
T2110:;
 
7156
        {object V957 = Ct;
 
7157
        VMR118(V957)}
 
7158
        goto T2108;
 
7159
T2108:;
 
7160
        V952= CMPcdr((V952));
 
7161
        V953= CMPcar((V952));
 
7162
        goto T2103;}
 
7163
        base[0]=base[0];
 
7164
        return Cnil;
 
7165
}
 
7166
/*      local entry for function UPDATE-DFUN    */
 
7167
 
 
7168
static object LI130(object V958,object first,...)
 
7169
{       
 
7170
        va_list ap;
 
7171
        int narg = VFUN_NARGS; VMB119 VMS119 VMV119
 
7172
        {register object V959;
 
7173
        object V960;
 
7174
        object V961;
 
7175
        object V962;
 
7176
        va_start(ap,first);
 
7177
        if(narg <1) too_few_arguments();
 
7178
        V959= V958;
 
7179
        narg = narg - 1;
 
7180
        if (narg <= 0) goto T2134;
 
7181
        else {
 
7182
        V960= first;}
 
7183
        if (--narg <= 0) goto T2135;
 
7184
        else {
 
7185
        V961= va_arg(ap,object);}
 
7186
        if (--narg <= 0) goto T2136;
 
7187
        else {
 
7188
        V962= va_arg(ap,object);}
 
7189
        --narg; goto T2137;
 
7190
        goto T2134;
 
7191
T2134:;
 
7192
        V960= Cnil;
 
7193
        goto T2135;
 
7194
T2135:;
 
7195
        V961= Cnil;
 
7196
        goto T2136;
 
7197
T2136:;
 
7198
        V962= Cnil;
 
7199
        goto T2137;
 
7200
T2137:;
 
7201
        {object V963;
 
7202
        object V964;
 
7203
        object V965;
 
7204
        V963= (*(LnkLI213))((V959));
 
7205
        if(((V963))==Cnil){
 
7206
        goto T2144;}
 
7207
        V964= (*(LnkLI327))((V959));
 
7208
        goto T2142;
 
7209
        goto T2144;
 
7210
T2144:;
 
7211
        base[3]= (V959);
 
7212
        vs_top=(vs_base=base+3)+1;
 
7213
        (void) (*Lnk178)(Lclptr178);
 
7214
        vs_top=sup;
 
7215
        V964= vs_base[0];
 
7216
        goto T2142;
 
7217
T2142:;
 
7218
        V965= (*(LnkLI237))((V959));
 
7219
        (void)((VFUN_NARGS=4,(*(LnkLI247))((V959),(V960),(V961),(V962))));
 
7220
        {object V966;
 
7221
        if(((V963))==Cnil){
 
7222
        goto T2151;}
 
7223
        if((V960)!=Cnil){
 
7224
        V966= (V960);
 
7225
        goto T2149;}
 
7226
        V966= (*(LnkLI328))((V959));
 
7227
        goto T2149;
 
7228
        goto T2151;
 
7229
T2151:;
 
7230
        base[3]= (V959);
 
7231
        vs_top=(vs_base=base+3)+1;
 
7232
        (void) (*Lnk329)(Lclptr329);
 
7233
        vs_top=sup;
 
7234
        V966= vs_base[0];
 
7235
        goto T2149;
 
7236
T2149:;
 
7237
        (void)((*(LnkLI330))((V959),(V966)));
 
7238
        if(((V965))==Cnil){
 
7239
        goto T2155;}
 
7240
        if(((V965))==((V961))){
 
7241
        goto T2155;}
 
7242
        (void)((*(LnkLI331))((V965)));
 
7243
        goto T2155;
 
7244
T2155:;
 
7245
        {object V967 = (V966);
 
7246
        VMR119(V967)}}}
 
7247
        va_end(ap);
 
7248
        base[0]=base[0];
 
7249
        return Cnil;}
 
7250
        }
 
7251
/*      local entry for function LIST-DFUN      */
 
7252
 
 
7253
static object LI131(V969)
 
7254
 
 
7255
object V969;
 
7256
{        VMB120 VMS120 VMV120
 
7257
        goto TTL;
 
7258
TTL:;
 
7259
        {object V970;
 
7260
        object V971;
 
7261
        base[2]= (*(LnkLI235))((V969));
 
7262
        vs_top=(vs_base=base+2)+1;
 
7263
        Ltype_of();
 
7264
        vs_top=sup;
 
7265
        V970= vs_base[0];
 
7266
        {register object x= (V970),V972= (VV[168]->s.s_dbind);
 
7267
        while(V972!=Cnil)
 
7268
        if(EQ(x,V972->c.c_car->c.c_car) &&V972->c.c_car != Cnil){
 
7269
        V971= (V972->c.c_car);
 
7270
        goto T2162;
 
7271
        }else V972=V972->c.c_cdr;
 
7272
        V971= Cnil;}
 
7273
        goto T2162;
 
7274
T2162:;
 
7275
        if(((V971))!=Cnil){
 
7276
        goto T2163;}
 
7277
        {object V973;
 
7278
        V971= make_cons((V970),Cnil);
 
7279
        V973= (V971);
 
7280
        (VV[168]->s.s_dbind)= make_cons((V973),(VV[168]->s.s_dbind));}
 
7281
        goto T2163;
 
7282
T2163:;
 
7283
        {object V974;
 
7284
        object V976;
 
7285
        base[4]= (V969);
 
7286
        vs_top=(vs_base=base+4)+1;
 
7287
        (void) (*Lnk178)(Lclptr178);
 
7288
        vs_top=sup;
 
7289
        V974= vs_base[0];
 
7290
        V976= make_cons((V974),CMPcdr(V971));
 
7291
        (V971)->c.c_cdr = (V976);
 
7292
        {object V977 = (V976);
 
7293
        VMR120(V977)}}}
 
7294
        base[0]=base[0];
 
7295
        return Cnil;
 
7296
}
 
7297
/*      local entry for function LIST-ALL-DFUNS */
 
7298
 
 
7299
static object LI132()
 
7300
 
 
7301
{        VMB121 VMS121 VMV121
 
7302
        goto TTL;
 
7303
TTL:;
 
7304
        (VV[168]->s.s_dbind)= Cnil;
 
7305
        V978= (VV[333]->s.s_gfdef);
 
7306
        (void)((*(LnkLI332))(V978));
 
7307
        {object V979 = (VV[168]->s.s_dbind);
 
7308
        VMR121(V979)}
 
7309
        return Cnil;
 
7310
}
 
7311
/*      local entry for function LIST-LARGE-CACHE       */
 
7312
 
 
7313
static object LI133(V981)
 
7314
 
 
7315
object V981;
 
7316
{        VMB122 VMS122 VMV122
 
7317
        goto TTL;
 
7318
TTL:;
 
7319
        {object V982;
 
7320
        object V983;
 
7321
        base[2]= (*(LnkLI235))((V981));
 
7322
        vs_top=(vs_base=base+2)+1;
 
7323
        Ltype_of();
 
7324
        vs_top=sup;
 
7325
        V982= vs_base[0];
 
7326
        V983= (*(LnkLI237))((V981));
 
7327
        if(((V983))==Cnil){
 
7328
        goto T2181;}
 
7329
        {object V984;
 
7330
        V984= CMPmake_fixnum((long)STREF(fixnum,(V983),28));
 
7331
        if(!(number_compare((V984),(VV[170]->s.s_dbind))>=0)){
 
7332
        goto T2185;}
 
7333
        {object V985;
 
7334
        {register object x= (V984),V986= (VV[168]->s.s_dbind);
 
7335
        while(V986!=Cnil)
 
7336
        if(eql(x,V986->c.c_car->c.c_car) &&V986->c.c_car != Cnil){
 
7337
        V985= (V986->c.c_car);
 
7338
        goto T2187;
 
7339
        }else V986=V986->c.c_cdr;
 
7340
        V985= Cnil;}
 
7341
        goto T2187;
 
7342
T2187:;
 
7343
        if(((V985))!=Cnil){
 
7344
        goto T2188;}
 
7345
        {object V987;
 
7346
        V985= make_cons((V984),Cnil);
 
7347
        V987= (V985);
 
7348
        (VV[168]->s.s_dbind)= make_cons((V987),(VV[168]->s.s_dbind));}
 
7349
        goto T2188;
 
7350
T2188:;
 
7351
        {object V988;
 
7352
        object V990;
 
7353
        {object V991;
 
7354
        base[4]= (V981);
 
7355
        vs_top=(vs_base=base+4)+1;
 
7356
        (void) (*Lnk178)(Lclptr178);
 
7357
        vs_top=sup;
 
7358
        V991= vs_base[0];
 
7359
        if(!(((V982))==(VV[11]))){
 
7360
        goto T2198;}
 
7361
        V988= (V991);
 
7362
        goto T2194;
 
7363
        goto T2198;
 
7364
T2198:;
 
7365
        V988= list(2,(V991),(V982));}
 
7366
        goto T2194;
 
7367
T2194:;
 
7368
        V990= make_cons((V988),CMPcdr(V985));
 
7369
        (V985)->c.c_cdr = (V990);
 
7370
        {object V992 = (V990);
 
7371
        VMR122(V992)}}}
 
7372
        goto T2185;
 
7373
T2185:;
 
7374
        {object V993 = Cnil;
 
7375
        VMR122(V993)}}
 
7376
        goto T2181;
 
7377
T2181:;
 
7378
        {object V994 = Cnil;
 
7379
        VMR122(V994)}}
 
7380
        base[0]=base[0];
 
7381
        return Cnil;
 
7382
}
 
7383
/*      function definition for LIST-LARGE-CACHES       */
 
7384
 
 
7385
static void L134()
 
7386
{register object *base=vs_base;
 
7387
        register object *sup=base+VM123; VC123
 
7388
        vs_check;
 
7389
        bds_check;
 
7390
        if(vs_top-vs_base>1) too_many_arguments();
 
7391
        if(vs_base>=vs_top){vs_top=sup;goto T2202;}
 
7392
        bds_bind(VV[170],base[0]);
 
7393
        vs_top=sup;
 
7394
        goto T2203;
 
7395
        goto T2202;
 
7396
T2202:;
 
7397
        bds_bind(VV[170],small_fixnum(130));
 
7398
        goto T2203;
 
7399
T2203:;
 
7400
        (VV[168]->s.s_dbind)= Cnil;
 
7401
        V995= (VV[334]->s.s_gfdef);
 
7402
        (void)((*(LnkLI332))(V995));
 
7403
        base[1]= (VV[168]->s.s_dbind);
 
7404
        base[2]= (VV[335]->s.s_gfdef);
 
7405
        base[3]= VV[171];
 
7406
        base[4]= (VV[336]->s.s_gfdef);
 
7407
        vs_top=(vs_base=base+1)+4;
 
7408
        (void) (*Lnk337)();
 
7409
        vs_top=sup;
 
7410
        (VV[168]->s.s_dbind)= vs_base[0];
 
7411
        base[1]= (VV[168]->s.s_dbind);
 
7412
        {
 
7413
        object V996= base[1];
 
7414
        if(V996==Cnil){
 
7415
        goto T2215;}
 
7416
        goto T2216;
 
7417
T2216:;
 
7418
        (void)(print((V996->c.c_car),Cnil));
 
7419
        if((V996=MMcdr(V996))==Cnil){
 
7420
        goto T2215;}
 
7421
        goto T2216;}
 
7422
        goto T2215;
 
7423
T2215:;
 
7424
        vs_base=vs_top=base+1;
 
7425
        vs_base[0]=Cnil;
 
7426
        bds_unwind1;
 
7427
        return;
 
7428
}
 
7429
/*      local entry for function COUNT-DFUN     */
 
7430
 
 
7431
static object LI135(V998)
 
7432
 
 
7433
object V998;
 
7434
{        VMB124 VMS124 VMV124
 
7435
        goto TTL;
 
7436
TTL:;
 
7437
        {object V999;
 
7438
        object V1000;
 
7439
        register object V1001;
 
7440
        base[3]= (*(LnkLI235))((V998));
 
7441
        vs_top=(vs_base=base+3)+1;
 
7442
        Ltype_of();
 
7443
        vs_top=sup;
 
7444
        V999= vs_base[0];
 
7445
        V1000= (*(LnkLI237))((V998));
 
7446
        {register object x= (V999),V1002= (VV[172]->s.s_dbind);
 
7447
        while(V1002!=Cnil)
 
7448
        if(EQ(x,V1002->c.c_car->c.c_car) &&V1002->c.c_car != Cnil){
 
7449
        V1001= (V1002->c.c_car);
 
7450
        goto T2221;
 
7451
        }else V1002=V1002->c.c_cdr;
 
7452
        V1001= Cnil;}
 
7453
        goto T2221;
 
7454
T2221:;
 
7455
        if(((V1001))!=Cnil){
 
7456
        goto T2222;}
 
7457
        {object V1003;
 
7458
        V1001= list(3,(V999),small_fixnum(0),Cnil);
 
7459
        V1003= (V1001);
 
7460
        (VV[172]->s.s_dbind)= make_cons((V1003),(VV[172]->s.s_dbind));}
 
7461
        goto T2222;
 
7462
T2222:;
 
7463
        {object V1005;
 
7464
        V1005= number_plus(CMPcadr(V1001),small_fixnum(1));
 
7465
        (CMPcdr(V1001))->c.c_car = (V1005);
 
7466
        (void)(CMPcdr(V1001));}
 
7467
        if(((V1000))==Cnil){
 
7468
        goto T2232;}
 
7469
        {object V1006;
 
7470
        object V1007;
 
7471
        V1006= CMPmake_fixnum((long)STREF(fixnum,(V1000),28));
 
7472
        {register object x= (V1006),V1008= CMPcaddr((V1001));
 
7473
        while(V1008!=Cnil)
 
7474
        if(eql(x,V1008->c.c_car->c.c_car) &&V1008->c.c_car != Cnil){
 
7475
        V1007= (V1008->c.c_car);
 
7476
        goto T2235;
 
7477
        }else V1008=V1008->c.c_cdr;
 
7478
        V1007= Cnil;}
 
7479
        goto T2235;
 
7480
T2235:;
 
7481
        if(((V1007))!=Cnil){
 
7482
        goto T2236;}
 
7483
        {object V1009;
 
7484
        object V1011;
 
7485
        V1007= make_cons((V1006),small_fixnum(0));
 
7486
        V1009= (V1007);
 
7487
        V1011= make_cons((V1009),CMPcaddr(V1001));
 
7488
        (CMPcddr(V1001))->c.c_car = (V1011);
 
7489
        (void)(CMPcddr(V1001));}
 
7490
        goto T2236;
 
7491
T2236:;
 
7492
        {object V1013;
 
7493
        V1013= number_plus(CMPcdr(V1007),small_fixnum(1));
 
7494
        (V1007)->c.c_cdr = (V1013);
 
7495
        {object V1014 = (V1013);
 
7496
        VMR124(V1014)}}}
 
7497
        goto T2232;
 
7498
T2232:;
 
7499
        {object V1015 = Cnil;
 
7500
        VMR124(V1015)}}
 
7501
        base[0]=base[0];
 
7502
        return Cnil;
 
7503
}
 
7504
/*      function definition for COUNT-ALL-DFUNS */
 
7505
 
 
7506
static void L136()
 
7507
{register object *base=vs_base;
 
7508
        register object *sup=base+VM125; VC125
 
7509
        vs_check;
 
7510
        check_arg(0);
 
7511
        vs_top=sup;
 
7512
        goto TTL;
 
7513
TTL:;
 
7514
        {object V1016;
 
7515
        object V1017= VV[173];
 
7516
        if(V1017==Cnil){
 
7517
        (VV[172]->s.s_dbind)= Cnil;
 
7518
        goto T2246;}
 
7519
        base[0]=V1016=MMcons(Cnil,Cnil);
 
7520
        goto T2247;
 
7521
T2247:;
 
7522
        (V1016->c.c_car)= list(3,(V1017->c.c_car),small_fixnum(0),Cnil);
 
7523
        if((V1017=MMcdr(V1017))==Cnil){
 
7524
        (VV[172]->s.s_dbind)= base[0];
 
7525
        goto T2246;}
 
7526
        V1016=MMcdr(V1016)=MMcons(Cnil,Cnil);
 
7527
        goto T2247;}
 
7528
        goto T2246;
 
7529
T2246:;
 
7530
        V1019= (VV[338]->s.s_gfdef);
 
7531
        (void)((*(LnkLI332))(V1019));
 
7532
        base[0]= (VV[172]->s.s_dbind);
 
7533
        {
 
7534
        object V1020= base[0];
 
7535
        if(V1020==Cnil){
 
7536
        goto T2251;}
 
7537
        goto T2252;
 
7538
T2252:;
 
7539
        {object V1023;
 
7540
        base[2]= CMPcaddr((V1020->c.c_car));
 
7541
        base[3]= (VV[335]->s.s_gfdef);
 
7542
        base[4]= VV[171];
 
7543
        base[5]= (VV[336]->s.s_gfdef);
 
7544
        vs_top=(vs_base=base+2)+4;
 
7545
        (void) (*Lnk337)();
 
7546
        vs_top=sup;
 
7547
        V1023= vs_base[0];
 
7548
        (CMPcddr((V1020->c.c_car)))->c.c_car = (V1023);
 
7549
        (void)(CMPcddr((V1020->c.c_car)));}
 
7550
        if((V1020=MMcdr(V1020))==Cnil){
 
7551
        goto T2251;}
 
7552
        goto T2252;}
 
7553
        goto T2251;
 
7554
T2251:;
 
7555
        base[0]= (VV[172]->s.s_dbind);
 
7556
        {
 
7557
        object V1024= base[0];
 
7558
        if(V1024==Cnil){
 
7559
        goto T2260;}
 
7560
        goto T2261;
 
7561
T2261:;
 
7562
        base[1]= Ct;
 
7563
        base[2]= VV[174];
 
7564
        base[3]= CMPcadr((V1024->c.c_car));
 
7565
        base[4]= CMPcar((V1024->c.c_car));
 
7566
        vs_top=(vs_base=base+1)+4;
 
7567
        Lformat();
 
7568
        vs_top=sup;
 
7569
        base[1]= Ct;
 
7570
        base[2]= VV[175];
 
7571
        base[3]= CMPcaddr((V1024->c.c_car));
 
7572
        vs_top=(vs_base=base+1)+3;
 
7573
        Lformat();
 
7574
        vs_top=sup;
 
7575
        if((V1024=MMcdr(V1024))==Cnil){
 
7576
        goto T2260;}
 
7577
        goto T2261;}
 
7578
        goto T2260;
 
7579
T2260:;
 
7580
        vs_base=vs_top=base+0;
 
7581
        vs_base[0]=Cnil;
 
7582
        return;
 
7583
}
 
7584
/*      local entry for function GFS-OF-TYPE    */
 
7585
 
 
7586
static object LI138(V1027)
 
7587
 
 
7588
object V1027;
 
7589
{        VMB126 VMS126 VMV126
 
7590
        goto TTL;
 
7591
TTL:;
 
7592
        base[0]=MMcons((V1027),Cnil);
 
7593
        if(type_of((base[0]->c.c_car))==t_cons){
 
7594
        goto T2271;}
 
7595
        (base[0]->c.c_car)= make_cons((base[0]->c.c_car),Cnil);
 
7596
        goto T2271;
 
7597
T2271:;
 
7598
        base[1]=MMcons(Cnil,base[0]);
 
7599
        V1028= 
 
7600
        make_cclosure_new(LC167,Cnil,base[1],Cdata);
 
7601
        (void)((*(LnkLI332))(V1028));
 
7602
        {object V1029 = (base[1]->c.c_car);
 
7603
        VMR126(V1029)}
 
7604
        base[0]=base[0];
 
7605
        return Cnil;
 
7606
}
 
7607
/*      local function CLOSURE  */
 
7608
 
 
7609
static void LC167(base0)
 
7610
register object *base0;
 
7611
{       register object *base=vs_base;
 
7612
        register object *sup=base+VM127; VC127
 
7613
        vs_check;
 
7614
        {object V1030;
 
7615
        check_arg(1);
 
7616
        V1030=(base[0]);
 
7617
        vs_top=sup;
 
7618
        base[1]= (*(LnkLI235))((V1030));
 
7619
        vs_top=(vs_base=base+1)+1;
 
7620
        Ltype_of();
 
7621
        vs_top=sup;
 
7622
        V1032= vs_base[0];
 
7623
        {register object x= V1032,V1031= (base0[1]->c.c_car);
 
7624
        while(V1031!=Cnil)
 
7625
        if(x==(V1031->c.c_car)){
 
7626
        goto T2279;
 
7627
        }else V1031=V1031->c.c_cdr;
 
7628
        goto T2278;}
 
7629
        goto T2279;
 
7630
T2279:;
 
7631
        (base0[0]->c.c_car)= make_cons(V1030,(base0[0]->c.c_car));
 
7632
        base[1]= (base0[0]->c.c_car);
 
7633
        vs_top=(vs_base=base+1)+1;
 
7634
        return;
 
7635
        goto T2278;
 
7636
T2278:;
 
7637
        base[1]= Cnil;
 
7638
        vs_top=(vs_base=base+1)+1;
 
7639
        return;
 
7640
        }
 
7641
}
 
7642
/*      local function CLOSURE  */
 
7643
 
 
7644
static void LC166(base0)
 
7645
register object *base0;
 
7646
{       register object *base=vs_base;
 
7647
        register object *sup=base+VM128; VC128
 
7648
        vs_check;
 
7649
        {object V1034;
 
7650
        object V1035;
 
7651
        check_arg(2);
 
7652
        V1034=(base[0]);
 
7653
        V1035=(base[1]);
 
7654
        vs_top=sup;
 
7655
        base[2]= 
 
7656
        make_cclosure_new(LC168,Cnil,base0[0],Cdata);
 
7657
        vs_top=(vs_base=base+2)+1;
 
7658
        return;
 
7659
        }
 
7660
}
 
7661
/*      local function CLOSURE  */
 
7662
 
 
7663
static void LC168(base0)
 
7664
register object *base0;
 
7665
{       register object *base=vs_base;
 
7666
        register object *sup=base+VM129; VC129
 
7667
        vs_check;
 
7668
        {object V1036;
 
7669
        vs_top[0]=Cnil;
 
7670
        {object *p=vs_top;
 
7671
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
7672
        V1036=(base[0]);
 
7673
        vs_top=sup;
 
7674
        base[1]=VV[339]->s.s_gfdef;
 
7675
        base[2]= (base0[0]->c.c_car);
 
7676
        {object V1037;
 
7677
        V1037= (V1036);
 
7678
         vs_top=base+3;
 
7679
         while(V1037!=Cnil)
 
7680
         {vs_push((V1037)->c.c_car);V1037=(V1037)->c.c_cdr;}
 
7681
        vs_base=base+2;}
 
7682
        (void) (*Lnk339)(Lclptr339);
 
7683
        return;
 
7684
        }
 
7685
}
 
7686
/*      local function CLOSURE  */
 
7687
 
 
7688
static void LC165(base0)
 
7689
register object *base0;
 
7690
{       register object *base=vs_base;
 
7691
        register object *sup=base+VM130; VC130
 
7692
        vs_check;
 
7693
        {object V1038;
 
7694
        object V1039;
 
7695
        check_arg(2);
 
7696
        V1038=(base[0]);
 
7697
        V1039=(base[1]);
 
7698
        vs_top=sup;
 
7699
        base[2]= 
 
7700
        make_cclosure_new(LC169,Cnil,base0[0],Cdata);
 
7701
        vs_top=(vs_base=base+2)+1;
 
7702
        return;
 
7703
        }
 
7704
}
 
7705
/*      local function CLOSURE  */
 
7706
 
 
7707
static void LC169(base0)
 
7708
register object *base0;
 
7709
{       register object *base=vs_base;
 
7710
        register object *sup=base+VM131; VC131
 
7711
        vs_check;
 
7712
        {object V1040;
 
7713
        vs_top[0]=Cnil;
 
7714
        {object *p=vs_top;
 
7715
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
7716
        V1040=(base[0]);
 
7717
        vs_top=sup;
 
7718
        base[1]=VV[339]->s.s_gfdef;
 
7719
        base[2]= (base0[0]->c.c_car);
 
7720
        {object V1041;
 
7721
        V1041= (V1040);
 
7722
         vs_top=base+3;
 
7723
         while(V1041!=Cnil)
 
7724
         {vs_push((V1041)->c.c_car);V1041=(V1041)->c.c_cdr;}
 
7725
        vs_base=base+2;}
 
7726
        (void) (*Lnk339)(Lclptr339);
 
7727
        return;
 
7728
        }
 
7729
}
 
7730
/*      local function DO-CLASS */
 
7731
 
 
7732
static void L123(base0)
 
7733
register object *base0;
 
7734
{       register object *base=vs_base;
 
7735
        register object *sup=base+VM132; VC132
 
7736
        vs_check;
 
7737
        {object V1042;
 
7738
        check_arg(1);
 
7739
        V1042=(base[0]);
 
7740
        vs_top=sup;
 
7741
        goto TTL;
 
7742
TTL:;
 
7743
        if((base0[2])==Cnil){
 
7744
        goto T2291;}
 
7745
        base[1]= (V1042);
 
7746
        vs_top=(vs_base=base+1)+1;
 
7747
        (void) (*Lnk309)(Lclptr309);
 
7748
        vs_top=sup;
 
7749
        V1044= vs_base[0];
 
7750
        goto T2289;
 
7751
        goto T2291;
 
7752
T2291:;
 
7753
        V1044= (*(LnkLI340))((V1042));
 
7754
        goto T2289;
 
7755
T2289:;
 
7756
        {
 
7757
        object V1043= V1044;
 
7758
        if(V1043==Cnil){
 
7759
        goto T2287;}
 
7760
        goto T2288;
 
7761
T2288:;
 
7762
        base[1]= (V1043->c.c_car);
 
7763
        vs_top=(vs_base=base+1)+1;
 
7764
        L123(base0);
 
7765
        vs_top=sup;
 
7766
        if((V1043=MMcdr(V1043))==Cnil){
 
7767
        goto T2287;}
 
7768
        goto T2288;}
 
7769
        goto T2287;
 
7770
T2287:;
 
7771
        base[1]= (V1042);
 
7772
        vs_top=(vs_base=base+1)+1;
 
7773
        {object _funobj = base0[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
7774
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
7775
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
7776
               else super_funcall_no_event(_funobj);}
 
7777
        return;
 
7778
        }
 
7779
}
 
7780
/*      local function COMPARE-CLASSES-FUNCTION */
 
7781
 
 
7782
static void LC106(base0)
 
7783
register object *base0;
 
7784
{       register object *base=vs_base;
 
7785
        register object *sup=base+VM133; VC133
 
7786
        vs_check;
 
7787
        {object V1045;
 
7788
        object V1046;
 
7789
        object V1047;
 
7790
        check_arg(3);
 
7791
        V1045=(base[0]);
 
7792
        V1046=(base[1]);
 
7793
        V1047=(base[2]);
 
7794
        vs_top=sup;
 
7795
        {object V1048;
 
7796
        V1048= Cnil;
 
7797
        {object V1049;
 
7798
        register object V1050;
 
7799
        V1049= (base0[0]->c.c_car);
 
7800
        V1050= CMPcar((V1049));
 
7801
        goto T2301;
 
7802
T2301:;
 
7803
        if(!(((V1049))==Cnil)){
 
7804
        goto T2302;}
 
7805
        goto T2297;
 
7806
        goto T2302;
 
7807
T2302:;
 
7808
        if(!((CMPcar((V1050)))==((V1045)))){
 
7809
        goto T2308;}
 
7810
        if((CMPcadr((V1050)))==((V1046))){
 
7811
        goto T2307;}
 
7812
        goto T2308;
 
7813
T2308:;
 
7814
        if(!((CMPcar((V1050)))==((V1046)))){
 
7815
        goto T2306;}
 
7816
        if(!((CMPcadr((V1050)))==((V1045)))){
 
7817
        goto T2306;}
 
7818
        goto T2307;
 
7819
T2307:;
 
7820
        V1048= (V1050);
 
7821
        goto T2297;
 
7822
        goto T2306;
 
7823
T2306:;
 
7824
        V1049= CMPcdr((V1049));
 
7825
        V1050= CMPcar((V1049));
 
7826
        goto T2301;}
 
7827
        goto T2297;
 
7828
T2297:;
 
7829
        if(((V1048))!=Cnil){
 
7830
        goto T2321;}
 
7831
        if(((*(LnkLI341))((V1045),(V1046)))==Cnil){
 
7832
        goto T2327;}
 
7833
        if(((*(LnkLI341))((V1046),(V1045)))==Cnil){
 
7834
        goto T2330;}
 
7835
        V1048= list(4,(V1045),(V1046),Cnil,Ct);
 
7836
        goto T2325;
 
7837
        goto T2330;
 
7838
T2330:;
 
7839
        V1048= list(3,(V1045),(V1046),Ct);
 
7840
        goto T2325;
 
7841
        goto T2327;
 
7842
T2327:;
 
7843
        if(((*(LnkLI341))((V1046),(V1045)))==Cnil){
 
7844
        goto T2333;}
 
7845
        V1048= list(3,(V1046),(V1045),Ct);
 
7846
        goto T2325;
 
7847
        goto T2333;
 
7848
T2333:;
 
7849
        {object V1051;
 
7850
        object V1052;
 
7851
        base[3]= (V1045);
 
7852
        vs_top=(vs_base=base+3)+1;
 
7853
        (void) (*Lnk342)(Lclptr342);
 
7854
        vs_top=sup;
 
7855
        V1051= vs_base[0];
 
7856
        base[3]= (V1046);
 
7857
        vs_top=(vs_base=base+3)+1;
 
7858
        (void) (*Lnk342)(Lclptr342);
 
7859
        vs_top=sup;
 
7860
        V1052= vs_base[0];
 
7861
        if(((V1051))==Cnil){
 
7862
        goto T2340;}
 
7863
        if(((V1052))==Cnil){
 
7864
        goto T2340;}
 
7865
        if(!(type_of((V1051))==t_symbol)){
 
7866
        goto T2340;}
 
7867
        if(!(type_of((V1052))==t_symbol)){
 
7868
        goto T2340;}
 
7869
        base[3]= symbol_name((V1051));
 
7870
        base[4]= symbol_name((V1052));
 
7871
        vs_top=(vs_base=base+3)+2;
 
7872
        Lstring_l();
 
7873
        vs_top=sup;
 
7874
        if((vs_base[0])==Cnil){
 
7875
        goto T2340;}
 
7876
        V1048= list(3,(V1045),(V1046),Ct);
 
7877
        goto T2325;
 
7878
        goto T2340;
 
7879
T2340:;
 
7880
        V1048= list(3,(V1046),(V1045),Ct);}
 
7881
        goto T2325;
 
7882
T2325:;
 
7883
        (base0[0]->c.c_car)= make_cons(V1048,(base0[0]->c.c_car));
 
7884
        goto T2321;
 
7885
T2321:;
 
7886
        base[3]= CMPcar((V1048));
 
7887
        vs_top=(vs_base=base+3)+1;
 
7888
        return;}
 
7889
        }
 
7890
}
 
7891
/*      local function SORTER   */
 
7892
 
 
7893
static void LC103(base0)
 
7894
register object *base0;
 
7895
{       register object *base=vs_base;
 
7896
        register object *sup=base+VM134; VC134
 
7897
        vs_check;
 
7898
        {register object V1054;
 
7899
        register object V1055;
 
7900
        check_arg(2);
 
7901
        V1054=(base[0]);
 
7902
        V1055=(base[1]);
 
7903
        vs_top=sup;
 
7904
        {register object V1056;
 
7905
        register object V1057;
 
7906
        V1056= (base0[0]->c.c_car);
 
7907
        V1057= CMPcar((V1056));
 
7908
        goto T2356;
 
7909
T2356:;
 
7910
        if(!(((V1056))==Cnil)){
 
7911
        goto T2357;}
 
7912
        base[3]= Cnil;
 
7913
        vs_top=(vs_base=base+3)+1;
 
7914
        return;
 
7915
        goto T2357;
 
7916
T2357:;
 
7917
        {register object V1058;
 
7918
        object V1059;
 
7919
        register object V1060;
 
7920
        if(!(type_of((V1054))==t_cons||((V1054))==Cnil)){
 
7921
        goto T2365;}
 
7922
        V1061= (VFUN_NARGS=2,(*(LnkLI291))((V1054),Ct));
 
7923
        goto T2363;
 
7924
        goto T2365;
 
7925
T2365:;
 
7926
        base[6]= (V1054);
 
7927
        vs_top=(vs_base=base+6)+1;
 
7928
        (void) (*Lnk259)(Lclptr259);
 
7929
        vs_top=sup;
 
7930
        V1061= vs_base[0];
 
7931
        goto T2363;
 
7932
T2363:;
 
7933
        V1058= nth(fix((V1057)),V1061);
 
7934
        if(!(type_of((V1055))==t_cons||((V1055))==Cnil)){
 
7935
        goto T2371;}
 
7936
        V1062= (VFUN_NARGS=2,(*(LnkLI291))((V1055),Ct));
 
7937
        goto T2369;
 
7938
        goto T2371;
 
7939
T2371:;
 
7940
        base[6]= (V1055);
 
7941
        vs_top=(vs_base=base+6)+1;
 
7942
        (void) (*Lnk259)(Lclptr259);
 
7943
        vs_top=sup;
 
7944
        V1062= vs_base[0];
 
7945
        goto T2369;
 
7946
T2369:;
 
7947
        V1059= nth(fix((V1057)),V1062);
 
7948
        base[6]= (V1058);
 
7949
        base[7]= (V1059);
 
7950
        base[8]= (V1057);
 
7951
        base[9]= (base0[1]->c.c_car);
 
7952
        vs_top=(vs_base=base+6)+4;
 
7953
        (void) (*Lnk343)();
 
7954
        vs_top=sup;
 
7955
        V1060= vs_base[0];
 
7956
        if(((V1060))==Cnil){
 
7957
        goto T2361;}
 
7958
        base[6]= (((V1060))==((V1058))?Ct:Cnil);
 
7959
        vs_top=(vs_base=base+6)+1;
 
7960
        return;}
 
7961
        goto T2361;
 
7962
T2361:;
 
7963
        V1056= CMPcdr((V1056));
 
7964
        V1057= CMPcar((V1056));
 
7965
        goto T2356;}
 
7966
        }
 
7967
}
 
7968
/*      local function CLOSURE  */
 
7969
 
 
7970
static void LC164(base0)
 
7971
register object *base0;
 
7972
{       register object *base=vs_base;
 
7973
        register object *sup=base+VM135; VC135
 
7974
        vs_check;
 
7975
        {object V1063;
 
7976
        object V1064;
 
7977
        object V1065;
 
7978
        check_arg(3);
 
7979
        V1063=(base[0]);
 
7980
        V1064=(base[1]);
 
7981
        V1065=(base[2]);
 
7982
        vs_top=sup;
 
7983
        {object V1066;
 
7984
        object V1067;
 
7985
        V1066= (*(LnkLI305))(nth(fix((V1065)),(base0[0]->c.c_car)));
 
7986
        if(!(((VV[79]->s.s_dbind))==(VV[80]))){
 
7987
        goto T2389;}
 
7988
        base[5]= (V1066);
 
7989
        vs_top=(vs_base=base+5)+1;
 
7990
        (void) (*Lnk280)(Lclptr280);
 
7991
        vs_top=sup;
 
7992
        V1067= vs_base[0];
 
7993
        goto T2387;
 
7994
        goto T2389;
 
7995
T2389:;
 
7996
        V1067= (*(LnkLI279))((V1066));
 
7997
        goto T2387;
 
7998
T2387:;
 
7999
        {register object x= (V1063),V1070= (V1067);
 
8000
        while(V1070!=Cnil)
 
8001
        if(x==(V1070->c.c_car)){
 
8002
        V1069= V1070;
 
8003
        goto T2395;
 
8004
        }else V1070=V1070->c.c_cdr;
 
8005
        V1069= Cnil;}
 
8006
        goto T2395;
 
8007
T2395:;
 
8008
        {register object x= (V1064),V1068= V1069;
 
8009
        while(V1068!=Cnil)
 
8010
        if(x==(V1068->c.c_car)){
 
8011
        goto T2394;
 
8012
        }else V1068=V1068->c.c_cdr;
 
8013
        goto T2393;}
 
8014
        goto T2394;
 
8015
T2394:;
 
8016
        base[5]= (V1063);
 
8017
        vs_top=(vs_base=base+5)+1;
 
8018
        return;
 
8019
        goto T2393;
 
8020
T2393:;
 
8021
        base[5]= (V1064);
 
8022
        vs_top=(vs_base=base+5)+1;
 
8023
        return;}
 
8024
        }
 
8025
}
 
8026
/*      local function CLOSURE  */
 
8027
 
 
8028
static void LC163(base0)
 
8029
register object *base0;
 
8030
{       register object *base=vs_base;
 
8031
        register object *sup=base+VM136; VC136
 
8032
        vs_check;
 
8033
        {object V1071;
 
8034
        object V1072;
 
8035
        check_arg(2);
 
8036
        V1071=(base[0]);
 
8037
        V1072=(base[1]);
 
8038
        vs_top=sup;
 
8039
        {register object V1073;
 
8040
        object V1074;
 
8041
        if(((base0[3]->c.c_car))==Cnil){
 
8042
        goto T2398;}
 
8043
        V1073= (*(LnkLI279))((V1071));
 
8044
        goto T2396;
 
8045
        goto T2398;
 
8046
T2398:;
 
8047
        base[4]= (V1071);
 
8048
        vs_top=(vs_base=base+4)+1;
 
8049
        (void) (*Lnk280)(Lclptr280);
 
8050
        vs_top=sup;
 
8051
        V1073= vs_base[0];
 
8052
        goto T2396;
 
8053
T2396:;
 
8054
        V1074= CMPcar((V1073));
 
8055
        goto T2403;
 
8056
T2403:;
 
8057
        if(!(((V1073))==Cnil)){
 
8058
        goto T2404;}
 
8059
        base[4]= VV[153];
 
8060
        vs_top=(vs_base=base+4)+1;
 
8061
        Lerror();
 
8062
        return;
 
8063
        goto T2404;
 
8064
T2404:;
 
8065
        {object V1075;
 
8066
        {register object x= (V1074),V1076= (V1072);
 
8067
        while(V1076!=Cnil)
 
8068
        if(EQ(x,V1076->c.c_car->c.c_car) &&V1076->c.c_car != Cnil){
 
8069
        V1075= (V1076->c.c_car);
 
8070
        goto T2410;
 
8071
        }else V1076=V1076->c.c_cdr;
 
8072
        V1075= Cnil;}
 
8073
        goto T2410;
 
8074
T2410:;
 
8075
        if(((V1075))==Cnil){
 
8076
        goto T2409;}
 
8077
        {object V1077;
 
8078
        register object V1078;
 
8079
        V1077= CMPcdr((V1075));
 
8080
        if(((base0[3]->c.c_car))==Cnil){
 
8081
        goto T2416;}
 
8082
        V1078= (*(LnkLI289))((V1077));
 
8083
        goto T2414;
 
8084
        goto T2416;
 
8085
T2416:;
 
8086
        base[6]= (V1077);
 
8087
        vs_top=(vs_base=base+6)+1;
 
8088
        (void) (*Lnk290)(Lclptr290);
 
8089
        vs_top=sup;
 
8090
        V1078= vs_base[0];
 
8091
        goto T2414;
 
8092
T2414:;
 
8093
        if(((V1078))!=Cnil){
 
8094
        goto T2419;}
 
8095
        {frame_ptr fr;
 
8096
        fr=frs_sch((base0[6]->c.c_car));
 
8097
        if(fr==NULL) FEerror("The block ~s is missing.",1,VV[252]);
 
8098
        base[6]= Cnil;
 
8099
        vs_top=(vs_base=base+6)+1;
 
8100
        unwind(fr,Cnil);}
 
8101
        goto T2419;
 
8102
T2419:;
 
8103
        {object V1080;
 
8104
        V1080= (base0[7]->c.c_car);
 
8105
        base[6]= V1071;
 
8106
        base[7]= (V1080);
 
8107
        base[8]= V1078;
 
8108
        vs_top=(vs_base=base+6)+3;
 
8109
        siLhash_set();
 
8110
        vs_top=sup;}
 
8111
        if(!(type_of((V1078))==t_cons)){
 
8112
        goto T2428;}
 
8113
        (base0[4]->c.c_car)= Cnil;
 
8114
        goto T2428;
 
8115
T2428:;
 
8116
        if(((base0[5]->c.c_car))==Cnil){
 
8117
        goto T2434;}
 
8118
        if(!(eql((base0[5]->c.c_car),(V1078)))){
 
8119
        goto T2435;}
 
8120
        goto T2434;
 
8121
T2434:;
 
8122
        (base0[5]->c.c_car)= (V1078);
 
8123
        goto T2433;
 
8124
        goto T2435;
 
8125
T2435:;
 
8126
        (base0[5]->c.c_car)= Ct;
 
8127
        goto T2433;
 
8128
T2433:;
 
8129
        (base0[0]->c.c_car)= CMPmake_fixnum((long)(fix((base0[0]->c.c_car)))+(1));
 
8130
        if(!((fix((base0[0]->c.c_car)))==(1))){
 
8131
        goto T2443;}
 
8132
        (base0[2]->c.c_car)= (V1071);
 
8133
        goto T2441;
 
8134
        goto T2443;
 
8135
T2443:;
 
8136
        if(!((fix((base0[0]->c.c_car)))==(2))){
 
8137
        goto T2441;}
 
8138
        (base0[1]->c.c_car)= (V1071);
 
8139
        goto T2441;
 
8140
T2441:;
 
8141
        base[6]= Cnil;
 
8142
        vs_top=(vs_base=base+6)+1;
 
8143
        return;}}
 
8144
        goto T2409;
 
8145
T2409:;
 
8146
        V1073= CMPcdr((V1073));
 
8147
        V1074= CMPcar((V1073));
 
8148
        goto T2403;}
 
8149
        }
 
8150
}
 
8151
/*      local function CLOSURE  */
 
8152
 
 
8153
static void LC162(base0)
 
8154
register object *base0;
 
8155
{       register object *base=vs_base;
 
8156
        register object *sup=base+VM137; VC137
 
8157
        vs_check;
 
8158
        {register object V1082;
 
8159
        object V1083;
 
8160
        check_arg(2);
 
8161
        V1082=(base[0]);
 
8162
        V1083=(base[1]);
 
8163
        vs_top=sup;
 
8164
        {object V1084;
 
8165
        if(((base0[5]->c.c_car))==Cnil){
 
8166
        goto T2456;}
 
8167
        V1084= (*(LnkLI279))((V1082));
 
8168
        goto T2454;
 
8169
        goto T2456;
 
8170
T2456:;
 
8171
        base[2]= (V1082);
 
8172
        vs_top=(vs_base=base+2)+1;
 
8173
        (void) (*Lnk280)(Lclptr280);
 
8174
        vs_top=sup;
 
8175
        V1084= vs_base[0];
 
8176
        goto T2454;
 
8177
T2454:;
 
8178
        {register object x= (base0[1]->c.c_car),V1085= (V1084);
 
8179
        while(V1085!=Cnil)
 
8180
        if(x==(V1085->c.c_car)){
 
8181
        goto T2461;
 
8182
        }else V1085=V1085->c.c_cdr;
 
8183
        goto T2460;}
 
8184
        goto T2461;
 
8185
T2461:;
 
8186
        if(((base0[0]->c.c_car))!=Cnil){
 
8187
        goto T2464;}
 
8188
        {register object x= (VV[148]->s.s_dbind),V1086= (V1084);
 
8189
        while(V1086!=Cnil)
 
8190
        if(eql(x,V1086->c.c_car)){
 
8191
        goto T2467;
 
8192
        }else V1086=V1086->c.c_cdr;
 
8193
        goto T2463;}
 
8194
        goto T2467;
 
8195
T2467:;
 
8196
        goto T2464;
 
8197
T2464:;
 
8198
        if(((base0[5]->c.c_car))!=Cnil){
 
8199
        goto T2462;}
 
8200
        base[2]= (V1083);
 
8201
        base[3]= (base0[10]->c.c_car);
 
8202
        vs_top=(vs_base=base+2)+2;
 
8203
        (void) (*Lnk288)(Lclptr288);
 
8204
        vs_top=sup;
 
8205
        if((vs_base[0])!=Cnil){
 
8206
        goto T2462;}
 
8207
        goto T2463;
 
8208
T2463:;
 
8209
        {frame_ptr fr;
 
8210
        fr=frs_sch((base0[8]->c.c_car));
 
8211
        if(fr==NULL) FEerror("The block ~s is missing.",1,VV[252]);
 
8212
        base[2]= Cnil;
 
8213
        vs_top=(vs_base=base+2)+1;
 
8214
        unwind(fr,Cnil);}
 
8215
        goto T2462;
 
8216
T2462:;
 
8217
        {object V1087;
 
8218
        object V1089;
 
8219
        object V1090;
 
8220
        V1087= make_cons((base0[1]->c.c_car),(V1083));
 
8221
        V1089= (base0[9]->c.c_car);
 
8222
        base[4]= V1082;
 
8223
        base[5]= (V1089);
 
8224
        vs_top=(vs_base=base+4)+2;
 
8225
        Lgethash();
 
8226
        vs_top=sup;
 
8227
        V1091= vs_base[0];
 
8228
        V1090= make_cons((V1087),V1091);
 
8229
        base[4]= V1082;
 
8230
        base[5]= (V1089);
 
8231
        base[6]= (V1090);
 
8232
        vs_top=(vs_base=base+4)+3;
 
8233
        siLhash_set();
 
8234
        return;}
 
8235
        goto T2460;
 
8236
T2460:;
 
8237
        base[2]= Cnil;
 
8238
        vs_top=(vs_base=base+2)+1;
 
8239
        return;}
 
8240
        }
 
8241
}
 
8242
/*      local function CLOSURE  */
 
8243
 
 
8244
static void LC161(base0)
 
8245
register object *base0;
 
8246
{       register object *base=vs_base;
 
8247
        register object *sup=base+VM138; VC138
 
8248
        vs_check;
 
8249
        {object V1092;
 
8250
        check_arg(1);
 
8251
        V1092=(base[0]);
 
8252
        vs_top=sup;
 
8253
        base[1]= (base0[2]->c.c_car);
 
8254
        base[2]= (V1092);
 
8255
        vs_top=(vs_base=base+1)+2;
 
8256
        cclosure_call((base0[1]->c.c_car));
 
8257
        return;
 
8258
        }
 
8259
}
 
8260
/*      local function N-N      */
 
8261
 
 
8262
static void LC85(base0)
 
8263
register object *base0;
 
8264
{       register object *base=vs_base;
 
8265
        register object *sup=base+VM139; VC139
 
8266
        vs_check;
 
8267
        {object V1093;
 
8268
        if(vs_top-vs_base>1) too_many_arguments();
 
8269
        if(vs_base>=vs_top){vs_top=sup;goto T2485;}
 
8270
        V1093=(base[0]);
 
8271
        vs_top=sup;
 
8272
        goto T2486;
 
8273
        goto T2485;
 
8274
T2485:;
 
8275
        V1093= Cnil;
 
8276
        goto T2486;
 
8277
T2486:;
 
8278
        if(!(type_of((base0[1]->c.c_car))==t_cons)){
 
8279
        goto T2489;}
 
8280
        {object V1094;
 
8281
        object V1095;
 
8282
        object V1096;
 
8283
        base[1]= (base0[4]->c.c_car);
 
8284
        base[2]= (base0[3]->c.c_car);
 
8285
        vs_top=(vs_base=base+1)+2;
 
8286
        (void) (*Lnk210)();
 
8287
        if(vs_base>=vs_top){vs_top=sup;goto T2494;}
 
8288
        V1094= vs_base[0];
 
8289
        vs_base++;
 
8290
        if(vs_base>=vs_top){vs_top=sup;goto T2495;}
 
8291
        V1095= vs_base[0];
 
8292
        vs_base++;
 
8293
        if(vs_base>=vs_top){vs_top=sup;goto T2496;}
 
8294
        V1096= vs_base[0];
 
8295
        vs_top=sup;
 
8296
        goto T2497;
 
8297
        goto T2494;
 
8298
T2494:;
 
8299
        V1094= Cnil;
 
8300
        goto T2495;
 
8301
T2495:;
 
8302
        V1095= Cnil;
 
8303
        goto T2496;
 
8304
T2496:;
 
8305
        V1096= Cnil;
 
8306
        goto T2497;
 
8307
T2497:;
 
8308
        base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[4]->c.c_car),(V1094),(V1095),(V1096)));
 
8309
        vs_top=(vs_base=base+1)+1;
 
8310
        return;}
 
8311
        goto T2489;
 
8312
T2489:;
 
8313
        {object V1097;
 
8314
        object V1098;
 
8315
        object V1099;
 
8316
        base[1]= (base0[4]->c.c_car);
 
8317
        base[2]= (base0[2]->c.c_car);
 
8318
        base[3]= (V1093);
 
8319
        vs_top=(vs_base=base+1)+3;
 
8320
        (void) (*Lnk199)();
 
8321
        if(vs_base>=vs_top){vs_top=sup;goto T2502;}
 
8322
        V1097= vs_base[0];
 
8323
        vs_base++;
 
8324
        if(vs_base>=vs_top){vs_top=sup;goto T2503;}
 
8325
        V1098= vs_base[0];
 
8326
        vs_base++;
 
8327
        if(vs_base>=vs_top){vs_top=sup;goto T2504;}
 
8328
        V1099= vs_base[0];
 
8329
        vs_top=sup;
 
8330
        goto T2505;
 
8331
        goto T2502;
 
8332
T2502:;
 
8333
        V1097= Cnil;
 
8334
        goto T2503;
 
8335
T2503:;
 
8336
        V1098= Cnil;
 
8337
        goto T2504;
 
8338
T2504:;
 
8339
        V1099= Cnil;
 
8340
        goto T2505;
 
8341
T2505:;
 
8342
        base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[4]->c.c_car),(V1097),(V1098),(V1099)));
 
8343
        vs_top=(vs_base=base+1)+1;
 
8344
        return;}
 
8345
        }
 
8346
}
 
8347
/*      local function ONE-INDEX        */
 
8348
 
 
8349
static void LC84(base0)
 
8350
register object *base0;
 
8351
{       register object *base=vs_base;
 
8352
        register object *sup=base+VM140; VC140
 
8353
        vs_check;
 
8354
        {object V1100;
 
8355
        object V1101;
 
8356
        if(vs_top-vs_base<1) too_few_arguments();
 
8357
        if(vs_top-vs_base>2) too_many_arguments();
 
8358
        V1100=(base[0]);
 
8359
        vs_base=vs_base+1;
 
8360
        if(vs_base>=vs_top){vs_top=sup;goto T2506;}
 
8361
        V1101=(base[1]);
 
8362
        vs_top=sup;
 
8363
        goto T2507;
 
8364
        goto T2506;
 
8365
T2506:;
 
8366
        V1101= Cnil;
 
8367
        goto T2507;
 
8368
T2507:;
 
8369
        {object V1102;
 
8370
        object V1103;
 
8371
        object V1104;
 
8372
        base[2]= (base0[3]->c.c_car);
 
8373
        base[3]= (base0[1]->c.c_car);
 
8374
        base[4]= (V1100);
 
8375
        base[5]= (V1101);
 
8376
        vs_top=(vs_base=base+2)+4;
 
8377
        (void) (*Lnk195)();
 
8378
        if(vs_base>=vs_top){vs_top=sup;goto T2514;}
 
8379
        V1102= vs_base[0];
 
8380
        vs_base++;
 
8381
        if(vs_base>=vs_top){vs_top=sup;goto T2515;}
 
8382
        V1103= vs_base[0];
 
8383
        vs_base++;
 
8384
        if(vs_base>=vs_top){vs_top=sup;goto T2516;}
 
8385
        V1104= vs_base[0];
 
8386
        vs_top=sup;
 
8387
        goto T2517;
 
8388
        goto T2514;
 
8389
T2514:;
 
8390
        V1102= Cnil;
 
8391
        goto T2515;
 
8392
T2515:;
 
8393
        V1103= Cnil;
 
8394
        goto T2516;
 
8395
T2516:;
 
8396
        V1104= Cnil;
 
8397
        goto T2517;
 
8398
T2517:;
 
8399
        base[2]= (VFUN_NARGS=4,(*(LnkLI47))((base0[3]->c.c_car),(V1102),(V1103),(V1104)));
 
8400
        vs_top=(vs_base=base+2)+1;
 
8401
        return;}
 
8402
        }
 
8403
}
 
8404
/*      local function DO-FILL  */
 
8405
 
 
8406
static void L87(base0)
 
8407
register object *base0;
 
8408
{       register object *base=vs_base;
 
8409
        register object *sup=base+VM141; VC141
 
8410
        vs_check;
 
8411
        {object V1105;
 
8412
        check_arg(1);
 
8413
        V1105=(base[0]);
 
8414
        vs_top=sup;
 
8415
        goto TTL;
 
8416
TTL:;
 
8417
        {object V1106;
 
8418
        V1106= (VFUN_NARGS=3,(*(LnkLI264))(base0[6],base0[9],(base0[11]->c.c_car)));
 
8419
        if(((V1106))==(base0[6])){
 
8420
        goto T2520;}
 
8421
        base[1]= (V1106);
 
8422
        vs_top=(vs_base=base+1)+1;
 
8423
        {object _funobj = (V1105);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
8424
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
8425
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
8426
               else super_funcall_no_event(_funobj);}
 
8427
        return;
 
8428
        goto T2520;
 
8429
T2520:;
 
8430
        base[1]= Cnil;
 
8431
        vs_top=(vs_base=base+1)+1;
 
8432
        return;}
 
8433
        }
 
8434
}
 
8435
/*      local function CACHING  */
 
8436
 
 
8437
static void L86(base0)
 
8438
register object *base0;
 
8439
{       register object *base=vs_base;
 
8440
        register object *sup=base+VM142; VC142
 
8441
        vs_check;
 
8442
        check_arg(0);
 
8443
        vs_top=sup;
 
8444
        goto TTL;
 
8445
TTL:;
 
8446
        {object V1107;
 
8447
        object V1108;
 
8448
        object V1109;
 
8449
        base[0]= (base0[0]->c.c_car);
 
8450
        vs_top=(vs_base=base+0)+1;
 
8451
        (void) (*Lnk201)();
 
8452
        if(vs_base>=vs_top){vs_top=sup;goto T2525;}
 
8453
        V1107= vs_base[0];
 
8454
        vs_base++;
 
8455
        if(vs_base>=vs_top){vs_top=sup;goto T2526;}
 
8456
        V1108= vs_base[0];
 
8457
        vs_base++;
 
8458
        if(vs_base>=vs_top){vs_top=sup;goto T2527;}
 
8459
        V1109= vs_base[0];
 
8460
        vs_top=sup;
 
8461
        goto T2528;
 
8462
        goto T2525;
 
8463
T2525:;
 
8464
        V1107= Cnil;
 
8465
        goto T2526;
 
8466
T2526:;
 
8467
        V1108= Cnil;
 
8468
        goto T2527;
 
8469
T2527:;
 
8470
        V1109= Cnil;
 
8471
        goto T2528;
 
8472
T2528:;
 
8473
        base[0]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1107),(V1108),(V1109)));
 
8474
        vs_top=(vs_base=base+0)+1;
 
8475
        return;}
 
8476
}
 
8477
/*      local function N-N      */
 
8478
 
 
8479
static void L85(base0)
 
8480
register object *base0;
 
8481
{       register object *base=vs_base;
 
8482
        register object *sup=base+VM143; VC143
 
8483
        vs_check;
 
8484
        {object V1110;
 
8485
        if(vs_top-vs_base>1) too_many_arguments();
 
8486
        if(vs_base>=vs_top){vs_top=sup;goto T2529;}
 
8487
        V1110=(base[0]);
 
8488
        vs_top=sup;
 
8489
        goto T2530;
 
8490
        goto T2529;
 
8491
T2529:;
 
8492
        V1110= Cnil;
 
8493
        goto T2530;
 
8494
T2530:;
 
8495
        if(!(type_of((base0[11]->c.c_car))==t_cons)){
 
8496
        goto T2533;}
 
8497
        {object V1111;
 
8498
        object V1112;
 
8499
        object V1113;
 
8500
        base[1]= (base0[0]->c.c_car);
 
8501
        base[2]= (base0[8]->c.c_car);
 
8502
        vs_top=(vs_base=base+1)+2;
 
8503
        (void) (*Lnk210)();
 
8504
        if(vs_base>=vs_top){vs_top=sup;goto T2538;}
 
8505
        V1111= vs_base[0];
 
8506
        vs_base++;
 
8507
        if(vs_base>=vs_top){vs_top=sup;goto T2539;}
 
8508
        V1112= vs_base[0];
 
8509
        vs_base++;
 
8510
        if(vs_base>=vs_top){vs_top=sup;goto T2540;}
 
8511
        V1113= vs_base[0];
 
8512
        vs_top=sup;
 
8513
        goto T2541;
 
8514
        goto T2538;
 
8515
T2538:;
 
8516
        V1111= Cnil;
 
8517
        goto T2539;
 
8518
T2539:;
 
8519
        V1112= Cnil;
 
8520
        goto T2540;
 
8521
T2540:;
 
8522
        V1113= Cnil;
 
8523
        goto T2541;
 
8524
T2541:;
 
8525
        base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1111),(V1112),(V1113)));
 
8526
        vs_top=(vs_base=base+1)+1;
 
8527
        return;}
 
8528
        goto T2533;
 
8529
T2533:;
 
8530
        {object V1114;
 
8531
        object V1115;
 
8532
        object V1116;
 
8533
        base[1]= (base0[0]->c.c_car);
 
8534
        base[2]= (base0[10]->c.c_car);
 
8535
        base[3]= (V1110);
 
8536
        vs_top=(vs_base=base+1)+3;
 
8537
        (void) (*Lnk199)();
 
8538
        if(vs_base>=vs_top){vs_top=sup;goto T2546;}
 
8539
        V1114= vs_base[0];
 
8540
        vs_base++;
 
8541
        if(vs_base>=vs_top){vs_top=sup;goto T2547;}
 
8542
        V1115= vs_base[0];
 
8543
        vs_base++;
 
8544
        if(vs_base>=vs_top){vs_top=sup;goto T2548;}
 
8545
        V1116= vs_base[0];
 
8546
        vs_top=sup;
 
8547
        goto T2549;
 
8548
        goto T2546;
 
8549
T2546:;
 
8550
        V1114= Cnil;
 
8551
        goto T2547;
 
8552
T2547:;
 
8553
        V1115= Cnil;
 
8554
        goto T2548;
 
8555
T2548:;
 
8556
        V1116= Cnil;
 
8557
        goto T2549;
 
8558
T2549:;
 
8559
        base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1114),(V1115),(V1116)));
 
8560
        vs_top=(vs_base=base+1)+1;
 
8561
        return;}
 
8562
        }
 
8563
}
 
8564
/*      local function ONE-INDEX        */
 
8565
 
 
8566
static void L84(base0)
 
8567
register object *base0;
 
8568
{       register object *base=vs_base;
 
8569
        register object *sup=base+VM144; VC144
 
8570
        vs_check;
 
8571
        {object V1117;
 
8572
        object V1118;
 
8573
        if(vs_top-vs_base<1) too_few_arguments();
 
8574
        if(vs_top-vs_base>2) too_many_arguments();
 
8575
        V1117=(base[0]);
 
8576
        vs_base=vs_base+1;
 
8577
        if(vs_base>=vs_top){vs_top=sup;goto T2550;}
 
8578
        V1118=(base[1]);
 
8579
        vs_top=sup;
 
8580
        goto T2551;
 
8581
        goto T2550;
 
8582
T2550:;
 
8583
        V1118= Cnil;
 
8584
        goto T2551;
 
8585
T2551:;
 
8586
        {object V1119;
 
8587
        object V1120;
 
8588
        object V1121;
 
8589
        base[2]= (base0[0]->c.c_car);
 
8590
        base[3]= (base0[10]->c.c_car);
 
8591
        base[4]= (V1117);
 
8592
        base[5]= (V1118);
 
8593
        vs_top=(vs_base=base+2)+4;
 
8594
        (void) (*Lnk195)();
 
8595
        if(vs_base>=vs_top){vs_top=sup;goto T2558;}
 
8596
        V1119= vs_base[0];
 
8597
        vs_base++;
 
8598
        if(vs_base>=vs_top){vs_top=sup;goto T2559;}
 
8599
        V1120= vs_base[0];
 
8600
        vs_base++;
 
8601
        if(vs_base>=vs_top){vs_top=sup;goto T2560;}
 
8602
        V1121= vs_base[0];
 
8603
        vs_top=sup;
 
8604
        goto T2561;
 
8605
        goto T2558;
 
8606
T2558:;
 
8607
        V1119= Cnil;
 
8608
        goto T2559;
 
8609
T2559:;
 
8610
        V1120= Cnil;
 
8611
        goto T2560;
 
8612
T2560:;
 
8613
        V1121= Cnil;
 
8614
        goto T2561;
 
8615
T2561:;
 
8616
        base[2]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1119),(V1120),(V1121)));
 
8617
        vs_top=(vs_base=base+2)+1;
 
8618
        return;}
 
8619
        }
 
8620
}
 
8621
/*      local function TWO-CLASS        */
 
8622
 
 
8623
static void L83(base0)
 
8624
register object *base0;
 
8625
{       register object *base=vs_base;
 
8626
        register object *sup=base+VM145; VC145
 
8627
        vs_check;
 
8628
        {object V1122;
 
8629
        object V1123;
 
8630
        object V1124;
 
8631
        check_arg(3);
 
8632
        V1122=(base[0]);
 
8633
        V1123=(base[1]);
 
8634
        V1124=(base[2]);
 
8635
        vs_top=sup;
 
8636
        goto TTL;
 
8637
TTL:;
 
8638
        base[3]= small_fixnum(2);
 
8639
        vs_top=(vs_base=base+3)+1;
 
8640
        Lrandom();
 
8641
        vs_top=sup;
 
8642
        V1125= vs_base[0];
 
8643
        if(!(number_compare(small_fixnum(0),V1125)==0)){
 
8644
        goto T2562;}
 
8645
        {object V1126;
 
8646
        object V1127;
 
8647
        V1126= (V1124);
 
8648
        V1127= (V1123);
 
8649
        V1123= (V1126);
 
8650
        V1124= (V1127);}
 
8651
        goto T2562;
 
8652
T2562:;
 
8653
        {object V1128;
 
8654
        object V1129;
 
8655
        object V1130;
 
8656
        base[3]= (base0[0]->c.c_car);
 
8657
        base[4]= (base0[10]->c.c_car);
 
8658
        base[5]= (V1123);
 
8659
        base[6]= (V1124);
 
8660
        base[7]= (V1122);
 
8661
        vs_top=(vs_base=base+3)+5;
 
8662
        (void) (*Lnk254)();
 
8663
        if(vs_base>=vs_top){vs_top=sup;goto T2579;}
 
8664
        V1128= vs_base[0];
 
8665
        vs_base++;
 
8666
        if(vs_base>=vs_top){vs_top=sup;goto T2580;}
 
8667
        V1129= vs_base[0];
 
8668
        vs_base++;
 
8669
        if(vs_base>=vs_top){vs_top=sup;goto T2581;}
 
8670
        V1130= vs_base[0];
 
8671
        vs_top=sup;
 
8672
        goto T2582;
 
8673
        goto T2579;
 
8674
T2579:;
 
8675
        V1128= Cnil;
 
8676
        goto T2580;
 
8677
T2580:;
 
8678
        V1129= Cnil;
 
8679
        goto T2581;
 
8680
T2581:;
 
8681
        V1130= Cnil;
 
8682
        goto T2582;
 
8683
T2582:;
 
8684
        base[3]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1128),(V1129),(V1130)));
 
8685
        vs_top=(vs_base=base+3)+1;
 
8686
        return;}
 
8687
        }
 
8688
}
 
8689
/*      local function CLOSURE  */
 
8690
 
 
8691
static void LC160(base0)
 
8692
register object *base0;
 
8693
{       register object *base=vs_base;
 
8694
        register object *sup=base+VM146; VC146
 
8695
        vs_check;
 
8696
        {object V1131;
 
8697
        check_arg(1);
 
8698
        V1131=(base[0]);
 
8699
        vs_top=sup;
 
8700
        base[1]= (V1131);
 
8701
        vs_top=(vs_base=base+1)+1;
 
8702
        (void) (*Lnk259)(Lclptr259);
 
8703
        vs_top=sup;
 
8704
        V1132= vs_base[0];
 
8705
        base[1]= (equal((base0[0]->c.c_car),V1132)?Ct:Cnil);
 
8706
        vs_top=(vs_base=base+1)+1;
 
8707
        return;
 
8708
        }
 
8709
}
 
8710
/*      local function CLOSURE  */
 
8711
 
 
8712
static void LC159(base0)
 
8713
register object *base0;
 
8714
{       register object *base=vs_base;
 
8715
        register object *sup=base+VM147; VC147
 
8716
        vs_check;
 
8717
        {object V1133;
 
8718
        check_arg(1);
 
8719
        V1133=(base[0]);
 
8720
        vs_top=sup;
 
8721
        base[1]= (((V1133))==((VV[135]->s.s_dbind))?Ct:Cnil);
 
8722
        vs_top=(vs_base=base+1)+1;
 
8723
        return;
 
8724
        }
 
8725
}
 
8726
/*      local function CLOSURE  */
 
8727
 
 
8728
static void LC158(base0)
 
8729
register object *base0;
 
8730
{       register object *base=vs_base;
 
8731
        register object *sup=base+VM148; VC148
 
8732
        vs_check;
 
8733
        {object V1134;
 
8734
        vs_top[0]=Cnil;
 
8735
        {object *p=vs_top;
 
8736
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
8737
        V1134=(base[0]);
 
8738
        vs_top=sup;
 
8739
        base[1]=VV[339]->s.s_gfdef;
 
8740
        base[2]= (base0[1]->c.c_car);
 
8741
        {object V1135;
 
8742
        V1135= (V1134);
 
8743
         vs_top=base+3;
 
8744
         while(V1135!=Cnil)
 
8745
         {vs_push((V1135)->c.c_car);V1135=(V1135)->c.c_cdr;}
 
8746
        vs_base=base+2;}
 
8747
        (void) (*Lnk339)(Lclptr339);
 
8748
        return;
 
8749
        }
 
8750
}
 
8751
/*      local function CLOSURE  */
 
8752
 
 
8753
static void LC157(base0)
 
8754
register object *base0;
 
8755
{       register object *base=vs_base;
 
8756
        register object *sup=base+VM149; VC149
 
8757
        vs_check;
 
8758
        {object V1136;
 
8759
        check_arg(1);
 
8760
        V1136=(base[0]);
 
8761
        vs_top=sup;
 
8762
        if(!(type_of((V1136))==t_cons)){
 
8763
        goto T2588;}{object V1137;
 
8764
        V1137= (VV[132]->s.s_dbind);
 
8765
        V1138= (*(LnkLI281))((V1136));
 
8766
        base[1]= ((V1137)==(/* INLINE-ARGS */V1138)?Ct:Cnil);
 
8767
        vs_top=(vs_base=base+1)+1;
 
8768
        return;}
 
8769
        goto T2588;
 
8770
T2588:;
 
8771
        base[1]= (V1136);
 
8772
        vs_top=(vs_base=base+1)+1;
 
8773
        (void) (*Lnk344)(Lclptr344);
 
8774
        return;
 
8775
        }
 
8776
}
 
8777
/*      local function CLOSURE  */
 
8778
 
 
8779
static void LC156(base0)
 
8780
register object *base0;
 
8781
{       register object *base=vs_base;
 
8782
        register object *sup=base+VM150; VC150
 
8783
        vs_check;
 
8784
        {object V1139;
 
8785
        check_arg(1);
 
8786
        V1139=(base[0]);
 
8787
        vs_top=sup;
 
8788
        if(!(type_of((V1139))==t_cons)){
 
8789
        goto T2592;}{object V1140;
 
8790
        V1140= (VV[131]->s.s_dbind);
 
8791
        V1141= (*(LnkLI281))((V1139));
 
8792
        base[1]= ((V1140)==(/* INLINE-ARGS */V1141)?Ct:Cnil);
 
8793
        vs_top=(vs_base=base+1)+1;
 
8794
        return;}
 
8795
        goto T2592;
 
8796
T2592:;
 
8797
        base[1]= (V1139);
 
8798
        vs_top=(vs_base=base+1)+1;
 
8799
        (void) (*Lnk345)(Lclptr345);
 
8800
        return;
 
8801
        }
 
8802
}
 
8803
/*      local function CLOSURE  */
 
8804
 
 
8805
static void LC155(base0)
 
8806
register object *base0;
 
8807
{       register object *base=vs_base;
 
8808
        register object *sup=base+VM151; VC151
 
8809
        vs_check;
 
8810
        {object V1142;
 
8811
        object V1143;
 
8812
        check_arg(2);
 
8813
        V1142=(base[0]);
 
8814
        V1143=(base[1]);
 
8815
        vs_top=sup;
 
8816
        {register object V1144;
 
8817
        object V1145;
 
8818
        V1144= (*(LnkLI306))((V1143));
 
8819
        if(type_of(V1144)==t_structure){
 
8820
        goto T2601;}
 
8821
        goto T2599;
 
8822
        goto T2601;
 
8823
T2601:;
 
8824
        if(!(((V1144)->str.str_def)==(VV[112]))){
 
8825
        goto T2599;}
 
8826
        V1146= STREF(object,(V1144),4);
 
8827
        goto T2597;
 
8828
        goto T2599;
 
8829
T2599:;{object V1148;
 
8830
        V1148= (VV[73]->s.s_dbind);
 
8831
        base[4]= small_fixnum(14);
 
8832
        base[5]= (V1144);
 
8833
        vs_top=(vs_base=base+4)+2;
 
8834
        (void) (*Lnk214)();
 
8835
        vs_top=sup;
 
8836
        V1149= vs_base[0];
 
8837
        if(!((V1148)==(CMPcar(V1149)))){
 
8838
        goto T2604;}}
 
8839
        V1146= CMPcar(((V1144))->cc.cc_turbo[12]);
 
8840
        goto T2597;
 
8841
        goto T2604;
 
8842
T2604:;
 
8843
        base[4]= VV[74];
 
8844
        vs_top=(vs_base=base+4)+1;
 
8845
        Lerror();
 
8846
        vs_top=sup;
 
8847
        V1146= vs_base[0];
 
8848
        goto T2597;
 
8849
T2597:;
 
8850
        V1150= (*(LnkLI297))(VV[8],VV[110]);
 
8851
        V1145= (V1146)->v.v_self[fix(/* INLINE-ARGS */V1150)];
 
8852
        base[4]= (*(LnkLI346))((V1145),(V1143),(base0[0]->c.c_car),(V1142));
 
8853
        vs_top=(vs_base=base+4)+1;
 
8854
        return;}
 
8855
        }
 
8856
}
 
8857
/*      local function CLOSURE  */
 
8858
 
 
8859
static void LC154(base0)
 
8860
register object *base0;
 
8861
{       register object *base=vs_base;
 
8862
        register object *sup=base+VM152; VC152
 
8863
        vs_check;
 
8864
        {register object V1151;
 
8865
        check_arg(1);
 
8866
        V1151=(base[0]);
 
8867
        vs_top=sup;
 
8868
        {register object V1152;
 
8869
        object V1153;
 
8870
        V1152= (*(LnkLI306))((V1151));
 
8871
        if(type_of(V1152)==t_structure){
 
8872
        goto T2616;}
 
8873
        goto T2614;
 
8874
        goto T2616;
 
8875
T2616:;
 
8876
        if(!(((V1152)->str.str_def)==(VV[109]))){
 
8877
        goto T2614;}
 
8878
        V1154= STREF(object,(V1152),4);
 
8879
        goto T2612;
 
8880
        goto T2614;
 
8881
T2614:;{object V1156;
 
8882
        V1156= (VV[73]->s.s_dbind);
 
8883
        base[3]= small_fixnum(14);
 
8884
        base[4]= (V1152);
 
8885
        vs_top=(vs_base=base+3)+2;
 
8886
        (void) (*Lnk214)();
 
8887
        vs_top=sup;
 
8888
        V1157= vs_base[0];
 
8889
        if(!((V1156)==(CMPcar(V1157)))){
 
8890
        goto T2619;}}
 
8891
        V1154= CMPcar(((V1152))->cc.cc_turbo[12]);
 
8892
        goto T2612;
 
8893
        goto T2619;
 
8894
T2619:;
 
8895
        base[3]= VV[74];
 
8896
        vs_top=(vs_base=base+3)+1;
 
8897
        Lerror();
 
8898
        vs_top=sup;
 
8899
        V1154= vs_base[0];
 
8900
        goto T2612;
 
8901
T2612:;
 
8902
        V1158= (*(LnkLI297))(VV[8],VV[110]);
 
8903
        V1153= (V1154)->v.v_self[fix(/* INLINE-ARGS */V1158)];
 
8904
        if(type_of(V1151)==t_structure){
 
8905
        goto T2629;}
 
8906
        goto T2627;
 
8907
        goto T2629;
 
8908
T2629:;
 
8909
        if(!(((V1151)->str.str_def)==(VV[111]))){
 
8910
        goto T2627;}
 
8911
        V1159= STREF(object,(V1151),4);
 
8912
        goto T2625;
 
8913
        goto T2627;
 
8914
T2627:;{object V1161;
 
8915
        V1161= (VV[73]->s.s_dbind);
 
8916
        base[3]= small_fixnum(14);
 
8917
        base[4]= (V1151);
 
8918
        vs_top=(vs_base=base+3)+2;
 
8919
        (void) (*Lnk214)();
 
8920
        vs_top=sup;
 
8921
        V1162= vs_base[0];
 
8922
        if(!((V1161)==(CMPcar(V1162)))){
 
8923
        goto T2632;}}
 
8924
        V1159= CMPcar(((V1151))->cc.cc_turbo[12]);
 
8925
        goto T2625;
 
8926
        goto T2632;
 
8927
T2632:;
 
8928
        base[3]= VV[74];
 
8929
        vs_top=(vs_base=base+3)+1;
 
8930
        Lerror();
 
8931
        vs_top=sup;
 
8932
        V1159= vs_base[0];
 
8933
        goto T2625;
 
8934
T2625:;
 
8935
        V1163= (*(LnkLI297))((V1153),(base0[0]->c.c_car));
 
8936
        base[3]= (V1159)->v.v_self[fix(/* INLINE-ARGS */V1163)];
 
8937
        vs_top=(vs_base=base+3)+1;
 
8938
        return;}
 
8939
        }
 
8940
}
 
8941
/*      local function CLOSURE  */
 
8942
 
 
8943
static void LC153(base0)
 
8944
register object *base0;
 
8945
{       register object *base=vs_base;
 
8946
        register object *sup=base+VM153; VC153
 
8947
        vs_check;
 
8948
        {object V1164;
 
8949
        vs_top[0]=Cnil;
 
8950
        {object *p=vs_top;
 
8951
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
8952
        V1164=(base[0]);
 
8953
        vs_top=sup;
 
8954
        base[1]= (base0[0]->c.c_car);
 
8955
        base[2]= (V1164);
 
8956
        vs_top=(vs_base=base+1)+2;
 
8957
        (void) (*Lnk347)();
 
8958
        return;
 
8959
        }
 
8960
}
 
8961
/*      local function CLOSURE  */
 
8962
 
 
8963
static void LC152(base0)
 
8964
register object *base0;
 
8965
{       register object *base=vs_base;
 
8966
        register object *sup=base+VM154; VC154
 
8967
        vs_check;
 
8968
        {object V1165;
 
8969
        object V1166;
 
8970
        check_arg(2);
 
8971
        V1165=(base[0]);
 
8972
        V1166=(base[1]);
 
8973
        vs_top=sup;
 
8974
        base[2]= (V1165);
 
8975
        vs_top=(vs_base=base+2)+1;
 
8976
        (void) (*Lnk253)(Lclptr253);
 
8977
        vs_top=sup;
 
8978
        V1167= vs_base[0];
 
8979
        (base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI264))((base0[0]->c.c_car),V1167,(V1166),Ct));
 
8980
        base[2]= (base0[0]->c.c_car);
 
8981
        vs_top=(vs_base=base+2)+1;
 
8982
        return;
 
8983
        }
 
8984
}
 
8985
/*      local function CLOSURE  */
 
8986
 
 
8987
static void LC151(base0)
 
8988
register object *base0;
 
8989
{       register object *base=vs_base;
 
8990
        register object *sup=base+VM155; VC155
 
8991
        vs_check;
 
8992
        {object V1168;
 
8993
        object V1169;
 
8994
        object V1170;
 
8995
        object V1171;
 
8996
        check_arg(4);
 
8997
        V1168=(base[0]);
 
8998
        V1169=(base[1]);
 
8999
        V1170=(base[2]);
 
9000
        V1171=(base[3]);
 
9001
        vs_top=sup;
 
9002
        {object V1172;
 
9003
        object V1173;
 
9004
        if(!((VV[8])==(CMPcar((V1169))))){
 
9005
        goto T2645;}
 
9006
        {object V1174;
 
9007
        object V1175;
 
9008
        V1174= (*(LnkLI306))(CMPcadr((V1169)));
 
9009
        base[8]= (V1174);
 
9010
        vs_top=(vs_base=base+8)+1;
 
9011
        (void) (*Lnk280)(Lclptr280);
 
9012
        vs_top=sup;
 
9013
        V1175= vs_base[0];
 
9014
        {register object x= (VV[84]->s.s_dbind),V1176= (V1175);
 
9015
        while(V1176!=Cnil)
 
9016
        if(x==(V1176->c.c_car)){
 
9017
        goto T2652;
 
9018
        }else V1176=V1176->c.c_cdr;
 
9019
        goto T2651;}
 
9020
        goto T2652;
 
9021
T2652:;
 
9022
        V1172= (VV[85]->s.s_dbind);
 
9023
        goto T2643;
 
9024
        goto T2651;
 
9025
T2651:;
 
9026
        {register object x= (VV[86]->s.s_dbind),V1177= (V1175);
 
9027
        while(V1177!=Cnil)
 
9028
        if(x==(V1177->c.c_car)){
 
9029
        goto T2655;
 
9030
        }else V1177=V1177->c.c_cdr;
 
9031
        goto T2654;}
 
9032
        goto T2655;
 
9033
T2655:;
 
9034
        V1172= (VV[87]->s.s_dbind);
 
9035
        goto T2643;
 
9036
        goto T2654;
 
9037
T2654:;
 
9038
        V1172= (VV[88]->s.s_dbind);
 
9039
        goto T2643;}
 
9040
        goto T2645;
 
9041
T2645:;
 
9042
        V1172= small_fixnum(0);
 
9043
        goto T2643;
 
9044
T2643:;
 
9045
        V1173= number_plus((number_compare((V1170),(V1171))>=0?((V1170)):(V1171)),(V1172));
 
9046
        if(((base0[1]->c.c_car))==Cnil){
 
9047
        goto T2657;}
 
9048
        if(!(number_compare((base0[1]->c.c_car),(V1173))<=0)){
 
9049
        goto T2657;}
 
9050
        {frame_ptr fr;
 
9051
        fr=frs_sch((base0[0]->c.c_car));
 
9052
        if(fr==NULL) FEerror("The block ~s is missing.",1,VV[226]);
 
9053
        base[6]= (V1173);
 
9054
        vs_top=(vs_base=base+6)+1;
 
9055
        unwind(fr,Cnil);}
 
9056
        goto T2657;
 
9057
T2657:;
 
9058
        base[6]= (V1173);
 
9059
        vs_top=(vs_base=base+6)+1;
 
9060
        return;}
 
9061
        }
 
9062
}
 
9063
/*      local function CLOSURE  */
 
9064
 
 
9065
static void LC150(base0)
 
9066
register object *base0;
 
9067
{       register object *base=vs_base;
 
9068
        register object *sup=base+VM156; VC156
 
9069
        vs_check;
 
9070
        {object V1178;
 
9071
        object V1179;
 
9072
        check_arg(2);
 
9073
        V1178=(base[0]);
 
9074
        V1179=(base[1]);
 
9075
        vs_top=sup;
 
9076
        base[2]= small_fixnum(0);
 
9077
        vs_top=(vs_base=base+2)+1;
 
9078
        return;
 
9079
        }
 
9080
}
 
9081
/*      local function CLOSURE  */
 
9082
 
 
9083
static void LC149(base0)
 
9084
register object *base0;
 
9085
{       register object *base=vs_base;
 
9086
        register object *sup=base+VM157; VC157
 
9087
        vs_check;
 
9088
        {object V1180;
 
9089
        vs_top[0]=Cnil;
 
9090
        {object *p=vs_top;
 
9091
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
9092
        V1180=(base[0]);
 
9093
        vs_top=sup;
 
9094
        base[1]= (base0[1]->c.c_car);
 
9095
        base[2]= (V1180);
 
9096
        base[3]= (base0[0]->c.c_car);
 
9097
        vs_top=(vs_base=base+1)+3;
 
9098
        (void) (*Lnk348)();
 
9099
        return;
 
9100
        }
 
9101
}
 
9102
/*      local function CLOSURE  */
 
9103
 
 
9104
static void LC148(base0)
 
9105
register object *base0;
 
9106
{       register object *base=vs_base;
 
9107
        register object *sup=base+VM158; VC158
 
9108
        vs_check;
 
9109
        {register object V1181;
 
9110
        check_arg(1);
 
9111
        V1181=(base[0]);
 
9112
        vs_top=sup;{object V1182;
 
9113
        if(((VV[79]->s.s_dbind))==(VV[80])){
 
9114
        goto T2668;}
 
9115
        V1182= Cnil;
 
9116
        goto T2667;
 
9117
        goto T2668;
 
9118
T2668:;
 
9119
        base[1]= (VV[326]->s.s_gfdef);
 
9120
        base[3]= (V1181);
 
9121
        vs_top=(vs_base=base+3)+1;
 
9122
        (void) (*Lnk259)(Lclptr259);
 
9123
        vs_top=sup;
 
9124
        base[2]= vs_base[0];
 
9125
        vs_top=(vs_base=base+1)+2;
 
9126
        (void) (*Lnk217)();
 
9127
        vs_top=sup;
 
9128
        V1182= vs_base[0];
 
9129
        goto T2667;
 
9130
T2667:;
 
9131
        if(V1182==Cnil)goto T2666;
 
9132
        base[1]= V1182;
 
9133
        vs_top=(vs_base=base+1)+1;
 
9134
        return;
 
9135
        goto T2666;
 
9136
T2666:;}
 
9137
        {object V1183;
 
9138
        if(((base0[1]->c.c_car))==Cnil){
 
9139
        goto T2676;}{object V1185;
 
9140
        V1185= CMPcaddr((V1181));
 
9141
        if(V1185==Cnil)goto T2678;
 
9142
        V1184= V1185;
 
9143
        goto T2674;
 
9144
        goto T2678;
 
9145
T2678:;}
 
9146
        V1184= CMPcadr((V1181));
 
9147
        goto T2674;
 
9148
        goto T2676;
 
9149
T2676:;{object V1186;
 
9150
        base[1]= (V1181);
 
9151
        vs_top=(vs_base=base+1)+1;
 
9152
        (void) (*Lnk349)(Lclptr349);
 
9153
        vs_top=sup;
 
9154
        V1186= vs_base[0];
 
9155
        if(V1186==Cnil)goto T2680;
 
9156
        V1184= V1186;
 
9157
        goto T2674;
 
9158
        goto T2680;
 
9159
T2680:;}
 
9160
        base[1]= (V1181);
 
9161
        vs_top=(vs_base=base+1)+1;
 
9162
        (void) (*Lnk350)(Lclptr350);
 
9163
        vs_top=sup;
 
9164
        V1184= vs_base[0];
 
9165
        goto T2674;
 
9166
T2674:;
 
9167
        V1183= (VFUN_NARGS=3,(*(LnkLI266))(V1184,VV[81],(base0[0]->c.c_car)));
 
9168
        if(((base0[2]->c.c_car))==Cnil){
 
9169
        goto T2685;}
 
9170
        if(!(((V1183))==(Ct))){
 
9171
        goto T2688;}
 
9172
        V1187= Ct;
 
9173
        goto T2687;
 
9174
        goto T2688;
 
9175
T2688:;
 
9176
        V1187= (((V1183))==(Cnil)?Ct:Cnil);
 
9177
        goto T2687;
 
9178
T2687:;
 
9179
        base[1]= ((V1187)==Cnil?Ct:Cnil);
 
9180
        vs_top=(vs_base=base+1)+1;
 
9181
        return;
 
9182
        goto T2685;
 
9183
T2685:;
 
9184
        base[1]= (((V1183))==((base0[0]->c.c_car))?Ct:Cnil);
 
9185
        vs_top=(vs_base=base+1)+1;
 
9186
        return;}
 
9187
        }
 
9188
}
 
9189
/*      local function CLOSURE  */
 
9190
 
 
9191
static void LC147(base0)
 
9192
register object *base0;
 
9193
{       register object *base=vs_base;
 
9194
        register object *sup=base+VM159; VC159
 
9195
        vs_check;
 
9196
        {object V1188;
 
9197
        vs_top[0]=Cnil;
 
9198
        {object *p=vs_top;
 
9199
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
9200
        V1188=(base[0]);
 
9201
        vs_top=sup;
 
9202
        base[1]= (base0[1]->c.c_car);
 
9203
        base[2]= (V1188);
 
9204
        base[3]= (base0[0]->c.c_car);
 
9205
        vs_top=(vs_base=base+1)+3;
 
9206
        (void) (*Lnk351)();
 
9207
        return;
 
9208
        }
 
9209
}
 
9210
/*      local function CLOSURE  */
 
9211
 
 
9212
static void LC146(base0)
 
9213
register object *base0;
 
9214
{       register object *base=vs_base;
 
9215
        register object *sup=base+VM160; VC160
 
9216
        vs_check;
 
9217
        {object V1189;
 
9218
        check_arg(1);
 
9219
        V1189=(base[0]);
 
9220
        vs_top=sup;
 
9221
        {object V1190;
 
9222
        if(!(type_of((V1189))==t_cons||((V1189))==Cnil)){
 
9223
        goto T2695;}
 
9224
        V1190= CMPcaddr((V1189));
 
9225
        goto T2693;
 
9226
        goto T2695;
 
9227
T2695:;
 
9228
        base[1]= (V1189);
 
9229
        vs_top=(vs_base=base+1)+1;
 
9230
        (void) (*Lnk349)(Lclptr349);
 
9231
        vs_top=sup;
 
9232
        V1190= vs_base[0];
 
9233
        goto T2693;
 
9234
T2693:;
 
9235
        base[1]= (VFUN_NARGS=2,(*(LnkLI266))((V1190),VV[70]));
 
9236
        vs_top=(vs_base=base+1)+1;
 
9237
        return;}
 
9238
        }
 
9239
}
 
9240
/*      local function CLOSURE  */
 
9241
 
 
9242
static void LC145(base0)
 
9243
register object *base0;
 
9244
{       register object *base=vs_base;
 
9245
        register object *sup=base+VM161; VC161
 
9246
        vs_check;
 
9247
        {object V1191;
 
9248
        check_arg(1);
 
9249
        V1191=(base[0]);
 
9250
        vs_top=sup;
 
9251
        base[1]= (((V1191))==(Ct)?Ct:Cnil);
 
9252
        vs_top=(vs_base=base+1)+1;
 
9253
        return;
 
9254
        }
 
9255
}
 
9256
/*      local function CLOSURE  */
 
9257
 
 
9258
static void LC144(base0)
 
9259
register object *base0;
 
9260
{       register object *base=vs_base;
 
9261
        register object *sup=base+VM162; VC162
 
9262
        vs_check;
 
9263
        {object V1192;
 
9264
        vs_top[0]=Cnil;
 
9265
        {object *p=vs_top;
 
9266
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
9267
        V1192=(base[0]);
 
9268
        vs_top=sup;
 
9269
        base[1]= (base0[0]->c.c_car);
 
9270
        base[2]= (V1192);
 
9271
        vs_top=(vs_base=base+1)+2;
 
9272
        (void) (*Lnk102)();
 
9273
        return;
 
9274
        }
 
9275
}
 
9276
/*      local function CLOSURE  */
 
9277
 
 
9278
static void LC143(base0)
 
9279
register object *base0;
 
9280
{       register object *base=vs_base;
 
9281
        register object *sup=base+VM163; VC163
 
9282
        vs_check;
 
9283
        {object V1193;
 
9284
        check_arg(1);
 
9285
        V1193=(base[0]);
 
9286
        vs_top=sup;
 
9287
        base[1]= (((V1193))==(Ct)?Ct:Cnil);
 
9288
        vs_top=(vs_base=base+1)+1;
 
9289
        return;
 
9290
        }
 
9291
}
 
9292
/*      local function CLOSURE  */
 
9293
 
 
9294
static void LC142(base0)
 
9295
register object *base0;
 
9296
{       register object *base=vs_base;
 
9297
        register object *sup=base+VM164; VC164
 
9298
        vs_check;
 
9299
        {object V1194;
 
9300
        vs_top[0]=Cnil;
 
9301
        {object *p=vs_top;
 
9302
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
9303
        V1194=(base[0]);
 
9304
        vs_top=sup;
 
9305
        base[1]= (base0[1]->c.c_car);
 
9306
        base[2]= (V1194);
 
9307
        base[3]= (base0[0]->c.c_car);
 
9308
        vs_top=(vs_base=base+1)+3;
 
9309
        (void) (*Lnk352)();
 
9310
        return;
 
9311
        }
 
9312
}
 
9313
/*      local function CLOSURE  */
 
9314
 
 
9315
static void LC141(base0)
 
9316
register object *base0;
 
9317
{       register object *base=vs_base;
 
9318
        register object *sup=base+VM165; VC165
 
9319
        vs_check;
 
9320
        {object V1195;
 
9321
        check_arg(1);
 
9322
        V1195=(base[0]);
 
9323
        vs_top=sup;
 
9324
        base[1]= (((V1195))==(Ct)?Ct:Cnil);
 
9325
        vs_top=(vs_base=base+1)+1;
 
9326
        return;
 
9327
        }
 
9328
}
 
9329
/*      local function CLOSURE  */
 
9330
 
 
9331
static void LC140(base0)
 
9332
register object *base0;
 
9333
{       register object *base=vs_base;
 
9334
        register object *sup=base+VM166; VC166
 
9335
        vs_check;
 
9336
        {object V1196;
 
9337
        object V1197;
 
9338
        check_arg(2);
 
9339
        V1196=(base[0]);
 
9340
        V1197=(base[1]);
 
9341
        vs_top=sup;
 
9342
        base[2]= (base0[0]->c.c_car);
 
9343
        base[3]= (V1196);
 
9344
        base[4]= (V1197);
 
9345
        base[5]= (base0[1]->c.c_car);
 
9346
        vs_top=(vs_base=base+2)+4;
 
9347
        (void) (*Lnk353)();
 
9348
        return;
 
9349
        }
 
9350
}
 
9351
/*      local function CLOSURE  */
 
9352
 
 
9353
static void LC139(base0)
 
9354
register object *base0;
 
9355
{       register object *base=vs_base;
 
9356
        register object *sup=base+VM167; VC167
 
9357
        vs_check;
 
9358
        {object V1198;
 
9359
        check_arg(1);
 
9360
        V1198=(base[0]);
 
9361
        vs_top=sup;
 
9362
        base[1]= (base0[0]->c.c_car);
 
9363
        base[2]= Cnil;
 
9364
        base[3]= (V1198);
 
9365
        base[4]= (base0[1]->c.c_car);
 
9366
        vs_top=(vs_base=base+1)+4;
 
9367
        (void) (*Lnk353)();
 
9368
        return;
 
9369
        }
 
9370
}
 
9371
static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* ACCESSOR-MISS */
 
9372
static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* CHECKING-MISS */
 
9373
static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* CACHING-MISS */
 
9374
static void LnkT350(ptr) object *ptr;{ call_or_link_closure(VV[350],(void **)(void *)&Lnk350,(void **)(void *)&Lclptr350);} /* METHOD-FUNCTION */
 
9375
static void LnkT349(ptr) object *ptr;{ call_or_link_closure(VV[349],(void **)(void *)&Lnk349,(void **)(void *)&Lclptr349);} /* METHOD-FAST-FUNCTION */
 
9376
static void LnkT348(){ call_or_link(VV[348],(void **)(void *)&Lnk348);} /* CONSTANT-VALUE-MISS */
 
9377
static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* INITIAL-DFUN */
 
9378
static object  LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[346],(void **)(void *)&LnkLI346,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */
 
9379
static void LnkT345(ptr) object *ptr;{ call_or_link_closure(VV[345],(void **)(void *)&Lnk345,(void **)(void *)&Lclptr345);} /* STANDARD-READER-METHOD-P */
 
9380
static void LnkT344(ptr) object *ptr;{ call_or_link_closure(VV[344],(void **)(void *)&Lnk344,(void **)(void *)&Lclptr344);} /* STANDARD-WRITER-METHOD-P */
 
9381
static void LnkT343(){ call_or_link(VV[343],(void **)(void *)&Lnk343);} /* ORDER-SPECIALIZERS */
 
9382
static void LnkT342(ptr) object *ptr;{ call_or_link_closure(VV[342],(void **)(void *)&Lnk342,(void **)(void *)&Lclptr342);} /* CLASS-NAME */
 
9383
static object  LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,2,first,ap);va_end(ap);return V1;} /* CLASS-MIGHT-PRECEDE-P */
 
9384
static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)(void *)&LnkLI340,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DIRECT-SUBCLASSES */
 
9385
static void LnkT339(ptr) object *ptr;{ call_or_link_closure(VV[339],(void **)(void *)&Lnk339,(void **)(void *)&Lclptr339);} /* NO-APPLICABLE-METHOD */
 
9386
static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* SORT */
 
9387
static object  LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* MAP-ALL-GENERIC-FUNCTIONS */
 
9388
static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */
 
9389
static object  LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */
 
9390
static void LnkT329(ptr) object *ptr;{ call_or_link_closure(VV[329],(void **)(void *)&Lnk329,(void **)(void *)&Lclptr329);} /* COMPUTE-DISCRIMINATING-FUNCTION */
 
9391
static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* MAKE-INITIAL-DFUN */
 
9392
static object  LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */
 
9393
static void LnkT326(ptr) object *ptr;{ call_or_link_closure(VV[326],(void **)(void *)&Lnk326,(void **)(void *)&Lclptr326);} /* EQL-SPECIALIZER-P */
 
9394
static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[325],(void **)(void *)&LnkLI325,first,ap);va_end(ap);return V1;} /* COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */
 
9395
static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* GENERATE-DISCRIMINATION-NET */
 
9396
static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,3,first,ap);va_end(ap);return V1;} /* STANDARD-COMPUTE-EFFECTIVE-METHOD */
 
9397
static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,4,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION1 */
 
9398
static object  LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,3,first,ap);va_end(ap);return V1;} /* COMPUTE-EFFECTIVE-METHOD */
 
9399
static void LnkT320(ptr) object *ptr;{ call_or_link_closure(VV[320],(void **)(void *)&Lnk320,(void **)(void *)&Lclptr320);} /* GENERIC-FUNCTION-METHOD-COMBINATION */
 
9400
static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,8,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION2 */
 
9401
static object  LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[318],(void **)(void *)&LnkLI318,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
 
9402
static void LnkT317(){ call_or_link(VV[317],(void **)(void *)&Lnk317);} /* SAUT-EQL */
 
9403
static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* SAUT-CLASS-EQ */
 
9404
static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* SAUT-PROTOTYPE */
 
9405
static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* SAUT-CLASS */
 
9406
static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* SAUT-NOT */
 
9407
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* SAUT-AND */
 
9408
static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* TYPE-FROM-SPECIALIZER */
 
9409
static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* CLASS-APPLICABLE-USING-CLASS-P */
 
9410
static void LnkT309(ptr) object *ptr;{ call_or_link_closure(VV[309],(void **)(void *)&Lnk309,(void **)(void *)&Lclptr309);} /* CLASS-DIRECT-SUBCLASSES */
 
9411
static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,2,first,ap);va_end(ap);return V1;} /* CLASSES-HAVE-COMMON-SUBCLASS-P */
 
9412
static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,2,first,ap);va_end(ap);return V1;} /* SUPERCLASSES-COMPATIBLE-P */
 
9413
static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
 
9414
static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* TYPE-CLASS */
 
9415
static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-EQL */
 
9416
static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-PROTOTYPE */
 
9417
static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS-EQ */
 
9418
static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS */
 
9419
static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* POSITION */
 
9420
static object  LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[299],(void **)(void *)&LnkLI299,2,first,ap);va_end(ap);return V1;} /* CLASS-CAN-PRECEDE-P */
 
9421
static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)(void *)&LnkLI297,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */
 
9422
static void LnkT296(ptr) object *ptr;{ call_or_link_closure(VV[296],(void **)(void *)&Lnk296,(void **)(void *)&Lclptr296);} /* SPECIALIZER-TYPE */
 
9423
static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* STABLE-SORT */
 
9424
static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)(void *)&LnkLI294,3,first,ap);va_end(ap);return V1;} /* SORT-METHODS */
 
9425
static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,3,first,ap);va_end(ap);return V1;} /* SORT-APPLICABLE-METHODS */
 
9426
static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */
 
9427
static void LnkT292(ptr) object *ptr;{ call_or_link_closure(VV[292],(void **)(void *)&Lnk292,(void **)(void *)&Lclptr292);} /* CLASS-FINALIZED-P */
 
9428
static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */
 
9429
static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* SLOT-DEFINITION-LOCATION */
 
9430
static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-LOCATION */
 
9431
static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* SLOT-ACCESSOR-STD-P */
 
9432
static object  LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */
 
9433
static object  LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)(void *)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-NAME */
 
9434
static object  LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[285],(void **)(void *)&LnkLI285,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTDS */
 
9435
static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* ACCESSOR-METHOD-SLOT-NAME */
 
9436
static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,1,first,ap);va_end(ap);return V1;} /* EARLY-ACCESSOR-METHOD-SLOT-NAME */
 
9437
static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* STANDARD-ACCESSOR-METHOD-P */
 
9438
static object  LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */
 
9439
static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* CLASS-PRECEDENCE-LIST */
 
9440
static object  LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-PRECEDENCE-LIST */
 
9441
static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-STANDARD-ACCESSOR-P */
 
9442
static void LnkT277(ptr) object *ptr;{ call_or_link_closure(VV[277],(void **)(void *)&Lnk277,(void **)(void *)&Lclptr277);} /* METHOD-QUALIFIERS */
 
9443
static object  LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */
 
9444
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* ACCESSOR-VALUES-INTERNAL */
 
9445
static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* ACCESSOR-VALUES */
 
9446
static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* DEFAULT-SECONDARY-DISPATCH-FUNCTION */
 
9447
static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* COMPUTE-APPLICABLE-METHODS-USING-CLASSES */
 
9448
static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* COMPUTE-APPLICABLE-METHODS-USING-TYPES */
 
9449
static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* CACHE-MISS-VALUES-INTERNAL */
 
9450
static object  LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)(void *)&LnkLI268,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */
 
9451
static object  LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */
 
9452
static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)(void *)&LnkLI266,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */
 
9453
static void LnkT265(){ call_or_link(VV[265],(void **)(void *)&Lnk265);} /* STRUCTURE-SUBTYPE-P */
 
9454
static object  LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[264],(void **)(void *)&LnkLI264,first,ap);va_end(ap);return V1;} /* FILL-CACHE */
 
9455
static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* MAKE-FINAL-CHECKING-DFUN */
 
9456
static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* GET-SECONDARY-DISPATCH-FUNCTION */
 
9457
static void LnkT261(){ call_or_link(VV[261],(void **)(void *)&Lnk261);} /* MAKE-FINAL-DISPATCH-DFUN */
 
9458
static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* MAKE-FINAL-CONSTANT-VALUE-DFUN */
 
9459
static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* METHOD-SPECIALIZERS */
 
9460
static object  LnkTLI258(){return call_proc0(VV[258],(void **)(void *)&LnkLI258);} /* NO-METHODS-DFUN-INFO */
 
9461
static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* MAKE-FINAL-CACHING-DFUN */
 
9462
static void LnkT256(){ call_or_link(VV[256],(void **)(void *)&Lnk256);} /* MAKE-FINAL-N-N-ACCESSOR-DFUN */
 
9463
static void LnkT255(){ call_or_link(VV[255],(void **)(void *)&Lnk255);} /* MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN */
 
9464
static void LnkT254(){ call_or_link(VV[254],(void **)(void *)&Lnk254);} /* MAKE-TWO-CLASS-ACCESSOR-DFUN */
 
9465
static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* CLASS-WRAPPER */
 
9466
static void LnkT252(){ call_or_link(VV[252],(void **)(void *)&Lnk252);} /* MAKE-ACCESSOR-TABLE */
 
9467
static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* INVOKE-EMF */
 
9468
static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* MAKE-ONE-CLASS-ACCESSOR-DFUN */
 
9469
static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* CACHE-MISS-VALUES */
 
9470
static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME */
 
9471
static object  LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* SET-DFUN */
 
9472
static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAKE-FINAL-ACCESSOR-DFUN */
 
9473
static object  LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,2,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-ACCESSOR */
 
9474
static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* FINAL-ACCESSOR-DFUN-TYPE */
 
9475
static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* MAKE-FINAL-DFUN-INTERNAL */
 
9476
static object  LnkTLI242(){return call_proc0(VV[242],(void **)(void *)&LnkLI242);} /* INITIAL-DFUN-INFO */
 
9477
static void LnkT241(){ call_or_link(VV[241],(void **)(void *)&Lnk241);} /* INSURE-CACHING-DFUN */
 
9478
static object  LnkTLI240(){return call_proc0(VV[240],(void **)(void *)&LnkLI240);} /* INITIAL-DISPATCH-DFUN-INFO */
 
9479
static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[239],(void **)(void *)&LnkLI239,first,ap);va_end(ap);return V1;} /* PRECOMPUTE-EFFECTIVE-METHODS */
 
9480
static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,5,first,ap);va_end(ap);return V1;} /* MAKE-EMF-CACHE */
 
9481
static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-CACHE */
 
9482
static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* COPY-CACHE */
 
9483
static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-INFO */
 
9484
static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-NKEYS */
 
9485
static object  LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[233],(void **)(void *)&LnkLI233,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION1 */
 
9486
static object  LnkTLI232(){return call_proc0(VV[232],(void **)(void *)&LnkLI232);} /* DISPATCH-DFUN-INFO */
 
9487
static void LnkT231(){ call_or_link(VV[231],(void **)(void *)&Lnk231);} /* GET-DISPATCH-FUNCTION */
 
9488
static object  LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* METHODS-CONTAIN-EQL-SPECIALIZER-P */
 
9489
static void LnkT229(){ call_or_link(VV[229],(void **)(void *)&Lnk229);} /* GENERATE-DISCRIMINATION-NET-INTERNAL */
 
9490
static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */
 
9491
static void LnkT226(){ call_or_link(VV[226],(void **)(void *)&Lnk226);} /* DISPATCH-DFUN-COST */
 
9492
static object  LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[225],(void **)(void *)&LnkLI225,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-COST */
 
9493
static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[224],(void **)(void *)&LnkLI224,1,first,ap);va_end(ap);return V1;} /* CONSTANT-VALUE-DFUN-INFO */
 
9494
static void LnkT223(){ call_or_link(VV[223],(void **)(void *)&Lnk223);} /* NOTANY */
 
9495
static object  LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[222],(void **)(void *)&LnkLI222,1,first,ap);va_end(ap);return V1;} /* COMPUTE-APPLICABLE-METHODS-EMF-STD-P */
 
9496
static object  LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-INFO */
 
9497
static void LnkT219(){ call_or_link(VV[219],(void **)(void *)&Lnk219);} /* MAKE-CONSTANT-VALUE-DFUN */
 
9498
static object  LnkTLI218(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[218],(void **)(void *)&LnkLI218,first,ap);va_end(ap);return V1;} /* USE-CONSTANT-VALUE-DFUN-P */
 
9499
static void LnkT217(){ call_or_link(VV[217],(void **)(void *)&Lnk217);} /* SOME */
 
9500
static void LnkT216(ptr) object *ptr;{ call_or_link_closure(VV[216],(void **)(void *)&Lnk216,(void **)(void *)&Lclptr216);} /* GENERIC-FUNCTION-METHODS */
 
9501
static object  LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
 
9502
static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* CCLOSURE-ENV-NTHCDR */
 
9503
static object  LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */
 
9504
static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* MAKE-CHECKING-DFUN */
 
9505
static object  LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,5,first,ap);va_end(ap);return V1;} /* MAKE-FINAL-ORDINARY-DFUN-INTERNAL */
 
9506
static object  LnkTLI208(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[208],(void **)(void *)&LnkLI208,2,first,ap);va_end(ap);return V1;} /* CHECKING-DFUN-INFO */
 
9507
static object  LnkTLI206(){return call_proc0(VV[206],(void **)(void *)&LnkLI206);} /* DEFAULT-METHOD-ONLY-DFUN-INFO */
 
9508
static void LnkT205(){ call_or_link(VV[205],(void **)(void *)&Lnk205);} /* EVERY */
 
9509
static void LnkT204(){ call_or_link(VV[204],(void **)(void *)&Lnk204);} /* GET-GENERIC-FUNCTION-INFO */
 
9510
static void LnkT203(){ call_or_link(VV[203],(void **)(void *)&Lnk203);} /* MAKE-DISPATCH-DFUN */
 
9511
static object  LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[202],(void **)(void *)&LnkLI202,first,ap);va_end(ap);return V1;} /* USE-DISPATCH-DFUN-P */
 
9512
static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* MAKE-CACHING-DFUN */
 
9513
static object  LnkTLI200(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[200],(void **)(void *)&LnkLI200,1,first,ap);va_end(ap);return V1;} /* USE-CACHING-DFUN-P */
 
9514
static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* MAKE-N-N-ACCESSOR-DFUN */
 
9515
static object  LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,2,first,ap);va_end(ap);return V1;} /* N-N-DFUN-INFO */
 
9516
static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */
 
9517
static void LnkT195(){ call_or_link(VV[195],(void **)(void *)&Lnk195);} /* MAKE-ONE-INDEX-ACCESSOR-DFUN */
 
9518
static object  LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[194],(void **)(void *)&LnkLI194,first,ap);va_end(ap);return V1;} /* FILL-DFUN-CACHE */
 
9519
static object  LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[35],(void **)(void *)&LnkLI35,3,first,ap);va_end(ap);return V1;} /* ONE-INDEX-DFUN-INFO */
 
9520
static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */
 
9521
static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,4,first,ap);va_end(ap);return V1;} /* TWO-CLASS-DFUN-INFO */
 
9522
static object  LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,2,first,ap);va_end(ap);return V1;} /* ACCESSOR-MISS-FUNCTION */
 
9523
static void LnkT189(){ call_or_link(VV[189],(void **)(void *)&Lnk189);} /* GET-DFUN-CONSTRUCTOR */
 
9524
static object  LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,3,first,ap);va_end(ap);return V1;} /* ONE-CLASS-DFUN-INFO */
 
9525
static void LnkT187(){ call_or_link(VV[187],(void **)(void *)&Lnk187);} /* ERROR */
 
9526
static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */
 
9527
static object  LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
 
9528
static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)(void *)&LnkLI47,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */
 
9529
static void LnkT178(ptr) object *ptr;{ call_or_link_closure(VV[178],(void **)(void *)&Lnk178,(void **)(void *)&Lclptr178);} /* GENERIC-FUNCTION-NAME */
 
9530
static void LnkT177(ptr) object *ptr;{ call_or_link_closure(VV[177],(void **)(void *)&Lnk177,(void **)(void *)&Lclptr177);} /* GF-ARG-INFO */
 
9531
static object  LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,1,first,ap);va_end(ap);return V1;} /* GFS-OF-TYPE */
 
9532
 
 
9533
#ifdef SYSTEM_SPECIAL_INIT
 
9534
SYSTEM_SPECIAL_INIT
 
9535
#endif
 
9536