← Back to branch summary

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

« back to all changes in this revision

Viewing changes to cmpnew/cmpflet.c

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

Show diffs side-by-side

added added

removed removed

Lines of Context:
cmpnew/cmpflet.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "cmpflet.h"
 
4
init_cmpflet(){do_init(VV);}
 
5
/*      local entry for function MAKE-FUN       */
 
6
 
 
7
static object LI1(va_alist)
 
8
        va_dcl 
 
9
{       
 
10
        va_list ap;
 
11
        int narg = VFUN_NARGS; VMB1 VMS1 VMV1
 
12
        {object V1;
 
13
        object V2;
 
14
        object V3;
 
15
        object V4;
 
16
        object V5;
 
17
        narg= narg - 0;
 
18
        va_start(ap);
 
19
        {
 
20
        parse_key_new(narg,Vcs +0,&LI1key,ap);
 
21
        V1=(Vcs[0]);
 
22
        V2=(Vcs[1]);
 
23
        V3=(Vcs[2]);
 
24
        V4=(Vcs[3]);
 
25
        V5=(Vcs[4]);
 
26
        base[0]= VV[0];
 
27
        base[1]= (V1);
 
28
        base[2]= (V2);
 
29
        base[3]= (V3);
 
30
        base[4]= (V4);
 
31
        base[5]= (V5);
 
32
        vs_top=(vs_base=base+0)+6;
 
33
        siLmake_structure();
 
34
        vs_top=sup;
 
35
        {object V6 = vs_base[0];
 
36
        VMR1(V6)}}
 
37
        }}
 
38
/*      local entry for function C1FLET */
 
39
 
 
40
static object LI2(V8)
 
41
 
 
42
object V8;
 
43
{        VMB2 VMS2 VMV2
 
44
        bds_check;
 
45
TTL:;
 
46
        {object V9;
 
47
        object V10;
 
48
        object V11;
 
49
        object V12;
 
50
        object V13;
 
51
        object V14;
 
52
        object V15;
 
53
        object V16;
 
54
        object V17;
 
55
        V9= Cnil;
 
56
        V10= Cnil;
 
57
        V11= Cnil;
 
58
        V12= Cnil;
 
59
        V13= Cnil;
 
60
        V14= Cnil;
 
61
        V15= Cnil;
 
62
        V16= Cnil;
 
63
        V17= Cnil;
 
64
        if(!(endp((V8)))){
 
65
        goto T16;}
 
66
        (void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0)));
 
67
T16:;
 
68
        bds_bind(VV[2],symbol_value(VV[2]));
 
69
        {register object V18;
 
70
        register object V19;
 
71
        V18= car((V8));
 
72
        V19= car((V18));
 
73
T24:;
 
74
        if(!(endp((V18)))){
 
75
        goto T25;}
 
76
        goto T20;
 
77
T25:;
 
78
        if(endp((V19))){
 
79
        goto T30;}
 
80
        if(!(type_of(car((V19)))==t_symbol)){
 
81
        goto T30;}
 
82
        if(!(endp(cdr((V19))))){
 
83
        goto T29;}
 
84
T30:;
 
85
        (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[3],(V19))));
 
86
T29:;
 
87
        {object V20;
 
88
        V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil));
 
89
        (VV[2]->s.s_dbind)= make_cons((V20),(VV[2]->s.s_dbind));
 
90
        V21= list(2,(V20),cdr((V19)));
 
91
        V15= make_cons(/* INLINE-ARGS */V21,(V15));}
 
92
        V18= cdr((V18));
 
93
        V19= car((V18));
 
94
        goto T24;}
 
95
T20:;
 
96
        base[1]= cdr((V8));
 
97
        base[2]= Ct;
 
98
        vs_top=(vs_base=base+1)+2;
 
99
        (void) (*Lnk45)();
 
100
        if(vs_base<vs_top){
 
101
        V9= vs_base[0];
 
102
        vs_base++;
 
103
        }else{
 
104
        V9= Cnil;}
 
105
        if(vs_base<vs_top){
 
106
        V10= vs_base[0];
 
107
        vs_base++;
 
108
        }else{
 
109
        V10= Cnil;}
 
110
        if(vs_base<vs_top){
 
111
        V11= vs_base[0];
 
112
        vs_base++;
 
113
        }else{
 
114
        V11= Cnil;}
 
115
        if(vs_base<vs_top){
 
116
        V12= vs_base[0];
 
117
        vs_base++;
 
118
        }else{
 
119
        V12= Cnil;}
 
120
        if(vs_base<vs_top){
 
121
        V13= vs_base[0];
 
122
        }else{
 
123
        V13= Cnil;}
 
124
        vs_top=sup;
 
125
        bds_bind(VV[7],symbol_value(VV[7]));
 
126
        (void)((*(LnkLI46))((V10)));
 
127
        (void)((*(LnkLI47))(Cnil,(V11),(V12)));
 
128
        V9= (*(LnkLI48))((V13),(V9));
 
129
        bds_unwind1;
 
130
        base[1]= cadr((V9));
 
131
        vs_top=(vs_base=base+1)+1;
 
132
        (void) (*Lnk49)();
 
133
        vs_top=sup;
 
134
        V14= vs_base[0];
 
135
        bds_unwind1;
 
