← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lsp/listlib.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:
lsp/listlib.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "listlib.h"
 
4
init_listlib(){do_init(VV);}
 
5
/*      local entry for function UNION  */
 
6
 
 
7
static object LI1(V2,V1,va_alist)
 
8
        object V2,V1;
 
9
        va_dcl 
 
10
{       
 
11
        va_list ap;
 
12
        int narg = VFUN_NARGS; VMB1 VMS1 VMV1
 
13
        {object V3;
 
14
        register object V4;
 
15
        register object V5;
 
16
        V3= V2;
 
17
        V4= V1;
 
18
        narg= narg - 2;
 
19
        va_start(ap);
 
20
        V6 = list_vector(narg,ap);
 
21
        V5= V6;
 
22
        {register object V7;
 
23
        register object V8;
 
24
        V7= Cnil;
 
25
        V8= Cnil;
 
26
        {register object V9;
 
27
        V9= (V3);
 
28
T4:;
 
29
        if(((V9))!=Cnil){
 
30
        goto T5;}
 
31
        if(((V8))==Cnil){
 
32
        goto T8;}
 
33
        ((V8))->c.c_cdr = (V4);
 
34
T8:;
 
35
        if((V7)!=Cnil){
 
36
        {object V10 = (V7);
 
37
        VMR1(V10)}}
 
38
        {object V11 = (V4);
 
39
        VMR1(V11)}
 
40
T5:;
 
41
        if(!(type_of((V9))==t_cons)){
 
42
        goto T13;}
 
43
        goto T12;
 
44
T13:;
 
45
        base[0]= VV[0];
 
46
        vs_top=(vs_base=base+0)+1;
 
47
        Lerror();
 
48
        vs_top=sup;
 
49
T12:;
 
50
        base[0]=VV[8]->s.s_gfdef;
 
51
        base[1]= CMPcar((V9));
 
52
        base[2]= (V4);
 
53
        {object V12;
 
54
        V12= (V5);
 
55
         vs_top=base+3;
 
56
         while(V12!=Cnil)
 
57
         {vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;}
 
58
        vs_base=base+1;}
 
59
        (void) (*Lnk8)();
 
60
        vs_top=sup;
 
61
        if((vs_base[0])!=Cnil){
 
62
        goto T16;}
 
63
        if(((V8))==Cnil){
 
64
        goto T23;}
 
65
        V13= make_cons(CMPcar((V9)),Cnil);
 
66
        ((V8))->c.c_cdr = /* INLINE-ARGS */V13;
 
67
        V8= CMPcdr((V8));
 
68
        goto T16;
 
69
T23:;
 
70
        V7= make_cons(CMPcar((V9)),Cnil);
 
71
        V8= (V7);
 
72
T16:;
 
73
        V9= CMPcdr((V9));
 
74
        goto T4;}}}
 
75
        }
 
76
/*      local entry for function NUNION */
 
77
 
 
78
static object LI2(V15,V14,va_alist)
 
79
        object V15,V14;
 
80
        va_dcl 
 
81
{       
 
82
        va_list ap;
 
83
        int narg = VFUN_NARGS; VMB2 VMS2 VMV2
 
84
        {object V16;
 
85
        register object V17;
 
86
        register object V18;
 
87
        V16= V15;
 
88
        V17= V14;
 
89
        narg= narg - 2;
 
90
        va_start(ap);
 
91
        V19 = list_vector(narg,ap);
 
92
        V18= V19;
 
93
        {register object V20;
 
94
        register object V21;
 
95
        V20= Cnil;
 
96
        V21= Cnil;
 
97
        {register object V22;
 
98
        V22= (V16);
 
99
T36:;
 
100
        if(((V22))!=Cnil){
 
101
        goto T37;}
 
102
        if(((V21))==Cnil){
 
103
        goto T40;}
 
104
        ((V21))->c.c_cdr = (V17);
 
105
T40:;
 
106
        if((V20)!=Cnil){
 
107
        {object V23 = (V20);
 
108
        VMR2(V23)}}
 
109
        {object V24 = (V17);
 
110
        VMR2(V24)}
 
111
T37:;
 
112
        if(!(type_of((V22))==t_cons)){
 
113
        goto T45;}
 
114
        goto T44;
 
115
T45:;
 
116
        base[0]= VV[1];
 
117
        vs_top=(vs_base=base+0)+1;
 
118
        Lerror();
 
119
        vs_top=sup;
 
120
T44:;
 
121
        base[0]=VV[8]->s.s_gfdef;
 
122
        base[1]= CMPcar((V22));
 
123
        base[2]= (V17);
 
124
        {object V25;
 
125
        V25= (V18);
 
126
         vs_top=base+3;
 
127
         while(V25!=Cnil)
 
128
         {vs_push((V25)->c.c_car);V25=(V25)->c.c_cdr;}
 
129
        vs_base=base+1;}
 
130
        (void) (*Lnk8)();
 
131
        vs_top=sup;
 
132
        if((vs_base[0])!=Cnil){
 
133
        goto T48;}
 
134
        if(((V21))==Cnil){
 
135
        goto T56;}
 
136
        ((V21))->c.c_cdr = (V22);
 
137
        goto T54;
 
138
T56:;
 
139
        V20= (V22);
 
140
T54:;
 
141
        V21= (V22);
 
142
T48:;
 
143
        V22= CMPcdr((V22));
 
144
        goto T36;}}}
 
145
        }
 
