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

Diff of /gcl/lsp/gcl_info.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:05 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_info.h"
4    void init_gcl_info(){do_init(VV);}
5    /*      function definition for SHARP-U-READER  */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_check;
11            {register object V1;
12            object V2;
13            object V3;
14            V1=(base[0]);
15            V2=(base[1]);
16            V3=(base[2]);
17            vs_top=sup;
18            goto TTL;
19    TTL:;
20            {object V4;
21            base[3]= small_fixnum(10);
22            base[4]= VV[0];
23            base[5]= VV[1];
24            base[6]= VV[2];
25            base[7]= small_fixnum(0);
26            vs_top=(vs_base=base+3)+5;
27            (void) (*Lnk89)();
28            vs_top=sup;
29            V4= vs_base[0];{object V5;
30            {object V6;
31            {long V7;
32            V7= 0;
33            if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){
34            goto T15;}
35            V7= (long)getc(((V1))->sm.sm_fp);
36            if(!((V7)==(-1))){
37            goto T20;}
38            if(!((feof(((V1))->sm.sm_fp)))){
39            goto T20;}
40            V6= Cnil;
41            goto T12;
42            goto T20;
43    T20:;
44            V6= code_char((V7));
45            goto T12;
46            goto T15;
47    T15:;
48            V6= read_char1((V1),Cnil);}
49            goto T12;
50    T12:;
51            if(type_of((V6))==t_character){
52            goto T24;}
53            V5= Cnil;
54            goto T11;
55            goto T24;
56    T24:;
57            V5= (((long)(34))==((long)(char_code((V6))))?Ct:Cnil);}
58            goto T11;
59    T11:;
60            if(V5==Cnil)goto T10;
61            goto T9;
62            goto T10;
63    T10:;}
64            base[3]= VV[4];
65            vs_top=(vs_base=base+3)+1;
66            Lerror();
67            vs_top=sup;
68            goto T9;
69    T9:;
70            goto T29;
71    T29:;
72            {register object V8;
73            {register long V9;
74            V9= 0;
75            if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){
76            goto T34;}
77            V9= (long)getc(((V1))->sm.sm_fp);
78            if(!((V9)==(-1))){
79            goto T39;}
80            if(!((feof(((V1))->sm.sm_fp)))){
81            goto T39;}
82            V8= Cnil;
83            goto T31;
84            goto T39;
85    T39:;
86            V8= code_char((V9));
87            goto T31;
88            goto T34;
89    T34:;
90            V8= read_char1((V1),Cnil);}
91            goto T31;
92    T31:;
93            if(type_of(V8)==t_character){
94            goto T47;}
95            goto T45;
96            goto T47;
97    T47:;
98            if(!(((long)(34))==((long)(char_code(V8))))){
99            goto T45;}
100            goto T27;
101            goto T45;
102    T45:;
103            if(type_of(V8)==t_character){
104            goto T51;}
105            goto T43;
106            goto T51;
107    T51:;
108            if(!(((long)(92))==((long)(char_code(V8))))){
109            goto T43;}
110            {register long V12;
111            V12= 0;
112            if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){
113            goto T57;}
114            V12= (long)getc(((V1))->sm.sm_fp);
115            if(!((V12)==(-1))){
116            goto T62;}
117            if(!((feof(((V1))->sm.sm_fp)))){
118            goto T62;}
119            V8= Cnil;
120            goto T54;
121            goto T62;
122    T62:;
123            V8= code_char((V12));
124            goto T54;
125            goto T57;
126    T57:;
127            V8= read_char1((V1),Cnil);}
128            goto T54;
129    T54:;{object V13;
130            {register object x= (V8),V15= VV[6];
131            while(V15!=Cnil)
132            if(eql(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){
133            V14= (V15->c.c_car);
134            goto T69;
135            }else V15=V15->c.c_cdr;
136            V14= Cnil;}
137            goto T69;
138    T69:;
139            V13= CMPcdr(V14);
140            if(V13==Cnil)goto T67;
141            V8= V13;
142            goto T66;
143            goto T67;
144    T67:;}
145            goto T66;
146    T66:;
147            goto T43;
148    T43:;
149            {register object V17;
150            register long V18;
151            long V19;
152            V17= (V4);
153            V18= (long)(((V17))->st.st_fillp);
154            V19= (long)(((V17))->st.st_dim);
155            if(!((V18)<(V19))){
156            goto T74;}
157            (void)((((V17))->st.st_fillp)=((long)(1)+(V18)));
158            V20 = CMPmake_fixnum(V18);
159            (void)(aset1((V17),fix(V20),V8));
160            goto T30;
161            goto T74;
162    T74:;
163            base[3]= V8;
164            base[4]= (V17);
165            vs_top=(vs_base=base+3)+2;
166            (void) (*Lnk90)();
167            vs_top=sup;}}
168            goto T30;
169    T30:;
170            goto T29;
171            goto T27;
172    T27:;
173            base[3]= (V4);
174            vs_top=(vs_base=base+3)+1;
175            return;}
176            }
177    }
178    /*      function definition for FILE-TO-STRING  */
179    
180    static void L2()
181    {register object *VOL base=vs_base;
182            register object *VOL sup=base+VM2; VC2
183            vs_check;
184            bds_check;
185            {VOL object V21;
186            V21=(base[0]);
187            vs_base=vs_base+1;
188            if(vs_base>=vs_top){vs_top=sup;goto T81;}
189            vs_top=sup;
190            goto T82;
191            goto T81;
192    T81:;
193            base[1]= small_fixnum(0);
194            goto T82;
195    T82:;
196            bds_bind(VV[7],Ct);
197            base[3]= small_fixnum(0);
198            base[5]= (V21);
199            vs_top=(vs_base=base+5)+1;
200            (void) (*Lnk91)();
201            vs_top=sup;
202            base[4]= vs_base[0];
203            frs_push(FRS_PROTECT,Cnil);
204            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
205            if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
206            else{
207            base[6]= base[4];
208            vs_top=(vs_base=base+6)+1;
209            Lfile_length();
210            vs_top=sup;
211            base[3]= vs_base[0];{VOL object V22;
212            if(number_compare(small_fixnum(0),base[1])<=0){
213            goto T93;}
214            V22= Cnil;
215            goto T92;
216            goto T93;
217    T93:;
218            V22= (number_compare(base[1],base[3])<=0?Ct:Cnil);
219            goto T92;
220    T92:;
221            if(V22==Cnil)goto T91;
222            goto T90;
223            goto T91;
224    T91:;}
225            base[6]= VV[8];
226            base[7]= base[1];
227            vs_top=(vs_base=base+6)+2;
228            Lerror();
229            vs_top=sup;
230            goto T90;
231    T90:;
232            {object V23;
233            base[6]= number_minus(base[3],base[1]);
234            base[7]= VV[0];
235            base[8]= VV[1];
236            vs_top=(vs_base=base+6)+3;
237            (void) (*Lnk89)();
238            vs_top=sup;
239            V23= vs_base[0];
240            if(!(number_compare(base[1],small_fixnum(0))>0)){
241            goto T101;}
242            base[6]= base[4];
243            base[7]= base[1];
244            vs_top=(vs_base=base+6)+2;
245            Lfile_position();
246            vs_top=sup;
247            goto T101;
248    T101:;
249            base[6]= (V23);
250            base[7]= small_fixnum(0);
251            base[8]= CMPmake_fixnum((long)length((V23)));
252            base[9]= base[4];
253            vs_top=(vs_base=base+6)+4;
254            (void) (*Lnk92)();
255            vs_top=sup;
256            base[6]= (V23);
257            vs_top=(vs_base=base+6)+1;}
258            active=FALSE;}
259            base[5]=Cnil;
260            while(vs_base<vs_top)
261            {base[5]=MMcons(vs_top[-1],base[5]);vs_top--;}
262            vs_top=sup;
263            nlj_active=FALSE;frs_pop();
264            if((base[4])==Cnil){
265            goto T111;}
266            base[6]= base[4];
267            vs_top=(vs_base=base+6)+1;
268            Lclose();
269            vs_top=sup;
270            goto T111;
271    T111:;
272            vs_base=vs_top=base+6;
273            for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
274            if(active)unwind(fr,tag);else{
275            bds_unwind1;
276            return;}}
277            }
278    }
279    /*      function definition for ATOI    */
280    
281    static void L3()
282    {register object *base=vs_base;
283            register object *sup=base+VM3; VC3
284            vs_check;
285            {register object V24;
286            register long V25;
287            V24=(base[0]);
288            V25=fix(base[1]);
289            vs_top=sup;
290            goto TTL;
291    TTL:;
292            {register long V26;
293            register long V27;
294            register long V28;
295            V26= 0;
296            V27= 0;
297            V28= (long)((V24))->v.v_fillp;
298            goto T120;
299    T120:;
300            if(!((V25)<(V28))){
301            goto T123;}
302            goto T122;
303            goto T123;
304    T123:;
305            goto T121;
306            goto T122;
307    T122:;
308            V27= (long)(((V24))->ust.ust_self[V25]);
309            V25= (long)(V25)+(1);
310            V27= (long)(V27)-(48);
311            if(!((V27)>=(0))){
312            goto T133;}
313            if(!((V27)<(10))){
314            goto T133;}
315            V29 = CMPmake_fixnum(V27);
316            V30 = CMPmake_fixnum(V26);
317            V31= number_times(small_fixnum(10),V30);
318            V26= fix(number_plus(V29,/* INLINE-ARGS */V31));
319            goto T131;
320            goto T133;
321    T133:;
322            goto T118;
323            goto T131;
324    T131:;
325            goto T120;
326            goto T121;
327    T121:;
328            goto T118;
329            goto T118;
330            goto T118;
331    T118:;
332            base[2]= CMPmake_fixnum(V26);
333            vs_top=(vs_base=base+2)+1;
334            return;}
335            }
336    }
337    /*      function definition for INFO-GET-TAGS   */
338    
339    static void L4()
340    {register object *base=vs_base;
341            register object *sup=base+VM4; VC4
342            vs_check;
343            bds_check;
344            {object V32;
345            V32=(base[0]);
346            vs_top=sup;
347            goto TTL;
348    TTL:;
349            {register long V33;
350            object V34;
351            register object V35;
352            V33= 0;
353            bds_bind(VV[9],Cnil);
354            V34= Cnil;
355            V35= Cnil;
356            bds_bind(VV[10],Ct);
357            {register object V36;
358            register long V37;
359            base[3]= (V32);
360            vs_top=(vs_base=base+3)+1;
361            (void) (*Lnk93)();
362            vs_top=sup;
363            V36= vs_base[0];
364            V37= 0;
365            {long V38= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[11],(V36),small_fixnum(0))));
366            if(!((/* INLINE-ARGS */V38)>=(0))){
367            goto T145;}}
368            V37= (long)(*(LnkLI95))(0);
369            V39 = CMPmake_fixnum(V37);
370            V33= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[12],(V36),V39)));
371            goto T153;
372    T153:;
373            V40 = CMPmake_fixnum(V37);
374            V41 = CMPmake_fixnum(V33);
375            {long V42= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[13],(V36),V40,V41)));
376            if(!((/* INLINE-ARGS */V42)>=(0))){
377            goto T156;}}
378            goto T155;
379            goto T156;
380    T156:;
381            goto T154;
382            goto T155;
383    T155:;
384            V37= (long)(*(LnkLI95))(0);
385            base[3]= (V36);
386            base[4]= CMPmake_fixnum((long)(*(LnkLI96))(2));
387            vs_top=(vs_base=base+3)+2;
388            (void) (*Lnk97)();
389            vs_top=sup;
390            V43= vs_base[0];
391            base[3]= (V36);
392            base[4]= small_fixnum(1);
393            vs_top=(vs_base=base+3)+2;
394            (void) (*Lnk98)();
395            vs_top=sup;
396            V44= vs_base[0];
397            V45= make_cons(V43,V44);
398            V35= make_cons(/* INLINE-ARGS */V45,(V35));
399            goto T153;
400            goto T154;
401    T154:;
402            goto T145;
403            goto T145;
404            goto T145;
405    T145:;
406            V46 = CMPmake_fixnum(V37);
407            {long V47= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[14],(V36),V46)));
408            if(!((/* INLINE-ARGS */V47)>=(0))){
409            goto T169;}}
410            V37= (long)(*(LnkLI95))(0);
411            V48 = CMPmake_fixnum(V37);
412            {long V49= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[15],(V36),V48)));
413            if(!((/* INLINE-ARGS */V49)>=(0))){
414            goto T169;}}
415            base[3]= (V36);
416            base[4]= CMPmake_fixnum(V37);
417            base[5]= CMPmake_fixnum((long)(*(LnkLI95))(0));
418            vs_top=(vs_base=base+3)+3;
419            Lsubseq();
420            vs_top=sup;
421            V34= vs_base[0];
422            goto T169;
423    T169:;
424            if(((V35))==Cnil){
425            goto T180;}
426            if((V34)!=Cnil){
427            goto T180;}
428            base[3]= VV[16];
429            vs_top=(vs_base=base+3)+1;
430            (void) (*Lnk99)();
431            vs_top=sup;
432            goto T180;
433    T180:;
434            V50= nreverse((V35));
435            base[3]= make_cons((V34),/* INLINE-ARGS */V50);
436            vs_top=(vs_base=base+3)+1;
437            bds_unwind1;
438            bds_unwind1;
439            return;}}
440            }
441    }
442    /*      function definition for RE-QUOTE-STRING */
443    
444    static void L5()
445    {register object *base=vs_base;
446            register object *sup=base+VM5; VC5
447            vs_check;
448            {object V51;
449            V51=(base[0]);
450            vs_top=sup;
451            goto TTL;
452    TTL:;
453            {register long V52;
454            long V53;
455            object V54;
456            long V55;
457            V52= 0;
458            V53= (long)((V51))->v.v_fillp;
459            V54= Cnil;
460            V55= 0;
461            {register object V56;
462            V56= Cnil;
463            goto T190;
464    T190:;
465            goto T193;
466    T193:;
467            if(!((V52)<(V53))){
468            goto T196;}
469            goto T195;
470            goto T196;
471    T196:;
472            goto T194;
473            goto T195;
474    T195:;
475            V54= code_char(((V51))->ust.ust_self[V52]);
476            base[1]= (V54);
477            base[2]= VV[17];
478            vs_top=(vs_base=base+1)+2;
479            (void) (*Lnk100)();
480            vs_top=sup;
481            if((vs_base[0])==Cnil){
482            goto T200;}
483            if(((V56))==Cnil){
484            goto T206;}
485            {unsigned char V57;
486            register object V58;
487            register long V59;
488            long V60;
489            V57= 92;
490            V58= (V56);
491            V59= (long)(((V58))->st.st_fillp);
492            V60= (long)(((V58))->st.st_dim);
493            if(!((V59)<(V60))){
494            goto T213;}
495            (void)((((V58))->st.st_fillp)=((long)(1)+(V59)));
496            V61 = CMPmake_fixnum(V59);
497            (void)(aset1((V58),fix(V61),code_char(V57)));
498            goto T200;
499            goto T213;
500    T213:;
501            base[1]= code_char(V57);
502            base[2]= (V58);
503            vs_top=(vs_base=base+1)+2;
504            (void) (*Lnk90)();
505            vs_top=sup;
506            goto T200;}
507            goto T206;
508    T206:;
509            V55= (long)(V55)+(1);
510            goto T200;
511    T200:;
512            if(((V56))==Cnil){
513            goto T220;}
514            {register object V63;
515            register long V64;
516            long V65;
517            V63= (V56);
518            V64= (long)(((V63))->st.st_fillp);
519            V65= (long)(((V63))->st.st_dim);
520            if(!((V64)<(V65))){
521            goto T227;}
522            (void)((((V63))->st.st_fillp)=((long)(1)+(V64)));
523            V66 = CMPmake_fixnum(V64);
524            (void)(aset1((V63),fix(V66),V54));
525            goto T220;
526            goto T227;
527    T227:;
528            base[1]= V54;
529            base[2]= (V63);
530            vs_top=(vs_base=base+1)+2;
531            (void) (*Lnk90)();
532            vs_top=sup;}
533            goto T220;
534    T220:;
535            V52= (long)(V52)+(1);
536            goto T193;
537            goto T194;
538    T194:;
539            goto T191;
540            goto T191;
541            goto T191;
542    T191:;
543            {object V67;
544            V67= (V56);
545            if(((V67))==Cnil){
546            goto T238;}
547            goto T236;
548            goto T238;
549    T238:;
550            if(!((V55)>(0))){
551            goto T241;}
552            base[1]= CMPmake_fixnum((long)((long)((V51))->v.v_fillp)+(V55));
553            base[2]= VV[0];
554            base[3]= VV[1];
555            base[4]= VV[2];
556            base[5]= small_fixnum(0);
557            vs_top=(vs_base=base+1)+5;
558            (void) (*Lnk89)();
559            vs_top=sup;
560            V56= vs_base[0];
561            V52= 0;
562            goto T190;
563            goto T241;
564    T241:;
565            V56= (V51);}
566            goto T236;
567    T236:;
568            goto T188;
569            goto T188;
570    T188:;
571            base[1]= (V56);
572            vs_top=(vs_base=base+1)+1;
573            return;}}
574            }
575    }
576    /*      function definition for GET-MATCH       */
577    
578    static void L6()
579    {register object *base=vs_base;
580            register object *sup=base+VM6; VC6
581            vs_check;
582            {object V68;
583            object V69;
584            V68=(base[0]);
585            V69=(base[1]);
586            vs_top=sup;
587            goto TTL;
588    TTL:;
589            base[2]= (V68);
590            base[3]= CMPmake_fixnum((long)(*(LnkLI96))(fix((V69))));
591            base[4]= CMPmake_fixnum((long)(*(LnkLI95))(fix((V69))));
592            vs_top=(vs_base=base+2)+3;
593            Lsubseq();
594            return;
595            }
596    }
597    /*      function definition for GET-NODES       */
598    
599    static void L7()
600    {register object *base=vs_base;
601            register object *sup=base+VM7; VC7
602            vs_check;
603            bds_check;
604            {register object V70;
605            register object V71;
606            V70=(base[0]);
607            V71=(base[1]);
608            vs_top=sup;
609            goto TTL;
610    TTL:;
611            {register long V72;
612            register object V73;
613            V72= 0;
614            V73= Cnil;
615            bds_bind(VV[10],Ct);
616            bds_bind(VV[9],Cnil);
617            if(((V71))==Cnil){
618            goto T259;}
619            base[4]= VV[18];
620            base[6]= (V70);
621            vs_top=(vs_base=base+6)+1;
622            (void) (*Lnk101)();
623            vs_top=sup;
624            base[5]= vs_base[0];
625            base[6]= VV[19];
626            vs_top=(vs_base=base+4)+3;
627            (void) (*Lnk102)();
628            vs_top=sup;
629            V70= vs_base[0];
630            goto T269;
631    T269:;
632            V74 = CMPmake_fixnum(V72);
633            {long V75= fix((VFUN_NARGS=3,(*(LnkLI94))((V70),(V71),V74)));
634            if(!((/* INLINE-ARGS */V75)>=(0))){
635            goto T272;}}
636            goto T271;
637            goto T272;
638    T272:;
639            goto T270;
640            goto T271;
641    T271:;
642            V72= (long)(*(LnkLI95))(0);
643            base[4]= (V71);
644            base[5]= small_fixnum(1);
645            vs_top=(vs_base=base+4)+2;
646            (void) (*Lnk98)();
647            vs_top=sup;
648            V76= vs_base[0];
649            V73= make_cons(V76,(V73));
650            goto T269;
651            goto T270;
652    T270:;
653            goto T267;
654            goto T267;
655            goto T267;
656    T267:;
657            base[4]= nreverse((V73));
658            vs_top=(vs_base=base+4)+1;
659            bds_unwind1;
660            bds_unwind1;
661            return;
662            goto T259;
663    T259:;
664            base[4]= Cnil;
665            vs_top=(vs_base=base+4)+1;
666            bds_unwind1;
667            bds_unwind1;
668            return;}
669            }
670    }
671    /*      function definition for GET-INDEX-NODE  */
672    
673    static void L8()
674    {register object *base=vs_base;
675            register object *sup=base+VM8; VC8
676            vs_check;
677            vs_top=sup;
678            goto TTL;
679    TTL:;{object V77;
680            V77= CMPcaddr((VV[20]->s.s_dbind));
681            if(V77==Cnil)goto T282;
682            base[0]= V77;
683            vs_top=(vs_base=base+0)+1;
684            return;
685            goto T282;
686    T282:;}
687            {object V78;
688            object V79;
689            object V80;
690            V78= Cnil;
691            V79= CMPcar(CMPcadr((VV[20]->s.s_dbind)));
692            if((V79)==Cnil){
693            V80= Cnil;
694            goto T286;}
695            base[2]= VV[21];
696            base[3]= (V79);
697            vs_top=(vs_base=base+2)+2;
698            (void) (*Lnk103)();
699            vs_top=sup;
700            V81= vs_base[0];
701            V80= CMPcar(V81);
702            goto T286;
703    T286:;
704            if(((V80))==Cnil){
705            goto T291;}
706            base[2]= (V80);
707            base[3]= Cnil;
708            base[4]= Cnil;
709            vs_top=(vs_base=base+2)+3;
710            (void) (*Lnk104)();
711            vs_top=sup;
712            V78= vs_base[0];
713            {object V82;
714            V82= (VV[20]->s.s_dbind);
715            (CMPcddr((V82)))->c.c_car = V78;
716            (void)(CMPcddr((V82)));
717            base[2]= V78;
718            vs_top=(vs_base=base+2)+1;
719            return;}
720            goto T291;
721    T291:;
722            base[2]= Cnil;
723            vs_top=(vs_base=base+2)+1;
724            return;}
725    }
726    /*      function definition for NODES-FROM-INDEX        */
727    
728    static void L9()
729    {register object *base=vs_base;
730            register object *sup=base+VM9; VC9
731            vs_check;
732            bds_check;
733            {register object V84;
734            V84=(base[0]);
735            vs_top=sup;
736            goto TTL;
737    TTL:;
738            {register object V85;
739            register object V86;
740            V85= small_fixnum(0);
741            V86= Cnil;
742            bds_bind(VV[10],Ct);
743            bds_bind(VV[9],Cnil);
744            {register object V87;
745            vs_base=vs_top;
746            (void) (*Lnk105)();
747            vs_top=sup;
748            V87= vs_base[0];
749            if(((V87))==Cnil){
750            goto T304;}
751            base[3]= VV[22];
752            base[5]= (V84);
753            vs_top=(vs_base=base+5)+1;
754            (void) (*Lnk101)();
755            vs_top=sup;
756            base[4]= vs_base[0];
757            base[5]= VV[23];
758            vs_top=(vs_base=base+3)+3;
759            (void) (*Lnk102)();
760            vs_top=sup;
761            V84= vs_base[0];
762            goto T314;
763    T314:;
764            {long V88= fix((VFUN_NARGS=3,(*(LnkLI94))((V84),(V87),(V85))));
765            if(!((/* INLINE-ARGS */V88)>=(0))){
766            goto T317;}}
767            goto T316;
768            goto T317;
769    T317:;
770            goto T315;
771            goto T316;
772    T316:;
773            V85= CMPmake_fixnum((long)(*(LnkLI95))(0));
774            base[3]= (V87);
775            base[4]= small_fixnum(1);
776            vs_top=(vs_base=base+3)+2;
777            (void) (*Lnk98)();
778            vs_top=sup;
779            V89= vs_base[0];
780            base[3]= (V87);
781            base[4]= small_fixnum(2);
782            vs_top=(vs_base=base+3)+2;
783            (void) (*Lnk98)();
784            vs_top=sup;
785            V90= vs_base[0];
786            V91= make_cons(V89,V90);
787            V86= make_cons(/* INLINE-ARGS */V91,(V86));
788            goto T314;
789            goto T315;
790    T315:;
791            goto T312;
792            goto T312;
793            goto T312;
794    T312:;
795            base[3]= nreverse((V86));
796            vs_top=(vs_base=base+3)+1;
797            bds_unwind1;
798            bds_unwind1;
799            return;
800            goto T304;
801    T304:;
802            base[3]= Cnil;
803            vs_top=(vs_base=base+3)+1;
804            bds_unwind1;
805            bds_unwind1;
806            return;}}
807            }
808    }
809    /*      function definition for GET-NODE-INDEX  */
810    
811    static void L10()
812    {register object *base=vs_base;
813            register object *sup=base+VM10; VC10
814            vs_check;
815            bds_check;
816            {register object V92;
817            object V93;
818            V92=(base[0]);
819            V93=(base[1]);
820            vs_top=sup;
821            goto TTL;
822    TTL:;
823            {object V94;
824            V94= (V92);
825            bds_bind(VV[9],Cnil);
826            if(((V93))!=Cnil){
827            goto T332;}
828            base[3]= small_fixnum(0);
829            vs_top=(vs_base=base+3)+1;
830            bds_unwind1;
831            return;
832            goto T332;
833    T332:;
834            base[3]= VV[24];
835            base[5]= (V92);
836            vs_top=(vs_base=base+5)+1;
837            (void) (*Lnk101)();
838            vs_top=sup;
839            base[4]= vs_base[0];
840            base[5]= VV[25];
841            vs_top=(vs_base=base+3)+3;
842            (void) (*Lnk102)();
843            vs_top=sup;
844            V92= vs_base[0];
845            {long V95= fix((VFUN_NARGS=2,(*(LnkLI94))((V92),(V93))));
846            if(!((/* INLINE-ARGS */V95)>=(0))){
847            goto T341;}}
848            base[3]= (V93);
849            base[4]= CMPmake_fixnum((long)(*(LnkLI96))(1));
850            vs_top=(vs_base=base+3)+2;
851            (void) (*Lnk97)();
852            bds_unwind1;
853            return;
854            goto T341;
855    T341:;
856            base[3]= VV[26];
857            base[4]= (V94);
858            vs_top=(vs_base=base+3)+2;
859            (void) (*Lnk99)();
860            vs_top=sup;
861            base[3]= small_fixnum(0);
862            vs_top=(vs_base=base+3)+1;
863            bds_unwind1;
864            return;}
865            }
866    }
867    /*      function definition for ALL-MATCHES     */
868    
869    static void L11()
870    {register object *base=vs_base;
871            register object *sup=base+VM11; VC11
872            vs_check;
873            bds_check;
874            {object V96;
875            object V97;
876            V96=(base[0]);
877            V97=(base[1]);
878            vs_top=sup;
879            goto TTL;
880    TTL:;
881            {register long V98;
882            V98= 0;
883            bds_bind(VV[9],Cnil);
884            {register object V99;
885            register object V100;
886            register object V101;
887            V99= Cnil;
888            V100= Cnil;
889            V101= Cnil;
890            goto T350;
891    T350:;
892            V102 = CMPmake_fixnum(V98);
893            V98= fix((VFUN_NARGS=3,(*(LnkLI94))((V96),(V97),V102)));
894            if(!((V98)>=(0))){
895            goto T353;}
896            goto T352;
897            goto T353;
898    T353:;
899            goto T351;
900            goto T352;
901    T352:;{object V103;
902            V103= CMPmake_fixnum(V98);
903            V98= (long)(*(LnkLI95))(0);
904            V104 = CMPmake_fixnum(V98);
905            V101= list(2,V103,V104);}
906            if(((V100))==Cnil){
907            goto T361;}
908            {register object V105;
909            register object V106;
910            V105= (V100);
911            V100= make_cons((V101),Cnil);
912            V106= (V100);
913            ((V105))->c.c_cdr = (V106);
914            goto T359;}
915            goto T361;
916    T361:;
917            V100= make_cons((V101),Cnil);
918            V99= (V100);
919            goto T359;
920    T359:;
921            goto T350;
922            goto T351;
923    T351:;
924            base[3]= (V99);
925            vs_top=(vs_base=base+3)+1;
926            bds_unwind1;
927            return;
928            base[3]= Cnil;
929            vs_top=(vs_base=base+3)+1;
930            bds_unwind1;
931            return;
932            base[3]= Cnil;
933            vs_top=(vs_base=base+3)+1;
934            bds_unwind1;
935            return;}}
936            }
937    }
938    /*      macro definition for NODE       */
939    
940    static void L12()
941    {register object *base=vs_base;
942            register object *sup=base+VM12; VC12
943            vs_check;
944            vs_top=sup;
945            {object V107=base[0]->c.c_cdr;
946            base[2]= (V107->c.c_car);
947            V107=V107->c.c_cdr;
948            base[3]= (V107->c.c_car);}
949            base[4]= base[2];
950            base[5]= VV[28];
951            vs_top=(vs_base=base+4)+2;
952            (void) (*Lnk100)();
953            vs_top=sup;
954            V108= vs_base[0];
955            base[4]= list(3,VV[27],V108,base[3]);
956            vs_top=(vs_base=base+4)+1;
957            return;
958    }
959    /*      function definition for NODE-OFFSET     */
960    
961    static void L13()
962    {register object *base=vs_base;
963            register object *sup=base+VM13; VC13
964            vs_check;
965            {object V109;
966            V109=(base[0]);
967            vs_top=sup;
968            goto TTL;
969    TTL:;
970            base[1]= number_plus(CMPcar(CMPcadr(CMPcddddr((V109)))),CMPcadr((V109)));
971            vs_top=(vs_base=base+1)+1;
972            return;
973            }
974    }
975    /*      function definition for SETUP-INFO      */
976    
977    static void L14()
978    {register object *base=vs_base;
979            register object *sup=base+VM14; VC14
980            vs_check;
981            bds_check;
982            {register object V110;
983            V110=(base[0]);
984            vs_top=sup;
985            goto TTL;
986    TTL:;
987            {object V111;
988            register object V112;
989            V111= Cnil;
990            V112= Cnil;
991            if(!(((VV[29]->s.s_dbind))==((VV[30]->s.s_dbind)))){
992            goto T377;}
993            goto T376;
994            goto T377;
995    T377:;
996            (VV[29]->s.s_dbind)= (VV[30]->s.s_dbind);
997            {object V113;
998            base[2]= (VV[30]->s.s_dbind);
999            base[3]= VV[31];
1000            vs_top=(vs_base=base+2)+2;
1001            (void) (*Lnk102)();
1002            vs_top=sup;
1003            V113= vs_base[0];
1004            (VV[32]->s.s_dbind)= make_cons((V113),(VV[32]->s.s_dbind));}
1005            base[1]= (VV[32]->s.s_dbind);
1006            vs_top=(vs_base=base+1)+1;
1007            (void) (*Lnk106)();
1008            vs_top=sup;
1009            (VV[32]->s.s_dbind)= vs_base[0];
1010            goto T376;
1011    T376:;
1012            if(!(equal((V110),VV[33]))){
1013            goto T388;}
1014            V110= VV[34];
1015            goto T388;
1016    T388:;
1017            base[1]= (V110);
1018            base[2]= (VV[32]->s.s_dbind);
1019            base[3]= VV[35];
1020            base[4]= Cnil;
1021            vs_top=(vs_base=base+1)+4;
1022            (void) (*Lnk107)();
1023            vs_top=sup;
1024            V112= vs_base[0];
1025            {object V114;
1026            base[1]= VV[36];
1027            base[2]= (V112);
1028            vs_top=(vs_base=base+1)+2;
1029            (void) (*Lnk108)();
1030            vs_top=sup;
1031            V114= vs_base[0];
1032            if(((V114))==Cnil){
1033            goto T398;}
1034            base[1]= (V112);
1035            base[2]= small_fixnum(0);
1036            base[3]= (V114);
1037            vs_top=(vs_base=base+1)+3;
1038            Lsubseq();
1039            vs_top=sup;
1040            V112= vs_base[0];}
1041            goto T398;
1042    T398:;
1043            if(((V112))!=Cnil){
1044            goto T408;}
1045            if(equal((V110),VV[37])){
1046            goto T408;}
1047            {object V115;
1048            base[3]= VV[38];
1049            base[4]= Cnil;
1050            base[5]= Cnil;
1051            vs_top=(vs_base=base+3)+3;
1052            (void) (*Lnk104)();
1053            vs_top=sup;
1054            V115= vs_base[0];
1055            bds_bind(VV[10],Cnil);
1056            base[3]= VV[39];
1057            base[5]= (V110);
1058            vs_top=(vs_base=base+5)+1;
1059            (void) (*Lnk101)();
1060            vs_top=sup;
1061            base[4]= vs_base[0];
1062            base[5]= VV[40];
1063            vs_top=(vs_base=base+3)+3;
1064            (void) (*Lnk102)();
1065            vs_top=sup;
1066            V116= vs_base[0];
1067            {long V117= fix((VFUN_NARGS=2,(*(LnkLI94))(V116,(V115))));
1068            if(!((/* INLINE-ARGS */V117)>=(0))){
1069            bds_unwind1;
1070            goto T408;}}
1071            base[3]= (V115);
1072            base[4]= small_fixnum(1);
1073            vs_top=(vs_base=base+3)+2;
1074            (void) (*Lnk98)();
1075            vs_top=sup;
1076            V112= vs_base[0];
1077            bds_unwind1;}
1078            goto T408;
1079    T408:;
1080            if(((V112))==Cnil){
1081            goto T429;}
1082            {object V118;
1083            base[3]= (V112);
1084            vs_top=(vs_base=base+3)+1;
1085            Ltruename();
1086            vs_top=sup;
1087            base[2]= vs_base[0];
1088            vs_top=(vs_base=base+2)+1;
1089            Lnamestring();
1090            vs_top=sup;
1091            V118= vs_base[0];
1092            {register object x= (V118),V119= (VV[41]->s.s_dbind);
1093            while(V119!=Cnil)
1094            if(equal(x,V119->c.c_car->c.c_car) &&V119->c.c_car != Cnil){
1095            V111= (V119->c.c_car);
1096            goto T437;
1097            }else V119=V119->c.c_cdr;
1098            V111= Cnil;}
1099            goto T437;
1100    T437:;
1101            if(((V111))==Cnil){
1102            goto T435;}
1103            (VV[20]->s.s_dbind)= (V111);
1104            goto T427;
1105            goto T435;
1106    T435:;
1107            base[2]= (V118);
1108            vs_top=(vs_base=base+2)+1;
1109            (void) (*Lnk109)();
1110            vs_top=sup;
1111            V120= vs_base[0];
1112            (VV[20]->s.s_dbind)= list(3,(V118),V120,Cnil);
1113            (VV[41]->s.s_dbind)= make_cons((VV[20]->s.s_dbind),(VV[41]->s.s_dbind));
1114            goto T427;}
1115            goto T429;
1116    T429:;
1117            base[1]= Ct;
1118            base[2]= VV[42];
1119            base[3]= (V110);
1120            vs_top=(vs_base=base+1)+3;
1121            Lformat();
1122            vs_top=sup;
1123            goto T427;
1124    T427:;
1125            base[1]= Cnil;
1126            vs_top=(vs_base=base+1)+1;
1127            return;}
1128            }
1129    }
1130    /*      function definition for GET-INFO-CHOICES        */
1131    
1132    static void L15()
1133    {register object *base=vs_base;
1134            register object *sup=base+VM15; VC15
1135            vs_check;
1136            {object V121;
1137            object V122;
1138            V121=(base[0]);
1139            V122=(base[1]);
1140            vs_top=sup;
1141            goto TTL;
1142    TTL:;
1143            if(!(eql((V122),VV[43]))){
1144            goto T448;}
1145            base[2]= (V121);
1146            vs_top=(vs_base=base+2)+1;
1147            (void) (*Lnk110)();
1148            return;
1149            goto T448;
1150    T448:;
1151            base[2]= (V121);
1152            base[3]= CMPcar(CMPcadr((VV[20]->s.s_dbind)));
1153            vs_top=(vs_base=base+2)+2;
1154            (void) (*Lnk103)();
1155            return;
1156            }
1157    }
1158    /*      function definition for ADD-FILE        */
1159    
1160    static void L16()
1161    {register object *base=vs_base;
1162            register object *sup=base+VM16; VC16
1163            vs_check;
1164            {object V123;
1165            register object V124;
1166            V123=(base[0]);
1167            V124=(base[1]);
1168            vs_top=sup;
1169            goto TTL;
1170    TTL:;
1171            {register object V125;
1172            V125= (V123);
1173            goto T456;
1174    T456:;
1175            if((V125)!=Cnil){
1176            goto T458;}
1177            goto T457;
1178            goto T458;
1179    T458:;
1180            {register object V126;
1181            register object V127;
1182            V126= (V125);
1183            V127= list(2,CMPcar((V125)),(V124));
1184            ((V126))->c.c_car = (V127);}
1185            V125= CMPcdr((V125));
1186            goto T456;
1187            goto T457;
1188    T457:;
1189            goto T454;
1190            goto T454;
1191            goto T454;
1192    T454:;
1193            base[2]= (V123);
1194            vs_top=(vs_base=base+2)+1;
1195            return;}
1196            }
1197    }
1198    /*      function definition for INFO-ERROR      */
1199    
1200    static void L17()
1201    {register object *base=vs_base;
1202            register object *sup=base+VM17; VC17
1203            vs_check;
1204            {object V128;
1205            vs_top[0]=Cnil;
1206            {object *p=vs_top;
1207             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1208            V128=(base[0]);
1209            vs_top=sup;
1210            if(((VV[44]->s.s_dbind))==Cnil){
1211            goto T467;}
1212            base[2]= Cnil;
1213            {object V129;
1214            V129= (V128);
1215             vs_top=base+3;
1216             while(V129!=Cnil)
1217             {vs_push((V129)->c.c_car);V129=(V129)->c.c_cdr;}
1218            vs_base=base+2;}
1219            Lformat();
1220            vs_top=sup;
1221            base[1]= vs_base[0];
1222            vs_top=(vs_base=base+1)+1;
1223            (void) (*Lnk111)();
1224            return;
1225            goto T467;
1226    T467:;
1227            {object V130;
1228            V130= (V128);
1229             vs_top=base+1;
1230             while(V130!=Cnil)
1231             {vs_push((V130)->c.c_car);V130=(V130)->c.c_cdr;}
1232            vs_base=base+1;}
1233            Lerror();
1234            return;
1235            }
1236    }
1237    /*      function definition for INFO-GET-FILE   */
1238    
1239    static void L18()
1240    {register object *base=vs_base;
1241            register object *sup=base+VM18; VC18
1242            vs_check;
1243            {register object V131;
1244            V131=(base[0]);
1245            vs_top=sup;
1246            goto TTL;
1247    TTL:;
1248            base[1]= (V131);
1249            base[2]= CMPcar((VV[20]->s.s_dbind));
1250            vs_top=(vs_base=base+1)+2;
1251            Lmerge_pathnames();
1252            vs_top=sup;
1253            V131= vs_base[0];
1254            if(!(equal(CMPcar((VV[45]->s.s_dbind)),(V131)))){
1255            goto T479;}
1256            V132= (VV[45]->s.s_dbind);
1257            goto T477;
1258            goto T479;
1259    T479:;
1260            base[1]= (V131);
1261            vs_top=(vs_base=base+1)+1;
1262            (void) (*Lnk93)();
1263            vs_top=sup;
1264            V133= vs_base[0];
1265            (VV[45]->s.s_dbind)= make_cons((V131),V133);
1266            V132= (VV[45]->s.s_dbind);
1267            goto T477;
1268    T477:;
1269            base[1]= CMPcdr(V132);
1270            vs_top=(vs_base=base+1)+1;
1271            return;
1272            }
1273    }
1274    /*      function definition for WAITING */
1275    
1276    static void L19()
1277    {register object *base=vs_base;
1278            register object *sup=base+VM19; VC19
1279            vs_check;
1280            {object V134;
1281            V134=(base[0]);
1282            vs_top=sup;
1283            goto TTL;
1284    TTL:;
1285            if((VV[44]->s.s_dbind)==Cnil){
1286            base[1]= Cnil;
1287            vs_top=(vs_base=base+1)+1;
1288            return;}
1289            base[1]= (V134);
1290            vs_top=(vs_base=base+1)+1;
1291            Lfboundp();
1292            vs_top=sup;
1293            if((vs_base[0])!=Cnil){
1294            goto T484;}
1295            base[1]= Cnil;
1296            vs_top=(vs_base=base+1)+1;
1297            return;
1298            goto T484;
1299    T484:;
1300            base[1]= VV[46];
1301            base[2]= (V134);
1302            base[3]= VV[47];
1303            base[4]= VV[48];
1304            vs_top=(vs_base=base+1)+4;
1305            (void) (*Lnk112)();
1306            vs_top=sup;
1307            if((vs_base[0])!=Cnil){
1308            goto T487;}
1309            base[1]= Cnil;
1310            vs_top=(vs_base=base+1)+1;
1311            return;
1312            goto T487;
1313    T487:;
1314            base[1]= VV[49];
1315            base[2]= VV[50];
1316            base[3]= VV[51];
1317            vs_top=(vs_base=base+1)+3;
1318            super_funcall_no_event((V134));
1319            return;
1320            }
1321    }
1322    /*      function definition for END-WAITING     */
1323    
1324    static void L20()
1325    {register object *base=vs_base;
1326            register object *sup=base+VM20; VC20
1327            vs_check;
1328            {object V135;
1329            V135=(base[0]);
1330            vs_top=sup;
1331            goto TTL;
1332    TTL:;
1333            base[1]= (V135);
1334            vs_top=(vs_base=base+1)+1;
1335            Lfboundp();
1336            vs_top=sup;
1337            if((vs_base[0])!=Cnil){
1338            goto T496;}
1339            base[1]= Cnil;
1340            vs_top=(vs_base=base+1)+1;
1341            return;
1342            goto T496;
1343    T496:;
1344            base[1]= VV[49];
1345            base[2]= VV[50];
1346            base[3]= VV[52];
1347            vs_top=(vs_base=base+1)+3;
1348            super_funcall_no_event((V135));
1349            return;
1350            }
1351    }
1352    /*      function definition for INFO-SUBFILE    */
1353    
1354    static void L21()
1355    {register object *base=vs_base;
1356            register object *sup=base+VM21; VC21
1357            vs_check;
1358            {register object V136;
1359            V136=(base[0]);
1360            vs_top=sup;
1361            goto TTL;
1362    TTL:;
1363            {object V137;
1364            register object V138;
1365            register object V139;
1366            V137= CMPcdr(CMPcadr((VV[20]->s.s_dbind)));
1367            V138= Cnil;
1368            V139= Cnil;
1369            if((V137)==Cnil){
1370            goto T503;}
1371            if(number_compare((V136),small_fixnum(0))>=0){
1372            goto T504;}
1373            goto T503;
1374            goto T504;
1375    T504:;
1376            {register object V140;
1377            register object V141;
1378            V140= (V137);
1379            V141= CMPcar((V140));
1380            goto T509;
1381    T509:;
1382            if(!(((V140))==Cnil)){
1383            goto T510;}
1384            goto T503;
1385            goto T510;
1386    T510:;
1387            if(!(number_compare(CMPcar((V141)),(V136))>0)){
1388            goto T514;}
1389            V139= CMPcar((V141));
1390            goto T503;
1391            goto T514;
1392    T514:;
1393            V138= (V141);
1394            V140= CMPcdr((V140));
1395            V141= CMPcar((V140));
1396            goto T509;}
1397            goto T503;
1398    T503:;
1399            if((V138)!=Cnil){
1400            base[1]= (V138);
1401            goto T526;}
1402            base[1]= make_cons(small_fixnum(0),CMPcar((VV[20]->s.s_dbind)));
1403            goto T526;
1404    T526:;
1405            base[2]= (V139);
1406            vs_top=(vs_base=base+1)+2;
1407            return;}
1408            }
1409    }
1410    /*      function definition for INFO-NODE-FROM-POSITION */
1411    
1412    static void L22()
1413    {register object *base=vs_base;
1414            register object *sup=base+VM22; VC22
1415            vs_check;
1416            {object V142;
1417            V142=(base[0]);
1418            vs_top=sup;
1419            goto TTL;
1420    TTL:;
1421            {register object V143;
1422            V143= small_fixnum(0);
1423            {object V144;
1424            register object V145;
1425            register object V146;
1426            base[4]= (V142);
1427            vs_top=(vs_base=base+4)+1;
1428            (void) (*Lnk113)();
1429            vs_top=sup;
1430            V144= vs_base[0];
1431            base[4]= CMPcdr((V144));
1432            vs_top=(vs_base=base+4)+1;
1433            (void) (*Lnk114)();
1434            vs_top=sup;
1435            V145= vs_base[0];
1436            V146= number_minus((V142),CMPcar((V144)));
1437            goto T536;
1438    T536:;
1439            {long V147= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[53],(V145),(V143),(V146))));
1440            if(!((/* INLINE-ARGS */V147)>=(0))){
1441            goto T539;}}
1442            goto T538;
1443            goto T539;
1444    T539:;
1445            goto T537;
1446            goto T538;
1447    T538:;
1448            V143= CMPmake_fixnum((long)(*(LnkLI95))(0));
1449            goto T536;
1450            goto T537;
1451    T537:;
1452            goto T534;
1453            goto T534;
1454            goto T534;
1455    T534:;
1456            V143= number_minus((V143),small_fixnum(1));
1457            {long V148= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[54],(V145),(V143))));
1458            if(!((/* INLINE-ARGS */V148)>=(0))){
1459            goto T547;}}
1460            {object V149;
1461            object V150;
1462            object V151;
1463            object V152;
1464            object V153;
1465            V149= CMPmake_fixnum((long)(*(LnkLI96))(0));
1466            V150= CMPmake_fixnum((long)(*(LnkLI95))(0));
1467            base[9]= (V145);
1468            base[10]= small_fixnum(1);
1469            vs_top=(vs_base=base+9)+2;
1470            (void) (*Lnk98)();
1471            vs_top=sup;
1472            V151= vs_base[0];
1473            {long V154= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[55],(V145),(V150))));
1474            if(!((/* INLINE-ARGS */V154)>=(0))){
1475            goto T556;}}
1476            V152= CMPmake_fixnum((long)(*(LnkLI96))(0));
1477            goto T554;
1478            goto T556;
1479    T556:;
1480            V152= CMPmake_fixnum((long)length((V145)));
1481            goto T554;
1482    T554:;
1483            V153= listA(7,(V145),(V150),(V152),(V149),(V151),(V144),(VV[20]->s.s_dbind));
1484            base[9]= (V153);
1485            vs_top=(vs_base=base+9)+1;
1486            return;}
1487            goto T547;
1488    T547:;
1489            base[4]= Cnil;
1490            vs_top=(vs_base=base+4)+1;
1491            return;}}
1492            }
1493    }
1494    /*      function definition for SHOW-INFO       */
1495    
1496    static void L23()
1497    {register object *base=vs_base;
1498            register object *sup=base+VM23; VC23
1499            vs_check;
1500            bds_check;
1501            {register object V155;
1502            register object V156;
1503            object V157;
1504            V155=(base[0]);
1505            vs_base=vs_base+1;
1506            if(vs_base>=vs_top){vs_top=sup;goto T559;}
1507            V156=(base[1]);
1508            vs_base++;
1509            if(vs_base>=vs_top){vs_top=sup;goto T560;}
1510            V157=(base[2]);
1511            vs_top=sup;
1512            goto T561;
1513            goto T559;
1514    T559:;
1515            V156= Cnil;
1516            goto T560;
1517    T560:;
1518            V157= (VV[44]->s.s_dbind);
1519            goto T561;
1520    T561:;
1521            {register object V158;
1522            register object V159;
1523            register long V160;
1524            long V161;
1525            V158= Cnil;
1526            bds_bind(VV[9],Cnil);
1527            V159= Cnil;
1528            V160= 0;
1529            V161= -1;
1530            if(!(type_of((V155))==t_cons)){
1531            goto T569;}
1532            if(!(type_of(CMPcdr((V155)))==t_cons)){
1533            goto T569;}
1534            V159= CMPcadr((V155));
1535            V155= CMPcar((V155));
1536            goto T569;
1537    T569:;
1538            if(!(type_of((V155))==t_cons)){
1539            goto T568;}
1540            V156= CMPcar((V155));
1541            V155= CMPcdr((V155));
1542            goto T568;
1543    T568:;
1544            if(!(type_of((V155))==t_string)){
1545            goto T583;}
1546            goto T582;
1547            goto T583;
1548    T583:;
1549            base[4]= VV[56];
1550            vs_top=(vs_base=base+4)+1;
1551            (void) (*Lnk99)();
1552            vs_top=sup;
1553            goto T582;
1554    T582:;
1555            base[4]= (VV[57]->s.s_dbind);
1556            vs_top=(vs_base=base+4)+1;
1557            (void) (*Lnk115)();
1558            vs_top=sup;
1559            {long V162= fix((VFUN_NARGS=2,(*(LnkLI94))(VV[58],(V155))));
1560            if(!((/* INLINE-ARGS */V162)>=(0))){
1561            goto T588;}}
1562            base[4]= (V155);
1563            base[5]= small_fixnum(1);
1564            vs_top=(vs_base=base+4)+2;
1565            (void) (*Lnk98)();
1566            vs_top=sup;
1567            V159= vs_base[0];
1568            base[4]= (V155);
1569            base[5]= small_fixnum(2);
1570            vs_top=(vs_base=base+4)+2;
1571            (void) (*Lnk98)();
1572            vs_top=sup;
1573            V155= vs_base[0];
1574            if(!(equal((V155),VV[59]))){
1575            goto T588;}
1576            V155= VV[60];
1577            goto T588;
1578    T588:;
1579            if(((V159))==Cnil){
1580            goto T602;}
1581            base[4]= (V159);
1582            vs_top=(vs_base=base+4)+1;
1583            (void) (*Lnk116)();
1584            vs_top=sup;
1585            goto T602;
1586    T602:;
1587            {object V163;
1588            base[4]= (V155);
1589            base[5]= CMPcar(CMPcadr((VV[20]->s.s_dbind)));
1590            vs_top=(vs_base=base+4)+2;
1591            (void) (*Lnk117)();
1592            vs_top=sup;
1593            V163= vs_base[0];
1594            if(((V163))!=Cnil){
1595            goto T609;}
1596            base[4]= Ct;
1597            base[5]= VV[61];
1598            base[6]= (V155);
1599            vs_top=(vs_base=base+4)+3;
1600            Lformat();
1601            vs_top=sup;
1602            base[4]= Cnil;
1603            vs_top=(vs_base=base+4)+1;
1604            bds_unwind1;
1605            return;
1606            goto T609;
1607    T609:;
1608            base[4]= (V163);
1609            vs_top=(vs_base=base+4)+1;
1610            (void) (*Lnk113)();
1611            vs_top=sup;
1612            V158= vs_base[0];
1613            {register object V164;
1614            object V165;
1615            base[6]= CMPcdr((V158));
1616            vs_top=(vs_base=base+6)+1;
1617            (void) (*Lnk114)();
1618            vs_top=sup;
1619            V164= vs_base[0];
1620            V165= number_minus((V163),CMPcar((V158)));
1621            base[6]= VV[62];
1622            base[8]= (V155);
1623            vs_top=(vs_base=base+8)+1;
1624            (void) (*Lnk101)();
1625            vs_top=sup;
1626            base[7]= vs_base[0];
1627            base[8]= VV[63];
1628            vs_top=(vs_base=base+6)+3;
1629            (void) (*Lnk102)();
1630            vs_top=sup;
1631            V166= vs_base[0];
1632            {long V167= fix((VFUN_NARGS=3,(*(LnkLI94))(V166,(V164),(V165))));
1633            if(!((/* INLINE-ARGS */V167)>=(0))){
1634            goto T623;}}
1635            {object V168;
1636            register object V169;
1637            register object V170;
1638            object V171;
1639            V168= CMPmake_fixnum((long)(*(LnkLI96))(0));
1640            V169= CMPmake_fixnum((long)(*(LnkLI95))(0));
1641            {long V172= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[64],(V164),(V169))));
1642            if(!((/* INLINE-ARGS */V172)>=(0))){
1643            goto T634;}}
1644            V170= CMPmake_fixnum((long)(*(LnkLI96))(0));
1645            goto T632;
1646            goto T634;
1647    T634:;
1648            V170= CMPmake_fixnum((long)length((V164)));
1649            goto T632;
1650    T632:;
1651            V171= listA(7,(V164),(V169),(V170),(V168),(V155),(V158),(VV[20]->s.s_dbind));
1652            if(((V156))==Cnil){
1653            goto T637;}
1654            base[10]= (V156);
1655            vs_top=(vs_base=base+10)+1;
1656            (void) (*Lnk101)();
1657            vs_top=sup;
1658            V156= vs_base[0];
1659            bds_bind(VV[10],Cnil);
1660            base[11]= VV[65];
1661            base[12]= (V156);
1662            base[13]= VV[66];
1663            vs_top=(vs_base=base+11)+3;
1664            (void) (*Lnk102)();
1665            vs_top=sup;
1666            V173= vs_base[0];
1667            V161= fix((VFUN_NARGS=4,(*(LnkLI94))(V173,(V164),(V169),(V170))));
1668            if((V161)>=(0)){
1669            goto T643;}
1670            {long V174= fix((VFUN_NARGS=4,(*(LnkLI94))((V156),(V164),(V169),(V170))));
1671            if(!((/* INLINE-ARGS */V174)>=(0))){
1672            bds_unwind1;
1673            goto T637;}}
1674            goto T643;
1675    T643:;
1676            V175 = CMPmake_fixnum((long)(*(LnkLI96))(0));
1677            V160= fix(number_minus(V175,(V169)));
1678            bds_unwind1;
1679            goto T637;
1680    T637:;
1681            if(((V157))==Cnil){
1682            goto T654;}
1683            {object V176;
1684            base[10]= (V171);
1685            base[11]= CMPmake_fixnum(V160);
1686            vs_top=(vs_base=base+10)+2;
1687            (void) (*Lnk118)();
1688            vs_top=sup;
1689            V176= vs_base[0];
1690            base[10]= (VV[57]->s.s_dbind);
1691            vs_top=(vs_base=base+10)+1;
1692            (void) (*Lnk119)();
1693            vs_top=sup;
1694            base[10]= (V176);
1695            vs_top=(vs_base=base+10)+1;
1696            bds_unwind1;
1697            return;}
1698            goto T654;
1699    T654:;
1700            {object V177;
1701            if(!((V161)>=(0))){
1702            goto T663;}
1703            base[10]= (V169);
1704            base[11]= small_fixnum(1);
1705            base[12]= CMPmake_fixnum(V160);
1706            vs_top=(vs_base=base+10)+3;
1707            Lplus();
1708            vs_top=sup;
1709            V178= vs_base[0];
1710            {long V179= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[67],(V164),V178,(V170))));
1711            if(!((/* INLINE-ARGS */V179)>=(0))){
1712            goto T663;}}
1713            V177= CMPmake_fixnum((long)(*(LnkLI96))(0));
1714            goto T661;
1715            goto T663;
1716    T663:;
1717            V177= (V170);
1718            goto T661;
1719    T661:;
1720            base[10]= (V164);
1721            V180 = CMPmake_fixnum(V160);
1722            base[11]= number_plus(V180,(V169));
1723            base[12]= (V177);
1724            vs_top=(vs_base=base+10)+3;
1725            Lsubseq();
1726            bds_unwind1;
1727            return;}}
1728            goto T623;
1729    T623:;
1730            base[6]= VV[68];
1731            base[7]= (V155);
1732            vs_top=(vs_base=base+6)+2;
1733            (void) (*Lnk99)();
1734            vs_top=sup;
1735            base[6]= (VV[57]->s.s_dbind);
1736            vs_top=(vs_base=base+6)+1;
1737            (void) (*Lnk119)();
1738            bds_unwind1;
1739            return;}}}
1740            }
1741    }
1742    /*      function definition for INFO-AUX        */
1743    
1744    static void L24()
1745    {register object *base=vs_base;
1746            register object *sup=base+VM24; VC24
1747            vs_check;
1748            {object V181;
1749            object V182;
1750            V181=(base[0]);
1751            V182=(base[1]);
1752            vs_top=sup;
1753            goto TTL;
1754    TTL:;
1755            {register object V183;
1756            register object V184;
1757            V183= Cnil;
1758            V184= (V182);
1759            {object V185;
1760            register object V186;
1761            register object V187;
1762            register object V188;
1763            V185= Cnil;
1764            V186= Cnil;
1765            V187= Cnil;
1766            V188= Cnil;
1767            goto T679;
1768    T679:;
1769            if(((V184))==Cnil){
1770            goto T682;}
1771            goto T681;
1772            goto T682;
1773    T682:;
1774            goto T680;
1775            goto T681;
1776    T681:;
1777            {object V189;
1778            V189= CMPcar((V184));
1779            V183= (V189);}
1780            base[2]= (V183);
1781            vs_top=(vs_base=base+2)+1;
1782            (void) (*Lnk116)();
1783            vs_top=sup;
1784            base[4]= (V181);
1785            base[5]= VV[69];
1786            vs_top=(vs_base=base+4)+2;
1787            (void) (*Lnk120)();
1788            vs_top=sup;
1789            base[3]= vs_base[0];
1790            base[4]= (V183);
1791            vs_top=(vs_base=base+3)+2;
1792            (void) (*Lnk121)();
1793            vs_top=sup;
1794            base[2]= vs_base[0];
1795            vs_top=(vs_base=base+2)+1;
1796            Lcopy_list();
1797            vs_top=sup;
1798            V187= vs_base[0];
1799            if(((V186))==Cnil){
1800            goto T698;}
1801            {register object V191;
1802            V191= (V187);
1803            (V186)->c.c_cdr = (V191);
1804            if(((V191))!=Cnil){
1805            goto T700;}}
1806            goto T696;
1807            goto T700;
1808    T700:;
1809            base[2]= CMPcdr((V186));
1810            vs_top=(vs_base=base+2)+1;
1811            Llast();
1812            vs_top=sup;
1813            V186= vs_base[0];
1814            goto T696;
1815            goto T698;
1816    T698:;
1817            V185= (V187);
1818            base[2]= (V185);
1819            vs_top=(vs_base=base+2)+1;
1820            Llast();
1821            vs_top=sup;
1822            V186= vs_base[0];
1823            goto T696;
1824    T696:;
1825            base[4]= (V181);
1826            base[5]= VV[43];
1827            vs_top=(vs_base=base+4)+2;
1828            (void) (*Lnk120)();
1829            vs_top=sup;
1830            base[3]= vs_base[0];
1831            base[4]= (V183);
1832            vs_top=(vs_base=base+3)+2;
1833            (void) (*Lnk121)();
1834            vs_top=sup;
1835            base[2]= vs_base[0];
1836            vs_top=(vs_base=base+2)+1;
1837            Lcopy_list();
1838            vs_top=sup;
1839            V188= vs_base[0];
1840            if(((V186))==Cnil){
1841            goto T718;}
1842            {register object V193;
1843            V193= (V188);
1844            (V186)->c.c_cdr = (V193);
1845            if(((V193))!=Cnil){
1846            goto T720;}}
1847            goto T716;
1848            goto T720;
1849    T720:;
1850            base[2]= CMPcdr((V186));
1851            vs_top=(vs_base=base+2)+1;
1852            Llast();
1853            vs_top=sup;
1854            V186= vs_base[0];
1855            goto T716;
1856            goto T718;
1857    T718:;
1858            V185= (V188);
1859            base[2]= (V185);
1860            vs_top=(vs_base=base+2)+1;
1861            Llast();
1862            vs_top=sup;
1863            V186= vs_base[0];
1864            goto T716;
1865    T716:;
1866            V184= CMPcdr((V184));
1867            goto T679;
1868            goto T680;
1869    T680:;
1870            base[2]= (V185);
1871            vs_top=(vs_base=base+2)+1;
1872            return;
1873            base[2]= Cnil;
1874            vs_top=(vs_base=base+2)+1;
1875            return;
1876            base[2]= Cnil;
1877            vs_top=(vs_base=base+2)+1;
1878            return;}}
1879            }
1880    }
1881    /*      function definition for INFO-SEARCH     */
1882    
1883    static void L25()
1884    {register object *base=vs_base;
1885            register object *sup=base+VM25; VC25
1886            vs_check;
1887            {object V194;
1888            register object V195;
1889            register object V196;
1890            V194=(base[0]);
1891            vs_base=vs_base+1;
1892            if(vs_base>=vs_top){vs_top=sup;goto T733;}
1893            V195=(base[1]);
1894            vs_base++;
1895            if(vs_base>=vs_top){vs_top=sup;goto T734;}
1896            V196=(base[2]);
1897            vs_top=sup;
1898            goto T735;
1899            goto T733;
1900    T733:;
1901            V195= Cnil;
1902            goto T734;
1903    T734:;
1904            V196= Cnil;
1905            goto T735;
1906    T735:;
1907            {register object V197;
1908            V197= Cnil;
1909            if((V195)!=Cnil){
1910            goto T739;}
1911            V195= small_fixnum(0);
1912            goto T739;
1913    T739:;
1914            goto T743;
1915    T743:;
1916            if((V195)!=Cnil){
1917            goto T745;}
1918            goto T744;
1919            goto T745;
1920    T745:;
1921            {register object V198;
1922            register object V199;
1923            base[3]= (V195);
1924            vs_top=(vs_base=base+3)+1;
1925            (void) (*Lnk113)();
1926            if(vs_base>=vs_top){vs_top=sup;goto T749;}
1927            V198= vs_base[0];
1928            vs_base++;
1929            if(vs_base>=vs_top){vs_top=sup;goto T750;}
1930            V199= vs_base[0];
1931            vs_top=sup;
1932            goto T751;
1933            goto T749;
1934    T749:;
1935            V198= Cnil;
1936            goto T750;
1937    T750:;
1938            V199= Cnil;
1939            goto T751;
1940    T751:;
1941            V197= (V199);
1942            if((V196)==Cnil){
1943            goto T754;}
1944            if((V197)==Cnil){
1945            goto T754;}
1946            if(number_compare((V196),(V197))<0){
1947            goto T755;}
1948            goto T754;
1949            goto T755;
1950    T755:;
1951            V197= (V196);
1952            goto T754;
1953    T754:;
1954            {register object V200;
1955            register object V201;
1956            object V202;
1957            object V203;
1958            base[7]= CMPcdr((V198));
1959            vs_top=(vs_base=base+7)+1;
1960            (void) (*Lnk114)();
1961            vs_top=sup;
1962            V200= vs_base[0];
1963            V201= CMPcar((V198));
1964            V202= number_minus((V195),(V201));
1965            V203= CMPmake_fixnum((long)length((V200)));
1966            if(((V197))==Cnil){
1967            goto T768;}
1968            V204= number_minus((V197),(V201));
1969            goto T766;
1970            goto T768;
1971    T768:;
1972            V204= (V203);
1973            goto T766;
1974    T766:;
1975            {long V205= fix((VFUN_NARGS=4,(*(LnkLI94))((V194),(V200),(V202),V204)));
1976            if(!((/* INLINE-ARGS */V205)>=(0))){
1977            goto T758;}}
1978            V206 = CMPmake_fixnum((long)(*(LnkLI96))(0));
1979            base[7]= number_plus((V201),V206);
1980            vs_top=(vs_base=base+7)+1;
1981            return;}
1982            goto T758;
1983    T758:;
1984            V195= (V199);}
1985            goto T743;
1986            goto T744;
1987    T744:;
1988            goto T741;
1989            goto T741;
1990            goto T741;
1991    T741:;
1992            base[3]= small_fixnum(-1);
1993            vs_top=(vs_base=base+3)+1;
1994            return;}
1995            }
1996    }
1997    /*      function definition for IDESCRIBE       */
1998    
1999    static void L26()
2000    {register object *base=vs_base;
2001            register object *sup=base+VM26; VC26
2002            vs_check;
2003            {register object V207;
2004            V207=(base[0]);
2005            vs_top=sup;
2006            goto TTL;
2007    TTL:;
2008            {object V208;
2009            base[2]= (V207);
2010            base[3]= (VV[70]->s.s_dbind);
2011            vs_top=(vs_base=base+2)+2;
2012            (void) (*Lnk122)();
2013            vs_top=sup;
2014            V208= vs_base[0];
2015            {register object V209;
2016            register object V210;
2017            V209= (V208);
2018            V210= CMPcar((V209));
2019            goto T778;
2020    T778:;
2021            if(!(((V209))==Cnil)){
2022            goto T779;}
2023            base[3]= Cnil;
2024            vs_top=(vs_base=base+3)+1;
2025            return;
2026            goto T779;
2027    T779:;
2028            if(!(type_of(CMPcar((V210)))==t_cons)){
2029            goto T787;}
2030            if(!(equalp(CMPcaar((V210)),(V207)))){
2031            goto T783;}
2032            goto T785;
2033            goto T787;
2034    T787:;
2035            if(!(equalp(CMPcar((V210)),(V207)))){
2036            goto T783;}
2037            goto T785;
2038    T785:;
2039            base[3]= Ct;
2040            base[4]= VV[71];
2041            base[5]= (V210);
2042            vs_top=(vs_base=base+3)+3;
2043            Lformat();
2044            vs_top=sup;
2045            base[3]= (V210);
2046            base[4]= Cnil;
2047            base[5]= Cnil;
2048            vs_top=(vs_base=base+3)+3;
2049            (void) (*Lnk104)();
2050            vs_top=sup;
2051            V211= vs_base[0];
2052            (void)(princ(V211,Cnil));
2053            goto T783;
2054    T783:;
2055            V209= CMPcdr((V209));
2056            V210= CMPcar((V209));
2057            goto T778;}}
2058            }
2059    }
2060    /*      function definition for INFO    */
2061    
2062    static void L27()
2063    {register object *base=vs_base;
2064            register object *sup=base+VM27; VC27
2065            vs_check;
2066            bds_check;
2067            {object V212;
2068            object V213;
2069            V212=(base[0]);
2070            vs_base=vs_base+1;
2071            if(vs_base>=vs_top){vs_top=sup;goto T802;}
2072            V213=(base[1]);
2073            vs_top=sup;
2074            goto T803;
2075            goto T802;
2076    T802:;
2077            V213= (VV[70]->s.s_dbind);
2078            goto T803;
2079    T803:;
2080            {object V214;
2081            register object V215;
2082            object V216;
2083            V214= Cnil;
2084            bds_bind(VV[20],Cnil);
2085            V215= Cnil;
2086            V216= Cnil;
2087            {object V217;
2088            base[3]= (V212);
2089            base[4]= (V213);
2090            vs_top=(vs_base=base+3)+2;
2091            (void) (*Lnk122)();
2092            vs_top=sup;
2093            V217= vs_base[0];
2094            if(((VV[44]->s.s_dbind))==Cnil){
2095            goto T812;}
2096            base[3]= (V217);
2097            base[4]= (V213);
2098            vs_top=(vs_base=base+3)+2;
2099            (void) (*Lnk123)();
2100            bds_unwind1;
2101            return;
2102            goto T812;
2103    T812:;
2104            if(((V217))==Cnil){
2105            goto T817;}
2106            base[3]= CMPmake_fixnum((long)length((V217)));
2107            base[3]=MMcons(base[3],Cnil);
2108            {register long V218;
2109            V218= 0;
2110            {register object V219;
2111            register object V220;
2112            V219= Cnil;
2113            V220= (V217);
2114            {object V221;
2115            V221= Cnil;
2116            goto T823;
2117    T823:;
2118            if(((V220))==Cnil){
2119            goto T826;}
2120            goto T825;
2121            goto T826;
2122    T826:;
2123            goto T824;
2124            goto T825;
2125    T825:;
2126            {object V222;
2127            V222= CMPcar((V220));
2128            V219= (V222);}
2129            V215= Cnil;
2130            V216= Cnil;
2131            if(!(type_of((V219))==t_cons)){
2132            goto T836;}
2133            if(!(type_of(CMPcdr((V219)))==t_cons)){
2134            goto T836;}
2135            V215= CMPcadr((V219));
2136            V219= CMPcar((V219));
2137            goto T836;
2138    T836:;
2139            if(!(type_of((V219))==t_cons)){
2140            goto T835;}
2141            V216= CMPcar((V219));
2142            V219= CMPcdr((V219));
2143            goto T835;
2144    T835:;
2145            base[4]= Ct;
2146            base[5]= VV[72];
2147            base[6]= CMPmake_fixnum(V218);
2148            base[7]= (V216);
2149            if(!(((V215))==((V221)))){
2150            goto T856;}
2151            base[8]= Cnil;
2152            goto T854;
2153            goto T856;
2154    T856:;
2155            V221= (V215);
2156            base[8]= (V221);
2157            goto T854;
2158    T854:;
2159            base[9]= (V219);
2160            vs_top=(vs_base=base+4)+6;
2161            Lformat();
2162            vs_top=sup;
2163            if(!((V218)<(2147483646))){
2164            goto T861;}
2165            goto T860;
2166            goto T861;
2167    T861:;
2168            vs_base=vs_top;
2169            (void) (*Lnk124)();
2170            vs_top=sup;
2171            goto T860;
2172    T860:;
2173            V218= (long)(V218)+(1);
2174            V220= CMPcdr((V220));
2175            goto T823;
2176            goto T824;
2177    T824:;
2178            goto T820;
2179            goto T820;}}}
2180            goto T820;
2181    T820:;
2182            if(!(((long)length((V217)))>(1))){
2183            goto T870;}
2184            base[4]= Ct;
2185            base[5]= VV[74];
2186            vs_top=(vs_base=base+4)+2;
2187            Lformat();
2188            vs_top=sup;
2189            goto T868;
2190            goto T870;
2191    T870:;
2192            princ_char(10,Cnil);
2193            goto T868;
2194    T868:;
2195            {object V223;
2196            object V224;
2197            register object V225;
2198            if(!(((long)length((V217)))>(1))){
2199            goto T876;}
2200            vs_base=vs_top;
2201            Lread_line();
2202            vs_top=sup;
2203            V223= vs_base[0];
2204            goto T874;
2205            goto T876;
2206    T876:;
2207            V223= VV[75];
2208            goto T874;
2209    T874:;
2210            V224= small_fixnum(0);
2211            V225= Cnil;
2212            goto T880;
2213    T880:;
2214            if(!(equal((V223),VV[76]))){
2215            goto T883;}
2216            goto T882;
2217            goto T883;
2218    T883:;
2219            goto T881;
2220            goto T882;
2221    T882:;
2222            vs_base=vs_top;
2223            Lread_line();
2224            vs_top=sup;
2225            V223= vs_base[0];
2226            goto T880;
2227            goto T881;
2228    T881:;
2229            goto T878;
2230            goto T878;
2231            goto T878;
2232    T878:;
2233            goto T890;
2234    T890:;{object V226;
2235            base[4]= (V223);
2236            base[5]= Cnil;
2237            base[6]= Cnil;
2238            base[7]= VV[77];
2239            base[8]= (V224);
2240            vs_top=(vs_base=base+4)+5;
2241            (void) (*Lnk125)();
2242            if(vs_base<vs_top){
2243            V225= vs_base[0];
2244            vs_base++;
2245            }else{
2246            V225= Cnil;}
2247            if(vs_base<vs_top){
2248            V224= vs_base[0];
2249            }else{
2250            V224= Cnil;}
2251            vs_top=sup;
2252            V226= (V225);
2253            if(V226==Cnil)goto T893;
2254            goto T892;
2255            goto T893;
2256    T893:;}
2257            goto T891;
2258            goto T892;
2259    T892:;
2260            if(!(type_of((V225))==t_fixnum||
2261    type_of((V225))==t_bignum||
2262    type_of((V225))==t_ratio||
2263    type_of((V225))==t_shortfloat||
2264    type_of((V225))==t_longfloat||
2265    type_of((V225))==t_complex)){
2266            goto T903;}
2267            V214= make_cons((V225),(V214));
2268            goto T901;
2269            goto T903;
2270    T903:;
2271            V214= (V225);
2272            goto T888;
2273            goto T901;
2274    T901:;
2275            goto T890;
2276            goto T891;
2277    T891:;
2278            goto T888;
2279            goto T888;
2280            goto T888;
2281    T888:;
2282            if(!(type_of((V214))==t_cons)){
2283            goto T911;}
2284            V214= nreverse((V214));
2285            goto T909;
2286            goto T911;
2287    T911:;
2288            if(!(type_of((V214))==t_symbol)){
2289            goto T909;}
2290            V227= symbol_name((V214));
2291            if(equal(/* INLINE-ARGS */V227,VV[78])){
2292            goto T917;}
2293            V214= Cnil;
2294            goto T916;
2295            goto T917;
2296    T917:;
2297            {register long V228;
2298            long V229;
2299            V228= 0;
2300            {object V230;
2301            V230= CMPmake_fixnum((long)length((V217)));{object V231;
2302            V231= (type_of((V230))==t_fixnum?Ct:Cnil);
2303            if(V231==Cnil)goto T923;
2304            goto T922;
2305            goto T923;
2306    T923:;}
2307            vs_base=vs_top;
2308            (void) (*Lnk124)();
2309            vs_top=sup;
2310            goto T922;
2311    T922:;
2312            V229= fix((V230));}
2313            {object V232;
2314            register object V233;
2315            V232= Cnil;
2316            V233= Cnil;
2317            goto T926;
2318    T926:;
2319            if((V228)>=(V229)){
2320            goto T929;}
2321            goto T928;
2322            goto T929;
2323    T929:;
2324            goto T927;
2325            goto T928;
2326    T928:;
2327            if(((V233))==Cnil){
2328            goto T933;}
2329            {object V234;
2330            object V235;
2331            V234= (V233);
2332            V236 = CMPmake_fixnum(V228);
2333            V233= make_cons(V236,Cnil);
2334            V235= (V233);
2335            ((V234))->c.c_cdr = (V235);
2336            goto T931;}
2337            goto T933;
2338    T933:;
2339            V237 = CMPmake_fixnum(V228);
2340            V233= make_cons(V237,Cnil);
2341            V232= (V233);
2342            goto T931;
2343    T931:;
2344            V228= (long)(V228)+(1);
2345            goto T926;
2346            goto T927;
2347    T927:;
2348            V214= (V232);
2349            goto T916;
2350            V214= Cnil;
2351            goto T916;
2352            V214= Cnil;
2353            goto T916;}}
2354            goto T916;
2355    T916:;
2356            goto T909;
2357    T909:;
2358            if(((V214))==Cnil){
2359            goto T945;}
2360            base[4]=
2361            make_cclosure_new(LC31,Cnil,base[3],Cdata);
2362            base[5]= (V214);
2363            vs_top=(vs_base=base+4)+2;
2364            (void) (*Lnk126)();
2365            vs_top=sup;
2366            V214= vs_base[0];
2367            base[4]= Ct;
2368            base[5]= VV[79];
2369            base[6]= CMPcar((VV[20]->s.s_dbind));
2370            vs_top=(vs_base=base+4)+3;
2371            Lformat();
2372            vs_top=sup;
2373            goto T945;
2374    T945:;
2375            {object V238;
2376            register object V239;
2377            V238= Cnil;
2378            V239= (V214);
2379            goto T956;
2380    T956:;
2381            if(((V239))==Cnil){
2382            goto T959;}
2383            goto T958;
2384            goto T959;
2385    T959:;
2386            goto T957;
2387            goto T958;
2388    T958:;
2389            {object V240;
2390            V240= CMPcar((V239));
2391            V238= (V240);}
2392            base[4]= nth(fix((V238)),(V217));
2393            vs_top=(vs_base=base+4)+1;
2394            (void) (*Lnk104)();
2395            vs_top=sup;
2396            V241= vs_base[0];
2397            (void)(princ(V241,Cnil));
2398            V239= CMPcdr((V239));
2399            goto T956;
2400            goto T957;
2401    T957:;
2402            base[4]= Cnil;
2403            vs_top=(vs_base=base+4)+1;
2404            bds_unwind1;
2405            return;
2406            base[4]= Cnil;
2407            vs_top=(vs_base=base+4)+1;
2408            bds_unwind1;
2409            return;}}
2410            goto T817;
2411    T817:;
2412            base[3]= Cnil;
2413            vs_top=(vs_base=base+3)+1;
2414            bds_unwind1;
2415            return;}}
2416            }
2417    }
2418    /*      function definition for DEFAULT-INFO-HOTLIST    */
2419    
2420    static void L28()
2421    {register object *base=vs_base;
2422            register object *sup=base+VM28; VC28
2423            vs_check;
2424            vs_top=sup;
2425            goto TTL;
2426    TTL:;
2427            base[1]= VV[80];
2428            vs_base=vs_top;
2429            (void) (*Lnk127)();
2430            vs_top=sup;
2431            base[2]= vs_base[0];
2432            vs_top=(vs_base=base+1)+2;
2433            Lmerge_pathnames();
2434            vs_top=sup;
2435            base[0]= vs_base[0];
2436            vs_top=(vs_base=base+0)+1;
2437            Lnamestring();
2438            return;
2439    }
2440    /*      function definition for ADD-TO-HOTLIST  */
2441    
2442    static void L29()
2443    {register object *VOL base=vs_base;
2444            register object *VOL sup=base+VM29; VC29
2445            vs_check;
2446            vs_top=sup;
2447            goto TTL;
2448    TTL:;
2449            if(!(type_of(base[0])==t_symbol)){
2450            goto T973;}
2451            {object V242 =(base[0])->s.s_plist;
2452             object ind= VV[69];
2453            while(V242!=Cnil){
2454            if(V242->c.c_car==ind){
2455            base[0]= (V242->c.c_cdr->c.c_car);
2456            goto T976;
2457            }else V242=V242->c.c_cdr->c.c_cdr;}
2458            base[0]= Cnil;}
2459            goto T976;
2460    T976:;
2461            goto T973;
2462    T973:;
2463            if((base[0])==Cnil){
2464            goto T978;}
2465            vs_base=vs_top;
2466            (void) (*Lnk128)();
2467            vs_top=sup;
2468            base[2]= vs_base[0];
2469            base[3]= VV[81];
2470            base[4]= VV[82];
2471            base[5]= VV[83];
2472            base[6]= VV[84];
2473            base[7]= VV[85];
2474            base[8]= VV[86];
2475            vs_top=(vs_base=base+2)+7;
2476            (void) (*Lnk91)();
2477            vs_top=sup;
2478            base[1]= vs_base[0];
2479            frs_push(FRS_PROTECT,Cnil);
2480            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
2481            if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
2482            else{
2483            base[3]= base[1];
2484            vs_top=(vs_base=base+3)+1;
2485            Lfile_position();
2486            vs_top=sup;
2487            V243= vs_base[0];
2488            if(!(number_compare(V243,small_fixnum(10))<0)){
2489            goto T989;}
2490            (void)(princ(VV[87],base[1]));
2491            goto T989;
2492    T989:;
2493            base[3]= base[1];
2494            base[4]= VV[88];
2495            base[5]= CMPcaddr(CMPcddddr(base[0]));
2496            base[6]= CMPcar(CMPcddddr(base[0]));
2497            vs_top=(vs_base=base+3)+4;
2498            Lformat();
2499            active=FALSE;}
2500            base[2]=Cnil;
2501            while(vs_base<vs_top)
2502            {base[2]=MMcons(vs_top[-1],base[2]);vs_top--;}
2503            vs_top=sup;
2504            nlj_active=FALSE;frs_pop();
2505            if((base[1])==Cnil){
2506            goto T998;}
2507            base[3]= base[1];
2508            vs_top=(vs_base=base+3)+1;
2509            Lclose();
2510            vs_top=sup;
2511            goto T998;
2512    T998:;
2513            vs_base=vs_top=base+3;
2514            for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
2515            if(active)unwind(fr,tag);else{
2516            return;}}
2517            goto T978;
2518    T978:;
2519            base[1]= Cnil;
2520            vs_top=(vs_base=base+1)+1;
2521            return;
2522    }
2523    /*      function definition for LIST-MATCHES    */
2524    
2525    static void L30()
2526    {register object *base=vs_base;
2527            register object *sup=base+VM30; VC30
2528            vs_check;
2529            {object V244;
2530            object V245;
2531            V244=(base[0]);
2532            vs_base=vs_base+1;
2533            vs_top[0]=Cnil;
2534            {object *p=vs_top;
2535             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
2536            V245=(base[1]);
2537            vs_top=sup;
2538            {register object V246;
2539            register object V247;
2540            V246= Cnil;
2541            V247= (V245);
2542            {object V248;
2543            register object V249;
2544            register object V250;
2545            V248= Cnil;
2546            V249= Cnil;
2547            V250= Cnil;
2548            goto T1003;
2549    T1003:;
2550            if(((V247))==Cnil){
2551            goto T1006;}
2552            goto T1005;
2553            goto T1006;
2554    T1006:;
2555            goto T1004;
2556            goto T1005;
2557    T1005:;
2558            {register object V251;
2559            V251= CMPcar((V247));
2560            V246= (V251);}
2561            {long V252= (long)(*(LnkLI96))(fix((V246)));
2562            if((/* INLINE-ARGS */V252)>=(0)){
2563            goto T1013;}}
2564            V250= Cnil;
2565            goto T1012;
2566            goto T1013;
2567    T1013:;
2568            base[2]= (V244);
2569            base[3]= (V246);
2570            vs_top=(vs_base=base+2)+2;
2571            (void) (*Lnk98)();
2572            vs_top=sup;
2573            V250= vs_base[0];
2574            goto T1012;
2575    T1012:;
2576            if(((V249))==Cnil){
2577            goto T1019;}
2578            {register object V253;
2579            register object V254;
2580            V253= (V249);
2581            V249= make_cons((V250),Cnil);
2582            V254= (V249);
2583            ((V253))->c.c_cdr = (V254);
2584            goto T1017;}
2585            goto T1019;
2586    T1019:;
2587            V249= make_cons((V250),Cnil);
2588            V248= (V249);
2589            goto T1017;
2590    T1017:;
2591            V247= CMPcdr((V247));
2592            goto T1003;
2593            goto T1004;
2594    T1004:;
2595            base[2]= (V248);
2596            vs_top=(vs_base=base+2)+1;
2597            return;
2598            base[2]= Cnil;
2599            vs_top=(vs_base=base+2)+1;
2600            return;
2601            base[2]= Cnil;
2602            vs_top=(vs_base=base+2)+1;
2603            return;}}
2604            }
2605    }
2606    /*      local function CLOSURE  */
2607    
2608    static void LC31(base0)
2609    register object *base0;
2610    {       register object *base=vs_base;
2611            register object *sup=base+VM31; VC31
2612            vs_check;
2613            {object V255;
2614            V255=(base[0]);
2615            vs_top=sup;
2616            if(type_of((V255))==t_fixnum||type_of((V255))==t_bignum){
2617            goto T1031;}
2618            base[1]= Cnil;
2619            vs_top=(vs_base=base+1)+1;
2620            return;
2621            goto T1031;
2622    T1031:;
2623            base[1]= (number_compare((V255),(base0[0]->c.c_car))>=0?Ct:Cnil);
2624            vs_top=(vs_base=base+1)+1;
2625            return;
2626            }
2627    }
2628    static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* DEFAULT-INFO-HOTLIST */
2629    static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* USER-HOMEDIR-PATHNAME */
2630    static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* REMOVE-IF */
2631    static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* READ-FROM-STRING */
2632    static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* TYPE-ERROR */
2633    static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* OFFER-CHOICES */
2634    static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* INFO-AUX */
2635    static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ADD-FILE */
2636    static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* GET-INFO-CHOICES */
2637    static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* END-WAITING */
2638    static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* PRINT-NODE */
2639    static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* GET-NODE-INDEX */
2640    static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* SETUP-INFO */
2641    static void LnkT115(){ call_or_link(VV[115],(void **)(void *)&Lnk115);} /* WAITING */
2642    static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* INFO-GET-FILE */
2643    static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* INFO-SUBFILE */
2644    static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* WINFO */
2645    static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* TKERROR */
2646    static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* NODES-FROM-INDEX */
2647    static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* INFO-GET-TAGS */
2648    static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* SEARCH */
2649    static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* FILE-SEARCH */
2650    static void LnkT106(){ call_or_link(VV[106],(void **)(void *)&Lnk106);} /* FIX-LOAD-PATH */
2651    static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* GET-INDEX-NODE */
2652    static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* SHOW-INFO */
2653    static void LnkT103(){ call_or_link(VV[103],(void **)(void *)&Lnk103);} /* GET-NODES */
2654    static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* STRING-CONCATENATE */
2655    static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* RE-QUOTE-STRING */
2656    static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* POSITION */
2657    static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* INFO-ERROR */
2658    static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* GET-MATCH */
2659    static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* ATOI */
2660    static object  LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,4353,first,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */
2661    static object  LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,4353,first,ap);va_end(ap);return V1;} /* MATCH-END */
2662    static object  LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[94],(void **)(void *)&LnkLI94,first,ap);va_end(ap);return V1;} /* STRING-MATCH */
2663    static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* FILE-TO-STRING */
2664    static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* FREAD */
2665    static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* OPEN */
2666    static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* VECTOR-PUSH-EXTEND */
2667    static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* MAKE-ARRAY */
2668    
2669    #ifdef SYSTEM_SPECIAL_INIT
2670    SYSTEM_SPECIAL_INIT
2671    #endif
2672    

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