136
        {register object V22;
 
137
        register object V23;
 
138
        V22= reverse((V15));
 
139
        V23= car((V22));
 
140
T60:;
 
141
        if(!(endp((V22)))){
 
142
        goto T61;}
 
143
        goto T56;
 
144
T61:;
 
145
        if((structure_ref(car((V23)),VV[0],2))==Cnil){
 
146
        goto T65;}
 
147
        base[2]= make_cons(VV[8],symbol_value(VV[7]));
 
148
        base[3]= make_cons(VV[8],symbol_value(VV[2]));
 
149
        base[4]= make_cons(VV[8],symbol_value(VV[9]));
 
150
        base[5]= make_cons(VV[8],symbol_value(VV[10]));
 
151
        bds_bind(VV[7],base[2]);
 
152
        bds_bind(VV[2],base[3]);
 
153
        bds_bind(VV[9],base[4]);
 
154
        bds_bind(VV[10],base[5]);
 
155
        {object V24;
 
156
        V25= cadr((V23));
 
157
        V26= structure_ref(car((V23)),VV[0],0);
 
158
        V24= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26));
 
159
        (void)((*(LnkLI51))((V14),cadr((V24))));
 
160
        V27= list(2,car((V23)),(V24));
 
161
        V17= make_cons(/* INLINE-ARGS */V27,(V17));
 
162
        bds_unwind1;
 
163
        bds_unwind1;
 
164
        bds_unwind1;
 
165
        bds_unwind1;}
 
166
T65:;
 
167
        if((structure_ref(car((V23)),VV[0],1))==Cnil){
 
168
        goto T75;}
 
169
        base[2]= make_cons(VV[11],symbol_value(VV[9]));
 
170
        base[3]= make_cons(VV[11],symbol_value(VV[10]));
 
171
        base[4]= make_cons(VV[11],symbol_value(VV[7]));
 
172
        bds_bind(VV[9],base[2]);
 
173
        bds_bind(VV[10],base[3]);
 
174
        bds_bind(VV[7],base[4]);
 
175
        {object V28;
 
176
        V29= cadr((V23));
 
177
        V30= structure_ref(car((V23)),VV[0],0);
 
178
        V28= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V29,/* INLINE-ARGS */V30));
 
179
        (void)((*(LnkLI51))((V14),cadr((V28))));
 
180
        V31= list(2,car((V23)),(V28));
 
181
        V16= make_cons(/* INLINE-ARGS */V31,(V16));
 
182
        bds_unwind1;
 
183
        bds_unwind1;
 
184
        bds_unwind1;}
 
185
T75:;
 
186
        if((structure_ref(car((V23)),VV[0],1))!=Cnil){
 
187
        goto T85;}
 
188
        if((structure_ref(car((V23)),VV[0],2))==Cnil){
 
189
        goto T84;}
 
190
T85:;
 
191
        V32= car((V23));
 
192
        setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
 
193
        (void)(structure_set(/* INLINE-ARGS */V32,VV[0],3,symbol_value(VV[12])));
 
194
T84:;
 
195
        V22= cdr((V22));
 
196
        V23= car((V22));
 
197
        goto T60;}
 
198
T56:;
 
199
        if(((V16))!=Cnil){
 
200
        goto T95;}
 
201
        if(((V17))==Cnil){
 
202
        goto T96;}
 
203
T95:;
 
204
        V33= reverse((V16));
 
205
        {object V34 = list(5,VV[1],(V14),/* INLINE-ARGS */V33,reverse((V17)),(V9));
 
206
        VMR2(V34)}
 
207
T96:;
 
208
        {object V35 = (V9);
 
209
        VMR2(V35)}}
 
210
}
 
211
/*      function definition for C2FLET  */
 
212
 
 
213
static L3()
 
