← Back to branch summary

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

« back to all changes in this revision

Viewing changes to cmpnew/cmpif.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/cmpif.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "cmpif.h"
 
4
init_cmpif(){do_init(VV);}
 
5
/*      local entry for function C1IF   */
 
6
 
 
7
static object LI1(V2)
 
8
 
 
9
register object V2;
 
10
{        VMB1 VMS1 VMV1
 
11
TTL:;
 
12
        {register object V3;
 
13
        object V4;
 
14
        V3= Cnil;
 
15
        V4= Cnil;
 
16
        if(endp((V2))){
 
17
        goto T4;}
 
18
        if(!(endp(cdr((V2))))){
 
19
        goto T3;}
 
20
T4:;
 
21
        V5 = make_fixnum(length((V2)));
 
22
        (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));
 
23
T3:;
 
24
        if(endp(cddr((V2)))){
 
25
        goto T8;}
 
26
        if(endp(cdddr((V2)))){
 
27
        goto T8;}
 
28
        V6 = make_fixnum(length((V2)));
 
29
        (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));
 
30
T8:;
 
31
        V4= (*(LnkLI45))(car((V2)));
 
32
        {object V7= (V4);
 
33
        if((V7!= Ct))goto T15;
 
34
        {object V8 = (*(LnkLI46))(cadr((V2)));
 
35
        VMR1(V8)}
 
36
T15:;
 
37
        if((V7!= Cnil))goto T16;
 
38
        if(!(endp(cddr((V2))))){
 
39
        goto T18;}
 
40
        {object V9 = (*(LnkLI47))();
 
41
        VMR1(V9)}
 
42
T18:;
 
43
        {object V10 = (*(LnkLI46))(caddr((V2)));
 
44
        VMR1(V10)}
 
45
T16:;
 
46
        V3= (VFUN_NARGS=0,(*(LnkLI48))());
 
47
        V11= (*(LnkLI49))((V4),(V3));
 
48
        V12= (*(LnkLI50))(cadr((V2)),(V3));
 
49
        if(!(endp(cddr((V2))))){
 
50
        goto T24;}
 
51
        V13= (*(LnkLI47))();
 
52
        goto T22;
 
53
T24:;
 
54
        V13= (*(LnkLI50))(caddr((V2)),(V3));
 
55
T22:;
 
56
        {object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13);
 
57
        VMR1(V14)}}}
 
58
}
 
59
/*      local entry for function C1FMLA-CONSTANT        */
 
60
 
 
61
static object LI2(V16)
 
62
 
 
63
register object V16;
 
64
{        VMB2 VMS2 VMV2
 
65
TTL:;
 
66
        {register object V17;
 
67
        V17= Cnil;
 
68
        if(!(type_of((V16))==t_cons)){
 
69
        goto T28;}
 
70
        {object V18= car((V16));
 
71
        if((V18!= VV[1]))goto T30;
 
72
        {register object V19;
 
73
        V19= cdr((V16));
 
74
T33:;
 
75
        if(!(endp((V19)))){
 
76
        goto T34;}
 
77
        {object V20 = Ct;
 
78
        VMR2(V20)}
 
79
T34:;
 
80
        V17= (*(LnkLI45))(car((V19)));
 
81
        {object V21= (V17);
 
82
        if((V21!= Ct))goto T41;
 
83
        goto T40;
 
84
T41:;
 
85
        if((V21!= Cnil))goto T42;
 
86
        {object V22 = Cnil;
 
87
        VMR2(V22)}
 
88
T42:;
 
89
        if(!(endp(cdr((V19))))){
 
90
        goto T44;}
 
91
        {object V23 = (V17);
 
92
        VMR2(V23)}
 
93
T44:;
 
94
        {object V24 = listA(3,VV[1],(V17),cdr((V19)));
 
95
        VMR2(V24)}}
 
96
T40:;
 
97
        V19= cdr((V19));
 
98
        goto T33;}
 
99
T30:;
 
100
        if((V18!= VV[2]))goto T49;
 
101
        {register object V25;
 
102
        V25= cdr((V16));
 
103
T52:;
 
104
        if(!(endp((V25)))){
 
105
        goto T53;}
 
106
        {object V26 = Cnil;
 
107
        VMR2(V26)}
 
108
T53:;
 
109
        V17= (*(LnkLI45))(car((V25)));
 
110
        {object V27= (V17);
 
111
        if((V27!= Ct))goto T60;
 
112
        {object V28 = Ct;
 
113
        VMR2(V28)}
 
114
T60:;
 
115
        if((V27!= Cnil))goto T61;
 
116
        goto T59;
 
117
T61:;
 
118
        if(!(endp(cdr((V25))))){
 
119
        goto T63;}
 
120
        {object V29 = (V17);
 
121
        VMR2(V29)}
 
122
T63:;
 
123
        {object V30 = listA(3,VV[2],(V17),cdr((V25)));
 
124
        VMR2(V30)}}
 
125
T59:;
 
126
        V25= cdr((V25));
 
127
        goto T52;}
 
128
T49:;
 
129
        if((V18!= VV[3])
 
130
        && (V18!= VV[51]))goto T68;
 
131
        if(!(endp(cdr((V16))))){
 
132
        goto T69;}
 
133
        (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));
 
134
T69:;
 
135
        if(endp(cddr((V16)))){
 
136
        goto T72;}
 
137
        V31 = make_fixnum(length(cdr((V16))));
 
138
        (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));
 
139
T72:;
 
140
        V17= (*(LnkLI45))(cadr((V16)));
 
141
        {object V32= (V17);
 
142
        if((V32!= Ct))goto T77;
 
143
        {object V33 = Cnil;
 
144
        VMR2(V33)}
 
145
T77:;
 
146
        if((V32!= Cnil))goto T78;
 
147
        {object V34 = Ct;
 
148
        VMR2(V34)}
 
149
T78:;
 
150
        {object V35 = list(2,VV[3],(V17));
 
151
        VMR2(V35)}}
 
152
T68:;
 
153
        {object V36 = (V16);
 
154
        VMR2(V36)}}
 
155
T28:;
 
156
        if(!(type_of((V16))==t_symbol)){
 
157
        goto T80;}
 
158
        base[0]= (V16);
 
159
        vs_top=(vs_base=base+0)+1;
 
160
        Lconstantp();
 
161
        vs_top=sup;
 
162
        if((vs_base[0])==Cnil){
 
163
        goto T83;}
 
164
        base[0]= (V16);
 
165
        vs_top=(vs_base=base+0)+1;
 
166
        Lsymbol_value();
 
167
        vs_top=sup;
 
168
        if((vs_base[0])==Cnil){
 
169
        goto T87;}
 
170
        {object V37 = Ct;
 
171
        VMR2(V37)}
 
172
T87:;
 
173
        {object V38 = Cnil;
 
174
        VMR2(V38)}
 
175
T83:;
 
176
        {object V39 = (V16);
 
177
        VMR2(V39)}
 
178
T80:;
 
179
        {object V40 = Ct;
 
180
        VMR2(V40)}}
 
