← Back to branch summary

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

« back to all changes in this revision

Viewing changes to pcl/c/pcl_gcl_low.c

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

Show diffs side-by-side

added added

removed removed

Lines of Context:
pcl/c/pcl_gcl_low.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_gcl_low.h"
 
4
void init_pcl_gcl_low(){do_init(VV);}
 
5
/*      macro definition for MEMQ       */
 
6
 
 
7
static void L1()
 
8
{register object *base=vs_base;
 
9
        register object *sup=base+VM1; VC1
 
10
        vs_check;
 
11
        check_arg(2);
 
12
        vs_top=sup;
 
13
        {object V1=base[0]->c.c_cdr;
 
14
        if(endp(V1))invalid_macro_call();
 
15
        base[2]= (V1->c.c_car);
 
16
        V1=V1->c.c_cdr;
 
17
        if(endp(V1))invalid_macro_call();
 
18
        base[3]= (V1->c.c_car);
 
19
        V1=V1->c.c_cdr;
 
20
        if(!endp(V1))invalid_macro_call();}
 
21
        base[4]= listA(4,VV[0],base[2],base[3],VV[1]);
 
22
        vs_top=(vs_base=base+4)+1;
 
23
        return;
 
24
}
 
25
/*      macro definition for ASSQ       */
 
26
 
 
27
static void L2()
 
28
{register object *base=vs_base;
 
29
        register object *sup=base+VM2; VC2
 
30
        vs_check;
 
31
        check_arg(2);
 
32
        vs_top=sup;
 
33
        {object V2=base[0]->c.c_cdr;
 
34
        if(endp(V2))invalid_macro_call();
 
35
        base[2]= (V2->c.c_car);
 
36
        V2=V2->c.c_cdr;
 
37
        if(endp(V2))invalid_macro_call();
 
38
        base[3]= (V2->c.c_car);
 
39
        V2=V2->c.c_cdr;
 
40
        if(!endp(V2))invalid_macro_call();}
 
41
        base[4]= listA(4,VV[2],base[2],base[3],VV[3]);
 
42
        vs_top=(vs_base=base+4)+1;
 
43
        return;
 
44
}
 
45
/*      macro definition for POSQ       */
 
46
 
 
47
static void L3()
 
48
{register object *base=vs_base;
 
49
        register object *sup=base+VM3; VC3
 
50
        vs_check;
 
51
        check_arg(2);
 
52
        vs_top=sup;
 
53
        {object V3=base[0]->c.c_cdr;
 
54
        if(endp(V3))invalid_macro_call();
 
55
        base[2]= (V3->c.c_car);
 
56
        V3=V3->c.c_cdr;
 
57
        if(endp(V3))invalid_macro_call();
 
58
        base[3]= (V3->c.c_car);
 
59
        V3=V3->c.c_cdr;
 
60
        if(!endp(V3))invalid_macro_call();}
 
61
        base[4]= listA(4,VV[4],base[2],base[3],VV[5]);
 
62
        vs_top=(vs_base=base+4)+1;
 
63
        return;
 
64
}
 
65
/*      macro definition for DOTIMES    */
 
66
 
 
67
static void L4()
 
68
{register object *base=vs_base;
 
69
        register object *sup=base+VM4; VC4
 
70
        vs_check;
 
71
        check_arg(2);
 
72
        vs_top=sup;
 
73
        {object V4=base[0]->c.c_cdr;
 
74
        if(endp(V4))invalid_macro_call();
 
75
        {object V5= (V4->c.c_car);
 
76
        if(endp(V5))invalid_macro_call();
 
77
        base[2]= (V5->c.c_car);
 
78
        V5=V5->c.c_cdr;
 
79
        if(endp(V5))invalid_macro_call();
 
80
        base[3]= (V5->c.c_car);
 
81
        V5=V5->c.c_cdr;
 
82
        if(endp(V5)){
 
83
        base[4]= Cnil;
 
84
        } else {
 
85
        base[4]= (V5->c.c_car);
 
86
        V5=V5->c.c_cdr;}
 
87
        if(!endp(V5))invalid_macro_call();}
 
88
        V4=V4->c.c_cdr;
 
89
        base[5]= V4;}
 
90
        {object V6;
 
91
        object V7;
 
92
        object V8;
 
93
        base[6]= base[5];
 
94
        base[7]= base[1];
 
95
        vs_top=(vs_base=base+6)+2;
 
96
        (void) (*Lnk61)();
 
97
        if(vs_base>=vs_top){vs_top=sup;goto T5;}
 
98
        V6= vs_base[0];
 
99
        vs_base++;
 
100
        if(vs_base>=vs_top){vs_top=sup;goto T6;}
 
101
        V7= vs_base[0];
 
102
        vs_base++;
 
103
        if(vs_base>=vs_top){vs_top=sup;goto T7;}
 
104
        V8= vs_base[0];
 
105
        vs_top=sup;
 
106
        goto T8;
 
107
        goto T5;
 
108
T5:;
 
109
        V6= Cnil;
 
110
        goto T6;
 
111
T6:;
 
112
        V7= Cnil;
 
113
        goto T7;
 
114
T7:;
 
115
        V8= Cnil;
 
116
        goto T8;
 
117
T8:;
 
118
        {object V9;
 
119
        object V10;
 
120
        vs_base=vs_top;
 
121
        Lgensym();
 
122
        vs_top=sup;
 
123
        V9= vs_base[0];
 
124
        vs_base=vs_top;
 
125
        Lgensym();
 
126
        vs_top=sup;
 
127
        V10= vs_base[0];
 
128
        V11= list(2,(V9),base[3]);
 
129
        V12= list(2,/* INLINE-ARGS */V11,list(2,base[2],small_fixnum(0)));
 
130
        V13= list(2,VV[7],list(3,VV[8],(V9),base[2]));
 
131
        V14= list(3,VV[12],base[2],(V9));
 
132
        V15= list(3,VV[11],/* INLINE-ARGS */V14,list(3,VV[13],Cnil,base[4]));
 
133
        V16= list(3,VV[14],base[2],list(3,VV[15],VV[8],list(2,VV[16],base[2])));
 
134
        V17= list(2,/* INLINE-ARGS */V16,list(2,VV[17],(V10)));
 
135
        V18= list(3,VV[9],Cnil,listA(4,VV[10],(V10),/* INLINE-ARGS */V15,append((V8),/* INLINE-ARGS */V17)));
 
136
        V19= make_cons(/* INLINE-ARGS */V18,Cnil);
 
137
        base[6]= listA(4,VV[6],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,append((V7),/* INLINE-ARGS */V19));
 
138
        vs_top=(vs_base=base+6)+1;
 
139
        return;}}
 
140
}
 
141
/*      local entry for function PRINTING-RANDOM-THING-INTERNAL */
 
142
 
 
143
static object LI5(V22,V23)
 
144
 
 
145
object V22;object V23;
 
146
{        VMB5 VMS5 VMV5
 
147
        goto TTL;
 
148
TTL:;
 
149
        base[0]= (V23);
 
150
        base[1]= VV[18];
 
151
        base[3]= (V22);
 
152
        vs_top=(vs_base=base+3)+1;
 
153
        (void) (*Lnk62)();
 
154
        vs_top=sup;
 
155
        base[2]= vs_base[0];
 
156
        vs_top=(vs_base=base+0)+3;
 
157
        Lformat();
 
158
        vs_top=sup;
 
159
        {object V24 = vs_base[0];
 
160
        VMR5(V24)}
 
161
        base[0]=base[0];
 
162
        return Cnil;
 
163
}
 