214
{register object *base=vs_base;
 
215
        register object *sup=base+VM3; VC3
 
216
        vs_reserve(VM3);
 
217
        bds_check;
 
218
        {object V36;
 
219
        object V37;
 
220
        object V38;
 
221
        check_arg(3);
 
222
        V36=(base[0]);
 
223
        V37=(base[1]);
 
224
        V38=(base[2]);
 
225
        vs_top=sup;
 
226
TTL:;
 
227
        bds_bind(VV[13],symbol_value(VV[13]));
 
228
        bds_bind(VV[14],symbol_value(VV[14]));
 
229
        bds_bind(VV[15],symbol_value(VV[15]));
 
230
        {register object V39;
 
231
        object V40;
 
232
        V39= (V36);
 
233
        V40= car((V39));
 
234
T104:;
 
235
        if(!(endp((V39)))){
 
236
        goto T105;}
 
237
        goto T100;
 
238
T105:;
 
239
        (void)(structure_set(car((V40)),VV[0],4,symbol_value(VV[16])));{object V41;
 
240
        V41= (VV[14]->s.s_dbind);{object V42;
 
241
        V42= (VV[15]->s.s_dbind);
 
242
        V43= list(5,Cnil,V41,V42,car((V40)),cadr((V40)));
 
243
        setq(VV[17],make_cons(/* INLINE-ARGS */V43,symbol_value(VV[17])));}}
 
244
        V39= cdr((V39));
 
245
        V40= car((V39));
 
246
        goto T104;}
 
247
T100:;
 
248
        {register object V44;
 
249
        register object V45;
 
250
        V44= (V37);
 
251
        V45= car((V44));
 
252
T121:;
 
253
        if(!(endp((V44)))){
 
254
        goto T122;}
 
255
        goto T117;
 
256
T122:;
 
257
        if(((VV[14]->s.s_dbind))!=Cnil){
 
258
        goto T130;}
 
259
        V46= Cnil;
 
260
        goto T128;
 
261
T130:;
 
262
        V46= make_cons(small_fixnum(0),small_fixnum(0));
 
263
T128:;{object V47;
 
264
        V47= (VV[15]->s.s_dbind);
 
265
        V48= list(5,VV[18],V46,V47,car((V45)),cadr((V45)));
 
266
        setq(VV[17],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[17])));}
 
267
        setq(VV[19],make_cons(car((V45)),symbol_value(VV[19])));
 
268
        {register object V49;
 
269
        V49= car((V45));
 
270
        V50= (*(LnkLI52))();
 
271
        (void)(structure_set((V49),VV[0],1,/* INLINE-ARGS */V50));
 
272
        princ_str("\n   ",VV[20]);
 
273
        V51= structure_ref((V49),VV[0],1);
 
274
        (void)((*(LnkLI53))(/* INLINE-ARGS */V51));
 
275
        princ_str("=make_cclosure_new(LC",VV[20]);
 
276
        V52= structure_ref((V49),VV[0],3);
 
277
        (void)((*(LnkLI54))(/* INLINE-ARGS */V52));
 
278
        princ_str(",Cnil,",VV[20]);
 
279
        (void)((VFUN_NARGS=0,(*(LnkLI55))()));
 
280
        princ_str(",Cdata);",VV[20]);
 
281
        princ_str("\n   ",VV[20]);
 
282
        V53= structure_ref((V49),VV[0],1);
 
283
        (void)((*(LnkLI53))(/* INLINE-ARGS */V53));
 
284
        princ_str("=MMcons(",VV[20]);
 
285
        V54= structure_ref((V49),VV[0],1);
 
286
        (void)((*(LnkLI53))(/* INLINE-ARGS */V54));
 
287
        princ_char(44,VV[20]);
 
288
        (void)((VFUN_NARGS=0,(*(LnkLI55))()));
 
289
        princ_str(");",VV[20]);
 
290
        V55= structure_ref((V49),VV[0],1);
 
291
        (void)((*(LnkLI56))(/* INLINE-ARGS */V55));
 
292
        V56= (*(LnkLI57))();
 
293
        (void)(structure_set((V49),VV[0],2,/* INLINE-ARGS */V56));}
 
294
        V44= cdr((V44));
 
295
        V45= car((V44));
 
296
        goto T121;}
 
297
T117:;
 
298
        base[6]= (V38);
 
299
        vs_top=(vs_base=base+6)+1;
 
300
        (void) (*Lnk58)();
 
301
        bds_unwind1;
 
302
        bds_unwind1;
 
303
        bds_unwind1;
 
304
        return;
 
305
        }
 
306
}
 
307
/*      local entry for function C1LABELS       */
 
308
 
 
309
static object LI4(V58)
 
310
 
 
311
object V58;
 
312
{        VMB4 VMS4 VMV4
 
313
        bds_check;
 
314
TTL:;
 
315
        {object V59;
 
316
        object V60;
 
317
        object V61;
 
318
        object V62;
 
319
        object V63;
 
320
        object V64;
 
321
        object V65;
 
322
        object V66;
 
323
        object V67;
 
324
        object V68;
 
325
        register object V69;
 
326
        V59= Cnil;
 
327
        V60= Cnil;
 
328
        V61= Cnil;
 
329
        V62= Cnil;
 
330
        V63= Cnil;
 
331
        V64= Cnil;
 
332
        V65= Cnil;
 
333
        V66= Cnil;
 
334
        V67= Cnil;
 
335
        V68= Cnil;
 
336
        V69= Cnil;
 
337
        bds_bind(VV[2],symbol_value(VV[2]));
 
338
        if(!(endp((V58)))){
 
339
        goto T174;}
 
340
        (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));
 
341
T174:;
 
342
        {object V70;
 
343
        register object V71;
 
344
        V70= car((V58));
 
345
        V71= car((V70));
 
346
T181:;
 
347
        if(!(endp((V70)))){
 
348
        goto T182;}
 
349
        goto T177;
 
350
T182:;
 
351
        if(endp((V71))){
 
352
        goto T187;}
 
353
        if(!(type_of(car((V71)))==t_symbol)){
 
354
        goto T187;}
 
355
        if(!(endp(cdr((V71))))){
 
356
        goto T186;}
 
357
T187:;
 
358
        (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V71))));
 
359
T186:;
 
360
        {register object x= car((V71)),V72= (V68);
 
361
        while(!endp(V72))
 
362
        if(eql(x,V72->c.c_car)){
 
363
        goto T195;
 
364
        }else V72=V72->c.c_cdr;
 
365
        goto T193;}
 
366
T195:;
 
367
        (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V71)))));
 
368
T193:;
 
369
        V68= make_cons(car((V71)),(V68));
 
370
        {object V73;
 
371
        V73= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V71)),VV[5],Cnil,VV[6],Cnil));
 
372
        (VV[2]->s.s_dbind)= make_cons((V73),(VV[2]->s.s_dbind));
 
373
        V74= list(4,(V73),Cnil,Cnil,cdr((V71)));
 
374
        V65= make_cons(/* INLINE-ARGS */V74,(V65));}
 