181
}
 
182
/*      local entry for function C1FMLA */
 
183
 
 
184
static object LI3(V43,V44)
 
185
 
 
186
register object V43;register object V44;
 
187
{        VMB3 VMS3 VMV3
 
188
TTL:;
 
189
        if(!(type_of((V43))==t_cons)){
 
190
        goto T91;}
 
191
        {object V45= car((V43));
 
192
        if((V45!= VV[1]))goto T93;switch(length(cdr((V43)))){
 
193
        case 0:
 
194
T95:;
 
195
        {object V46 = (*(LnkLI52))();
 
196
        VMR3(V46)}
 
197
        case 1:
 
198
T96:;
 
199
        V43= cadr((V43));
 
200
        goto TTL;
 
201
        default:
 
202
T97:;
 
203
        {object V48;
 
204
        object V49= cdr((V43));
 
205
        if(endp(V49)){
 
206
        V47= Cnil;
 
207
        goto T102;}
 
208
        base[0]=V48=MMcons(Cnil,Cnil);
 
209
T103:;
 
210
        {register object V50;
 
211
        V50= (V49->c.c_car);
 
212
        (V48->c.c_car)= (*(LnkLI49))((V50),(V44));}
 
213
        if(endp(V49=MMcdr(V49))){
 
214
        V47= base[0];
 
215
        goto T102;}
 
216
        V48=MMcdr(V48)=MMcons(Cnil,Cnil);
 
217
        goto T103;}
 
218
T102:;
 
219
        {object V51 = make_cons(VV[4],V47);
 
220
        VMR3(V51)}
 
221
        {object V52 = Cnil;
 
222
        VMR3(V52)}}
 
223
        {object V53 = Cnil;
 
224
        VMR3(V53)}
 
225
T93:;
 
226
        if((V45!= VV[2]))goto T105;switch(length(cdr((V43)))){
 
227
        case 0:
 
228
T107:;
 
229
        {object V54 = (*(LnkLI47))();
 
230
        VMR3(V54)}
 
231
        case 1:
 
232
T108:;
 
233
        V43= cadr((V43));
 
234
        goto TTL;
 
235
        default:
 
236
T109:;
 
237
        {object V56;
 
238
        object V57= cdr((V43));
 
239
        if(endp(V57)){
 
240
        V55= Cnil;
 
241
        goto T114;}
 
242
        base[0]=V56=MMcons(Cnil,Cnil);
 
243
T115:;
 
244
        {register object V58;
 
245
        V58= (V57->c.c_car);
 
246
        (V56->c.c_car)= (*(LnkLI49))((V58),(V44));}
 
247
        if(endp(V57=MMcdr(V57))){
 
248
        V55= base[0];
 
249
        goto T114;}
 
250
        V56=MMcdr(V56)=MMcons(Cnil,Cnil);
 
251
        goto T115;}
 
252
T114:;
 
253
        {object V59 = make_cons(VV[5],V55);
 
254
        VMR3(V59)}
 
255
        {object V60 = Cnil;
 
256
        VMR3(V60)}}
 
257
        {object V61 = Cnil;
 
258
        VMR3(V61)}
 
259
T105:;
 
260
        if((V45!= VV[3])
 
261
        && (V45!= VV[51]))goto T117;
 
262
        if(!(endp(cdr((V43))))){
 
263
        goto T118;}
 
264
        (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));
 
265
T118:;
 
266
        if(endp(cddr((V43)))){
 
267
        goto T121;}
 
268
        V62 = make_fixnum(length(cdr((V43))));
 
269
        (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));
 
270
T121:;
 
271
        {object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44)));
 
272
        VMR3(V63)}
 
273
T117:;
 
274
        V64= list(3,VV[7],VV[8],(V43));
 
275
        {object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44));
 
276
        VMR3(V65)}}
 
277
T91:;
 
278
        {object V66 = (*(LnkLI50))((V43),(V44));
 
279
        VMR3(V66)}
 
280
}
 
281
/*      function definition for C2IF    */
 
282
 
 
283
static L4()
 
284
{register object *base=vs_base;
 
285
        register object *sup=base+VM4; VC4
 
286
        vs_reserve(VM4);
 
287
        bds_check;
 
288
        {object V67;
 
289
        object V68;
 
290
        object V69;
 
291
        check_arg(3);
 
292
        V67=(base[0]);
 
293
        V68=(base[1]);
 
294
        V69=(base[2]);
 
295
        vs_top=sup;
 
296
TTL:;
 
297
        {register object V70;
 
298
        register object V71;
 
299
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
300
        V70= make_cons(symbol_value(VV[9]),Cnil);
 
301
        V71= Cnil;
 
302
        if(!((car((V69)))==(VV[10]))){
 
303
        goto T128;}
 
304
        if((caddr((V69)))!=Cnil){
 
305
        goto T128;}
 
306
        if(!((symbol_value(VV[11]))==(VV[12]))){
 
307
        goto T128;}
 
308
        if((symbol_value(VV[13]))==(VV[14])){
 
309
        goto T128;}
 
310
        {object V72;
 
311
        V72= symbol_value(VV[13]);
 
312
        base[4]= make_cons((V70),symbol_value(VV[15]));
 
313
        bds_bind(VV[15],base[4]);
 
314
        bds_bind(VV[13],(V70));
 
315
        V73= (*(LnkLI53))((V67),(V70),(V72));
 
316
        bds_unwind1;
 
317
        bds_unwind1;}
 
318
        if((cdr((V70)))==Cnil){
 
319
        goto T139;}
 
320
        princ_str("\nT",VV[16]);
 
321
        (void)((*(LnkLI54))(car((V70))));
 
322
        princ_str(":;",VV[16]);
 
323
T139:;
 
324
        base[4]= (V68);
 
325
        vs_top=(vs_base=base+4)+1;
 
326
        (void) (*Lnk55)();
 
327
        return;
 
328
T128:;
 
329
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
330
        V71= make_cons(symbol_value(VV[9]),Cnil);
 
331
        base[4]= listA(3,(V71),(V70),symbol_value(VV[15]));
 
332
        bds_bind(VV[15],base[4]);
 
333
        bds_bind(VV[13],(V70));
 
334
        V74= (*(LnkLI53))((V67),(V70),(V71));
 
335
        bds_unwind1;
 
336
        bds_unwind1;
 
337
        if((cdr((V70)))==Cnil){
 
338
        goto T151;}
 
339
        princ_str("\nT",VV[16]);
 
340
        (void)((*(LnkLI54))(car((V70))));
 
341
        princ_str(":;",VV[16]);
 
342
T151:;
 
343
        base[4]= make_cons(VV[17],symbol_value(VV[15]));
 
344
        bds_bind(VV[15],base[4]);
 
345
        base[5]= (V68);
 
346
        vs_top=(vs_base=base+5)+1;
 
347
        (void) (*Lnk55)();
 
348
        vs_top=sup;
 
349
        bds_unwind1;
 
350
        if((cdr((V71)))==Cnil){
 
351
        goto T160;}
 
352
        princ_str("\nT",VV[16]);
 
353
        (void)((*(LnkLI54))(car((V71))));
 
354
        princ_str(":;",VV[16]);
 
355
T160:;
 
356
        base[4]= (V69);
 
357
        vs_top=(vs_base=base+4)+1;
 
358
        (void) (*Lnk55)();
 
359
        return;}
 
360
        }
 
361
}
 
