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

Diff of /gcl/lsp/info.c

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

revision 1.3 by camm, Thu Jan 31 19:17:46 2002 UTC revision 1.4 by camm, Fri Mar 8 16:16:41 2002 UTC
# Line 7  init_info(){do_init(VV);} Line 7  init_info(){do_init(VV);}
7  static L1()  static L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_check;
11          {register object V1;          {register object V1;
12          object V2;          object V2;
13          object V3;          object V3;
         check_arg(3);  
14          V1=(base[0]);          V1=(base[0]);
15          V2=(base[1]);          V2=(base[1]);
16          V3=(base[2]);          V3=(base[2]);
17          vs_top=sup;          vs_top=sup;
18  TTL:;  TTL:;
19          {register object V4;          {object V4;
20          V4= (VFUN_NARGS=5,(*(LnkLI87))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0)));          base[3]= small_fixnum(10);
21          base[3]= (V1);          base[4]= VV[0];
22          vs_top=(vs_base=base+3)+1;          base[5]= VV[1];
23          Lread_char();          base[6]= VV[2];
24            base[7]= small_fixnum(0);
25            vs_top=(vs_base=base+3)+5;
26            (void) (*Lnk88)();
27          vs_top=sup;          vs_top=sup;
28          V5= vs_base[0];          V4= vs_base[0];{object V5;
29          if(!(eql(V5,VV[3]))){          {object V6;
30          goto T5;}          {int V7;
31          goto T4;          V7= 0;
32  T5:;          if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){
33            goto T15;}
34            V7= getc(((V1))->sm.sm_fp);
35            if(!((V7)==(-1))){
36            goto T20;}
37            if(!((feof(((V1))->sm.sm_fp)))){
38            goto T20;}
39            V6= Cnil;
40            goto T12;
41    T20:;
42            V6= code_char((V7));
43            goto T12;
44    T15:;
45            V6= read_char1((V1),Cnil);}
46    T12:;
47            if(type_of((V6))==t_character){
48            goto T24;}
49            V5= Cnil;
50            goto T11;
51    T24:;
52            V5= (((34))==((char_code((V6))))?Ct:Cnil);}
53    T11:;
54            if(V5==Cnil)goto T10;
55            goto T9;
56    T10:;}
57          base[3]= VV[4];          base[3]= VV[4];
58          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
59          Lerror();          Lerror();
60          vs_top=sup;          vs_top=sup;
61  T4:;  T9:;
62  T12:;  T29:;
63          {register object V6;          {register object V8;
64          base[3]= (V1);          {register int V9;
65          vs_top=(vs_base=base+3)+1;          V9= 0;
66          Lread_char();          if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){
67          vs_top=sup;          goto T34;}
68          V6= vs_base[0];          V9= getc(((V1))->sm.sm_fp);
69          if(!(eql((V6),VV[3]))){          if(!((V9)==(-1))){
70          goto T18;}          goto T39;}
71          goto T10;          if(!((feof(((V1))->sm.sm_fp)))){
72  T18:;          goto T39;}
73          if(!(eql((V6),VV[5]))){          V8= Cnil;
74          goto T16;}          goto T31;
75          base[3]= (V1);  T39:;
76          vs_top=(vs_base=base+3)+1;          V8= code_char((V9));
77          Lread_char();          goto T31;
78          vs_top=sup;  T34:;
79          V6= vs_base[0];{object V7;          V8= read_char1((V1),Cnil);}
80          {register object x= (V6),V9= VV[6];  T31:;
81          while(!endp(V9))          if(type_of(V8)==t_character){
82          if(type_of(V9->c.c_car)==t_cons &&eql(x,V9->c.c_car->c.c_car)){          goto T47;}
83          V8= (V9->c.c_car);          goto T45;
84          goto T28;  T47:;
85          }else V9=V9->c.c_cdr;          if(!(((34))==((char_code(V8))))){
86          V8= Cnil;}          goto T45;}
87  T28:;          goto T27;
88          V7= cdr(V8);  T45:;
89          if(V7==Cnil)goto T26;          if(type_of(V8)==t_character){
90          V6= V7;          goto T51;}
91          goto T25;          goto T43;
92  T26:;}  T51:;
93  T25:;          if(!(((92))==((char_code(V8))))){
94  T16:;          goto T43;}
95          (void)((VFUN_NARGS=2,(*(LnkLI88))((V6),(V4))));}          {register int V12;
96          goto T12;          V12= 0;
97  T10:;          if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){
98            goto T57;}
99            V12= getc(((V1))->sm.sm_fp);
100            if(!((V12)==(-1))){
101            goto T62;}
102            if(!((feof(((V1))->sm.sm_fp)))){
103            goto T62;}
104            V8= Cnil;
105            goto T54;
106    T62:;
107            V8= code_char((V12));
108            goto T54;
109    T57:;
110            V8= read_char1((V1),Cnil);}
111    T54:;{object V13;
112            {register object x= (V8),V15= VV[6];
113            while(V15!=Cnil)
114            if(eql(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){
115            V14= (V15->c.c_car);
116            goto T69;
117            }else V15=V15->c.c_cdr;
118            V14= Cnil;}
119    T69:;
120            V13= CMPcdr(V14);
121            if(V13==Cnil)goto T67;
122            V8= V13;
123            goto T66;
124    T67:;}
125    T66:;
126    T43:;
127            {register object V17;
128            register int V18;
129            int V19;
130            V17= (V4);
131            V18= (((V17))->st.st_fillp);
132            V19= (((V17))->st.st_dim);
133            if(!((V18)<(V19))){
134            goto T74;}
135            (void)((((V17))->st.st_fillp)=((1)+(V18)));
136            V20 = CMPmake_fixnum(V18);
137            (void)(aset1((V17),fix(V20),V8));
138            goto T30;
139    T74:;
140            base[3]= V8;
141            base[4]= (V17);
142            vs_top=(vs_base=base+3)+2;
143            (void) (*Lnk89)();
144            vs_top=sup;}}
145    T30:;
146            goto T29;
147    T27:;
148          base[3]= (V4);          base[3]= (V4);
149          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
150          return;}          return;}
# Line 79  T10:; Line 155  T10:;
155  static L2()  static L2()
156  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
157          register object *VOL sup=base+VM2; VC2          register object *VOL sup=base+VM2; VC2
158          vs_reserve(VM2);          vs_check;
159          bds_check;          bds_check;
160          {VOL object V10;          {VOL object V21;
161          if(vs_top-vs_base<1) too_few_arguments();          V21=(base[0]);
         if(vs_top-vs_base>2) too_many_arguments();  
         V10=(base[0]);  
162          vs_base=vs_base+1;          vs_base=vs_base+1;
163          if(vs_base>=vs_top){vs_top=sup;goto T30;}          if(vs_base>=vs_top){vs_top=sup;goto T81;}
164          vs_top=sup;          vs_top=sup;
165          goto T31;          goto T82;
166  T30:;  T81:;
167          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
168  T31:;  T82:;
169          bds_bind(VV[7],Ct);          bds_bind(VV[7],Ct);
170          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
171          base[5]= (V10);          base[5]= (V21);
172          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
173          (void) (*Lnk89)();          (void) (*Lnk90)();
174          vs_top=sup;          vs_top=sup;
175          base[4]= vs_base[0];          base[4]= vs_base[0];
176          {object tag;frame_ptr fr;object p;bool active;          {object tag;frame_ptr fr;object p;bool active;
# Line 107  T31:; Line 181  T31:;
181          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
182          Lfile_length();          Lfile_length();
183          vs_top=sup;          vs_top=sup;
184          base[3]= vs_base[0];{VOL object V11;          base[3]= vs_base[0];{VOL object V22;
185          if(number_compare(small_fixnum(0),base[1])<=0){          if(number_compare(small_fixnum(0),base[1])<=0){
186          goto T42;}          goto T93;}
187          V11= Cnil;          V22= Cnil;
188          goto T41;          goto T92;
189  T42:;  T93:;
190          V11= (number_compare(base[1],base[3])<=0?Ct:Cnil);          V22= (number_compare(base[1],base[3])<=0?Ct:Cnil);
191  T41:;  T92:;
192          if(V11==Cnil)goto T40;          if(V22==Cnil)goto T91;
193          goto T39;          goto T90;
194  T40:;}  T91:;}
195          base[6]= VV[8];          base[6]= VV[8];
196          base[7]= base[1];          base[7]= base[1];
197          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
198          Lerror();          Lerror();
199          vs_top=sup;          vs_top=sup;
200  T39:;  T90:;
201          {object V12;          {object V23;
202          V13= number_minus(base[3],base[1]);          base[6]= number_minus(base[3],base[1]);
203          V12= (VFUN_NARGS=3,(*(LnkLI87))(/* INLINE-ARGS */V13,VV[0],VV[1]));          base[7]= VV[0];
204            base[8]= VV[1];
205            vs_top=(vs_base=base+6)+3;
206            (void) (*Lnk88)();
207            vs_top=sup;
208            V23= vs_base[0];
209          if(!(number_compare(base[1],small_fixnum(0))>0)){          if(!(number_compare(base[1],small_fixnum(0))>0)){
210          goto T47;}          goto T101;}
211          base[6]= base[4];          base[6]= base[4];
212          base[7]= base[1];          base[7]= base[1];
213          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
214          Lfile_position();          Lfile_position();
215          vs_top=sup;          vs_top=sup;
216  T47:;  T101:;
217          base[6]= (V12);          base[6]= (V23);
218          base[7]= small_fixnum(0);          base[7]= small_fixnum(0);
219          base[8]= make_fixnum(length((V12)));          base[8]= CMPmake_fixnum(length((V23)));
220          base[9]= base[4];          base[9]= base[4];
221          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
222          (void) (*Lnk90)();          (void) (*Lnk91)();
223          vs_top=sup;          vs_top=sup;
224          base[6]= (V12);          base[6]= (V23);
225          vs_top=(vs_base=base+6)+1;}          vs_top=(vs_base=base+6)+1;}
226          active=FALSE;}          active=FALSE;}
227          base[5]=Cnil;          base[5]=Cnil;
# Line 151  T47:; Line 230  T47:;
230          vs_top=sup;          vs_top=sup;
231          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
232          if((base[4])==Cnil){          if((base[4])==Cnil){
233          goto T57;}          goto T111;}
234          base[6]= base[4];          base[6]= base[4];
235          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
236          Lclose();          Lclose();
237          vs_top=sup;          vs_top=sup;
238  T57:;  T111:;
239          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
240          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
241          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
# Line 169  T57:; Line 248  T57:;
248  static L3()  static L3()
249  {register object *base=vs_base;  {register object *base=vs_base;
250          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
251          vs_reserve(VM3);          vs_check;
252          {register object V14;          {register object V24;
253          register int V15;          register int V25;
254          check_arg(2);          V24=(base[0]);
255          V14=(base[0]);          V25=fix(base[1]);
         V15=fix(base[1]);  
256          vs_top=sup;          vs_top=sup;
257  TTL:;  TTL:;
258          {register int V16;          {register int V26;
259          register int V17;          register int V27;
260          register int V18;          register int V28;
261          V16= 0;          V26= 0;
262          V17= 0;          V27= 0;
263          V18= length((V14));          V28= ((V24))->v.v_fillp;
264  T66:;  T120:;
265          if(!((V15)<(V18))){          if(!((V25)<(V28))){
266          goto T69;}          goto T123;}
267          goto T68;          goto T122;
268  T69:;  T123:;
269          goto T67;          goto T121;
270  T68:;  T122:;
271          {unsigned char V19= char_code(aref1((V14),V15));          V27= (((V24))->ust.ust_self[V25]);
272          V17= (/* INLINE-ARGS */V19);}          V25= (V25)+(1);
273          V15= (V15)+(1);          V27= (V27)-(48);
274          V17= (V17)-(48);          if(!((V27)>=(0))){
275          if(!((V17)>=(0))){          goto T133;}
276          goto T79;}          if(!((V27)<(10))){
277          if(!((V17)<(10))){          goto T133;}
278          goto T79;}          V29 = CMPmake_fixnum(V27);
279          V20 = make_fixnum(V17);          V30 = CMPmake_fixnum(V26);
280          V21 = make_fixnum(V16);          V31= number_times(small_fixnum(10),V30);
281          V22= number_times(small_fixnum(10),V21);          V26= fix(number_plus(V29,/* INLINE-ARGS */V31));
282          V16= fix(number_plus(V20,/* INLINE-ARGS */V22));          goto T131;
283          goto T77;  T133:;
284  T79:;          goto T118;
285          goto T64;  T131:;
286  T77:;          goto T120;
287          goto T66;  T121:;
288  T67:;          goto T118;
289          goto T64;          goto T118;
290          goto T64;  T118:;
291  T64:;          base[2]= CMPmake_fixnum(V26);
         base[2]= make_fixnum(V16);  
292          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
293          return;}          return;}
294          }          }
# Line 221  T64:; Line 298  T64:;
298  static L4()  static L4()
299  {register object *base=vs_base;  {register object *base=vs_base;
300          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
301          vs_reserve(VM4);          vs_check;
302          bds_check;          bds_check;
303          {object V23;          {object V32;
304          check_arg(1);          V32=(base[0]);
         V23=(base[0]);  
305          vs_top=sup;          vs_top=sup;
306  TTL:;  TTL:;
307          {register int V24;          {register int V33;
308          object V25;          object V34;
309          register object V26;          register object V35;
310          V24= 0;          V33= 0;
311          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
312          V25= Cnil;          V34= Cnil;
313          V26= Cnil;          V35= Cnil;
314          bds_bind(VV[10],Ct);          bds_bind(VV[10],Ct);
315          {register object V27;          {register object V36;
316          register int V28;          register int V37;
317          base[3]= (V23);          base[3]= (V32);
318          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
319          (void) (*Lnk91)();          (void) (*Lnk92)();
320          vs_top=sup;          vs_top=sup;
321          V27= vs_base[0];          V36= vs_base[0];
322          V28= 0;          V37= 0;
323          {int V29= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[11],(V27),small_fixnum(0))));          {int V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[11],(V36),small_fixnum(0))));
324          if(!((/* INLINE-ARGS */V29)>=(0))){          if(!((/* INLINE-ARGS */V38)>=(0))){
325          goto T91;}}          goto T145;}}
326          V28= (*(LnkLI93))(0);          V37= (*(LnkLI94))(0);
327          V30 = make_fixnum(V28);          V39 = CMPmake_fixnum(V37);
328          V24= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[12],(V27),V30)));          V33= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V36),V39)));
329  T99:;  T153:;
330          V31 = make_fixnum(V28);          V40 = CMPmake_fixnum(V37);
331          V32 = make_fixnum(V24);          V41 = CMPmake_fixnum(V33);
332          {int V33= fix((VFUN_NARGS=4,(*(LnkLI92))(VV[13],(V27),V31,V32)));          {int V42= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[13],(V36),V40,V41)));
333          if(!((/* INLINE-ARGS */V33)>=(0))){          if(!((/* INLINE-ARGS */V42)>=(0))){
334          goto T102;}}          goto T156;}}
335          goto T101;          goto T155;
336  T102:;  T156:;
337          goto T100;          goto T154;
338  T101:;  T155:;
339          V28= (*(LnkLI93))(0);          V37= (*(LnkLI94))(0);
340          base[3]= (V27);          base[3]= (V36);
341          base[4]= make_fixnum((*(LnkLI94))(2));          base[4]= CMPmake_fixnum((*(LnkLI95))(2));
342          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
343          (void) (*Lnk95)();          (void) (*Lnk96)();
344          vs_top=sup;          vs_top=sup;
345          V34= vs_base[0];          V43= vs_base[0];
346          base[3]= (V27);          base[3]= (V36);
347          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
348          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
349          (void) (*Lnk96)();          (void) (*Lnk97)();
350          vs_top=sup;          vs_top=sup;
351          V35= vs_base[0];          V44= vs_base[0];
352          V36= make_cons(V34,V35);          V45= make_cons(V43,V44);
353          V26= make_cons(/* INLINE-ARGS */V36,(V26));          V35= make_cons(/* INLINE-ARGS */V45,(V35));
354          goto T99;          goto T153;
355  T100:;  T154:;
356          goto T91;          goto T145;
357          goto T91;          goto T145;
358  T91:;  T145:;
359          V37 = make_fixnum(V28);          V46 = CMPmake_fixnum(V37);
360          {int V38= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[14],(V27),V37)));          {int V47= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V36),V46)));
361          if(!((/* INLINE-ARGS */V38)>=(0))){          if(!((/* INLINE-ARGS */V47)>=(0))){
362          goto T115;}}          goto T169;}}
363          V28= (*(LnkLI93))(0);          V37= (*(LnkLI94))(0);
364          V39 = make_fixnum(V28);          V48 = CMPmake_fixnum(V37);
365          {int V40= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[15],(V27),V39)));          {int V49= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[15],(V36),V48)));
366          if(!((/* INLINE-ARGS */V40)>=(0))){          if(!((/* INLINE-ARGS */V49)>=(0))){
367          goto T115;}}          goto T169;}}
368          base[3]= (V27);          base[3]= (V36);
369          base[4]= make_fixnum(V28);          base[4]= CMPmake_fixnum(V37);
370          base[5]= make_fixnum((*(LnkLI93))(0));          base[5]= CMPmake_fixnum((*(LnkLI94))(0));
371          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
372          Lsubseq();          Lsubseq();
373          vs_top=sup;          vs_top=sup;
374          V25= vs_base[0];          V34= vs_base[0];
375  T115:;  T169:;
376          if(((V26))==Cnil){          if(((V35))==Cnil){
377          goto T126;}          goto T180;}
378          if((V25)!=Cnil){          if((V34)!=Cnil){
379          goto T126;}          goto T180;}
380          base[3]= VV[16];          base[3]= VV[16];
381          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
382          (void) (*Lnk97)();          (void) (*Lnk98)();
383          vs_top=sup;          vs_top=sup;
384  T126:;  T180:;
385          V41= nreverse((V26));          V50= nreverse((V35));
386          base[3]= make_cons((V25),/* INLINE-ARGS */V41);          base[3]= make_cons((V34),/* INLINE-ARGS */V50);
387          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
388          bds_unwind1;          bds_unwind1;
389          bds_unwind1;          bds_unwind1;
# Line 319  T126:; Line 395  T126:;
395  static L5()  static L5()
396  {register object *base=vs_base;  {register object *base=vs_base;
397          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
398          vs_reserve(VM5);          vs_check;
399          {register object V42;          {object V51;
400          check_arg(1);          V51=(base[0]);
401          V42=(base[0]);          vs_top=sup;
402          vs_top=sup;  TTL:;
403  TTL:;          {register int V52;
404          {register int V43;          int V53;
405          int V44;          object V54;
406          register object V45;          int V55;
407          register int V46;          V52= 0;
408          V43= 0;          V53= ((V51))->v.v_fillp;
409          V44= length((V42));          V54= Cnil;
410          V45= Cnil;          V55= 0;
411          V46= 0;          {register object V56;
412          {register object V47;          V56= Cnil;
413          V47= Cnil;  T190:;
414  T136:;  T193:;
415  T139:;          if(!((V52)<(V53))){
416          if(!((V43)<(V44))){          goto T196;}
417          goto T142;}          goto T195;
418          goto T141;  T196:;
419  T142:;          goto T194;
420          goto T140;  T195:;
421  T141:;          V54= code_char(((V51))->ust.ust_self[V52]);
422          V45= aref1((V42),V43);          base[1]= (V54);
423          if(((VFUN_NARGS=2,(*(LnkLI98))((V45),VV[17])))==Cnil){          base[2]= VV[17];
424          goto T146;}          vs_top=(vs_base=base+1)+2;
425          if(((V47))==Cnil){          (void) (*Lnk99)();
426          goto T150;}          vs_top=sup;
427          (void)((VFUN_NARGS=2,(*(LnkLI88))(VV[5],(V47))));          if((vs_base[0])==Cnil){
428          goto T146;          goto T200;}
429  T150:;          if(((V56))==Cnil){
430          V46= (V46)+(1);          goto T206;}
431  T146:;          {unsigned char V57;
432          if(((V47))==Cnil){          register object V58;
433          goto T153;}          register int V59;
434          (void)((VFUN_NARGS=2,(*(LnkLI88))((V45),(V47))));          int V60;
435  T153:;          V57= 92;
436          V43= (V43)+(1);          V58= (V56);
437          goto T139;          V59= (((V58))->st.st_fillp);
438  T140:;          V60= (((V58))->st.st_dim);
439          goto T137;          if(!((V59)<(V60))){
440          goto T137;          goto T213;}
441  T137:;          (void)((((V58))->st.st_fillp)=((1)+(V59)));
442          {register object V48;          V61 = CMPmake_fixnum(V59);
443          V48= (V47);          (void)(aset1((V58),fix(V61),code_char(V57)));
444          if(((V48))==Cnil){          goto T200;
445          goto T161;}  T213:;
446          goto T159;          base[1]= code_char(V57);
447  T161:;          base[2]= (V58);
448          if(!((V46)>(0))){          vs_top=(vs_base=base+1)+2;
449          goto T164;}          (void) (*Lnk89)();
450          V49 = make_fixnum((length((V42)))+(V46));          vs_top=sup;
451          V47= (VFUN_NARGS=5,(*(LnkLI87))(V49,VV[0],VV[1],VV[2],small_fixnum(0)));          goto T200;}
452          V43= 0;  T206:;
453          goto T136;          V55= (V55)+(1);
454  T164:;  T200:;
455          V47= (V42);}          if(((V56))==Cnil){
456  T159:;          goto T220;}
457          goto T134;          {register object V63;
458  T134:;          register int V64;
459          base[1]= (V47);          int V65;
460            V63= (V56);
461            V64= (((V63))->st.st_fillp);
462            V65= (((V63))->st.st_dim);
463            if(!((V64)<(V65))){
464            goto T227;}
465            (void)((((V63))->st.st_fillp)=((1)+(V64)));
466            V66 = CMPmake_fixnum(V64);
467            (void)(aset1((V63),fix(V66),V54));
468            goto T220;
469    T227:;
470            base[1]= V54;
471            base[2]= (V63);
472            vs_top=(vs_base=base+1)+2;
473            (void) (*Lnk89)();
474            vs_top=sup;}
475    T220:;
476            V52= (V52)+(1);
477            goto T193;
478    T194:;
479            goto T191;
480            goto T191;
481    T191:;
482            {object V67;
483            V67= (V56);
484            if(((V67))==Cnil){
485            goto T238;}
486            goto T236;
487    T238:;
488            if(!((V55)>(0))){
489            goto T241;}
490            base[1]= CMPmake_fixnum((((V51))->v.v_fillp)+(V55));
491            base[2]= VV[0];
492            base[3]= VV[1];
493            base[4]= VV[2];
494            base[5]= small_fixnum(0);
495            vs_top=(vs_base=base+1)+5;
496            (void) (*Lnk88)();
497            vs_top=sup;
498            V56= vs_base[0];
499            V52= 0;
500            goto T190;
501    T241:;
502            V56= (V51);}
503    T236:;
504            goto T188;
505    T188:;
506            base[1]= (V56);
507          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
508          return;}}          return;}}
509          }          }
# Line 390  T134:; Line 513  T134:;
513  static L6()  static L6()
514  {register object *base=vs_base;  {register object *base=vs_base;
515          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
516          vs_reserve(VM6);          vs_check;
517          {object V50;          {object V68;
518          object V51;          object V69;
519          check_arg(2);          V68=(base[0]);
520          V50=(base[0]);          V69=(base[1]);
         V51=(base[1]);  
521          vs_top=sup;          vs_top=sup;
522  TTL:;  TTL:;
523          base[2]= (V50);          base[2]= (V68);
524          base[3]= make_fixnum((*(LnkLI94))(fix((V51))));          base[3]= CMPmake_fixnum((*(LnkLI95))(fix((V69))));
525          base[4]= make_fixnum((*(LnkLI93))(fix((V51))));          base[4]= CMPmake_fixnum((*(LnkLI94))(fix((V69))));
526          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
527          Lsubseq();          Lsubseq();
528          return;          return;
# Line 411  TTL:; Line 533  TTL:;
533  static L7()  static L7()
534  {register object *base=vs_base;  {register object *base=vs_base;
535          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
536          vs_reserve(VM7);          vs_check;
537          bds_check;          bds_check;
538          {register object V52;          {register object V70;
539          register object V53;          register object V71;
540          check_arg(2);          V70=(base[0]);
541          V52=(base[0]);          V71=(base[1]);
         V53=(base[1]);  
542          vs_top=sup;          vs_top=sup;
543  TTL:;  TTL:;
544          {register int V54;          {register int V72;
545          register object V55;          register object V73;
546          V54= 0;          V72= 0;
547          V55= Cnil;          V73= Cnil;
548          bds_bind(VV[10],Ct);          bds_bind(VV[10],Ct);
549          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
550          if(((V53))==Cnil){          if(((V71))==Cnil){
551          goto T177;}          goto T259;}
552          base[4]= VV[18];          base[4]= VV[18];
553          base[6]= (V52);          base[6]= (V70);
554          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
555          (void) (*Lnk99)();          (void) (*Lnk100)();
556          vs_top=sup;          vs_top=sup;
557          base[5]= vs_base[0];          base[5]= vs_base[0];
558          base[6]= VV[19];          base[6]= VV[19];
559          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
560          (void) (*Lnk100)();          (void) (*Lnk101)();
561          vs_top=sup;          vs_top=sup;
562          V52= vs_base[0];          V70= vs_base[0];
563  T187:;  T269:;
564          V56 = make_fixnum(V54);          V74 = CMPmake_fixnum(V72);
565          {int V57= fix((VFUN_NARGS=3,(*(LnkLI92))((V52),(V53),V56)));          {int V75= fix((VFUN_NARGS=3,(*(LnkLI93))((V70),(V71),V74)));
566          if(!((/* INLINE-ARGS */V57)>=(0))){          if(!((/* INLINE-ARGS */V75)>=(0))){
567          goto T190;}}          goto T272;}}
568          goto T189;          goto T271;
569  T190:;  T272:;
570          goto T188;          goto T270;
571  T189:;  T271:;
572          V54= (*(LnkLI93))(0);          V72= (*(LnkLI94))(0);
573          base[4]= (V53);          base[4]= (V71);
574          base[5]= small_fixnum(1);          base[5]= small_fixnum(1);
575          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
576          (void) (*Lnk96)();          (void) (*Lnk97)();
577          vs_top=sup;          vs_top=sup;
578          V58= vs_base[0];          V76= vs_base[0];
579          V55= make_cons(V58,(V55));          V73= make_cons(V76,(V73));
580          goto T187;          goto T269;
581  T188:;  T270:;
582          goto T185;          goto T267;
583          goto T185;          goto T267;
584  T185:;  T267:;
585          base[4]= nreverse((V55));          base[4]= nreverse((V73));
586          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
587          bds_unwind1;          bds_unwind1;
588          bds_unwind1;          bds_unwind1;
589          return;          return;
590  T177:;  T259:;
591          base[4]= Cnil;          base[4]= Cnil;
592          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
593          bds_unwind1;          bds_unwind1;
# Line 479  T177:; Line 600  T177:;
600  static L8()  static L8()
601  {register object *base=vs_base;  {register object *base=vs_base;
602          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
603          vs_reserve(VM8);          vs_check;
         check_arg(0);  
604          vs_top=sup;          vs_top=sup;
605  TTL:;{object V59;  TTL:;{object V77;
606          V59= caddr(symbol_value(VV[20]));          V77= CMPcaddr((VV[20]->s.s_dbind));
607          if(V59==Cnil)goto T200;          if(V77==Cnil)goto T282;
608          base[0]= V59;          base[0]= V77;
609          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
610          return;          return;
611  T200:;}  T282:;}
612          {object V60;          {object V78;
613          object V61;          object V79;
614          object V62;          object V80;
615          V60= Cnil;          V78= Cnil;
616          V61= car(cadr(symbol_value(VV[20])));          V79= CMPcar(CMPcadr((VV[20]->s.s_dbind)));
617          if((V61)==Cnil){          if((V79)==Cnil){
618          V62= Cnil;          V80= Cnil;
619          goto T204;}          goto T286;}
620          base[2]= VV[21];          base[2]= VV[21];
621          base[3]= (V61);          base[3]= (V79);
622          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
623          (void) (*Lnk101)();          (void) (*Lnk102)();
624          vs_top=sup;          vs_top=sup;
625          V63= vs_base[0];          V81= vs_base[0];
626          V62= car(V63);          V80= CMPcar(V81);
627  T204:;  T286:;
628          if(((V62))==Cnil){          if(((V80))==Cnil){
629          goto T209;}          goto T291;}
630          base[2]= (V62);          base[2]= (V80);
631          base[3]= Cnil;          base[3]= Cnil;
632          base[4]= Cnil;          base[4]= Cnil;
633          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
634          (void) (*Lnk102)();          (void) (*Lnk103)();
635          vs_top=sup;          vs_top=sup;
636          V60= vs_base[0];          V78= vs_base[0];
637          {object V64;          {object V82;
638          V64= symbol_value(VV[20]);          V82= (VV[20]->s.s_dbind);
639          if(type_of(cddr((V64)))!=t_cons)FEwrong_type_argument(Scons,cddr((V64)));          (CMPcddr((V82)))->c.c_car = V78;
640          (cddr((V64)))->c.c_car = V60;          (void)(CMPcddr((V82)));
641          (void)(cddr((V64)));          base[2]= V78;
         base[2]= V60;  
642          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
643          return;}          return;}
644  T209:;  T291:;
645          base[2]= Cnil;          base[2]= Cnil;
646          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
647          return;}          return;}
# Line 532  T209:; Line 651  T209:;
651  static L9()  static L9()
652  {register object *base=vs_base;  {register object *base=vs_base;
653          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
654          vs_reserve(VM9);          vs_check;
655          bds_check;          bds_check;
656          {register object V66;          {register object V84;
657          check_arg(1);          V84=(base[0]);
         V66=(base[0]);  
658          vs_top=sup;          vs_top=sup;
659  TTL:;  TTL:;
660          {register object V67;          {register object V85;
661          register object V68;          register object V86;
662          V67= small_fixnum(0);          V85= small_fixnum(0);
663          V68= Cnil;          V86= Cnil;
664          bds_bind(VV[10],Ct);          bds_bind(VV[10],Ct);
665          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
666          {register object V69;          {register object V87;
667          vs_base=vs_top;          vs_base=vs_top;
668          (void) (*Lnk103)();          (void) (*Lnk104)();
669          vs_top=sup;          vs_top=sup;
670          V69= vs_base[0];          V87= vs_base[0];
671          if(((V69))==Cnil){          if(((V87))==Cnil){
672          goto T222;}          goto T304;}
673          base[3]= VV[22];          base[3]= VV[22];
674          base[5]= (V66);          base[5]= (V84);
675          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
676          (void) (*Lnk99)();          (void) (*Lnk100)();
677          vs_top=sup;          vs_top=sup;
678          base[4]= vs_base[0];          base[4]= vs_base[0];
679          base[5]= VV[23];          base[5]= VV[23];
680          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
681          (void) (*Lnk100)();          (void) (*Lnk101)();
682          vs_top=sup;          vs_top=sup;
683          V66= vs_base[0];          V84= vs_base[0];
684  T232:;  T314:;
685          {int V70= fix((VFUN_NARGS=3,(*(LnkLI92))((V66),(V69),(V67))));          {int V88= fix((VFUN_NARGS=3,(*(LnkLI93))((V84),(V87),(V85))));
686          if(!((/* INLINE-ARGS */V70)>=(0))){          if(!((/* INLINE-ARGS */V88)>=(0))){
687          goto T235;}}          goto T317;}}
688          goto T234;          goto T316;
689  T235:;  T317:;
690          goto T233;          goto T315;
691  T234:;  T316:;
692          V67= make_fixnum((*(LnkLI93))(0));          V85= CMPmake_fixnum((*(LnkLI94))(0));
693          base[3]= (V69);          base[3]= (V87);
694          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
695          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
696          (void) (*Lnk96)();          (void) (*Lnk97)();
697          vs_top=sup;          vs_top=sup;
698          V71= vs_base[0];          V89= vs_base[0];
699          base[3]= (V69);          base[3]= (V87);
700          base[4]= small_fixnum(2);          base[4]= small_fixnum(2);
701          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
702          (void) (*Lnk96)();          (void) (*Lnk97)();
703          vs_top=sup;          vs_top=sup;
704          V72= vs_base[0];          V90= vs_base[0];
705          V73= make_cons(V71,V72);          V91= make_cons(V89,V90);
706          V68= make_cons(/* INLINE-ARGS */V73,(V68));          V86= make_cons(/* INLINE-ARGS */V91,(V86));
707          goto T232;          goto T314;
708  T233:;  T315:;
709          goto T230;          goto T312;
710          goto T230;          goto T312;
711  T230:;  T312:;
712          base[3]= nreverse((V68));          base[3]= nreverse((V86));
713          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
714          bds_unwind1;          bds_unwind1;
715          bds_unwind1;          bds_unwind1;
716          return;          return;
717  T222:;  T304:;
718          base[3]= Cnil;          base[3]= Cnil;
719          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
720          bds_unwind1;          bds_unwind1;
# Line 609  T222:; Line 727  T222:;
727  static L10()  static L10()
728  {register object *base=vs_base;  {register object *base=vs_base;
729          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
730          vs_reserve(VM10);          vs_check;
731          bds_check;          bds_check;
732          {register object V74;          {register object V92;
733          object V75;          object V93;
734          check_arg(2);          V92=(base[0]);
735          V74=(base[0]);          V93=(base[1]);
         V75=(base[1]);  
736          vs_top=sup;          vs_top=sup;
737  TTL:;  TTL:;
738          {object V76;          {object V94;
739          V76= (V74);          V94= (V92);
740          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
741          if(((V75))!=Cnil){          if(((V93))!=Cnil){
742          goto T250;}          goto T332;}
743          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
744          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
745          bds_unwind1;          bds_unwind1;
746          return;          return;
747  T250:;  T332:;
748          base[3]= VV[24];          base[3]= VV[24];
749          base[5]= (V74);          base[5]= (V92);
750          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
751          (void) (*Lnk99)();          (void) (*Lnk100)();
752          vs_top=sup;          vs_top=sup;
753          base[4]= vs_base[0];          base[4]= vs_base[0];
754          base[5]= VV[25];          base[5]= VV[25];
755          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
756          (void) (*Lnk100)();          (void) (*Lnk101)();
757          vs_top=sup;          vs_top=sup;
758          V74= vs_base[0];          V92= vs_base[0];
759          {int V77= fix((VFUN_NARGS=2,(*(LnkLI92))((V74),(V75))));          {int V95= fix((VFUN_NARGS=2,(*(LnkLI93))((V92),(V93))));
760          if(!((/* INLINE-ARGS */V77)>=(0))){          if(!((/* INLINE-ARGS */V95)>=(0))){
761          goto T259;}}          goto T341;}}
762          base[3]= (V75);          base[3]= (V93);
763          base[4]= make_fixnum((*(LnkLI94))(1));          base[4]= CMPmake_fixnum((*(LnkLI95))(1));
764          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
765          (void) (*Lnk95)();          (void) (*Lnk96)();
766          bds_unwind1;          bds_unwind1;
767          return;          return;
768  T259:;  T341:;
769          base[3]= VV[26];          base[3]= VV[26];
770          base[4]= (V76);          base[4]= (V94);
771          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
772          (void) (*Lnk97)();          (void) (*Lnk98)();
773          vs_top=sup;          vs_top=sup;
774          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
775          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 665  T259:; Line 782  T259:;
782  static L11()  static L11()
783  {register object *base=vs_base;  {register object *base=vs_base;
784          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
785          vs_reserve(VM11);          vs_check;
786          bds_check;          bds_check;
787          {object V78;          {object V96;
788          object V79;          object V97;
789          check_arg(2);          V96=(base[0]);
790          V78=(base[0]);          V97=(base[1]);
         V79=(base[1]);  
791          vs_top=sup;          vs_top=sup;
792  TTL:;  TTL:;
793          {register int V80;          {register int V98;
794          V80= 0;          V98= 0;
795          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
796          {register object V81;          {register object V99;
797          register object V82;          register object V100;
798          register object V83;          register object V101;
799          V81= Cnil;          V99= Cnil;
800          V82= Cnil;          V100= Cnil;
801          V83= Cnil;          V101= Cnil;
802  T268:;  T350:;
803          V84 = make_fixnum(V80);          V102 = CMPmake_fixnum(V98);
804          V80= fix((VFUN_NARGS=3,(*(LnkLI92))((V78),(V79),V84)));          V98= fix((VFUN_NARGS=3,(*(LnkLI93))((V96),(V97),V102)));
805          if(!((V80)>=(0))){          if(!((V98)>=(0))){
806          goto T271;}          goto T353;}
807          goto T270;          goto T352;
808  T271:;  T353:;
809          goto T269;          goto T351;
810  T270:;{object V85;  T352:;{object V103;
811          V85= make_fixnum(V80);          V103= CMPmake_fixnum(V98);
812          V80= (*(LnkLI93))(0);          V98= (*(LnkLI94))(0);
813          V86 = make_fixnum(V80);          V104 = CMPmake_fixnum(V98);
814          V83= list(2,V85,V86);}          V101= list(2,V103,V104);}
815          if(((V82))==Cnil){          if(((V100))==Cnil){
816          goto T279;}          goto T361;}
817          {register object V87;          {register object V105;
818          register object V88;          register object V106;
819          V87= (V82);          V105= (V100);
820          V82= make_cons((V83),Cnil);          V100= make_cons((V101),Cnil);
821          V88= (V82);          V106= (V100);
822          if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));          ((V105))->c.c_cdr = (V106);
823          ((V87))->c.c_cdr = (V88);          goto T359;}
824          goto T277;}  T361:;
825  T279:;          V100= make_cons((V101),Cnil);
826          V82= make_cons((V83),Cnil);          V99= (V100);
827          V81= (V82);  T359:;
828  T277:;          goto T350;
829          goto T268;  T351:;
830  T269:;          base[3]= (V99);
         base[3]= (V81);  
831          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
832          bds_unwind1;          bds_unwind1;
833          return;          return;
# Line 731  T269:; Line 846  T269:;
846  static L12()  static L12()
847  {register object *base=vs_base;  {register object *base=vs_base;
848          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
849          vs_reserve(VM12);          vs_check;
         check_arg(2);  
850          vs_top=sup;          vs_top=sup;
851          {object V89=base[0]->c.c_cdr;          {object V107=base[0]->c.c_cdr;
852          if(endp(V89))invalid_macro_call();          base[2]= (V107->c.c_car);
853          base[2]= (V89->c.c_car);          V107=V107->c.c_cdr;
854          V89=V89->c.c_cdr;          base[3]= (V107->c.c_car);}
855          if(endp(V89))invalid_macro_call();          base[4]= base[2];
856          base[3]= (V89->c.c_car);          base[5]= VV[28];
857          V89=V89->c.c_cdr;          vs_top=(vs_base=base+4)+2;
858          if(!endp(V89))invalid_macro_call();}          (void) (*Lnk99)();
859          V90= (VFUN_NARGS=2,(*(LnkLI98))(base[2],VV[28]));          vs_top=sup;
860          base[4]= list(3,VV[27],/* INLINE-ARGS */V90,base[3]);          V108= vs_base[0];
861            base[4]= list(3,VV[27],V108,base[3]);
862          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
863          return;          return;
864  }  }
# Line 752  static L12() Line 867  static L12()
867  static L13()  static L13()
868  {register object *base=vs_base;  {register object *base=vs_base;
869          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
870          vs_reserve(VM13);          vs_check;
871          {object V91;          {object V109;
872          check_arg(1);          V109=(base[0]);
         V91=(base[0]);  
873          vs_top=sup;          vs_top=sup;
874  TTL:;  TTL:;
875          base[1]= number_plus(car(cadr(cddddr((V91)))),cadr((V91)));          base[1]= number_plus(CMPcar(CMPcadr(CMPcddddr((V109)))),CMPcadr((V109)));
876          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
877          return;          return;
878          }          }
# Line 768  TTL:; Line 882  TTL:;
882  static L14()  static L14()
883  {register object *base=vs_base;  {register object *base=vs_base;
884          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
885          vs_reserve(VM14);          vs_check;
886          bds_check;          bds_check;
887          {register object V92;          {register object V110;
888          check_arg(1);          V110=(base[0]);
         V92=(base[0]);  
889          vs_top=sup;          vs_top=sup;
890  TTL:;  TTL:;
891          {object V93;          {object V111;
892          register object V94;          register object V112;
893          V93= Cnil;          V111= Cnil;
894          V94= Cnil;          V112= Cnil;
895          if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){          if(!(((VV[29]->s.s_dbind))==((VV[30]->s.s_dbind)))){
896          goto T292;}          goto T377;}
897          goto T291;          goto T376;
898  T292:;  T377:;
899          setq(VV[29],symbol_value(VV[30]));          (VV[29]->s.s_dbind)= (VV[30]->s.s_dbind);
900          base[1]= symbol_value(VV[30]);          base[1]= (VV[30]->s.s_dbind);
901          base[2]= VV[32];          base[2]= VV[32];
902          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
903          (void) (*Lnk100)();          (void) (*Lnk101)();
904          vs_top=sup;          vs_top=sup;
905          V95= vs_base[0];          V113= vs_base[0];
906          setq(VV[31],make_cons(V95,symbol_value(VV[31])));          (VV[31]->s.s_dbind)= make_cons(V113,(VV[31]->s.s_dbind));
907          base[1]= symbol_value(VV[31]);          base[1]= (VV[31]->s.s_dbind);
908          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
909          (void) (*Lnk104)();          (void) (*Lnk105)();
910          vs_top=sup;          vs_top=sup;
911          setq(VV[31],vs_base[0]);          (VV[31]->s.s_dbind)= vs_base[0];
912  T291:;  T376:;
913          if(!(equal((V92),VV[33]))){          if(!(equal((V110),VV[33]))){
914          goto T303;}          goto T388;}
915          V92= VV[34];          V110= VV[34];
916  T303:;  T388:;
917          base[1]= (V92);          base[1]= (V110);
918          base[2]= symbol_value(VV[31]);          base[2]= (VV[31]->s.s_dbind);
919          base[3]= VV[35];          base[3]= VV[35];
920          base[4]= Cnil;          base[4]= Cnil;
921          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
922          (void) (*Lnk105)();          (void) (*Lnk106)();
923          vs_top=sup;          vs_top=sup;
924          V94= vs_base[0];          V112= vs_base[0];
925          if(((V94))!=Cnil){          if(((V112))!=Cnil){
926          goto T313;}          goto T398;}
927          if(equal((V92),VV[36])){          if(equal((V110),VV[36])){
928          goto T313;}          goto T398;}
929          {object V96;          {object V114;
930          base[3]= VV[37];          base[3]= VV[37];
931          base[4]= Cnil;          base[4]= Cnil;
932          base[5]= Cnil;          base[5]= Cnil;
933          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
934          (void) (*Lnk102)();          (void) (*Lnk103)();
935          vs_top=sup;          vs_top=sup;
936          V96= vs_base[0];          V114= vs_base[0];
937          bds_bind(VV[10],Cnil);          bds_bind(VV[10],Cnil);
938          base[3]= VV[38];          base[3]= VV[38];
939          base[5]= (V92);          base[5]= (V110);
940          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
941          (void) (*Lnk99)();          (void) (*Lnk100)();
942          vs_top=sup;          vs_top=sup;
943          base[4]= vs_base[0];          base[4]= vs_base[0];
944          base[5]= VV[39];          base[5]= VV[39];
945          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
946          (void) (*Lnk100)();          (void) (*Lnk101)();
947          vs_top=sup;          vs_top=sup;
948          V97= vs_base[0];          V115= vs_base[0];
949          {int V98= fix((VFUN_NARGS=2,(*(LnkLI92))(V97,(V96))));          {int V116= fix((VFUN_NARGS=2,(*(LnkLI93))(V115,(V114))));
950          if(!((/* INLINE-ARGS */V98)>=(0))){          if(!((/* INLINE-ARGS */V116)>=(0))){
951          bds_unwind1;          bds_unwind1;
952          goto T313;}}          goto T398;}}
953          base[3]= (V96);          base[3]= (V114);
954          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
955          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
956          (void) (*Lnk96)();          (void) (*Lnk97)();
957          vs_top=sup;          vs_top=sup;
958          V94= vs_base[0];          V112= vs_base[0];
959          bds_unwind1;}          bds_unwind1;}
960  T313:;  T398:;
961          if(((V94))==Cnil){          if(((V112))==Cnil){
962          goto T334;}          goto T419;}
963          {object V99;          {object V117;
964          base[3]= (V94);          base[3]= (V112);
965          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
966          Ltruename();          Ltruename();
967          vs_top=sup;          vs_top=sup;
# Line 856  T313:; Line 969  T313:;
969          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
970          Lnamestring();          Lnamestring();
971          vs_top=sup;          vs_top=sup;
972          V99= vs_base[0];          V117= vs_base[0];
973          {register object x= (V99),V100= symbol_value(VV[40]);          {register object x= (V117),V118= (VV[40]->s.s_dbind);
974          while(!endp(V100))          while(V118!=Cnil)
975          if(type_of(V100->c.c_car)==t_cons &&equal(x,V100->c.c_car->c.c_car)){          if(equal(x,V118->c.c_car->c.c_car) &&V118->c.c_car != Cnil){
976          V93= (V100->c.c_car);          V111= (V118->c.c_car);
977          goto T342;          goto T427;
978          }else V100=V100->c.c_cdr;          }else V118=V118->c.c_cdr;
979          V93= Cnil;}          V111= Cnil;}
980  T342:;  T427:;
981          if(((V93))==Cnil){          if(((V111))==Cnil){
982          goto T340;}          goto T425;}
983          setq(VV[20],(V93));          (VV[20]->s.s_dbind)= (V111);
984          goto T332;          goto T417;
985  T340:;  T425:;
986          base[2]= (V99);          base[2]= (V117);
987          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
988          (void) (*Lnk106)();          (void) (*Lnk107)();
989          vs_top=sup;          vs_top=sup;
990          V101= vs_base[0];          V119= vs_base[0];
991          setq(VV[20],list(3,(V99),V101,Cnil));          (VV[20]->s.s_dbind)= list(3,(V117),V119,Cnil);
992          setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40])));          (VV[40]->s.s_dbind)= make_cons((VV[20]->s.s_dbind),(VV[40]->s.s_dbind));
993          goto T332;}          goto T417;}
994  T334:;  T419:;
995          base[1]= Ct;          base[1]= Ct;
996          base[2]= VV[41];          base[2]= VV[41];
997          base[3]= (V92);          base[3]= (V110);
998          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
999          Lformat();          Lformat();
1000          vs_top=sup;          vs_top=sup;
1001  T332:;  T417:;
1002          base[1]= Cnil;          base[1]= Cnil;
1003          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1004          return;}          return;}
# Line 896  T332:; Line 1009  T332:;
1009  static L15()  static L15()
1010  {register object *base=vs_base;  {register object *base=vs_base;
1011          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
1012          vs_reserve(VM15);          vs_check;
1013          {object V102;          {object V120;
1014          object V103;          object V121;
1015          check_arg(2);          V120=(base[0]);
1016          V102=(base[0]);          V121=(base[1]);
         V103=(base[1]);  
1017          vs_top=sup;          vs_top=sup;
1018  TTL:;  TTL:;
1019          if(!(eql((V103),VV[42]))){          if(!(eql((V121),VV[42]))){
1020          goto T353;}          goto T438;}
1021          base[2]= (V102);          base[2]= (V120);
1022          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1023          (void) (*Lnk107)();          (void) (*Lnk108)();
1024          return;          return;
1025  T353:;  T438:;
1026          base[2]= (V102);          base[2]= (V120);
1027          base[3]= car(cadr(symbol_value(VV[20])));          base[3]= CMPcar(CMPcadr((VV[20]->s.s_dbind)));
1028          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1029          (void) (*Lnk101)();          (void) (*Lnk102)();
1030          return;          return;
1031          }          }
1032  }  }
# Line 923  T353:; Line 1035  T353:;
1035  static L16()  static L16()
1036  {register object *base=vs_base;  {register object *base=vs_base;
1037          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1038          vs_reserve(VM16);          vs_check;
1039          {object V104;          {object V122;
1040          register object V105;          register object V123;
1041          check_arg(2);          V122=(base[0]);
1042          V104=(base[0]);          V123=(base[1]);
         V105=(base[1]);  
1043          vs_top=sup;          vs_top=sup;
1044  TTL:;  TTL:;
1045          {register object V106;          {register object V124;
1046          V106= (V104);          V124= (V122);
1047  T361:;  T446:;
1048          if((V106)!=Cnil){          if((V124)!=Cnil){
1049          goto T363;}          goto T448;}
1050          goto T362;          goto T447;
1051  T363:;  T448:;
1052          {register object V107;          {register object V125;
1053          register object V108;          register object V126;
1054          V107= (V106);          V125= (V124);
1055          V108= list(2,car((V106)),(V105));          V126= list(2,CMPcar((V124)),(V123));
1056          if(type_of((V107))!=t_cons)FEwrong_type_argument(Scons,(V107));          ((V125))->c.c_car = (V126);}
1057          ((V107))->c.c_car = (V108);}          V124= CMPcdr((V124));
1058          V106= cdr((V106));          goto T446;
1059          goto T361;  T447:;
1060  T362:;          goto T444;
1061          goto T359;          goto T444;
1062          goto T359;  T444:;
1063  T359:;          base[2]= (V122);
         base[2]= (V104);  
1064          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1065          return;}          return;}
1066          }          }
# Line 960  T359:; Line 1070  T359:;
1070  static L17()  static L17()
1071  {register object *base=vs_base;  {register object *base=vs_base;
1072          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1073          vs_reserve(VM17);          vs_check;
1074          {object V109;          {object V127;
1075          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1076          {object *p=vs_top;          {object *p=vs_top;
1077           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1078          V109=(base[0]);          V127=(base[0]);
1079          vs_top=sup;          vs_top=sup;
1080          if((symbol_value(VV[43]))==Cnil){          if(((VV[43]->s.s_dbind))==Cnil){
1081          goto T372;}          goto T457;}
1082          base[2]= Cnil;          base[2]= Cnil;
1083          {object V110;          {object V128;
1084          V110= (V109);          V128= (V127);
1085           vs_top=base+3;           vs_top=base+3;
1086           while(!endp(V110))           while(V128!=Cnil)
1087           {vs_push(car(V110));V110=cdr(V110);}           {vs_push((V128)->c.c_car);V128=(V128)->c.c_cdr;}
1088          vs_base=base+2;}          vs_base=base+2;}
1089          Lformat();          Lformat();
1090          vs_top=sup;          vs_top=sup;
1091          base[1]= vs_base[0];          base[1]= vs_base[0];
1092          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1093          (void) (*Lnk108)();          (void) (*Lnk109)();
1094          return;          return;
1095  T372:;  T457:;
1096          {object V111;          {object V129;
1097          V111= (V109);          V129= (V127);
1098           vs_top=base+1;           vs_top=base+1;
1099           while(!endp(V111))           while(V129!=Cnil)
1100           {vs_push(car(V111));V111=cdr(V111);}           {vs_push((V129)->c.c_car);V129=(V129)->c.c_cdr;}
1101          vs_base=base+1;}          vs_base=base+1;}
1102          Lerror();          Lerror();
1103          return;          return;
# Line 998  T372:; Line 1108  T372:;
1108  static L18()  static L18()
1109  {register object *base=vs_base;  {register object *base=vs_base;
1110          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1111          vs_reserve(VM18);          vs_check;
1112          {register object V112;          {register object V130;
1113          check_arg(1);          V130=(base[0]);
         V112=(base[0]);  
1114          vs_top=sup;          vs_top=sup;
1115  TTL:;  TTL:;
1116          base[1]= (V112);          base[1]= (V130);
1117          base[2]= car(symbol_value(VV[20]));          base[2]= CMPcar((VV[20]->s.s_dbind));
1118          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1119          Lmerge_pathnames();          Lmerge_pathnames();
1120          vs_top=sup;          vs_top=sup;
1121          V112= vs_base[0];          V130= vs_base[0];
1122          if(!(equal(car(symbol_value(VV[44])),(V112)))){          if(!(equal(CMPcar((VV[44]->s.s_dbind)),(V130)))){
1123          goto T384;}          goto T469;}
1124          V113= symbol_value(VV[44]);          V131= (VV[44]->s.s_dbind);
1125          goto T382;          goto T467;
1126  T384:;  T469:;
1127          base[1]= (V112);          base[1]= (V130);
1128          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1129          (void) (*Lnk91)();          (void) (*Lnk92)();
1130          vs_top=sup;          vs_top=sup;
1131          V114= vs_base[0];          V132= vs_base[0];
1132          setq(VV[44],make_cons((V112),V114));          (VV[44]->s.s_dbind)= make_cons((V130),V132);
1133          V113= symbol_value(VV[44]);          V131= (VV[44]->s.s_dbind);
1134  T382:;  T467:;
1135          base[1]= cdr(V113);          base[1]= CMPcdr(V131);
1136          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1137          return;          return;
1138          }          }
# Line 1033  T382:; Line 1142  T382:;
1142  static L19()  static L19()
1143  {register object *base=vs_base;  {register object *base=vs_base;
1144          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1145          vs_reserve(VM19);          vs_check;
1146          {object V115;          {object V133;
1147          check_arg(1);          V133=(base[0]);
         V115=(base[0]);  
1148          vs_top=sup;          vs_top=sup;
1149  TTL:;  TTL:;
1150          if(symbol_value(VV[43])==Cnil){          if((VV[43]->s.s_dbind)==Cnil){
1151          base[1]= Cnil;          base[1]= Cnil;
1152          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1153          return;}          return;}
1154          base[1]= (V115);          base[1]= (V133);
1155          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1156          Lfboundp();          Lfboundp();
1157          vs_top=sup;          vs_top=sup;
1158          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1159          goto T389;}          goto T474;}
1160          base[1]= Cnil;          base[1]= Cnil;
1161          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1162          return;          return;
1163  T389:;  T474:;
1164          base[1]= VV[45];          base[1]= VV[45];
1165          base[2]= (V115);          base[2]= (V133);
1166          base[3]= VV[46];          base[3]= VV[46];
1167          base[4]= VV[47];          base[4]= VV[47];
1168          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1169          (void) (*Lnk109)();          (void) (*Lnk110)();
1170          vs_top=sup;          vs_top=sup;
1171          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1172          goto T392;}          goto T477;}
1173          base[1]= Cnil;          base[1]= Cnil;
1174          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1175          return;          return;
1176  T392:;  T477:;
1177          base[1]= VV[48];          base[1]= VV[48];
1178          base[2]= VV[49];          base[2]= VV[49];
1179          base[3]= VV[50];          base[3]= VV[50];
1180          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1181          super_funcall_no_event((V115));          super_funcall_no_event((V133));
1182          return;          return;
1183          }          }
1184  }  }
# Line 1079  T392:; Line 1187  T392:;
1187  static L20()  static L20()
1188  {register object *base=vs_base;  {register object *base=vs_base;
1189          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1190          vs_reserve(VM20);          vs_check;
1191          {object V116;          {object V134;
1192          check_arg(1);          V134=(base[0]);
         V116=(base[0]);  
1193          vs_top=sup;          vs_top=sup;
1194  TTL:;  TTL:;
1195          base[1]= (V116);          base[1]= (V134);
1196          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1197          Lfboundp();          Lfboundp();
1198          vs_top=sup;          vs_top=sup;
1199          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1200          goto T401;}          goto T486;}
1201          base[1]= Cnil;          base[1]= Cnil;
1202          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1203          return;          return;
1204  T401:;  T486:;
1205          base[1]= VV[48];          base[1]= VV[48];
1206          base[2]= VV[49];          base[2]= VV[49];
1207          base[3]= VV[51];          base[3]= VV[51];
1208          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1209          super_funcall_no_event((V116));          super_funcall_no_event((V134));
1210          return;          return;
1211          }          }
1212  }  }
# Line 1108  T401:; Line 1215  T401:;
1215  static L21()  static L21()
1216  {register object *base=vs_base;  {register object *base=vs_base;
1217          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1218          vs_reserve(VM21);          vs_check;
1219          {register object V117;          {register object V135;
1220          check_arg(1);          V135=(base[0]);
1221          V117=(base[0]);          vs_top=sup;
1222          vs_top=sup;  TTL:;
1223  TTL:;          {object V136;
1224          {object V118;          register object V137;
1225          register object V119;          register object V138;
1226          register object V120;          V136= CMPcdr(CMPcadr((VV[20]->s.s_dbind)));
1227          V118= cdr(cadr(symbol_value(VV[20])));          V137= Cnil;
1228          V119= Cnil;          V138= Cnil;
1229          V120= Cnil;          if((V136)==Cnil){
1230          if((V118)==Cnil){          goto T493;}
1231          goto T408;}          if(number_compare((V135),small_fixnum(0))>=0){
1232          if(number_compare((V117),small_fixnum(0))>=0){          goto T494;}
1233          goto T409;}          goto T493;
1234          goto T408;  T494:;
1235  T409:;          {register object V139;
1236          {register object V121;          register object V140;
1237          register object V122;          V139= (V136);
1238          V121= (V118);          V140= CMPcar((V139));
1239          V122= car((V121));  T499:;
1240  T414:;          if(!(((V139))==Cnil)){
1241          if(!(endp((V121)))){          goto T500;}
1242          goto T415;}          goto T493;
1243          goto T408;  T500:;
1244  T415:;          if(!(number_compare(CMPcar((V140)),(V135))>0)){
1245          if(!(number_compare(car((V122)),(V117))>0)){          goto T504;}
1246          goto T419;}          V138= CMPcar((V140));
1247          V120= car((V122));          goto T493;
1248          goto T408;  T504:;
1249  T419:;          V137= (V140);
1250          V119= (V122);          V139= CMPcdr((V139));
1251          V121= cdr((V121));          V140= CMPcar((V139));
1252          V122= car((V121));          goto T499;}
1253          goto T414;}  T493:;
1254  T408:;          if((V137)!=Cnil){
1255          if((V119)!=Cnil){          base[1]= (V137);
1256          base[1]= (V119);          goto T516;}
1257          goto T431;}          base[1]= make_cons(small_fixnum(0),CMPcar((VV[20]->s.s_dbind)));
1258          base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20])));  T516:;
1259  T431:;          base[2]= (V138);
         base[2]= (V120);  
1260          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1261          return;}          return;}
1262          }          }
# Line 1160  T431:; Line 1266  T431:;
1266  static L22()  static L22()
1267  {register object *base=vs_base;  {register object *base=vs_base;
1268          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1269          vs_reserve(VM22);          vs_check;
1270          {object V123;          {object V141;
1271          check_arg(1);          V141=(base[0]);
         V123=(base[0]);  
1272          vs_top=sup;          vs_top=sup;
1273  TTL:;  TTL:;
1274          {register object V124;          {register object V142;
1275          V124= small_fixnum(0);          V142= small_fixnum(0);
1276          {object V125;          {object V143;
1277          register object V126;          register object V144;
1278          register object V127;          register object V145;
1279          base[4]= (V123);          base[4]= (V141);
1280          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1281          (void) (*Lnk110)();          (void) (*Lnk111)();
1282          vs_top=sup;          vs_top=sup;
1283          V125= vs_base[0];          V143= vs_base[0];
1284          base[4]= cdr((V125));          base[4]= CMPcdr((V143));
1285          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1286          (void) (*Lnk111)();          (void) (*Lnk112)();
1287          vs_top=sup;          vs_top=sup;
1288          V126= vs_base[0];          V144= vs_base[0];
1289          V127= number_minus((V123),car((V125)));          V145= number_minus((V141),CMPcar((V143)));
1290  T441:;  T526:;
1291          {int V128= fix((VFUN_NARGS=4,(*(LnkLI92))(VV[52],(V126),(V124),(V127))));          {int V146= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V144),(V142),(V145))));
1292          if(!((/* INLINE-ARGS */V128)>=(0))){          if(!((/* INLINE-ARGS */V146)>=(0))){
1293          goto T444;}}          goto T529;}}
1294          goto T443;          goto T528;
1295  T444:;  T529:;
1296          goto T442;          goto T527;
1297  T443:;  T528:;
1298          V124= make_fixnum((*(LnkLI93))(0));          V142= CMPmake_fixnum((*(LnkLI94))(0));
1299          goto T441;          goto T526;
1300  T442:;  T527:;
1301          goto T439;          goto T524;
1302          goto T439;          goto T524;
1303  T439:;  T524:;
1304          V124= number_minus((V124),small_fixnum(1));          V142= number_minus((V142),small_fixnum(1));
1305          {int V129= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[53],(V126),(V124))));          {int V147= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V144),(V142))));
1306          if(!((/* INLINE-ARGS */V129)>=(0))){          if(!((/* INLINE-ARGS */V147)>=(0))){
1307          goto T452;}}          goto T537;}}
1308          {object V130;          {object V148;
1309          object V131;          object V149;
1310          object V132;          object V150;
1311          object V133;          object V151;
1312          object V134;          object V152;
1313          V130= make_fixnum((*(LnkLI94))(0));          V148= CMPmake_fixnum((*(LnkLI95))(0));
1314          V131= make_fixnum((*(LnkLI93))(0));          V149= CMPmake_fixnum((*(LnkLI94))(0));
1315          base[9]= (V126);          base[9]= (V144);
1316          base[10]= small_fixnum(1);          base[10]= small_fixnum(1);
1317          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
1318          (void) (*Lnk96)();          (void) (*Lnk97)();
1319          vs_top=sup;          vs_top=sup;
1320          V132= vs_base[0];          V150= vs_base[0];
1321          {int V135= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[54],(V126),(V131))));          {int V153= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[54],(V144),(V149))));
1322          if(!((/* INLINE-ARGS */V135)>=(0))){          if(!((/* INLINE-ARGS */V153)>=(0))){
1323          goto T461;}}          goto T546;}}
1324          V133= make_fixnum((*(LnkLI94))(0));          V151= CMPmake_fixnum((*(LnkLI95))(0));
1325          goto T459;          goto T544;
1326  T461:;  T546:;
1327          V133= make_fixnum(length((V126)));          V151= CMPmake_fixnum(length((V144)));
1328  T459:;  T544:;
1329          V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20]));          V152= listA(7,(V144),(V149),(V151),(V148),(V150),(V143),(VV[20]->s.s_dbind));
1330          base[9]= (V134);          base[9]= (V152);
1331          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1332          return;}          return;}
1333  T452:;  T537:;
1334          base[4]= Cnil;          base[4]= Cnil;
1335          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1336          return;}}          return;}}
# Line 1236  T452:; Line 1341  T452:;
1341  static L23()  static L23()
1342  {register object *base=vs_base;  {register object *base=vs_base;
1343          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
1344          vs_reserve(VM23);          vs_check;
1345          bds_check;          bds_check;
1346          {register object V136;          {register object V154;
1347          register object V137;          register object V155;
1348          object V138;          object V156;
1349          if(vs_top-vs_base<1) too_few_arguments();          V154=(base[0]);
         if(vs_top-vs_base>3) too_many_arguments();  
         V136=(base[0]);  
1350          vs_base=vs_base+1;          vs_base=vs_base+1;
1351          if(vs_base>=vs_top){vs_top=sup;goto T464;}          if(vs_base>=vs_top){vs_top=sup;goto T549;}
1352          V137=(base[1]);          V155=(base[1]);
1353          vs_base++;          vs_base++;
1354          if(vs_base>=vs_top){vs_top=sup;goto T465;}          if(vs_base>=vs_top){vs_top=sup;goto T550;}
1355          V138=(base[2]);          V156=(base[2]);
1356          vs_top=sup;          vs_top=sup;
1357          goto T466;          goto T551;
1358  T464:;  T549:;
1359          V137= Cnil;          V155= Cnil;
1360  T465:;  T550:;
1361          V138= symbol_value(VV[43]);          V156= (VV[43]->s.s_dbind);
1362  T466:;  T551:;
1363          {register object V139;          {register object V157;
1364          register object V140;          register object V158;
1365          register int V141;          register int V159;
1366          int V142;          int V160;
1367          V139= Cnil;          V157= Cnil;
1368          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
1369          V140= Cnil;          V158= Cnil;
1370          V141= 0;          V159= 0;
1371          V142= -1;          V160= -1;
1372          if(!(type_of((V136))==t_cons)){          if(!(type_of((V154))==t_cons)){
1373          goto T474;}          goto T559;}
1374          if(!(type_of(cdr((V136)))==t_cons)){          if(!(type_of(CMPcdr((V154)))==t_cons)){
1375          goto T474;}          goto T559;}
1376          V140= cadr((V136));          V158= CMPcadr((V154));
1377          V136= car((V136));          V154= CMPcar((V154));
1378  T474:;  T559:;
1379          if(!(type_of((V136))==t_cons)){          if(!(type_of((V154))==t_cons)){
1380          goto T473;}          goto T558;}
1381          V137= car((V136));          V155= CMPcar((V154));
1382          V136= cdr((V136));          V154= CMPcdr((V154));
1383  T473:;  T558:;
1384          if(!(type_of((V136))==t_string)){          if(!(type_of((V154))==t_string)){
1385          goto T488;}          goto T573;}
1386          goto T487;          goto T572;
1387  T488:;  T573:;
1388          base[4]= VV[55];          base[4]= VV[55];
1389          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1390          (void) (*Lnk97)();          (void) (*Lnk98)();
1391          vs_top=sup;          vs_top=sup;
1392  T487:;  T572:;
1393          base[4]= symbol_value(VV[56]);          base[4]= (VV[56]->s.s_dbind);
1394          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1395          (void) (*Lnk112)();          (void) (*Lnk113)();
1396          vs_top=sup;          vs_top=sup;
1397          {int V143= fix((VFUN_NARGS=2,(*(LnkLI92))(VV[57],(V136))));          {int V161= fix((VFUN_NARGS=2,(*(LnkLI93))(VV[57],(V154))));
1398          if(!((/* INLINE-ARGS */V143)>=(0))){          if(!((/* INLINE-ARGS */V161)>=(0))){
1399          goto T493;}}          goto T578;}}
1400          base[4]= (V136);          base[4]= (V154);
1401          base[5]= small_fixnum(1);          base[5]= small_fixnum(1);
1402          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1403          (void) (*Lnk96)();          (void) (*Lnk97)();
1404          vs_top=sup;          vs_top=sup;
1405          V140= vs_base[0];          V158= vs_base[0];
1406          base[4]= (V136);          base[4]= (V154);
1407          base[5]= small_fixnum(2);          base[5]= small_fixnum(2);
1408          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1409          (void) (*Lnk96)();          (void) (*Lnk97)();
1410          vs_top=sup;          vs_top=sup;
1411          V136= vs_base[0];          V154= vs_base[0];
1412          if(!(equal((V136),VV[58]))){          if(!(equal((V154),VV[58]))){
1413          goto T493;}          goto T578;}
1414          V136= VV[59];          V154= VV[59];
1415  T493:;  T578:;
1416          if(((V140))==Cnil){          if(((V158))==Cnil){
1417          goto T507;}          goto T592;}
1418          base[4]= (V140);          base[4]= (V158);
1419          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1420          (void) (*Lnk113)();          (void) (*Lnk114)();
1421          vs_top=sup;          vs_top=sup;
1422  T507:;  T592:;
1423          {object V144;          {object V162;
1424          base[4]= (V136);          base[4]= (V154);
1425          base[5]= car(cadr(symbol_value(VV[20])));          base[5]= CMPcar(CMPcadr((VV[20]->s.s_dbind)));
1426          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1427          (void) (*Lnk114)();          (void) (*Lnk115)();
1428          vs_top=sup;          vs_top=sup;
1429          V144= vs_base[0];          V162= vs_base[0];
1430          if(((V144))!=Cnil){          if(((V162))!=Cnil){
1431          goto T514;}          goto T599;}
1432          base[4]= Ct;          base[4]= Ct;
1433          base[5]= VV[60];          base[5]= VV[60];
1434          base[6]= (V136);          base[6]= (V154);
1435          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1436          Lformat();          Lformat();
1437          vs_top=sup;          vs_top=sup;
# Line 1336  T507:; Line 1439  T507:;
1439          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1440          bds_unwind1;          bds_unwind1;
1441          return;          return;
1442  T514:;  T599:;
1443          base[4]= (V144);          base[4]= (V162);
1444          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1445          (void) (*Lnk110)();          (void) (*Lnk111)();
1446          vs_top=sup;          vs_top=sup;
1447          V139= vs_base[0];          V157= vs_base[0];
1448          {register object V145;          {register object V163;
1449          object V146;          object V164;
1450          base[6]= cdr((V139));          base[6]= CMPcdr((V157));
1451          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1452          (void) (*Lnk111)();          (void) (*Lnk112)();
1453          vs_top=sup;          vs_top=sup;
1454          V145= vs_base[0];          V163= vs_base[0];
1455          V146= number_minus((V144),car((V139)));          V164= number_minus((V162),CMPcar((V157)));
1456          base[6]= VV[61];          base[6]= VV[61];
1457          base[8]= (V136);          base[8]= (V154);
1458          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1459          (void) (*Lnk99)();          (void) (*Lnk100)();
1460          vs_top=sup;          vs_top=sup;
1461          base[7]= vs_base[0];          base[7]= vs_base[0];
1462          base[8]= VV[62];          base[8]= VV[62];
1463          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1464          (void) (*Lnk100)();          (void) (*Lnk101)();
1465          vs_top=sup;          vs_top=sup;
1466          V147= vs_base[0];          V165= vs_base[0];
1467          {int V148= fix((VFUN_NARGS=3,(*(LnkLI92))(V147,(V145),(V146))));          {int V166= fix((VFUN_NARGS=3,(*(LnkLI93))(V165,(V163),(V164))));
1468          if(!((/* INLINE-ARGS */V148)>=(0))){          if(!((/* INLINE-ARGS */V166)>=(0))){
1469          goto T528;}}          goto T613;}}
1470          {object V149;          {object V167;
1471          register object V150;          register object V168;
1472          register object V151;          register object V169;
1473          object V152;          object V170;
1474          V149= make_fixnum((*(LnkLI94))(0));          V167= CMPmake_fixnum((*(LnkLI95))(0));
1475          V150= make_fixnum((*(LnkLI93))(0));          V168= CMPmake_fixnum((*(LnkLI94))(0));
1476          {int V153= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[63],(V145),(V150))));          {int V171= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[63],(V163),(V168))));
1477          if(!((/* INLINE-ARGS */V153)>=(0))){          if(!((/* INLINE-ARGS */V171)>=(0))){
1478          goto T539;}}          goto T624;}}
1479          V151= make_fixnum((*(LnkLI94))(0));          V169= CMPmake_fixnum((*(LnkLI95))(0));
1480          goto T537;          goto T622;
1481  T539:;  T624:;
1482          V151= make_fixnum(length((V145)));          V169= CMPmake_fixnum(length((V163)));
1483  T537:;  T622:;
1484          V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20]));          V170= listA(7,(V163),(V168),(V169),(V167),(V154),(V157),(VV[20]->s.s_dbind));
1485          if(((V137))==Cnil){          if(((V155))==Cnil){
1486          goto T542;}          goto T627;}
1487          base[10]= (V137);          base[10]= (V155);
1488          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1489          (void) (*Lnk99)();          (void) (*Lnk100)();
1490          vs_top=sup;          vs_top=sup;
1491          V137= vs_base[0];          V155= vs_base[0];
1492          bds_bind(VV[10],Cnil);          bds_bind(VV[10],Cnil);
1493          base[11]= VV[64];          base[11]= VV[64];
1494          base[12]= (V137);          base[12]= (V155);
1495          base[13]= VV[65];          base[13]= VV[65];
1496          vs_top=(vs_base=base+11)+3;          vs_top=(vs_base=base+11)+3;
1497          (void) (*Lnk100)();          (void) (*Lnk101)();
1498          vs_top=sup;          vs_top=sup;
1499          V154= vs_base[0];          V172= vs_base[0];
1500          V142= fix((VFUN_NARGS=4,(*(LnkLI92))(V154,(V145),(V150),(V151))));          V160= fix((VFUN_NARGS=4,(*(LnkLI93))(V172,(V163),(V168),(V169))));
1501          if((V142)>=(0)){          if((V160)>=(0)){
1502          goto T548;}          goto T633;}
1503          {int V155= fix((VFUN_NARGS=4,(*(LnkLI92))((V137),(V145),(V150),(V151))));          {int V173= fix((VFUN_NARGS=4,(*(LnkLI93))((V155),(V163),(V168),(V169))));
1504          if(!((/* INLINE-ARGS */V155)>=(0))){          if(!((/* INLINE-ARGS */V173)>=(0))){
1505          bds_unwind1;          bds_unwind1;
1506          goto T542;}}          goto T627;}}
1507  T548:;  T633:;
1508          V156 = make_fixnum((*(LnkLI94))(0));          V174 = CMPmake_fixnum((*(LnkLI95))(0));
1509          V141= fix(number_minus(V156,(V150)));          V159= fix(number_minus(V174,(V168)));
1510          bds_unwind1;          bds_unwind1;
1511  T542:;  T627:;
1512          if(((V138))==Cnil){          if(((V156))==Cnil){
1513          goto T559;}          goto T644;}
1514          {object V157;          {object V175;
1515          base[10]= (V152);          base[10]= (V170);
1516          base[11]= make_fixnum(V141);          base[11]= CMPmake_fixnum(V159);
1517          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
1518          (void) (*Lnk115)();          (void) (*Lnk116)();
1519          vs_top=sup;          vs_top=sup;
1520          V157= vs_base[0];          V175= vs_base[0];
1521          base[10]= symbol_value(VV[56]);          base[10]= (VV[56]->s.s_dbind);
1522          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1523          (void) (*Lnk116)();          (void) (*Lnk117)();
1524          vs_top=sup;          vs_top=sup;
1525          base[10]= (V157);          base[10]= (V175);
1526          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1527          bds_unwind1;          bds_unwind1;
1528          return;}          return;}
1529  T559:;  T644:;
1530          {object V158;          {object V176;
1531          if(!((V142)>=(0))){          if(!((V160)>=(0))){
1532          goto T568;}          goto T653;}
1533          base[10]= (V150);          base[10]= (V168);
1534          base[11]= small_fixnum(1);          base[11]= small_fixnum(1);
1535          base[12]= make_fixnum(V141);          base[12]= CMPmake_fixnum(V159);
1536          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
1537          Lplus();          Lplus();
1538          vs_top=sup;          vs_top=sup;
1539          V159= vs_base[0];          V177= vs_base[0];
1540          {int V160= fix((VFUN_NARGS=4,(*(LnkLI92))(VV[66],(V145),V159,(V151))));          {int V178= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[66],(V163),V177,(V169))));
1541          if(!((/* INLINE-ARGS */V160)>=(0))){          if(!((/* INLINE-ARGS */V178)>=(0))){
1542          goto T568;}}          goto T653;}}
1543          V158= make_fixnum((*(LnkLI94))(0));          V176= CMPmake_fixnum((*(LnkLI95))(0));
1544          goto T566;          goto T651;
1545  T568:;  T653:;
1546          V158= (V151);          V176= (V169);
1547  T566:;  T651:;
1548          base[10]= (V145);          base[10]= (V163);
1549          V161 = make_fixnum(V141);          V179 = CMPmake_fixnum(V159);
1550          base[11]= number_plus(V161,(V150));          base[11]= number_plus(V179,(V168));
1551          base[12]= (V158);          base[12]= (V176);
1552          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
1553          Lsubseq();          Lsubseq();
1554          bds_unwind1;          bds_unwind1;
1555          return;}}          return;}}
1556  T528:;  T613:;
1557          base[6]= VV[67];          base[6]= VV[67];
1558          base[7]= (V136);          base[7]= (V154);
1559          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1560          (void) (*Lnk97)();          (void) (*Lnk98)();
1561          vs_top=sup;          vs_top=sup;
1562          base[6]= symbol_value(VV[56]);          base[6]= (VV[56]->s.s_dbind);
1563          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1564          (void) (*Lnk116)();          (void) (*Lnk117)();
1565          bds_unwind1;          bds_unwind1;
1566          return;}}}          return;}}}
1567          }          }
# Line 1468  T528:; Line 1571  T528:;
1571  static L24()  static L24()
1572  {register object *base=vs_base;  {register object *base=vs_base;
1573          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1574          vs_reserve(VM24);          vs_check;
1575          {object V162;          {object V180;
1576          object V163;          object V181;
1577          check_arg(2);          V180=(base[0]);
1578          V162=(base[0]);          V181=(base[1]);
1579          V163=(base[1]);          vs_top=sup;
1580          vs_top=sup;  TTL:;
1581  TTL:;          {register object V182;
1582          {register object V164;          register object V183;
1583          register object V165;          V182= Cnil;
1584          V164= Cnil;          V183= (V181);
1585          V165= (V163);          {object V184;
1586          {object V166;          register object V185;
1587          register object V167;          register object V186;
1588          register object V168;          register object V187;
1589          register object V169;          V184= Cnil;
1590          V166= Cnil;          V185= Cnil;
1591          V167= Cnil;          V186= Cnil;
1592          V168= Cnil;          V187= Cnil;
1593          V169= Cnil;  T669:;
1594  T584:;          if(((V183))==Cnil){
1595          if(((V165))==Cnil){          goto T672;}
1596          goto T587;}          goto T671;
1597          goto T586;  T672:;
1598  T587:;          goto T670;
1599          goto T585;  T671:;
1600  T586:;          {object V188;
1601          {object V170;          V188= CMPcar((V183));
1602          V170= car((V165));          V182= (V188);}
1603          V164= (V170);}          base[2]= (V182);
         base[2]= (V164);  
1604          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1605          (void) (*Lnk113)();          (void) (*Lnk114)();
1606          vs_top=sup;          vs_top=sup;
1607          base[4]= (V162);          base[4]= (V180);
1608          base[5]= VV[68];          base[5]= VV[68];
1609          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1610          (void) (*Lnk117)();          (void) (*Lnk118)();
1611          vs_top=sup;          vs_top=sup;
1612          base[3]= vs_base[0];          base[3]= vs_base[0];
1613          base[4]= (V164);          base[4]= (V182);
1614          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1615          (void) (*Lnk118)();          (void) (*Lnk119)();
1616          vs_top=sup;          vs_top=sup;
1617          base[2]= vs_base[0];          base[2]= vs_base[0];
1618          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1619          Lcopy_list();          Lcopy_list();
1620          vs_top=sup;          vs_top=sup;
1621          V168= vs_base[0];          V186= vs_base[0];
1622          if(((V167))==Cnil){          if(((V185))==Cnil){
1623          goto T603;}          goto T688;}
1624          {register object V172;          {register object V190;
1625          V172= (V168);          V190= (V186);
1626          if(type_of(V167)!=t_cons)FEwrong_type_argument(Scons,V167);          (V185)->c.c_cdr = (V190);
1627          (V167)->c.c_cdr = (V172);          if(((V190))!=Cnil){
1628          if(((V172))!=Cnil){          goto T690;}}
1629          goto T605;}}          goto T686;
1630          goto T601;  T690:;
1631  T605:;          base[2]= CMPcdr((V185));
         base[2]= cdr((V167));  
1632          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1633          Llast();          Llast();
1634          vs_top=sup;          vs_top=sup;
1635          V167= vs_base[0];          V185= vs_base[0];
1636          goto T601;          goto T686;
1637  T603:;  T688:;
1638          V166= (V168);          V184= (V186);
1639          base[2]= (V166);          base[2]= (V184);
1640          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1641          Llast();          Llast();
1642          vs_top=sup;          vs_top=sup;
1643          V167= vs_base[0];          V185= vs_base[0];
1644  T601:;  T686:;
1645          base[4]= (V162);          base[4]= (V180);
1646          base[5]= VV[42];          base[5]= VV[42];
1647          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1648          (void) (*Lnk117)();          (void) (*Lnk118)();
1649          vs_top=sup;          vs_top=sup;
1650          base[3]= vs_base[0];          base[3]= vs_base[0];
1651          base[4]= (V164);          base[4]= (V182);
1652          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1653          (void) (*Lnk118)();          (void) (*Lnk119)();
1654          vs_top=sup;          vs_top=sup;
1655          base[2]= vs_base[0];          base[2]= vs_base[0];
1656          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1657          Lcopy_list();          Lcopy_list();
1658          vs_top=sup;          vs_top=sup;
1659          V169= vs_base[0];          V187= vs_base[0];
1660          if(((V167))==Cnil){          if(((V185))==Cnil){
1661          goto T623;}          goto T708;}
1662          {register object V174;          {register object V192;
1663          V174= (V169);          V192= (V187);
1664          if(type_of(V167)!=t_cons)FEwrong_type_argument(Scons,V167);          (V185)->c.c_cdr = (V192);
1665          (V167)->c.c_cdr = (V174);          if(((V192))!=Cnil){
1666          if(((V174))!=Cnil){          goto T710;}}
1667          goto T625;}}          goto T706;
1668          goto T621;  T710:;
1669  T625:;          base[2]= CMPcdr((V185));
         base[2]= cdr((V167));  
1670          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1671          Llast();          Llast();
1672          vs_top=sup;          vs_top=sup;
1673          V167= vs_base[0];          V185= vs_base[0];
1674          goto T621;          goto T706;
1675  T623:;  T708:;
1676          V166= (V169);          V184= (V187);
1677          base[2]= (V166);          base[2]= (V184);
1678          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1679          Llast();          Llast();
1680          vs_top=sup;          vs_top=sup;
1681          V167= vs_base[0];          V185= vs_base[0];
1682  T621:;  T706:;
1683          V165= cdr((V165));          V183= CMPcdr((V183));
1684          goto T584;          goto T669;
1685  T585:;  T670:;
1686          base[2]= (V166);          base[2]= (V184);
1687          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1688          return;          return;
1689          base[2]= Cnil;          base[2]= Cnil;
# Line 1599  T585:; Line 1699  T585:;
1699  static L25()  static L25()
1700  {register object *base=vs_base;  {register object *base=vs_base;
1701          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
1702          vs_reserve(VM25);          vs_check;
1703          {object V175;          {object V193;
1704          register object V176;          register object V194;
1705          register object V177;          register object V195;
1706          if(vs_top-vs_base<1) too_few_arguments();          V193=(base[0]);
         if(vs_top-vs_base>3) too_many_arguments();  
         V175=(base[0]);  
1707          vs_base=vs_base+1;          vs_base=vs_base+1;
1708          if(vs_base>=vs_top){vs_top=sup;goto T638;}          if(vs_base>=vs_top){vs_top=sup;goto T723;}
1709          V176=(base[1]);          V194=(base[1]);
1710          vs_base++;          vs_base++;
1711          if(vs_base>=vs_top){vs_top=sup;goto T639;}          if(vs_base>=vs_top){vs_top=sup;goto T724;}
1712          V177=(base[2]);          V195=(base[2]);
1713          vs_top=sup;          vs_top=sup;
1714          goto T640;          goto T725;
1715  T638:;  T723:;
1716          V176= Cnil;          V194= Cnil;
1717  T639:;  T724:;
1718          V177= Cnil;          V195= Cnil;
1719  T640:;  T725:;
1720          {register object V178;          {register object V196;
1721          V178= Cnil;          V196= Cnil;
1722          if((V176)!=Cnil){          if((V194)!=Cnil){
1723          goto T644;}          goto T729;}
1724          V176= small_fixnum(0);          V194= small_fixnum(0);
1725  T644:;  T729:;
1726  T648:;  T733:;
1727          if((V176)!=Cnil){          if((V194)!=Cnil){
1728          goto T650;}          goto T735;}
1729          goto T649;          goto T734;
1730  T650:;  T735:;
1731          {register object V179;          {register object V197;
1732          register object V180;          register object V198;
1733          base[3]= (V176);          base[3]= (V194);
1734          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1735          (void) (*Lnk110)();          (void) (*Lnk111)();
1736          if(vs_base>=vs_top){vs_top=sup;goto T654;}          if(vs_base>=vs_top){vs_top=sup;goto T739;}
1737          V179= vs_base[0];          V197= vs_base[0];
1738          vs_base++;          vs_base++;
1739          if(vs_base>=vs_top){vs_top=sup;goto T655;}          if(vs_base>=vs_top){vs_top=sup;goto T740;}
1740          V180= vs_base[0];          V198= vs_base[0];
1741          vs_top=sup;          vs_top=sup;
1742          goto T656;          goto T741;
1743  T654:;  T739:;
1744          V179= Cnil;          V197= Cnil;
1745  T655:;  T740:;
1746          V180= Cnil;          V198= Cnil;
1747  T656:;  T741:;
1748          V178= (V180);          V196= (V198);
1749          if((V177)==Cnil){          if((V195)==Cnil){
1750          goto T659;}          goto T744;}
1751          if((V178)==Cnil){          if((V196)==Cnil){
1752          goto T659;}          goto T744;}
1753          if(number_compare((V177),(V178))<0){          if(number_compare((V195),(V196))<0){
1754          goto T660;}          goto T745;}
1755          goto T659;          goto T744;
1756  T660:;  T745:;
1757          V178= (V177);          V196= (V195);
1758  T659:;  T744:;
1759          {register object V181;          {register object V199;
1760          register object V182;          register object V200;
1761          object V183;          object V201;
1762          object V184;          object V202;
1763          base[7]= cdr((V179));          base[7]= CMPcdr((V197));
1764          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1765          (void) (*Lnk111)();          (void) (*Lnk112)();
1766          vs_top=sup;          vs_top=sup;
1767          V181= vs_base[0];          V199= vs_base[0];
1768          V182= car((V179));          V200= CMPcar((V197));
1769          V183= number_minus((V176),(V182));          V201= number_minus((V194),(V200));
1770          V184= make_fixnum(length((V181)));          V202= CMPmake_fixnum(length((V199)));
1771          if(((V178))==Cnil){          if(((V196))==Cnil){
1772          goto T673;}          goto T758;}
1773          V185= number_minus((V178),(V182));          V203= number_minus((V196),(V200));
1774          goto T671;          goto T756;
1775  T673:;  T758:;
1776          V185= (V184);          V203= (V202);
1777  T671:;  T756:;
1778          {int V186= fix((VFUN_NARGS=4,(*(LnkLI92))((V175),(V181),(V183),V185)));          {int V204= fix((VFUN_NARGS=4,(*(LnkLI93))((V193),(V199),(V201),V203)));
1779          if(!((/* INLINE-ARGS */V186)>=(0))){          if(!((/* INLINE-ARGS */V204)>=(0))){
1780          goto T663;}}          goto T748;}}
1781          V187 = make_fixnum((*(LnkLI94))(0));          V205 = CMPmake_fixnum((*(LnkLI95))(0));
1782          base[7]= number_plus((V182),V187);          base[7]= number_plus((V200),V205);
1783          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1784          return;}          return;}
1785  T663:;  T748:;
1786          V176= (V180);}          V194= (V198);}
1787          goto T648;          goto T733;
1788  T649:;  T734:;
1789          goto T646;          goto T731;
1790          goto T646;          goto T731;
1791  T646:;  T731:;
1792          base[3]= small_fixnum(-1);          base[3]= small_fixnum(-1);
1793          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1794          return;}          return;}
# Line 1701  T646:; Line 1799  T646:;
1799  static L26()  static L26()
1800  {register object *base=vs_base;  {register object *base=vs_base;
1801          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1802          vs_reserve(VM26);          vs_check;
1803          {register object V188;          {register object V206;
1804          check_arg(1);          V206=(base[0]);
         V188=(base[0]);  
1805          vs_top=sup;          vs_top=sup;
1806  TTL:;  TTL:;
1807          {object V189;          {object V207;
1808          base[2]= (V188);          base[2]= (V206);
1809          base[3]= symbol_value(VV[69]);          base[3]= (VV[69]->s.s_dbind);
1810          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1811          (void) (*Lnk119)();          (void) (*Lnk120)();
1812          vs_top=sup;          vs_top=sup;
1813          V189= vs_base[0];          V207= vs_base[0];
1814          {register object V190;          {register object V208;
1815          register object V191;          register object V209;
1816          V190= (V189);          V208= (V207);
1817          V191= car((V190));          V209= CMPcar((V208));
1818  T683:;  T768:;
1819          if(!(endp((V190)))){          if(!(((V208))==Cnil)){
1820          goto T684;}          goto T769;}
1821          base[3]= Cnil;          base[3]= Cnil;
1822          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1823          return;          return;
1824  T684:;  T769:;
1825          if(!(type_of(car((V191)))==t_cons)){          if(!(type_of(CMPcar((V209)))==t_cons)){
1826          goto T692;}          goto T777;}
1827          if(!(equalp(caar((V191)),(V188)))){          if(!(equalp(CMPcaar((V209)),(V206)))){
1828          goto T688;}          goto T773;}
1829          goto T690;          goto T775;
1830  T692:;  T777:;
1831          if(!(equalp(car((V191)),(V188)))){          if(!(equalp(CMPcar((V209)),(V206)))){
1832          goto T688;}          goto T773;}
1833  T690:;  T775:;
1834          base[3]= Ct;          base[3]= Ct;
1835          base[4]= VV[70];          base[4]= VV[70];
1836          base[5]= (V191);          base[5]= (V209);
1837          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1838          Lformat();          Lformat();
1839          vs_top=sup;          vs_top=sup;
1840          base[3]= (V191);          base[3]= (V209);
1841          base[4]= Cnil;          base[4]= Cnil;
1842          base[5]= Cnil;          base[5]= Cnil;
1843          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1844          (void) (*Lnk102)();          (void) (*Lnk103)();
1845          vs_top=sup;          vs_top=sup;
1846          V192= vs_base[0];          V210= vs_base[0];
1847          (void)(princ(V192,Cnil));          (void)(princ(V210,Cnil));
1848  T688:;  T773:;
1849          V190= cdr((V190));          V208= CMPcdr((V208));
1850          V191= car((V190));          V209= CMPcar((V208));
1851          goto T683;}}          goto T768;}}
1852          }          }
1853  }  }
1854  /*      function definition for INFO    */  /*      function definition for INFO    */
# Line 1759  T688:; Line 1856  T688:;
1856  static L27()  static L27()
1857  {register object *base=vs_base;  {register object *base=vs_base;
1858          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1859          vs_reserve(VM27);          vs_check;
1860          bds_check;          bds_check;
1861          {object V193;          {object V211;
1862          object V194;          object V212;
1863          if(vs_top-vs_base<1) too_few_arguments();          V211=(base[0]);
         if(vs_top-vs_base>2) too_many_arguments();  
         V193=(base[0]);  
1864          vs_base=vs_base+1;          vs_base=vs_base+1;
1865          if(vs_base>=vs_top){vs_top=sup;goto T707;}          if(vs_base>=vs_top){vs_top=sup;goto T792;}
1866          V194=(base[1]);          V212=(base[1]);
1867          vs_top=sup;          vs_top=sup;
1868          goto T708;          goto T793;
1869  T707:;  T792:;
1870          V194= symbol_value(VV[69]);          V212= (VV[69]->s.s_dbind);
1871  T708:;  T793:;
1872          {object V195;          {object V213;
1873          register object V196;          register object V214;
1874          object V197;          object V215;
1875          V195= Cnil;          V213= Cnil;
1876          bds_bind(VV[20],Cnil);          bds_bind(VV[20],Cnil);
1877          V196= Cnil;          V214= Cnil;
1878          V197= Cnil;          V215= Cnil;
1879          {object V198;          {object V216;
1880          base[3]= (V193);          base[3]= (V211);
1881          base[4]= (V194);          base[4]= (V212);
1882          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1883          (void) (*Lnk119)();          (void) (*Lnk120)();
1884          vs_top=sup;          vs_top=sup;
1885          V198= vs_base[0];          V216= vs_base[0];
1886          if((symbol_value(VV[43]))==Cnil){          if(((VV[43]->s.s_dbind))==Cnil){
1887          goto T717;}          goto T802;}
1888          base[3]= (V198);          base[3]= (V216);
1889          base[4]= (V194);          base[4]= (V212);
1890          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1891          (void) (*Lnk120)();          (void) (*Lnk121)();
1892          bds_unwind1;          bds_unwind1;
1893          return;          return;
1894  T717:;  T802:;
1895          if(((V198))==Cnil){          if(((V216))==Cnil){
1896          goto T722;}          goto T807;}
1897          {register int V199;          base[3]= CMPmake_fixnum(length((V216)));
1898          V199= 0;          base[3]=MMcons(base[3],Cnil);
1899          {register object V200;          {register int V217;
1900          register object V201;          V217= 0;
1901          V200= Cnil;          {register object V218;
1902          V201= (V198);          register object V219;
1903          {object V202;          V218= Cnil;
1904          V202= Cnil;          V219= (V216);
1905  T727:;          {object V220;
1906          if(((V201))==Cnil){          V220= Cnil;
1907          goto T730;}  T813:;
1908          goto T729;          if(((V219))==Cnil){
1909  T730:;          goto T816;}
1910          goto T728;          goto T815;
1911  T729:;  T816:;
1912          {object V203;          goto T814;
1913          V203= car((V201));  T815:;
1914          V200= (V203);}          {object V221;
1915          V196= Cnil;          V221= CMPcar((V219));
1916          V197= Cnil;          V218= (V221);}
1917          if(!(type_of((V200))==t_cons)){          V214= Cnil;
1918          goto T740;}          V215= Cnil;
1919          if(!(type_of(cdr((V200)))==t_cons)){          if(!(type_of((V218))==t_cons)){
1920          goto T740;}          goto T826;}
1921          V196= cadr((V200));          if(!(type_of(CMPcdr((V218)))==t_cons)){
1922          V200= car((V200));          goto T826;}
1923  T740:;          V214= CMPcadr((V218));
1924          if(!(type_of((V200))==t_cons)){          V218= CMPcar((V218));
1925          goto T739;}  T826:;
1926          V197= car((V200));          if(!(type_of((V218))==t_cons)){
1927          V200= cdr((V200));          goto T825;}
1928  T739:;          V215= CMPcar((V218));
1929          base[3]= Ct;          V218= CMPcdr((V218));
1930          base[4]= VV[71];  T825:;
1931          base[5]= make_fixnum(V199);          base[4]= Ct;
1932          base[6]= (V197);          base[5]= VV[71];
1933          if(!(((V196))==((V202)))){          base[6]= CMPmake_fixnum(V217);
1934          goto T760;}          base[7]= (V215);
1935          base[7]= Cnil;          if(!(((V214))==((V220)))){
1936          goto T758;          goto T846;}
1937  T760:;          base[8]= Cnil;
1938          V202= (V196);          goto T844;
1939          base[7]= (V202);  T846:;
1940  T758:;          V220= (V214);
1941          base[8]= (V200);          base[8]= (V220);
1942          vs_top=(vs_base=base+3)+6;  T844:;
1943            base[9]= (V218);
1944            vs_top=(vs_base=base+4)+6;
1945          Lformat();          Lformat();
1946          vs_top=sup;          vs_top=sup;
1947          if(!((V199)<(2147483646))){          if(!((V217)<(2147483646))){
1948          goto T765;}          goto T851;}
1949          goto T764;          goto T850;
1950  T765:;  T851:;
1951          (void)((*(LnkLI121))());          vs_base=vs_top;
1952  T764:;          (void) (*Lnk122)();
1953          V199= (V199)+(1);          vs_top=sup;
1954          V201= cdr((V201));  T850:;
1955          goto T727;          V217= (V217)+(1);
1956  T728:;          V219= CMPcdr((V219));
1957          goto T724;          goto T813;
1958          goto T724;}}}  T814:;
1959  T724:;          goto T810;
1960          base[3]= Ct;          goto T810;}}}
1961          base[4]= VV[73];  T810:;
1962          vs_top=(vs_base=base+3)+2;          if(!((length((V216)))>(1))){
1963            goto T860;}
1964            base[4]= Ct;
1965            base[5]= VV[73];
1966            vs_top=(vs_base=base+4)+2;
1967          Lformat();          Lformat();
1968          vs_top=sup;          vs_top=sup;
1969          {object V204;          goto T858;
1970          object V205;  T860:;
1971          register object V206;          princ_char(10,Cnil);
1972    T858:;
1973            {object V222;
1974            object V223;
1975            register object V224;
1976            if(!((length((V216)))>(1))){
1977            goto T866;}
1978          vs_base=vs_top;          vs_base=vs_top;
1979          Lread_line();          Lread_line();
1980          vs_top=sup;          vs_top=sup;
1981          V204= vs_base[0];          V222= vs_base[0];
1982          V205= small_fixnum(0);          goto T864;
1983          V206= Cnil;  T866:;
1984  T778:;          V222= VV[74];
1985          if(!(equal((V204),VV[74]))){  T864:;
1986          goto T781;}          V223= small_fixnum(0);
1987          goto T780;          V224= Cnil;
1988  T781:;  T870:;
1989          goto T779;          if(!(equal((V222),VV[75]))){
1990  T780:;          goto T873;}
1991            goto T872;
1992    T873:;
1993            goto T871;
1994    T872:;
1995          vs_base=vs_top;          vs_base=vs_top;
1996          Lread_line();          Lread_line();
1997          vs_top=sup;          vs_top=sup;
1998          V204= vs_base[0];          V222= vs_base[0];
1999          goto T778;          goto T870;
2000  T779:;  T871:;
2001          goto T776;          goto T868;
2002          goto T776;          goto T868;
2003  T776:;  T868:;
2004  T788:;{object V207;  T880:;{object V225;
2005          base[3]= (V204);          base[4]= (V222);
         base[4]= Cnil;  
2006          base[5]= Cnil;          base[5]= Cnil;
2007          base[6]= VV[75];          base[6]= Cnil;
2008          base[7]= (V205);          base[7]= VV[76];
2009          vs_top=(vs_base=base+3)+5;          base[8]= (V223);
2010          (void) (*Lnk122)();          vs_top=(vs_base=base+4)+5;
2011            (void) (*Lnk123)();
2012          if(vs_base<vs_top){          if(vs_base<vs_top){
2013          V206= vs_base[0];          V224= vs_base[0];
2014          vs_base++;          vs_base++;
2015          }else{          }else{
2016          V206= Cnil;}          V224= Cnil;}
2017          if(vs_base<vs_top){          if(vs_base<vs_top){
2018          V205= vs_base[0];          V223= vs_base[0];
2019          }else{          }else{
2020          V205= Cnil;}          V223= Cnil;}
2021          vs_top=sup;          vs_top=sup;
2022          V207= (V206);          V225= (V224);
2023          if(V207==Cnil)goto T791;          if(V225==Cnil)goto T883;
2024          goto T790;          goto T882;
2025  T791:;}  T883:;}
2026          goto T789;          goto T881;
2027  T790:;  T882:;
2028          if(!(type_of((V206))==t_fixnum||          if(!(type_of((V224))==t_fixnum||
2029  type_of((V206))==t_bignum||  type_of((V224))==t_bignum||
2030  type_of((V206))==t_ratio||  type_of((V224))==t_ratio||
2031  type_of((V206))==t_shortfloat||  type_of((V224))==t_shortfloat||
2032  type_of((V206))==t_longfloat||  type_of((V224))==t_longfloat||
2033  type_of((V206))==t_complex)){  type_of((V224))==t_complex)){
2034          goto T801;}          goto T893;}
2035          V195= make_cons((V206),(V195));          V213= make_cons((V224),(V213));
2036          goto T799;          goto T891;
2037  T801:;  T893:;
2038          V195= (V206);          V213= (V224);
2039          goto T786;          goto T878;
2040  T799:;  T891:;
2041          goto T788;          goto T880;
2042  T789:;  T881:;
2043          goto T786;          goto T878;
2044          goto T786;          goto T878;
2045  T786:;  T878:;
2046          if(!(type_of((V195))==t_cons)){          if(!(type_of((V213))==t_cons)){
2047          goto T809;}          goto T901;}
2048          V195= nreverse((V195));          V213= nreverse((V213));
2049          goto T807;          goto T899;
2050  T809:;  T901:;
2051          if(!(type_of((V195))==t_symbol)){          if(!(type_of((V213))==t_symbol)){
2052          goto T807;}          goto T899;}
2053          V208= symbol_name((V195));          V226= symbol_name((V213));
2054          if(equal(/* INLINE-ARGS */V208,VV[76])){          if(equal(/* INLINE-ARGS */V226,VV[77])){
2055          goto T815;}          goto T907;}
         V195= Cnil;  
         goto T814;  
 T815:;  
         {register int V209;  
         int V210;  
         V209= 0;  
         {object V211;  
         V211= make_fixnum(length((V198)));{object V212;  
         V212= (type_of((V211))==t_fixnum?Ct:Cnil);  
         if(V212==Cnil)goto T821;  
         goto T820;  
 T821:;}  
         (void)((*(LnkLI121))());  
 T820:;  
         V210= fix((V211));}  
         {object V213;  
         register object V214;  
2056          V213= Cnil;          V213= Cnil;
2057          V214= Cnil;          goto T906;
2058  T824:;  T907:;
2059          if((V209)>=(V210)){          {register int V227;
2060          goto T827;}          int V228;
2061          goto T826;          V227= 0;
2062  T827:;          {object V229;
2063          goto T825;          V229= CMPmake_fixnum(length((V216)));{object V230;
2064  T826:;          V230= (type_of((V229))==t_fixnum?Ct:Cnil);
2065          if(((V214))==Cnil){          if(V230==Cnil)goto T913;
2066          goto T831;}          goto T912;
2067          {object V215;  T913:;}
2068          object V216;          vs_base=vs_top;
2069          V215= (V214);          (void) (*Lnk122)();
2070          V217 = make_fixnum(V209);          vs_top=sup;
2071          V214= make_cons(V217,Cnil);  T912:;
2072          V216= (V214);          V228= fix((V229));}
2073          if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215));          {object V231;
2074          ((V215))->c.c_cdr = (V216);          register object V232;
2075          goto T829;}          V231= Cnil;
2076  T831:;          V232= Cnil;
2077          V218 = make_fixnum(V209);  T916:;
2078          V214= make_cons(V218,Cnil);          if((V227)>=(V228)){
2079          V213= (V214);          goto T919;}
2080  T829:;          goto T918;
2081          V209= (V209)+(1);  T919:;
2082          goto T824;          goto T917;
2083  T825:;  T918:;
2084          V195= (V213);          if(((V232))==Cnil){
2085          goto T814;          goto T923;}
2086          V195= Cnil;          {object V233;
2087          goto T814;          object V234;
2088          V195= Cnil;          V233= (V232);
2089          goto T814;}}          V235 = CMPmake_fixnum(V227);
2090  T814:;          V232= make_cons(V235,Cnil);
2091  T807:;          V234= (V232);
2092          if(((V195))==Cnil){          ((V233))->c.c_cdr = (V234);
2093          goto T843;}          goto T921;}
2094          base[3]= Ct;  T923:;
2095          base[4]= VV[77];          V236 = CMPmake_fixnum(V227);
2096          base[5]= car((VV[20]->s.s_dbind));          V232= make_cons(V236,Cnil);
2097          vs_top=(vs_base=base+3)+3;          V231= (V232);
2098    T921:;
2099            V227= (V227)+(1);
2100            goto T916;
2101    T917:;
2102            V213= (V231);
2103            goto T906;
2104            V213= Cnil;
2105            goto T906;
2106            V213= Cnil;
2107            goto T906;}}
2108    T906:;
2109    T899:;
2110            if(((V213))==Cnil){
2111            goto T935;}
2112            base[4]=
2113            make_cclosure_new(LC31,Cnil,base[3],Cdata);
2114            base[5]= (V213);
2115            vs_top=(vs_base=base+4)+2;
2116            (void) (*Lnk124)();
2117            vs_top=sup;
2118            V213= vs_base[0];
2119            base[4]= Ct;
2120            base[5]= VV[78];
2121            base[6]= CMPcar((VV[20]->s.s_dbind));
2122            vs_top=(vs_base=base+4)+3;
2123          Lformat();          Lformat();
2124          vs_top=sup;          vs_top=sup;
2125  T843:;  T935:;
2126          {object V219;          {object V237;
2127          register object V220;          register object V238;
2128          V219= Cnil;          V237= Cnil;
2129          V220= (V195);          V238= (V213);
2130  T850:;  T946:;
2131          if(((V220))==Cnil){          if(((V238))==Cnil){
2132          goto T853;}          goto T949;}
2133          goto T852;          goto T948;
2134  T853:;  T949:;
2135          goto T851;          goto T947;
2136  T852:;  T948:;
2137          {object V221;          {object V239;
2138          V221= car((V220));          V239= CMPcar((V238));
2139          V219= (V221);}          V237= (V239);}
2140          base[3]= nth(fixint((V219)),(V198));          base[4]= nth(fix((V237)),(V216));
2141          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+4)+1;
2142          (void) (*Lnk102)();          (void) (*Lnk103)();
2143          vs_top=sup;          vs_top=sup;
2144          V222= vs_base[0];          V240= vs_base[0];
2145          (void)(princ(V222,Cnil));          (void)(princ(V240,Cnil));
2146          V220= cdr((V220));          V238= CMPcdr((V238));
2147          goto T850;          goto T946;
2148  T851:;  T947:;
2149          base[3]= Cnil;          base[4]= Cnil;
2150          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+4)+1;
2151          bds_unwind1;          bds_unwind1;
2152          return;          return;
2153          base[3]= Cnil;          base[4]= Cnil;
2154          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+4)+1;
2155          bds_unwind1;          bds_unwind1;
2156          return;}}          return;}}
2157  T722:;  T807:;
2158          base[3]= Cnil;          base[3]= Cnil;
2159          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2160          bds_unwind1;          bds_unwind1;
# Line 2047  T722:; Line 2166  T722:;
2166  static L28()  static L28()
2167  {register object *base=vs_base;  {register object *base=vs_base;
2168          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
2169          vs_reserve(VM28);          vs_check;
         check_arg(0);  
2170          vs_top=sup;          vs_top=sup;
2171  TTL:;  TTL:;
2172          base[1]= VV[78];          base[1]= VV[79];
2173          vs_base=vs_top;          vs_base=vs_top;
2174          (void) (*Lnk123)();          (void) (*Lnk125)();
2175          vs_top=sup;          vs_top=sup;
2176          base[2]= vs_base[0];          base[2]= vs_base[0];
2177          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 2069  TTL:; Line 2187  TTL:;
2187  static L29()  static L29()
2188  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
2189          register object *VOL sup=base+VM29; VC29          register object *VOL sup=base+VM29; VC29
2190          vs_reserve(VM29);          vs_check;
         check_arg(1);  
2191          vs_top=sup;          vs_top=sup;
2192  TTL:;  TTL:;
2193          if(!(type_of(base[0])==t_symbol)){          if(!(type_of(base[0])==t_symbol)){
2194          goto T867;}          goto T963;}
2195          base[0]= get(base[0],VV[68],Cnil);          {object V241 =(base[0])->s.s_plist;
2196  T867:;           object ind= VV[68];
2197            while(V241!=Cnil){
2198            if(V241->c.c_car==ind){
2199            base[0]= (V241->c.c_cdr->c.c_car);
2200            goto T966;
2201            }else V241=V241->c.c_cdr->c.c_cdr;}
2202            base[0]= Cnil;}
2203    T966:;
2204    T963:;
2205          if((base[0])==Cnil){          if((base[0])==Cnil){
2206          goto T872;}          goto T968;}
2207          vs_base=vs_top;          vs_base=vs_top;
2208          (void) (*Lnk124)();          (void) (*Lnk126)();
2209          vs_top=sup;          vs_top=sup;
2210          base[2]= vs_base[0];          base[2]= vs_base[0];
2211          base[3]= VV[79];          base[3]= VV[80];
2212          base[4]= VV[80];          base[4]= VV[81];
2213          base[5]= VV[81];          base[5]= VV[82];
2214          base[6]= VV[82];          base[6]= VV[83];
2215          base[7]= VV[83];          base[7]= VV[84];
2216          base[8]= VV[84];          base[8]= VV[85];
2217          vs_top=(vs_base=base+2)+7;          vs_top=(vs_base=base+2)+7;
2218          (void) (*Lnk89)();          (void) (*Lnk90)();
2219          vs_top=sup;          vs_top=sup;
2220          base[1]= vs_base[0];          base[1]= vs_base[0];
2221          {object tag;frame_ptr fr;object p;bool active;          {object tag;frame_ptr fr;object p;bool active;
# Line 2101  T867:; Line 2226  T867:;
2226          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2227          Lfile_position();          Lfile_position();
2228          vs_top=sup;          vs_top=sup;
2229          V223= vs_base[0];          V242= vs_base[0];
2230          if(!(number_compare(V223,small_fixnum(10))<0)){          if(!(number_compare(V242,small_fixnum(10))<0)){
2231          goto T883;}          goto T979;}
2232          (void)(princ(VV[85],base[1]));          (void)(princ(VV[86],base[1]));
2233  T883:;  T979:;
2234          base[3]= base[1];          base[3]= base[1];
2235          base[4]= VV[86];          base[4]= VV[87];
2236          base[5]= caddr(cddddr(base[0]));          base[5]= CMPcaddr(CMPcddddr(base[0]));
2237          base[6]= car(cddddr(base[0]));          base[6]= CMPcar(CMPcddddr(base[0]));
2238          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
2239          Lformat();          Lformat();
2240          active=FALSE;}          active=FALSE;}
# Line 2119  T883:; Line 2244  T883:;
2244          vs_top=sup;          vs_top=sup;
2245          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
2246          if((base[1])==Cnil){          if((base[1])==Cnil){
2247          goto T892;}          goto T988;}
2248          base[3]= base[1];          base[3]= base[1];
2249          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2250          Lclose();          Lclose();
2251          vs_top=sup;          vs_top=sup;
2252  T892:;  T988:;
2253          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
2254          for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
2255          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
2256          return;}}          return;}}
2257  T872:;  T968:;
2258          base[1]= Cnil;          base[1]= Cnil;
2259          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2260          return;          return;
# Line 2139  T872:; Line 2264  T872:;
2264  static L30()  static L30()
2265  {register object *base=vs_base;  {register object *base=vs_base;
2266          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
2267          vs_reserve(VM30);          vs_check;
2268          {object V224;          {object V243;
2269          object V225;          object V244;
2270          if(vs_top-vs_base<1) too_few_arguments();          V243=(base[0]);
         V224=(base[0]);  
2271          vs_base=vs_base+1;          vs_base=vs_base+1;
2272          vs_top[0]=Cnil;          vs_top[0]=Cnil;
2273          {object *p=vs_top;          {object *p=vs_top;
2274           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
2275          V225=(base[1]);          V244=(base[1]);
2276          vs_top=sup;          vs_top=sup;
2277          {register object V226;          {register object V245;
2278          register object V227;          register object V246;
2279          V226= Cnil;          V245= Cnil;
2280          V227= (V225);          V246= (V244);
2281          {object V228;          {object V247;
2282          register object V229;          register object V248;
2283          register object V230;          register object V249;
2284          V228= Cnil;          V247= Cnil;
2285          V229= Cnil;          V248= Cnil;
2286          V230= Cnil;          V249= Cnil;
2287  T897:;  T993:;
2288          if(((V227))==Cnil){          if(((V246))==Cnil){
2289          goto T900;}          goto T996;}
2290          goto T899;          goto T995;
2291  T900:;  T996:;
2292          goto T898;          goto T994;
2293  T899:;  T995:;
2294          {register object V231;          {register object V250;
2295          V231= car((V227));          V250= CMPcar((V246));
2296          V226= (V231);}          V245= (V250);}
2297          {int V232= (*(LnkLI94))(fix((V226)));          {int V251= (*(LnkLI95))(fix((V245)));
2298          if((/* INLINE-ARGS */V232)>=(0)){          if((/* INLINE-ARGS */V251)>=(0)){
2299          goto T907;}}          goto T1003;}}
2300          V230= Cnil;          V249= Cnil;
2301          goto T906;          goto T1002;
2302  T907:;  T1003:;
2303          base[2]= (V224);          base[2]= (V243);
2304          base[3]= (V226);          base[3]= (V245);
2305          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2306          (void) (*Lnk96)();          (void) (*Lnk97)();
2307          vs_top=sup;          vs_top=sup;
2308          V230= vs_base[0];          V249= vs_base[0];
2309  T906:;  T1002:;
2310          if(((V229))==Cnil){          if(((V248))==Cnil){
2311          goto T913;}          goto T1009;}
2312          {register object V233;          {register object V252;
2313          register object V234;          register object V253;
2314          V233= (V229);          V252= (V248);
2315          V229= make_cons((V230),Cnil);          V248= make_cons((V249),Cnil);
2316          V234= (V229);          V253= (V248);
2317          if(type_of((V233))!=t_cons)FEwrong_type_argument(Scons,(V233));          ((V252))->c.c_cdr = (V253);
2318          ((V233))->c.c_cdr = (V234);          goto T1007;}
2319          goto T911;}  T1009:;
2320  T913:;          V248= make_cons((V249),Cnil);
2321          V229= make_cons((V230),Cnil);          V247= (V248);
2322          V228= (V229);  T1007:;
2323  T911:;          V246= CMPcdr((V246));
2324          V227= cdr((V227));          goto T993;
2325          goto T897;  T994:;
2326  T898:;          base[2]= (V247);
         base[2]= (V228);  
2327          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2328          return;          return;
2329          base[2]= Cnil;          base[2]= Cnil;
# Line 2211  T898:; Line 2334  T898:;
2334          return;}}          return;}}
2335          }          }
2336  }  }
2337  static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* DEFAULT-INFO-HOTLIST */  /*      local function CLOSURE  */
 static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* USER-HOMEDIR-PATHNAME */  
 static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* READ-FROM-STRING */  
 static object  LnkTLI121(){return call_proc0(VV[121],&LnkLI121);} /* TYPE-ERROR */  
 static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* OFFER-CHOICES */  
 static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* INFO-AUX */  
 static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* ADD-FILE */  
 static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* GET-INFO-CHOICES */  
 static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* END-WAITING */  
 static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* PRINT-NODE */  
 static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* GET-NODE-INDEX */  
 static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* SETUP-INFO */  
 static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* WAITING */  
 static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* INFO-GET-FILE */  
 static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* INFO-SUBFILE */  
 static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* WINFO */  
 static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* TKERROR */  
 static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* NODES-FROM-INDEX */  
 static LnkT106(){ call_or_link(VV[106],&Lnk106);} /* INFO-GET-TAGS */  
 static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FILE-SEARCH */  
 static LnkT104(){ call_or_link(VV[104],&Lnk104);} /* FIX-LOAD-PATH */  
 static LnkT103(){ call_or_link(VV[103],&Lnk103);} /* GET-INDEX-NODE */  
 static LnkT102(){ call_or_link(VV[102],&Lnk102);} /* SHOW-INFO */  
 static LnkT101(){ call_or_link(VV[101],&Lnk101);} /* GET-NODES */  
 static LnkT100(){ call_or_link(VV[100],&Lnk100);} /* STRING-CONCATENATE */  
 static LnkT99(){ call_or_link(VV[99],&Lnk99);} /* RE-QUOTE-STRING */  
 static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[98],&LnkLI98,ap);} /* POSITION */  
 static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* INFO-ERROR */  
 static LnkT96(){ call_or_link(VV[96],&Lnk96);} /* GET-MATCH */  
 static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* ATOI */  
 static int  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[94],&LnkLI94,4353,ap);} /* MATCH-BEGINNING */  
 static int  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[93],&LnkLI93,4353,ap);} /* MATCH-END */  
 static object  LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[92],&LnkLI92,ap);} /* STRING-MATCH */  
 static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* FILE-TO-STRING */  
 static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* FREAD */  
 static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* OPEN */  
 static object  LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[88],&LnkLI88,ap);} /* VECTOR-PUSH-EXTEND */  
 static object  LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[87],&LnkLI87,ap);} /* MAKE-ARRAY */  
   
 #ifdef SYSTEM_SPECIAL_INIT  
 SYSTEM_SPECIAL_INIT  
 #endif  
2338    
2339    static LC31(base0)
2340    register object *base0;
2341    {       register object *base=vs_base;
2342            register object *sup=base+VM31; VC31
2343            vs_check;
2344            {object V254;
2345            V254=(base[0]);
2346            vs_top=sup;
2347            if(type_of((V254))==t_fixnum||type_of((V254))==t_bignum){
2348            goto T1021;}
2349            base[1]= Cnil;
2350            vs_top=(vs_base=base+1)+1;
2351            return;
2352    T1021:;
2353            base[1]= (number_compare((V254),(base0[0]->c.c_car))>=0?Ct:Cnil);
2354            vs_top=(vs_base=base+1)+1;
2355            return;
2356            }
2357    }
2358    static LnkT126(){ call_or_link(VV[126],&Lnk126);} /* DEFAULT-INFO-HOTLIST */
2359    static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* USER-HOMEDIR-PATHNAME */
2360    static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* REMOVE-IF */
2361    static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* READ-FROM-STRING */
2362    static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* TYPE-ERROR */
2363    static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* OFFER-CHOICES */
2364    static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* INFO-AUX */
2365    static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* ADD-FILE */
2366    static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* GET-INFO-CHOICES */
2367    static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* END-WAITING */
2368    static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* PRINT-NODE */
2369    static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* GET-NODE-INDEX */
2370    static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* SETUP-INFO */
2371    static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* WAITING */
2372    static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* INFO-GET-FILE */
2373    static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* INFO-SUBFILE */
2374    static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* WINFO */
2375    static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* TKERROR */
2376    static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* NODES-FROM-INDEX */
2377    static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* INFO-GET-TAGS */
2378    static LnkT106(){ call_or_link(VV[106],&Lnk106);} /* FILE-SEARCH */
2379    static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FIX-LOAD-PATH */
2380    static LnkT104(){ call_or_link(VV[104],&Lnk104);} /* GET-INDEX-NODE */
2381    static LnkT103(){ call_or_link(VV[103],&Lnk103);} /* SHOW-INFO */
2382    static LnkT102(){ call_or_link(VV[102],&Lnk102);} /* GET-NODES */
2383    static LnkT101(){ call_or_link(VV[101],&Lnk101);} /* STRING-CONCATENATE */
2384    static LnkT100(){ call_or_link(VV[100],&Lnk100);} /* RE-QUOTE-STRING */
2385    static LnkT99(){ call_or_link(VV[99],&Lnk99);} /* POSITION */
2386    static LnkT98(){ call_or_link(VV[98],&Lnk98);} /* INFO-ERROR */
2387    static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* GET-MATCH */
2388    static LnkT96(){ call_or_link(VV[96],&Lnk96);} /* ATOI */
2389    static int  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[95],&LnkLI95,4353,ap);} /* MATCH-BEGINNING */
2390    static int  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[94],&LnkLI94,4353,ap);} /* MATCH-END */
2391    static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],&LnkLI93,ap);} /* STRING-MATCH */
2392    static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* FILE-TO-STRING */
2393    static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* FREAD */
2394    static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* OPEN */
2395    static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* VECTOR-PUSH-EXTEND */
2396    static LnkT88(){ call_or_link(VV[88],&Lnk88);} /* MAKE-ARRAY */

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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