375
        V70= cdr((V70));
 
376
        V71= car((V70));
 
377
        goto T181;}
 
378
T177:;
 
379
        V65= reverse((V65));
 
380
        base[1]= cdr((V58));
 
381
        base[2]= Ct;
 
382
        vs_top=(vs_base=base+1)+2;
 
383
        (void) (*Lnk45)();
 
384
        if(vs_base<vs_top){
 
385
        V59= vs_base[0];
 
386
        vs_base++;
 
387
        }else{
 
388
        V59= Cnil;}
 
389
        if(vs_base<vs_top){
 
390
        V60= vs_base[0];
 
391
        vs_base++;
 
392
        }else{
 
393
        V60= Cnil;}
 
394
        if(vs_base<vs_top){
 
395
        V61= vs_base[0];
 
396
        vs_base++;
 
397
        }else{
 
398
        V61= Cnil;}
 
399
        if(vs_base<vs_top){
 
400
        V62= vs_base[0];
 
401
        vs_base++;
 
402
        }else{
 
403
        V62= Cnil;}
 
404
        if(vs_base<vs_top){
 
405
        V63= vs_base[0];
 
406
        }else{
 
407
        V63= Cnil;}
 
408
        vs_top=sup;
 
409
        bds_bind(VV[7],symbol_value(VV[7]));
 
410
        (void)((*(LnkLI46))((V60)));
 
411
        (void)((*(LnkLI47))(Cnil,(V61),(V62)));
 
412
        V59= (*(LnkLI48))((V63),(V59));
 
413
        bds_unwind1;
 
414
        base[1]= cadr((V59));
 
415
        vs_top=(vs_base=base+1)+1;
 
416
        (void) (*Lnk49)();
 
417
        vs_top=sup;
 
418
        V64= vs_base[0];
 
419
T223:;
 
420
        V69= Cnil;
 
421
        {register object V75;
 
422
        register object V76;
 
423
        V75= (V65);
 
424
        V76= car((V75));
 
425
T231:;
 
426
        if(!(endp((V75)))){
 
427
        goto T232;}
 
428
        goto T227;
 
429
T232:;
 
430
        if((structure_ref(car((V76)),VV[0],1))==Cnil){
 
431
        goto T236;}
 
432
        if((cadr((V76)))!=Cnil){
 
433
        goto T236;}
 
434
        V69= Ct;
 
435
        if(type_of(cdr(V76))!=t_cons)FEwrong_type_argument(Scons,cdr(V76));
 
436
        (cdr(V76))->c.c_car = Ct;
 
437
        (void)(cdr(V76));
 
438
        base[2]= make_cons(VV[11],symbol_value(VV[9]));
 
439
        base[3]= make_cons(VV[11],symbol_value(VV[10]));
 
440
        base[4]= make_cons(VV[11],symbol_value(VV[7]));
 
441
        bds_bind(VV[9],base[2]);
 
442
        bds_bind(VV[10],base[3]);
 
443
        bds_bind(VV[7],base[4]);
 
444
        {object V79;
 
445
        V80= cadddr((V76));
 
446
        V81= structure_ref(car((V76)),VV[0],0);
 
447
        V79= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V80,/* INLINE-ARGS */V81));
 
448
        (void)((*(LnkLI51))((V64),cadr((V79))));
 
449
        V82= list(2,car((V76)),(V79));
 
450
        V66= make_cons(/* INLINE-ARGS */V82,(V66));
 
451
        bds_unwind1;
 
452
        bds_unwind1;
 
453
        bds_unwind1;}
 
454
T236:;
 
455
        V75= cdr((V75));
 
456
        V76= car((V75));
 
457
        goto T231;}
 
458
T227:;
 
459
        if(((V69))!=Cnil){
 
460
        goto T224;}
 
461
        goto T221;
 
462
T224:;
 
463
        goto T223;
 
464
T221:;
 
465
T261:;
 
466
        V69= Cnil;
 
467
        {register object V83;
 
468
        register object V84;
 
469
        V83= (V65);
 
470
        V84= car((V83));
 
471
T269:;
 
472
        if(!(endp((V83)))){
 
473
        goto T270;}
 
474
        goto T265;
 
475
T270:;
 
476
        if((structure_ref(car((V84)),VV[0],2))==Cnil){
 
477
        goto T274;}
 
478
        if((caddr((V84)))!=Cnil){
 
479
        goto T274;}
 
480
        V69= Ct;
 
481
        if(type_of(cddr(V84))!=t_cons)FEwrong_type_argument(Scons,cddr(V84));
 
482
        (cddr(V84))->c.c_car = Ct;
 
483
        (void)(cddr(V84));
 
484
        base[2]= make_cons(VV[8],symbol_value(VV[7]));
 
485
        base[3]= make_cons(VV[8],(VV[2]->s.s_dbind));
 
486
        base[4]= make_cons(VV[8],symbol_value(VV[9]));
 
487
        base[5]= make_cons(VV[8],symbol_value(VV[10]));
 
488
        bds_bind(VV[7],base[2]);
 
489
        bds_bind(VV[2],base[3]);
 
490
        bds_bind(VV[9],base[4]);
 
491
        bds_bind(VV[10],base[5]);
 
492
        {object V87;
 
493
        V88= cadddr((V84));
 
494
        V89= structure_ref(car((V84)),VV[0],0);
 
495
        V87= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V88,/* INLINE-ARGS */V89));
 