164
/*      macro definition for %SVREF     */
 
165
 
 
166
static void L6()
 
167
{register object *base=vs_base;
 
168
        register object *sup=base+VM6; VC6
 
169
        vs_check;
 
170
        check_arg(2);
 
171
        vs_top=sup;
 
172
        {object V25=base[0]->c.c_cdr;
 
173
        if(endp(V25))invalid_macro_call();
 
174
        base[2]= (V25->c.c_car);
 
175
        V25=V25->c.c_cdr;
 
176
        if(endp(V25))invalid_macro_call();
 
177
        base[3]= (V25->c.c_car);
 
178
        V25=V25->c.c_cdr;
 
179
        if(!endp(V25))invalid_macro_call();}
 
180
        V26= list(3,VV[15],VV[20],base[2]);
 
181
        base[4]= list(3,VV[19],/* INLINE-ARGS */V26,list(3,VV[15],VV[8],base[3]));
 
182
        vs_top=(vs_base=base+4)+1;
 
183
        return;
 
184
}
 
185
/*      macro definition for FMC-FUNCALL        */
 
186
 
 
187
static void L7()
 
188
{register object *base=vs_base;
 
189
        register object *sup=base+VM7; VC7
 
190
        vs_check;
 
191
        check_arg(2);
 
192
        vs_top=sup;
 
193
        {object V27=base[0]->c.c_cdr;
 
194
        if(endp(V27))invalid_macro_call();
 
195
        base[2]= (V27->c.c_car);
 
196
        V27=V27->c.c_cdr;
 
197
        if(endp(V27))invalid_macro_call();
 
198
        base[3]= (V27->c.c_car);
 
199
        V27=V27->c.c_cdr;
 
200
        if(endp(V27))invalid_macro_call();
 
201
        base[4]= (V27->c.c_car);
 
202
        V27=V27->c.c_cdr;
 
203
        base[5]= V27;}
 
204
        base[6]= listA(5,VV[21],base[2],base[3],base[4],base[5]);
 
205
        vs_top=(vs_base=base+6)+1;
 
206
        return;
 
207
}
 
208
/*      local entry for function PROCLAIM-DEFMETHOD     */
 
209
 
 
210
static object LI8(V30,V31)
 
211
 
 
212
object V30;object V31;
 
213
{        VMB8 VMS8 VMV8
 
214
        goto TTL;
 
215
TTL:;
 
216
        if(type_of((V30))==t_symbol){
 
217
        goto T16;}
 
218
        {object V32 = Cnil;
 
219
        VMR8(V32)}
 
220
        goto T16;
 
221
T16:;
 
222
        {object V33 = sputprop((V30),VV[22],Ct);
 
223
        VMR8(V33)}
 
224
        return Cnil;
 
225
}
 
226
 
 
227
static
 
228
object cclosure_env_nthcdr (n,cc)
 
229
int n; object cc;
 
230
{  object env,*turbo;
 
231
   if(n<0)return Cnil;
 
232
   if(type_of(cc)!=t_cclosure)return Cnil;
 
233
   if((turbo=cc->cc.cc_turbo)==NULL)
 
234
     {env=cc->cc.cc_env;
 
235
      while(n-->0)
 
236
        {if(type_of(env)!=t_cons)return Cnil;
 
237
         env=env->c.c_cdr;}
 
238
      return env;}
 
239
   else
 
240
     {if(n>=fix(*(turbo-1)))return Cnil;
 
241
      return turbo[n];}
 
242
}
 
243
/*      function definition for CCLOSURE-ENV-NTHCDR     */
 
244
 
 
245
static void L9()
 
246
{       object *old_base=vs_base;
 
247
        object x;
 
248
        x=
 
249
        cclosure_env_nthcdr(
 
250
        object_to_int(vs_base[0]),
 
251
        vs_base[1]);
 
252
        vs_top=(vs_base=old_base)+1;
 
253
        vs_base[0]=x;
 
254
}
 
255
/*      function definition for %CCLOSURE-ENV-NTHCDR    */
 
256
 
 
257
static void L10()
 
258
{       object *old_base=vs_base;
 
259
        object x;
 
260
        x=
 
261
        cclosure_env_nthcdr(
 
262
        object_to_int(vs_base[0]),
 
263
        vs_base[1]);
 
264
        vs_top=(vs_base=old_base)+1;
 
265
        vs_base[0]=x;
 
266
}
 
267
 
 
268
static void
 
269
set_cclosure_env(object cc,object val) {
 
270
 if (type_of(cc)==t_cclosure)
 
271
   cc->cc.cc_env=val;
 
272
}
 
273
 
 
274
/*      function definition for SET-CCLOSURE-ENV        */
 
275
 
 
276
static void L11()
 
277
{       object *old_base=vs_base;
 
278
        set_cclosure_env(
 
279
        vs_base[0],
 
280
        vs_base[1]);
 
281
        vs_top=(vs_base=old_base)+1;
 
282
        vs_base[0]=Cnil;
 
283
}
 
284
/*      function definition for %SET-CCLOSURE-ENV       */
 
285
 
 
286
static void L12()
 
287
{       object *old_base=vs_base;
 
288
        set_cclosure_env(
 
289
        vs_base[0],
 
290
        vs_base[1]);
 
291
        vs_top=(vs_base=old_base)+1;
 
292
        vs_base[0]=Cnil;
 
293
}
 
294
 
 
295
static object
 
296
cclosurep(object o) {
 
297
  return type_of(o)==t_cclosure ? Ct : Cnil;
 
298
}
 
299
 
 
300
/*      function definition for CCLOSUREP       */
 
301
 
 
302
static void L13()
 
303
{       object *old_base=vs_base;
 
304
        object x;
 
305
        x=
 
306
        cclosurep(
 
307
        vs_base[0]);
 
308
        vs_top=(vs_base=old_base)+1;
 
309
        vs_base[0]=x;
 
310
}
 
311
 
 
312
static object
 
313
cclosure_env(object o) {
 
314
  return type_of(o)==t_cclosure ? o->cc.cc_env : Cnil;
 
315
}
 
316
 
 
317
/*      function definition for CCLOSURE-ENV    */
 
318
 
 
319
static void L14()
 
320
{       object *old_base=vs_base;
 
321
        object x;
 
322
        x=
 
323
        cclosure_env(
 
324
        vs_base[0]);
 
325
        vs_top=(vs_base=old_base)+1;
 
326
        vs_base[0]=x;
 
327
}
 
328
/*      function definition for %CCLOSURE-ENV   */
 
329
 
 
330
static void L15()
 
331
{       object *old_base=vs_base;
 
332
        object x;
 
333
        x=
 
334
        cclosure_env(
 
335
        vs_base[0]);
 
336
        vs_top=(vs_base=old_base)+1;
 
337
        vs_base[0]=x;
 
338
}
 
339
 
 
340
static void
 
341
set_compiled_function_name(object o,object n) {
 
342
/* check type here */
 
343
  o->cf.cf_name=n;
 
344
}
 
345
 
 
346
/*      function definition for SET-COMPILED-FUNCTION-NAME      */
 
347
 
 
348
static void L16()
 
349
{       object *old_base=vs_base;
 
350
        set_compiled_function_name(
 
351
        vs_base[0],
 
352
        vs_base[1]);
 
353
        vs_top=(vs_base=old_base)+1;
 
354
        vs_base[0]=Cnil;
 
355
}
 