362
/*      local entry for function CJT    */
 
363
 
 
364
static object LI5(V78,V79,V80)
 
365
 
 
366
object V78;object V79;object V80;
 
367
{        VMB5 VMS5 VMV5
 
368
        bds_check;
 
369
TTL:;
 
370
        {object V81= car((V78));
 
371
        if((V81!= VV[4]))goto T167;
 
372
        {register object V82;
 
373
        V82= cdr((V78));
 
374
T170:;
 
375
        if(!(endp(cdr((V82))))){
 
376
        goto T171;}
 
377
        V78= car((V82));
 
378
        goto TTL;
 
379
T171:;
 
380
        {register object V83;
 
381
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
382
        V83= make_cons(symbol_value(VV[9]),Cnil);
 
383
        bds_bind(VV[15],make_cons((V83),symbol_value(VV[15])));
 
384
        (void)((*(LnkLI53))(car((V82)),(V83),(V80)));
 
385
        if((cdr((V83)))==Cnil){
 
386
        bds_unwind1;
 
387
        goto T179;}
 
388
        princ_str("\nT",VV[16]);
 
389
        (void)((*(LnkLI54))(car((V83))));
 
390
        princ_str(":;",VV[16]);
 
391
        bds_unwind1;}
 
392
T179:;
 
393
        V82= cdr((V82));
 
394
        goto T170;}
 
395
T167:;
 
396
        if((V81!= VV[5]))goto T192;
 
397
        {register object V84;
 
398
        V84= cdr((V78));
 
399
T195:;
 
400
        if(!(endp(cdr((V84))))){
 
401
        goto T196;}
 
402
        V78= car((V84));
 
403
        goto TTL;
 
404
T196:;
 
405
        {register object V85;
 
406
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
407
        V85= make_cons(symbol_value(VV[9]),Cnil);
 
408
        bds_bind(VV[15],make_cons((V85),symbol_value(VV[15])));
 
409
        (void)((*(LnkLI56))(car((V84)),(V79),(V85)));
 
410
        if((cdr((V85)))==Cnil){
 
411
        bds_unwind1;
 
412
        goto T204;}
 
413
        princ_str("\nT",VV[16]);
 
414
        (void)((*(LnkLI54))(car((V85))));
 
415
        princ_str(":;",VV[16]);
 
416
        bds_unwind1;}
 
417
T204:;
 
418
        V84= cdr((V84));
 
419
        goto T195;}
 
420
T192:;
 
421
        if((V81!= VV[6]))goto T217;
 
422
        {object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79));
 
423
        VMR5(V86)}
 
424
T217:;
 
425
        if((V81!= VV[10]))goto T218;
 
426
        {object V87= caddr((V78));
 
427
        if((V87!= Ct))goto T219;
 
428
        (void)((*(LnkLI57))((V79)));
 
429
        princ_str("\n   ",VV[16]);
 
430
        if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));
 
431
        ((V79))->c.c_cdr = Ct;
 
432
        princ_str("goto T",VV[16]);
 
433
        (void)((*(LnkLI54))(car((V79))));
 
434
        princ_char(59,VV[16]);
 
435
        {object V88 = Cnil;
 
436
        VMR5(V88)}
 
437
T219:;
 
438
        if((V87!= Cnil))goto T226;
 
439
        {object V89 = Cnil;
 
440
        VMR5(V89)}
 
441
T226:;
 
442
        base[0]= list(2,VV[18],(V79));
 
443
        bds_bind(VV[11],base[0]);
 
444
        {object V90 = (*(LnkLI58))((V78));
 
445
        bds_unwind1;
 
446
        VMR5(V90)}}
 
447
T218:;
 
448
        base[0]= list(2,VV[18],(V79));
 
449
        bds_bind(VV[11],base[0]);
 
450
        {object V91 = (*(LnkLI58))((V78));
 
451
        bds_unwind1;
 
452
        VMR5(V91)}}
 
453
}
 
454
/*      local entry for function CJF    */
 
455
 
 
456
static object LI6(V95,V96,V97)
 
457
 
 
458
object V95;object V96;object V97;
 
459
{        VMB6 VMS6 VMV6
 
460
        bds_check;
 
461
TTL:;
 
462
        {object V98= car((V95));
 
463
        if((V98!= VV[4]))goto T229;
 
464
        {register object V99;
 
465
        V99= cdr((V95));
 
466
T232:;
 
467
        if(!(endp(cdr((V99))))){
 
468
        goto T233;}
 
469
        V95= car((V99));
 
470
        goto TTL;
 
471
T233:;
 
472
        {register object V100;
 
473
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
474
        V100= make_cons(symbol_value(VV[9]),Cnil);
 
475
        bds_bind(VV[15],make_cons((V100),symbol_value(VV[15])));
 
476
        (void)((*(LnkLI53))(car((V99)),(V100),(V97)));
 
477
        if((cdr((V100)))==Cnil){
 
478
        bds_unwind1;
 
479
        goto T241;}
 
480
        princ_str("\nT",VV[16]);
 
481
        (void)((*(LnkLI54))(car((V100))));
 
482
        princ_str(":;",VV[16]);
 
483
        bds_unwind1;}
 
484
T241:;
 
485
        V99= cdr((V99));
 
486
        goto T232;}
 
487
T229:;
 
488
        if((V98!= VV[5]))goto T254;
 
489
        {register object V101;
 
490
        V101= cdr((V95));
 
491
T257:;
 
492
        if(!(endp(cdr((V101))))){
 
493
        goto T258;}
 
494
        V95= car((V101));
 
495
        goto TTL;
 
496
T258:;
 
497
        {register object V102;
 
498
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
499
        V102= make_cons(symbol_value(VV[9]),Cnil);
 
500
        bds_bind(VV[15],make_cons((V102),symbol_value(VV[15])));
 
501
        (void)((*(LnkLI56))(car((V101)),(V96),(V102)));
 
502
        if((cdr((V102)))==Cnil){
 
503
        bds_unwind1;
 
504
        goto T266;}
 
505
        princ_str("\nT",VV[16]);
 
506
        (void)((*(LnkLI54))(car((V102))));
 
507
        princ_str(":;",VV[16]);
 
508
        bds_unwind1;}
 
509
T266:;
 
510
        V101= cdr((V101));
 
511
        goto T257;}
 
512
T254:;
 
513
        if((V98!= VV[6]))goto T279;
 
514
        {object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96));
 
515
        VMR6(V103)}
 
516
T279:;
 
517
        if((V98!= VV[10]))goto T280;
 