496
        (void)((*(LnkLI51))((V64),cadr((V87))));
 
497
        V90= list(2,car((V84)),(V87));
 
498
        V67= make_cons(/* INLINE-ARGS */V90,(V67));
 
499
        bds_unwind1;
 
500
        bds_unwind1;
 
501
        bds_unwind1;
 
502
        bds_unwind1;}
 
503
T274:;
 
504
        V83= cdr((V83));
 
505
        V84= car((V83));
 
506
        goto T269;}
 
507
T265:;
 
508
        if(((V69))!=Cnil){
 
509
        goto T262;}
 
510
        goto T259;
 
511
T262:;
 
512
        goto T261;
 
513
T259:;
 
514
        {object V91;
 
515
        object V92;
 
516
        V91= (V65);
 
517
        V92= car((V91));
 
518
T302:;
 
519
        if(!(endp((V91)))){
 
520
        goto T303;}
 
521
        goto T298;
 
522
T303:;
 
523
        if((structure_ref(car((V92)),VV[0],1))!=Cnil){
 
524
        goto T308;}
 
525
        if((structure_ref(car((V92)),VV[0],2))==Cnil){
 
526
        goto T307;}
 
527
T308:;
 
528
        V93= car((V92));
 
529
        setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
 
530
        (void)(structure_set(/* INLINE-ARGS */V93,VV[0],3,symbol_value(VV[12])));
 
531
T307:;
 
532
        V91= cdr((V91));
 
533
        V92= car((V91));
 
534
        goto T302;}
 
535
T298:;
 
536
        if(((V66))!=Cnil){
 
537
        goto T318;}
 
538
        if(((V67))==Cnil){
 
539
        goto T319;}
 
540
T318:;
 
541
        V94= reverse((V66));
 
542
        {object V95 = list(5,VV[21],(V64),/* INLINE-ARGS */V94,reverse((V67)),(V59));
 
543
        bds_unwind1;
 
544
        VMR4(V95)}
 
545
T319:;
 
546
        {object V96 = (V59);
 
547
        bds_unwind1;
 
548
        VMR4(V96)}}
 
549
}
 
550
/*      function definition for C2LABELS        */
 
551
 
 
552
static L5()
 
553
{register object *base=vs_base;
 
554
        register object *sup=base+VM5; VC5
 
555
        vs_reserve(VM5);
 
556
        bds_check;
 
557
        {object V97;
 
558
        object V98;
 
559
        object V99;
 
560
        check_arg(3);
 
561
        V97=(base[0]);
 
562
        V98=(base[1]);
 
563
        V99=(base[2]);
 
564
        vs_top=sup;
 
565
TTL:;
 
566
        bds_bind(VV[13],symbol_value(VV[13]));
 
567
        bds_bind(VV[14],symbol_value(VV[14]));
 
568
        {register object V100;
 
569
        object V101;
 
570
        V100= (V98);
 
571
        V101= car((V100));
 
572
T327:;
 
573
        if(!(endp((V100)))){
 
574
        goto T328;}
 
575
        goto T323;
 
576
T328:;
 
577
        {register object V102;
 
578
        V102= car((V101));
 
579
        V103= (*(LnkLI52))();
 
580
        (void)(structure_set((V102),VV[0],1,/* INLINE-ARGS */V103));
 
581
        princ_str("\n   ",VV[20]);
 
582
        V104= structure_ref((V102),VV[0],1);
 
583
        (void)((*(LnkLI53))(/* INLINE-ARGS */V104));
 
584
        princ_str("=MMcons(Cnil,",VV[20]);
 
585
        (void)((VFUN_NARGS=0,(*(LnkLI55))()));
 
586
        princ_str(");",VV[20]);
 
587
        V105= structure_ref((V102),VV[0],1);
 
588
        (void)((*(LnkLI56))(/* INLINE-ARGS */V105));
 
589
        V106= (*(LnkLI57))();
 
590
        (void)(structure_set((V102),VV[0],2,/* INLINE-ARGS */V106));}
 
591
        V100= cdr((V100));
 
592
        V101= car((V100));
 
593
        goto T327;}
 
594
T323:;
 
595
        {register object V107;
 
596
        object V108;
 
597
        V107= (V97);
 
598
        V108= car((V107));
 
599
T352:;
 
600
        if(!(endp((V107)))){
 
601
        goto T353;}
 
602
        goto T348;
 
603
T353:;
 
604
        (void)(structure_set(car((V108)),VV[0],4,symbol_value(VV[16])));{object V109;
 
605
        V109= (VV[14]->s.s_dbind);{object V110;
 
606
        V110= symbol_value(VV[15]);
 
607
        V111= list(5,Cnil,V109,V110,car((V108)),cadr((V108)));
 
608
        setq(VV[17],make_cons(/* INLINE-ARGS */V111,symbol_value(VV[17])));}}
 
609
        V107= cdr((V107));
 
610
        V108= car((V107));
 
611
        goto T352;}
 
612
T348:;
 
613
        {register object V112;
 
614
        register object V113;
 
615
        V112= (V98);
 
616
        V113= car((V112));
 
617
T369:;
 
618
        if(!(endp((V112)))){
 
619
        goto T370;}
 
620
        goto T365;
 
621
T370:;
 
622
        if(((VV[14]->s.s_dbind))!=Cnil){
 
623
        goto T378;}
 
624
        V114= Cnil;
 
625
        goto T376;
 
626
T378:;
 
627
        V114= make_cons(small_fixnum(0),small_fixnum(0));
 
628
T376:;{object V115;
 
629
        V115= symbol_value(VV[15]);
 
630
        V116= list(5,VV[18],V114,V115,car((V113)),cadr((V113)));
 
631
        setq(VV[17],make_cons(/* INLINE-ARGS */V116,symbol_value(VV[17])));}
 
632
        setq(VV[19],make_cons(car((V113)),symbol_value(VV[19])));
 
633
        princ_str("\n   ",VV[20]);
 
634
        V117= structure_ref(car((V113)),VV[0],1);
 
635
        (void)((*(LnkLI59))(/* INLINE-ARGS */V117));
 
636
        princ_str("=make_cclosure_new(LC",VV[20]);
 
637
        V118= structure_ref(car((V113)),VV[0],3);
 
638
        (void)((*(LnkLI54))(/* INLINE-ARGS */V118));
 
639
        princ_str(",Cnil,",VV[20]);
 
640
        (void)((VFUN_NARGS=0,(*(LnkLI55))()));
 
641
        princ_str(",Cdata);",VV[20]);
 
642
        V112= cdr((V112));
 
643
        V113= car((V112));
 
644
        goto T369;}
 
645
T365:;
 
646
        base[5]= (V99);
 
647
        vs_top=(vs_base=base+5)+1;
 
648
        (void) (*Lnk58)();
 
649
        bds_unwind1;
 
650
        bds_unwind1;
 
651
        return;
 
652
        }
 
653
}
 