146
/*      local entry for function INTERSECTION   */
 
147
 
 
148
static object LI3(V27,V26,va_alist)
 
149
        object V27,V26;
 
150
        va_dcl 
 
151
{       
 
152
        va_list ap;
 
153
        int narg = VFUN_NARGS; VMB3 VMS3 VMV3
 
154
        {object V28;
 
155
        register object V29;
 
156
        register object V30;
 
157
        V28= V27;
 
158
        V29= V26;
 
159
        narg= narg - 2;
 
160
        va_start(ap);
 
161
        V31 = list_vector(narg,ap);
 
162
        V30= V31;
 
163
        {register object V32;
 
164
        V32= Cnil;
 
165
        {register object V33;
 
166
        V33= (V28);
 
167
T65:;
 
168
        if(((V33))!=Cnil){
 
169
        goto T66;}
 
170
        {object V34 = (V32);
 
171
        VMR3(V34)}
 
172
T66:;
 
173
        if(!(type_of((V33))==t_cons)){
 
174
        goto T71;}
 
175
        goto T70;
 
176
T71:;
 
177
        base[0]= VV[2];
 
178
        vs_top=(vs_base=base+0)+1;
 
179
        Lerror();
 
180
        vs_top=sup;
 
181
T70:;
 
182
        base[0]=VV[8]->s.s_gfdef;
 
183
        base[1]= CMPcar((V33));
 
184
        base[2]= (V29);
 
185
        {object V35;
 
186
        V35= (V30);
 
187
         vs_top=base+3;
 
188
         while(V35!=Cnil)
 
189
         {vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;}
 
190
        vs_base=base+1;}
 
191
        (void) (*Lnk8)();
 
192
        vs_top=sup;
 
193
        if((vs_base[0])==Cnil){
 
194
        goto T74;}
 
195
        V32= make_cons(CMPcar((V33)),(V32));
 
196
T74:;
 
197
        V33= CMPcdr((V33));
 
198
        goto T65;}}}
 
199
        }
 
200
/*      local entry for function NINTERSECTION  */
 
201
 
 
202
static object LI4(V37,V36,va_alist)
 
203
        object V37,V36;
 
204
        va_dcl 
 
205
{       
 
206
        va_list ap;
 
207
        int narg = VFUN_NARGS; VMB4 VMS4 VMV4
 
208
        {object V38;
 
209
        register object V39;
 
210
        register object V40;
 
211
        V38= V37;
 
212
        V39= V36;
 
213
        narg= narg - 2;
 
214
        va_start(ap);
 
215
        V41 = list_vector(narg,ap);
 
216
        V40= V41;
 
217
        {register object V42;
 
218
        register object V43;
 
219
        V42= Cnil;
 
220
        V43= Cnil;
 
221
        {register object V44;
 
222
        V44= (V38);
 
223
T87:;
 
224
        if(((V44))!=Cnil){
 
225
        goto T88;}
 
226
        if(((V43))==Cnil){
 
227
        goto T91;}
 
228
        ((V43))->c.c_cdr = Cnil;
 
229
T91:;
 
230
        {object V45 = (V42);
 
231
        VMR4(V45)}
 
232
T88:;
 
233
        if(!(type_of((V44))==t_cons)){
 
234
        goto T96;}
 
235
        goto T95;
 
236
T96:;
 
237
        base[0]= VV[3];
 
238
        vs_top=(vs_base=base+0)+1;
 
239
        Lerror();
 
240
        vs_top=sup;
 
241
T95:;
 
242
        base[0]=VV[8]->s.s_gfdef;
 
243
        base[1]= CMPcar((V44));
 
244
        base[2]= (V39);
 
245
        {object V46;
 
246
        V46= (V40);
 
247
         vs_top=base+3;
 
248
         while(V46!=Cnil)
 
249
         {vs_push((V46)->c.c_car);V46=(V46)->c.c_cdr;}
 
250
        vs_base=base+1;}
 
251
        (void) (*Lnk8)();
 
252
        vs_top=sup;
 
253
        if((vs_base[0])==Cnil){
 
254
        goto T99;}
 
255
        if(((V43))==Cnil){
 
256
        goto T107;}
 
257
        ((V43))->c.c_cdr = (V44);
 
258
        goto T105;
 
259
T107:;
 
260
        V42= (V44);
 
261
T105:;
 
262
        V43= (V44);
 
263
T99:;
 
264
        V44= CMPcdr((V44));
 
265
        goto T87;}}}
 
266
        }
 