518
        {object V104= caddr((V95));
 
519
        if((V104!= Ct))goto T281;
 
520
        {object V105 = Cnil;
 
521
        VMR6(V105)}
 
522
T281:;
 
523
        if((V104!= Cnil))goto T282;
 
524
        (void)((*(LnkLI57))((V97)));
 
525
        princ_str("\n   ",VV[16]);
 
526
        if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97));
 
527
        ((V97))->c.c_cdr = Ct;
 
528
        princ_str("goto T",VV[16]);
 
529
        (void)((*(LnkLI54))(car((V97))));
 
530
        princ_char(59,VV[16]);
 
531
        {object V106 = Cnil;
 
532
        VMR6(V106)}
 
533
T282:;
 
534
        base[0]= list(2,VV[19],(V97));
 
535
        bds_bind(VV[11],base[0]);
 
536
        {object V107 = (*(LnkLI58))((V95));
 
537
        bds_unwind1;
 
538
        VMR6(V107)}}
 
539
T280:;
 
540
        base[0]= list(2,VV[19],(V97));
 
541
        bds_bind(VV[11],base[0]);
 
542
        {object V108 = (*(LnkLI58))((V95));
 
543
        bds_unwind1;
 
544
        VMR6(V108)}}
 
545
}
 
546
/*      local entry for function C1AND  */
 
547
 
 
548
static object LI7(V110)
 
549
 
 
550
register object V110;
 
551
{        VMB7 VMS7 VMV7
 
552
TTL:;
 
553
        if(!(endp((V110)))){
 
554
        goto T292;}
 
555
        {object V111 = (*(LnkLI52))();
 
556
        VMR7(V111)}
 
557
T292:;
 
558
        if(!(endp(cdr((V110))))){
 
559
        goto T295;}
 
560
        {object V112 = (*(LnkLI46))(car((V110)));
 
561
        VMR7(V112)}
 
562
T295:;
 
563
        {object V113;
 
564
        V113= (VFUN_NARGS=0,(*(LnkLI48))());
 
565
        {object V114 = list(3,VV[1],(V113),(*(LnkLI59))((V110),(V113)));
 
566
        VMR7(V114)}}
 
567
}
 
568
/*      function definition for C2AND   */
 
569
 
 
570
static L8()
 
571
{register object *base=vs_base;
 
572
        register object *sup=base+VM8; VC8
 
573
        vs_reserve(VM8);
 
574
        bds_check;
 
575
        {object V115;
 
576
        check_arg(1);
 
577
        V115=(base[0]);
 
578
        vs_top=sup;
 
579
TTL:;
 
580
        {register object V116;
 
581
        V116= (V115);
 
582
T299:;
 
583
        if(!(endp(cdr((V116))))){
 
584
        goto T300;}
 
585
        base[1]= car((V116));
 
586
        vs_top=(vs_base=base+1)+1;
 
587
        (void) (*Lnk55)();
 
588
        return;
 
589
T300:;
 
590
        if(!((caar((V116)))==(VV[10]))){
 
591
        goto T307;}
 
592
        {object V117= caddar((V116));
 
593
        if((V117!= Ct))goto T309;
 
594
        goto T305;
 
595
T309:;
 
596
        if((V117!= Cnil))goto T310;
 
597
        (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
 
598
        goto T305;
 
599
T310:;
 
600
        princ_str("\n   if(",VV[16]);
 
601
        (void)((*(LnkLI54))(caddar((V116))));
 
602
        princ_str("==Cnil){",VV[16]);
 
603
        (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
 
604
        princ_char(125,VV[16]);
 
605
        goto T305;}
 
606
T307:;
 
607
        if(!((caar((V116)))==(VV[20]))){
 
608
        goto T318;}
 
609
        princ_str("\n   if(",VV[16]);
 
610
        (void)((*(LnkLI61))(car(caddar((V116))),cadr(caddar((V116)))));
 
611
        princ_str("==Cnil){",VV[16]);
 
612
        (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
 
613
        princ_char(125,VV[16]);
 
614
        goto T305;
 
615
T318:;
 
616
        {register object V118;
 
617
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
618
        V118= make_cons(symbol_value(VV[9]),Cnil);
 
619
        bds_bind(VV[15],make_cons((V118),symbol_value(VV[15])));
 
620
        base[3]= list(2,VV[18],(V118));
 
621
        bds_bind(VV[11],base[3]);
 
622
        V119= (*(LnkLI58))(car((V116)));
 
623
        bds_unwind1;
 
624
        (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
 
625
        if((cdr((V118)))==Cnil){
 
626
        bds_unwind1;
 
627
        goto T305;}
 
628
        princ_str("\nT",VV[16]);
 
629
        (void)((*(LnkLI54))(car((V118))));
 
630
        princ_str(":;",VV[16]);
 
631
        bds_unwind1;}
 
632
T305:;
 
633
        V116= cdr((V116));
 
634
        goto T299;}
 
635
        }
 
636
}
 
637
/*      local entry for function C1OR   */
 
638
 
 
639
static object LI9(V121)
 
640
 
 
641
register object V121;
 
642
{        VMB9 VMS9 VMV9
 
643
TTL:;
 
644
        if(!(endp((V121)))){
 
645
        goto T342;}
 
646
        {object V122 = (*(LnkLI47))();
 
647
        VMR9(V122)}
 
648
T342:;
 
649
        if(!(endp(cdr((V121))))){
 
650
        goto T345;}
 
651
        {object V123 = (*(LnkLI46))(car((V121)));
 
652
        VMR9(V123)}
 
653
T345:;
 
654
        {object V124;
 
655
        V124= (VFUN_NARGS=0,(*(LnkLI48))());
 
656
        {object V125 = list(3,VV[2],(V124),(*(LnkLI59))((V121),(V124)));
 
657
        VMR9(V125)}}
 
658
}
 
659
/*      function definition for C2OR    */
 
660
 
 
661
static L10()
 
662
{register object *base=vs_base;
 
663
        register object *sup=base+VM10; VC10
 
664
        vs_reserve(VM10);
 
665
        bds_check;
 
666
        {object V126;
 
667
        check_arg(1);
 
668
        V126=(base[0]);
 
669
        vs_top=sup;
 
670
TTL:;
 
671
        {object V127;
 
672
        bds_bind(VV[21],symbol_value(VV[21]));
 
673
        V127= Cnil;
 
674
        {register object V128;
 
675
        V128= (V126);
 
676
T350:;
 
677
        if(!(endp(cdr((V128))))){
 
678
        goto T351;}
 
679
        base[2]= car((V128));
 
680
        vs_top=(vs_base=base+2)+1;
 
681
        (void) (*Lnk55)();
 
682
        bds_unwind1;
 
683
        return;
 
684
T351:;
 
685
        if(!((caar((V128)))==(VV[10]))){
 
686
        goto T358;}
 
687
        {object V129= caddar((V128));
 
688
        if((V129!= Ct))goto T360;
 
689
        (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
 
690
        goto T356;
 
691
T360:;
 
692
        if((V129!= Cnil))goto T361;
 
693
        goto T356;
 
694
T361:;
 
695
        princ_str("\n   if(",VV[16]);
 
696
        (void)((*(LnkLI54))(caddar((V128))));
 
697
        princ_str("!=Cnil){",VV[16]);
 
698
        (void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17])));
 
699
        princ_char(125,VV[16]);
 
700
        goto T356;}
 
701
T358:;
 
702
        if(!((caar((V128)))==(VV[20]))){
 
703
        goto T369;}
 
704
        princ_str("\n   if(",VV[16]);
 
705
        (void)((*(LnkLI61))(car(caddar((V128))),cadr(caddar((V128)))));
 
706
        princ_str("!=Cnil){",VV[16]);
 
707
        V130= make_cons(VV[20],caddar((V128)));
 
708
        (void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17])));
 
709
        princ_char(125,VV[16]);
 
710
        goto T356;
 
711
T369:;
 
712
        if(!((caar((V128)))==(VV[22]))){
 
713
        goto T379;}
 
714
        if((get(caddar((V128)),VV[23],Cnil))==Cnil){
 
715
        goto T379;}
 
716
        {register object V131;
 
717
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
718
        V131= make_cons(symbol_value(VV[9]),Cnil);
 
719
        bds_bind(VV[15],make_cons((V131),symbol_value(VV[15])));
 
720
        base[4]= list(2,VV[19],(V131));
 
721
        bds_bind(VV[11],base[4]);
 
722
        V132= (*(LnkLI58))(car((V128)));
 
723
        bds_unwind1;
 
724
        (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
 
725
        if((cdr((V131)))==Cnil){
 
726
        bds_unwind1;
 
727
        goto T356;}
 
728
        princ_str("\nT",VV[16]);
 
729
        (void)((*(LnkLI54))(car((V131))));
 
730
        princ_str(":;",VV[16]);
 
731
        bds_unwind1;
 
732
        goto T356;}
 
733
T379:;
 
734
        {register object V133;
 
735
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
736
        V133= make_cons(symbol_value(VV[9]),Cnil);
 
737
        bds_bind(VV[24],small_fixnum(0));
 
738
        bds_bind(VV[15],make_cons((V133),symbol_value(VV[15])));
 
739
        V127= (*(LnkLI62))();
 
740
        bds_bind(VV[11],(V127));
 
741
        V134= (*(LnkLI58))(car((V128)));
 
742
        bds_unwind1;
 
743
        princ_str("\n   if(",VV[16]);
 
744
        (void)((*(LnkLI54))((V127)));
 
745
        princ_str("==Cnil)",VV[16]);
 
746
        if(type_of((V133))!=t_cons)FEwrong_type_argument(Scons,(V133));
 
747
        ((V133))->c.c_cdr = Ct;
 
748
        princ_str("goto T",VV[16]);
 
749
        (void)((*(LnkLI54))(car((V133))));
 
750
        princ_char(59,VV[16]);
 
751
        (void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17])));
 
752
        if((cdr((V133)))==Cnil){
 
753
        goto T410;}
 
754
        princ_str("\nT",VV[16]);
 
755
        (void)((*(LnkLI54))(car((V133))));
 
756
        princ_str(":;",VV[16]);
 
757
T410:;
 
758
        V135= (*(LnkLI63))();
 
759
        bds_unwind1;
 
760
        bds_unwind1;}
 
761
T356:;
 
762
        V128= cdr((V128));
 
763
        goto T350;}}
 