356
/*      function definition for %SET-COMPILED-FUNCTION-NAME     */
 
357
 
 
358
static void L17()
 
359
{       object *old_base=vs_base;
 
360
        set_compiled_function_name(
 
361
        vs_base[0],
 
362
        vs_base[1]);
 
363
        vs_top=(vs_base=old_base)+1;
 
364
        vs_base[0]=Cnil;
 
365
}
 
366
 
 
367
static object
 
368
__fboundp(object o) {
 
369
/* FIXME check type here*/
 
370
return o->s.s_gfdef==OBJNULL ? Cnil : Ct;
 
371
}
 
372
 
 
373
/*      function definition for %FBOUNDP        */
 
374
 
 
375
static void L18()
 
376
{       object *old_base=vs_base;
 
377
        object x;
 
378
        x=
 
379
        __fboundp(
 
380
        vs_base[0]);
 
381
        vs_top=(vs_base=old_base)+1;
 
382
        vs_base[0]=x;
 
383
}
 
384
/*      local entry for function MAKE-FUNCTION-INLINE   */
 
385
 
 
386
static object LI19(V35)
 
387
 
 
388
register object V35;
 
389
{        VMB9 VMS9 VMV9
 
390
        goto TTL;
 
391
TTL:;
 
392
        V36= CMPcar((V35));
 
393
        base[0]= VV[24];
 
394
        vs_top=(vs_base=base+0)+1;
 
395
        Lfboundp();
 
396
        vs_top=sup;
 
397
        if((vs_base[0])==Cnil){
 
398
        goto T20;}
 
399
        {register object V38;
 
400
        V38= CMPcdr((V35));
 
401
        V39= CMPcar((V38));
 
402
        V40= CMPcadr((V38));
 
403
        if((CMPcadddr((V38)))==Cnil){
 
404
        goto T27;}
 
405
        base[0]= small_fixnum(1);
 
406
        goto T25;
 
407
        goto T27;
 
408
T27:;
 
409
        base[0]= small_fixnum(0);
 
410
        goto T25;
 
411
T25:;
 
412
        if((CMPcaddr((V38)))==Cnil){
 
413
        goto T31;}
 
414
        base[1]= small_fixnum(2);
 
415
        goto T29;
 
416
        goto T31;
 
417
T31:;
 
418
        base[1]= small_fixnum(0);
 
419
        goto T29;
 
420
T29:;
 
421
        base[2]= small_fixnum(0);
 
422
        if(!((CMPcar((V35)))==(VV[25]))){
 
423
        goto T36;}
 
424
        base[3]= small_fixnum(8);
 
425
        goto T34;
 
426
        goto T36;
 
427
T36:;
 
428
        base[3]= small_fixnum(0);
 
429
        goto T34;
 
430
T34:;
 
431
        vs_top=(vs_base=base+0)+4;
 
432
        Llogior();
 
433
        vs_top=sup;
 
434
        V41= vs_base[0];
 
435
        base[0]= (V38);
 
436
        vs_top=(vs_base=base+0)+1;
 
437
        (void) (*Lnk63)();
 
438
        vs_top=sup;
 
439
        V42= vs_base[0];
 
440
        V37= list(4,/* INLINE-ARGS */V39,/* INLINE-ARGS */V40,V41,V42);
 
441
        goto T18;}
 
442
        goto T20;
 
443
T20:;
 
444
        V37= CMPcdr((V35));
 
445
        goto T18;
 
446
T18:;
 
447
        V43= make_cons(V37,Cnil);
 
448
        {object V44 = sputprop(/* INLINE-ARGS */V36,VV[23],/* INLINE-ARGS */V43);
 
449
        VMR9(V44)}
 
450
        base[0]=base[0];
 
451
        return Cnil;
 
452
}
 
453
/*      macro definition for DEFINE-INLINES     */
 
454
 
 
455
static void L20()
 
456
{register object *base=vs_base;
 
457
        register object *sup=base+VM10; VC10
 
458
        vs_check;
 
459
        check_arg(2);
 
460
        vs_top=sup;
 
461
        {object V45=base[0]->c.c_cdr;
 
462
        if(!endp(V45))invalid_macro_call();}
 
463
        base[3]= (VV[35]->s.s_dbind);
 
464
        {object V47;
 
465
        object V48= base[3];
 
466
        if(V48==Cnil){
 
467
        V46= Cnil;
 
468
        goto T40;}
 
469
        base[2]=V47=MMcons(Cnil,Cnil);
 
470
        goto T41;
 
471
T41:;
 
472
        {register object V49;
 
473
        V49= (V48->c.c_car);
 
474
        {object V50;
 
475
        object V51;
 
476
        base[5]= Cnil;
 
477
        base[6]= VV[27];
 
478
        base[7]= CMPcar((V49));
 
479
        vs_top=(vs_base=base+5)+3;
 
480
        Lformat();
 
481
        vs_top=sup;
 
482
        base[4]= vs_base[0];
 
483
        vs_top=(vs_base=base+4)+1;
 
484
        Lintern();
 
485
        vs_top=sup;
 
486
        V50= vs_base[0];
 
487
        {object V52;
 
488
        object V53= CMPcadr((V49));
 
489
        if(V53==Cnil){
 
490
        V51= Cnil;
 
491
        goto T48;}
 
492
        base[4]=V52=MMcons(Cnil,Cnil);
 
493
        goto T49;
 
494
T49:;
 
495
        vs_base=vs_top;
 
496
        Lgensym();
 
497
        vs_top=sup;
 
498
        (V52->c.c_car)= vs_base[0];
 
499
        if((V53=MMcdr(V53))==Cnil){
 
500
        V51= base[4];
 
501
        goto T48;}
 
502
        V52=MMcdr(V52)=MMcons(Cnil,Cnil);
 
503
        goto T49;}
 
504
        goto T48;
 
505
T48:;
 
506
        V55= list(3,VV[28],VV[29],list(2,VV[30],list(2,VV[31],make_cons((V50),CMPcdr((V49))))));
 
507
        base[4]= VV[64];
 
508
        base[5]= CMPcadr((V49));
 
509
        vs_top=(vs_base=base+4)+2;
 
510
        (void) (*Lnk65)();
 
511
        vs_top=sup;
 
512
        if((vs_base[0])!=Cnil){
 
513
        goto T52;}
 
514
        {object V57= symbol_name(CMPcar((V49)));
 
515
        if(!((37)==((/* INLINE-ARGS */V57)->ust.ust_self[0]))){
 
516
        goto T53;}}
 
517
        goto T52;
 
518
T52:;
 
519
        V58= CMPcar((V49));
 
520
        {object V60;
 
521
        object V61= (V51);
 
522
        object V62= CMPcadr((V49));
 
523
        if(V61==Cnil||V62==Cnil){
 
524
        V59= Cnil;
 
525
        goto T59;}
 
526
        base[4]=V60=MMcons(Cnil,Cnil);
 
527
        goto T60;
 
528
T60:;
 
529
        if(((V62->c.c_car))==(Ct)){
 
530
        goto T63;}
 
531
        V65= list(2,VV[7],list(3,VV[34],(V62->c.c_car),(V61->c.c_car)));
 
532
        (V60->c.c_cdr)= make_cons(/* INLINE-ARGS */V65,Cnil);
 
533
        goto T61;
 
534
        goto T63;
 
535
T63:;
 
536
        (V60->c.c_cdr)= Cnil;
 
537
        goto T61;
 
538
T61:;
 
539
        while(MMcdr(V60)!=Cnil)V60=MMcdr(V60);
 
540
        if((V61=MMcdr(V61))==Cnil||(V62=MMcdr(V62))==Cnil){
 
541
        base[4]=base[4]->c.c_cdr;
 
542
        V59= base[4];
 
543
        goto T59;}
 
544
        goto T60;}
 
545
        goto T59;
 
546
T59:;
 
547
        V66= CMPcaddr((V49));
 
548
        V67= list(3,VV[15],/* INLINE-ARGS */V66,make_cons((V50),(V51)));
 
549
        V68= make_cons(/* INLINE-ARGS */V67,Cnil);
 
550
        V69= listA(4,VV[33],/* INLINE-ARGS */V58,(V51),append(V59,/* INLINE-ARGS */V68));
 
551
        V56= list(2,/* INLINE-ARGS */V69,list(2,VV[30],list(2,VV[31],(V49))));
 
552
        goto T51;
 
553
        goto T53;
 
554
T53:;
 
555
        V56= Cnil;
 
556
        goto T51;
 
557
T51:;
 
558
        (V47->c.c_cdr)= make_cons(/* INLINE-ARGS */V55,V56);}}
 
559
        while(MMcdr(V47)!=Cnil)V47=MMcdr(V47);
 
560
        if((V48=MMcdr(V48))==Cnil){
 
561
        base[2]=base[2]->c.c_cdr;
 
562
        V46= base[2];
 
563
        goto T40;}
 
564
        goto T41;}
 
565
        goto T40;
 
566
T40:;
 
567
        base[2]= make_cons(VV[26],V46);
 
568
        vs_top=(vs_base=base+2)+1;
 
569
        return;
 
570
}
 
