← Back to branch summary

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

« back to all changes in this revision

Viewing changes to clcs/c/clcs_kcl_cond.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
clcs/c/clcs_kcl_cond.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "clcs_kcl_cond.h"
 
4
void init_clcs_kcl_cond(){do_init(VV);}
 
5
/*      local entry for function progn 'compile2194     */
 
6
 
 
7
static object LI1()
 
8
 
 
9
{        VMB1 VMS1 VMV1
 
10
        goto TTL;
 
11
TTL:;
 
12
        base[0]= VV[0];
 
13
        vs_top=(vs_base=base+0)+1;
 
14
        (void) (*Lnk40)();
 
15
        vs_top=sup;
 
16
        {object V1 = Cnil;
 
17
        VMR1(V1)}
 
18
        base[0]=base[0];
 
19
        return Cnil;
 
20
}
 
21
/*      local entry for function progn 'compile2206     */
 
22
 
 
23
static object LI2()
 
24
 
 
25
{        VMB2 VMS2 VMV2
 
26
        goto TTL;
 
27
TTL:;
 
28
        if(!((VV[0])->s.s_dbind!=OBJNULL)){
 
29
        goto T4;}
 
30
        goto T3;
 
31
        goto T4;
 
32
T4:;
 
33
        base[0]= VV[1];
 
34
        base[1]= VV[2];
 
35
        vs_top=(vs_base=base+0)+2;
 
36
        Lmake_hash_table();
 
37
        vs_top=sup;
 
38
        (VV[0]->s.s_dbind)= vs_base[0];
 
39
        goto T3;
 
40
T3:;
 
41
        {object V2 = Cnil;
 
42
        VMR2(V2)}
 
43
        base[0]=base[0];
 
44
        return Cnil;
 
45
}
 
46
/*      local entry for function progn 'compile2219     */
 
47
 
 
48
static object LI3()
 
49
 
 
50
{        VMB3 VMS3 VMV3
 
51
        goto TTL;
 
52
TTL:;
 
53
        {object V3 = Cnil;
 
54
        VMR3(V3)}
 
55
        return Cnil;
 
56
}
 
57
/*      macro definition for FIND-INTERNAL-ERROR-DATA   */
 
58
 
 
59
static void L4()
 
60
{register object *base=vs_base;
 
61
        register object *sup=base+VM4; VC4
 
62
        vs_check;
 
63
        vs_top=sup;
 
64
        {object V4=base[0]->c.c_cdr;
 
65
        base[2]= (V4->c.c_car);}
 
66
        base[3]= list(3,VV[3],list(2,VV[4],base[2]),VV[0]);
 
67
        vs_top=(vs_base=base+3)+1;
 
68
        return;
 
69
}
 
70
/*      function definition for CLCS-UNIVERSAL-ERROR-HANDLER    */
 
71
 
 
72
static void L5()
 