764
        }
 
765
}
 
766
/*      local entry for function SET-JUMP-TRUE  */
 
767
 
 
768
static object LI11(V138,V139)
 
769
 
 
770
register object V138;object V139;
 
771
{        VMB11 VMS11 VMV11
 
772
TTL:;
 
773
        if(((V138))==Cnil){
 
774
        goto T420;}
 
775
        {object V140;
 
776
        V140= (((V138))==(Ct)?Ct:Cnil);
 
777
        if(((V140))==Cnil){
 
778
        goto T425;}
 
779
        goto T422;
 
780
T425:;
 
781
        if(!(type_of((V138))==t_cons)){
 
782
        goto T428;}
 
783
        if(!((car((V138)))==(VV[25]))){
 
784
        goto T428;}
 
785
        princ_str("\n   if(",VV[16]);
 
786
        base[0]= caddr((V138));
 
787
        base[1]= cadddr((V138));
 
788
        vs_top=(vs_base=base+0)+2;
 
789
        (void) (*Lnk64)();
 
790
        vs_top=sup;
 
791
        princ_char(41,VV[16]);
 
792
        goto T422;
 
793
T428:;
 
794
        princ_str("\n   if((",VV[16]);
 
795
        (void)((*(LnkLI54))((V138)));
 
796
        princ_str(")!=Cnil)",VV[16]);}
 
797
T422:;
 
798
        if(((V138))==(Ct)){
 
799
        goto T441;}
 
800
        princ_char(123,VV[16]);
 
801
T441:;
 
802
        (void)((*(LnkLI57))((V139)));
 
803
        princ_str("\n   ",VV[16]);
 
804
        if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139));
 
805
        ((V139))->c.c_cdr = Ct;
 
806
        princ_str("goto T",VV[16]);
 
807
        (void)((*(LnkLI54))(car((V139))));
 
808
        princ_char(59,VV[16]);
 
809
        if(((V138))==(Ct)){
 
810
        goto T453;}
 
811
        princ_char(125,VV[16]);
 
812
        {object V141 = Cnil;
 
813
        VMR11(V141)}
 
814
T453:;
 
815
        {object V142 = Cnil;
 
816
        VMR11(V142)}
 
817
T420:;
 
818
        {object V143 = Cnil;
 
819
        VMR11(V143)}
 
820
}
 
821
/*      local entry for function SET-JUMP-FALSE */
 
822
 
 
823
static object LI12(V146,V147)
 
824
 
 
825
register object V146;object V147;
 
826
{        VMB12 VMS12 VMV12
 
827
TTL:;
 
828
        if(((V146))==(Ct)){
 
829
        goto T457;}
 
830
        {object V148;
 
831
        V148= (((V146))==Cnil?Ct:Cnil);
 
832
        if(((V148))==Cnil){
 
833
        goto T462;}
 
834
        goto T459;
 
835
T462:;
 
836
        if(!(type_of((V146))==t_cons)){
 
837
        goto T465;}
 
838
        if(!((car((V146)))==(VV[25]))){
 
839
        goto T465;}
 
840
        princ_str("\n   if(!(",VV[16]);
 
841
        base[0]= caddr((V146));
 
842
        base[1]= cadddr((V146));
 
843
        vs_top=(vs_base=base+0)+2;
 
844
        (void) (*Lnk64)();
 
845
        vs_top=sup;
 
846
        princ_str("))",VV[16]);
 
847
        goto T459;
 
848
T465:;
 
849
        princ_str("\n   if((",VV[16]);
 
850
        (void)((*(LnkLI54))((V146)));
 
851
        princ_str(")==Cnil)",VV[16]);}
 
852
T459:;
 
853
        if(((V146))==Cnil){
 
854
        goto T478;}
 
855
        princ_char(123,VV[16]);
 
856
T478:;
 
857
        (void)((*(LnkLI57))((V147)));
 
858
        princ_str("\n   ",VV[16]);
 
859
        if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147));
 