571
/*      local entry for function %FBOUNDP       */
 
572
 
 
573
static object LI21(V71)
 
574
 
 
575
object V71;
 
576
{        VMB11 VMS11 VMV11
 
577
        goto TTL;
 
578
TTL:;
 
579
        {object V72 = (((V71))->s.s_gfdef!=OBJNULL?Ct:Cnil);
 
580
        VMR11(V72)}
 
581
        return Cnil;
 
582
}
 
583
/*      local entry for function %SYMBOL-FUNCTION       */
 
584
 
 
585
static object LI22(V74)
 
586
 
 
587
object V74;
 
588
{        VMB12 VMS12 VMV12
 
589
        goto TTL;
 
590
TTL:;
 
591
        {object V75 = ((V74))->s.s_gfdef;
 
592
        VMR12(V75)}
 
593
        return Cnil;
 
594
}
 
595
/*      local entry for function %STRUCTURE-NAME        */
 
596
 
 
597
static object LI23(V77)
 
598
 
 
599
object V77;
 
600
{        VMB13 VMS13 VMV13
 
601
        goto TTL;
 
602
TTL:;
 
603
        {object V78 = ((V77))->str.str_def->str.str_self[0];
 
604
        VMR13(V78)}
 
605
        return Cnil;
 
606
}
 
607
/*      local entry for function %COMPILED-FUNCTION-NAME        */
 
608
 
 
609
static object LI24(V80)
 
610
 
 
611
object V80;
 
612
{        VMB14 VMS14 VMV14
 
613
        goto TTL;
 
614
TTL:;
 
615
        {object V81 = ((V80))->cf.cf_name;
 
616
        VMR14(V81)}
 
617
        return Cnil;
 
618
}
 
619
/*      local entry for function %SET-COMPILED-FUNCTION-NAME    */
 
620
 
 
621
static object LI25(V84,V85)
 
622
 
 
623
object V84;object V85;
 
624
{        VMB15 VMS15 VMV15
 
625
        goto TTL;
 
626
TTL:;
 
627
        {object V86 = (((V84))->cf.cf_name)=((V85));
 
628
        VMR15(V86)}
 
629
        return Cnil;
 
630
}
 
631
/*      local entry for function CCLOSUREP      */
 
632
 
 
633
static object LI26(V88)
 
634
 
 
635
object V88;
 
636
{        VMB16 VMS16 VMV16
 
637
        goto TTL;
 
638
TTL:;
 
639
        {object V89 = (type_of((V88))==t_cclosure?Ct:Cnil);
 
640
        VMR16(V89)}
 
641
        return Cnil;
 
642
}
 
643
/*      local entry for function SFUN-P */
 
644
 
 
645
static object LI27(V91)
 
646
 
 
647
object V91;
 
648
{        VMB17 VMS17 VMV17
 
649
        goto TTL;
 
650
TTL:;
 
651
        {object V92 = (type_of((V91))==t_sfun?Ct:Cnil);
 
652
        VMR17(V92)}
 
653
        return Cnil;
 
654
}
 
655
/*      local entry for function %CCLOSURE-ENV  */
 
656
 
 
657
static object LI28(V94)
 
658
 
 
659
object V94;
 
660
{        VMB18 VMS18 VMV18
 
661
        goto TTL;
 
662
TTL:;
 
663
        {object V95 = ((V94))->cc.cc_env;
 
664
        VMR18(V95)}
 
665
        return Cnil;
 
666
}
 
667
/*      local entry for function %SET-CCLOSURE-ENV      */
 
668
 
 
669
static object LI29(V98,V99)
 
670
 
 
671
object V98;object V99;
 
672
{        VMB19 VMS19 VMV19
 
673
        goto TTL;
 
674
TTL:;
 
675
        {object V100 = (((V98))->cc.cc_env)=((V99));
 
676
        VMR19(V100)}
 
677
        return Cnil;
 
678
}
 
679
/*      local entry for function %CCLOSURE-ENV-NTHCDR   */
 
680
 
 
681
static object LI30(V103,V104)
 
682
 
 
683
long V103;object V104;
 
684
{        VMB20 VMS20 VMV20
 
685
        goto TTL;
 
686
TTL:;
 
687
        {object V105 = ((V104))->cc.cc_turbo[V103];
 
688
        VMR20(V105)}
 
689
        return Cnil;
 
690
}
 
691
/*      local entry for function SET-FUNCTION-NAME-1    */
 
692
 
 
693
static object LI31(V109,V110,V111)
 
694
 
 
695
register object V109;register object V110;object V111;
 
696
{        VMB21 VMS21 VMV21
 
697
        goto TTL;
 
698
TTL:;
 
699
        base[0]= (V109);
 
700
        vs_top=(vs_base=base+0)+1;
 
701
        Lcompiled_function_p();
 
702
        vs_top=sup;
 
703
        if((vs_base[0])==Cnil){
 
704
        goto T67;}
 
705
        base[0]= (V109);
 
706
        vs_top=(vs_base=base+0)+1;
 
707
        (void) (*Lnk66)();
 
708
        vs_top=sup;
 
709
        if(!(type_of((V110))==t_symbol)){
 
710
        goto T72;}
 
711
        (void)((*(LnkLI67))((V110),Cnil));
 
712
        goto T72;
 
713
T72:;
 
714
        (void)((*(LnkLI68))((V109),(V110)));
 
715
        goto T65;
 
716
        goto T67;
 
717
T67:;
 
718
        if(!(type_of((V109))==t_cons||((V109))==Cnil)){
 
719
        goto T76;}
 
720
        if(!((CMPcar((V109)))==(VV[36]))){
 
721
        goto T76;}
 
722
        (CMPcdr(V109))->c.c_car = V110;
 
723
        (void)(CMPcdr(V109));
 
724
        goto T65;
 
725
        goto T76;
 
726
T76:;
 
727
        if(!(type_of((V109))==t_cons||((V109))==Cnil)){
 
728
        goto T65;}
 
729
        if(!((CMPcar((V109)))==(VV[37]))){
 
730
        goto T65;}
 
731
        (V109)->c.c_car = VV[36];
 
732
        {object V117;
 
733
        V117= make_cons((V110),CMPcdr((V109)));
 
734
        (V109)->c.c_cdr = (V117);}
 
735
        goto T65;
 
736
T65:;
 
737
        {object V118 = (V109);
 
738
        VMR21(V118)}
 
739
        base[0]=base[0];
 
740
        return Cnil;
 
741
}
 