267
/*      local entry for function SET-DIFFERENCE */
 
268
 
 
269
static object LI5(V48,V47,va_alist)
 
270
        object V48,V47;
 
271
        va_dcl 
 
272
{       
 
273
        va_list ap;
 
274
        int narg = VFUN_NARGS; VMB5 VMS5 VMV5
 
275
        {object V49;
 
276
        register object V50;
 
277
        register object V51;
 
278
        V49= V48;
 
279
        V50= V47;
 
280
        narg= narg - 2;
 
281
        va_start(ap);
 
282
        V52 = list_vector(narg,ap);
 
283
        V51= V52;
 
284
        {register object V53;
 
285
        V53= Cnil;
 
286
        {register object V54;
 
287
        V54= (V49);
 
288
T116:;
 
289
        if(((V54))!=Cnil){
 
290
        goto T117;}
 
291
        {object V55 = (V53);
 
292
        VMR5(V55)}
 
293
T117:;
 
294
        if(!(type_of((V54))==t_cons)){
 
295
        goto T122;}
 
296
        goto T121;
 
297
T122:;
 
298
        base[0]= VV[4];
 
299
        vs_top=(vs_base=base+0)+1;
 
300
        Lerror();
 
301
        vs_top=sup;
 
302
T121:;
 
303
        base[0]=VV[8]->s.s_gfdef;
 
304
        base[1]= CMPcar((V54));
 
305
        base[2]= (V50);
 
306
        {object V56;
 
307
        V56= (V51);
 
308
         vs_top=base+3;
 
309
         while(V56!=Cnil)
 
310
         {vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;}
 
311
        vs_base=base+1;}
 
312
        (void) (*Lnk8)();
 
313
        vs_top=sup;
 
314
        if((vs_base[0])!=Cnil){
 
315
        goto T125;}
 
316
        V53= make_cons(CMPcar((V54)),(V53));
 
317
T125:;
 
318
        V54= CMPcdr((V54));
 
319
        goto T116;}}}
 
320
        }
 
321
/*      local entry for function NSET-DIFFERENCE        */
 
322
 
 
323
static object LI6(V58,V57,va_alist)
 
324
        object V58,V57;
 
325
        va_dcl 
 
326
{       
 
327
        va_list ap;
 
328
        int narg = VFUN_NARGS; VMB6 VMS6 VMV6
 
329
        {object V59;
 
330
        register object V60;
 
331
        register object V61;
 
332
        V59= V58;
 
333
        V60= V57;
 
334
        narg= narg - 2;
 
335
        va_start(ap);
 
336
        V62 = list_vector(narg,ap);
 
337
        V61= V62;
 
338
        {register object V63;
 
339
        register object V64;
 
340
        V63= Cnil;
 
341
        V64= Cnil;
 
342
        {register object V65;
 
343
        V65= (V59);
 
344
T138:;
 
345
        if(((V65))!=Cnil){
 
346
        goto T139;}
 
347
        if(((V64))==Cnil){
 
348
        goto T142;}
 
349
        ((V64))->c.c_cdr = Cnil;
 
350
T142:;
 
351
        {object V66 = (V63);
 
352
        VMR6(V66)}
 
353
T139:;
 
354
        if(!(type_of((V65))==t_cons)){
 
355
        goto T147;}
 
356
        goto T146;
 
357
T147:;
 
358
        base[0]= VV[5];
 
359
        vs_top=(vs_base=base+0)+1;
 
360
        Lerror();
 
361
        vs_top=sup;
 
362
T146:;
 
363
        base[0]=VV[8]->s.s_gfdef;
 
364
        base[1]= CMPcar((V65));
 
365
        base[2]= (V60);
 
366
        {object V67;
 
367
        V67= (V61);
 
368
         vs_top=base+3;
 
369
         while(V67!=Cnil)
 
370
         {vs_push((V67)->c.c_car);V67=(V67)->c.c_cdr;}
 
371
        vs_base=base+1;}
 
372
        (void) (*Lnk8)();
 
373
        vs_top=sup;
 
374
        if((vs_base[0])!=Cnil){
 
375
        goto T150;}
 
376
        if(((V64))==Cnil){
 
377
        goto T158;}
 
378
        ((V64))->c.c_cdr = (V65);
 
379
        goto T156;
 
380
T158:;
 
381
        V63= (V65);
 
382
T156:;
 
383
        V64= (V65);
 
384
T150:;
 
385
        V65= CMPcdr((V65));
 
386
        goto T138;}}}
 
387
        }
 