73
{register object *VOL base=vs_base;
 
74
        register object *VOL sup=base+VM5; VC5
 
75
        vs_check;
 
76
        bds_check;
 
77
        {VOL object V5;
 
78
        VOL object V6;
 
79
        VOL object V7;
 
80
        VOL object V8;
 
81
        V5=(base[0]);
 
82
        V6=(base[1]);
 
83
        V7=(base[2]);
 
84
        base[3]=MMcons(base[3],Cnil);
 
85
        V8=(base[4]);
 
86
        vs_base=vs_base+5;
 
87
        vs_top[0]=Cnil;
 
88
        {object *p=vs_top;
 
89
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
90
        base[5]=MMcons(base[5],base[3]);
 
91
        vs_top=sup;
 
92
        {VOL object V9;
 
93
        base[6]= make_cons((V5),Cnil);
 
94
        base[7]= (VV[0]->s.s_dbind);
 
95
        vs_top=(vs_base=base+6)+2;
 
96
        Lgethash();
 
97
        vs_top=sup;
 
98
        V9= vs_base[0];
 
99
        if(((V9))==Cnil){
 
100
        goto T14;}
 
101
        {VOL object V10;
 
102
        V10= CMPcar((V9));
 
103
        if(((V6))==Cnil){
 
104
        goto T18;}
 
105
        base[6]=MMcons(Cnil,base[5]);
 
106
        base[7]=alloc_frame_id();
 
107
        base[7]=MMcons(base[7],base[6]);
 
108
        frs_push(FRS_CATCH,(base[7]->c.c_car));
 
109
        if(nlj_active){
 
110
        nlj_active=FALSE;
 
111
        if(eql(nlj_tag,VV[14]))goto T21;
 
112
        FEerror("The GO tag ~s is not established.",1,nlj_tag);
 
113
        }
 
114
        V11= 
 
115
        make_cclosure_new(LC23,Cnil,base[7],Cdata);
 
116
        V12= 
 
117
        make_cclosure_new(LC24,Cnil,base[7],Cdata);
 
118
        V13= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[7],VV[8],V11,VV[9],V12));
 
119
        V14= make_cons(/* INLINE-ARGS */V13,Cnil);
 
120
        base[8]= make_cons(/* INLINE-ARGS */V14,(VV[5]->s.s_dbind));
 
121
        bds_bind(VV[5],base[8]);
 
122
        base[9]=VV[32]->s.s_gfdef;
 
123
        base[10]= (V10);
 
124
        base[11]= VV[11];
 
125
        base[12]= (V7);
 
126
        {object V15;
 
127
        {object V16;
 
128
        {object V17;
 
129
        object V18= CMPcdr((V9));
 
130
        object V19= (base[5]->c.c_car);
 
131
        if(V18==Cnil||V19==Cnil){
 
132
        V16= Cnil;
 
133
        goto T29;}
 
134
        base[13]=V17=MMcons(Cnil,Cnil);
 
135
        goto T30;
 
136
T30:;
 
137
        (V17->c.c_cdr)= list(2,(V18->c.c_car),(V19->c.c_car));
 
138
        while(MMcdr(V17)!=Cnil)V17=MMcdr(V17);
 
139
        if((V18=MMcdr(V18))==Cnil||(V19=MMcdr(V19))==Cnil){
 
140
        base[13]=base[13]->c.c_cdr;
 
141
        V16= base[13];
 
142
        goto T29;}
 
143
        goto T30;}
 
144
        goto T29;
 
145
T29:;
 
146
        if(((*(LnkLI42))((V10)))==Cnil){
 
147
        goto T33;}
 
148
        V15= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V16));
 
149
        goto T28;
 
150
        goto T33;
 
151
T33:;
 
152
        V15= (V16);}
 
153
        goto T28;
 
154
T28:;
 
155
         vs_top=base+13;
 
156
         while(V15!=Cnil)
 
157
         {vs_push((V15)->c.c_car);V15=(V15)->c.c_cdr;}
 
158
        vs_base=base+10;}
 
159
        (void) (*Lnk32)();
 
160
        frs_pop();
 
161
        bds_unwind1;
 
162
        return;
 
163
        goto T21;
 
164
T21:;
 
165
        {object V20;
 
166
        V20= (base[6]->c.c_car);
 
167
        base[8]= Cnil;
 
168
        base[9]= Ct;
 
169
        vs_top=(vs_base=base+8)+2;
 
170
        frs_pop();
 
171
        return;}
 
172
        frs_pop();
 
173
        base[8]= Cnil;
 
174
        vs_top=(vs_base=base+8)+1;
 
175
        return;
 
176
        goto T18;
 
177
T18:;
 
178
        base[6]=VV[32]->s.s_gfdef;
 
179
        base[7]= (V10);
 
180
        base[8]= VV[11];
 
181
        base[9]= (V7);
 
182
        {object V21;
 
183
        {object V22;
 
184
        {object V23;
 
185
        object V24= CMPcdr((V9));
 
186
        object V25= (base[5]->c.c_car);
 
187
        if(V24==Cnil||V25==Cnil){
 
188
        V22= Cnil;
 
189
        goto T42;}
 
190
        base[10]=V23=MMcons(Cnil,Cnil);
 
191
        goto T43;
 
192
T43:;
 
193
        (V23->c.c_cdr)= list(2,(V24->c.c_car),(V25->c.c_car));
 
194
        while(MMcdr(V23)!=Cnil)V23=MMcdr(V23);
 
195
        if((V24=MMcdr(V24))==Cnil||(V25=MMcdr(V25))==Cnil){
 
196
        base[10]=base[10]->c.c_cdr;
 
197
        V22= base[10];
 
198
        goto T42;}
 
199
        goto T43;}
 
200
        goto T42;
 
201
T42:;
 
202
        if(((*(LnkLI42))((V10)))==Cnil){
 
203
        goto T46;}
 
204
        V21= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V22));
 
205
        goto T41;
 
206
        goto T46;
 
207
T46:;
 
208
        V21= (V22);}
 