742
 
 
743
 
 
744
 
 
745
 
 
746
object fSuse_fast_links_2(object,object);
 
747
static
 
748
object set_cclosure (result_cc,value_cc,available_size)
 
749
  object result_cc,value_cc; int available_size;
 
750
{
 
751
  object result_env_tail,value_env_tail; int i;
 
752
 
 
753
  /* If we are currently using fast linking,     */
 
754
  /* make sure to remove the link for result_cc. */
 
755
  /* (VFUN_NARGS=2,fSuse_fast_links(sLnil,result_cc));*/
 
756
  fSuse_fast_links_2(sLnil,result_cc);
 
757
 
 
758
/*  use_fast_links(3,Cnil,result_cc); */
 
759
 
 
760
  result_env_tail=result_cc->cc.cc_env;
 
761
  value_env_tail=value_cc->cc.cc_env;
 
762
  for(i=available_size;
 
763
      result_env_tail!=Cnil && i>0;
 
764
      result_env_tail=CMPcdr(result_env_tail), value_env_tail=CMPcdr(value_env_tail))
 
765
    CMPcar(result_env_tail)=CMPcar(value_env_tail), i--;
 
766
  result_cc->cc.cc_self=value_cc->cc.cc_self;
 
767
  result_cc->cc.cc_data=value_cc->cc.cc_data;
 
768
 
 
769
 
 
770
  return result_cc;
 
771
}
 
772
/*      function definition for %SET-CCLOSURE   */
 
773
 
 
774
static void L32()
 
775
{       object *old_base=vs_base;
 
776
        object x;
 
777
        x=
 
778
        set_cclosure(
 
779
        vs_base[0],
 
780
        vs_base[1],
 
781
        object_to_int(vs_base[2]));
 
782
        vs_top=(vs_base=old_base)+1;
 
783
        vs_base[0]=x;
 
784
}
 
785
/*      local entry for function STRUCTURE-FUNCTIONS-EXIST-P    */
 
786
 
 
787
static object LI33()
 
788
 
 
789
{        VMB22 VMS22 VMV22
 
790
        goto TTL;
 
791
TTL:;
 
792
        {object V119 = Ct;
 
793
        VMR22(V119)}
 
794
        return Cnil;
 
795
}
 
796
/*      local entry for function STRUCTURE-TYPE */
 
797
 
 
798
static object LI34(V121)
 
799
 
 
800
object V121;
 
801
{        VMB23 VMS23 VMV23
 
802
        goto TTL;
 
803
TTL:;
 
804
        if(type_of((V121))==t_structure){
 
805
        goto T89;}
 
806
        {object V122 = Cnil;
 
807
        VMR23(V122)}
 
808
        goto T89;
 
809
T89:;
 
810
        {object V123 = (*(LnkLI69))((V121));
 
811
        VMR23(V123)}
 
812
        return Cnil;
 
813
}
 
814
/*      local entry for function STRUCTURE-TYPE-P       */
 
815
 
 
816
static object LI35(V125)
 
817
 
 
818
object V125;
 
819
{        VMB24 VMS24 VMV24
 
820
        goto TTL;
 
821
TTL:;
 
822
        base[0]= (V125);
 
823
        base[1]= (VV[38]->s.s_dbind);
 
824
        vs_top=(vs_base=base+0)+2;
 
825
        Lgethash();
 
826
        vs_top=sup;
 
827
        V126= vs_base[0];
 
828
        if(!((((V126)==Cnil?Ct:Cnil))==Cnil)){
 
829
        goto T91;}
 
830
        {object V127 = Ct;
 
831
        VMR24(V127)}
 
832
        goto T91;
 
833
T91:;
 
834
        {object V128;
 
835
        V128= Cnil;
 
836
        if(type_of((V125))==t_symbol){
 
837
        goto T96;}
 
838
        {object V129 = Cnil;
 
839
        VMR24(V129)}
 
840
        goto T96;
 
841
T96:;
 
842
        {object V130 =((V125))->s.s_plist;
 
843
         object ind= VV[39];
 
844
        while(V130!=Cnil){
 
845
        if(V130->c.c_car==ind){
 
846
        V128= (V130->c.c_cdr->c.c_car);
 
847
        goto T100;
 
848
        }else V130=V130->c.c_cdr->c.c_cdr;}
 
849
        V128= Cnil;}
 
850
        goto T100;
 
851
T100:;
 
852
        if(((V128))!=Cnil){
 
853
        goto T98;}
 
854
        {object V131 = Cnil;
 
855
        VMR24(V131)}
 
856
        goto T98;
 
857
T98:;
 
858
        {object V132 = ((STREF(object,(V128),64))==Cnil?Ct:Cnil);
 
859
        VMR24(V132)}}
 
860
        base[0]=base[0];
 
861
        return Cnil;
 
862
}
 
863
/*      local entry for function STRUCTURE-TYPE-INCLUDED-TYPE-NAME      */
 
864
 
 
865
static object LI36(V134)
 
866
 
 
867
object V134;
 
868
{        VMB25 VMS25 VMV25
 
869
        goto TTL;
 
870
TTL:;{object V135;
 
871
        base[0]= (V134);
 
872
        base[1]= (VV[38]->s.s_dbind);
 
873
        vs_top=(vs_base=base+0)+2;
 
874
        Lgethash();
 
875
        vs_top=sup;
 
876
        V136= vs_base[0];
 
877
        V135= CMPcar(V136);
 
878
        if(V135==Cnil)goto T101;
 
879
        {object V137 = V135;
 
880
        VMR25(V137)}
 
881
        goto T101;
 
882
T101:;}
 
883
        {object V138;
 
884
        {object V140 =((V134))->s.s_plist;
 
885
         object ind= VV[39];
 
886
        while(V140!=Cnil){
 
887
        if(V140->c.c_car==ind){
 
888
        V139= (V140->c.c_cdr->c.c_car);
 
889
        goto T107;
 
890
        }else V140=V140->c.c_cdr->c.c_cdr;}
 
891
        V139= Cnil;}
 
892
        goto T107;
 
893
T107:;
 
894
        V138= STREF(object,V139,16);
 
895
        if(((V138))==Cnil){
 
896
        goto T109;}
 
897
        {object V141 = STREF(object,(V138),0);
 
898
        VMR25(V141)}
 
899
        goto T109;
 
900
T109:;
 
901
        {object V142 = Cnil;
 
902
        VMR25(V142)}}
 
903
        base[0]=base[0];
 
904
        return Cnil;
 
905
}
 
906
/*      local entry for function STRUCTURE-TYPE-INTERNAL-SLOTDS */
 
907
 
 
908
static object LI37(V144)
 
909
 
 
910
object V144;
 