654
/*      local entry for function C1MACROLET     */
 
655
 
 
656
static object LI6(V120)
 
657
 
 
658
object V120;
 
659
{        VMB6 VMS6 VMV6
 
660
        bds_check;
 
661
TTL:;
 
662
        {object V121;
 
663
        object V122;
 
664
        object V123;
 
665
        object V124;
 
666
        object V125;
 
667
        V121= Cnil;
 
668
        V122= Cnil;
 
669
        V123= Cnil;
 
670
        V124= Cnil;
 
671
        V125= Cnil;
 
672
        bds_bind(VV[2],symbol_value(VV[2]));
 
673
        bds_bind(VV[7],symbol_value(VV[7]));
 
674
        if(!(endp((V120)))){
 
675
        goto T402;}
 
676
        (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));
 
677
T402:;
 
678
        {register object V126;
 
679
        register object V127;
 
680
        V126= car((V120));
 
681
        V127= car((V126));
 
682
T409:;
 
683
        if(!(endp((V126)))){
 
684
        goto T410;}
 
685
        goto T405;
 
686
T410:;
 
687
        if(endp((V127))){
 
688
        goto T415;}
 
689
        if(!(type_of(car((V127)))==t_symbol)){
 
690
        goto T415;}
 
691
        if(!(endp(cdr((V127))))){
 
692
        goto T414;}
 
693
T415:;
 
694
        (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V127))));
 
695
T414:;
 
696
        V128= car((V127));
 
697
        V129= (*(LnkLI60))(car((V127)),cadr((V127)),cddr((V127)));
 
698
        V130= list(2,/* INLINE-ARGS */V128,caddr(/* INLINE-ARGS */V129));
 
699
        (VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V130,(VV[2]->s.s_dbind));
 
700
        V126= cdr((V126));
 
701
        V127= car((V126));
 
702
        goto T409;}
 
703
T405:;
 
704
        base[2]= cdr((V120));
 
705
        base[3]= Ct;
 
706
        vs_top=(vs_base=base+2)+2;
 
707
        (void) (*Lnk45)();
 
708
        if(vs_base<vs_top){
 
709
        V121= vs_base[0];
 
710
        vs_base++;
 
711
        }else{
 
712
        V121= Cnil;}
 
713
        if(vs_base<vs_top){
 
714
        V122= vs_base[0];
 
715
        vs_base++;
 
716
        }else{
 
717
        V122= Cnil;}
 
718
        if(vs_base<vs_top){
 
719
        V123= vs_base[0];
 
720
        vs_base++;
 
721
        }else{
 
722
        V123= Cnil;}
 
723
        if(vs_base<vs_top){
 
724
        V124= vs_base[0];
 
725
        vs_base++;
 
726
        }else{
 
727
        V124= Cnil;}
 
728
        if(vs_base<vs_top){
 
729
        V125= vs_base[0];
 
730
        }else{
 
731
        V125= Cnil;}
 
732
        vs_top=sup;
 
733
        (void)((*(LnkLI46))((V122)));
 
734
        (void)((*(LnkLI47))(Cnil,(V123),(V124)));
 
735
        {object V131 = (*(LnkLI48))((V125),(V121));
 
736
        bds_unwind1;
 
737
        bds_unwind1;
 
738
        VMR6(V131)}}
 
739
}
 
740
/*      local entry for function C1LOCAL-FUN    */
 
741
 
 
742
static object LI7(V133)
 
743
 
 
744
register object V133;
 
