/[gcl]/gcl/lsp/gcl_top.c
ViewVC logotype

Diff of /gcl/lsp/gcl_top.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_top.h"
4    void init_gcl_top(){do_init(VV);}
5    /*      local entry for function TOP-LEVEL      */
6    
7    static object LI1()
8    
9    {        VMB1 VMS1 VMV1
10            bds_check;
11            goto TTL;
12    TTL:;
13            bds_bind(VV[0],Cnil);
14            bds_bind(VV[1],Cnil);
15            bds_bind(VV[2],Cnil);
16            bds_bind(VV[3],Cnil);
17            bds_bind(VV[4],Cnil);
18            bds_bind(VV[5],Cnil);
19            bds_bind(VV[6],Cnil);
20            bds_bind(VV[7],Cnil);
21            bds_bind(VV[8],Cnil);
22            bds_bind(VV[9],Cnil);
23            (VV[10]->s.s_dbind)= Ct;
24            frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
25            if(nlj_active)
26            {nlj_active=FALSE;frs_pop();
27            vs_top=sup;
28            goto T3;}
29            else{
30            if(((VV[12]->s.s_dbind))==Cnil){
31            goto T8;}
32            (VV[12]->s.s_dbind)= Cnil;
33            goto T6;
34            goto T8;
35    T8:;
36            if(!((file_exists(VV[13])))){
37            goto T6;}
38            base[10]= VV[14];
39            vs_top=(vs_base=base+10)+1;
40            (void) (*Lnk149)();
41            vs_top=sup;
42            goto T6;
43    T6:;
44            bds_bind(VV[15],Cnil);
45            base[11]= (VV[16]->s.s_dbind);
46            vs_top=(vs_base=base+11)+1;
47            (void) (*Lnk150)();
48            vs_top=sup;
49            bds_unwind1;
50            base[10]= (VV[17]->s.s_dbind);
51            vs_top=(vs_base=base+10)+1;
52            Lfunctionp();
53            vs_top=sup;
54            if((vs_base[0])!=Cnil){
55            goto T15;}
56            frs_pop();
57            goto T3;
58            goto T15;
59    T15:;
60            V1= (
61            (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)):
62            (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());
63            frs_pop();}
64            goto T3;
65    T3:;
66            goto T19;
67    T19:;
68            (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
69            (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
70            (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
71            if(((VV[18]->s.s_dbind))==Cnil){
72            goto T29;}
73            (VV[18]->s.s_dbind)= Cnil;
74            goto T27;
75            goto T29;
76    T29:;
77            base[10]= Ct;
78            base[11]= VV[19];{VOL object V2;
79            V2= (VV[20]->s.s_dbind);
80            base[13]= VV[21];
81            vs_top=(vs_base=base+13)+1;
82            Lfind_package();
83            vs_top=sup;
84            V3= vs_base[0];
85            if(!((V2)==(V3))){
86            goto T36;}}
87            base[12]= VV[22];
88            goto T34;
89            goto T36;
90    T36:;
91            base[13]= (VV[20]->s.s_dbind);
92            vs_top=(vs_base=base+13)+1;
93            Lpackage_name();
94            vs_top=sup;
95            base[12]= vs_base[0];
96            goto T34;
97    T34:;
98            vs_top=(vs_base=base+10)+3;
99            Lformat();
100            vs_top=sup;
101            goto T27;
102    T27:;
103            vs_base=vs_top;
104            siLreset_stack_limits();
105            vs_top=sup;
106            if(((VV[12]->s.s_dbind))==Cnil){
107            goto T42;}
108            {object V4 = Cnil;
109            bds_unwind1;
110            bds_unwind1;
111            bds_unwind1;
112            bds_unwind1;
113            bds_unwind1;
114            bds_unwind1;
115            bds_unwind1;
116            bds_unwind1;
117            bds_unwind1;
118            bds_unwind1;
119            VMR1(V4)}
120            goto T42;
121    T42:;
122            frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
123            if(nlj_active)
124            {nlj_active=FALSE;frs_pop();
125            vs_top=sup;
126            if((vs_base[0])==Cnil){
127            goto T20;}
128            goto T46;}
129            else{
130            base[10]= (VV[23]->s.s_dbind);
131            base[11]= Cnil;
132            base[12]= (VV[24]->s.s_dbind);
133            (VV[3]->s.s_dbind)= simple_symlispcall(VV[151],base+10,3);
134            if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){
135            goto T53;}
136            vs_base=vs_top;
137            Lby();
138            vs_top=sup;
139            goto T53;
140    T53:;
141            {object V5;
142            base[10]= (VV[3]->s.s_dbind);
143            symlispcall(VV[152],base+10,1);
144            Llist();
145            vs_top=sup;
146            V5= vs_base[0];
147            (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
148            (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
149            (VV[7]->s.s_dbind)= (V5);
150            (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
151            (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
152            (VV[4]->s.s_dbind)= CMPcar((VV[7]->s.s_dbind));
153            vs_base=vs_top;
154            Lfresh_line();
155            vs_top=sup;
156            {register object V6;
157            register object V7;
158            V6= (VV[7]->s.s_dbind);
159            V7= CMPcar((V6));
160            goto T76;
161    T76:;
162            if(!(((V6))==Cnil)){
163            goto T77;}
164            goto T72;
165            goto T77;
166    T77:;
167            base[11]= (V7);
168            (void)simple_symlispcall(VV[153],base+11,1);
169            princ_char(10,Cnil);
170            V6= CMPcdr((V6));
171            V7= CMPcar((V6));
172            goto T76;}
173            goto T72;
174    T72:;
175            frs_pop();
176            goto T20;}}
177            goto T46;
178    T46:;
179            (VV[25]->s.s_dbind)= Cnil;
180            (VV[26]->s.s_dbind)= Cnil;
181            princ_char(10,VV[27]);
182            vs_base=vs_top;
183            (void) (*Lnk154)();
184            vs_top=sup;
185            goto T20;
186    T20:;
187            goto T19;
188            base[0]=base[0];
189            return Cnil;
190    }
191    /*      function definition for PROCESS-SOME-ARGS       */
192    
193    static void L2()
194    {register object *base=vs_base;
195            register object *sup=base+VM2; VC2
196            vs_check;
197            {register object V8;
198            V8=(base[0]);
199            vs_top=sup;
200            goto TTL;
201    TTL:;
202            goto T96;
203    T96:;
204            {register object V9;
205            register object V10;
206            V9= CMPcar((V8));
207            V10= Cnil;
208            if(!(equal((V9),VV[28]))){
209            goto T102;}
210            base[1]= CMPcadr((V8));
211            vs_top=(vs_base=base+1)+1;
212            (void) (*Lnk149)();
213            vs_top=sup;
214            goto T100;
215            goto T102;
216    T102:;
217            if(!(equal((V9),VV[29]))){
218            goto T106;}
219            base[2]= CMPcadr((V8));
220            vs_top=(vs_base=base+2)+1;
221            (void) (*Lnk155)();
222            vs_top=sup;
223            base[1]= vs_base[0];
224            vs_top=(vs_base=base+1)+1;
225            Leval();
226            vs_top=sup;
227            goto T100;
228            goto T106;
229    T106:;
230            V10= Ct;
231            goto T100;
232    T100:;
233            if((V10)!=Cnil){
234            goto T111;}
235            V8= CMPcdr((V8));
236            goto T111;
237    T111:;
238            V8= CMPcdr((V8));}
239            if((V8)!=Cnil){
240            goto T97;}
241            base[1]= Cnil;
242            vs_top=(vs_base=base+1)+1;
243            return;
244            goto T97;
245    T97:;
246            goto T96;
247            }
248    }
249    /*      function definition for DBL-READ        */
250    
251    static void L3()
252    {register object *base=vs_base;
253            register object *sup=base+VM3; VC3
254            vs_check;
255            {register object V11;
256            register object V12;
257            register object V13;
258            if(vs_base>=vs_top){vs_top=sup;goto T115;}
259            V11=(base[0]);
260            vs_base++;
261            if(vs_base>=vs_top){vs_top=sup;goto T116;}
262            V12=(base[1]);
263            vs_base++;
264            if(vs_base>=vs_top){vs_top=sup;goto T117;}
265            V13=(base[2]);
266            vs_top=sup;
267            goto T118;
268            goto T115;
269    T115:;
270            V11= (VV[23]->s.s_dbind);
271            goto T116;
272    T116:;
273            V12= Ct;
274            goto T117;
275    T117:;
276            V13= Cnil;
277            goto T118;
278    T118:;
279            {object V14;
280            register object V15;
281            V14= Cnil;
282            V15= Cnil;
283            goto T126;
284    T126:;
285            base[3]= (V11);
286            base[4]= (V12);
287            base[5]= (V13);
288            vs_top=(vs_base=base+3)+3;
289            Lread_char();
290            vs_top=sup;
291            V15= vs_base[0];
292            if(!(eql((V15),VV[30]))){
293            goto T134;}
294            goto T126;
295            goto T134;
296    T134:;
297            if(!(((V15))==((V13)))){
298            goto T132;}
299            base[3]= (V13);
300            vs_top=(vs_base=base+3)+1;
301            return;
302            goto T132;
303    T132:;
304            base[3]= (V15);
305            base[4]= (V11);
306            vs_top=(vs_base=base+3)+2;
307            Lunread_char();
308            vs_top=sup;
309            goto T124;
310            goto T124;
311    T124:;
312            if(!(eql(VV[31],(V15)))){
313            goto T142;}
314            base[3]= VV[32];
315            base[5]= (V11);
316            base[6]= (V12);
317            base[7]= (V13);
318            vs_top=(vs_base=base+5)+3;
319            Lread_line();
320            vs_top=sup;
321            base[4]= vs_base[0];
322            base[5]= VV[33];
323            vs_top=(vs_base=base+3)+3;
324            (void) (*Lnk156)();
325            vs_top=sup;
326            V14= vs_base[0];
327            base[4]= (V14);
328            vs_top=(vs_base=base+4)+1;
329            (void) (*Lnk157)();
330            vs_top=sup;
331            base[3]= vs_base[0];
332            base[4]= (V12);
333            base[5]= (V13);
334            vs_top=(vs_base=base+3)+3;
335            Lread();
336            return;
337            goto T142;
338    T142:;
339            base[3]= (V11);
340            base[4]= (V12);
341            base[5]= (V13);
342            vs_top=(vs_base=base+3)+3;
343            Lread();
344            return;}
345            }
346    }
347    /*      function definition for BREAK-LEVEL     */
348    
349    static void L4()
350    {register object *VOL base=vs_base;
351            register object *VOL sup=base+VM4; VC4
352            vs_check;
353            bds_check;
354            {VOL object V16;
355            VOL object V17;
356            V16=(base[0]);
357            vs_base=vs_base+1;
358            if(vs_base>=vs_top){vs_top=sup;goto T159;}
359            V17=(base[1]);
360            vs_top=sup;
361            goto T160;
362            goto T159;
363    T159:;
364            V17= Cnil;
365            goto T160;
366    T160:;
367            {VOL object V18;
368            if(!(type_of((V16))==t_string)){
369            goto T164;}
370            bds_bind(VV[34],(V16));
371            goto T162;
372            goto T164;
373    T164:;
374            bds_bind(VV[34],(VV[34]->s.s_dbind));
375            goto T162;
376    T162:;
377            V19= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind));
378            bds_bind(VV[35],make_cons(/* INLINE-ARGS */V19,(VV[35]->s.s_dbind)));
379            bds_bind(VV[11],make_cons(Cnil,Cnil));
380            if(((V16))!=Cnil){
381            goto T170;}
382            bds_bind(VV[36],(VV[36]->s.s_dbind));
383            goto T168;
384            goto T170;
385    T170:;
386            bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind)));
387            goto T168;
388    T168:;
389            bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));
390            vs_base=vs_top;
391            (void) (*Lnk158)();
392            vs_top=sup;
393            V20= vs_base[0];
394            bds_bind(VV[38],one_minus(V20));
395            bds_bind(VV[39],(VV[38]->s.s_dbind));{VOL object V21;
396            base[25]= (VV[41]->s.s_dbind);
397            base[26]= (VV[37]->s.s_dbind);
398            vs_top=(vs_base=base+25)+2;
399            (void) (*Lnk159)();
400            vs_top=sup;
401            V21= vs_base[0];
402            if(V21==Cnil)goto T176;
403            bds_bind(VV[40],V21);
404            goto T175;
405            goto T176;
406    T176:;}
407            vs_base=vs_top;
408            (void) (*Lnk160)();
409            vs_top=sup;
410            V22= vs_base[0];
411            bds_bind(VV[40],one_plus(V22));
412            goto T175;
413    T175:;
414            vs_base=vs_top;
415            (void) (*Lnk160)();
416            vs_top=sup;
417            bds_bind(VV[41],vs_base[0]);
418            bds_bind(VV[42],Cnil);
419            V18= (VV[43]->s.s_dbind);
420            if(!(type_of((V16))==t_string)){
421            goto T185;}
422            bds_bind(VV[43],Cnil);
423            goto T183;
424            goto T185;
425    T185:;
426            bds_bind(VV[43],(V18));
427            goto T183;
428    T183:;
429            if((VV[45]->s.s_dbind)!=Cnil){
430            bds_bind(VV[44],(VV[45]->s.s_dbind));
431            goto T187;}
432            bds_bind(VV[44],(VV[44]->s.s_dbind));
433            goto T187;
434    T187:;
435            bds_bind(VV[46],Cnil);
436            bds_bind(VV[0],(VV[0]->s.s_dbind));
437            bds_bind(VV[1],(VV[1]->s.s_dbind));
438            bds_bind(VV[2],(VV[2]->s.s_dbind));
439            bds_bind(VV[3],(VV[3]->s.s_dbind));
440            bds_bind(VV[4],(VV[4]->s.s_dbind));
441            bds_bind(VV[5],(VV[5]->s.s_dbind));
442            bds_bind(VV[6],(VV[6]->s.s_dbind));
443            bds_bind(VV[7],(VV[7]->s.s_dbind));
444            bds_bind(VV[8],(VV[8]->s.s_dbind));
445            bds_bind(VV[9],(VV[9]->s.s_dbind));
446            if(((V18))!=Cnil){
447            goto T188;}
448            if(!(type_of((V16))==t_string)){
449            goto T188;}
450            vs_base=vs_top;
451            (void) (*Lnk161)();
452            vs_top=sup;
453            base[25]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind))));
454            vs_top=(vs_base=base+25)+1;
455            (void) (*Lnk162)();
456            vs_top=sup;
457            goto T188;
458    T188:;
459            base[25]= small_fixnum(1);
460            vs_top=(vs_base=base+25)+1;
461            (void) (*Lnk163)();
462            vs_top=sup;
463            (VV[47]->s.s_dbind)= Ct;
464            if(!(type_of((V16))==t_string)){
465            goto T201;}
466            (void)((*(LnkLI164))());
467            princ_char(10,VV[27]);
468            (VV[18]->s.s_dbind)= Cnil;
469            goto T199;
470            goto T201;
471    T201:;
472            base[25]= (V16);
473            base[26]= (V17);
474            vs_top=(vs_base=base+25)+2;
475            (void) (*Lnk165)();
476            vs_top=sup;
477            goto T199;
478    T199:;
479            goto T209;
480    T209:;
481            (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
482            (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
483            (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
484            if(((VV[18]->s.s_dbind))==Cnil){
485            goto T219;}
486            (VV[18]->s.s_dbind)= Cnil;
487            goto T217;
488            goto T219;
489    T219:;
490            base[25]= (VV[48]->s.s_dbind);
491            base[26]= VV[49];
492            if(!(type_of((V16))==t_string)){
493            goto T226;}
494            base[27]= VV[50];
495            goto T224;
496            goto T226;
497    T226:;
498            base[27]= VV[51];
499            goto T224;
500    T224:;{VOL object V23;
501            V23= (VV[20]->s.s_dbind);
502            base[29]= VV[21];
503            vs_top=(vs_base=base+29)+1;
504            Lfind_package();
505            vs_top=sup;
506            V24= vs_base[0];
507            if(!((V23)==(V24))){
508            goto T230;}}
509            base[28]= VV[52];
510            goto T228;
511            goto T230;
512    T230:;
513            base[29]= (VV[20]->s.s_dbind);
514            vs_top=(vs_base=base+29)+1;
515            Lpackage_name();
516            vs_top=sup;
517            base[28]= vs_base[0];
518            goto T228;
519    T228:;
520            base[29]= (VV[36]->s.s_dbind);
521            vs_top=(vs_base=base+25)+5;
522            Lformat();
523            vs_top=sup;
524            goto T217;
525    T217:;
526            base[25]= (VV[27]->s.s_dbind);
527            vs_top=(vs_base=base+25)+1;
528            Lforce_output();
529            vs_top=sup;
530            frs_push(FRS_CATCH,VV[53]);
531            if(nlj_active)
532            {nlj_active=FALSE;frs_pop();
533            vs_top=sup;
534            if((vs_base[0])==Cnil){
535            goto T210;}
536            goto T239;}
537            else{
538            frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
539            if(nlj_active)
540            {nlj_active=FALSE;frs_pop();
541            vs_top=sup;
542            if((vs_base[0])==Cnil){
543            frs_pop();
544            goto T210;}
545            frs_pop();
546            goto T239;}
547            else{
548            base[25]= (VV[48]->s.s_dbind);
549            base[26]= Cnil;
550            base[27]= (VV[24]->s.s_dbind);
551            vs_top=(vs_base=base+25)+3;
552            (void) (*Lnk166)();
553            vs_top=sup;
554            (VV[3]->s.s_dbind)= vs_base[0];
555            if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){
556            goto T247;}
557            vs_base=vs_top;
558            Lby();
559            vs_top=sup;
560            goto T247;
561    T247:;
562            {object V25;
563            object V26;
564            V25= Cnil;
565            if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){
566            goto T254;}
567            (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);
568            goto T254;
569    T254:;
570            if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
571            goto T259;}
572            {object V27= CMPcar((VV[3]->s.s_dbind));
573            if(!((type_of(V27)==t_symbol&&(V27)->s.s_hpack==keyword_package))){
574            goto T259;}}
575            V25= Ct;
576            base[26]= CMPcar((VV[3]->s.s_dbind));
577            base[27]= CMPcdr((VV[3]->s.s_dbind));
578            base[28]= VV[54];
579            symlispcall(VV[167],base+26,3);
580            goto T253;
581            goto T259;
582    T259:;
583            base[26]= (VV[3]->s.s_dbind);
584            base[27]= Cnil;
585            base[28]= Cnil;
586            base[29]= (VV[42]->s.s_dbind);
587            symlispcall(VV[168],base+26,4);
588            goto T253;
589    T253:;
590            Llist();
591            vs_top=sup;
592            V26= vs_base[0];
593            if((V25)==Cnil){
594            goto T272;}
595            if((CMPcar((V26)))==(VV[55])){
596            goto T273;}
597            goto T272;
598            goto T273;
599    T273:;
600            frs_pop();
601            frs_pop();
602            base[26]= Cnil;
603            vs_top=(vs_base=base+26)+1;
604            bds_unwind1;
605            bds_unwind1;
606            bds_unwind1;
607            bds_unwind1;
608            bds_unwind1;
609            bds_unwind1;
610            bds_unwind1;
611            bds_unwind1;
612            bds_unwind1;
613            bds_unwind1;
614            bds_unwind1;
615            bds_unwind1;
616            bds_unwind1;
617            bds_unwind1;
618            bds_unwind1;
619            bds_unwind1;
620            bds_unwind1;
621            bds_unwind1;
622            bds_unwind1;
623            bds_unwind1;
624            bds_unwind1;
625            bds_unwind1;
626            bds_unwind1;
627            return;
628            goto T272;
629    T272:;
630            (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
631            (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
632            (VV[7]->s.s_dbind)= (V26);
633            (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
634            (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
635            (VV[4]->s.s_dbind)= CMPcar((VV[7]->s.s_dbind));
636            base[26]= (VV[48]->s.s_dbind);
637            vs_top=(vs_base=base+26)+1;
638            Lfresh_line();
639            vs_top=sup;
640            {register object V28;
641            register object V29;
642            V28= (VV[7]->s.s_dbind);
643            V29= CMPcar((V28));
644            goto T292;
645    T292:;
646            if(!(((V28))==Cnil)){
647            goto T293;}
648            goto T250;
649            goto T293;
650    T293:;
651            base[27]= (V29);
652            base[28]= (VV[48]->s.s_dbind);
653            (void)simple_symlispcall(VV[153],base+27,2);
654            princ_char(10,VV[48]);
655            V28= CMPcdr((V28));
656            V29= CMPcar((V28));
657            goto T292;}}
658            goto T250;
659    T250:;
660            frs_pop();
661            frs_pop();
662            goto T210;}}
663            goto T239;
664    T239:;
665            princ_char(10,VV[48]);
666            vs_base=vs_top;
667            (void) (*Lnk154)();
668            vs_top=sup;
669            goto T210;
670    T210:;
671            goto T209;}
672            }
673    }
674    /*      local entry for function WARN   */
675    
676    static object LI5(object V30,object first,...)
677    {      
678            va_list ap;
679            int narg = VFUN_NARGS; VMB5 VMS5 VMV5
680            bds_check;
681            {object V31;
682            object V32;
683            va_start(ap,first);
684            V31= V30;
685            narg= narg - 1;
686            V33 = list_vector_new(narg,first,ap);
687            V32= V33;
688            bds_bind(VV[56],small_fixnum(4));
689            bds_bind(VV[57],small_fixnum(4));
690            bds_bind(VV[58],VV[59]);
691            if(((VV[60]->s.s_dbind))==Cnil){
692            goto T309;}
693            base[3]= (V31);
694            {object V34;
695            V34= (V32);
696             vs_top=base+4;
697             while(V34!=Cnil)
698             {vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;}
699            vs_base=base+3;}
700            (void) (*Lnk169)();
701            vs_top=sup;
702            {object V35 = vs_base[0];
703            bds_unwind1;
704            bds_unwind1;
705            bds_unwind1;
706            VMR5(V35)}
707            goto T309;
708    T309:;
709            base[3]= (VV[27]->s.s_dbind);
710            base[4]= VV[61];
711            vs_top=(vs_base=base+3)+2;
712            Lformat();
713            vs_top=sup;
714            bds_bind(VV[62],Ct);
715            base[4]= (VV[27]->s.s_dbind);
716            base[5]= (V31);
717            {object V36;
718            V36= (V32);
719             vs_top=base+6;
720             while(V36!=Cnil)
721             {vs_push((V36)->c.c_car);V36=(V36)->c.c_cdr;}
722            vs_base=base+4;}
723            Lformat();
724            vs_top=sup;
725            bds_unwind1;
726            {object V37 = Cnil;
727            bds_unwind1;
728            bds_unwind1;
729            bds_unwind1;
730            VMR5(V37)}
731            va_end(ap);
732            base[0]=base[0];
733            return Cnil;}
734            }
735    /*      local entry for function UNIVERSAL-ERROR-HANDLER        */
736    
737    static object LI6(object V42,object V41,object V40,object V39,object V38,object first,...)
738    {      
739            va_list ap;
740            int narg = VFUN_NARGS; VMB6 VMS6 VMV6
741            bds_check;
742            {object V43;
743            object V44;
744            register object V45;
745            object V46;
746            register object V47;
747            register object V48;
748            va_start(ap,first);
749            V43= V42;
750            V44= V41;
751            V45= V40;
752            V46= V39;
753            V47= V38;
754            narg= narg - 5;
755            V49 = list_vector_new(narg,first,ap);
756            V48= V49;
757            {object V50;
758            V50= Cnil;
759            bds_bind(VV[63],Cnil);
760            bds_bind(VV[56],(VV[64]->s.s_dbind));
761            bds_bind(VV[57],(VV[64]->s.s_dbind));
762            bds_bind(VV[58],VV[59]);
763            princ_char(10,VV[27]);
764            if(((V44))==Cnil){
765            goto T324;}
766            if(((VV[43]->s.s_dbind))==Cnil){
767            goto T324;}
768            base[4]= (VV[27]->s.s_dbind);
769            base[5]= VV[65];
770            vs_top=(vs_base=base+4)+2;
771            Lformat();
772            vs_top=sup;
773            bds_bind(VV[62],Ct);
774            base[5]= (VV[27]->s.s_dbind);
775            base[6]= (V47);
776            {object V51;
777            V51= (V48);
778             vs_top=base+7;
779             while(V51!=Cnil)
780             {vs_push((V51)->c.c_car);V51=(V51)->c.c_cdr;}
781            vs_base=base+5;}
782            Lformat();
783            vs_top=sup;
784            bds_unwind1;
785            princ_char(10,VV[27]);
786            base[4]= Cnil;
787            base[5]= (V47);
788            {object V52;
789            V52= (V48);
790             vs_top=base+6;
791             while(V52!=Cnil)
792             {vs_push((V52)->c.c_car);V52=(V52)->c.c_cdr;}
793            vs_base=base+4;}
794            Lformat();
795            vs_top=sup;
796            V50= vs_base[0];
797            if(((V45))==Cnil){
798            goto T343;}
799            base[4]= (VV[27]->s.s_dbind);
800            base[5]= VV[66];
801            base[6]= (V45);
802            vs_top=(vs_base=base+4)+3;
803            Lformat();
804            vs_top=sup;
805            goto T341;
806            goto T343;
807    T343:;
808            base[4]= (VV[27]->s.s_dbind);
809            base[5]= VV[67];
810            vs_top=(vs_base=base+4)+2;
811            Lformat();
812            vs_top=sup;
813            goto T341;
814    T341:;
815            base[4]= (VV[27]->s.s_dbind);
816            base[5]= VV[68];
817            vs_top=(vs_base=base+4)+2;
818            Lformat();
819            vs_top=sup;
820            bds_bind(VV[62],Ct);
821            base[5]= (VV[27]->s.s_dbind);
822            base[6]= VV[69];
823            base[7]= (V46);
824            base[8]= (V48);
825            vs_top=(vs_base=base+5)+4;
826            Lformat();
827            vs_top=sup;
828            bds_unwind1;
829            bds_unwind1;
830            bds_unwind1;
831            bds_unwind1;
832            bds_unwind1;
833            goto T321;
834            goto T324;
835    T324:;
836            base[4]= (VV[27]->s.s_dbind);
837            base[5]= VV[70];
838            vs_top=(vs_base=base+4)+2;
839            Lformat();
840            vs_top=sup;
841            bds_bind(VV[62],Ct);
842            base[5]= (VV[27]->s.s_dbind);
843            base[6]= (V47);
844            {object V53;
845            V53= (V48);
846             vs_top=base+7;
847             while(V53!=Cnil)
848             {vs_push((V53)->c.c_car);V53=(V53)->c.c_cdr;}
849            vs_base=base+5;}
850            Lformat();
851            vs_top=sup;
852            bds_unwind1;
853            princ_char(10,VV[27]);
854            if(!(((long)length((VV[71]->s.s_dbind)))>(0))){
855            goto T365;}
856            base[4]= (VV[27]->s.s_dbind);
857            base[5]= VV[72];
858            vs_top=(vs_base=base+4)+2;
859            Lformat();
860            vs_top=sup;
861            goto T365;
862    T365:;
863            base[4]= Cnil;
864            base[5]= (V47);
865            {object V54;
866            V54= (V48);
867             vs_top=base+6;
868             while(V54!=Cnil)
869             {vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;}
870            vs_base=base+4;}
871            Lformat();
872            vs_top=sup;
873            V50= vs_base[0];
874            if(((V45))==Cnil){
875            goto T376;}
876            base[4]= (VV[27]->s.s_dbind);
877            base[5]= VV[73];
878            base[6]= (V45);
879            vs_top=(vs_base=base+4)+3;
880            Lformat();
881            vs_top=sup;
882            bds_unwind1;
883            bds_unwind1;
884            bds_unwind1;
885            bds_unwind1;
886            goto T321;
887            goto T376;
888    T376:;
889            base[4]= (VV[27]->s.s_dbind);
890            base[5]= VV[74];
891            vs_top=(vs_base=base+4)+2;
892            Lformat();
893            vs_top=sup;
894            bds_unwind1;
895            bds_unwind1;
896            bds_unwind1;
897            bds_unwind1;
898            goto T321;
899    T321:;
900            base[0]= (VV[27]->s.s_dbind);
901            vs_top=(vs_base=base+0)+1;
902            Lforce_output();
903            vs_top=sup;
904            base[0]= (V50);
905            vs_top=(vs_base=base+0)+1;
906            (void) (*Lnk170)();
907            vs_top=sup;
908            if(((V44))!=Cnil){
909            goto T388;}
910            {frame_ptr fr;
911            fr=frs_sch_catch((VV[11]->s.s_dbind));
912            if(fr==NULL) FEerror("The tag ~s is undefined.",1,(VV[11]->s.s_dbind));
913            base[0]= (VV[11]->s.s_dbind);
914            vs_top=(vs_base=base+0)+1;
915            unwind(fr,(VV[11]->s.s_dbind));}
916            goto T388;
917    T388:;
918            {object V55 = Cnil;
919            VMR6(V55)}}
920            va_end(ap);
921            base[0]=base[0];
922            return Cnil;}
923            }
924    /*      local entry for function BREAK  */
925    
926    static object LI7(object first,...)
927    {      
928            va_list ap;
929            int narg = VFUN_NARGS; VMB7 VMS7 VMV7
930            bds_check;
931            {object V56;
932            object V57;
933            va_start(ap,first);
934            narg = narg - 0;
935            if (narg <= 0) goto T391;
936            else {
937            V56= first;}
938            --narg; goto T392;
939            goto T391;
940    T391:;
941            V56= Cnil;
942            goto T392;
943    T392:;
944            V58 = list_vector_new(narg,first,ap);
945            V57= V58;
946            {object V59;
947            V59= Cnil;
948            bds_bind(VV[63],Cnil);
949            bds_bind(VV[56],small_fixnum(4));
950            bds_bind(VV[57],small_fixnum(4));
951            bds_bind(VV[58],VV[59]);
952            princ_char(10,VV[27]);
953            if(((V56))==Cnil){
954            goto T398;}
955            base[4]= (VV[27]->s.s_dbind);
956            base[5]= VV[75];
957            vs_top=(vs_base=base+4)+2;
958            Lformat();
959            vs_top=sup;
960            bds_bind(VV[62],Ct);
961            base[5]= (VV[27]->s.s_dbind);
962            base[6]= (V56);
963            {object V60;
964            V60= (V57);
965             vs_top=base+7;
966             while(V60!=Cnil)
967             {vs_push((V60)->c.c_car);V60=(V60)->c.c_cdr;}
968            vs_base=base+5;}
969            Lformat();
970            vs_top=sup;
971            bds_unwind1;
972            princ_char(10,VV[27]);
973            base[4]= Cnil;
974            base[5]= (V56);
975            {object V61;
976            V61= (V57);
977             vs_top=base+6;
978             while(V61!=Cnil)
979             {vs_push((V61)->c.c_car);V61=(V61)->c.c_cdr;}
980            vs_base=base+4;}
981            Lformat();
982            vs_top=sup;
983            V59= vs_base[0];
984            bds_unwind1;
985            bds_unwind1;
986            bds_unwind1;
987            bds_unwind1;
988            goto T395;
989            goto T398;
990    T398:;
991            base[4]= (VV[27]->s.s_dbind);
992            base[5]= VV[76];
993            vs_top=(vs_base=base+4)+2;
994            Lformat();
995            vs_top=sup;
996            V59= VV[77];
997            bds_unwind1;
998            bds_unwind1;
999            bds_unwind1;
1000            bds_unwind1;
1001            goto T395;
1002    T395:;
1003            bds_bind(VV[43],Ct);
1004            base[1]= (V59);
1005            vs_top=(vs_base=base+1)+1;
1006            (void) (*Lnk170)();
1007            vs_top=sup;
1008            bds_unwind1;
1009            {object V62 = Cnil;
1010            VMR7(V62)}}
1011            va_end(ap);
1012            base[0]=base[0];
1013            return Cnil;}
1014            }
1015    /*      local entry for function TERMINAL-INTERRUPT     */
1016    
1017    static object LI8(V64)
1018    
1019    object V64;
1020    {        VMB8 VMS8 VMV8
1021            bds_check;
1022            goto TTL;
1023    TTL:;
1024            bds_bind(VV[43],Ct);
1025            if(((V64))==Cnil){
1026            goto T419;}
1027            base[1]= VV[78];
1028            base[2]= VV[79];
1029            vs_top=(vs_base=base+1)+2;
1030            Lcerror();
1031            vs_top=sup;
1032            {object V65 = vs_base[0];
1033            bds_unwind1;
1034            VMR8(V65)}
1035            goto T419;
1036    T419:;
1037            base[1]= VV[80];
1038            vs_top=(vs_base=base+1)+1;
1039            Lerror();
1040            vs_top=sup;
1041            {object V66 = vs_base[0];
1042            bds_unwind1;
1043            VMR8(V66)}
1044            base[0]=base[0];
1045            return Cnil;
1046    }
1047    /*      function definition for BREAK-CALL      */
1048    
1049    static void L9()
1050    {register object *base=vs_base;
1051            register object *sup=base+VM9; VC9
1052            vs_check;
1053            {object V67;
1054            register object V68;
1055            object V69;
1056            V67=(base[0]);
1057            V68=(base[1]);
1058            vs_base=vs_base+2;
1059            if(vs_base>=vs_top){vs_top=sup;goto T424;}
1060            V69=(base[2]);
1061            vs_top=sup;
1062            goto T425;
1063            goto T424;
1064    T424:;
1065            V69= VV[54];
1066            goto T425;
1067    T425:;
1068            {register object V70;
1069            V70= Cnil;
1070            base[3]= (V67);
1071            base[4]= VV[81];
1072            base[5]= (V69);
1073            vs_top=(vs_base=base+3)+3;
1074            (void) (*Lnk171)();
1075            vs_top=sup;
1076            V70= vs_base[0];
1077            if((V70)!=Cnil){
1078            goto T433;}
1079            base[3]= Cnil;
1080            vs_top=(vs_base=base+3)+1;
1081            return;
1082            goto T433;
1083    T433:;
1084            {object V71 =((V70))->s.s_plist;
1085             object ind= (V69);
1086            while(V71!=Cnil){
1087            if(V71->c.c_car==ind){
1088            V70= (V71->c.c_cdr->c.c_car);
1089            goto T435;
1090            }else V71=V71->c.c_cdr->c.c_cdr;}
1091            V70= Cnil;}
1092            goto T435;
1093    T435:;
1094            if(((V70))==Cnil){
1095            goto T437;}
1096            V68= make_cons((V70),(V68));
1097            if(!(type_of((V70))==t_symbol)){
1098            goto T442;}
1099            goto T441;
1100            goto T442;
1101    T442:;
1102            V68= make_cons(VV[82],(V68));
1103            goto T441;
1104    T441:;
1105            base[3]= (V68);
1106            base[4]= Cnil;
1107            base[5]= Cnil;
1108            base[6]= (VV[42]->s.s_dbind);
1109            vs_top=(vs_base=base+3)+4;
1110            Levalhook();
1111            return;
1112            goto T437;
1113    T437:;
1114            base[3]= (VV[48]->s.s_dbind);
1115            base[4]= VV[83];
1116            base[5]= (V67);
1117            vs_top=(vs_base=base+3)+3;
1118            Lformat();
1119            return;}
1120            }
1121    }
1122    /*      function definition for BREAK-QUIT      */
1123    
1124    static void L10()
1125    {register object *base=vs_base;
1126            register object *sup=base+VM10; VC10
1127            vs_check;
1128            {object V72;
1129            if(vs_base>=vs_top){vs_top=sup;goto T452;}
1130            V72=(base[0]);
1131            vs_top=sup;
1132            goto T453;
1133            goto T452;
1134    T452:;
1135            V72= small_fixnum(0);
1136            goto T453;
1137    T453:;
1138            {object V73;
1139            V73= make_fixnum((long)length((VV[36]->s.s_dbind)));
1140            if(!(number_compare((V72),small_fixnum(0))>=0)){
1141            goto T456;}
1142            if(!(number_compare((V72),(V73))<0)){
1143            goto T456;}
1144            {object V74;
1145            base[2]= (V73);
1146            base[3]= (V72);
1147            base[4]= small_fixnum(1);
1148            vs_top=(vs_base=base+2)+3;
1149            Lminus();
1150            vs_top=sup;
1151            V75= vs_base[0];
1152            V74= nth(fix(V75),(VV[35]->s.s_dbind));
1153            {frame_ptr fr;
1154            base[2]= CMPcdr((V74));
1155            fr=frs_sch_catch(base[2]);
1156            if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[2]);
1157            base[3]= CMPcdr((V74));
1158            vs_top=(vs_base=base+3)+1;
1159            unwind(fr,base[2]);}}
1160            goto T456;
1161    T456:;
1162            vs_base=vs_top;
1163            (void) (*Lnk154)();
1164            return;}
1165            }
1166    }
1167    /*      function definition for BREAK-PREVIOUS  */
1168    
1169    static void L11()
1170    {register object *base=vs_base;
1171            register object *sup=base+VM11; VC11
1172            vs_check;
1173            {register object V76;
1174            if(vs_base>=vs_top){vs_top=sup;goto T468;}
1175            V76=(base[0]);
1176            vs_top=sup;
1177            goto T469;
1178            goto T468;
1179    T468:;
1180            V76= small_fixnum(1);
1181            goto T469;
1182    T469:;
1183            {register object V77;
1184            V77= one_minus((VV[39]->s.s_dbind));
1185            goto T473;
1186    T473:;
1187            if(number_compare((V77),(VV[37]->s.s_dbind))<0){
1188            goto T475;}
1189            if(!(number_compare((V76),small_fixnum(0))<=0)){
1190            goto T474;}
1191            goto T475;
1192    T475:;
1193            (void)((*(LnkLI172))());
1194            vs_base=vs_top;
1195            (void) (*Lnk154)();
1196            return;
1197            goto T474;
1198    T474:;
1199            if(((*(LnkLI173))((V77)))==Cnil){
1200            goto T481;}
1201            (VV[39]->s.s_dbind)= (V77);
1202            V76= one_minus((V76));
1203            goto T481;
1204    T481:;
1205            V77= one_minus((V77));
1206            goto T473;}
1207            }
1208    }
1209    /*      local entry for function SET-CURRENT    */
1210    
1211    static object LI12()
1212    
1213    {        VMB12 VMS12 VMV12
1214            goto TTL;
1215    TTL:;
1216            {register object V78;
1217            V78= (VV[39]->s.s_dbind);
1218            goto T491;
1219    T491:;
1220            if(((*(LnkLI173))((V78)))!=Cnil){
1221            goto T493;}
1222            if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){
1223            goto T492;}
1224            goto T493;
1225    T493:;
1226            (VV[39]->s.s_dbind)= (V78);
1227            (void)((*(LnkLI172))());
1228            base[0]= (VV[48]->s.s_dbind);
1229            base[1]= VV[84];
1230            base[3]= (VV[39]->s.s_dbind);
1231            vs_top=(vs_base=base+3)+1;
1232            (void) (*Lnk174)();
1233            vs_top=sup;
1234            base[2]= vs_base[0];
1235            base[3]= CMPcdr((VV[36]->s.s_dbind));
1236            vs_top=(vs_base=base+0)+4;
1237            Lformat();
1238            vs_top=sup;
1239            {object V79 = vs_base[0];
1240            VMR12(V79)}
1241            goto T492;
1242    T492:;
1243            V78= one_minus((V78));
1244            goto T491;}
1245            base[0]=base[0];
1246            return Cnil;
1247    }
1248    /*      function definition for BREAK-NEXT      */
1249    
1250    static void L13()
1251    {register object *base=vs_base;
1252            register object *sup=base+VM13; VC13
1253            vs_check;
1254            {register object V80;
1255            if(vs_base>=vs_top){vs_top=sup;goto T509;}
1256            V80=(base[0]);
1257            vs_top=sup;
1258            goto T510;
1259            goto T509;
1260    T509:;
1261            V80= small_fixnum(1);
1262            goto T510;
1263    T510:;
1264            {register object V81;
1265            V81= (VV[39]->s.s_dbind);
1266            goto T513;
1267    T513:;
1268            if(number_compare((V81),(VV[38]->s.s_dbind))>0){
1269            goto T515;}
1270            if(!(number_compare((V80),small_fixnum(0))<0)){
1271            goto T514;}
1272            goto T515;
1273    T515:;
1274            (void)((*(LnkLI172))());
1275            vs_base=vs_top;
1276            (void) (*Lnk154)();
1277            return;
1278            goto T514;
1279    T514:;
1280            if(((*(LnkLI173))((V81)))==Cnil){
1281            goto T521;}
1282            (VV[39]->s.s_dbind)= (V81);
1283            V80= one_minus((V80));
1284            goto T521;
1285    T521:;
1286            V81= one_plus((V81));
1287            goto T513;}
1288            }
1289    }
1290    /*      function definition for BREAK-GO        */
1291    
1292    static void L14()
1293    {register object *base=vs_base;
1294            register object *sup=base+VM14; VC14
1295            vs_check;
1296            {object V82;
1297            V82=(base[0]);
1298            vs_top=sup;
1299            goto TTL;
1300    TTL:;
1301            {object V83= (number_compare((V82),(VV[37]->s.s_dbind))>=0?((V82)):(VV[37]->s.s_dbind));
1302            (VV[39]->s.s_dbind)= (number_compare(V83,(VV[38]->s.s_dbind))<=0?(V83):(VV[38]->s.s_dbind));}
1303            if(((*(LnkLI173))((VV[39]->s.s_dbind)))==Cnil){
1304            goto T533;}
1305            (void)((*(LnkLI172))());
1306            vs_base=vs_top;
1307            (void) (*Lnk154)();
1308            return;
1309            goto T533;
1310    T533:;
1311            vs_base=vs_top;
1312            (void) (*Lnk175)();
1313            return;
1314            }
1315    }
1316    /*      function definition for BREAK-MESSAGE   */
1317    
1318    static void L15()
1319    {register object *base=vs_base;
1320            register object *sup=base+VM15; VC15
1321            vs_check;
1322            vs_top=sup;
1323            goto TTL;
1324    TTL:;
1325            (void)(princ((VV[34]->s.s_dbind),(VV[48]->s.s_dbind)));
1326            princ_char(10,VV[48]);
1327            vs_base=vs_top=base+0;
1328            vs_base[0]=Cnil;
1329            return;
1330    }
1331    /*      function definition for DESCRIBE-ENVIRONMENT    */
1332    
1333    static void L16()
1334    {register object *base=vs_base;
1335            register object *sup=base+VM16; VC16
1336            vs_check;
1337            {object V84;
1338            register object V85;
1339            if(vs_base>=vs_top){vs_top=sup;goto T538;}
1340            V84=(base[0]);
1341            vs_base++;
1342            if(vs_base>=vs_top){vs_top=sup;goto T539;}
1343            V85=(base[1]);
1344            vs_top=sup;
1345            goto T540;
1346            goto T538;
1347    T538:;
1348            V84= (VV[42]->s.s_dbind);
1349            goto T539;
1350    T539:;
1351            V85= (VV[48]->s.s_dbind);
1352            goto T540;
1353    T540:;
1354            if(!(((long)length((V84)))==(3))){
1355            goto T544;}
1356            goto T543;
1357            goto T544;
1358    T544:;
1359            base[2]= VV[85];
1360            vs_top=(vs_base=base+2)+1;
1361            Lerror();
1362            vs_top=sup;
1363            goto T543;
1364    T543:;
1365            {register object V86;
1366            V86= VV[86];
1367            base[2]= (V85);
1368            base[3]= (V86);
1369            base[4]= VV[87];
1370            {object V87;
1371            {object V88;
1372            object V89= CMPcar((VV[42]->s.s_dbind));
1373            if(V89==Cnil){
1374            V87= Cnil;
1375            goto T551;}
1376            base[5]=V88=MMcons(Cnil,Cnil);
1377            goto T552;
1378    T552:;
1379            (V88->c.c_car)= CMPcar((V89->c.c_car));
1380            if((V89=MMcdr(V89))==Cnil){
1381            V87= base[5];
1382            goto T551;}
1383            V88=MMcdr(V88)=MMcons(Cnil,Cnil);
1384            goto T552;}
1385            goto T551;
1386    T551:;
1387             vs_top=base+5;
1388             while(V87!=Cnil)
1389             {vs_push((V87)->c.c_car);V87=(V87)->c.c_cdr;}
1390            vs_base=base+2;}
1391            Lformat();
1392            vs_top=sup;
1393            base[2]= (V85);
1394            base[3]= (V86);
1395            base[4]= VV[88];
1396            {object V90;
1397            {object V91;
1398            object V92= CMPcadr((VV[42]->s.s_dbind));
1399            if(V92==Cnil){
1400            V90= Cnil;
1401            goto T558;}
1402            base[5]=V91=MMcons(Cnil,Cnil);
1403            goto T559;
1404    T559:;
1405            (V91->c.c_car)= CMPcar((V92->c.c_car));
1406            if((V92=MMcdr(V92))==Cnil){
1407            V90= base[5];
1408            goto T558;}
1409            V91=MMcdr(V91)=MMcons(Cnil,Cnil);
1410            goto T559;}
1411            goto T558;
1412    T558:;
1413             vs_top=base+5;
1414             while(V90!=Cnil)
1415             {vs_push((V90)->c.c_car);V90=(V90)->c.c_cdr;}
1416            vs_base=base+2;}
1417            Lformat();
1418            vs_top=sup;
1419            base[2]= (V85);
1420            base[3]= (V86);
1421            base[4]= VV[89];
1422            {object V93;
1423            {object V94;
1424            object V95= CMPcaddr((VV[42]->s.s_dbind));
1425            if(V95==Cnil){
1426            V93= Cnil;
1427            goto T565;}
1428            base[5]=V94=MMcons(Cnil,Cnil);
1429            goto T566;
1430    T566:;
1431            if(!((CMPcadr((V95->c.c_car)))==(VV[90]))){
1432            goto T569;}
1433            (V94->c.c_cdr)= make_cons(CMPcar((V95->c.c_car)),Cnil);
1434            goto T567;
1435            goto T569;
1436    T569:;
1437            (V94->c.c_cdr)= Cnil;
1438            goto T567;
1439    T567:;
1440            while(MMcdr(V94)!=Cnil)V94=MMcdr(V94);
1441            if((V95=MMcdr(V95))==Cnil){
1442            base[5]=base[5]->c.c_cdr;
1443            V93= base[5];
1444            goto T565;}
1445            goto T566;}
1446            goto T565;
1447    T565:;
1448             vs_top=base+5;
1449             while(V93!=Cnil)
1450             {vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;}
1451            vs_base=base+2;}
1452            Lformat();
1453            vs_top=sup;
1454            base[2]= (V85);
1455            base[3]= (V86);
1456            base[4]= VV[91];
1457            {object V97;
1458            {object V98;
1459            object V99= CMPcaddr((VV[42]->s.s_dbind));
1460            if(V99==Cnil){
1461            V97= Cnil;
1462            goto T574;}
1463            base[5]=V98=MMcons(Cnil,Cnil);
1464            goto T575;
1465    T575:;
1466            if(!((CMPcadr((V99->c.c_car)))==(VV[92]))){
1467            goto T578;}
1468            (V98->c.c_cdr)= make_cons(CMPcar((V99->c.c_car)),Cnil);
1469            goto T576;
1470            goto T578;
1471    T578:;
1472            (V98->c.c_cdr)= Cnil;
1473            goto T576;
1474    T576:;
1475            while(MMcdr(V98)!=Cnil)V98=MMcdr(V98);
1476            if((V99=MMcdr(V99))==Cnil){
1477            base[5]=base[5]->c.c_cdr;
1478            V97= base[5];
1479            goto T574;}
1480            goto T575;}
1481            goto T574;
1482    T574:;
1483             vs_top=base+5;
1484             while(V97!=Cnil)
1485             {vs_push((V97)->c.c_car);V97=(V97)->c.c_cdr;}
1486            vs_base=base+2;}
1487            Lformat();
1488            return;}
1489            }
1490    }
1491    /*      function definition for BREAK-VS        */
1492    
1493    static void L17()
1494    {register object *base=vs_base;
1495            register object *sup=base+VM17; VC17
1496            vs_check;
1497            {register object V101;
1498            object V102;
1499            if(vs_base>=vs_top){vs_top=sup;goto T580;}
1500            V101=(base[0]);
1501            vs_base++;
1502            if(vs_base>=vs_top){vs_top=sup;goto T581;}
1503            V102=(base[1]);
1504            vs_top=sup;
1505            goto T582;
1506            goto T580;
1507    T580:;
1508            base[2]= (VV[37]->s.s_dbind);
1509            vs_top=(vs_base=base+2)+1;
1510            (void) (*Lnk176)();
1511            vs_top=sup;
1512            V101= vs_base[0];
1513            goto T581;
1514    T581:;
1515            base[2]= (VV[38]->s.s_dbind);
1516            vs_top=(vs_base=base+2)+1;
1517            (void) (*Lnk176)();
1518            vs_top=sup;
1519            V102= vs_base[0];
1520            goto T582;
1521    T582:;
1522            base[2]= (VV[37]->s.s_dbind);
1523            vs_top=(vs_base=base+2)+1;
1524            (void) (*Lnk176)();
1525            vs_top=sup;
1526            V103= vs_base[0];
1527            V101= (number_compare((V101),V103)>=0?((V101)):V103);
1528            base[2]= one_plus((VV[38]->s.s_dbind));
1529            vs_top=(vs_base=base+2)+1;
1530            (void) (*Lnk176)();
1531            vs_top=sup;
1532            V104= vs_base[0];
1533            V105= one_minus(V104);
1534            V102= (number_compare((V102),/* INLINE-ARGS */V105)<=0?((V102)):/* INLINE-ARGS */V105);
1535            {register object V106;
1536            V106= (VV[37]->s.s_dbind);
1537            goto T596;
1538    T596:;
1539            if(number_compare((V106),(VV[38]->s.s_dbind))>=0){
1540            goto T598;}
1541            base[2]= (V106);
1542            vs_top=(vs_base=base+2)+1;
1543            (void) (*Lnk176)();
1544            vs_top=sup;
1545            V107= vs_base[0];
1546            if(!(number_compare(V107,(V101))>=0)){
1547            goto T597;}
1548            goto T598;
1549    T598:;
1550            {register object V108;
1551            V108= (V101);
1552            goto T605;
1553    T605:;
1554            if(!(number_compare((V108),(V102))>0)){
1555            goto T606;}
1556            vs_base=vs_top=base+2;
1557            vs_base[0]=Cnil;
1558            return;
1559            goto T606;
1560    T606:;
1561            goto T612;
1562    T612:;
1563            base[2]= (V106);
1564            vs_top=(vs_base=base+2)+1;
1565            (void) (*Lnk176)();
1566            vs_top=sup;
1567            V109= vs_base[0];
1568            if(!(number_compare(V109,(V108))>0)){
1569            goto T613;}
1570            goto T610;
1571            goto T613;
1572    T613:;
1573            if(((*(LnkLI173))((V106)))==Cnil){
1574            goto T619;}
1575            (void)((*(LnkLI177))((V106)));
1576            goto T619;
1577    T619:;
1578            V106= number_plus((V106),small_fixnum(1));
1579            goto T612;
1580            goto T610;
1581    T610:;
1582            base[2]= (VV[48]->s.s_dbind);
1583            base[3]= VV[93];
1584            base[4]= (V108);
1585            base[6]= (V108);
1586            vs_top=(vs_base=base+6)+1;
1587            (void) (*Lnk178)();
1588            vs_top=sup;
1589            base[5]= vs_base[0];
1590            vs_top=(vs_base=base+2)+4;
1591            Lformat();
1592            vs_top=sup;
1593            V108= one_plus((V108));
1594            goto T605;}
1595            goto T597;
1596    T597:;
1597            V106= one_plus((V106));
1598            goto T596;}
1599            }
1600    }
1601    /*      function definition for BREAK-LOCAL     */
1602    
1603    static void L18()
1604    {register object *base=vs_base;
1605            register object *sup=base+VM18; VC18
1606            vs_check;
1607            {object V110;
1608            if(vs_base>=vs_top){vs_top=sup;goto T639;}
1609            V110=(base[0]);
1610            vs_top=sup;
1611            goto T640;
1612            goto T639;
1613    T639:;
1614            V110= small_fixnum(0);
1615            goto T640;
1616    T640:;
1617            {object V111;
1618            base[2]= (VV[39]->s.s_dbind);
1619            vs_top=(vs_base=base+2)+1;
1620            (void) (*Lnk176)();
1621            vs_top=sup;
1622            V112= vs_base[0];
1623            V111= number_plus(V112,(V110));
1624            base[2]= (V111);
1625            base[3]= (V111);
1626            vs_top=(vs_base=base+2)+2;
1627            (void) (*Lnk179)();
1628            return;}
1629            }
1630    }
1631    /*      function definition for BREAK-BDS       */
1632    
1633    static void L19()
1634    {register object *base=vs_base;
1635            register object *sup=base+VM19; VC19
1636            vs_check;
1637            {register object V113;
1638            vs_top[0]=Cnil;
1639            {object *p=vs_top;
1640             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1641            V113=(base[0]);
1642            vs_top=sup;
1643            {register object V114;
1644            V114= (VV[40]->s.s_dbind);
1645            {register object V115;
1646            register object V116;
1647            base[1]= one_minus((VV[40]->s.s_dbind));
1648            vs_top=(vs_base=base+1)+1;
1649            (void) (*Lnk180)();
1650            vs_top=sup;
1651            V117= vs_base[0];
1652            V115= one_plus(V117);
1653            base[1]= one_plus((VV[41]->s.s_dbind));
1654            vs_top=(vs_base=base+1)+1;
1655            (void) (*Lnk180)();
1656            vs_top=sup;
1657            V116= vs_base[0];
1658            goto T654;
1659    T654:;
1660            if(!(number_compare((V115),(V116))>0)){
1661            goto T655;}
1662            vs_base=vs_top=base+1;
1663            vs_base[0]=Cnil;
1664            return;
1665            goto T655;
1666    T655:;
1667            if(((V113))==Cnil){
1668            goto T660;}
1669            base[1]= (V115);
1670            vs_top=(vs_base=base+1)+1;
1671            (void) (*Lnk181)();
1672            vs_top=sup;
1673            V119= vs_base[0];
1674            {register object x= V119,V118= (V113);
1675            while(V118!=Cnil)
1676            if(eql(x,V118->c.c_car)){
1677            goto T663;
1678            }else V118=V118->c.c_cdr;
1679            goto T659;}
1680            goto T663;
1681    T663:;
1682            goto T660;
1683    T660:;
1684            goto T668;
1685    T668:;
1686            if(number_compare((V114),(VV[41]->s.s_dbind))>0){
1687            goto T670;}
1688            base[1]= (V114);
1689            vs_top=(vs_base=base+1)+1;
1690            (void) (*Lnk180)();
1691            vs_top=sup;
1692            V120= vs_base[0];
1693            if(!(number_compare(V120,(V115))>0)){
1694            goto T669;}
1695            goto T670;
1696    T670:;
1697            goto T666;
1698            goto T669;
1699    T669:;
1700            (void)((*(LnkLI182))((V114)));
1701            V114= number_plus((V114),small_fixnum(1));
1702            goto T668;
1703            goto T666;
1704    T666:;
1705            base[1]= (VV[48]->s.s_dbind);
1706            base[2]= VV[94];
1707            base[3]= (V115);
1708            base[5]= (V115);
1709            vs_top=(vs_base=base+5)+1;
1710            (void) (*Lnk181)();
1711            vs_top=sup;
1712            base[4]= vs_base[0];
1713            base[6]= (V115);
1714            vs_top=(vs_base=base+6)+1;
1715            (void) (*Lnk183)();
1716            vs_top=sup;
1717            base[5]= vs_base[0];
1718            vs_top=(vs_base=base+1)+5;
1719            Lformat();
1720            vs_top=sup;
1721            goto T659;
1722    T659:;
1723            V115= one_plus((V115));
1724            goto T654;}}
1725            }
1726    }
1727    /*      function definition for SIMPLE-BACKTRACE        */
1728    
1729    static void L20()
1730    {register object *base=vs_base;
1731            register object *sup=base+VM20; VC20
1732            vs_check;
1733            vs_top=sup;
1734            goto TTL;
1735    TTL:;
1736            princ_str("Backtrace: ",VV[48]);
1737            {register object V121;
1738            register object V122;
1739            V121= (VV[37]->s.s_dbind);
1740            V122= Cnil;
1741            goto T696;
1742    T696:;
1743            if(!(number_compare((V121),(VV[38]->s.s_dbind))>0)){
1744            goto T697;}
1745            princ_char(10,VV[48]);
1746            vs_base=vs_top=base+0;
1747            vs_base[0]=Cnil;
1748            return;
1749            goto T697;
1750    T697:;
1751            if(((*(LnkLI173))((V121)))==Cnil){
1752            goto T702;}
1753            if(((V122))==Cnil){
1754            goto T705;}
1755            princ_str(" > ",VV[48]);
1756            goto T705;
1757    T705:;
1758            base[1]= (V121);
1759            vs_top=(vs_base=base+1)+1;
1760            (void) (*Lnk174)();
1761            vs_top=sup;
1762            base[0]= vs_base[0];
1763            base[1]= VV[95];
1764            base[2]= (VV[48]->s.s_dbind);
1765            base[3]= VV[96];
1766            base[4]= Ct;
1767            base[5]= VV[97];
1768            if(!(number_compare((V121),(VV[39]->s.s_dbind))==0)){
1769            goto T717;}
1770            base[6]= VV[59];
1771            goto T715;
1772            goto T717;
1773    T717:;
1774            base[6]= VV[98];
1775            goto T715;
1776    T715:;
1777            vs_top=(vs_base=base+0)+7;
1778            Lwrite();
1779            vs_top=sup;
1780            goto T702;
1781    T702:;
1782            V121= one_plus((V121));
1783            V122= Ct;
1784            goto T696;}
1785    }
1786    /*      function definition for IHS-BACKTRACE   */
1787    
1788    static void L21()
1789    {register object *base=vs_base;
1790            register object *sup=base+VM21; VC21
1791            vs_check;
1792            {object V123;
1793            register object V124;
1794            if(vs_base>=vs_top){vs_top=sup;goto T724;}
1795            V123=(base[0]);
1796            vs_base++;
1797            if(vs_base>=vs_top){vs_top=sup;goto T725;}
1798            V124=(base[1]);
1799            vs_top=sup;
1800            goto T726;
1801            goto T724;
1802    T724:;
1803            V123= (VV[37]->s.s_dbind);
1804            goto T725;
1805    T725:;
1806            V124= (VV[38]->s.s_dbind);
1807            goto T726;
1808    T726:;
1809            V123= (number_compare((V123),(VV[37]->s.s_dbind))>=0?((V123)):(VV[37]->s.s_dbind));
1810            V124= (number_compare((V124),(VV[38]->s.s_dbind))<=0?((V124)):(VV[38]->s.s_dbind));
1811            {register object V125;
1812            register object V126;
1813            V125= (V123);{object V127;
1814            base[3]= (VV[40]->s.s_dbind);
1815            base[4]= (V123);
1816            vs_top=(vs_base=base+3)+2;
1817            (void) (*Lnk159)();
1818            vs_top=sup;
1819            V127= vs_base[0];
1820            if(V127==Cnil)goto T735;
1821            V126= V127;
1822            goto T734;
1823            goto T735;
1824    T735:;}
1825            V126= one_plus((VV[41]->s.s_dbind));
1826            goto T734;
1827    T734:;
1828            goto T740;
1829    T740:;
1830            if(!(number_compare((V125),(V124))>0)){
1831            goto T741;}
1832            vs_base=vs_top=base+3;
1833            vs_base[0]=Cnil;
1834            return;
1835            goto T741;
1836    T741:;
1837            if(((*(LnkLI173))((V125)))==Cnil){
1838            goto T745;}
1839            (void)((*(LnkLI177))((V125)));
1840            goto T745;
1841    T745:;
1842            goto T750;
1843    T750:;
1844            if(number_compare((V126),(VV[41]->s.s_dbind))>0){
1845            goto T752;}
1846            base[3]= (V126);
1847            vs_top=(vs_base=base+3)+1;
1848            (void) (*Lnk184)();
1849            vs_top=sup;
1850            V128= vs_base[0];
1851            if(!(number_compare(V128,(V125))>0)){
1852            goto T751;}
1853            goto T752;
1854    T752:;
1855            goto T748;
1856            goto T751;
1857    T751:;
1858            (void)((*(LnkLI182))((V126)));
1859            V126= number_plus((V126),small_fixnum(1));
1860            goto T750;
1861            goto T748;
1862    T748:;
1863            V125= one_plus((V125));
1864            goto T740;}
1865            }
1866    }
1867    /*      local entry for function PRINT-IHS      */
1868    
1869    static object LI22(V130)
1870    
1871    register object V130;
1872    {        VMB22 VMS22 VMV22
1873            bds_check;
1874            goto TTL;
1875    TTL:;
1876            bds_bind(VV[56],small_fixnum(2));
1877            bds_bind(VV[57],small_fixnum(4));
1878            base[2]= Ct;
1879            base[3]= VV[99];
1880            base[4]= (number_compare((V130),(VV[39]->s.s_dbind))==0?Ct:Cnil);
1881            base[5]= (V130);
1882            {register object V131;
1883            base[7]= (V130);
1884            vs_top=(vs_base=base+7)+1;
1885            (void) (*Lnk185)();
1886            vs_top=sup;
1887            V131= vs_base[0];
1888            if(type_of((V131))==t_symbol){
1889            goto T774;}
1890            base[7]= (V131);
1891            vs_top=(vs_base=base+7)+1;
1892            Lcompiled_function_p();
1893            vs_top=sup;
1894            if((vs_base[0])==Cnil){
1895            goto T775;}
1896            goto T774;
1897    T774:;
1898            base[6]= (V131);
1899            goto T771;
1900            goto T775;
1901    T775:;
1902            if(!(type_of((V131))==t_cons)){
1903            goto T781;}
1904            {object V132= CMPcar((V131));
1905            if((V132!= VV[100]))goto T783;
1906            base[6]= (V131);
1907            goto T771;
1908            goto T783;
1909    T783:;
1910            if((V132!= VV[186])
1911            && (V132!= VV[187]))goto T784;
1912            base[6]= CMPcdr((V131));
1913            goto T771;
1914            goto T784;
1915    T784:;
1916            if((V132!= VV[117]))goto T785;
1917            base[6]= make_cons(VV[100],CMPcddddr((V131)));
1918            goto T771;
1919            goto T785;
1920    T785:;
1921            if((V132!= VV[188]))goto T786;
1922            base[6]= CMPcddddr((V131));
1923            goto T771;
1924            goto T786;
1925    T786:;
1926            if(!(type_of(CMPcar((V131)))==t_symbol)){
1927            goto T788;}
1928            base[7]= CMPcar((V131));
1929            vs_top=(vs_base=base+7)+1;
1930            Lspecial_form_p();
1931            vs_top=sup;
1932            if((vs_base[0])!=Cnil){
1933            goto T787;}
1934            base[7]= CMPcar((V131));
1935            vs_top=(vs_base=base+7)+1;
1936            Lfboundp();
1937            vs_top=sup;
1938            if((vs_base[0])==Cnil){
1939            goto T788;}
1940            goto T787;
1941    T787:;
1942            base[6]= CMPcar((V131));
1943            goto T771;
1944            goto T788;
1945    T788:;
1946            base[6]= VV[101];
1947            goto T771;}
1948            goto T781;
1949    T781:;
1950            (void)(print((V131),Cnil));
1951            base[6]= VV[102];}
1952            goto T771;
1953    T771:;
1954            base[8]= (V130);
1955            vs_top=(vs_base=base+8)+1;
1956            (void) (*Lnk176)();
1957            vs_top=sup;
1958            base[7]= vs_base[0];
1959            vs_top=(vs_base=base+2)+6;
1960            Lformat();
1961            vs_top=sup;
1962            {object V133 = vs_base[0];
1963            bds_unwind1;
1964            bds_unwind1;
1965            VMR22(V133)}
1966            base[0]=base[0];
1967            return Cnil;
1968    }
1969    /*      local entry for function PRINT-FRS      */
1970    
1971    static object LI23(V135)
1972    
1973    register object V135;
1974    {        VMB23 VMS23 VMV23
1975            goto TTL;
1976    TTL:;
1977            base[0]= (VV[48]->s.s_dbind);
1978            base[1]= VV[103];
1979            base[2]= (V135);
1980            base[3]= (*(LnkLI189))((V135));
1981            base[5]= (V135);
1982            vs_top=(vs_base=base+5)+1;
1983            (void) (*Lnk184)();
1984            vs_top=sup;
1985            base[4]= vs_base[0];
1986            base[6]= (V135);
1987            vs_top=(vs_base=base+6)+1;
1988            (void) (*Lnk190)();
1989            vs_top=sup;
1990            base[5]= vs_base[0];
1991            base[7]= (V135);
1992            vs_top=(vs_base=base+7)+1;
1993            (void) (*Lnk180)();
1994            vs_top=sup;
1995            base[6]= vs_base[0];
1996            vs_top=(vs_base=base+0)+7;
1997            Lformat();
1998            vs_top=sup;
1999            {object V136 = vs_base[0];
2000            VMR23(V136)}
2001            base[0]=base[0];
2002            return Cnil;
2003    }
2004    /*      local entry for function FRS-KIND       */
2005    
2006    static object LI24(V138)
2007    
2008    register object V138;
2009    {        VMB24 VMS24 VMV24
2010            goto TTL;
2011    TTL:;
2012            {register object V139;
2013            V139= Cnil;
2014            base[0]= (V138);
2015            vs_top=(vs_base=base+0)+1;
2016            (void) (*Lnk191)();
2017            vs_top=sup;
2018            V141= vs_base[0];
2019            {object V140= V141;
2020            if((V140!= VV[192]))goto T812;
2021            base[1]= (V138);
2022            vs_top=(vs_base=base+1)+1;
2023            (void) (*Lnk193)();
2024            vs_top=sup;
2025            base[0]= vs_base[0];
2026            vs_top=(vs_base=base+0)+1;
2027            (void) (*Lnk194)();
2028            vs_top=sup;
2029            if((vs_base[0])==Cnil){
2030            goto T814;}{object V142;
2031            base[1]= (V138);
2032            vs_top=(vs_base=base+1)+1;
2033            (void) (*Lnk193)();
2034            vs_top=sup;
2035            base[0]= vs_base[0];
2036            base[3]= (V138);
2037            vs_top=(vs_base=base+3)+1;
2038            (void) (*Lnk190)();
2039            vs_top=sup;
2040            V143= vs_base[0];
2041            base[2]= number_plus(V143,small_fixnum(2));
2042            vs_top=(vs_base=base+2)+1;
2043            (void) (*Lnk178)();
2044            vs_top=sup;
2045            base[1]= vs_base[0];
2046            base[2]= VV[104];
2047            base[3]= (VV[195]->s.s_gfdef);
2048            base[4]= VV[105];
2049            base[5]= (VV[196]->s.s_gfdef);
2050            vs_top=(vs_base=base+0)+6;
2051            Lmember();
2052            vs_top=sup;
2053            V139= vs_base[0];
2054            if(((V139))!=Cnil){
2055            goto T820;}
2056            V142= Cnil;
2057            goto T819;
2058            goto T820;
2059    T820:;
2060            if(!((CMPcadar((V139)))==(VV[90]))){
2061            goto T834;}
2062            V142= list(3,VV[90],CMPcaar((V139)),VV[6]);
2063            goto T819;
2064            goto T834;
2065    T834:;
2066            base[1]= (V138);
2067            vs_top=(vs_base=base+1)+1;
2068            (void) (*Lnk193)();
2069            vs_top=sup;
2070            V147= vs_base[0];
2071            V148= (VV[196]->s.s_gfdef);
2072            V149= (VV[195]->s.s_gfdef);
2073            V150= (VFUN_NARGS=6,(*(LnkLI197))(V147,(V139),VV[107],V148,VV[104],V149));
2074            {object V145;
2075            object V146= /* INLINE-ARGS */V150;
2076            if(V146==Cnil){
2077            V144= Cnil;
2078            goto T836;}
2079            base[0]=V145=MMcons(Cnil,Cnil);
2080            goto T837;
2081    T837:;
2082            (V145->c.c_car)= CMPcar((V146->c.c_car));
2083            if((V146=MMcdr(V146))==Cnil){
2084            V144= base[0];
2085            goto T836;}
2086            V145=MMcdr(V145)=MMcons(Cnil,Cnil);
2087            goto T837;}
2088            goto T836;
2089    T836:;
2090            V151= reverse(V144);
2091            V152= append(/* INLINE-ARGS */V151,VV[108]);
2092            V142= make_cons(VV[106],/* INLINE-ARGS */V152);
2093            goto T819;
2094    T819:;
2095            if(V142==Cnil)goto T818;
2096            {object V153 = V142;
2097            VMR24(V153)}
2098            goto T818;
2099    T818:;}
2100            base[0]= (V138);
2101            vs_top=(vs_base=base+0)+1;
2102            (void) (*Lnk193)();
2103            vs_top=sup;
2104            V154= vs_base[0];
2105            {object V155 = list(2,VV[109],V154);
2106            VMR24(V155)}
2107            goto T814;
2108    T814:;
2109            base[0]= (V138);
2110            vs_top=(vs_base=base+0)+1;
2111            (void) (*Lnk193)();
2112            vs_top=sup;
2113            V156= vs_base[0];
2114            {object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]);
2115            VMR24(V157)}
2116            goto T812;
2117    T812:;
2118            if((V140!= VV[198]))goto T847;
2119            {object V158 = VV[112];
2120            VMR24(V158)}
2121            goto T847;
2122    T847:;
2123            base[0]= (V138);
2124            vs_top=(vs_base=base+0)+1;
2125            (void) (*Lnk193)();
2126            vs_top=sup;
2127            V159= vs_base[0];
2128            {object V160 = list(2,VV[113],V159);
2129            VMR24(V160)}}}
2130            base[0]=base[0];
2131            return Cnil;
2132    }
2133    /*      function definition for BREAK-CURRENT   */
2134    
2135    static void L25()
2136    {register object *base=vs_base;
2137            register object *sup=base+VM25; VC25
2138            vs_check;
2139            vs_top=sup;
2140            goto TTL;
2141    TTL:;
2142            if(((VV[36]->s.s_dbind))==Cnil){
2143            goto T852;}
2144            base[0]= (VV[48]->s.s_dbind);
2145            base[1]= VV[114];
2146            base[3]= (VV[39]->s.s_dbind);
2147            vs_top=(vs_base=base+3)+1;
2148            (void) (*Lnk174)();
2149            vs_top=sup;
2150            base[2]= vs_base[0];
2151            vs_top=(vs_base=base+0)+3;
2152            Lformat();
2153            vs_top=sup;
2154            goto T850;
2155            goto T852;
2156    T852:;
2157            base[0]= (VV[48]->s.s_dbind);
2158            base[1]= VV[115];
2159            vs_top=(vs_base=base+0)+2;
2160            Lformat();
2161            vs_top=sup;
2162            goto T850;
2163    T850:;
2164            vs_base=vs_top=base+0;
2165            vs_base[0]=Cnil;
2166            return;
2167    }
2168    /*      local entry for function IHS-VISIBLE    */
2169    
2170    static object LI26(V162)
2171    
2172    object V162;
2173    {        VMB26 VMS26 VMV26
2174            goto TTL;
2175    TTL:;
2176            {object V163;
2177            base[1]= (V162);
2178            vs_top=(vs_base=base+1)+1;
2179            (void) (*Lnk174)();
2180            vs_top=sup;
2181            V163= vs_base[0];
2182            if((V163)==Cnil){
2183            {object V164 = Cnil;
2184            VMR26(V164)}}
2185            {register object x= (V163),V166= (VV[116]->s.s_dbind);
2186            while(V166!=Cnil)
2187            if(eql(x,V166->c.c_car)){
2188            V165= V166;
2189            goto T862;
2190            }else V166=V166->c.c_cdr;
2191            V165= Cnil;}
2192            goto T862;
2193    T862:;
2194            {object V167 = ((V165)==Cnil?Ct:Cnil);
2195            VMR26(V167)}}
2196            base[0]=base[0];
2197            return Cnil;
2198    }
2199    /*      function definition for IHS-FNAME       */
2200    
2201    static void L27()
2202    {register object *base=vs_base;
2203            register object *sup=base+VM27; VC27
2204            vs_check;
2205            {object V168;
2206            V168=(base[0]);
2207            vs_top=sup;
2208            goto TTL;
2209    TTL:;
2210            {register object V169;
2211            base[1]= (V168);
2212            vs_top=(vs_base=base+1)+1;
2213            (void) (*Lnk185)();
2214            vs_top=sup;
2215            V169= vs_base[0];
2216            if(!(type_of((V169))==t_symbol)){
2217            goto T866;}
2218            base[1]= (V169);
2219            vs_top=(vs_base=base+1)+1;
2220            return;
2221            goto T866;
2222    T866:;
2223            if(!(type_of((V169))==t_cons)){
2224            goto T869;}
2225            {object V170= CMPcar((V169));
2226            if((V170!= VV[100]))goto T871;
2227            base[1]= VV[100];
2228            vs_top=(vs_base=base+1)+1;
2229            return;
2230            goto T871;
2231    T871:;
2232            if((V170!= VV[186])
2233            && (V170!= VV[187]))goto T872;
2234            base[1]= CMPcadr((V169));
2235            vs_top=(vs_base=base+1)+1;
2236            return;
2237            goto T872;
2238    T872:;
2239            if((V170!= VV[188]))goto T873;
2240            base[1]= CMPcar(CMPcddddr((V169)));
2241            vs_top=(vs_base=base+1)+1;
2242            return;
2243            goto T873;
2244    T873:;
2245            if((V170!= VV[117]))goto T874;
2246            base[1]= VV[117];
2247            vs_top=(vs_base=base+1)+1;
2248            return;
2249            goto T874;
2250    T874:;
2251            if(!(type_of(CMPcar((V169)))==t_symbol)){
2252            goto T876;}
2253            base[1]= CMPcar((V169));
2254            vs_top=(vs_base=base+1)+1;
2255            Lspecial_form_p();
2256            vs_top=sup;
2257            if((vs_base[0])!=Cnil){
2258            goto T875;}
2259            base[1]= CMPcar((V169));
2260            vs_top=(vs_base=base+1)+1;
2261            Lfboundp();
2262            vs_top=sup;
2263            if((vs_base[0])==Cnil){
2264            goto T876;}
2265            goto T875;
2266    T875:;
2267            base[1]= CMPcar((V169));
2268            vs_top=(vs_base=base+1)+1;
2269            return;
2270            goto T876;
2271    T876:;
2272            base[1]= VV[102];
2273            vs_top=(vs_base=base+1)+1;
2274            return;}
2275            goto T869;
2276    T869:;
2277            base[1]= (V169);
2278            vs_top=(vs_base=base+1)+1;
2279            Lcompiled_function_p();
2280            vs_top=sup;
2281            if((vs_base[0])==Cnil){
2282            goto T885;}
2283            base[1]= (V169);
2284            vs_top=(vs_base=base+1)+1;
2285            (void) (*Lnk199)();
2286            return;
2287            goto T885;
2288    T885:;
2289            base[1]= VV[102];
2290            vs_top=(vs_base=base+1)+1;
2291            return;}
2292            }
2293    }
2294    /*      function definition for IHS-NOT-INTERPRETED-ENV */
2295    
2296    static void L28()
2297    {register object *base=vs_base;
2298            register object *sup=base+VM28; VC28
2299            vs_check;
2300            {object V171;
2301            V171=(base[0]);
2302            vs_top=sup;
2303            goto TTL;
2304    TTL:;
2305            {object V172;
2306            base[1]= (V171);
2307            vs_top=(vs_base=base+1)+1;
2308            (void) (*Lnk185)();
2309            vs_top=sup;
2310            V172= vs_base[0];
2311            if(!(type_of((V172))==t_cons)){
2312            goto T892;}
2313            if(!(number_compare((V171),small_fixnum(3))>0)){
2314            goto T892;}
2315            base[1]= Cnil;
2316            vs_top=(vs_base=base+1)+1;
2317            return;
2318            goto T892;
2319    T892:;
2320            base[1]= Ct;
2321            vs_top=(vs_base=base+1)+1;
2322            return;}
2323            }
2324    }
2325    /*      local entry for function SET-ENV        */
2326    
2327    static object LI29()
2328    
2329    {        VMB29 VMS29 VMV29
2330            goto TTL;
2331    TTL:;
2332            base[0]= (VV[39]->s.s_dbind);
2333            vs_top=(vs_base=base+0)+1;
2334            (void) (*Lnk200)();
2335            vs_top=sup;
2336            if((vs_base[0])==Cnil){
2337            goto T898;}
2338            (VV[42]->s.s_dbind)= Cnil;
2339            goto T896;
2340            goto T898;
2341    T898:;
2342            {object V173;
2343            base[0]= (VV[39]->s.s_dbind);
2344            vs_top=(vs_base=base+0)+1;
2345            (void) (*Lnk176)();
2346            vs_top=sup;
2347            V173= vs_base[0];
2348            base[0]= (V173);
2349            vs_top=(vs_base=base+0)+1;
2350            (void) (*Lnk178)();
2351            vs_top=sup;
2352            V174= vs_base[0];
2353            base[0]= one_plus((V173));
2354            vs_top=(vs_base=base+0)+1;
2355            (void) (*Lnk178)();
2356            vs_top=sup;
2357            V175= vs_base[0];
2358            base[0]= number_plus((V173),small_fixnum(2));
2359            vs_top=(vs_base=base+0)+1;
2360            (void) (*Lnk178)();
2361            vs_top=sup;
2362            V176= vs_base[0];
2363            (VV[42]->s.s_dbind)= list(3,V174,V175,V176);}
2364            goto T896;
2365    T896:;
2366            {object V177 = (VV[42]->s.s_dbind);
2367            VMR29(V177)}
2368            base[0]=base[0];
2369            return Cnil;
2370    }
2371    /*      local entry for function LIST-DELQ      */
2372    
2373    static object LI30(V180,V181)
2374    
2375    object V180;register object V181;
2376    {        VMB30 VMS30 VMV30
2377            goto TTL;
2378    TTL:;
2379            if(((V181))!=Cnil){
2380            goto T910;}
2381            {object V182 = Cnil;
2382            VMR30(V182)}
2383            goto T910;
2384    T910:;
2385            if(!(((V180))==(CMPcar((V181))))){
2386            goto T913;}
2387            {object V183 = CMPcdr((V181));
2388            VMR30(V183)}
2389            goto T913;
2390    T913:;
2391            V184= (*(LnkLI201))((V180),CMPcdr((V181)));
2392            ((V181))->c.c_cdr = /* INLINE-ARGS */V184;
2393            {object V185 = (V181);
2394            VMR30(V185)}
2395            return Cnil;
2396    }
2397    /*      local entry for function SUPER-GO       */
2398    
2399    static object LI31(V188,V189)
2400    
2401    register object V188;register object V189;
2402    {        VMB31 VMS31 VMV31
2403            goto TTL;
2404    TTL:;
2405            {object V190;
2406            V190= Cnil;
2407            if(!(number_compare((V188),(VV[40]->s.s_dbind))>=0)){
2408            goto T916;}
2409            if(!(number_compare((V188),(VV[41]->s.s_dbind))<=0)){
2410            goto T916;}
2411            base[1]= (V188);
2412            vs_top=(vs_base=base+1)+1;
2413            (void) (*Lnk193)();
2414            vs_top=sup;
2415            base[0]= vs_base[0];
2416            vs_top=(vs_base=base+0)+1;
2417            (void) (*Lnk194)();
2418            vs_top=sup;
2419            if((vs_base[0])==Cnil){
2420            goto T916;}
2421            base[1]= (V188);
2422            vs_top=(vs_base=base+1)+1;
2423            (void) (*Lnk193)();
2424            vs_top=sup;
2425            base[0]= vs_base[0];
2426            base[3]= (V188);
2427            vs_top=(vs_base=base+3)+1;
2428            (void) (*Lnk190)();
2429            vs_top=sup;
2430            V191= vs_base[0];
2431            base[2]= number_plus(V191,small_fixnum(2));
2432            vs_top=(vs_base=base+2)+1;
2433            (void) (*Lnk178)();
2434            vs_top=sup;
2435            base[1]= vs_base[0];
2436            base[2]= VV[104];
2437            base[3]= (VV[195]->s.s_gfdef);
2438            base[4]= VV[105];
2439            base[5]= (VV[196]->s.s_gfdef);
2440            vs_top=(vs_base=base+0)+6;
2441            Lmember();
2442            vs_top=sup;
2443            V190= vs_base[0];
2444            if(((V190))==Cnil){
2445            goto T926;}
2446            if(!((CMPcadar((V190)))==(VV[92]))){
2447            goto T916;}
2448            base[1]= (V188);
2449            vs_top=(vs_base=base+1)+1;
2450            (void) (*Lnk193)();
2451            vs_top=sup;
2452            V196= vs_base[0];
2453            V197= (VV[196]->s.s_gfdef);
2454            V198= (VV[195]->s.s_gfdef);
2455            V199= (VFUN_NARGS=6,(*(LnkLI197))(V196,(V190),VV[107],V197,VV[104],V198));
2456            {object V194;
2457            object V195= /* INLINE-ARGS */V199;
2458            if(V195==Cnil){
2459            V193= Cnil;
2460            goto T943;}
2461            base[0]=V194=MMcons(Cnil,Cnil);
2462            goto T944;
2463    T944:;
2464            (V194->c.c_car)= CMPcar((V195->c.c_car));
2465            if((V195=MMcdr(V195))==Cnil){
2466            V193= base[0];
2467            goto T943;}
2468            V194=MMcdr(V194)=MMcons(Cnil,Cnil);
2469            goto T944;}
2470            goto T943;
2471    T943:;
2472            {register object x= (V189),V192= V193;
2473            while(V192!=Cnil)
2474            if(eql(x,V192->c.c_car)){
2475            goto T942;
2476            }else V192=V192->c.c_cdr;
2477            goto T916;}
2478            goto T942;
2479    T942:;
2480            base[1]= (V188);
2481            vs_top=(vs_base=base+1)+1;
2482            (void) (*Lnk193)();
2483            vs_top=sup;
2484            base[0]= vs_base[0];
2485            base[1]= (V189);
2486            base[2]= Ct;
2487            vs_top=(vs_base=base+0)+3;
2488            (void) (*Lnk202)();
2489            vs_top=sup;
2490            goto T916;
2491            goto T926;
2492    T926:;
2493            base[1]= (V188);
2494            vs_top=(vs_base=base+1)+1;
2495            (void) (*Lnk193)();
2496            vs_top=sup;
2497            base[0]= vs_base[0];
2498            base[1]= (V189);
2499            base[2]= Cnil;
2500            vs_top=(vs_base=base+0)+3;
2501            (void) (*Lnk202)();
2502            vs_top=sup;
2503            goto T916;
2504    T916:;
2505            base[0]= (VV[48]->s.s_dbind);
2506            base[1]= VV[118];
2507            base[2]= (V188);
2508            base[3]= (V189);
2509            vs_top=(vs_base=base+0)+4;
2510            Lformat();
2511            vs_top=sup;
2512            {object V200 = vs_base[0];
2513            VMR31(V200)}}
2514            base[0]=base[0];
2515            return Cnil;
2516    }
2517    /*      local entry for function BREAK-BACKWARD-SEARCH-STACK    */
2518    
2519    static object LI32(V202)
2520    
2521    object V202;
2522    {        VMB32 VMS32 VMV32
2523            goto TTL;
2524    TTL:;
2525            {register object V203;
2526            V203= Cnil;
2527            V203= coerce_to_string((V202));
2528            {register object V204;
2529            register object V205;
2530            V204= one_minus((VV[39]->s.s_dbind));
2531            base[2]= (V204);
2532            vs_top=(vs_base=base+2)+1;
2533            (void) (*Lnk174)();
2534            vs_top=sup;
2535            V205= vs_base[0];
2536            goto T969;
2537    T969:;
2538            if(!(number_compare((V204),(VV[37]->s.s_dbind))<0)){
2539            goto T970;}
2540            base[2]= (VV[48]->s.s_dbind);
2541            base[3]= VV[119];
2542            base[4]= (V203);
2543            vs_top=(vs_base=base+2)+3;
2544            Lformat();
2545            vs_top=sup;
2546            {object V206 = vs_base[0];
2547            VMR32(V206)}
2548            goto T970;
2549    T970:;
2550            if(((*(LnkLI173))((V204)))==Cnil){
2551            goto T977;}
2552            V207= symbol_name((V205));
2553            V208= (VV[204]->s.s_gfdef);
2554            if(((VFUN_NARGS=4,(*(LnkLI203))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){
2555            goto T977;}
2556            base[2]= (V204);
2557            vs_top=(vs_base=base+2)+1;
2558            (void) (*Lnk205)();
2559            vs_top=sup;
2560            {object V209 = Cnil;
2561            VMR32(V209)}
2562            goto T977;
2563    T977:;
2564            V204= one_minus((V204));
2565            base[2]= (V204);
2566            vs_top=(vs_base=base+2)+1;
2567            (void) (*Lnk174)();
2568            vs_top=sup;
2569            V205= vs_base[0];
2570            goto T969;}}
2571            base[0]=base[0];
2572            return Cnil;
2573    }
2574    /*      local entry for function BREAK-FORWARD-SEARCH-STACK     */
2575    
2576    static object LI33(V211)
2577    
2578    object V211;
2579    {        VMB33 VMS33 VMV33
2580            goto TTL;
2581    TTL:;
2582            {register object V212;
2583            V212= Cnil;
2584            V212= coerce_to_string((V211));
2585            {register object V213;
2586            register object V214;
2587            V213= one_plus((VV[39]->s.s_dbind));
2588            base[2]= (V213);
2589            vs_top=(vs_base=base+2)+1;
2590            (void) (*Lnk174)();
2591            vs_top=sup;
2592            V214= vs_base[0];
2593            goto T998;
2594    T998:;
2595            if(!(number_compare((V213),(VV[38]->s.s_dbind))>0)){
2596            goto T999;}
2597            base[2]= (VV[48]->s.s_dbind);
2598            base[3]= VV[120];
2599            base[4]= (V212);
2600            vs_top=(vs_base=base+2)+3;
2601            Lformat();
2602            vs_top=sup;
2603            {object V215 = vs_base[0];
2604            VMR33(V215)}
2605            goto T999;
2606    T999:;
2607            if(((*(LnkLI173))((V213)))==Cnil){
2608            goto T1006;}
2609            V216= symbol_name((V214));
2610            V217= (VV[204]->s.s_gfdef);
2611            if(((VFUN_NARGS=4,(*(LnkLI203))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){
2612            goto T1006;}
2613            base[2]= (V213);
2614            vs_top=(vs_base=base+2)+1;
2615            (void) (*Lnk205)();
2616            vs_top=sup;
2617            {object V218 = Cnil;
2618            VMR33(V218)}
2619            goto T1006;
2620    T1006:;
2621            V213= one_plus((V213));
2622            base[2]= (V213);
2623            vs_top=(vs_base=base+2)+1;
2624            (void) (*Lnk174)();
2625            vs_top=sup;
2626            V214= vs_base[0];
2627            goto T998;}}
2628            base[0]=base[0];
2629            return Cnil;
2630    }
2631    /*      local entry for function BREAK-HELP     */
2632    
2633    static object LI34()
2634    
2635    {        VMB34 VMS34 VMV34
2636            goto TTL;
2637    TTL:;
2638            {object V219;
2639            object V220;
2640            V219= VV[121];
2641            V220= CMPcar((V219));
2642            goto T1024;
2643    T1024:;
2644            if(!(((V219))==Cnil)){
2645            goto T1025;}
2646            goto T1020;
2647            goto T1025;
2648    T1025:;
2649            base[1]= (VV[48]->s.s_dbind);
2650            base[2]= (V220);
2651            vs_top=(vs_base=base+1)+2;
2652            Lformat();
2653            vs_top=sup;
2654            V219= CMPcdr((V219));
2655            V220= CMPcar((V219));
2656            goto T1024;}
2657            goto T1020;
2658    T1020:;
2659            base[0]= (VV[48]->s.s_dbind);
2660            base[1]= VV[122];
2661            vs_top=(vs_base=base+0)+2;
2662            Lformat();
2663            vs_top=sup;
2664            {register object V221;
2665            register object V222;
2666            register object V223;
2667            {object V224;
2668            base[0]= VV[123];
2669            vs_top=(vs_base=base+0)+1;
2670            Lfind_package();
2671            vs_top=sup;
2672            V224= vs_base[0];
2673            base[0]= (V224);
2674            vs_top=(vs_base=base+0)+1;
2675            Lpackagep();
2676            vs_top=sup;
2677            if((vs_base[0])==Cnil){
2678            goto T1045;}
2679            V221= (V224);
2680            goto T1041;
2681            goto T1045;
2682    T1045:;
2683            base[0]= coerce_to_string((V224));
2684            vs_top=(vs_base=base+0)+1;
2685            Lfind_package();
2686            vs_top=sup;
2687            V221= vs_base[0];}
2688            goto T1041;
2689    T1041:;
2690            V222= Cnil;
2691            V223= Cnil;
2692            {object V225;
2693            register object V226;
2694            base[2]= (V221);
2695            vs_top=(vs_base=base+2)+1;
2696            Lpackage_use_list();
2697            vs_top=sup;
2698            V227= vs_base[0];
2699            V225= make_cons((V221),V227);
2700            V226= CMPcar((V225));
2701            goto T1054;
2702    T1054:;
2703            if(!(((V225))==Cnil)){
2704            goto T1055;}
2705            V222= Cnil;
2706            goto T1040;
2707            goto T1055;
2708    T1055:;
2709            {long V228;
2710            long V229;
2711            base[2]= (V226);
2712            vs_top=(vs_base=base+2)+1;
2713            (void) (*Lnk206)();
2714            if(vs_base>=vs_top){vs_top=sup;goto T1064;}
2715            V228= fix(vs_base[0]);
2716            vs_base++;
2717            if(vs_base>=vs_top){vs_top=sup;goto T1065;}
2718            V229= fix(vs_base[0]);
2719            vs_top=sup;
2720            goto T1066;
2721            goto T1064;
2722    T1064:;
2723            V228= fix(Cnil);
2724            goto T1065;
2725    T1065:;
2726            V229= fix(Cnil);
2727            goto T1066;
2728    T1066:;
2729            if(((V221))==((V226))){
2730            goto T1067;}
2731            V229= 0;
2732            goto T1067;
2733    T1067:;
2734            {object V230;
2735            register object V231;
2736            V232 = make_fixnum(V229);
2737            V233 = make_fixnum(V228);
2738            V230= number_plus(V232,V233);
2739            V231= small_fixnum(0);
2740            goto T1074;
2741    T1074:;
2742            if(!(number_compare((V231),(V230))>=0)){
2743            goto T1075;}
2744            goto T1061;
2745            goto T1075;
2746    T1075:;
2747            V234 = make_fixnum(V229);
2748            if(!(number_compare((V231),V234)<0)){
2749            goto T1084;}
2750            base[3]= (V226);
2751            base[4]= (V231);
2752            vs_top=(vs_base=base+3)+2;
2753            siLpackage_internal();
2754            vs_top=sup;
2755            V223= vs_base[0];
2756            goto T1082;
2757            goto T1084;
2758    T1084:;
2759            base[3]= (V226);
2760            V235 = make_fixnum(V229);
2761            base[4]= number_minus((V231),V235);
2762            vs_top=(vs_base=base+3)+2;
2763            siLpackage_external();
2764            vs_top=sup;
2765            V223= vs_base[0];
2766            goto T1082;
2767    T1082:;
2768            goto T1080;
2769    T1080:;
2770            if(((V223))!=Cnil){
2771            goto T1090;}
2772            goto T1081;
2773            goto T1090;
2774    T1090:;
2775            V222= CMPcar((V223));
2776            if(((V226))==((V221))){
2777            goto T1096;}
2778            base[4]= symbol_name((V222));
2779            base[5]= (V221);
2780            vs_top=(vs_base=base+4)+2;
2781            Lfind_symbol();
2782            Llist();
2783            vs_top=sup;
2784            base[3]= vs_base[0];
2785            vs_top=(vs_base=base+3)+1;
2786            Llast();
2787            vs_top=sup;
2788            V236= vs_base[0];
2789            if(!((VV[124])==(CMPcar(V236)))){
2790            goto T1095;}
2791            goto T1096;
2792    T1096:;
2793            {object V237 =((V222))->s.s_plist;
2794             object ind= VV[54];
2795            while(V237!=Cnil){
2796            if(V237->c.c_car==ind){
2797            if(((V237->c.c_cdr->c.c_car))==Cnil){
2798            goto T1105;}
2799            goto T1107;
2800            }else V237=V237->c.c_cdr->c.c_cdr;}
2801            goto T1105;}
2802            goto T1107;
2803    T1107:;
2804            base[3]= (VV[48]->s.s_dbind);
2805            base[4]= VV[125];
2806            base[5]= (V222);
2807            {object V238 =((V222))->s.s_plist;
2808             object ind= VV[54];
2809            while(V238!=Cnil){
2810            if(V238->c.c_car==ind){
2811            base[6]= (V238->c.c_cdr->c.c_car);
2812            goto T1111;
2813            }else V238=V238->c.c_cdr->c.c_cdr;}
2814            base[6]= Cnil;}
2815            goto T1111;
2816    T1111:;
2817            vs_top=(vs_base=base+3)+4;
2818            Lformat();
2819            vs_top=sup;
2820            goto T1105;
2821    T1105:;
2822            goto T1095;
2823    T1095:;
2824            V223= CMPcdr((V223));
2825            goto T1080;
2826            goto T1081;
2827    T1081:;
2828            goto T1078;
2829            goto T1078;
2830    T1078:;
2831            V231= one_plus((V231));
2832            goto T1074;}}
2833            goto T1061;
2834    T1061:;
2835            V225= CMPcdr((V225));
2836            V226= CMPcar((V225));
2837            goto T1054;}}
2838            goto T1040;
2839    T1040:;
2840            vs_base=vs_top=base+0;
2841            vs_base[0]=Cnil;
2842            vs_top=sup;
2843            {object V239 = vs_base[0];
2844            VMR34(V239)}
2845            base[0]=base[0];
2846            return Cnil;
2847    }
2848    /*      function definition for COERCE-SLASH-TERMINATED */
2849    
2850    static void L35()
2851    {register object *base=vs_base;
2852            register object *sup=base+VM35; VC35
2853            vs_check;
2854            {register object V240;
2855            V240=(base[0]);
2856            vs_top=sup;
2857            goto TTL;
2858    TTL:;
2859            if(!(type_of((V240))==t_string)){
2860            goto T1123;}
2861            goto T1122;
2862            goto T1123;
2863    T1123:;
2864            base[1]= VV[126];
2865            base[2]= (V240);
2866            vs_top=(vs_base=base+1)+2;
2867            Lerror();
2868            vs_top=sup;
2869            goto T1122;
2870    T1122:;
2871            {long V241;
2872            V241= (long)((V240))->v.v_fillp;
2873            if(!((V241)>(0))){
2874            goto T1129;}
2875            if((((V240))->ust.ust_self[(long)(V241)-(1)])==(47)){
2876            goto T1127;}
2877            goto T1129;
2878    T1129:;
2879            base[1]= Cnil;
2880            base[2]= VV[128];
2881            base[3]= (V240);
2882            vs_top=(vs_base=base+1)+3;
2883            Lformat();
2884            vs_top=sup;
2885            V240= vs_base[0];}
2886            goto T1127;
2887    T1127:;
2888            base[1]= (V240);
2889            vs_top=(vs_base=base+1)+1;
2890            return;
2891            }
2892    }
2893    /*      function definition for FIX-LOAD-PATH   */
2894    
2895    static void L36()
2896    {register object *base=vs_base;
2897            register object *sup=base+VM36; VC36
2898            vs_check;
2899            {object V242;
2900            V242=(base[0]);
2901            vs_top=sup;
2902            goto TTL;
2903    TTL:;
2904            if(equal((V242),(VV[129]->s.s_dbind))){
2905            goto T1137;}
2906            {register object V243;
2907            V243= (V242);
2908            goto T1142;
2909    T1142:;
2910            if(!(type_of((V243))!=t_cons)){
2911            goto T1143;}
2912            goto T1140;
2913            goto T1143;
2914    T1143:;
2915            {register object V245;
2916            base[2]= CMPcar((V243));
2917            vs_top=(vs_base=base+2)+1;
2918            (void) (*Lnk207)();
2919            vs_top=sup;
2920            V245= vs_base[0];
2921            (V243)->c.c_car = (V245);}
2922            V243= CMPcdr((V243));
2923            goto T1142;}
2924            goto T1140;
2925    T1140:;
2926            {register object V246;
2927            V246= (V242);
2928            goto T1155;
2929    T1155:;
2930            if(!(type_of((V246))!=t_cons)){
2931            goto T1156;}
2932            goto T1137;
2933            goto T1156;
2934    T1156:;
2935            {register object V247;
2936            V247= (V246);
2937            goto T1162;
2938    T1162:;
2939            if(!(type_of(CMPcdr((V247)))!=t_cons)){
2940            goto T1163;}
2941            goto T1160;
2942            goto T1163;
2943    T1163:;
2944            if(!(equal(CMPcadr((V247)),CMPcar((V246))))){
2945            goto T1167;}
2946            {register object V248;
2947            register object V249;
2948            V248= (V247);
2949            V249= CMPcddr((V247));
2950            ((V248))->c.c_cdr = (V249);}
2951            goto T1167;
2952    T1167:;
2953            V247= CMPcdr((V247));
2954            goto T1162;}
2955            goto T1160;
2956    T1160:;
2957            V246= CMPcdr((V246));
2958            goto T1155;}
2959            goto T1137;
2960    T1137:;
2961            (VV[129]->s.s_dbind)= (V242);
2962            base[1]= (VV[129]->s.s_dbind);
2963            vs_top=(vs_base=base+1)+1;
2964            return;
2965            }
2966    }
2967    /*      function definition for FILE-SEARCH     */
2968    
2969    static void L37()
2970    {register object *base=vs_base;
2971            register object *sup=base+VM37; VC37
2972            vs_check;
2973            bds_check;
2974            {register object V250;
2975            object V251;
2976            object V252;
2977            object V253;
2978            V250=(base[0]);
2979            vs_base=vs_base+1;
2980            if(vs_base>=vs_top){vs_top=sup;goto T1180;}
2981            V251=(base[1]);
2982            vs_base++;
2983            if(vs_base>=vs_top){vs_top=sup;goto T1181;}
2984            V252=(base[2]);
2985            vs_base++;
2986            if(vs_base>=vs_top){vs_top=sup;goto T1182;}
2987            V253=(base[3]);
2988            vs_top=sup;
2989            goto T1183;
2990            goto T1180;
2991    T1180:;
2992            V251= (VV[130]->s.s_dbind);
2993            goto T1181;
2994    T1181:;
2995            V252= (VV[131]->s.s_dbind);
2996            goto T1182;
2997    T1182:;
2998            V253= Ct;
2999            goto T1183;
3000    T1183:;
3001            {register object V254;
3002            V254= Cnil;
3003            base[4]= (V251);
3004            vs_top=(vs_base=base+4)+1;
3005            (void) (*Lnk208)();
3006            vs_top=sup;
3007            {register object V255;
3008            register object V256;
3009            V255= (V251);
3010            V256= CMPcar((V255));
3011            goto T1194;
3012    T1194:;
3013            if(!(((V255))==Cnil)){
3014            goto T1195;}
3015            goto T1190;
3016            goto T1195;
3017    T1195:;
3018            {register object V257;
3019            register object V258;
3020            V257= (V252);
3021            V258= CMPcar((V257));
3022            goto T1203;
3023    T1203:;
3024            if(!(((V257))==Cnil)){
3025            goto T1204;}
3026            goto T1199;
3027            goto T1204;
3028    T1204:;
3029            base[6]= (V256);
3030            base[7]= (V250);
3031            base[8]= (V258);
3032            vs_top=(vs_base=base+6)+3;
3033            (void) (*Lnk156)();
3034            vs_top=sup;
3035            V254= vs_base[0];
3036            if(!((file_exists((V254))))){
3037            goto T1208;}
3038            base[6]= (V254);
3039            vs_top=(vs_base=base+6)+1;
3040            return;
3041            goto T1208;
3042    T1208:;
3043            V257= CMPcdr((V257));
3044            V258= CMPcar((V257));
3045            goto T1203;}
3046            goto T1199;
3047    T1199:;
3048            V255= CMPcdr((V255));
3049            V256= CMPcar((V255));
3050            goto T1194;}
3051            goto T1190;
3052    T1190:;
3053            if(((V253))==Cnil){
3054            goto T1226;}
3055            bds_bind(VV[132],Cnil);
3056            base[5]= VV[133];
3057            base[6]= VV[134];
3058            base[7]= (V251);
3059            base[8]= (V250);
3060            base[9]= (V252);
3061            vs_top=(vs_base=base+5)+5;
3062            Lcerror();
3063            vs_top=sup;
3064            base[5]= (VV[132]->s.s_dbind);
3065            vs_top=(vs_base=base+5)+1;
3066            bds_unwind1;
3067            return;
3068            goto T1226;
3069    T1226:;
3070            base[4]= Cnil;
3071            vs_top=(vs_base=base+4)+1;
3072            return;}
3073            }
3074    }
3075    /*      function definition for ALOAD   */
3076    
3077    static void L38()
3078    {register object *base=vs_base;
3079            register object *sup=base+VM38; VC38
3080            vs_check;
3081            {object V259;
3082            V259=(base[0]);
3083            vs_top=sup;
3084            goto TTL;
3085    TTL:;
3086            base[2]= (V259);
3087            base[3]= (VV[130]->s.s_dbind);
3088            base[4]= (VV[131]->s.s_dbind);
3089            vs_top=(vs_base=base+2)+3;
3090            (void) (*Lnk209)();
3091            vs_top=sup;
3092            base[1]= vs_base[0];
3093            vs_top=(vs_base=base+1)+1;
3094            (void) (*Lnk149)();
3095            return;
3096            }
3097    }
3098    /*      function definition for AUTOLOAD        */
3099    
3100    static void L39()
3101    {register object *base=vs_base;
3102            register object *sup=base+VM39; VC39
3103            vs_check;
3104            bds_check;
3105            base[0]=MMcons(base[0],Cnil);
3106            base[1]=MMcons(base[1],base[0]);
3107            vs_top=sup;
3108            bds_bind(VV[135],Ct);
3109            base[3]= (base[0]->c.c_car);
3110            vs_top=(vs_base=base+3)+1;
3111            Lfboundp();
3112            vs_top=sup;
3113            if((vs_base[0])==Cnil){
3114            goto T1238;}
3115            base[3]= Ct;
3116            vs_top=(vs_base=base+3)+1;
3117            bds_unwind1;
3118            return;
3119            goto T1238;
3120    T1238:;
3121            base[3]= (base[0]->c.c_car);
3122            base[4]=
3123            make_cclosure_new(LC45,Cnil,base[1],Cdata);
3124            vs_top=(vs_base=base+3)+2;
3125            siLfset();
3126            bds_unwind1;
3127            return;
3128    }
3129    /*      function definition for AUTOLOAD-MACRO  */
3130    
3131    static void L40()
3132    {register object *base=vs_base;
3133            register object *sup=base+VM40; VC40
3134            vs_check;
3135            bds_check;
3136            base[0]=MMcons(base[0],Cnil);
3137            base[1]=MMcons(base[1],base[0]);
3138            vs_top=sup;
3139            bds_bind(VV[135],Ct);
3140            base[3]= (base[0]->c.c_car);
3141            vs_top=(vs_base=base+3)+1;
3142            Lfboundp();
3143            vs_top=sup;
3144            if((vs_base[0])==Cnil){
3145            goto T1243;}
3146            base[3]= Ct;
3147            vs_top=(vs_base=base+3)+1;
3148            bds_unwind1;
3149            return;
3150            goto T1243;
3151    T1243:;
3152            {object V260;
3153            object V261;
3154            V260= (base[0]->c.c_car);
3155            V261=
3156            make_cclosure_new(LC46,Cnil,base[1],Cdata);
3157            base[4]= (V260);
3158            base[5]= make_cons(VV[136],(V261));
3159            vs_top=(vs_base=base+4)+2;
3160            siLfset();
3161            vs_top=sup;
3162            base[4]= (V261);
3163            vs_top=(vs_base=base+4)+1;
3164            bds_unwind1;
3165            return;}
3166    }
3167    /*      function definition for GET-COMMAND-ARG */
3168    
3169    static void L41()
3170    {register object *base=vs_base;
3171            register object *sup=base+VM41; VC41
3172            vs_check;
3173            {register object V262;
3174            register object V263;
3175            V262=(base[0]);
3176            vs_base=vs_base+1;
3177            if(vs_base>=vs_top){vs_top=sup;goto T1251;}
3178            V263=(base[1]);
3179            vs_top=sup;
3180            goto T1252;
3181            goto T1251;
3182    T1251:;
3183            V263= Cnil;
3184            goto T1252;
3185    T1252:;
3186            {register object V264;
3187            V264= (VV[16]->s.s_dbind);
3188            goto T1256;
3189    T1256:;
3190            V264= CMPcdr((V264));
3191            if((V264)!=Cnil){
3192            goto T1260;}
3193            base[2]= Cnil;
3194            vs_top=(vs_base=base+2)+1;
3195            return;
3196            goto T1260;
3197    T1260:;
3198            {register object V265;
3199            V265= CMPcar((V264));
3200            if(!((((V265))->ust.ust_self[0])==(((V262))->ust.ust_self[0]))){
3201            goto T1257;}
3202            if(!((((V265))->ust.ust_self[1])==(((V262))->ust.ust_self[1]))){
3203            goto T1257;}
3204            if(!(equal((V265),(V262)))){
3205            goto T1257;}
3206            {register object V266;
3207            V266= (V263);
3208            if(((V266))==Cnil){
3209            goto T1269;}
3210            base[2]= (V266);
3211            vs_top=(vs_base=base+2)+1;
3212            return;
3213            goto T1269;
3214    T1269:;
3215            if((CMPcadr((V264)))==Cnil){
3216            goto T1272;}
3217            base[2]= CMPcadr((V264));
3218            base[3]= CMPcdr((V264));
3219            vs_top=(vs_base=base+2)+2;
3220            return;
3221            goto T1272;
3222    T1272:;
3223            base[2]= Ct;
3224            vs_top=(vs_base=base+2)+1;
3225            return;}}
3226            goto T1257;
3227    T1257:;
3228            goto T1256;}
3229            }
3230    }
3231    /*      function definition for SET-DIR */
3232    
3233    static void L42()
3234    {register object *base=vs_base;
3235            register object *sup=base+VM42; VC42
3236            vs_check;
3237            {object V267;
3238            object V268;
3239            V267=(base[0]);
3240            V268=(base[1]);
3241            vs_top=sup;
3242            goto TTL;
3243    TTL:;
3244            {object V269;{object V270;
3245            base[2]= (V268);
3246            vs_top=(vs_base=base+2)+1;
3247            (void) (*Lnk210)();
3248            vs_top=sup;
3249            V270= vs_base[0];
3250            if(V270==Cnil)goto T1278;
3251            V269= V270;
3252            goto T1277;
3253            goto T1278;
3254    T1278:;}
3255            if(((V267))->s.s_dbind!=OBJNULL){
3256            goto T1281;}
3257            V269= Cnil;
3258            goto T1277;
3259            goto T1281;
3260    T1281:;
3261            base[2]= (V267);
3262            vs_top=(vs_base=base+2)+1;
3263            Lsymbol_value();
3264            vs_top=sup;
3265            V269= vs_base[0];
3266            goto T1277;
3267    T1277:;
3268            if(((V269))==Cnil){
3269            goto T1285;}
3270            base[2]= (V267);
3271            base[4]= (V269);
3272            vs_top=(vs_base=base+4)+1;
3273            (void) (*Lnk207)();
3274            vs_top=sup;
3275            base[3]= vs_base[0];
3276            vs_top=(vs_base=base+2)+2;
3277            Lset();
3278            return;
3279            goto T1285;
3280    T1285:;
3281            base[2]= Cnil;
3282            vs_top=(vs_base=base+2)+1;
3283            return;}
3284            }
3285    }
3286    /*      function definition for SET-UP-TOP-LEVEL        */
3287    
3288    static void L43()
3289    {register object *base=vs_base;
3290            register object *sup=base+VM43; VC43
3291            vs_check;
3292            bds_check;
3293            vs_top=sup;
3294            goto TTL;
3295    TTL:;
3296            {register long V271;
3297            register object V272;
3298            vs_base=vs_top;
3299            (void) (*Lnk211)();
3300            vs_top=sup;
3301            V271= fix(vs_base[0]);
3302            V272= Cnil;
3303            goto T1294;
3304    T1294:;
3305            V271= (long)(V271)-(1);
3306            if(!((V271)<(0))){
3307            goto T1299;}
3308            goto T1292;
3309            goto T1299;
3310    T1299:;
3311            base[0]= make_fixnum(V271);
3312            vs_top=(vs_base=base+0)+1;
3313            (void) (*Lnk212)();
3314            vs_top=sup;
3315            V273= vs_base[0];
3316            V272= make_cons(V273,(V272));
3317            goto T1294;
3318            goto T1292;
3319    T1292:;
3320            (VV[16]->s.s_dbind)= (V272);
3321            V272= (VV[137]->s.s_dbind);
3322            {object V274;
3323            base[0]= VV[138];
3324            vs_top=(vs_base=base+0)+1;
3325            (void) (*Lnk213)();
3326            vs_top=sup;
3327            V274= vs_base[0];{object V275;
3328            base[0]= VV[137];
3329            base[1]= VV[139];
3330            vs_top=(vs_base=base+0)+2;
3331            (void) (*Lnk214)();
3332            vs_top=sup;
3333            V275= vs_base[0];
3334            if(V275==Cnil)goto T1312;
3335            goto T1311;
3336            goto T1312;
3337    T1312:;}
3338            if(((V274))==Cnil){
3339            goto T1311;}
3340            base[0]= (V274);
3341            vs_top=(vs_base=base+0)+1;
3342            (void) (*Lnk207)();
3343            vs_top=sup;
3344            (VV[137]->s.s_dbind)= vs_base[0];
3345            goto T1311;
3346    T1311:;
3347            if(((VV[130]->s.s_dbind))==Cnil){
3348            goto T1321;}
3349            if(equal((V272),(VV[137]->s.s_dbind))){
3350            goto T1320;}
3351            goto T1321;
3352    T1321:;
3353            base[0]= (VV[137]->s.s_dbind);
3354            base[1]= VV[140];
3355            vs_top=(vs_base=base+0)+2;
3356            (void) (*Lnk156)();
3357            vs_top=sup;
3358            V276= vs_base[0];
3359            (VV[130]->s.s_dbind)= make_cons(V276,(VV[130]->s.s_dbind));
3360            base[0]= (VV[137]->s.s_dbind);
3361            base[1]= VV[141];
3362            vs_top=(vs_base=base+0)+2;
3363            (void) (*Lnk156)();
3364            vs_top=sup;
3365            V277= vs_base[0];
3366            (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));
3367            goto T1320;
3368    T1320:;
3369            if((VV[142])->s.s_dbind!=OBJNULL){
3370            goto T1334;}
3371            base[2]= VV[143];
3372            base[3]= Cnil;
3373            base[4]= VV[144];
3374            base[5]= Cnil;
3375            base[6]= VV[145];
3376            base[8]= small_fixnum(0);
3377            vs_top=(vs_base=base+8)+1;
3378            (void) (*Lnk212)();
3379            vs_top=sup;
3380            base[7]= vs_base[0];
3381            vs_top=(vs_base=base+2)+6;
3382            Lmake_pathname();
3383            vs_top=sup;
3384            base[1]= vs_base[0];
3385            vs_top=(vs_base=base+1)+1;
3386            Ltruename();
3387            vs_top=sup;
3388            base[0]= vs_base[0];
3389            vs_top=(vs_base=base+0)+1;
3390            Lnamestring();
3391            vs_top=sup;
3392            (VV[142]->s.s_dbind)= vs_base[0];
3393            goto T1334;
3394    T1334:;
3395            base[0]= VV[142];
3396            base[1]= VV[146];
3397            vs_top=(vs_base=base+0)+2;
3398            (void) (*Lnk214)();
3399            vs_top=sup;
3400            base[0]= VV[147];
3401            vs_top=(vs_base=base+0)+1;
3402            (void) (*Lnk210)();
3403            if(vs_base<vs_top){
3404            V272= vs_base[0];
3405            vs_base++;
3406            }else{
3407            V272= Cnil;}
3408            if(vs_base<vs_top){
3409            V272= vs_base[0];
3410            }else{
3411            V272= Cnil;}
3412            vs_top=sup;
3413            if(((V272))==Cnil){
3414            goto T1351;}
3415            bds_bind(VV[15],Cnil);
3416            base[1]= (VV[16]->s.s_dbind);
3417            vs_top=(vs_base=base+1)+1;
3418            (void) (*Lnk150)();
3419            vs_top=sup;
3420            (VV[16]->s.s_dbind)= (V272);
3421            base[1]= CMPcar((VV[16]->s.s_dbind));
3422            vs_top=(vs_base=base+1)+1;
3423            (void) (*Lnk215)();
3424            bds_unwind1;
3425            return;
3426            goto T1351;
3427    T1351:;
3428            base[0]= Cnil;
3429            vs_top=(vs_base=base+0)+1;
3430            return;}}
3431    }
3432    /*      function definition for DO-F    */
3433    
3434    static void L44()
3435    {register object *VOL base=vs_base;
3436            register object *VOL sup=base+VM44; VC44
3437            vs_check;
3438            bds_check;
3439            {VOL object V278;
3440            V278=(base[0]);
3441            vs_top=sup;
3442            goto TTL;
3443    TTL:;
3444            base[1]= VV[148];
3445            base[2]= Cnil;
3446            bds_bind(VV[43],Cnil);
3447            frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
3448            if(nlj_active)
3449            {nlj_active=FALSE;frs_pop();
3450            vs_top=sup;
3451            goto T1360;}
3452            else{
3453            base[5]= (V278);
3454            vs_top=(vs_base=base+5)+1;
3455            (void) (*Lnk216)();
3456            vs_top=sup;
3457            base[4]= vs_base[0];
3458            frs_push(FRS_PROTECT,Cnil);
3459            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
3460            if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
3461            else{
3462            base[6]= base[4];
3463            vs_top=(vs_base=base+6)+1;
3464            Lread_line();
3465            vs_top=sup;
3466            goto T1369;
3467    T1369:;
3468            base[6]= base[4];
3469            base[7]= Cnil;
3470            base[8]= base[1];
3471            vs_top=(vs_base=base+6)+3;
3472            Lread();
3473            vs_top=sup;
3474            base[2]= vs_base[0];
3475            if(!((base[1])==(base[2]))){
3476            goto T1376;}
3477            base[6]= Cnil;
3478            vs_top=(vs_base=base+6)+1;
3479            goto T1365;
3480            goto T1376;
3481    T1376:;
3482            base[6]= base[2];
3483            vs_top=(vs_base=base+6)+1;
3484            Leval();
3485            vs_top=sup;
3486            goto T1369;
3487            goto T1365;
3488    T1365:;
3489            active=FALSE;}
3490            base[5]=Cnil;
3491            while(vs_base<vs_top)
3492            {base[5]=MMcons(vs_top[-1],base[5]);vs_top--;}
3493            vs_top=sup;
3494            nlj_active=FALSE;frs_pop();
3495            if((base[4])==Cnil){
3496            goto T1381;}
3497            base[6]= base[4];
3498            vs_top=(vs_base=base+6)+1;
3499            Lclose();
3500            vs_top=sup;
3501            goto T1381;
3502    T1381:;
3503            vs_base=vs_top=base+6;
3504            for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
3505            if(active)unwind(fr,tag);else{
3506            vs_top=sup;}}
3507            vs_base=vs_top;
3508            Lby();
3509            vs_top=sup;
3510            frs_pop();}
3511            goto T1360;
3512    T1360:;
3513            base[4]= small_fixnum(1);
3514            vs_top=(vs_base=base+4)+1;
3515            Lby();
3516            bds_unwind1;
3517            return;
3518            }
3519    }
3520    /*      local function CLOSURE  */
3521    
3522    static void LC46(base0)
3523    register object *base0;
3524    {       register object *base=vs_base;
3525            register object *sup=base+VM45; VC45
3526            vs_check;
3527            {object V279;
3528            object V280;
3529            V279=(base[0]);
3530            V280=(base[1]);
3531            vs_top=sup;
3532            base[2]= (base0[0]->c.c_car);
3533            vs_top=(vs_base=base+2)+1;
3534            (void) (*Lnk217)();
3535            vs_top=sup;
3536            base[2]= (V279);
3537            base[3]= (V280);
3538            vs_top=(vs_base=base+2)+2;
3539            super_funcall_no_event((base0[1]->c.c_car));
3540            return;
3541            }
3542    }
3543    /*      local function CLOSURE  */
3544    
3545    static void LC45(base0)
3546    register object *base0;
3547    {       register object *base=vs_base;
3548            register object *sup=base+VM46; VC46
3549            vs_check;
3550            {object V281;
3551            vs_top[0]=Cnil;
3552            {object *p=vs_top;
3553             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
3554            V281=(base[0]);
3555            vs_top=sup;
3556            base[1]= (base0[0]->c.c_car);
3557            vs_top=(vs_base=base+1)+1;
3558            (void) (*Lnk217)();
3559            vs_top=sup;
3560            base[1]= (base0[1]->c.c_car);
3561            {object V282;
3562            V282= (V281);
3563             vs_top=base+2;
3564             while(V282!=Cnil)
3565             {vs_push((V282)->c.c_car);V282=(V282)->c.c_cdr;}
3566            vs_base=base+2;}
3567            super_funcall_no_event(base[1]);
3568            return;
3569            }
3570    }
3571    static void LnkT217(){ call_or_link(VV[217],(void **)(void *)&Lnk217);} /* ALOAD */
3572    static void LnkT216(){ call_or_link(VV[216],(void **)(void *)&Lnk216);} /* OPEN */
3573    static void LnkT215(){ call_or_link(VV[215],(void **)(void *)&Lnk215);} /* DO-F */
3574    static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* SET-DIR */
3575    static void LnkT213(){ call_or_link(VV[213],(void **)(void *)&Lnk213);} /* GETENV */
3576    static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* ARGV */
3577    static void LnkT211(){ call_or_link(VV[211],(void **)(void *)&Lnk211);} /* ARGC */
3578    static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* GET-COMMAND-ARG */
3579    static void LnkT209(){ call_or_link(VV[209],(void **)(void *)&Lnk209);} /* FILE-SEARCH */
3580    static void LnkT208(){ call_or_link(VV[208],(void **)(void *)&Lnk208);} /* FIX-LOAD-PATH */
3581    static void LnkT207(){ call_or_link(VV[207],(void **)(void *)&Lnk207);} /* COERCE-SLASH-TERMINATED */
3582    static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* PACKAGE-SIZE */
3583    static void LnkT205(){ call_or_link(VV[205],(void **)(void *)&Lnk205);} /* BREAK-GO */
3584    static object  LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[203],(void **)(void *)&LnkLI203,first,ap);va_end(ap);return V1;} /* SEARCH */
3585    static void LnkT202(){ call_or_link(VV[202],(void **)(void *)&Lnk202);} /* INTERNAL-SUPER-GO */
3586    static object  LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[201],(void **)(void *)&LnkLI201,2,first,ap);va_end(ap);return V1;} /* LIST-DELQ */
3587    static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* IHS-NOT-INTERPRETED-ENV */
3588    static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* COMPILED-FUNCTION-NAME */
3589    static object  LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[197],(void **)(void *)&LnkLI197,first,ap);va_end(ap);return V1;} /* REMOVE */
3590    static void LnkT194(){ call_or_link(VV[194],(void **)(void *)&Lnk194);} /* SPICEP */
3591    static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* FRS-TAG */
3592    static void LnkT191(){ call_or_link(VV[191],(void **)(void *)&Lnk191);} /* FRS-CLASS */
3593    static void LnkT190(){ call_or_link(VV[190],(void **)(void *)&Lnk190);} /* FRS-VS */
3594    static object  LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[189],(void **)(void *)&LnkLI189,1,first,ap);va_end(ap);return V1;} /* FRS-KIND */
3595    static void LnkT185(){ call_or_link(VV[185],(void **)(void *)&Lnk185);} /* IHS-FUN */
3596    static void LnkT184(){ call_or_link(VV[184],(void **)(void *)&Lnk184);} /* FRS-IHS */
3597    static void LnkT183(){ call_or_link(VV[183],(void **)(void *)&Lnk183);} /* BDS-VAL */
3598    static object  LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* PRINT-FRS */
3599    static void LnkT181(){ call_or_link(VV[181],(void **)(void *)&Lnk181);} /* BDS-VAR */
3600    static void LnkT180(){ call_or_link(VV[180],(void **)(void *)&Lnk180);} /* FRS-BDS */
3601    static void LnkT179(){ call_or_link(VV[179],(void **)(void *)&Lnk179);} /* BREAK-VS */
3602    static void LnkT178(){ call_or_link(VV[178],(void **)(void *)&Lnk178);} /* VS */
3603    static object  LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)(void *)&LnkLI177,1,first,ap);va_end(ap);return V1;} /* PRINT-IHS */
3604    static void LnkT176(){ call_or_link(VV[176],(void **)(void *)&Lnk176);} /* IHS-VS */
3605    static void LnkT175(){ call_or_link(VV[175],(void **)(void *)&Lnk175);} /* BREAK-PREVIOUS */
3606    static void LnkT174(){ call_or_link(VV[174],(void **)(void *)&Lnk174);} /* IHS-FNAME */
3607    static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,1,first,ap);va_end(ap);return V1;} /* IHS-VISIBLE */
3608    static object  LnkTLI172(){return call_proc0(VV[172],(void **)(void *)&LnkLI172);} /* SET-ENV */
3609    static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* COMPLETE-PROP */
3610    static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* BREAK-LEVEL */
3611    static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* BREAK */
3612    static void LnkT166(){ call_or_link(VV[166],(void **)(void *)&Lnk166);} /* DBL-READ */
3613    static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* SET-BACK */
3614    static object  LnkTLI164(){return call_proc0(VV[164],(void **)(void *)&LnkLI164);} /* SET-CURRENT */
3615    static void LnkT163(){ call_or_link(VV[163],(void **)(void *)&Lnk163);} /* CATCH-FATAL */
3616    static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* BREAK-QUIT */
3617    static void LnkT161(){ call_or_link(VV[161],(void **)(void *)&Lnk161);} /* SIMPLE-BACKTRACE */
3618    static void LnkT160(){ call_or_link(VV[160],(void **)(void *)&Lnk160);} /* FRS-TOP */
3619    static void LnkT159(){ call_or_link(VV[159],(void **)(void *)&Lnk159);} /* SCH-FRS-BASE */
3620    static void LnkT158(){ call_or_link(VV[158],(void **)(void *)&Lnk158);} /* IHS-TOP */
3621    static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* MAKE-STRING-INPUT-STREAM */
3622    static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* STRING-CONCATENATE */
3623    static void LnkT155(){ call_or_link(VV[155],(void **)(void *)&Lnk155);} /* READ-FROM-STRING */
3624    static void LnkT154(){ call_or_link(VV[154],(void **)(void *)&Lnk154);} /* BREAK-CURRENT */
3625    static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* PROCESS-SOME-ARGS */
3626    static void LnkT149(){ call_or_link(VV[149],(void **)(void *)&Lnk149);} /* LOAD */
3627    
3628    #ifdef SYSTEM_SPECIAL_INIT
3629    SYSTEM_SPECIAL_INIT
3630    #endif
3631    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26