209
        goto T41;
 
210
T41:;
 
211
         vs_top=base+10;
 
212
         while(V21!=Cnil)
 
213
         {vs_push((V21)->c.c_car);V21=(V21)->c.c_cdr;}
 
214
        vs_base=base+7;}
 
215
        (void) (*Lnk32)();
 
216
        return;}
 
217
        goto T14;
 
218
T14:;
 
219
        base[6]= VV[15];
 
220
        base[7]= VV[11];
 
221
        base[8]= (V7);
 
222
        base[9]= VV[12];
 
223
        base[10]= (V8);
 
224
        base[11]= VV[13];
 
225
        base[12]= (base[5]->c.c_car);
 
226
        vs_top=(vs_base=base+6)+7;
 
227
        (void) (*Lnk32)();
 
228
        return;}
 
229
        }
 
230
}
 
231
/*      local entry for function SET-INTERNAL-ERROR     */
 
232
 
 
233
static object LI6(object V28,object V27,object V26,object first,...)
 
234
{       
 
235
        va_list ap;
 
236
        int narg = VFUN_NARGS; VMB6 VMS6 VMV6
 
237
        {object V29;
 
238
        object V30;
 
239
        object V31;
 
240
        object V32;
 
241
        va_start(ap,first);
 
242
        V29= V28;
 
243
        V30= V27;
 
244
        V31= V26;
 
245
        narg= narg - 3;
 
246
        V33 = list_vector_new(narg,first,ap);
 
247
        V32= V33;
 
248
        {object V34;
 
249
        object V35;
 
250
        object V36;
 
251
        V34= make_cons((V29),Cnil);
 
252
        V35= (VV[0]->s.s_dbind);
 
253
        V36= make_cons((V31),(V32));
 
254
        base[2]= (V34);
 
255
        base[3]= (V35);
 
256
        base[4]= (V36);
 
257
        vs_top=(vs_base=base+2)+3;
 
258
        siLhash_set();
 
259
        vs_top=sup;
 
260
        {object V37 = vs_base[0];
 
261
        VMR6(V37)}}
 
262
        va_end(ap);
 
263
        base[0]=base[0];
 
264
        return Cnil;}
 
265
        }
 
266
/*      local entry for function INITIALIZE-INTERNAL-ERROR-TABLE        */
 
267
 
 
268
static object LI7()
 