745
{        VMB7 VMS7 VMV7
 
746
TTL:;
 
747
        {register object V134;
 
748
        V134= Cnil;
 
749
        {register object V135;
 
750
        register object V136;
 
751
        V135= symbol_value(VV[2]);
 
752
        V136= car((V135));
 
753
T438:;
 
754
        if(!(endp((V135)))){
 
755
        goto T439;}
 
756
        {object V137 = Cnil;
 
757
        VMR7(V137)}
 
758
T439:;
 
759
        if(!(((V136))==(VV[8]))){
 
760
        goto T445;}
 
761
        V134= Ct;
 
762
        goto T443;
 
763
T445:;
 
764
        if(!(type_of((V136))==t_cons)){
 
765
        goto T449;}
 
766
        if(!((car((V136)))==((V133)))){
 
767
        goto T443;}
 
768
        {object V138 = cadr((V136));
 
769
        VMR7(V138)}
 
770
T449:;
 
771
        V139= structure_ref((V136),VV[0],0);
 
772
        if(!((/* INLINE-ARGS */V139)==((V133)))){
 
773
        goto T443;}
 
774
        if(((V134))==Cnil){
 
775
        goto T457;}
 
776
        (void)(structure_set((V136),VV[0],2,Ct));
 
777
        goto T455;
 
778
T457:;
 
779
        (void)(structure_set((V136),VV[0],1,Ct));
 
780
T455:;
 
781
        {object V140 = list(4,VV[26],symbol_value(VV[27]),(V136),(V134));
 
782
        VMR7(V140)}
 
783
T443:;
 
784
        V135= cdr((V135));
 
785
        V136= car((V135));
 
786
        goto T438;}}
 
787
}
 
788
/*      local entry for function SCH-LOCAL-FUN  */
 
789
 
 
790
static object LI8(V142)
 
791
 
 
792
register object V142;
 
793
{        VMB8 VMS8 VMV8
 
794
TTL:;
 
795
        {register object V143;
 
796
        register object V144;
 
797
        V143= symbol_value(VV[2]);
 
798
        V144= car((V143));
 
799
T467:;
 
800
        if(!(endp((V143)))){
 
801
        goto T468;}
 
802
        {object V145 = (V142);
 
803
        VMR8(V145)}
 
804
T468:;
 
805
        if(((V144))==(VV[8])){
 
806
        goto T472;}
 
807
        if(type_of((V144))==t_cons){
 
808
        goto T472;}
 
809
        V146= structure_ref((V144),VV[0],0);
 
810
        if(!((/* INLINE-ARGS */V146)==((V142)))){
 
811
        goto T472;}
 
812
        {object V147 = (V144);
 
813
        VMR8(V147)}
 
814
T472:;
 
815
        V143= cdr((V143));
 
816
        V144= car((V143));
 
817
        goto T467;}
 
818
}
 
819
/*      local entry for function C1LOCAL-CLOSURE        */
 
820
 
 
821
static object LI9(V149)
 
822
 
 
823
register object V149;
 
824
{        VMB9 VMS9 VMV9
 
825
TTL:;
 
826
        {register object V150;
 
827
        V150= Cnil;
 
828
        {register object V151;
 
829
        register object V152;
 
830
        V151= symbol_value(VV[2]);
 
831
        V152= car((V151));
 
832
T488:;
 
833
        if(!(endp((V151)))){
 
834
        goto T489;}
 
835
        {object V153 = Cnil;
 
836
        VMR9(V153)}
 
837
T489:;
 
838
        if(!(((V152))==(VV[8]))){
 
839
        goto T495;}
 
840
        V150= Ct;
 
841
        goto T493;
 
842
T495:;
 
843
        if(!(type_of((V152))==t_cons)){
 
844
        goto T499;}
 
845
        if(!((car((V152)))==((V149)))){
 
846
        goto T493;}
 
847
        {object V154 = cadr((V152));
 
848
        VMR9(V154)}
 
849
T499:;
 
850
        V155= structure_ref((V152),VV[0],0);
 
851
        if(!((/* INLINE-ARGS */V155)==((V149)))){
 
852
        goto T493;}
 
853
        (void)(structure_set((V152),VV[0],2,Ct));
 
854
        {object V156 = list(4,VV[26],symbol_value(VV[27]),(V152),(V150));
 
855
        VMR9(V156)}
 
856
T493:;
 
857
        V151= cdr((V151));
 
858
        V152= car((V151));
 
859
        goto T488;}}
 
860
}
 
861
/*      local entry for function C2CALL-LOCAL   */
 
862
 
 
863
static object LI10(V159,V160)
 
864
 
 
865
register object V159;register object V160;
 
866
{        VMB10 VMS10 VMV10
 
867
        bds_check;
 
868
TTL:;
 
869
        bds_bind(VV[13],symbol_value(VV[13]));
 
870
        if((cadr((V159)))==Cnil){
 
871
        goto T513;}
 
872
        (void)((*(LnkLI61))((V160)));
 
873
        princ_str("\n   cclosure_call(",VV[20]);
 
874
        V161= structure_ref(car((V159)),VV[0],2);
 
875
        (void)((*(LnkLI62))(/* INLINE-ARGS */V161));
 
876
        princ_str(");",VV[20]);
 
877
        goto T511;
 
878
T513:;
 
879
        if(!(type_of((V160))==t_cons||((V160))==Cnil)){
 
880
        goto T521;}
 
881
        if((symbol_value(VV[28]))==Cnil){
 
882
        goto T521;}
 
883
        if((symbol_value(VV[29]))==Cnil){
 
884
        goto T521;}
 
885
        if(!((car(symbol_value(VV[29])))==(car((V159))))){
 
886
        goto T521;}
 
887
        if(!((symbol_value(VV[30]))==(VV[31]))){
 
888
        goto T521;}
 
889
        if(((*(LnkLI63))())==Cnil){
 
890
        goto T521;}
 
891
        if(!((length((V160)))==(length(cdr(symbol_value(VV[29])))))){
 
892
        goto T521;}
 
893
        bds_bind(VV[32],VV[33]);
 
894
        setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1)));
 