860
        ((V147))->c.c_cdr = Ct;
 
861
        princ_str("goto T",VV[16]);
 
862
        (void)((*(LnkLI54))(car((V147))));
 
863
        princ_char(59,VV[16]);
 
864
        if(((V146))==Cnil){
 
865
        goto T490;}
 
866
        princ_char(125,VV[16]);
 
867
        {object V149 = Cnil;
 
868
        VMR12(V149)}
 
869
T490:;
 
870
        {object V150 = Cnil;
 
871
        VMR12(V150)}
 
872
T457:;
 
873
        {object V151 = Cnil;
 
874
        VMR12(V151)}
 
875
}
 
876
/*      local entry for function C1ECASE        */
 
877
 
 
878
static object LI13(V153)
 
879
 
 
880
object V153;
 
881
{        VMB13 VMS13 VMV13
 
882
TTL:;
 
883
        {object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct));
 
884
        VMR13(V154)}
 
885
}
 
886
/*      local entry for function CONVERT-CASE-TO-SWITCH */
 
887
 
 
888
static object LI14(V157,V158)
 
889
 
 
890
object V157;object V158;
 
891
{        VMB14 VMS14 VMV14
 
892
TTL:;
 
893
        {object V159;
 
894
        register object V160;
 
895
        register object V161;
 
896
        vs_base=vs_top;
 
897
        Lgensym();
 
898
        vs_top=sup;
 
899
        V159= vs_base[0];
 
900
        V160= Cnil;
 
901
        V161= Cnil;
 
902
        {register object V162;
 
903
        register object V163;
 
904
        V162= cdr((V157));
 
905
        V163= car((V162));
 
906
T498:;
 
907
        if(!(endp((V162)))){
 
908
        goto T499;}
 
909
        goto T494;
 
910
T499:;
 
911
        if(!(type_of(car((V163)))==t_fixnum)){
 
912
        goto T505;}
 
913
        V160= make_cons(car((V163)),(V160));
 
914
        goto T503;
 
915
T505:;
 
916
        if(!(type_of(car((V163)))==t_cons)){
 
917
        goto T509;}
 
918
        {register object V164;
 
919
        register object V165;
 
920
        V164= car((V163));
 
921
        V165= car((V164));
 
922
T514:;
 
923
        if(!(endp((V164)))){
 
924
        goto T515;}
 
925
        goto T503;
 
926
T515:;
 
927
        V160= make_cons((V165),(V160));
 
928
        V164= cdr((V164));
 
929
        V165= car((V164));
 
930
        goto T514;}
 
931
T509:;
 
932
        {register object x= car((V163)),V166= VV[26];
 
933
        while(!endp(V166))
 
934
        if(eql(x,V166->c.c_car)){
 
935
        goto T527;
 
936
        }else V166=V166->c.c_cdr;
 
937
        goto T503;}
 
938
T527:;
 
939
        if((V158)==Cnil){
 
940
        goto T528;}
 
941
        base[2]= VV[27];
 
942
        vs_top=(vs_base=base+2)+1;
 
943
        (void) (*Lnk66)();
 
944
        vs_top=sup;
 
945
T528:;
 
946
        V160= make_cons(Ct,(V160));
 
947
T503:;
 
948
        V167= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));
 
949
        V160= make_cons(/* INLINE-ARGS */V167,(V160));
 
950
        V162= cdr((V162));
 
951
        V163= car((V162));
 
952
        goto T498;}
 
953
T494:;
 
954
        if(((V158))==Cnil){
 
955
        goto T538;}
 
956
        V160= make_cons(Ct,(V160));
 
957
        {register object V168;
 
958
        object V169;
 
959
        V168= cdr((V157));
 
960
        V169= car((V168));
 
961
T547:;
 
962
        if(!(endp((V168)))){
 
963
        goto T548;}
 
964
        goto T543;
 
965
T548:;
 
966
        if(!(type_of(car((V169)))!=t_cons)){
 
967
        goto T554;}
 
968
        V161= make_cons(car((V169)),(V161));
 
969
        goto T552;
 
970
T554:;
 
971
        V161= append(car((V169)),(V161));
 
972
T552:;
 
973
        V168= cdr((V168));
 
974
        V169= car((V168));
 
975
        goto T547;}
 
976
T543:;
 
977
        V170= car((V157));
 
978
        V171= list(4,VV[30],VV[31],/* INLINE-ARGS */V170,list(2,VV[32],(V161)));
 
979
        V160= make_cons(/* INLINE-ARGS */V171,(V160));
 
980
T538:;
 
981
        V172= car((V157));
 
982
        {object V173 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V172,nreverse((V160))));
 
983
        VMR14(V173)}}
 
984
}
 
985
/*      local entry for function C1CASE */
 
986
 
 
987
static object LI15(V174,va_alist)
 
988
        object V174;
 
989
        va_dcl 
 
990
{       
 
991
        va_list ap;
 
992
        int narg = VFUN_NARGS; VMB15 VMS15 VMV15
 
993
        {object V175;
 
994
        register object V176;
 
995
        if(narg <1) too_few_arguments();
 
996
        V175= V174;
 
997
        narg = narg - 1;
 
998
        if (narg <= 0) goto T564;
 
999
        else {
 
1000
        va_start(ap);
 
1001
        V176= va_arg(ap,object);}
 
1002
        --narg; goto T565;
 
1003
T564:;
 
1004
        V176= Cnil;
 
1005
T565:;
 
1006
        if(!(endp((V175)))){
 
1007
        goto T567;}
 
1008
        (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));
 
1009
T567:;
 
1010
        {register object V177;
 
1011
        object V178;
 
1012
        object V179;
 
1013
        V177= (VFUN_NARGS=0,(*(LnkLI48))());
 
1014
        V178= (*(LnkLI50))(car((V175)),(V177));
 
1015
        V179= Cnil;
 
1016
        base[2]= structure_ref(cadr((V178)),VV[36],2);
 
1017
        base[3]= VV[37];
 
1018
        vs_top=(vs_base=base+2)+2;
 
1019
        (void) (*Lnk67)();
 
1020
        vs_top=sup;
 
1021
        if((vs_base[0])==Cnil){
 
1022
        goto T573;}
 
1023
        V180= (*(LnkLI68))((V175),(V176));
 
1024
        {object V181 = (*(LnkLI46))(/* INLINE-ARGS */V180);
 
1025
        VMR15(V181)}
 
1026
T573:;
 
1027
        {register object V182;
 
1028
        register object V183;
 
1029
        V182= cdr((V175));
 
1030
        V183= car((V182));
 
1031
T582:;
 
1032
        if(!(endp((V182)))){
 
1033
        goto T583;}
 
1034
        goto T578;
 
1035
T583:;
 
1036
        if(!(endp((V183)))){
 
1037
        goto T587;}
 
1038
        (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V183))));
 
1039
T587:;
 