911
{        VMB26 VMS26 VMV26
 
912
        goto TTL;
 
913
TTL:;
 
914
        {object V146 =((V144))->s.s_plist;
 
915
         object ind= VV[39];
 
916
        while(V146!=Cnil){
 
917
        if(V146->c.c_car==ind){
 
918
        V145= (V146->c.c_cdr->c.c_car);
 
919
        goto T111;
 
920
        }else V146=V146->c.c_cdr->c.c_cdr;}
 
921
        V145= Cnil;}
 
922
        goto T111;
 
923
T111:;
 
924
        {object V147 = STREF(object,V145,28);
 
925
        VMR26(V147)}
 
926
        return Cnil;
 
927
}
 
928
/*      local entry for function STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST   */
 
929
 
 
930
static object LI39(V149)
 
931
 
 
932
object V149;
 
933
{        VMB27 VMS27 VMV27
 
934
        bds_check;
 
935
        goto TTL;
 
936
TTL:;
 
937
        base[0]=MMcons((V149),Cnil);{object V150;
 
938
        base[1]= (base[0]->c.c_car);
 
939
        base[2]= (VV[38]->s.s_dbind);
 
940
        vs_top=(vs_base=base+1)+2;
 
941
        Lgethash();
 
942
        vs_top=sup;
 
943
        V151= vs_base[0];
 
944
        V150= CMPcdr(V151);
 
945
        if(V150==Cnil)goto T112;
 
946
        {object V152 = V150;
 
947
        VMR27(V152)}
 
948
        goto T112;
 
949
T112:;}
 
950
        {object V156;
 
951
        object V157;
 
952
        V156= (*(LnkLI70))((base[0]->c.c_car));
 
953
        V157= (*(LnkLI71))((base[0]->c.c_car));
 
954
        if(((V157))==Cnil){
 
955
        goto T122;}
 
956
        V158= (*(LnkLI70))((V157));
 
957
        V159 = CMPmake_fixnum((long)length(/* INLINE-ARGS */V158));
 
958
        V155= nthcdr(fix(V159),(V156));
 
959
        goto T118;
 
960
        goto T122;
 
961
T122:;
 
962
        V155= (V156);}
 
963
        goto T118;
 
964
T118:;
 
965
        {object V153;
 
966
        object V154= V155;
 
967
        if(V154==Cnil){
 
968
        {object V160 = Cnil;
 
969
        VMR27(V160)}}
 
970
        base[1]=V153=MMcons(Cnil,Cnil);
 
971
        goto T117;
 
972
T117:;
 
973
        {register object V161;
 
974
        V161= (V154->c.c_car);
 
975
        if(((V161))==Cnil){
 
976
        goto T126;}
 
977
        if((CMPcar((V161)))==Cnil){
 
978
        goto T126;}
 
979
        base[3]= (V161);
 
980
        vs_top=(vs_base=base+3)+1;
 
981
        (void) (*Lnk63)();
 
982
        vs_top=sup;
 
983
        base[2]= vs_base[0];
 
984
        base[2]=MMcons(base[2],base[0]);
 
985
        {object V162;
 
986
        object V163;
 
987
        V162= 
 
988
        make_cclosure_new(LC46,Cnil,base[2],Cdata);
 
989
        V163= 
 
990
        make_cclosure_new(LC47,Cnil,base[2],Cdata);
 
991
        base[3]= (V162);
 
992
        vs_top=(vs_base=base+3)+1;
 
993
        (void) (*Lnk66)();
 
994
        vs_top=sup;
 
995
        base[3]= (V163);
 
996
        vs_top=(vs_base=base+3)+1;
 
997
        (void) (*Lnk66)();
 
998
        vs_top=sup;
 
999
        {register object V164;
 
1000
        object V165;
 
1001
        object V166;
 
1002
        object V167;
 
1003
        bds_bind(VV[40],(VV[41]->s.s_dbind));
 
1004
        base[9]= Cnil;
 
1005
        base[10]= VV[42];
 
1006
        base[11]= (base[0]->c.c_car);
 
1007
        base[12]= (base[2]->c.c_car);
 
1008
        vs_top=(vs_base=base+9)+4;
 
1009
        Lformat();
 
1010
        vs_top=sup;
 
1011
        base[8]= vs_base[0];
 
1012
        vs_top=(vs_base=base+8)+1;
 
1013
        Lintern();
 
1014
        vs_top=sup;
 
1015
        bds_unwind1;
 
1016
        V164= vs_base[0];
 
1017
        V165= (*(LnkLI72))((V164));
 
1018
        V166= CMPcar((V161));
 
1019
        V167= CMPcadddr((V161));
 
1020
        base[7]= (V164);
 
1021
        base[8]= (V162);
 
1022
        vs_top=(vs_base=base+7)+2;
 
1023
        siLfset();
 
1024
        vs_top=sup;
 
1025
        base[7]= (V165);
 
1026
        base[8]= (V163);
 
1027
        vs_top=(vs_base=base+7)+2;
 
1028
        siLfset();
 
1029
        vs_top=sup;
 
1030
        (void)((*(LnkLI73))((V164)));
 
1031
        if(((V167))==Cnil){
 
1032
        goto T155;}
 
1033
        V168= Cnil;
 
1034
        goto T154;
 
1035
        goto T155;
 
1036
T155:;
 
1037
        V168= (V163);
 
1038
        goto T154;
 
1039
T154:;
 
1040
        V169= list(3,(V166),(V164),V168);
 
1041
        (V153->c.c_cdr)= make_cons(/* INLINE-ARGS */V169,Cnil);
 
1042
        goto T124;}}
 
1043
        goto T126;
 
1044
T126:;
 
1045
        (V153->c.c_cdr)= Cnil;}
 
1046
        goto T124;
 
1047
T124:;
 
1048
        while(MMcdr(V153)!=Cnil)V153=MMcdr(V153);
 
1049
        if((V154=MMcdr(V154))==Cnil){
 
1050
        base[1]=base[1]->c.c_cdr;
 
1051
        {object V170 = base[1];
 
1052
        VMR27(V170)}}
 
1053
        goto T117;}
 
1054
        base[0]=base[0];
 
1055
        return Cnil;
 
1056
}
 
1057
/*      local entry for function STRUCTURE-SLOTD-NAME   */
 
1058
 
 
1059
static object LI40(V172)
 
1060
 
 
1061
object V172;
 
1062
{        VMB28 VMS28 VMV28
 
1063
        goto TTL;
 
1064
TTL:;
 
1065
        {object V173 = CMPcar((V172));
 
1066
        VMR28(V173)}
 
1067
        return Cnil;
 
1068
}
 
1069
/*      local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL        */
 
1070
 
 
1071
static object LI41(V175)
 
1072
 
 
1073
object V175;
 
1074
{        VMB29 VMS29 VMV29
 
1075
        goto TTL;
 
1076
TTL:;
 
1077
        {object V176 = CMPcadr((V175));
 
1078
        VMR29(V176)}
 
1079
        return Cnil;
 
1080
}
 
1081
/*      local entry for function STRUCTURE-SLOTD-READER-FUNCTION        */
 
1082
 
 
1083
static object LI42(V178)
 
1084
 
 
1085
object V178;
 
1086
{        VMB30 VMS30 VMV30
 
1087
        goto TTL;
 
1088
TTL:;
 
1089
        {object V179 = CMPcaddr((V178));
 
1090
        VMR30(V179)}
 
1091
        return Cnil;
 
1092
}
 
1093
/*      local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION        */
 
1094
 
 
1095
static object LI43(V181)
 
1096
 
 
1097
object V181;
 
