/[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.5 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.6 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "info.h"  #include "info.h"
4  init_info(){do_init(VV);}  void init_info(){do_init(VV);}
5  /*      function definition for SHARP-U-READER  */  /*      function definition for SHARP-U-READER  */
6    
7  static L1()  static void 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_reserve(VM1);
# Line 16  static L1() Line 16  static L1()
16          V2=(base[1]);          V2=(base[1]);
17          V3=(base[2]);          V3=(base[2]);
18          vs_top=sup;          vs_top=sup;
19    goto TTL;
20  TTL:;  TTL:;
21          {register object V4;          {register object V4;
22          V4= (VFUN_NARGS=5,(*(LnkLI88))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0)));          V4= (VFUN_NARGS=5,(*(LnkLI88))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0)));
# Line 27  TTL:; Line 28  TTL:;
28          if(!(eql(V5,VV[3]))){          if(!(eql(V5,VV[3]))){
29          goto T5;}          goto T5;}
30          goto T4;          goto T4;
31    goto T5;
32  T5:;  T5:;
33          base[3]= VV[4];          base[3]= VV[4];
34          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
35          Lerror();          Lerror();
36          vs_top=sup;          vs_top=sup;
37    goto T4;
38  T4:;  T4:;
39    goto T12;
40  T12:;  T12:;
41          {register object V6;          {register object V6;
42          base[3]= (V1);          base[3]= (V1);
# Line 43  T12:; Line 47  T12:;
47          if(!(eql((V6),VV[3]))){          if(!(eql((V6),VV[3]))){
48          goto T18;}          goto T18;}
49          goto T10;          goto T10;
50    goto T18;
51  T18:;  T18:;
52          if(!(eql((V6),VV[5]))){          if(!(eql((V6),VV[5]))){
53          goto T16;}          goto T16;}
# Line 58  T18:; Line 63  T18:;
63          goto T28;          goto T28;
64          }else V9=V9->c.c_cdr;          }else V9=V9->c.c_cdr;
65          V8= Cnil;}          V8= Cnil;}
66    goto T28;
67  T28:;  T28:;
68          V7= cdr(V8);          V7= cdr(V8);
69          if(V7==Cnil)goto T26;          if(V7==Cnil)goto T26;
70          V6= V7;          V6= V7;
71          goto T25;          goto T25;
72    goto T26;
73  T26:;}  T26:;}
74    goto T25;
75  T25:;  T25:;
76    goto T16;
77  T16:;  T16:;
78          (void)((VFUN_NARGS=2,(*(LnkLI89))((V6),(V4))));}          (void)((VFUN_NARGS=2,(*(LnkLI89))((V6),(V4))));}
79          goto T12;          goto T12;
80    goto T10;
81  T10:;  T10:;
82          base[3]= (V4);          base[3]= (V4);
83          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 76  T10:; Line 86  T10:;
86  }  }
87  /*      function definition for FILE-TO-STRING  */  /*      function definition for FILE-TO-STRING  */
88    
89  static L2()  static void L2()
90  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
91          register object *VOL sup=base+VM2; VC2          register object *VOL sup=base+VM2; VC2
92          vs_reserve(VM2);          vs_reserve(VM2);
# Line 89  static L2() Line 99  static L2()
99          if(vs_base>=vs_top){vs_top=sup;goto T30;}          if(vs_base>=vs_top){vs_top=sup;goto T30;}
100          vs_top=sup;          vs_top=sup;
101          goto T31;          goto T31;
102    goto T30;
103  T30:;  T30:;
104          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
105    goto T31;
106  T31:;  T31:;
107          bds_bind(VV[7],Ct);          bds_bind(VV[7],Ct);
108          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
# Line 99  T31:; Line 111  T31:;
111          (void) (*Lnk90)();          (void) (*Lnk90)();
112          vs_top=sup;          vs_top=sup;
113          base[4]= vs_base[0];          base[4]= vs_base[0];
         {object tag;frame_ptr fr;object p;bool active;  
114          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
115            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
116          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
117          else{          else{
118          base[6]= base[4];          base[6]= base[4];
# Line 112  T31:; Line 124  T31:;
124          goto T42;}          goto T42;}
125          V11= Cnil;          V11= Cnil;
126          goto T41;          goto T41;
127    goto T42;
128  T42:;  T42:;
129          V11= (number_compare(base[1],base[3])<=0?Ct:Cnil);          V11= (number_compare(base[1],base[3])<=0?Ct:Cnil);
130    goto T41;
131  T41:;  T41:;
132          if(V11==Cnil)goto T40;          if(V11==Cnil)goto T40;
133          goto T39;          goto T39;
134    goto T40;
135  T40:;}  T40:;}
136          base[6]= VV[8];          base[6]= VV[8];
137          base[7]= base[1];          base[7]= base[1];
138          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
139          Lerror();          Lerror();
140          vs_top=sup;          vs_top=sup;
141    goto T39;
142  T39:;  T39:;
143          {object V12;          {object V12;
144          V13= number_minus(base[3],base[1]);          V13= number_minus(base[3],base[1]);
# Line 134  T39:; Line 150  T39:;
150          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
151          Lfile_position();          Lfile_position();
152          vs_top=sup;          vs_top=sup;
153    goto T47;
154  T47:;  T47:;
155          base[6]= (V12);          base[6]= (V12);
156          base[7]= small_fixnum(0);          base[7]= small_fixnum(0);
# Line 156  T47:; Line 173  T47:;
173          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
174          Lclose();          Lclose();
175          vs_top=sup;          vs_top=sup;
176    goto T57;
177  T57:;  T57:;
178          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
179          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));
# Line 166  T57:; Line 184  T57:;
184  }  }
185  /*      function definition for ATOI    */  /*      function definition for ATOI    */
186    
187  static L3()  static void L3()
188  {register object *base=vs_base;  {register object *base=vs_base;
189          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
190          vs_reserve(VM3);          vs_reserve(VM3);
# Line 176  static L3() Line 194  static L3()
194          V14=(base[0]);          V14=(base[0]);
195          V15=fix(base[1]);          V15=fix(base[1]);
196          vs_top=sup;          vs_top=sup;
197    goto TTL;
198  TTL:;  TTL:;
199          {register long V16;          {register long V16;
200          register long V17;          register long V17;
# Line 183  TTL:; Line 202  TTL:;
202          V16= 0;          V16= 0;
203          V17= 0;          V17= 0;
204          V18= length((V14));          V18= length((V14));
205    goto T66;
206  T66:;  T66:;
207          if(!((V15)<(V18))){          if(!((V15)<(V18))){
208          goto T69;}          goto T69;}
209          goto T68;          goto T68;
210    goto T69;
211  T69:;  T69:;
212          goto T67;          goto T67;
213    goto T68;
214  T68:;  T68:;
215          {unsigned char V19= char_code(aref1((V14),V15));          {unsigned char V19= char_code(aref1((V14),V15));
216          V17= (/* INLINE-ARGS */V19);}          V17= (/* INLINE-ARGS */V19);}
# Line 203  T68:; Line 225  T68:;
225          V22= number_times(small_fixnum(10),V21);          V22= number_times(small_fixnum(10),V21);
226          V16= fix(number_plus(V20,/* INLINE-ARGS */V22));          V16= fix(number_plus(V20,/* INLINE-ARGS */V22));
227          goto T77;          goto T77;
228    goto T79;
229  T79:;  T79:;
230          goto T64;          goto T64;
231    goto T77;
232  T77:;  T77:;
233          goto T66;          goto T66;
234    goto T67;
235  T67:;  T67:;
236          goto T64;          goto T64;
237          goto T64;          goto T64;
238    goto T64;
239  T64:;  T64:;
240          base[2]= make_fixnum(V16);          base[2]= make_fixnum(V16);
241          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 218  T64:; Line 244  T64:;
244  }  }
245  /*      function definition for INFO-GET-TAGS   */  /*      function definition for INFO-GET-TAGS   */
246    
247  static L4()  static void L4()
248  {register object *base=vs_base;  {register object *base=vs_base;
249          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
250          vs_reserve(VM4);          vs_reserve(VM4);
# Line 227  static L4() Line 253  static L4()
253          check_arg(1);          check_arg(1);
254          V23=(base[0]);          V23=(base[0]);
255          vs_top=sup;          vs_top=sup;
256    goto TTL;
257  TTL:;  TTL:;
258          {register long V24;          {register long V24;
259          object V25;          object V25;
# Line 250  TTL:; Line 277  TTL:;
277          V28= (*(LnkLI94))(0);          V28= (*(LnkLI94))(0);
278          V30 = make_fixnum(V28);          V30 = make_fixnum(V28);
279          V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30)));          V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30)));
280    goto T99;
281  T99:;  T99:;
282          V31 = make_fixnum(V28);          V31 = make_fixnum(V28);
283          V32 = make_fixnum(V24);          V32 = make_fixnum(V24);
# Line 257  T99:; Line 285  T99:;
285          if(!((/* INLINE-ARGS */V33)>=(0))){          if(!((/* INLINE-ARGS */V33)>=(0))){
286          goto T102;}}          goto T102;}}
287          goto T101;          goto T101;
288    goto T102;
289  T102:;  T102:;
290          goto T100;          goto T100;
291    goto T101;
292  T101:;  T101:;
293          V28= (*(LnkLI94))(0);          V28= (*(LnkLI94))(0);
294          base[3]= (V27);          base[3]= (V27);
# Line 276  T101:; Line 306  T101:;
306          V36= make_cons(V34,V35);          V36= make_cons(V34,V35);
307          V26= make_cons(/* INLINE-ARGS */V36,(V26));          V26= make_cons(/* INLINE-ARGS */V36,(V26));
308          goto T99;          goto T99;
309    goto T100;
310  T100:;  T100:;
311          goto T91;          goto T91;
312          goto T91;          goto T91;
313    goto T91;
314  T91:;  T91:;
315          V37 = make_fixnum(V28);          V37 = make_fixnum(V28);
316          {long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37)));          {long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37)));
# Line 296  T91:; Line 328  T91:;
328          Lsubseq();          Lsubseq();
329          vs_top=sup;          vs_top=sup;
330          V25= vs_base[0];          V25= vs_base[0];
331    goto T115;
332  T115:;  T115:;
333          if(((V26))==Cnil){          if(((V26))==Cnil){
334          goto T126;}          goto T126;}
# Line 305  T115:; Line 338  T115:;
338          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
339          (void) (*Lnk98)();          (void) (*Lnk98)();
340          vs_top=sup;          vs_top=sup;
341    goto T126;
342  T126:;  T126:;
343          V41= nreverse((V26));          V41= nreverse((V26));
344          base[3]= make_cons((V25),/* INLINE-ARGS */V41);          base[3]= make_cons((V25),/* INLINE-ARGS */V41);
# Line 316  T126:; Line 350  T126:;
350  }  }
351  /*      function definition for RE-QUOTE-STRING */  /*      function definition for RE-QUOTE-STRING */
352    
353  static L5()  static void L5()
354  {register object *base=vs_base;  {register object *base=vs_base;
355          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
356          vs_reserve(VM5);          vs_reserve(VM5);
# Line 324  static L5() Line 358  static L5()
358          check_arg(1);          check_arg(1);
359          V42=(base[0]);          V42=(base[0]);
360          vs_top=sup;          vs_top=sup;
361    goto TTL;
362  TTL:;  TTL:;
363          {register long V43;          {register long V43;
364          long V44;          long V44;
# Line 335  TTL:; Line 370  TTL:;
370          V46= 0;          V46= 0;
371          {register object V47;          {register object V47;
372          V47= Cnil;          V47= Cnil;
373    goto T136;
374  T136:;  T136:;
375    goto T139;
376  T139:;  T139:;
377          if(!((V43)<(V44))){          if(!((V43)<(V44))){
378          goto T142;}          goto T142;}
379          goto T141;          goto T141;
380    goto T142;
381  T142:;  T142:;
382          goto T140;          goto T140;
383    goto T141;
384  T141:;  T141:;
385          V45= aref1((V42),V43);          V45= aref1((V42),V43);
386          if(((VFUN_NARGS=2,(*(LnkLI99))((V45),VV[17])))==Cnil){          if(((VFUN_NARGS=2,(*(LnkLI99))((V45),VV[17])))==Cnil){
# Line 350  T141:; Line 389  T141:;
389          goto T150;}          goto T150;}
390          (void)((VFUN_NARGS=2,(*(LnkLI89))(VV[5],(V47))));          (void)((VFUN_NARGS=2,(*(LnkLI89))(VV[5],(V47))));
391          goto T146;          goto T146;
392    goto T150;
393  T150:;  T150:;
394          V46= (V46)+(1);          V46= (V46)+(1);
395    goto T146;
396  T146:;  T146:;
397          if(((V47))==Cnil){          if(((V47))==Cnil){
398          goto T153;}          goto T153;}
399          (void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47))));          (void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47))));
400    goto T153;
401  T153:;  T153:;
402          V43= (V43)+(1);          V43= (V43)+(1);
403          goto T139;          goto T139;
404    goto T140;
405  T140:;  T140:;
406          goto T137;          goto T137;
407          goto T137;          goto T137;
408    goto T137;
409  T137:;  T137:;
410          {register object V48;          {register object V48;
411          V48= (V47);          V48= (V47);
412          if(((V48))==Cnil){          if(((V48))==Cnil){
413          goto T161;}          goto T161;}
414          goto T159;          goto T159;
415    goto T161;
416  T161:;  T161:;
417          if(!((V46)>(0))){          if(!((V46)>(0))){
418          goto T164;}          goto T164;}
# Line 375  T161:; Line 420  T161:;
420          V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0)));          V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0)));
421          V43= 0;          V43= 0;
422          goto T136;          goto T136;
423    goto T164;
424  T164:;  T164:;
425          V47= (V42);}          V47= (V42);}
426    goto T159;
427  T159:;  T159:;
428          goto T134;          goto T134;
429    goto T134;
430  T134:;  T134:;
431          base[1]= (V47);          base[1]= (V47);
432          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 387  T134:; Line 435  T134:;
435  }  }
436  /*      function definition for GET-MATCH       */  /*      function definition for GET-MATCH       */
437    
438  static L6()  static void L6()
439  {register object *base=vs_base;  {register object *base=vs_base;
440          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
441          vs_reserve(VM6);          vs_reserve(VM6);
# Line 397  static L6() Line 445  static L6()
445          V50=(base[0]);          V50=(base[0]);
446          V51=(base[1]);          V51=(base[1]);
447          vs_top=sup;          vs_top=sup;
448    goto TTL;
449  TTL:;  TTL:;
450          base[2]= (V50);          base[2]= (V50);
451          base[3]= make_fixnum((*(LnkLI95))(fix((V51))));          base[3]= make_fixnum((*(LnkLI95))(fix((V51))));
# Line 408  TTL:; Line 457  TTL:;
457  }  }
458  /*      function definition for GET-NODES       */  /*      function definition for GET-NODES       */
459    
460  static L7()  static void L7()
461  {register object *base=vs_base;  {register object *base=vs_base;
462          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
463          vs_reserve(VM7);          vs_reserve(VM7);
# Line 419  static L7() Line 468  static L7()
468          V52=(base[0]);          V52=(base[0]);
469          V53=(base[1]);          V53=(base[1]);
470          vs_top=sup;          vs_top=sup;
471    goto TTL;
472  TTL:;  TTL:;
473          {register long V54;          {register long V54;
474          register object V55;          register object V55;
# Line 439  TTL:; Line 489  TTL:;
489          (void) (*Lnk101)();          (void) (*Lnk101)();
490          vs_top=sup;          vs_top=sup;
491          V52= vs_base[0];          V52= vs_base[0];
492    goto T187;
493  T187:;  T187:;
494          V56 = make_fixnum(V54);          V56 = make_fixnum(V54);
495          {long V57= fix((VFUN_NARGS=3,(*(LnkLI93))((V52),(V53),V56)));          {long V57= fix((VFUN_NARGS=3,(*(LnkLI93))((V52),(V53),V56)));
496          if(!((/* INLINE-ARGS */V57)>=(0))){          if(!((/* INLINE-ARGS */V57)>=(0))){
497          goto T190;}}          goto T190;}}
498          goto T189;          goto T189;
499    goto T190;
500  T190:;  T190:;
501          goto T188;          goto T188;
502    goto T189;
503  T189:;  T189:;
504          V54= (*(LnkLI94))(0);          V54= (*(LnkLI94))(0);
505          base[4]= (V53);          base[4]= (V53);
# Line 457  T189:; Line 510  T189:;
510          V58= vs_base[0];          V58= vs_base[0];
511          V55= make_cons(V58,(V55));          V55= make_cons(V58,(V55));
512          goto T187;          goto T187;
513    goto T188;
514  T188:;  T188:;
515          goto T185;          goto T185;
516          goto T185;          goto T185;
517    goto T185;
518  T185:;  T185:;
519          base[4]= nreverse((V55));          base[4]= nreverse((V55));
520          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
521          bds_unwind1;          bds_unwind1;
522          bds_unwind1;          bds_unwind1;
523          return;          return;
524    goto T177;
525  T177:;  T177:;
526          base[4]= Cnil;          base[4]= Cnil;
527          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 476  T177:; Line 532  T177:;
532  }  }
533  /*      function definition for GET-INDEX-NODE  */  /*      function definition for GET-INDEX-NODE  */
534    
535  static L8()  static void L8()
536  {register object *base=vs_base;  {register object *base=vs_base;
537          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
538          vs_reserve(VM8);          vs_reserve(VM8);
539          check_arg(0);          check_arg(0);
540          vs_top=sup;          vs_top=sup;
541    goto TTL;
542  TTL:;{object V59;  TTL:;{object V59;
543          V59= caddr(symbol_value(VV[20]));          V59= caddr(symbol_value(VV[20]));
544          if(V59==Cnil)goto T200;          if(V59==Cnil)goto T200;
545          base[0]= V59;          base[0]= V59;
546          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
547          return;          return;
548    goto T200;
549  T200:;}  T200:;}
550          {object V60;          {object V60;
551          object V61;          object V61;
# Line 504  T200:;} Line 562  T200:;}
562          vs_top=sup;          vs_top=sup;
563          V63= vs_base[0];          V63= vs_base[0];
564          V62= car(V63);          V62= car(V63);
565    goto T204;
566  T204:;  T204:;
567          if(((V62))==Cnil){          if(((V62))==Cnil){
568          goto T209;}          goto T209;}
# Line 522  T204:; Line 581  T204:;
581          base[2]= V60;          base[2]= V60;
582          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
583          return;}          return;}
584    goto T209;
585  T209:;  T209:;
586          base[2]= Cnil;          base[2]= Cnil;
587          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 529  T209:; Line 589  T209:;
589  }  }
590  /*      function definition for NODES-FROM-INDEX        */  /*      function definition for NODES-FROM-INDEX        */
591    
592  static L9()  static void L9()
593  {register object *base=vs_base;  {register object *base=vs_base;
594          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
595          vs_reserve(VM9);          vs_reserve(VM9);
# Line 538  static L9() Line 598  static L9()
598          check_arg(1);          check_arg(1);
599          V66=(base[0]);          V66=(base[0]);
600          vs_top=sup;          vs_top=sup;
601    goto TTL;
602  TTL:;  TTL:;
603          {register object V67;          {register object V67;
604          register object V68;          register object V68;
# Line 563  TTL:; Line 624  TTL:;
624          (void) (*Lnk101)();          (void) (*Lnk101)();
625          vs_top=sup;          vs_top=sup;
626          V66= vs_base[0];          V66= vs_base[0];
627    goto T232;
628  T232:;  T232:;
629          {long V70= fix((VFUN_NARGS=3,(*(LnkLI93))((V66),(V69),(V67))));          {long V70= fix((VFUN_NARGS=3,(*(LnkLI93))((V66),(V69),(V67))));
630          if(!((/* INLINE-ARGS */V70)>=(0))){          if(!((/* INLINE-ARGS */V70)>=(0))){
631          goto T235;}}          goto T235;}}
632          goto T234;          goto T234;
633    goto T235;
634  T235:;  T235:;
635          goto T233;          goto T233;
636    goto T234;
637  T234:;  T234:;
638          V67= make_fixnum((*(LnkLI94))(0));          V67= make_fixnum((*(LnkLI94))(0));
639          base[3]= (V69);          base[3]= (V69);
# Line 587  T234:; Line 651  T234:;
651          V73= make_cons(V71,V72);          V73= make_cons(V71,V72);
652          V68= make_cons(/* INLINE-ARGS */V73,(V68));          V68= make_cons(/* INLINE-ARGS */V73,(V68));
653          goto T232;          goto T232;
654    goto T233;
655  T233:;  T233:;
656          goto T230;          goto T230;
657          goto T230;          goto T230;
658    goto T230;
659  T230:;  T230:;
660          base[3]= nreverse((V68));          base[3]= nreverse((V68));
661          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
662          bds_unwind1;          bds_unwind1;
663          bds_unwind1;          bds_unwind1;
664          return;          return;
665    goto T222;
666  T222:;  T222:;
667          base[3]= Cnil;          base[3]= Cnil;
668          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 606  T222:; Line 673  T222:;
673  }  }
674  /*      function definition for GET-NODE-INDEX  */  /*      function definition for GET-NODE-INDEX  */
675    
676  static L10()  static void L10()
677  {register object *base=vs_base;  {register object *base=vs_base;
678          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
679          vs_reserve(VM10);          vs_reserve(VM10);
# Line 617  static L10() Line 684  static L10()
684          V74=(base[0]);          V74=(base[0]);
685          V75=(base[1]);          V75=(base[1]);
686          vs_top=sup;          vs_top=sup;
687    goto TTL;
688  TTL:;  TTL:;
689          {object V76;          {object V76;
690          V76= (V74);          V76= (V74);
# Line 627  TTL:; Line 695  TTL:;
695          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
696          bds_unwind1;          bds_unwind1;
697          return;          return;
698    goto T250;
699  T250:;  T250:;
700          base[3]= VV[24];          base[3]= VV[24];
701          base[5]= (V74);          base[5]= (V74);
# Line 648  T250:; Line 717  T250:;
717          (void) (*Lnk96)();          (void) (*Lnk96)();
718          bds_unwind1;          bds_unwind1;
719          return;          return;
720    goto T259;
721  T259:;  T259:;
722          base[3]= VV[26];          base[3]= VV[26];
723          base[4]= (V76);          base[4]= (V76);
# Line 662  T259:; Line 732  T259:;
732  }  }
733  /*      function definition for ALL-MATCHES     */  /*      function definition for ALL-MATCHES     */
734    
735  static L11()  static void L11()
736  {register object *base=vs_base;  {register object *base=vs_base;
737          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
738          vs_reserve(VM11);          vs_reserve(VM11);
# Line 673  static L11() Line 743  static L11()
743          V78=(base[0]);          V78=(base[0]);
744          V79=(base[1]);          V79=(base[1]);
745          vs_top=sup;          vs_top=sup;
746    goto TTL;
747  TTL:;  TTL:;
748          {register long V80;          {register long V80;
749          V80= 0;          V80= 0;
# Line 683  TTL:; Line 754  TTL:;
754          V81= Cnil;          V81= Cnil;
755          V82= Cnil;          V82= Cnil;
756          V83= Cnil;          V83= Cnil;
757    goto T268;
758  T268:;  T268:;
759          V84 = make_fixnum(V80);          V84 = make_fixnum(V80);
760          V80= fix((VFUN_NARGS=3,(*(LnkLI93))((V78),(V79),V84)));          V80= fix((VFUN_NARGS=3,(*(LnkLI93))((V78),(V79),V84)));
761          if(!((V80)>=(0))){          if(!((V80)>=(0))){
762          goto T271;}          goto T271;}
763          goto T270;          goto T270;
764    goto T271;
765  T271:;  T271:;
766          goto T269;          goto T269;
767    goto T270;
768  T270:;{object V85;  T270:;{object V85;
769          V85= make_fixnum(V80);          V85= make_fixnum(V80);
770          V80= (*(LnkLI94))(0);          V80= (*(LnkLI94))(0);
# Line 706  T270:;{object V85; Line 780  T270:;{object V85;
780          if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));          if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));
781          ((V87))->c.c_cdr = (V88);          ((V87))->c.c_cdr = (V88);
782          goto T277;}          goto T277;}
783    goto T279;
784  T279:;  T279:;
785          V82= make_cons((V83),Cnil);          V82= make_cons((V83),Cnil);
786          V81= (V82);          V81= (V82);
787    goto T277;
788  T277:;  T277:;
789          goto T268;          goto T268;
790    goto T269;
791  T269:;  T269:;
792          base[3]= (V81);          base[3]= (V81);
793          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 728  T269:; Line 805  T269:;
805  }  }
806  /*      macro definition for NODE       */  /*      macro definition for NODE       */
807    
808  static L12()  static void L12()
809  {register object *base=vs_base;  {register object *base=vs_base;
810          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
811          vs_reserve(VM12);          vs_reserve(VM12);
# Line 749  static L12() Line 826  static L12()
826  }  }
827  /*      function definition for NODE-OFFSET     */  /*      function definition for NODE-OFFSET     */
828    
829  static L13()  static void L13()
830  {register object *base=vs_base;  {register object *base=vs_base;
831          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
832          vs_reserve(VM13);          vs_reserve(VM13);
# Line 757  static L13() Line 834  static L13()
834          check_arg(1);          check_arg(1);
835          V91=(base[0]);          V91=(base[0]);
836          vs_top=sup;          vs_top=sup;
837    goto TTL;
838  TTL:;  TTL:;
839          base[1]= number_plus(car(cadr(cddddr((V91)))),cadr((V91)));          base[1]= number_plus(car(cadr(cddddr((V91)))),cadr((V91)));
840          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 765  TTL:; Line 843  TTL:;
843  }  }
844  /*      function definition for SETUP-INFO      */  /*      function definition for SETUP-INFO      */
845    
846  static L14()  static void L14()
847  {register object *base=vs_base;  {register object *base=vs_base;
848          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
849          vs_reserve(VM14);          vs_reserve(VM14);
# Line 774  static L14() Line 852  static L14()
852          check_arg(1);          check_arg(1);
853          V92=(base[0]);          V92=(base[0]);
854          vs_top=sup;          vs_top=sup;
855    goto TTL;
856  TTL:;  TTL:;
857          {object V93;          {object V93;
858          register object V94;          register object V94;
# Line 782  TTL:; Line 861  TTL:;
861          if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){          if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){
862          goto T292;}          goto T292;}
863          goto T291;          goto T291;
864    goto T292;
865  T292:;  T292:;
866          setq(VV[29],symbol_value(VV[30]));          setq(VV[29],symbol_value(VV[30]));
867          base[1]= symbol_value(VV[30]);          base[1]= symbol_value(VV[30]);
# Line 796  T292:; Line 876  T292:;
876          (void) (*Lnk105)();          (void) (*Lnk105)();
877          vs_top=sup;          vs_top=sup;
878          setq(VV[31],vs_base[0]);          setq(VV[31],vs_base[0]);
879    goto T291;
880  T291:;  T291:;
881          if(!(equal((V92),VV[33]))){          if(!(equal((V92),VV[33]))){
882          goto T303;}          goto T303;}
883          V92= VV[34];          V92= VV[34];
884    goto T303;
885  T303:;  T303:;
886          base[1]= (V92);          base[1]= (V92);
887          base[2]= symbol_value(VV[31]);          base[2]= symbol_value(VV[31]);
# Line 844  T303:; Line 926  T303:;
926          vs_top=sup;          vs_top=sup;
927          V94= vs_base[0];          V94= vs_base[0];
928          bds_unwind1;}          bds_unwind1;}
929    goto T313;
930  T313:;  T313:;
931          if(((V94))==Cnil){          if(((V94))==Cnil){
932          goto T334;}          goto T334;}
# Line 864  T313:; Line 947  T313:;
947          goto T342;          goto T342;
948          }else V100=V100->c.c_cdr;          }else V100=V100->c.c_cdr;
949          V93= Cnil;}          V93= Cnil;}
950    goto T342;
951  T342:;  T342:;
952          if(((V93))==Cnil){          if(((V93))==Cnil){
953          goto T340;}          goto T340;}
954          setq(VV[20],(V93));          setq(VV[20],(V93));
955          goto T332;          goto T332;
956    goto T340;
957  T340:;  T340:;
958          base[2]= (V99);          base[2]= (V99);
959          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 878  T340:; Line 963  T340:;
963          setq(VV[20],list(3,(V99),V101,Cnil));          setq(VV[20],list(3,(V99),V101,Cnil));
964          setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40])));          setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40])));
965          goto T332;}          goto T332;}
966    goto T334;
967  T334:;  T334:;
968          base[1]= Ct;          base[1]= Ct;
969          base[2]= VV[41];          base[2]= VV[41];
# Line 885  T334:; Line 971  T334:;
971          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
972          Lformat();          Lformat();
973          vs_top=sup;          vs_top=sup;
974    goto T332;
975  T332:;  T332:;
976          base[1]= Cnil;          base[1]= Cnil;
977          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 893  T332:; Line 980  T332:;
980  }  }
981  /*      function definition for GET-INFO-CHOICES        */  /*      function definition for GET-INFO-CHOICES        */
982    
983  static L15()  static void L15()
984  {register object *base=vs_base;  {register object *base=vs_base;
985          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
986          vs_reserve(VM15);          vs_reserve(VM15);
# Line 903  static L15() Line 990  static L15()
990          V102=(base[0]);          V102=(base[0]);
991          V103=(base[1]);          V103=(base[1]);
992          vs_top=sup;          vs_top=sup;
993    goto TTL;
994  TTL:;  TTL:;
995          if(!(eql((V103),VV[42]))){          if(!(eql((V103),VV[42]))){
996          goto T353;}          goto T353;}
# Line 910  TTL:; Line 998  TTL:;
998          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
999          (void) (*Lnk108)();          (void) (*Lnk108)();
1000          return;          return;
1001    goto T353;
1002  T353:;  T353:;
1003          base[2]= (V102);          base[2]= (V102);
1004          base[3]= car(cadr(symbol_value(VV[20])));          base[3]= car(cadr(symbol_value(VV[20])));
# Line 920  T353:; Line 1009  T353:;
1009  }  }
1010  /*      function definition for ADD-FILE        */  /*      function definition for ADD-FILE        */
1011    
1012  static L16()  static void L16()
1013  {register object *base=vs_base;  {register object *base=vs_base;
1014          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1015          vs_reserve(VM16);          vs_reserve(VM16);
# Line 930  static L16() Line 1019  static L16()
1019          V104=(base[0]);          V104=(base[0]);
1020          V105=(base[1]);          V105=(base[1]);
1021          vs_top=sup;          vs_top=sup;
1022    goto TTL;
1023  TTL:;  TTL:;
1024          {register object V106;          {register object V106;
1025          V106= (V104);          V106= (V104);
1026    goto T361;
1027  T361:;  T361:;
1028          if((V106)!=Cnil){          if((V106)!=Cnil){
1029          goto T363;}          goto T363;}
1030          goto T362;          goto T362;
1031    goto T363;
1032  T363:;  T363:;
1033          {register object V107;          {register object V107;
1034          register object V108;          register object V108;
# Line 946  T363:; Line 1038  T363:;
1038          ((V107))->c.c_car = (V108);}          ((V107))->c.c_car = (V108);}
1039          V106= cdr((V106));          V106= cdr((V106));
1040          goto T361;          goto T361;
1041    goto T362;
1042  T362:;  T362:;
1043          goto T359;          goto T359;
1044          goto T359;          goto T359;
1045    goto T359;
1046  T359:;  T359:;
1047          base[2]= (V104);          base[2]= (V104);
1048          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 957  T359:; Line 1051  T359:;
1051  }  }
1052  /*      function definition for INFO-ERROR      */  /*      function definition for INFO-ERROR      */
1053    
1054  static L17()  static void L17()
1055  {register object *base=vs_base;  {register object *base=vs_base;
1056          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1057          vs_reserve(VM17);          vs_reserve(VM17);
# Line 982  static L17() Line 1076  static L17()
1076          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1077          (void) (*Lnk109)();          (void) (*Lnk109)();
1078          return;          return;
1079    goto T372;
1080  T372:;  T372:;
1081          {object V111;          {object V111;
1082          V111= (V109);          V111= (V109);
# Line 995  T372:; Line 1090  T372:;
1090  }  }
1091  /*      function definition for INFO-GET-FILE   */  /*      function definition for INFO-GET-FILE   */
1092    
1093  static L18()  static void L18()
1094  {register object *base=vs_base;  {register object *base=vs_base;
1095          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1096          vs_reserve(VM18);          vs_reserve(VM18);
# Line 1003  static L18() Line 1098  static L18()
1098          check_arg(1);          check_arg(1);
1099          V112=(base[0]);          V112=(base[0]);
1100          vs_top=sup;          vs_top=sup;
1101    goto TTL;
1102  TTL:;  TTL:;
1103          base[1]= (V112);          base[1]= (V112);
1104          base[2]= car(symbol_value(VV[20]));          base[2]= car(symbol_value(VV[20]));
# Line 1014  TTL:; Line 1110  TTL:;
1110          goto T384;}          goto T384;}
1111          V113= symbol_value(VV[44]);          V113= symbol_value(VV[44]);
1112          goto T382;          goto T382;
1113    goto T384;
1114  T384:;  T384:;
1115          base[1]= (V112);          base[1]= (V112);
1116          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1022  T384:; Line 1119  T384:;
1119          V114= vs_base[0];          V114= vs_base[0];
1120          setq(VV[44],make_cons((V112),V114));          setq(VV[44],make_cons((V112),V114));
1121          V113= symbol_value(VV[44]);          V113= symbol_value(VV[44]);
1122    goto T382;
1123  T382:;  T382:;
1124          base[1]= cdr(V113);          base[1]= cdr(V113);
1125          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1030  T382:; Line 1128  T382:;
1128  }  }
1129  /*      function definition for WAITING */  /*      function definition for WAITING */
1130    
1131  static L19()  static void L19()
1132  {register object *base=vs_base;  {register object *base=vs_base;
1133          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1134          vs_reserve(VM19);          vs_reserve(VM19);
# Line 1038  static L19() Line 1136  static L19()
1136          check_arg(1);          check_arg(1);
1137          V115=(base[0]);          V115=(base[0]);
1138          vs_top=sup;          vs_top=sup;
1139    goto TTL;
1140  TTL:;  TTL:;
1141          if(symbol_value(VV[43])==Cnil){          if(symbol_value(VV[43])==Cnil){
1142          base[1]= Cnil;          base[1]= Cnil;
# Line 1052  TTL:; Line 1151  TTL:;
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    goto T389;
1155  T389:;  T389:;
1156          base[1]= VV[45];          base[1]= VV[45];
1157          base[2]= (V115);          base[2]= (V115);
# Line 1065  T389:; Line 1165  T389:;
1165          base[1]= Cnil;          base[1]= Cnil;
1166          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1167          return;          return;
1168    goto T392;
1169  T392:;  T392:;
1170          base[1]= VV[48];          base[1]= VV[48];
1171          base[2]= VV[49];          base[2]= VV[49];
# Line 1076  T392:; Line 1177  T392:;
1177  }  }
1178  /*      function definition for END-WAITING     */  /*      function definition for END-WAITING     */
1179    
1180  static L20()  static void L20()
1181  {register object *base=vs_base;  {register object *base=vs_base;
1182          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1183          vs_reserve(VM20);          vs_reserve(VM20);
# Line 1084  static L20() Line 1185  static L20()
1185          check_arg(1);          check_arg(1);
1186          V116=(base[0]);          V116=(base[0]);
1187          vs_top=sup;          vs_top=sup;
1188    goto TTL;
1189  TTL:;  TTL:;
1190          base[1]= (V116);          base[1]= (V116);
1191          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1094  TTL:; Line 1196  TTL:;
1196          base[1]= Cnil;          base[1]= Cnil;
1197          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1198          return;          return;
1199    goto T401;
1200  T401:;  T401:;
1201          base[1]= VV[48];          base[1]= VV[48];
1202          base[2]= VV[49];          base[2]= VV[49];
# Line 1105  T401:; Line 1208  T401:;
1208  }  }
1209  /*      function definition for INFO-SUBFILE    */  /*      function definition for INFO-SUBFILE    */
1210    
1211  static L21()  static void L21()
1212  {register object *base=vs_base;  {register object *base=vs_base;
1213          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1214          vs_reserve(VM21);          vs_reserve(VM21);
# Line 1113  static L21() Line 1216  static L21()
1216          check_arg(1);          check_arg(1);
1217          V117=(base[0]);          V117=(base[0]);
1218          vs_top=sup;          vs_top=sup;
1219    goto TTL;
1220  TTL:;  TTL:;
1221          {object V118;          {object V118;
1222          register object V119;          register object V119;
# Line 1125  TTL:; Line 1229  TTL:;
1229          if(number_compare((V117),small_fixnum(0))>=0){          if(number_compare((V117),small_fixnum(0))>=0){
1230          goto T409;}          goto T409;}
1231          goto T408;          goto T408;
1232    goto T409;
1233  T409:;  T409:;
1234          {register object V121;          {register object V121;
1235          register object V122;          register object V122;
1236          V121= (V118);          V121= (V118);
1237          V122= car((V121));          V122= car((V121));
1238    goto T414;
1239  T414:;  T414:;
1240          if(!(endp((V121)))){          if(!(endp((V121)))){
1241          goto T415;}          goto T415;}
1242          goto T408;          goto T408;
1243    goto T415;
1244  T415:;  T415:;
1245          if(!(number_compare(car((V122)),(V117))>0)){          if(!(number_compare(car((V122)),(V117))>0)){
1246          goto T419;}          goto T419;}
1247          V120= car((V122));          V120= car((V122));
1248          goto T408;          goto T408;
1249    goto T419;
1250  T419:;  T419:;
1251          V119= (V122);          V119= (V122);
1252          V121= cdr((V121));          V121= cdr((V121));
1253          V122= car((V121));          V122= car((V121));
1254          goto T414;}          goto T414;}
1255    goto T408;
1256  T408:;  T408:;
1257          if((V119)!=Cnil){          if((V119)!=Cnil){
1258          base[1]= (V119);          base[1]= (V119);
1259          goto T431;}          goto T431;}
1260          base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20])));          base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20])));
1261    goto T431;
1262  T431:;  T431:;
1263          base[2]= (V120);          base[2]= (V120);
1264          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 1157  T431:; Line 1267  T431:;
1267  }  }
1268  /*      function definition for INFO-NODE-FROM-POSITION */  /*      function definition for INFO-NODE-FROM-POSITION */
1269    
1270  static L22()  static void L22()
1271  {register object *base=vs_base;  {register object *base=vs_base;
1272          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1273          vs_reserve(VM22);          vs_reserve(VM22);
# Line 1165  static L22() Line 1275  static L22()
1275          check_arg(1);          check_arg(1);
1276          V123=(base[0]);          V123=(base[0]);
1277          vs_top=sup;          vs_top=sup;
1278    goto TTL;
1279  TTL:;  TTL:;
1280          {register object V124;          {register object V124;
1281          V124= small_fixnum(0);          V124= small_fixnum(0);
# Line 1182  TTL:; Line 1293  TTL:;
1293          vs_top=sup;          vs_top=sup;
1294          V126= vs_base[0];          V126= vs_base[0];
1295          V127= number_minus((V123),car((V125)));          V127= number_minus((V123),car((V125)));
1296    goto T441;
1297  T441:;  T441:;
1298          {long V128= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V126),(V124),(V127))));          {long V128= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V126),(V124),(V127))));
1299          if(!((/* INLINE-ARGS */V128)>=(0))){          if(!((/* INLINE-ARGS */V128)>=(0))){
1300          goto T444;}}          goto T444;}}
1301          goto T443;          goto T443;
1302    goto T444;
1303  T444:;  T444:;
1304          goto T442;          goto T442;
1305    goto T443;
1306  T443:;  T443:;
1307          V124= make_fixnum((*(LnkLI94))(0));          V124= make_fixnum((*(LnkLI94))(0));
1308          goto T441;          goto T441;
1309    goto T442;
1310  T442:;  T442:;
1311          goto T439;          goto T439;
1312          goto T439;          goto T439;
1313    goto T439;
1314  T439:;  T439:;
1315          V124= number_minus((V124),small_fixnum(1));          V124= number_minus((V124),small_fixnum(1));
1316          {long V129= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V126),(V124))));          {long V129= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V126),(V124))));
# Line 1218  T439:; Line 1334  T439:;
1334          goto T461;}}          goto T461;}}
1335          V133= make_fixnum((*(LnkLI95))(0));          V133= make_fixnum((*(LnkLI95))(0));
1336          goto T459;          goto T459;
1337    goto T461;
1338  T461:;  T461:;
1339          V133= make_fixnum(length((V126)));          V133= make_fixnum(length((V126)));
1340    goto T459;
1341  T459:;  T459:;
1342          V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20]));          V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20]));
1343          base[9]= (V134);          base[9]= (V134);
1344          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1345          return;}          return;}
1346    goto T452;
1347  T452:;  T452:;
1348          base[4]= Cnil;          base[4]= Cnil;
1349          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1233  T452:; Line 1352  T452:;
1352  }  }
1353  /*      function definition for SHOW-INFO       */  /*      function definition for SHOW-INFO       */
1354    
1355  static L23()  static void L23()
1356  {register object *base=vs_base;  {register object *base=vs_base;
1357          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
1358          vs_reserve(VM23);          vs_reserve(VM23);
# Line 1252  static L23() Line 1371  static L23()
1371          V138=(base[2]);          V138=(base[2]);
1372          vs_top=sup;          vs_top=sup;
1373          goto T466;          goto T466;
1374    goto T464;
1375  T464:;  T464:;
1376          V137= Cnil;          V137= Cnil;
1377    goto T465;
1378  T465:;  T465:;
1379          V138= symbol_value(VV[43]);          V138= symbol_value(VV[43]);
1380    goto T466;
1381  T466:;  T466:;
1382          {register object V139;          {register object V139;
1383          register object V140;          register object V140;
# Line 1272  T466:; Line 1394  T466:;
1394          goto T474;}          goto T474;}
1395          V140= cadr((V136));          V140= cadr((V136));
1396          V136= car((V136));          V136= car((V136));
1397    goto T474;
1398  T474:;  T474:;
1399          if(!(type_of((V136))==t_cons)){          if(!(type_of((V136))==t_cons)){
1400          goto T473;}          goto T473;}
1401          V137= car((V136));          V137= car((V136));
1402          V136= cdr((V136));          V136= cdr((V136));
1403    goto T473;
1404  T473:;  T473:;
1405          if(!(type_of((V136))==t_string)){          if(!(type_of((V136))==t_string)){
1406          goto T488;}          goto T488;}
1407          goto T487;          goto T487;
1408    goto T488;
1409  T488:;  T488:;
1410          base[4]= VV[55];          base[4]= VV[55];
1411          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1412          (void) (*Lnk98)();          (void) (*Lnk98)();
1413          vs_top=sup;          vs_top=sup;
1414    goto T487;
1415  T487:;  T487:;
1416          base[4]= symbol_value(VV[56]);          base[4]= symbol_value(VV[56]);
1417          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1309  T487:; Line 1435  T487:;
1435          if(!(equal((V136),VV[58]))){          if(!(equal((V136),VV[58]))){
1436          goto T493;}          goto T493;}
1437          V136= VV[59];          V136= VV[59];
1438    goto T493;
1439  T493:;  T493:;
1440          if(((V140))==Cnil){          if(((V140))==Cnil){
1441          goto T507;}          goto T507;}
# Line 1316  T493:; Line 1443  T493:;
1443          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1444          (void) (*Lnk114)();          (void) (*Lnk114)();
1445          vs_top=sup;          vs_top=sup;
1446    goto T507;
1447  T507:;  T507:;
1448          {object V144;          {object V144;
1449          base[4]= (V136);          base[4]= (V136);
# Line 1336  T507:; Line 1464  T507:;
1464          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1465          bds_unwind1;          bds_unwind1;
1466          return;          return;
1467    goto T514;
1468  T514:;  T514:;
1469          base[4]= (V144);          base[4]= (V144);
1470          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1375  T514:; Line 1504  T514:;
1504          goto T539;}}          goto T539;}}
1505          V151= make_fixnum((*(LnkLI95))(0));          V151= make_fixnum((*(LnkLI95))(0));
1506          goto T537;          goto T537;
1507    goto T539;
1508  T539:;  T539:;
1509          V151= make_fixnum(length((V145)));          V151= make_fixnum(length((V145)));
1510    goto T537;
1511  T537:;  T537:;
1512          V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20]));          V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20]));
1513          if(((V137))==Cnil){          if(((V137))==Cnil){
# Line 1401  T537:; Line 1532  T537:;
1532          if(!((/* INLINE-ARGS */V155)>=(0))){          if(!((/* INLINE-ARGS */V155)>=(0))){
1533          bds_unwind1;          bds_unwind1;
1534          goto T542;}}          goto T542;}}
1535    goto T548;
1536  T548:;  T548:;
1537          V156 = make_fixnum((*(LnkLI95))(0));          V156 = make_fixnum((*(LnkLI95))(0));
1538          V141= fix(number_minus(V156,(V150)));          V141= fix(number_minus(V156,(V150)));
1539          bds_unwind1;          bds_unwind1;
1540    goto T542;
1541  T542:;  T542:;
1542          if(((V138))==Cnil){          if(((V138))==Cnil){
1543          goto T559;}          goto T559;}
# Line 1423  T542:; Line 1556  T542:;
1556          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1557          bds_unwind1;          bds_unwind1;
1558          return;}          return;}
1559    goto T559;
1560  T559:;  T559:;
1561          {object V158;          {object V158;
1562          if(!((V142)>=(0))){          if(!((V142)>=(0))){
# Line 1439  T559:; Line 1573  T559:;
1573          goto T568;}}          goto T568;}}
1574          V158= make_fixnum((*(LnkLI95))(0));          V158= make_fixnum((*(LnkLI95))(0));
1575          goto T566;          goto T566;
1576    goto T568;
1577  T568:;  T568:;
1578          V158= (V151);          V158= (V151);
1579    goto T566;
1580  T566:;  T566:;
1581          base[10]= (V145);          base[10]= (V145);
1582          V161 = make_fixnum(V141);          V161 = make_fixnum(V141);
# Line 1450  T566:; Line 1586  T566:;
1586          Lsubseq();          Lsubseq();
1587          bds_unwind1;          bds_unwind1;
1588          return;}}          return;}}
1589    goto T528;
1590  T528:;  T528:;
1591          base[6]= VV[67];          base[6]= VV[67];
1592          base[7]= (V136);          base[7]= (V136);
# Line 1465  T528:; Line 1602  T528:;
1602  }  }
1603  /*      function definition for INFO-AUX        */  /*      function definition for INFO-AUX        */
1604    
1605  static L24()  static void L24()
1606  {register object *base=vs_base;  {register object *base=vs_base;
1607          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1608          vs_reserve(VM24);          vs_reserve(VM24);
# Line 1475  static L24() Line 1612  static L24()
1612          V162=(base[0]);          V162=(base[0]);
1613          V163=(base[1]);          V163=(base[1]);
1614          vs_top=sup;          vs_top=sup;
1615    goto TTL;
1616  TTL:;  TTL:;
1617          {register object V164;          {register object V164;
1618          register object V165;          register object V165;
# Line 1488  TTL:; Line 1626  TTL:;
1626          V167= Cnil;          V167= Cnil;
1627          V168= Cnil;          V168= Cnil;
1628          V169= Cnil;          V169= Cnil;
1629    goto T584;
1630  T584:;  T584:;
1631          if(((V165))==Cnil){          if(((V165))==Cnil){
1632          goto T587;}          goto T587;}
1633          goto T586;          goto T586;
1634    goto T587;
1635  T587:;  T587:;
1636          goto T585;          goto T585;
1637    goto T586;
1638  T586:;  T586:;
1639          {object V170;          {object V170;
1640          V170= car((V165));          V170= car((V165));
# Line 1526  T586:; Line 1667  T586:;
1667          if(((V172))!=Cnil){          if(((V172))!=Cnil){
1668          goto T605;}}          goto T605;}}
1669          goto T601;          goto T601;
1670    goto T605;
1671  T605:;  T605:;
1672          base[2]= cdr((V167));          base[2]= cdr((V167));
1673          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1533  T605:; Line 1675  T605:;
1675          vs_top=sup;          vs_top=sup;
1676          V167= vs_base[0];          V167= vs_base[0];
1677          goto T601;          goto T601;
1678    goto T603;
1679  T603:;  T603:;
1680          V166= (V168);          V166= (V168);
1681          base[2]= (V166);          base[2]= (V166);
# Line 1540  T603:; Line 1683  T603:;
1683          Llast();          Llast();
1684          vs_top=sup;          vs_top=sup;
1685          V167= vs_base[0];          V167= vs_base[0];
1686    goto T601;
1687  T601:;  T601:;
1688          base[4]= (V162);          base[4]= (V162);
1689          base[5]= VV[42];          base[5]= VV[42];
# Line 1565  T601:; Line 1709  T601:;
1709          if(((V174))!=Cnil){          if(((V174))!=Cnil){
1710          goto T625;}}          goto T625;}}
1711          goto T621;          goto T621;
1712    goto T625;
1713  T625:;  T625:;
1714          base[2]= cdr((V167));          base[2]= cdr((V167));
1715          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1572  T625:; Line 1717  T625:;
1717          vs_top=sup;          vs_top=sup;
1718          V167= vs_base[0];          V167= vs_base[0];
1719          goto T621;          goto T621;
1720    goto T623;
1721  T623:;  T623:;
1722          V166= (V169);          V166= (V169);
1723          base[2]= (V166);          base[2]= (V166);
# Line 1579  T623:; Line 1725  T623:;
1725          Llast();          Llast();
1726          vs_top=sup;          vs_top=sup;
1727          V167= vs_base[0];          V167= vs_base[0];
1728    goto T621;
1729  T621:;  T621:;
1730          V165= cdr((V165));          V165= cdr((V165));
1731          goto T584;          goto T584;
1732    goto T585;
1733  T585:;  T585:;
1734          base[2]= (V166);          base[2]= (V166);
1735          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1596  T585:; Line 1744  T585:;
1744  }  }
1745  /*      function definition for INFO-SEARCH     */  /*      function definition for INFO-SEARCH     */
1746    
1747  static L25()  static void L25()
1748  {register object *base=vs_base;  {register object *base=vs_base;
1749          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
1750          vs_reserve(VM25);          vs_reserve(VM25);
# Line 1614  static L25() Line 1762  static L25()
1762          V177=(base[2]);          V177=(base[2]);
1763          vs_top=sup;          vs_top=sup;
1764          goto T640;          goto T640;
1765    goto T638;
1766  T638:;  T638:;
1767          V176= Cnil;          V176= Cnil;
1768    goto T639;
1769  T639:;  T639:;
1770          V177= Cnil;          V177= Cnil;
1771    goto T640;
1772  T640:;  T640:;
1773          {register object V178;          {register object V178;
1774          V178= Cnil;          V178= Cnil;
1775          if((V176)!=Cnil){          if((V176)!=Cnil){
1776          goto T644;}          goto T644;}
1777          V176= small_fixnum(0);          V176= small_fixnum(0);
1778    goto T644;
1779  T644:;  T644:;
1780    goto T648;
1781  T648:;  T648:;
1782          if((V176)!=Cnil){          if((V176)!=Cnil){
1783          goto T650;}          goto T650;}
1784          goto T649;          goto T649;
1785    goto T650;
1786  T650:;  T650:;
1787          {register object V179;          {register object V179;
1788          register object V180;          register object V180;
# Line 1642  T650:; Line 1796  T650:;
1796          V180= vs_base[0];          V180= vs_base[0];
1797          vs_top=sup;          vs_top=sup;
1798          goto T656;          goto T656;
1799    goto T654;
1800  T654:;  T654:;
1801          V179= Cnil;          V179= Cnil;
1802    goto T655;
1803  T655:;  T655:;
1804          V180= Cnil;          V180= Cnil;
1805    goto T656;
1806  T656:;  T656:;
1807          V178= (V180);          V178= (V180);
1808          if((V177)==Cnil){          if((V177)==Cnil){
# Line 1655  T656:; Line 1812  T656:;
1812          if(number_compare((V177),(V178))<0){          if(number_compare((V177),(V178))<0){
1813          goto T660;}          goto T660;}
1814          goto T659;          goto T659;
1815    goto T660;
1816  T660:;  T660:;
1817          V178= (V177);          V178= (V177);
1818    goto T659;
1819  T659:;  T659:;
1820          {register object V181;          {register object V181;
1821          register object V182;          register object V182;
# Line 1674  T659:; Line 1833  T659:;
1833          goto T673;}          goto T673;}
1834          V185= number_minus((V178),(V182));          V185= number_minus((V178),(V182));
1835          goto T671;          goto T671;
1836    goto T673;
1837  T673:;  T673:;
1838          V185= (V184);          V185= (V184);
1839    goto T671;
1840  T671:;  T671:;
1841          {long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185)));          {long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185)));
1842          if(!((/* INLINE-ARGS */V186)>=(0))){          if(!((/* INLINE-ARGS */V186)>=(0))){
# Line 1684  T671:; Line 1845  T671:;
1845          base[7]= number_plus((V182),V187);          base[7]= number_plus((V182),V187);
1846          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1847          return;}          return;}
1848    goto T663;
1849  T663:;  T663:;
1850          V176= (V180);}          V176= (V180);}
1851          goto T648;          goto T648;
1852    goto T649;
1853  T649:;  T649:;
1854          goto T646;          goto T646;
1855          goto T646;          goto T646;
1856    goto T646;
1857  T646:;  T646:;
1858          base[3]= small_fixnum(-1);          base[3]= small_fixnum(-1);
1859          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1698  T646:; Line 1862  T646:;
1862  }  }
1863  /*      function definition for IDESCRIBE       */  /*      function definition for IDESCRIBE       */
1864    
1865  static L26()  static void L26()
1866  {register object *base=vs_base;  {register object *base=vs_base;
1867          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1868          vs_reserve(VM26);          vs_reserve(VM26);
# Line 1706  static L26() Line 1870  static L26()
1870          check_arg(1);          check_arg(1);
1871          V188=(base[0]);          V188=(base[0]);
1872          vs_top=sup;          vs_top=sup;
1873    goto TTL;
1874  TTL:;  TTL:;
1875          {object V189;          {object V189;
1876          base[2]= (V188);          base[2]= (V188);
# Line 1718  TTL:; Line 1883  TTL:;
1883          register object V191;          register object V191;
1884          V190= (V189);          V190= (V189);
1885          V191= car((V190));          V191= car((V190));
1886    goto T683;
1887  T683:;  T683:;
1888          if(!(endp((V190)))){          if(!(endp((V190)))){
1889          goto T684;}          goto T684;}
1890          base[3]= Cnil;          base[3]= Cnil;
1891          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1892          return;          return;
1893    goto T684;
1894  T684:;  T684:;
1895          if(!(type_of(car((V191)))==t_cons)){          if(!(type_of(car((V191)))==t_cons)){
1896          goto T692;}          goto T692;}
1897          if(!(equalp(caar((V191)),(V188)))){          if(!(equalp(caar((V191)),(V188)))){
1898          goto T688;}          goto T688;}
1899          goto T690;          goto T690;
1900    goto T692;
1901  T692:;  T692:;
1902          if(!(equalp(car((V191)),(V188)))){          if(!(equalp(car((V191)),(V188)))){
1903          goto T688;}          goto T688;}
1904    goto T690;
1905  T690:;  T690:;
1906          base[3]= Ct;          base[3]= Ct;
1907          base[4]= VV[70];          base[4]= VV[70];
# Line 1748  T690:; Line 1917  T690:;
1917          vs_top=sup;          vs_top=sup;
1918          V192= vs_base[0];          V192= vs_base[0];
1919          (void)(princ(V192,Cnil));          (void)(princ(V192,Cnil));
1920    goto T688;
1921  T688:;  T688:;
1922          V190= cdr((V190));          V190= cdr((V190));
1923          V191= car((V190));          V191= car((V190));
# Line 1756  T688:; Line 1926  T688:;
1926  }  }
1927  /*      function definition for INFO    */  /*      function definition for INFO    */
1928    
1929  static L27()  static void L27()
1930  {register object *base=vs_base;  {register object *base=vs_base;
1931          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1932          vs_reserve(VM27);          vs_reserve(VM27);
# Line 1771  static L27() Line 1941  static L27()
1941          V194=(base[1]);          V194=(base[1]);
1942          vs_top=sup;          vs_top=sup;
1943          goto T708;          goto T708;
1944    goto T707;
1945  T707:;  T707:;
1946          V194= symbol_value(VV[69]);          V194= symbol_value(VV[69]);
1947    goto T708;
1948  T708:;  T708:;
1949          {object V195;          {object V195;
1950          register object V196;          register object V196;
# Line 1796  T708:; Line 1968  T708:;
1968          (void) (*Lnk121)();          (void) (*Lnk121)();
1969          bds_unwind1;          bds_unwind1;
1970          return;          return;
1971    goto T717;
1972  T717:;  T717:;
1973          if(((V198))==Cnil){          if(((V198))==Cnil){
1974          goto T722;}          goto T722;}
# Line 1809  T717:; Line 1982  T717:;
1982          V201= (V198);          V201= (V198);
1983          {object V202;          {object V202;
1984          V202= Cnil;          V202= Cnil;
1985    goto T728;
1986  T728:;  T728:;
1987          if(((V201))==Cnil){          if(((V201))==Cnil){
1988          goto T731;}          goto T731;}
1989          goto T730;          goto T730;
1990    goto T731;
1991  T731:;  T731:;
1992          goto T729;          goto T729;
1993    goto T730;
1994  T730:;  T730:;
1995          {object V203;          {object V203;
1996          V203= car((V201));          V203= car((V201));
# Line 1827  T730:; Line 2003  T730:;
2003          goto T741;}          goto T741;}
2004          V196= cadr((V200));          V196= cadr((V200));
2005          V200= car((V200));          V200= car((V200));
2006    goto T741;
2007  T741:;  T741:;
2008          if(!(type_of((V200))==t_cons)){          if(!(type_of((V200))==t_cons)){
2009          goto T740;}          goto T740;}
2010          V197= car((V200));          V197= car((V200));
2011          V200= cdr((V200));          V200= cdr((V200));
2012    goto T740;
2013  T740:;  T740:;
2014          base[4]= Ct;          base[4]= Ct;
2015          base[5]= VV[71];          base[5]= VV[71];
# Line 1841  T740:; Line 2019  T740:;
2019          goto T761;}          goto T761;}
2020          base[8]= Cnil;          base[8]= Cnil;
2021          goto T759;          goto T759;
2022    goto T761;
2023  T761:;  T761:;
2024          V202= (V196);          V202= (V196);
2025          base[8]= (V202);          base[8]= (V202);
2026    goto T759;
2027  T759:;  T759:;
2028          base[9]= (V200);          base[9]= (V200);
2029          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
# Line 1852  T759:; Line 2032  T759:;
2032          if(!((V199)<(2147483646))){          if(!((V199)<(2147483646))){
2033          goto T766;}          goto T766;}
2034          goto T765;          goto T765;
2035    goto T766;
2036  T766:;  T766:;
2037          (void)((*(LnkLI122))());          (void)((*(LnkLI122))());
2038    goto T765;
2039  T765:;  T765:;
2040          V199= (V199)+(1);          V199= (V199)+(1);
2041          V201= cdr((V201));          V201= cdr((V201));
2042          goto T728;          goto T728;
2043    goto T729;
2044  T729:;  T729:;
2045          goto T725;          goto T725;
2046          goto T725;}}}          goto T725;}}}
2047    goto T725;
2048  T725:;  T725:;
2049          if(!((length((V198)))>(1))){          if(!((length((V198)))>(1))){
2050          goto T775;}          goto T775;}
# Line 1870  T725:; Line 2054  T725:;
2054          Lformat();          Lformat();
2055          vs_top=sup;          vs_top=sup;
2056          goto T773;          goto T773;
2057    goto T775;
2058  T775:;  T775:;
2059          princ_char(10,Cnil);          princ_char(10,Cnil);
2060    goto T773;
2061  T773:;  T773:;
2062          {object V204;          {object V204;
2063          object V205;          object V205;
# Line 1883  T773:; Line 2069  T773:;
2069          vs_top=sup;          vs_top=sup;
2070          V204= vs_base[0];          V204= vs_base[0];
2071          goto T779;          goto T779;
2072    goto T781;
2073  T781:;  T781:;
2074          V204= VV[74];          V204= VV[74];
2075    goto T779;
2076  T779:;  T779:;
2077          V205= small_fixnum(0);          V205= small_fixnum(0);
2078          V206= Cnil;          V206= Cnil;
2079    goto T785;
2080  T785:;  T785:;
2081          if(!(equal((V204),VV[75]))){          if(!(equal((V204),VV[75]))){
2082          goto T788;}          goto T788;}
2083          goto T787;          goto T787;
2084    goto T788;
2085  T788:;  T788:;
2086          goto T786;          goto T786;
2087    goto T787;
2088  T787:;  T787:;
2089          vs_base=vs_top;          vs_base=vs_top;
2090          Lread_line();          Lread_line();
2091          vs_top=sup;          vs_top=sup;
2092          V204= vs_base[0];          V204= vs_base[0];
2093          goto T785;          goto T785;
2094    goto T786;
2095  T786:;  T786:;
2096          goto T783;          goto T783;
2097          goto T783;          goto T783;
2098    goto T783;
2099  T783:;  T783:;
2100    goto T795;
2101  T795:;{object V207;  T795:;{object V207;
2102          base[4]= (V204);          base[4]= (V204);
2103          base[5]= Cnil;          base[5]= Cnil;
# Line 1925  T795:;{object V207; Line 2119  T795:;{object V207;
2119          V207= (V206);          V207= (V206);
2120          if(V207==Cnil)goto T798;          if(V207==Cnil)goto T798;
2121          goto T797;          goto T797;
2122    goto T798;
2123  T798:;}  T798:;}
2124          goto T796;          goto T796;
2125    goto T797;
2126  T797:;  T797:;
2127          if(!(type_of((V206))==t_fixnum||          if(!(type_of((V206))==t_fixnum||
2128  type_of((V206))==t_bignum||  type_of((V206))==t_bignum||
# Line 1937  type_of((V206))==t_complex)){ Line 2133  type_of((V206))==t_complex)){
2133          goto T808;}          goto T808;}
2134          V195= make_cons((V206),(V195));          V195= make_cons((V206),(V195));
2135          goto T806;          goto T806;
2136    goto T808;
2137  T808:;  T808:;
2138          V195= (V206);          V195= (V206);
2139          goto T793;          goto T793;
2140    goto T806;
2141  T806:;  T806:;
2142          goto T795;          goto T795;
2143    goto T796;
2144  T796:;  T796:;
2145          goto T793;          goto T793;
2146          goto T793;          goto T793;
2147    goto T793;
2148  T793:;  T793:;
2149          if(!(type_of((V195))==t_cons)){          if(!(type_of((V195))==t_cons)){
2150          goto T816;}          goto T816;}
2151          V195= nreverse((V195));          V195= nreverse((V195));
2152          goto T814;          goto T814;
2153    goto T816;
2154  T816:;  T816:;
2155          if(!(type_of((V195))==t_symbol)){          if(!(type_of((V195))==t_symbol)){
2156          goto T814;}          goto T814;}
# Line 1958  T816:; Line 2159  T816:;
2159          goto T822;}          goto T822;}
2160          V195= Cnil;          V195= Cnil;
2161          goto T821;          goto T821;
2162    goto T822;
2163  T822:;  T822:;
2164          {register long V209;          {register long V209;
2165          long V210;          long V210;
# Line 1967  T822:; Line 2169  T822:;
2169          V212= (type_of((V211))==t_fixnum?Ct:Cnil);          V212= (type_of((V211))==t_fixnum?Ct:Cnil);
2170          if(V212==Cnil)goto T828;          if(V212==Cnil)goto T828;
2171          goto T827;          goto T827;
2172    goto T828;
2173  T828:;}  T828:;}
2174          (void)((*(LnkLI122))());          (void)((*(LnkLI122))());
2175    goto T827;
2176  T827:;  T827:;
2177          V210= fix((V211));}          V210= fix((V211));}
2178          {object V213;          {object V213;
2179          register object V214;          register object V214;
2180          V213= Cnil;          V213= Cnil;
2181          V214= Cnil;          V214= Cnil;
2182    goto T831;
2183  T831:;  T831:;
2184          if((V209)>=(V210)){          if((V209)>=(V210)){
2185          goto T834;}          goto T834;}
2186          goto T833;          goto T833;
2187    goto T834;
2188  T834:;  T834:;
2189          goto T832;          goto T832;
2190    goto T833;
2191  T833:;  T833:;
2192          if(((V214))==Cnil){          if(((V214))==Cnil){
2193          goto T838;}          goto T838;}
# Line 1993  T833:; Line 2200  T833:;
2200          if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215));          if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215));
2201          ((V215))->c.c_cdr = (V216);          ((V215))->c.c_cdr = (V216);
2202          goto T836;}          goto T836;}
2203    goto T838;
2204  T838:;  T838:;
2205          V218 = make_fixnum(V209);          V218 = make_fixnum(V209);
2206          V214= make_cons(V218,Cnil);          V214= make_cons(V218,Cnil);
2207          V213= (V214);          V213= (V214);
2208    goto T836;
2209  T836:;  T836:;
2210          V209= (V209)+(1);          V209= (V209)+(1);
2211          goto T831;          goto T831;
2212    goto T832;
2213  T832:;  T832:;
2214          V195= (V213);          V195= (V213);
2215          goto T821;          goto T821;
# Line 2007  T832:; Line 2217  T832:;
2217          goto T821;          goto T821;
2218          V195= Cnil;          V195= Cnil;
2219          goto T821;}}          goto T821;}}
2220    goto T821;
2221  T821:;  T821:;
2222    goto T814;
2223  T814:;  T814:;
2224          if(((V195))==Cnil){          if(((V195))==Cnil){
2225          goto T850;}          goto T850;}
# Line 2020  T814:; Line 2232  T814:;
2232          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2233          Lformat();          Lformat();
2234          vs_top=sup;          vs_top=sup;
2235    goto T850;
2236  T850:;  T850:;
2237          {object V220;          {object V220;
2238          register object V221;          register object V221;
2239          V220= Cnil;          V220= Cnil;
2240          V221= (V195);          V221= (V195);
2241    goto T860;
2242  T860:;  T860:;
2243          if(((V221))==Cnil){          if(((V221))==Cnil){
2244          goto T863;}          goto T863;}
2245          goto T862;          goto T862;
2246    goto T863;
2247  T863:;  T863:;
2248          goto T861;          goto T861;
2249    goto T862;
2250  T862:;  T862:;
2251          {object V222;          {object V222;
2252          V222= car((V221));          V222= car((V221));
# Line 2043  T862:; Line 2259  T862:;
2259          (void)(princ(V223,Cnil));          (void)(princ(V223,Cnil));
2260          V221= cdr((V221));          V221= cdr((V221));
2261          goto T860;          goto T860;
2262    goto T861;
2263  T861:;  T861:;
2264          base[4]= Cnil;          base[4]= Cnil;
2265          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 2052  T861:; Line 2269  T861:;
2269          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2270          bds_unwind1;          bds_unwind1;
2271          return;}}          return;}}
2272    goto T722;
2273  T722:;  T722:;
2274          base[3]= Cnil;          base[3]= Cnil;
2275          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2061  T722:; Line 2279  T722:;
2279  }  }
2280  /*      function definition for DEFAULT-INFO-HOTLIST    */  /*      function definition for DEFAULT-INFO-HOTLIST    */
2281    
2282  static L28()  static void L28()
2283  {register object *base=vs_base;  {register object *base=vs_base;
2284          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
2285          vs_reserve(VM28);          vs_reserve(VM28);
2286          check_arg(0);          check_arg(0);
2287          vs_top=sup;          vs_top=sup;
2288    goto TTL;
2289  TTL:;  TTL:;
2290          base[1]= VV[79];          base[1]= VV[79];
2291          vs_base=vs_top;          vs_base=vs_top;
# Line 2083  TTL:; Line 2302  TTL:;
2302  }  }
2303  /*      function definition for ADD-TO-HOTLIST  */  /*      function definition for ADD-TO-HOTLIST  */
2304    
2305  static L29()  static void L29()
2306  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
2307          register object *VOL sup=base+VM29; VC29          register object *VOL sup=base+VM29; VC29
2308          vs_reserve(VM29);          vs_reserve(VM29);
2309          check_arg(1);          check_arg(1);
2310          vs_top=sup;          vs_top=sup;
2311    goto TTL;
2312  TTL:;  TTL:;
2313          if(!(type_of(base[0])==t_symbol)){          if(!(type_of(base[0])==t_symbol)){
2314          goto T877;}          goto T877;}
2315          base[0]= get(base[0],VV[68],Cnil);          base[0]= get(base[0],VV[68],Cnil);
2316    goto T877;
2317  T877:;  T877:;
2318          if((base[0])==Cnil){          if((base[0])==Cnil){
2319          goto T882;}          goto T882;}
# Line 2110  T877:; Line 2331  T877:;
2331          (void) (*Lnk90)();          (void) (*Lnk90)();
2332          vs_top=sup;          vs_top=sup;
2333          base[1]= vs_base[0];          base[1]= vs_base[0];
         {object tag;frame_ptr fr;object p;bool active;  
2334          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
2335            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
2336          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
2337          else{          else{
2338          base[3]= base[1];          base[3]= base[1];
# Line 2122  T877:; Line 2343  T877:;
2343          if(!(number_compare(V224,small_fixnum(10))<0)){          if(!(number_compare(V224,small_fixnum(10))<0)){
2344          goto T893;}          goto T893;}
2345          (void)(princ(VV[86],base[1]));          (void)(princ(VV[86],base[1]));
2346    goto T893;
2347  T893:;  T893:;
2348          base[3]= base[1];          base[3]= base[1];
2349          base[4]= VV[87];          base[4]= VV[87];
# Line 2141  T893:; Line 2363  T893:;
2363          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2364          Lclose();          Lclose();
2365          vs_top=sup;          vs_top=sup;
2366    goto T902;
2367  T902:;  T902:;
2368          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
2369          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));
2370          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
2371          return;}}          return;}}
2372    goto T882;
2373  T882:;  T882:;
2374          base[1]= Cnil;          base[1]= Cnil;
2375          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2153  T882:; Line 2377  T882:;
2377  }  }
2378  /*      function definition for LIST-MATCHES    */  /*      function definition for LIST-MATCHES    */
2379    
2380  static L30()  static void L30()
2381  {register object *base=vs_base;  {register object *base=vs_base;
2382          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
2383          vs_reserve(VM30);          vs_reserve(VM30);
# Line 2177  static L30() Line 2401  static L30()
2401          V229= Cnil;          V229= Cnil;
2402          V230= Cnil;          V230= Cnil;
2403          V231= Cnil;          V231= Cnil;
2404    goto T907;
2405  T907:;  T907:;
2406          if(((V228))==Cnil){          if(((V228))==Cnil){
2407          goto T910;}          goto T910;}
2408          goto T909;          goto T909;
2409    goto T910;
2410  T910:;  T910:;
2411          goto T908;          goto T908;
2412    goto T909;
2413  T909:;  T909:;
2414          {register object V232;          {register object V232;
2415          V232= car((V228));          V232= car((V228));
# Line 2192  T909:; Line 2419  T909:;
2419          goto T917;}}          goto T917;}}
2420          V231= Cnil;          V231= Cnil;
2421          goto T916;          goto T916;
2422    goto T917;
2423  T917:;  T917:;
2424          base[2]= (V225);          base[2]= (V225);
2425          base[3]= (V227);          base[3]= (V227);
# Line 2199  T917:; Line 2427  T917:;
2427          (void) (*Lnk97)();          (void) (*Lnk97)();
2428          vs_top=sup;          vs_top=sup;
2429          V231= vs_base[0];          V231= vs_base[0];
2430    goto T916;
2431  T916:;  T916:;
2432          if(((V230))==Cnil){          if(((V230))==Cnil){
2433          goto T923;}          goto T923;}
# Line 2210  T916:; Line 2439  T916:;
2439          if(type_of((V234))!=t_cons)FEwrong_type_argument(Scons,(V234));          if(type_of((V234))!=t_cons)FEwrong_type_argument(Scons,(V234));
2440          ((V234))->c.c_cdr = (V235);          ((V234))->c.c_cdr = (V235);
2441          goto T921;}          goto T921;}
2442    goto T923;
2443  T923:;  T923:;
2444          V230= make_cons((V231),Cnil);          V230= make_cons((V231),Cnil);
2445          V229= (V230);          V229= (V230);
2446    goto T921;
2447  T921:;  T921:;
2448          V228= cdr((V228));          V228= cdr((V228));
2449          goto T907;          goto T907;
2450    goto T908;
2451  T908:;  T908:;
2452          base[2]= (V229);          base[2]= (V229);
2453          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2230  T908:; Line 2462  T908:;
2462  }  }
2463  /*      local function CLOSURE  */  /*      local function CLOSURE  */
2464    
2465  static LC31(base0)  static void LC31(base0)
2466  register object *base0;  register object *base0;
2467  {       register object *base=vs_base;  {       register object *base=vs_base;
2468          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
# Line 2244  register object *base0; Line 2476  register object *base0;
2476          base[1]= Cnil;          base[1]= Cnil;
2477          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2478          return;          return;
2479    goto T935;
2480  T935:;  T935:;
2481          base[1]= (number_compare((V236),(base0[0]->c.c_car))>=0?Ct:Cnil);          base[1]= (number_compare((V236),(base0[0]->c.c_car))>=0?Ct:Cnil);
2482          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2483          return;          return;
2484          }          }
2485  }  }
2486  static LnkT126(){ call_or_link(VV[126],&Lnk126);} /* DEFAULT-INFO-HOTLIST */  static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* DEFAULT-INFO-HOTLIST */
2487  static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* USER-HOMEDIR-PATHNAME */  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* USER-HOMEDIR-PATHNAME */
2488  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[124],&LnkLI124,ap);} /* REMOVE-IF */  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[124],(void **)&LnkLI124,ap);} /* REMOVE-IF */
2489  static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* READ-FROM-STRING */  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* READ-FROM-STRING */
2490  static object  LnkTLI122(){return call_proc0(VV[122],&LnkLI122);} /* TYPE-ERROR */  static object  LnkTLI122(){return call_proc0(VV[122],(void **)&LnkLI122);} /* TYPE-ERROR */
2491  static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* OFFER-CHOICES */  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* OFFER-CHOICES */
2492  static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* INFO-AUX */  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* INFO-AUX */
2493  static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* ADD-FILE */  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ADD-FILE */
2494  static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* GET-INFO-CHOICES */  static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* GET-INFO-CHOICES */
2495  static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* END-WAITING */  static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* END-WAITING */
2496  static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* PRINT-NODE */  static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* PRINT-NODE */
2497  static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* GET-NODE-INDEX */  static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* GET-NODE-INDEX */
2498  static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* SETUP-INFO */  static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* SETUP-INFO */
2499  static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* WAITING */  static void LnkT113(){ call_or_link(VV[113],(void **)&Lnk113);} /* WAITING */
2500  static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* INFO-GET-FILE */  static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* INFO-GET-FILE */
2501  static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* INFO-SUBFILE */  static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* INFO-SUBFILE */
2502  static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* WINFO */  static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* WINFO */
2503  static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* TKERROR */  static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* TKERROR */
2504  static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* NODES-FROM-INDEX */  static void LnkT108(){ call_or_link(VV[108],(void **)&Lnk108);} /* NODES-FROM-INDEX */
2505  static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* INFO-GET-TAGS */  static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* INFO-GET-TAGS */
2506  static LnkT106(){ call_or_link(VV[106],&Lnk106);} /* FILE-SEARCH */  static void LnkT106(){ call_or_link(VV[106],(void **)&Lnk106);} /* FILE-SEARCH */
2507  static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FIX-LOAD-PATH */  static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-LOAD-PATH */
2508  static LnkT104(){ call_or_link(VV[104],&Lnk104);} /* GET-INDEX-NODE */  static void LnkT104(){ call_or_link(VV[104],(void **)&Lnk104);} /* GET-INDEX-NODE */
2509  static LnkT103(){ call_or_link(VV[103],&Lnk103);} /* SHOW-INFO */  static void LnkT103(){ call_or_link(VV[103],(void **)&Lnk103);} /* SHOW-INFO */
2510  static LnkT102(){ call_or_link(VV[102],&Lnk102);} /* GET-NODES */  static void LnkT102(){ call_or_link(VV[102],(void **)&Lnk102);} /* GET-NODES */
2511  static LnkT101(){ call_or_link(VV[101],&Lnk101);} /* STRING-CONCATENATE */  static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* STRING-CONCATENATE */
2512  static LnkT100(){ call_or_link(VV[100],&Lnk100);} /* RE-QUOTE-STRING */  static void LnkT100(){ call_or_link(VV[100],(void **)&Lnk100);} /* RE-QUOTE-STRING */
2513  static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],&LnkLI99,ap);} /* POSITION */  static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],(void **)&LnkLI99,ap);} /* POSITION */
2514  static LnkT98(){ call_or_link(VV[98],&Lnk98);} /* INFO-ERROR */  static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* INFO-ERROR */
2515  static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* GET-MATCH */  static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-MATCH */
2516  static LnkT96(){ call_or_link(VV[96],&Lnk96);} /* ATOI */  static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* ATOI */
2517  static long  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[95],&LnkLI95,4353,ap);} /* MATCH-BEGINNING */  static long  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[95],(void **)&LnkLI95,4353,ap);} /* MATCH-BEGINNING */
2518  static long  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[94],&LnkLI94,4353,ap);} /* MATCH-END */  static long  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[94],(void **)&LnkLI94,4353,ap);} /* MATCH-END */
2519  static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],&LnkLI93,ap);} /* STRING-MATCH */  static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],(void **)&LnkLI93,ap);} /* STRING-MATCH */
2520  static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* FILE-TO-STRING */  static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* FILE-TO-STRING */
2521  static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* FREAD */  static void LnkT91(){ call_or_link(VV[91],(void **)&Lnk91);} /* FREAD */
2522  static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* OPEN */  static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* OPEN */
2523  static object  LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[89],&LnkLI89,ap);} /* VECTOR-PUSH-EXTEND */  static object  LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[89],(void **)&LnkLI89,ap);} /* VECTOR-PUSH-EXTEND */
2524  static object  LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[88],&LnkLI88,ap);} /* MAKE-ARRAY */  static object  LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[88],(void **)&LnkLI88,ap);} /* MAKE-ARRAY */
2525    
2526  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2527  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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