269
 
 
270
{        VMB7 VMS7 VMV7
 
271
        goto TTL;
 
272
TTL:;
 
273
        base[0]= (VV[0]->s.s_dbind);
 
274
        vs_top=(vs_base=base+0)+1;
 
275
        Lclrhash();
 
276
        vs_top=sup;
 
277
        {register object V38;
 
278
        register object V39;
 
279
        V38= (VV[16]->s.s_dbind);
 
280
        V39= CMPcar((V38));
 
281
        goto T66;
 
282
T66:;
 
283
        if(!(((V38))==Cnil)){
 
284
        goto T67;}
 
285
        {object V40 = Cnil;
 
286
        VMR7(V40)}
 
287
        goto T67;
 
288
T67:;
 
289
        {object V41;
 
290
        V41= CMPcdr((V39));
 
291
         vs_top=base+1;
 
292
         while(V41!=Cnil)
 
293
         {vs_push((V41)->c.c_car);V41=(V41)->c.c_cdr;}
 
294
        vs_base=base+1;}
 
295
        (void) (*Lnk43)();
 
296
        vs_top=sup;
 
297
        V38= CMPcdr((V38));
 
298
        V39= CMPcar((V38));
 
299
        goto T66;}
 
300
        base[0]=base[0];
 
301
        return Cnil;
 
302
}
 
303
/*      local entry for function progn 'compile2369     */
 
304
 
 
305
static object LI8()
 
306
 
 
307
{        VMB8 VMS8 VMV8
 
308
        goto TTL;
 
309
TTL:;
 
310
        base[0]= VV[16];
 
311
        vs_top=(vs_base=base+0)+1;
 
312
        (void) (*Lnk40)();
 
313
        vs_top=sup;
 
314
        {object V42 = Cnil;
 
315
        VMR8(V42)}
 
316
        base[0]=base[0];
 
317
        return Cnil;
 
318
}
 
319
/*      local entry for function progn 'compile2381     */
 
320
 
 
321
static object LI9()
 
322
 
 
323
{        VMB9 VMS9 VMV9
 
324
        goto TTL;
 
325
TTL:;
 
326
        (VV[16]->s.s_dbind)= VV[17];
 
327
        {object V43 = Cnil;
 
328
        VMR9(V43)}
 
329
        return Cnil;
 
330
}
 
331
/*      local entry for function progn 'compile2393     */
 
332
 
 
333
static object LI10()
 
334
 
 
335
{        VMB10 VMS10 VMV10
 
336
        goto TTL;
 
337
TTL:;
 
338
        {object V44 = Cnil;
 
339
        VMR10(V44)}
 
340
        return Cnil;
 
341
}
 
342
/*      local entry for function progn 'compile2504     */
 
343
 
 
344
static object LI11()
 
345
 
 
346
{        VMB11 VMS11 VMV11
 
347
        goto TTL;
 
348
TTL:;
 
349
        (void)((*(LnkLI44))());
 
350
        {object V45 = Cnil;
 
351
        VMR11(V45)}
 
352
        return Cnil;
 
353
}
 
354
/*      local entry for function CONDITION-BACKTRACE    */
 
355
 
 
356
static object LI12(V47)
 
357
 
 
358
object V47;
 
359
{        VMB12 VMS12 VMV12
 
360
        bds_check;
 
361
        goto TTL;
 
362
TTL:;
 
363
        bds_bind(VV[18],(VV[19]->s.s_dbind));
 
364
        bds_bind(VV[20],one_plus((VV[21]->s.s_dbind)));
 
365
        vs_base=vs_top;
 
366
        (void) (*Lnk45)();
 
367
        vs_top=sup;
 
368
        V48= vs_base[0];
 
369
        bds_bind(VV[21],one_minus(V48));
 
370
        bds_bind(VV[22],(VV[21]->s.s_dbind));{object V49;
 
371
        base[7]= (VV[24]->s.s_dbind);
 
372
        base[8]= (VV[20]->s.s_dbind);
 
373
        vs_top=(vs_base=base+7)+2;
 
374
        (void) (*Lnk46)();
 
375
        vs_top=sup;
 
376
        V49= vs_base[0];
 
377
        if(V49==Cnil)goto T88;
 
378
        bds_bind(VV[23],V49);
 
379
        goto T87;
 
380
        goto T88;
 
381
T88:;}
 
382
        vs_base=vs_top;
 
383
        (void) (*Lnk47)();
 
384
        vs_top=sup;
 
385
        V50= vs_base[0];
 
386
        bds_bind(VV[23],one_plus(V50));
 
387
        goto T87;
 
388
T87:;
 
389
        vs_base=vs_top;
 
390
        (void) (*Lnk47)();
 
391
        vs_top=sup;
 
392
        bds_bind(VV[24],vs_base[0]);
 
393
        bds_bind(VV[25],Cnil);
 
394
        base[7]= (VV[19]->s.s_dbind);
 
395
        base[8]= VV[26];
 
396
        base[9]= (V47);
 
397
        vs_top=(vs_base=base+7)+3;
 
398
        Lformat();
 
399
        vs_top=sup;
 
400
        vs_base=vs_top;
 
401
        (void) (*Lnk48)();
 
402
        vs_top=sup;
 
403
        {object V51 = vs_base[0];
 
404
        bds_unwind1;
 
405
        bds_unwind1;
 
406
        bds_unwind1;
 
407
        bds_unwind1;
 
408
        bds_unwind1;
 
409
        bds_unwind1;
 
410
        bds_unwind1;
 
411
        VMR12(V51)}
 
412
        base[0]=base[0];
 
413
        return Cnil;
 
414
}
 