1040
        {object V184= car((V183));
 
1041
        if((V184!= Cnil))goto T591;
 
1042
        goto T590;
 
1043
T591:;
 
1044
        if((V184!= Ct)
 
1045
        && (V184!= VV[70]))goto T592;
 
1046
        if(((V176))==Cnil){
 
1047
        goto T593;}
 
1048
        if(!(((V176))==(Ct))){
 
1049
        goto T598;}
 
1050
        V185= VV[39];
 
1051
        goto T596;
 
1052
T598:;
 
1053
        V185= VV[40];
 
1054
T596:;
 
1055
        (void)((VFUN_NARGS=1,(*(LnkLI69))(V185)));
 
1056
T593:;
 
1057
        V176= (*(LnkLI71))(cdr((V183)));
 
1058
        (void)((*(LnkLI72))((V177),cadr((V176))));
 
1059
        goto T590;
 
1060
T592:;
 
1061
        {object V186;
 
1062
        register object V187;
 
1063
        if(!(type_of(car((V183)))==t_cons)){
 
1064
        goto T604;}
 
1065
        {object V188;
 
1066
        object V189= car((V183));
 
1067
        if(endp(V189)){
 
1068
        V186= Cnil;
 
1069
        goto T602;}
 
1070
        base[6]=V188=MMcons(Cnil,Cnil);
 
1071
T606:;
 
1072
        {register object V190;
 
1073
        V190= (V189->c.c_car);
 
1074
        if(!(type_of((V190))==t_symbol)){
 
1075
        goto T609;}
 
1076
        (V188->c.c_car)= (V190);
 
1077
        goto T607;
 
1078
T609:;
 
1079
        (V188->c.c_car)= (*(LnkLI73))((V190));}
 
1080
T607:;
 
1081
        if(endp(V189=MMcdr(V189))){
 
1082
        V186= base[6];
 
1083
        goto T602;}
 
1084
        V188=MMcdr(V188)=MMcons(Cnil,Cnil);
 
1085
        goto T606;}
 
1086
T604:;
 
1087
        if(!(type_of(car((V183)))==t_symbol)){
 
1088
        goto T612;}
 
1089
        V186= make_cons(car((V183)),Cnil);
 
1090
        goto T602;
 
1091
T612:;
 
1092
        V191= (*(LnkLI73))(car((V183)));
 
1093
        V186= make_cons(/* INLINE-ARGS */V191,Cnil);
 
1094
T602:;
 
1095
        V187= (*(LnkLI71))(cdr((V183)));
 
1096
        (void)((*(LnkLI72))((V177),cadr((V187))));
 
1097
        V192= make_cons((V186),(V187));
 
1098
        V179= make_cons(/* INLINE-ARGS */V192,(V179));}}
 
1099
T590:;
 
1100
        V182= cdr((V182));
 
1101
        V183= car((V182));
 
1102
        goto T582;}
 
1103
T578:;
 
1104
        V193= reverse((V179));
 
1105
        if((V176)!=Cnil){
 
1106
        V194= (V176);
 
1107
        goto T622;}
 
1108
        V194= (*(LnkLI47))();
 
1109
T622:;
 
1110
        {object V195 = list(5,VV[35],(V177),(V178),/* INLINE-ARGS */V193,V194);
 
1111
        VMR15(V195)}}}
 
1112
        }
 
1113
/*      local entry for function C2CASE */
 
1114
 
 
1115
static object LI16(V199,V200,V201)
 
1116
 
 
1117
object V199;object V200;object V201;
 
1118
{        VMB16 VMS16 VMV16
 
1119
        bds_check;
 
1120
TTL:;
 
1121
        {register object V202;
 
1122
        setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));
 
1123
        V202= symbol_value(VV[41]);
 
1124
        bds_bind(VV[21],symbol_value(VV[21]));
 
1125
        bds_bind(VV[24],small_fixnum(0));
 
1126
        V203= make_cons((V199),Cnil);
 
1127
        V204= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V203,VV[42]));
 
1128
        V199= car(/* INLINE-ARGS */V204);
 
1129
        princ_str("\n   {object V",VV[16]);
 
1130
        (void)((*(LnkLI54))((V202)));
 
1131
        princ_str("= ",VV[16]);
 
1132
        (void)((*(LnkLI54))((V199)));
 
1133
        princ_char(59,VV[16]);
 
1134
        {object V205;
 
1135
        object V206;
 
1136
        V205= (V200);
 
1137
        V206= car((V205));
 
1138
T637:;
 
1139
        if(!(endp((V205)))){
 
1140
        goto T638;}
 
1141
        goto T633;
 
1142
T638:;
 
1143
        {object V207;
 
1144
        register object V208;
 
1145
        register object V209;
 
1146
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
1147
        V207= make_cons(symbol_value(VV[9]),Cnil);
 
1148
        V208= car((V206));
 
1149
        V209= Cnil;
 
1150
T649:;
 
1151
        if(!((length((V208)))<=(5))){
 
1152
        goto T650;}
 
1153
        goto T647;
 
1154
T650:;
 
1155
        if(((V209))!=Cnil){
 
1156
        goto T654;}
 
1157
        setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
 
1158
        V209= make_cons(symbol_value(VV[9]),Cnil);
 
1159
T654:;
 
1160
        princ_str("\n   if(",VV[16]);
 
1161
        {register object V211;
 
1162
        V211= small_fixnum(0);
 
1163
T664:;
 
1164
        if(!(number_compare((V211),small_fixnum(5))>=0)){
 
1165
        goto T665;}
 
1166
        goto T661;
 
1167
T665:;
 
1168
        if(!(type_of(car((V208)))==t_symbol)){
 
1169
        goto T671;}
 
1170
        princ_str("(V",VV[16]);
 
1171
        (void)((*(LnkLI54))((V202)));
 
1172
        princ_str("== ",VV[16]);
 
1173
        {object V212= car((V208));
 
1174
        if((V212!= Ct))goto T678;
 
1175
        princ_str("Ct",VV[16]);
 
1176
        goto T677;
 
1177
T678:;
 
1178
        if((V212!= Cnil))goto T680;
 
1179
        princ_str("Cnil",VV[16]);
 
1180
        goto T677;
 
1181
T680:;
 
1182
        princ_str("VV[",VV[16]);
 
1183
        V213= (*(LnkLI75))(car((V208)));
 
1184
        (void)((*(LnkLI54))(/* INLINE-ARGS */V213));
 
1185
        princ_char(93,VV[16]);}
 
1186
T677:;
 
1187
        princ_char(41,VV[16]);
 
1188
        goto T669;
 
1189
T671:;
 
1190
        princ_str("eql(V",VV[16]);
 
1191
        (void)((*(LnkLI54))((V202)));
 
1192
        princ_str(",VV[",VV[16]);
 
1193
        (void)((*(LnkLI54))(car((V208))));
 
1194
        princ_str("])",VV[16]);
 
1195
T669:;
 
1196
        if(!(number_compare((V211),small_fixnum(4))<0)){
 
1197
        goto T691;}
 
1198
        princ_str("\n   || ",VV[16]);
 
1199
T691:;
 
1200
        {object V214;
 
1201
        V214= car((V208));
 
1202
        V208= cdr((V208));}
 
1203
        V211= one_plus((V211));
 
1204
        goto T664;}
 
1205
T661:;
 
1206
        princ_char(41,VV[16]);
 
1207
        if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209));
 