388
/*      local entry for function SET-EXCLUSIVE-OR       */
 
389
 
 
390
static object LI7(V69,V68,va_alist)
 
391
        object V69,V68;
 
392
        va_dcl 
 
393
{       
 
394
        va_list ap;
 
395
        int narg = VFUN_NARGS; VMB7 VMS7 VMV7
 
396
        {object V70;
 
397
        object V71;
 
398
        object V72;
 
399
        object V73;
 
400
        object V74;
 
401
        object V75;
 
402
        V70= V69;
 
403
        V71= V68;
 
404
        narg= narg - 2;
 
405
        va_start(ap);
 
406
        V76 = make_list(narg);
 
407
        V72= V76;
 
408
        {
 
409
        parse_key_rest(V76,narg,Vcs +3,&LI7key,ap);
 
410
        V73=(Vcs[3]);
 
411
        V74=(Vcs[4]);
 
412
        V75=(Vcs[5]);
 
413
        base[0]= (V70);
 
414
        base[1]= (V71);
 
415
        {object V78;
 
416
        V78= (V72);
 
417
         vs_top=base+2;
 
418
         while(V78!=Cnil)
 
419
         {vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;}
 
420
        vs_base=base+0;}
 
421
        (void) (*Lnk12)();
 
422
        vs_top=sup;
 
423
        V77= vs_base[0];
 
424
        base[0]= (V71);
 
425
        base[1]= (V70);
 
426
        {object V80;
 
427
        V80= (V72);
 
428
         vs_top=base+2;
 
429
         while(V80!=Cnil)
 
430
         {vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;}
 
431
        vs_base=base+0;}
 
432
        (void) (*Lnk12)();
 
433
        vs_top=sup;
 
434
        V79= vs_base[0];
 
435
        {object V81 = nconc(V77,V79);
 
436
        VMR7(V81)}}
 
437
        }}
 
438
/*      local entry for function NSET-EXCLUSIVE-OR      */
 
439
 
 
440
static object LI8(V83,V82,va_alist)
 
441
        object V83,V82;
 
442
        va_dcl 
 