415
/*      local entry for function progn 'compile2532     */
 
416
 
 
417
static object LI13()
 
418
 
 
419
{        VMB13 VMS13 VMV13
 
420
        goto TTL;
 
421
TTL:;
 
422
        base[0]= VV[27];
 
423
        vs_top=(vs_base=base+0)+1;
 
424
        (void) (*Lnk40)();
 
425
        vs_top=sup;
 
426
        {object V52 = Cnil;
 
427
        VMR13(V52)}
 
428
        base[0]=base[0];
 
429
        return Cnil;
 
430
}
 
431
/*      local entry for function progn 'compile2544     */
 
432
 
 
433
static object LI14()
 
434
 
 
435
{        VMB14 VMS14 VMV14
 
436
        goto TTL;
 
437
TTL:;
 
438
        if(!((VV[27])->s.s_dbind!=OBJNULL)){
 
439
        goto T101;}
 
440
        goto T100;
 
441
        goto T101;
 
442
T101:;
 
443
        (VV[27]->s.s_dbind)= Cnil;
 
444
        goto T100;
 
445
T100:;
 
446
        {object V53 = Cnil;
 
447
        VMR14(V53)}
 
448
        return Cnil;
 
449
}
 
450
/*      local entry for function progn 'compile2557     */
 
451
 
 
452
static object LI15()
 
453
 
 
454
{        VMB15 VMS15 VMV15
 
455
        goto TTL;
 
456
TTL:;
 
457
        {object V54 = Cnil;
 
458
        VMR15(V54)}
 
459
        return Cnil;
 
460
}
 
461
/*      function definition for CLCS-ERROR-SET  */
 
462
 
 
463
static void L16()
 
464
{register object *VOL base=vs_base;
 
465
        register object *VOL sup=base+VM16; VC16
 
466
        vs_check;
 
467
        bds_check;
 
468
        base[0]=MMcons(base[0],Cnil);
 
469
        vs_top=sup;
 
470
        base[1]=alloc_frame_id();
 
471
        base[1]=MMcons(base[1],base[0]);
 
472
        frs_push(FRS_CATCH,(base[1]->c.c_car));
 
473
        if(nlj_active)
 
474
        {nlj_active=FALSE;frs_pop();
 
475
        return;}
 
476
        else{
 
477
        base[2]=MMcons(Cnil,base[1]);
 
478
        base[3]=MMcons(Cnil,base[2]);
 
479
        base[4]=alloc_frame_id();
 
480
        base[4]=MMcons(base[4],base[3]);
 
481
        frs_push(FRS_CATCH,(base[4]->c.c_car));
 
482
        if(nlj_active){
 
483
        nlj_active=FALSE;
 
484
        if(eql(nlj_tag,VV[34]))goto T106;
 
485
        FEerror("The GO tag ~s is not established.",1,nlj_tag);
 
486
        }
 
487
        V55= 
 
488
        make_cclosure_new(LC25,Cnil,base[4],Cdata);
 
489
        V56= 
 
490
        make_cclosure_new(LC26,Cnil,base[4],Cdata);
 
491
        V57= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[28],VV[8],V55,VV[9],V56));
 