895
        bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil));
 
896
        bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35])));
 
897
        {object V163;
 
898
        object V164= cdr(symbol_value(VV[29]));
 
899
        if(endp(V164)){
 
900
        V162= Cnil;
 
901
        goto T540;}
 
902
        base[4]=V163=MMcons(Cnil,Cnil);
 
903
T541:;
 
904
        (V163->c.c_car)= list(2,(V164->c.c_car),Cnil);
 
905
        if(endp(V164=MMcdr(V164))){
 
906
        V162= base[4];
 
907
        goto T540;}
 
908
        V163=MMcdr(V163)=MMcons(Cnil,Cnil);
 
909
        goto T541;}
 
910
T540:;
 
911
        (void)((*(LnkLI64))(V162,(V160)));
 
912
        if((cdr((VV[30]->s.s_dbind)))==Cnil){
 
913
        bds_unwind1;
 
914
        bds_unwind1;
 
915
        bds_unwind1;
 
916
        goto T535;}
 
917
        princ_str("\nT",VV[20]);
 
918
        (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));
 
919
        princ_str(":;",VV[20]);
 
920
        bds_unwind1;
 
921
        bds_unwind1;
 
922
        bds_unwind1;
 
923
T535:;
 
924
        (void)((*(LnkLI65))(VV[36]));
 
925
        princ_str("\n   goto TTL;",VV[20]);
 
926
        V166= structure_ref(car((V159)),VV[0],0);
 
927
        (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V166)));
 
928
        goto T511;
 
929
T521:;
 
930
        (void)((*(LnkLI61))((V160)));
 
931
        princ_str("\n   L",VV[20]);
 
932
        V167= structure_ref(car((V159)),VV[0],3);
 
933
        (void)((*(LnkLI54))(/* INLINE-ARGS */V167));
 
934
        princ_char(40,VV[20]);
 
935
        {register int V168;
 
936
        register int V169;
 
937
        V168= fix(structure_ref(car((V159)),VV[0],4));
 
938
        V169= 0;
 
939
T560:;
 
940
        if(!((V169)>=(V168))){
 
941
        goto T561;}
 
942
        goto T556;
 
943
T561:;
 
944
        princ_str("base",VV[20]);
 
945
        V170 = make_fixnum(V169);
 
946
        (void)((*(LnkLI54))(V170));
 
947
        princ_char(44,VV[20]);
 
948
        V169= (V169)+1;
 
949
        goto T560;}
 
950
T556:;
 
951
        princ_str("base",VV[20]);
 
952
        V171= structure_ref(car((V159)),VV[0],4);
 
953
        if(number_compare(/* INLINE-ARGS */V171,symbol_value(VV[16]))==0){
 
954
        goto T574;}
 
955
        V172= structure_ref(car((V159)),VV[0],4);
 
956
        (void)((*(LnkLI54))(/* INLINE-ARGS */V172));
 
957
T574:;
 
958
        princ_str(");",VV[20]);
 
959
        setq(VV[38],Ct);
 
960
T511:;
 
961
        {object V173 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));
 
962
        bds_unwind1;
 
963
        VMR10(V173)}
 
964
}
 
965
static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],&LnkLI67,ap);} /* UNWIND-EXIT */
 
966
static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],&LnkLI66,ap);} /* CMPNOTE */
 
967
static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* UNWIND-NO-EXIT */
 
968
static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,2,ap);} /* C2PSETQ */
 
969
static object  LnkTLI63(){return call_proc0(VV[63],&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */
 
970
static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],&LnkLI62,1,ap);} /* WT-CCB-VS */
 
971
static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* PUSH-ARGS */
 
972
static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,3,ap);} /* DEFMACRO* */
 
973
static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* WT-VS* */
 
974
static LnkT58(){ call_or_link(VV[58],&Lnk58);} /* C2EXPR */
 
975
static object  LnkTLI57(){return call_proc0(VV[57],&LnkLI57);} /* CCB-VS-PUSH */
 
976
static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* CLINK */
 
977
static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* WT-CLINK */
 
978
static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* WT1 */
 
979
static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* WT-VS */
 
980
static object  LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* VS-PUSH */
 
981
static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,2,ap);} /* ADD-INFO */
 
982
static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],&LnkLI50,ap);} /* C1LAMBDA-EXPR */
 
983
static LnkT49(){ call_or_link(VV[49],&Lnk49);} /* COPY-INFO */
 
984
static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,2,ap);} /* C1DECL-BODY */
 
985
static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,3,ap);} /* CHECK-VDECL */
 
986
static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* C1ADD-GLOBALS */
 
987
static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* C1BODY */
 
988
static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[44],&LnkLI44,ap);} /* MAKE-FUN */
 
989
static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[43],&LnkLI43,ap);} /* CMPERR */
 
990
static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,3,ap);} /* TOO-FEW-ARGS */