1098
{        VMB31 VMS31 VMV31
 
1099
        goto TTL;
 
1100
TTL:;
 
1101
        {object V182 = CMPcadddr((V181));
 
1102
        VMR31(V182)}
 
1103
        return Cnil;
 
1104
}
 
1105
/*      local entry for function RENEW-SYS-FILES        */
 
1106
 
 
1107
static object LI44()
 
1108
 
 
1109
{        VMB32 VMS32 VMV32
 
1110
        goto TTL;
 
1111
TTL:;
 
1112
        base[0]= VV[43];
 
1113
        vs_top=(vs_base=base+0)+1;
 
1114
        (void) (*Lnk74)();
 
1115
        vs_top=sup;
 
1116
        base[1]= VV[44];
 
1117
        base[2]= VV[45];
 
1118
        base[3]= VV[46];
 
1119
        base[4]= VV[47];
 
1120
        base[5]= VV[48];
 
1121
        vs_top=(vs_base=base+1)+5;
 
1122
        (void) (*Lnk75)();
 
1123
        vs_top=sup;
 
1124
        base[0]= vs_base[0];
 
1125
        frs_push(FRS_PROTECT,Cnil);
 
1126
        {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
 
1127
        if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
 
1128
        else{
 
1129
        base[2]= base[0];
 
1130
        base[3]= VV[49];
 
1131
        vs_top=(vs_base=base+2)+2;
 
1132
        Lformat();
 
1133
        active=FALSE;}
 
1134
        base[1]=Cnil;
 
1135
        while(vs_base<vs_top)
 
1136
        {base[1]=MMcons(vs_top[-1],base[1]);vs_top--;}
 
1137
        vs_top=sup;
 
1138
        nlj_active=FALSE;frs_pop();
 
1139
        if((base[0])==Cnil){
 
1140
        goto T169;}
 
1141
        base[2]= base[0];
 
1142
        vs_top=(vs_base=base+2)+1;
 
1143
        Lclose();
 
1144
        vs_top=sup;
 
1145
        goto T169;
 
1146
T169:;
 
1147
        vs_base=vs_top=base+2;
 
1148
        for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
 
1149
        if(active)unwind(fr,tag);else{
 
1150
        vs_top=sup;}}
 
1151
        base[0]= VV[50];
 
1152
        vs_top=(vs_base=base+0)+1;
 
1153
        (void) (*Lnk76)();
 
1154
        vs_top=sup;
 
1155
        base[1]= VV[51];
 
1156
        base[2]= VV[45];
 
1157
        base[3]= VV[46];
 
1158
        base[4]= VV[47];
 
1159
        base[5]= VV[48];
 
1160
        vs_top=(vs_base=base+1)+5;
 
1161
        (void) (*Lnk75)();
 
1162
        vs_top=sup;
 
1163
        base[0]= vs_base[0];
 
1164
        frs_push(FRS_PROTECT,Cnil);
 
1165
        {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
 
1166
        if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
 
1167
        else{
 
1168
        base[2]= base[0];
 
1169
        base[3]= VV[52];
 
1170
        vs_top=(vs_base=base+2)+2;
 
1171
        Lformat();
 
1172
        vs_top=sup;
 
1173
        {object V184;
 
1174
        register object V185;
 
1175
        V184= Cnil;
 
1176
        V185= Cnil;
 
1177
        {object V186;
 
1178
        register object V187;
 
1179
        register object V188;
 
1180
        {object V189;
 
1181
        base[2]= VV[55];
 
1182
        vs_top=(vs_base=base+2)+1;
 
1183
        Lfind_package();
 
1184
        vs_top=sup;
 
1185
        V189= vs_base[0];
 
1186
        base[2]= (V189);
 
1187
        vs_top=(vs_base=base+2)+1;
 
1188
        Lpackagep();
 
1189
        vs_top=sup;
 
1190
        if((vs_base[0])!=Cnil){
 
1191
        goto T191;}
 
1192
        base[2]= coerce_to_string((V189));
 
1193
        vs_top=(vs_base=base+2)+1;
 
1194
        Lfind_package();
 
1195
        vs_top=sup;
 
1196
        V189= vs_base[0];
 
1197
        if(((V189))!=Cnil){
 
1198
        goto T191;}
 
1199
        base[2]= VV[56];
 
1200
        base[3]= VV[57];
 
1201
        base[5]= VV[55];
 
1202
        vs_top=(vs_base=base+5)+1;
 
1203
        Lfind_package();
 
1204
        vs_top=sup;
 
1205
        base[4]= vs_base[0];
 
1206
        vs_top=(vs_base=base+2)+3;
 
1207
        (void) (*Lnk77)();
 
1208
        vs_top=sup;
 
1209
        goto T191;
 
1210
T191:;
 
1211
        V186= (V189);}
 
1212
        V187= Cnil;
 
1213
        V188= Cnil;
 
1214
        {object V190;
 
1215
        register object V191;
 
1216
        base[4]= (V186);
 
1217
        vs_top=(vs_base=base+4)+1;
 
1218
        Lpackage_use_list();
 
1219
        vs_top=sup;
 
1220
        V192= vs_base[0];
 
1221
        V190= make_cons((V186),V192);
 
1222
        V191= CMPcar((V190));
 
1223
        goto T208;
 
1224
T208:;
 
1225
        if(!(((V190))==Cnil)){
 
1226
        goto T209;}
 
1227
        V187= Cnil;
 
1228
        goto T187;
 
1229
        goto T209;
 
1230
T209:;
 
1231
        {long V193;
 
1232
        register long V194;
 
1233
        base[4]= (V191);
 
1234
        vs_top=(vs_base=base+4)+1;
 
1235
        (void) (*Lnk78)();
 
1236
        if(vs_base>=vs_top){vs_top=sup;goto T218;}
 
1237
        V193= fix(vs_base[0]);
 
1238
        vs_base++;
 
1239
        if(vs_base>=vs_top){vs_top=sup;goto T219;}
 
1240
        V194= fix(vs_base[0]);
 
1241
        vs_top=sup;
 
1242
        goto T220;
 
1243
        goto T218;
 
1244
T218:;
 
1245
        V193= fix(Cnil);
 
1246
        goto T219;
 
1247
T219:;
 
1248
        V194= fix(Cnil);
 
1249
        goto T220;
 
1250
T220:;
 
1251
        if(((V186))==((V191))){
 
1252
        goto T221;}
 
1253
        V194= 0;
 
1254
        goto T221;
 
1255
T221:;
 
1256
        {long V195;
 
1257
        register long V196;
 
1258
        V195= (long)(V194)+(V193);
 
1259
        V196= 0;
 
1260
        goto T228;
 
1261
T228:;
 
1262
        if(!((V196)>=(V195))){
 
1263
        goto T231;}
 
1264
        goto T215;
 
1265
        goto T231;
 
1266
T231:;
 
1267
        if(!((V196)<(V194))){
 
1268
        goto T236;}
 
1269
        base[4]= (V191);
 
1270
        base[5]= CMPmake_fixnum(V196);
 
1271
        vs_top=(vs_base=base+4)+2;
 
1272
        siLpackage_internal();
 
1273
        vs_top=sup;
 
1274
        V188= vs_base[0];
 
1275
        goto T234;
 
1276
        goto T236;
 
1277
T236:;
 
1278
        base[4]= (V191);
 
1279
        V197 = CMPmake_fixnum(V196);
 
1280
        V198 = CMPmake_fixnum(V194);
 
1281
        base[5]= number_minus(V197,V198);
 
1282
        vs_top=(vs_base=base+4)+2;
 
1283
        siLpackage_external();
 
1284
        vs_top=sup;
 
1285
        V188= vs_base[0];
 
1286
        goto T234;
 
1287
T234:;
 
1288
        goto T229;
 
1289
T229:;
 
1290
        if(((V188))!=Cnil){
 
1291
        goto T242;}
 
1292
        goto T230;
 
1293
        goto T242;
 
1294
T242:;
 
1295
        V187= CMPcar((V188));
 
1296
        if(((V191))==((V186))){
 
1297
        goto T248;}
 
1298
        base[5]= symbol_name((V187));
 
1299
        base[6]= (V186);
 
1300
        vs_top=(vs_base=base+5)+2;
 
1301
        Lfind_symbol();
 
1302
        Llist();
 
1303
        vs_top=sup;
 
1304
        base[4]= vs_base[0];
 
1305
        vs_top=(vs_base=base+4)+1;
 
1306
        Llast();
 
1307
        vs_top=sup;
 
1308
        V199= vs_base[0];
 
1309
        if(!((VV[58])==(CMPcar(V199)))){
 
1310
        goto T247;}
 
1311
        goto T248;
 
1312
T248:;
 
1313
        {object V200 =((V187))->s.s_plist;
 
1314
         object ind= VV[22];
 
1315
        while(V200!=Cnil){
 
1316
        if(V200->c.c_car==ind){
 
1317
        if(((V200->c.c_cdr->c.c_car))==Cnil){
 
1318
        goto T257;}
 
1319
        goto T259;
 
1320
        }else V200=V200->c.c_cdr->c.c_cdr;}
 
1321
        goto T257;}
 
1322
        goto T259;
 
1323
T259:;
 
1324
        if(((V185))==Cnil){
 
1325
        goto T261;}
 
1326
        {object V201;
 
1327
        object V202;
 
1328
        V201= (V185);
 
1329
        V185= make_cons((V187),Cnil);
 
1330
        V202= (V185);
 
1331
        ((V201))->c.c_cdr = (V202);
 
1332
        goto T257;}
 
1333
        goto T261;
 
1334
T261:;
 
1335
        V185= make_cons((V187),Cnil);
 
1336
        V184= (V185);
 
1337
        goto T257;
 
1338
T257:;
 
1339
        goto T247;
 
1340
T247:;
 
1341
        V188= CMPcdr((V188));
 
1342
        goto T229;
 
1343
        goto T230;
 
1344
T230:;
 
1345
        V196= (long)(V196)+1;
 
1346
        goto T228;}}
 
1347
        goto T215;
 
1348
T215:;
 
1349
        V190= CMPcdr((V190));
 
1350
        V191= CMPcar((V190));
 
1351
        goto T208;}}
 
1352
        goto T187;
 
1353
T187:;
 
1354
        V183= (V184);
 
1355
        goto T186;
 
1356
        V183= Cnil;
 
1357
        goto T186;
 
1358
        V183= Cnil;}
 
1359
        goto T186;
 
1360
T186:;
 
1361
        V203= list(3,VV[53],list(2,VV[54],list(2,VV[31],V183)),VV[59]);
 
1362
        (void)(print(/* INLINE-ARGS */V203,base[0]));
 
1363
        base[2]= base[0];
 
1364
        base[3]= VV[60];
 
1365
        vs_top=(vs_base=base+2)+2;
 
1366
        Lformat();
 
1367
        active=FALSE;}
 
1368
        base[1]=Cnil;
 
1369
        while(vs_base<vs_top)
 
1370
        {base[1]=MMcons(vs_top[-1],base[1]);vs_top--;}
 
1371
        vs_top=sup;
 
1372
        nlj_active=FALSE;frs_pop();
 
1373
        if((base[0])==Cnil){
 
1374
        goto T283;}
 
1375
        base[2]= base[0];
 
1376
        vs_top=(vs_base=base+2)+1;
 
1377
        Lclose();
 
1378
        vs_top=sup;
 
1379
        goto T283;
 
1380
T283:;
 
1381
        vs_base=vs_top=base+2;
 
1382
        for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
 
1383
        if(active)unwind(fr,tag);else{
 
1384
        vs_top=sup;
 
1385
        {object V204 = vs_base[0];
 
1386
        VMR32(V204)}}}
 
1387
        base[0]=base[0];
 
1388
        return Cnil;
 
1389
}
 