492
        V58= make_cons(/* INLINE-ARGS */V57,Cnil);
 
493
        base[5]= make_cons(/* INLINE-ARGS */V58,(VV[5]->s.s_dbind));
 
494
        bds_bind(VV[5],base[5]);
 
495
        V59= 
 
496
        make_cclosure_new(LC27,Cnil,base[4],Cdata);
 
497
        V60= make_cons(VV[32],V59);
 
498
        V61= make_cons(/* INLINE-ARGS */V60,Cnil);
 
499
        base[6]= make_cons(/* INLINE-ARGS */V61,(VV[31]->s.s_dbind));
 
500
        bds_bind(VV[31],base[6]);
 
501
        base[8]= (base[0]->c.c_car);
 
502
        vs_top=(vs_base=base+8)+1;
 
503
        Leval();
 
504
        Llist();
 
505
        vs_top=sup;
 
506
        V62= vs_base[0];
 
507
        base[7]= make_cons(Cnil,V62);
 
508
        vs_top=(vs_base=base+7)+1;
 
509
        Lvalues_list();
 
510
        frs_pop();
 
511
        frs_pop();
 
512
        bds_unwind1;
 
513
        bds_unwind1;
 
514
        return;
 
515
        goto T106;
 
516
T106:;
 
517
        {object V63;
 
518
        V63= (base[3]->c.c_car);
 
519
        frs_pop();
 
520
        frs_pop();
 
521
        base[5]= (base[2]->c.c_car);
 
522
        vs_top=(vs_base=base+5)+1;
 
523
        return;}
 
524
        frs_pop();
 
525
        frs_pop();
 
526
        base[5]= Cnil;
 
527
        vs_top=(vs_base=base+5)+1;
 
528
        return;
 
529
        }
 
530
}
 
531
/*      local entry for function RESET-FUNCTION */
 
532
 
 
533
static object LI17(V65)
 
534
 
 
535
object V65;
 
536
{        VMB17 VMS17 VMV17
 
537
        goto TTL;
 
538
TTL:;
 
539
        base[0]= (V65);
 
540
        base[2]= (V65);
 
541
        vs_top=(vs_base=base+2)+1;
 
542
        Lsymbol_function();
 
543
        vs_top=sup;
 
544
        base[1]= vs_base[0];
 
545
        vs_top=(vs_base=base+0)+2;
 
546
        siLfset();
 
547
        vs_top=sup;
 
548
        {object V66 = vs_base[0];
 
549
        VMR17(V66)}
 
550
        base[0]=base[0];
 
551
        return Cnil;
 
552
}
 
553
/*      local entry for function progn 'compile2649     */
 
554
 
 
555
static object LI18()
 
556
 
 
557
{        VMB18 VMS18 VMV18
 
558
        goto TTL;
 
559
TTL:;
 
560
        (void)((*(LnkLI50))(VV[28]));
 
561
        {object V67 = Cnil;
 
562
        VMR18(V67)}
 
563
        return Cnil;
 
564
}
 
565
/*      local entry for function progn 'compile2679     */
 
566
 
 
567
static object LI19()
 
568
 
 
569
{        VMB19 VMS19 VMV19
 
570
        goto TTL;
 
571
TTL:;
 
572
        (void)((*(LnkLI50))(VV[35]));
 
573
        {object V68 = Cnil;
 
574
        VMR19(V68)}
 
575
        return Cnil;
 
576
}
 
577
/*      local entry for function progn 'compile2709     */
 
578
 
 
579
static object LI20()
 