1208
        ((V209))->c.c_cdr = Ct;
 
1209
        princ_str("goto T",VV[16]);
 
1210
        (void)((*(LnkLI54))(car((V209))));
 
1211
        princ_char(59,VV[16]);
 
1212
        goto T649;
 
1213
T647:;
 
1214
        princ_str("\n   if(",VV[16]);
 
1215
T715:;
 
1216
        if(!(endp((V208)))){
 
1217
        goto T716;}
 
1218
        goto T713;
 
1219
T716:;
 
1220
        if(!(type_of(car((V208)))==t_symbol)){
 
1221
        goto T722;}
 
1222
        princ_str("(V",VV[16]);
 
1223
        (void)((*(LnkLI54))((V202)));
 
1224
        princ_str("!= ",VV[16]);
 
1225
        {object V215= car((V208));
 
1226
        if((V215!= Ct))goto T729;
 
1227
        princ_str("Ct",VV[16]);
 
1228
        goto T728;
 
1229
T729:;
 
1230
        if((V215!= Cnil))goto T731;
 
1231
        princ_str("Cnil",VV[16]);
 
1232
        goto T728;
 
1233
T731:;
 
1234
        princ_str("VV[",VV[16]);
 
1235
        V216= (*(LnkLI75))(car((V208)));
 
1236
        (void)((*(LnkLI54))(/* INLINE-ARGS */V216));
 
1237
        princ_char(93,VV[16]);}
 
1238
T728:;
 
1239
        princ_char(41,VV[16]);
 
1240
        goto T720;
 
1241
T722:;
 
1242
        princ_str("!eql(V",VV[16]);
 
1243
        (void)((*(LnkLI54))((V202)));
 
1244
        princ_str(",VV[",VV[16]);
 
1245
        (void)((*(LnkLI54))(car((V208))));
 
1246
        princ_str("])",VV[16]);
 
1247
T720:;
 
1248
        if(endp(cdr((V208)))){
 
1249
        goto T742;}
 
1250
        princ_str("\n   && ",VV[16]);
 
1251
T742:;
 
1252
        {object V217;
 
1253
        V217= car((V208));
 
1254
        V208= cdr((V208));}
 
1255
        goto T715;
 
1256
T713:;
 
1257
        princ_char(41,VV[16]);
 
1258
        if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207));
 
1259
        ((V207))->c.c_cdr = Ct;
 
1260
        princ_str("goto T",VV[16]);
 
1261
        (void)((*(LnkLI54))(car((V207))));
 
1262
        princ_char(59,VV[16]);
 
1263
        if(((V209))==Cnil){
 
1264
        goto T759;}
 
1265
        if((cdr((V209)))==Cnil){
 
1266
        goto T759;}
 
1267
        princ_str("\nT",VV[16]);
 
1268
        (void)((*(LnkLI54))(car((V209))));
 
1269
        princ_str(":;",VV[16]);
 
1270
T759:;
 
1271
        base[6]= make_cons(VV[17],symbol_value(VV[15]));
 
1272
        bds_bind(VV[15],base[6]);
 
1273
        base[7]= cdr((V206));
 
1274
        vs_top=(vs_base=base+7)+1;
 
1275
        (void) (*Lnk55)();
 
1276
        vs_top=sup;
 
1277
        bds_unwind1;
 
1278
        if((cdr((V207)))==Cnil){
 
1279
        goto T642;}
 
1280
        princ_str("\nT",VV[16]);
 
1281
        (void)((*(LnkLI54))(car((V207))));
 
1282
        princ_str(":;",VV[16]);}
 
1283
T642:;
 
1284
        V205= cdr((V205));
 
1285
        V206= car((V205));
 
1286
        goto T637;}
 
1287
T633:;
 
1288
        if(!(((V201))==(Ct))){
 
1289
        goto T782;}
 
1290
        princ_str("\n   FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]);
 
1291
        (void)((*(LnkLI54))((V202)));
 
1292
        princ_str(");",VV[16]);
 
1293
        goto T780;
 
1294
T782:;
 
1295
        base[3]= (V201);
 
1296
        vs_top=(vs_base=base+3)+1;
 
1297
        (void) (*Lnk55)();
 
1298
        vs_top=sup;
 
1299
T780:;
 
1300
        princ_char(125,VV[16]);
 
1301
        {object V218 = (*(LnkLI63))();
 
1302
        bds_unwind1;
 
1303
        bds_unwind1;
 
1304
        VMR16(V218)}}
 
1305
}
 
1306
static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* ADD-SYMBOL */
 
1307
static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[74],&LnkLI74,ap);} /* INLINE-ARGS */
 
1308
static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* ADD-OBJECT */
 
1309
static object  LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],&LnkLI72,2,ap);} /* ADD-INFO */
 
1310
static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,1,ap);} /* C1PROGN */
 
1311
static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],&LnkLI69,ap);} /* CMPERR */
 
1312
static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,2,ap);} /* CONVERT-CASE-TO-SWITCH */
 
1313
static LnkT67(){ call_or_link(VV[67],&Lnk67);} /* SUBTYPEP */
 
1314
static LnkT66(){ call_or_link(VV[66],&Lnk66);} /* CMPERROR */
 
1315
static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* C1CASE */
 
1316
static LnkT64(){ call_or_link(VV[64],&Lnk64);} /* WT-INLINE-LOC */
 
1317
static object  LnkTLI63(){return call_proc0(VV[63],&LnkLI63);} /* CLOSE-INLINE-BLOCKS */
 
1318
static object  LnkTLI62(){return call_proc0(VV[62],&LnkLI62);} /* WT-C-PUSH */
 
1319
static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,2,ap);} /* WT-VAR */
 
1320
static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],&LnkLI60,ap);} /* UNWIND-EXIT */
 
1321
static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* C1ARGS */
 
1322
static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* C2EXPR* */
 
1323
static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* UNWIND-NO-EXIT */
 
1324
static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,3,ap);} /* CJT */
 
1325
static LnkT55(){ call_or_link(VV[55],&Lnk55);} /* C2EXPR */
 
1326
static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* WT1 */
 
1327
static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,3,ap);} /* CJF */
 
1328
static object  LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* C1T */
 
1329
static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,2,ap);} /* C1EXPR* */
 
1330
static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1FMLA */
 
1331
static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */
 
1332
static object  LnkTLI47(){return call_proc0(VV[47],&LnkLI47);} /* C1NIL */
 
1333
static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* C1EXPR */
 
1334
static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],&LnkLI45,1,ap);} /* C1FMLA-CONSTANT */
 
1335
static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,3,ap);} /* TOO-MANY-ARGS */
 
1336
static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,3,ap);} /* TOO-FEW-ARGS */