443
{       
 
444
        va_list ap;
 
445
        int narg = VFUN_NARGS; VMB8 VMS8 VMV8
 
446
        {object V84;
 
447
        register object V85;
 
448
        register object V86;
 
449
        V84= V83;
 
450
        V85= V82;
 
451
        narg= narg - 2;
 
452
        va_start(ap);
 
453
        V87 = list_vector(narg,ap);
 
454
        V86= V87;
 
455
        {object V88;
 
456
        register object V89;
 
457
        register object V90;
 
458
        register object V91;
 
459
        V88= Cnil;
 
460
        V89= Cnil;
 
461
        V90= Cnil;
 
462
        V91= Cnil;
 
463
        {register object V92;
 
464
        V92= (V84);
 
465
T178:;
 
466
        if(((V92))!=Cnil){
 
467
        goto T179;}
 
468
        if(((V91))==Cnil){
 
469
        goto T182;}
 
470
        ((V91))->c.c_cdr = Cnil;
 
471
T182:;
 
472
        if(((V89))==Cnil){
 
473
        goto T186;}
 
474
        base[0]= (V85);
 
475
        base[1]= (V90);
 
476
        {object V94;
 
477
        V94= (V86);
 
478
         vs_top=base+2;
 
479
         while(V94!=Cnil)
 
480
         {vs_push((V94)->c.c_car);V94=(V94)->c.c_cdr;}
 
481
        vs_base=base+0;}
 
482
        (void) (*Lnk13)();
 
483
        vs_top=sup;
 
484
        V93= vs_base[0];
 
485
        ((V89))->c.c_cdr = V93;
 
486
        {object V95 = (V88);
 
487
        VMR8(V95)}
 
488
T186:;
 
489
        base[0]= (V85);
 
490
        base[1]= (V90);
 
491
        {object V96;
 
492
        V96= (V86);
 
493
         vs_top=base+2;
 
494
         while(V96!=Cnil)
 
495
         {vs_push((V96)->c.c_car);V96=(V96)->c.c_cdr;}
 
496
        vs_base=base+0;}
 
497
        (void) (*Lnk13)();
 
498
        vs_top=sup;
 
499
        {object V97 = vs_base[0];
 
500
        VMR8(V97)}
 
501
T179:;
 
502
        if(!(type_of((V92))==t_cons)){
 
503
        goto T198;}
 
504
        goto T197;
 
505
T198:;
 
506
        base[0]= VV[6];
 
507
        vs_top=(vs_base=base+0)+1;
 
508
        Lerror();
 
509
        vs_top=sup;
 
510
T197:;
 
511
        base[0]=VV[8]->s.s_gfdef;
 
512
        base[1]= CMPcar((V92));
 
513
        base[2]= (V85);
 
514
        {object V98;
 
515
        V98= (V86);
 
516
         vs_top=base+3;
 
517
         while(V98!=Cnil)
 
518
         {vs_push((V98)->c.c_car);V98=(V98)->c.c_cdr;}
 
519
        vs_base=base+1;}
 
520
        (void) (*Lnk8)();
 
521
        vs_top=sup;
 
522
        if((vs_base[0])==Cnil){
 
523
        goto T203;}
 
524
        if(((V91))==Cnil){
 
525
        goto T210;}
 
526
        ((V91))->c.c_cdr = (V92);
 
527
        goto T208;
 
528
T210:;
 
529
        V90= (V92);
 
530
T208:;
 
531
        V91= (V92);
 
532
        goto T201;
 
533
T203:;
 
534
        if(((V89))==Cnil){
 
535
        goto T216;}
 
536
        ((V89))->c.c_cdr = (V92);
 
537
        goto T214;
 
538
T216:;
 
539
        V88= (V92);
 
540
T214:;
 
541
        V89= (V92);
 
542
T201:;
 
543
        V92= CMPcdr((V92));
 
544
        goto T178;}}}
 
545
        }
 
546
/*      local entry for function SUBSETP        */
 
547
 
 
548
static object LI9(V100,V99,va_alist)
 
549
        object V100,V99;
 
550
        va_dcl 
 
551
{       
 
552
        va_list ap;
 
553
        int narg = VFUN_NARGS; VMB9 VMS9 VMV9
 
554
        {object V101;
 
555
        register object V102;
 
556
        register object V103;
 
557
        object V104;
 
558
        object V105;
 
559
        object V106;
 
560
        V101= V100;
 
561
        V102= V99;
 
562
        narg= narg - 2;
 
563
        va_start(ap);
 
564
        V107 = make_list(narg);
 
565
        V103= V107;
 
566
        {
 
567
        parse_key_rest(V107,narg,Vcs +3,&LI9key,ap);
 
568
        V104=(Vcs[3]);
 
569
        V105=(Vcs[4]);
 
570
        V106=(Vcs[5]);
 
571
        {register object V108;
 
572
        V108= (V101);
 
573
T224:;
 
574
        if(((V108))!=Cnil){
 
575
        goto T225;}
 
576
        {object V109 = Ct;
 
577
        VMR9(V109)}
 
578
T225:;
 
579
        if(!(type_of((V108))==t_cons)){
 
580
        goto T230;}
 
581
        goto T229;
 
582
T230:;
 
583
        base[0]= VV[7];
 
584
        vs_top=(vs_base=base+0)+1;
 
585
        Lerror();
 
586
        vs_top=sup;
 
587
T229:;
 
588
        base[0]=VV[8]->s.s_gfdef;
 
589
        base[1]= CMPcar((V108));
 
590
        base[2]= (V102);
 
591
        {object V110;
 
592
        V110= (V103);
 
593
         vs_top=base+3;
 
594
         while(V110!=Cnil)
 
595
         {vs_push((V110)->c.c_car);V110=(V110)->c.c_cdr;}
 
596
        vs_base=base+1;}
 
597
        (void) (*Lnk8)();
 
598
        vs_top=sup;
 
599
        if((vs_base[0])!=Cnil){
 
600
        goto T233;}
 
601
        {object V111 = Cnil;
 
602
        VMR9(V111)}
 
603
T233:;
 
604
        V108= CMPcdr((V108));
 
605
        goto T224;}}
 
606
        }}
 
607
static LnkT13(){ call_or_link(VV[13],&Lnk13);} /* NSET-DIFFERENCE */
 
608
static LnkT12(){ call_or_link(VV[12],&Lnk12);} /* SET-DIFFERENCE */
 
609
static LnkT8(){ call_or_link(VV[8],&Lnk8);} /* MEMBER1 */