580
 
 
581
{        VMB20 VMS20 VMV20
 
582
        goto TTL;
 
583
TTL:;
 
584
        (void)((*(LnkLI50))(VV[36]));
 
585
        {object V69 = Cnil;
 
586
        VMR20(V69)}
 
587
        return Cnil;
 
588
}
 
589
/*      local entry for function progn 'compile2721     */
 
590
 
 
591
static object LI21()
 
592
 
 
593
{        VMB21 VMS21 VMV21
 
594
        goto TTL;
 
595
TTL:;
 
596
        (VV[37]->s.s_dbind)= Ct;
 
597
        {object V70 = Cnil;
 
598
        VMR21(V70)}
 
599
        return Cnil;
 
600
}
 
601
/*      function definition for CMP-TOPLEVEL-EVAL       */
 
602
 
 
603
static void L22()
 
604
{register object *base=vs_base;
 
605
        register object *sup=base+VM22; VC22
 
606
        vs_check;
 
607
        bds_check;
 
608
        {object V71;
 
609
        V71=(base[0]);
 
610
        vs_top=sup;
 
611
        goto TTL;
 
612
TTL:;
 
613
        vs_base=vs_top;
 
614
        (void) (*Lnk45)();
 
615
        vs_top=sup;
 
616
        V72= vs_base[0];
 
617
        bds_bind(VV[21],one_minus(V72));
 
618
        bds_bind(VV[33],(VV[37]->s.s_dbind));
 
619
        base[4]= VV[39];
 
620
        vs_top=(vs_base=base+4)+1;
 
621
        Lfind_package();
 
622
        vs_top=sup;
 
623
        V73= vs_base[0];
 
624
        bds_bind(VV[38],make_cons(V73,(VV[38]->s.s_dbind)));
 
625
        base[4]= (V71);
 
626
        vs_top=(vs_base=base+4)+1;
 
627
        (void) (*Lnk28)();
 
628
        bds_unwind1;
 
629
        bds_unwind1;
 
630
        bds_unwind1;
 
631
        return;
 
632
        }
 
633
}
 
634
/*      local function CLOSURE  */
 
635
 
 
636
static void LC27(base0)
 
637
register object *base0;
 
638
{       register object *base=vs_base;
 
639
        register object *sup=base+VM23; VC23
 
640
        vs_check;
 
641
        {object V74;
 
642
        V74=(base[0]);
 
643
        vs_top=sup;
 
644
        if(((VV[33]->s.s_dbind))!=Cnil){
 
645
        goto T131;}
 
646
        if(((VV[27]->s.s_dbind))!=Cnil){
 
647
        goto T131;}
 
648
        (void)((*(LnkLI51))((V74)));
 
649
        {frame_ptr fr;
 
650
        fr=frs_sch((base0[3]->c.c_car));
 
651
        if(fr==NULL) FEerror("The block ~s is missing.",1,VV[49]);
 
652
        base[1]= (V74);
 
653
        vs_top=(vs_base=base+1)+1;
 
654
        unwind(fr,Cnil);}
 
655
        goto T131;
 
656
T131:;
 
657
        (base0[2]->c.c_car)= (V74);
 
658
        base[1]= Cnil;
 
659
        vs_top=(vs_base=base+1)+1;
 
660
        return;
 
661
        }
 
662
}
 
663
/*      local function CLOSURE  */
 
664
 
 
665
static void LC26(base0)
 
666
register object *base0;
 
667
{       register object *base=vs_base;
 
668
        register object *sup=base+VM24; VC24
 
669
        vs_check;
 
670
        {object V75;
 
671
        V75=(base[0]);
 
672
        vs_top=sup;
 
673
        base[1]= (V75);
 
674
        base[2]= VV[29];
 
675
        base[3]= list(2,VV[28],list(2,VV[30],(base0[4]->c.c_car)));
 
676
        vs_top=(vs_base=base+1)+3;
 
677
        Lformat();
 
678
        return;
 
679
        }
 
680
}
 
681
/*      local function CLOSURE  */
 
682
 
 
683
static void LC25(base0)
 
684
register object *base0;
 