1390
/*      local function CLOSURE  */
 
1391
 
 
1392
static void LC47(base0)
 
1393
register object *base0;
 
1394
{       register object *base=vs_base;
 
1395
        register object *sup=base+VM33; VC33
 
1396
        vs_check;
 
1397
        {object V205;
 
1398
        object V206;
 
1399
        check_arg(2);
 
1400
        V205=(base[0]);
 
1401
        V206=(base[1]);
 
1402
        vs_top=sup;
 
1403
        base[2]= (V206);
 
1404
        base[3]= (base0[1]->c.c_car);
 
1405
        base[4]= (base0[0]->c.c_car);
 
1406
        base[5]= (V205);
 
1407
        vs_top=(vs_base=base+2)+4;
 
1408
        siLstructure_set();
 
1409
        return;
 
1410
        }
 
1411
}
 
1412
/*      local function CLOSURE  */
 
1413
 
 
1414
static void LC46(base0)
 
1415
register object *base0;
 
1416
{       register object *base=vs_base;
 
1417
        register object *sup=base+VM34; VC34
 
1418
        vs_check;
 
1419
        {object V207;
 
1420
        check_arg(1);
 
1421
        V207=(base[0]);
 
1422
        vs_top=sup;
 
1423
        base[1]= (V207);
 
1424
        base[2]= (base0[0]->c.c_car);
 
1425
        vs_top=(vs_base=base+1)+2;
 
1426
        (void) (*Lnk79)();
 
1427
        return;
 
1428
        }
 
1429
}
 
1430
/*      local function CLOSURE  */
 
1431
 
 
1432
static void LC45(base0)
 
1433
register object *base0;
 
1434
{       register object *base=vs_base;
 
1435
        register object *sup=base+VM35; VC35
 
1436
        vs_check;
 
1437
        {object V208;
 
1438
        check_arg(1);
 
1439
        V208=(base[0]);
 
1440
        vs_top=sup;
 
1441
        base[1]= (((V208))==(Ct)?Ct:Cnil);
 
1442
        vs_top=(vs_base=base+1)+1;
 
1443
        return;
 
1444
        }
 
1445
}
 
1446
static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* STRUCTURE-REF1 */
 
1447
static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* PACKAGE-SIZE */
 
1448
static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* SPECIFIC-ERROR */
 
1449
static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* MAKE-ALL-PROCLAIMS */
 
1450
static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* OPEN */
 
1451
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* GET-PACKAGES */
 
1452
static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */
 
1453
static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */
 
1454
static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */
 
1455
static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INTERNAL-SLOTDS */
 
1456
static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */
 
1457
static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,2,first,ap);va_end(ap);return V1;} /* %SET-COMPILED-FUNCTION-NAME */
 
1458
static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFMETHOD */
 
1459
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* TURBO-CLOSURE */
 
1460
static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* EVERY */
 
1461
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* FIFTH */
 
1462
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* ADDRESS */
 
1463
static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* EXTRACT-DECLARATIONS */
 
1464
 
 
1465
#ifdef SYSTEM_SPECIAL_INIT
 
1466
SYSTEM_SPECIAL_INIT
 
1467
#endif
 
1468