685
{       register object *base=vs_base;
 
686
        register object *sup=base+VM25; VC25
 
687
        vs_check;
 
688
        {object V76;
 
689
        vs_top[0]=Cnil;
 
690
        {object *p=vs_top;
 
691
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
692
        V76=(base[0]);
 
693
        vs_top=sup;
 
694
        (base0[1]->c.c_car)= (V76);
 
695
        {frame_ptr fr;
 
696
        fr=frs_sch((base0[0]->c.c_car));
 
697
        if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[34]);
 
698
        vs_base=vs_top;
 
699
        unwind(fr,VV[34]);}
 
700
        }
 
701
}
 
702
/*      local function CLOSURE  */
 
703
 
 
704
static void LC24(base0)
 
705
register object *base0;
 
706
{       register object *base=vs_base;
 
707
        register object *sup=base+VM26; VC26
 
708
        vs_check;
 
709
        {object V77;
 
710
        V77=(base[0]);
 
711
        vs_top=sup;
 
712
        base[1]= (V77);
 
713
        base[2]= VV[10];
 
714
        base[4]= Cnil;
 
715
        base[5]= (base0[3]->c.c_car);
 
716
        {object V78;
 
717
        V78= (base0[2]->c.c_car);
 
718
         vs_top=base+6;
 
719
         while(V78!=Cnil)
 
720
         {vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;}
 
721
        vs_base=base+4;}
 
722
        Lformat();
 
723
        vs_top=sup;
 
724
        base[3]= vs_base[0];
 
725
        vs_top=(vs_base=base+1)+3;
 
726
        Lformat();
 
727
        return;
 
728
        }
 
729
}
 
730
/*      local function CLOSURE  */
 
731
 
 
732
static void LC23(base0)
 
733
register object *base0;
 
734
{       register object *base=vs_base;
 
735
        register object *sup=base+VM27; VC27
 
736
        vs_check;
 
737
        {object V79;
 
738
        vs_top[0]=Cnil;
 
739
        {object *p=vs_top;
 
740
         for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
 
741
        V79=(base[0]);
 
742
        vs_top=sup;
 
743
        (base0[1]->c.c_car)= (V79);
 
744
        {frame_ptr fr;
 
745
        fr=frs_sch((base0[0]->c.c_car));
 
746
        if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[14]);
 
747
        vs_base=vs_top;
 
748
        unwind(fr,VV[14]);}
 
749
        }
 
750
}
 
751
static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CONDITION-BACKTRACE */
 
752
static void LnkT28(){ call_or_link(VV[28],(void **)(void *)&Lnk28);} /* ERROR-SET */
 
753
static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* RESET-FUNCTION */
 
754
static void LnkT48(){ call_or_link(VV[48],(void **)(void *)&Lnk48);} /* SIMPLE-BACKTRACE */
 
755
static void LnkT47(){ call_or_link(VV[47],(void **)(void *)&Lnk47);} /* FRS-TOP */
 
756
static void LnkT46(){ call_or_link(VV[46],(void **)(void *)&Lnk46);} /* SCH-FRS-BASE */
 
757
static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* IHS-TOP */
 
758
static object  LnkTLI44(){return call_proc0(VV[44],(void **)(void *)&LnkLI44);} /* INITIALIZE-INTERNAL-ERROR-TABLE */
 
759
static void LnkT43(){ call_or_link(VV[43],(void **)(void *)&Lnk43);} /* SET-INTERNAL-ERROR */
 
760
static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* ERROR */
 
761
static object  LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,1,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-CLASS-P */
 
762
static object  LnkTLI41(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[41],(void **)(void *)&LnkLI41,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */
 
763
static void LnkT40(){ call_or_link(VV[40],(void **)(void *)&Lnk40);} /* *MAKE-SPECIAL */
 
764
 
 
765
#ifdef SYSTEM_SPECIAL_INIT
 
766
SYSTEM_SPECIAL_INIT
 
767
#endif
 
768