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

Diff of /gcl/lsp/describe.c

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

revision 1.9 by camm, Sun Feb 9 22:35:15 2003 UTC revision 1.10 by camm, Wed Feb 26 22:21:36 2003 UTC
# Line 7  void init_describe(){do_init(VV);} Line 7  void init_describe(){do_init(VV);}
7  static object LI1()  static object LI1()
8    
9  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
10  goto TTL;          goto TTL;
11  TTL:;  TTL:;
12          {register object V1;          {register object V1;
13          base[0]= symbol_value(VV[0]);          base[0]= symbol_value(VV[0]);
# Line 15  TTL:; Line 15  TTL:;
15          Lread_char();          Lread_char();
16          vs_top=sup;          vs_top=sup;
17          V1= vs_base[0];          V1= vs_base[0];
18  goto T4;          goto T4;
19  T4:;  T4:;
20          base[0]= (V1);          base[0]= (V1);
21          base[1]= VV[1];          base[1]= VV[1];
# Line 31  T4:; Line 31  T4:;
31          vs_top=sup;          vs_top=sup;
32          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
33          goto T5;}          goto T5;}
34  goto T6;          goto T6;
35  T6:;  T6:;
36          {object V2 = Cnil;          {object V2 = Cnil;
37          VMR1(V2)}          VMR1(V2)}
38  goto T5;          goto T5;
39  T5:;  T5:;
40          base[0]= symbol_value(VV[0]);          base[0]= symbol_value(VV[0]);
41          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 61  static void L2() Line 61  static void L2()
61          V4=(base[1]);          V4=(base[1]);
62          V5=(base[2]);          V5=(base[2]);
63          vs_top=sup;          vs_top=sup;
64  goto TTL;          goto TTL;
65  TTL:;  TTL:;
66          if((symbol_value(VV[3]))!=Cnil){          if((symbol_value(VV[3]))!=Cnil){
67          goto T19;}          goto T19;}
# Line 74  TTL:; Line 74  TTL:;
74          (void) (*Lnk160)();          (void) (*Lnk160)();
75          vs_top=sup;          vs_top=sup;
76          goto T23;          goto T23;
77  goto T25;          goto T25;
78  T25:;  T25:;
79          base[3]= Ct;          base[3]= Ct;
80          base[4]= (V3);          base[4]= (V3);
# Line 82  T25:; Line 82  T25:;
82          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
83          Lformat();          Lformat();
84          vs_top=sup;          vs_top=sup;
85  goto T23;          goto T23;
86  T23:;  T23:;
87          base[3]= Cnil;          base[3]= Cnil;
88          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
89          return;          return;
90  goto T19;          goto T19;
91  T19:;  T19:;
92  goto T33;          goto T33;
93  T33:;  T33:;
94          (void)((*(LnkLI159))());          (void)((*(LnkLI159))());
95          if(((V5))==Cnil){          if(((V5))==Cnil){
# Line 98  T33:; Line 98  T33:;
98          (void)((*(LnkLI161))());          (void)((*(LnkLI161))());
99          (void)(prin1((V4),Cnil));          (void)(prin1((V4),Cnil));
100          goto T36;          goto T36;
101  goto T38;          goto T38;
102  T38:;  T38:;
103          base[3]= Ct;          base[3]= Ct;
104          base[4]= (V3);          base[4]= (V3);
# Line 106  T38:; Line 106  T38:;
106          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
107          Lformat();          Lformat();
108          vs_top=sup;          vs_top=sup;
109  goto T36;          goto T36;
110  T36:;  T36:;
111          base[3]= VV[4];          base[3]= VV[4];
112          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 121  T36:; Line 121  T36:;
121          Lread_char();          Lread_char();
122          vs_top=sup;          vs_top=sup;
123          V8= vs_base[0];          V8= vs_base[0];
124  goto T52;          goto T52;
125  T52:;  T52:;
126          base[3]= (V8);          base[3]= (V8);
127          base[4]= VV[4];          base[4]= VV[4];
# Line 138  T52:; Line 138  T52:;
138          goto T53;}          goto T53;}
139          V7= (V8);          V7= (V8);
140          goto T48;          goto T48;
141  goto T53;          goto T53;
142  T53:;  T53:;
143          base[3]= symbol_value(VV[0]);          base[3]= symbol_value(VV[0]);
144          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 146  T53:; Line 146  T53:;
146          vs_top=sup;          vs_top=sup;
147          V8= vs_base[0];          V8= vs_base[0];
148          goto T52;}          goto T52;}
149  goto T48;          goto T48;
150  T48:;  T48:;
151          {object V6= V7;          {object V6= V7;
152          if(!eql(V6,VV[1])          if(!eql(V6,VV[1])
# Line 157  T48:; Line 157  T48:;
157          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
158          (void) (*Lnk160)();          (void) (*Lnk160)();
159          vs_top=sup;          vs_top=sup;
160  goto T67;          goto T67;
161  T67:;  T67:;
162          base[3]= Cnil;          base[3]= Cnil;
163          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
164          return;          return;
165  goto T66;          goto T66;
166  T66:;  T66:;
167          if(!eql(V6,VV[6])          if(!eql(V6,VV[6])
168          && !eql(V6,VV[7]))goto T71;          && !eql(V6,VV[7]))goto T71;
# Line 173  T66:; Line 173  T66:;
173          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
174          (void) (*Lnk160)();          (void) (*Lnk160)();
175          vs_top=sup;          vs_top=sup;
176  goto T73;          goto T73;
177  T73:;  T73:;
178          base[3]= Cnil;          base[3]= Cnil;
179          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
180          return;          return;
181  goto T71;          goto T71;
182  T71:;  T71:;
183          if(!eql(V6,VV[8])          if(!eql(V6,VV[8])
184          && !eql(V6,VV[9]))goto T77;          && !eql(V6,VV[9]))goto T77;
# Line 186  T71:; Line 186  T71:;
186          base[3]= Cnil;          base[3]= Cnil;
187          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
188          return;          return;
189  goto T77;          goto T77;
190  T77:;  T77:;
191          if(!eql(V6,VV[10])          if(!eql(V6,VV[10])
192          && !eql(V6,VV[11]))goto T79;          && !eql(V6,VV[11]))goto T79;
# Line 200  T77:; Line 200  T77:;
200          bds_unwind1;          bds_unwind1;
201          bds_unwind1;          bds_unwind1;
202          goto T34;          goto T34;
203  goto T79;          goto T79;
204  T79:;  T79:;
205          if(!eql(V6,VV[15])          if(!eql(V6,VV[15])
206          && !eql(V6,VV[16]))goto T82;          && !eql(V6,VV[16]))goto T82;
# Line 211  T79:; Line 211  T79:;
211          base[3]= Cnil;          base[3]= Cnil;
212          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
213          unwind(fr,VV[17]);}          unwind(fr,VV[17]);}
214  goto T82;          goto T82;
215  T82:;  T82:;
216          if(!eql(V6,VV[18])          if(!eql(V6,VV[18])
217          && !eql(V6,VV[19]))goto T85;          && !eql(V6,VV[19]))goto T85;
# Line 230  T82:; Line 230  T82:;
230          base[4]= (V9);}          base[4]= (V9);}
231          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
232          return;          return;
233  goto T85;          goto T85;
234  T85:;  T85:;
235          if(!eql(V6,VV[20])          if(!eql(V6,VV[20])
236          && !eql(V6,VV[21]))goto T92;          && !eql(V6,VV[21]))goto T92;
# Line 258  T85:; Line 258  T85:;
258          vs_top=sup;          vs_top=sup;
259          V10= vs_base[0];          V10= vs_base[0];
260          V11= car((V10));          V11= car((V10));
261  goto T101;          goto T101;
262  T101:;  T101:;
263          if(!(endp_prop((V10)))){          if(!(endp_prop((V10)))){
264          goto T102;}          goto T102;}
265          goto T34;          goto T34;
266  goto T102;          goto T102;
267  T102:;  T102:;
268          base[5]= (V11);          base[5]= (V11);
269          base[6]= VV[22];          base[6]= VV[22];
# Line 277  T102:; Line 277  T102:;
277          V10= cdr((V10));          V10= cdr((V10));
278          V11= car((V10));          V11= car((V10));
279          goto T101;}          goto T101;}
280  goto T92;          goto T92;
281  T92:;  T92:;
282          if(!eql(V6,VV[26])          if(!eql(V6,VV[26])
283          && !eql(V6,VV[27]))goto T118;          && !eql(V6,VV[27]))goto T118;
# Line 288  T92:; Line 288  T92:;
288          base[3]= Cnil;          base[3]= Cnil;
289          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
290          unwind(fr,VV[28]);}          unwind(fr,VV[28]);}
291  goto T118;          goto T118;
292  T118:;  T118:;
293          (void)((*(LnkLI162))());          (void)((*(LnkLI162))());
294          princ_char(10,Cnil);          princ_char(10,Cnil);
# Line 297  T118:; Line 297  T118:;
297          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
298          Lformat();          Lformat();
299          vs_top=sup;}          vs_top=sup;}
300  goto T34;          goto T34;
301  T34:;  T34:;
302          goto T33;          goto T33;
303          }          }
# Line 329  static void L3() Line 329  static void L3()
329          base[5]= list(4,VV[30],VV[31],/* INLINE-ARGS */V15,list(3,VV[33],VV[34],list(3,VV[35],base[4],VV[36])));          base[5]= list(4,VV[30],VV[31],/* INLINE-ARGS */V15,list(3,VV[33],VV[34],list(3,VV[35],base[4],VV[36])));
330          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
331          return;          return;
332  goto T128;          goto T128;
333  T128:;  T128:;
334          base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Ct),VV[37]);          base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Ct),VV[37]);
335          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 362  static void L4() Line 362  static void L4()
362          base[5]= list(4,VV[30],VV[38],/* INLINE-ARGS */V17,list(3,VV[33],VV[34],list(3,VV[35],base[4],VV[36])));          base[5]= list(4,VV[30],VV[38],/* INLINE-ARGS */V17,list(3,VV[33],VV[34],list(3,VV[35],base[4],VV[36])));
363          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
364          return;          return;
365  goto T132;          goto T132;
366  T132:;  T132:;
367          base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Cnil),VV[39]);          base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Cnil),VV[39]);
368          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 373  T132:; Line 373  T132:;
373  static object LI5()  static object LI5()
374    
375  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
376  goto TTL;          goto TTL;
377  TTL:;  TTL:;
378          vs_base=vs_top;          vs_base=vs_top;
379          Lfresh_line();          Lfresh_line();
# Line 384  TTL:; Line 384  TTL:;
384          goto T140;}          goto T140;}
385          V18= symbol_value(VV[41]);          V18= symbol_value(VV[41]);
386          goto T138;          goto T138;
387  goto T140;          goto T140;
388  T140:;  T140:;
389          V18= small_fixnum(8);          V18= small_fixnum(8);
390  goto T138;          goto T138;
391  T138:;  T138:;
392          base[2]= number_times(small_fixnum(4),V18);          base[2]= number_times(small_fixnum(4),V18);
393          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 403  T138:; Line 403  T138:;
403  static object LI6()  static object LI6()
404    
405  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
406  goto TTL;          goto TTL;
407  TTL:;  TTL:;
408          vs_base=vs_top;          vs_base=vs_top;
409          Lfresh_line();          Lfresh_line();
# Line 414  TTL:; Line 414  TTL:;
414          goto T148;}          goto T148;}
415          V20= symbol_value(VV[41]);          V20= symbol_value(VV[41]);
416          goto T146;          goto T146;
417  goto T148;          goto T148;
418  T148:;  T148:;
419          V20= small_fixnum(8);          V20= small_fixnum(8);
420  goto T146;          goto T146;
421  T146:;  T146:;
422          V21= number_times(small_fixnum(4),V20);          V21= number_times(small_fixnum(4),V20);
423          base[2]= number_minus(/* INLINE-ARGS */V21,small_fixnum(3));          base[2]= number_minus(/* INLINE-ARGS */V21,small_fixnum(3));
# Line 435  static object LI7(V24) Line 435  static object LI7(V24)
435    
436  register object V24;  register object V24;
437  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
438  goto TTL;          goto TTL;
439  TTL:;  TTL:;
440          {object V25;          {object V25;
441          base[0]= (V24);          base[0]= (V24);
# Line 452  TTL:; Line 452  TTL:;
452          Lformat();          Lformat();
453          vs_top=sup;          vs_top=sup;
454          goto T150;          goto T150;
455  goto T154;          goto T154;
456  T154:;  T154:;
457          base[0]= VV[44];          base[0]= VV[44];
458          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 468  T154:; Line 468  T154:;
468          Lformat();          Lformat();
469          vs_top=sup;          vs_top=sup;
470          goto T150;          goto T150;
471  goto T160;          goto T160;
472  T160:;  T160:;
473          base[0]= Ct;          base[0]= Ct;
474          base[1]= VV[46];          base[1]= VV[46];
# Line 486  T160:; Line 486  T160:;
486          V28= vs_base[0];          V28= vs_base[0];
487          vs_top=sup;          vs_top=sup;
488          goto T176;          goto T176;
489  goto T174;          goto T174;
490  T174:;  T174:;
491          V27= Cnil;          V27= Cnil;
492  goto T175;          goto T175;
493  T175:;  T175:;
494          V28= Cnil;          V28= Cnil;
495  goto T176;          goto T176;
496  T176:;  T176:;
497          base[3]= (((V28))==(VV[47])?Ct:Cnil);}          base[3]= (((V28))==(VV[47])?Ct:Cnil);}
498          base[5]= (V25);          base[5]= (V25);
# Line 503  T176:; Line 503  T176:;
503          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
504          Lformat();          Lformat();
505          vs_top=sup;}          vs_top=sup;}
506  goto T150;          goto T150;
507  T150:;  T150:;
508          base[0]= (V24);          base[0]= (V24);
509          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 531  T150:; Line 531  T150:;
531          V30= vs_base[0];          V30= vs_base[0];
532          vs_top=sup;          vs_top=sup;
533          goto T193;          goto T193;
534  goto T191;          goto T191;
535  T191:;  T191:;
536          V29= Cnil;          V29= Cnil;
537  goto T192;          goto T192;
538  T192:;  T192:;
539          V30= Cnil;          V30= Cnil;
540  goto T193;          goto T193;
541  T193:;  T193:;
542          if(((V29))==Cnil){          if(((V29))==Cnil){
543          goto T179;}          goto T179;}
# Line 547  T193:; Line 547  T193:;
547          Lset();          Lset();
548          vs_top=sup;          vs_top=sup;
549          goto T179;}          goto T179;}
550  goto T184;          goto T184;
551  T184:;  T184:;
552          {object V31;          {object V31;
553          object V32;          object V32;
# Line 567  T184:; Line 567  T184:;
567          V32= vs_base[0];          V32= vs_base[0];
568          vs_top=sup;          vs_top=sup;
569          goto T205;          goto T205;
570  goto T203;          goto T203;
571  T203:;  T203:;
572          V31= Cnil;          V31= Cnil;
573  goto T204;          goto T204;
574  T204:;  T204:;
575          V32= Cnil;          V32= Cnil;
576  goto T205;          goto T205;
577  T205:;  T205:;
578          if(((V31))==Cnil){          if(((V31))==Cnil){
579          goto T179;}          goto T179;}
# Line 582  T205:; Line 582  T205:;
582          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
583          Lset();          Lset();
584          vs_top=sup;}          vs_top=sup;}
585  goto T179;          goto T179;
586  T179:;  T179:;
587          {register object V33;          {register object V33;
588          base[0]= (V24);          base[0]= (V24);
# Line 590  T179:; Line 590  T179:;
590          Lsymbol_plist();          Lsymbol_plist();
591          vs_top=sup;          vs_top=sup;
592          V33= vs_base[0];          V33= vs_base[0];
593  goto T214;          goto T214;
594  T214:;  T214:;
595          if(!(endp_prop((V33)))){          if(!(endp_prop((V33)))){
596          goto T215;}          goto T215;}
597          goto T210;          goto T210;
598  goto T215;          goto T215;
599  T215:;  T215:;
600          if(!(type_of(car((V33)))==t_symbol)){          if(!(type_of(car((V33)))==t_symbol)){
601          goto T220;}          goto T220;}
# Line 623  T215:; Line 623  T215:;
623          V37= vs_base[0];          V37= vs_base[0];
624          if((V36)==(V37)){          if((V36)==(V37)){
625          goto T219;}          goto T219;}
626  goto T220;          goto T220;
627  T220:;  T220:;
628          if((symbol_value(VV[3]))==Cnil){          if((symbol_value(VV[3]))==Cnil){
629          goto T235;}          goto T235;}
# Line 647  T220:; Line 647  T220:;
647          V39= vs_base[0];          V39= vs_base[0];
648          vs_top=sup;          vs_top=sup;
649          goto T246;          goto T246;
650  goto T244;          goto T244;
651  T244:;  T244:;
652          V38= Cnil;          V38= Cnil;
653  goto T245;          goto T245;
654  T245:;  T245:;
655          V39= Cnil;          V39= Cnil;
656  goto T246;          goto T246;
657  T246:;  T246:;
658          if(((V38))==Cnil){          if(((V38))==Cnil){
659          goto T219;}          goto T219;}
660          (void)(sputprop((V24),car((V33)),(V39)));          (void)(sputprop((V24),car((V33)),(V39)));
661          goto T219;}          goto T219;}
662  goto T235;          goto T235;
663  T235:;  T235:;
664          {register object V40;          {register object V40;
665          register object V41;          register object V41;
# Line 681  T235:; Line 681  T235:;
681          V41= vs_base[0];          V41= vs_base[0];
682          vs_top=sup;          vs_top=sup;
683          goto T258;          goto T258;
684  goto T256;          goto T256;
685  T256:;  T256:;
686          V40= Cnil;          V40= Cnil;
687  goto T257;          goto T257;
688  T257:;  T257:;
689          V41= Cnil;          V41= Cnil;
690  goto T258;          goto T258;
691  T258:;  T258:;
692          if(((V40))==Cnil){          if(((V40))==Cnil){
693          goto T219;}          goto T219;}
694          (void)(sputprop((V24),car((V33)),(V41)));}          (void)(sputprop((V24),car((V33)),(V41)));}
695  goto T219;          goto T219;
696  T219:;  T219:;
697          V33= cddr((V33));          V33= cddr((V33));
698          goto T214;}          goto T214;}
699  goto T210;          goto T210;
700  T210:;  T210:;
701          base[0]= (V24);          base[0]= (V24);
702          base[1]= Ct;          base[1]= Ct;
# Line 712  T210:; Line 712  T210:;
712          vs_top=sup;          vs_top=sup;
713          {object V42 = vs_base[0];          {object V42 = vs_base[0];
714          VMR8(V42)}          VMR8(V42)}
715  goto T265;          goto T265;
716  T265:;  T265:;
717          {object V43 = Cnil;          {object V43 = Cnil;
718          VMR8(V43)}          VMR8(V43)}
# Line 725  static object LI8(V45) Line 725  static object LI8(V45)
725    
726  register object V45;  register object V45;
727  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
728  goto TTL;          goto TTL;
729  TTL:;  TTL:;
730          base[0]= Ct;          base[0]= Ct;
731          base[1]= VV[55];          base[1]= VV[55];
# Line 753  TTL:; Line 753  TTL:;
753          goto T275;}          goto T275;}
754          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
755          princ_char(10,Cnil);          princ_char(10,Cnil);
756  goto T275;          goto T275;
757  T275:;  T275:;
758          base[0]= (V45);          base[0]= (V45);
759          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 775  T275:; Line 775  T275:;
775          goto T286;}          goto T286;}
776          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
777          princ_char(10,Cnil);          princ_char(10,Cnil);
778  goto T286;          goto T286;
779  T286:;  T286:;
780          base[0]= (V45);          base[0]= (V45);
781          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 797  T286:; Line 797  T286:;
797          goto T297;}          goto T297;}
798          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
799          princ_char(10,Cnil);          princ_char(10,Cnil);
800  goto T297;          goto T297;
801  T297:;  T297:;
802          base[0]= (V45);          base[0]= (V45);
803          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 820  T297:; Line 820  T297:;
820          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
821          {object V46 = terpri(Cnil);          {object V46 = terpri(Cnil);
822          VMR9(V46)}          VMR9(V46)}
823  goto T313;          goto T313;
824  T313:;  T313:;
825          {object V47 = Cnil;          {object V47 = Cnil;
826          VMR9(V47)}          VMR9(V47)}
827  goto T309;          goto T309;
828  T309:;  T309:;
829          {object V48 = Cnil;          {object V48 = Cnil;
830          VMR9(V48)}          VMR9(V48)}
# Line 837  static object LI9(V50) Line 837  static object LI9(V50)
837    
838  register object V50;  register object V50;
839  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
840  goto TTL;          goto TTL;
841  TTL:;  TTL:;
842          base[0]= Ct;          base[0]= Ct;
843          base[2]= (V50);          base[2]= (V50);
# Line 848  TTL:; Line 848  TTL:;
848          goto T324;}          goto T324;}
849          base[1]= VV[60];          base[1]= VV[60];
850          goto T322;          goto T322;
851  goto T324;          goto T324;
852  T324:;  T324:;
853          base[2]= (V50);          base[2]= (V50);
854          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 858  T324:; Line 858  T324:;
858          goto T328;}          goto T328;}
859          base[1]= VV[61];          base[1]= VV[61];
860          goto T322;          goto T322;
861  goto T328;          goto T328;
862  T328:;  T328:;
863          base[1]= VV[62];          base[1]= VV[62];
864  goto T322;          goto T322;
865  T322:;  T322:;
866          base[2]= (V50);          base[2]= (V50);
867          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 881  T322:; Line 881  T322:;
881          goto T332;}          goto T332;}
882          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
883          princ_char(10,Cnil);          princ_char(10,Cnil);
884  goto T332;          goto T332;
885  T332:;  T332:;
886          base[0]= VV[64];          base[0]= VV[64];
887          base[2]= (V50);          base[2]= (V50);
# Line 897  T332:; Line 897  T332:;
897          goto T340;}          goto T340;}
898          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
899          princ_char(10,Cnil);          princ_char(10,Cnil);
900  goto T340;          goto T340;
901  T340:;  T340:;
902          base[0]= VV[65];          base[0]= VV[65];
903          base[2]= (V50);          base[2]= (V50);
# Line 914  T340:; Line 914  T340:;
914          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
915          {object V51 = terpri(Cnil);          {object V51 = terpri(Cnil);
916          VMR10(V51)}          VMR10(V51)}
917  goto T349;          goto T349;
918  T349:;  T349:;
919          {object V52 = Cnil;          {object V52 = Cnil;
920          VMR10(V52)}          VMR10(V52)}
# Line 927  static object LI10(V54) Line 927  static object LI10(V54)
927    
928  register object V54;  register object V54;
929  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
930  goto TTL;          goto TTL;
931  TTL:;  TTL:;
932          base[0]= (V54);          base[0]= (V54);
933          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 944  TTL:; Line 944  TTL:;
944          vs_top=sup;          vs_top=sup;
945          {object V57 = vs_base[0];          {object V57 = vs_base[0];
946          VMR11(V57)}          VMR11(V57)}
947  goto T358;          goto T358;
948  T358:;  T358:;
949          if((V55!= VV[167]))goto T362;          if((V55!= VV[167]))goto T362;
950          base[0]= Ct;          base[0]= Ct;
# Line 955  T358:; Line 955  T358:;
955          vs_top=sup;          vs_top=sup;
956          {object V58 = vs_base[0];          {object V58 = vs_base[0];
957          VMR11(V58)}          VMR11(V58)}
958  goto T362;          goto T362;
959  T362:;  T362:;
960          if((V55!= VV[168]))goto T366;          if((V55!= VV[168]))goto T366;
961          base[0]= Ct;          base[0]= Ct;
# Line 978  T362:; Line 978  T362:;
978          goto T371;}          goto T371;}
979          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
980          princ_char(10,Cnil);          princ_char(10,Cnil);
981  goto T371;          goto T371;
982  T371:;  T371:;
983          base[0]= VV[70];          base[0]= VV[70];
984          base[2]= (V54);          base[2]= (V54);
# Line 995  T371:; Line 995  T371:;
995          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
996          {object V59 = terpri(Cnil);          {object V59 = terpri(Cnil);
997          VMR11(V59)}          VMR11(V59)}
998  goto T380;          goto T380;
999  T380:;  T380:;
1000          {object V60 = Cnil;          {object V60 = Cnil;
1001          VMR11(V60)}          VMR11(V60)}
1002  goto T366;          goto T366;
1003  T366:;  T366:;
1004          if((V55!= VV[169]))goto T387;          if((V55!= VV[169]))goto T387;
1005          base[0]= Ct;          base[0]= Ct;
# Line 1022  T366:; Line 1022  T366:;
1022          goto T392;}          goto T392;}
1023          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1024          princ_char(10,Cnil);          princ_char(10,Cnil);
1025  goto T392;          goto T392;
1026  T392:;  T392:;
1027          base[0]= VV[73];          base[0]= VV[73];
1028          base[2]= (V54);          base[2]= (V54);
# Line 1039  T392:; Line 1039  T392:;
1039          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1040          {object V61 = terpri(Cnil);          {object V61 = terpri(Cnil);
1041          VMR11(V61)}          VMR11(V61)}
1042  goto T401;          goto T401;
1043  T401:;  T401:;
1044          {object V62 = Cnil;          {object V62 = Cnil;
1045          VMR11(V62)}          VMR11(V62)}
1046  goto T387;          goto T387;
1047  T387:;  T387:;
1048          if((V55!= VV[170])          if((V55!= VV[170])
1049          && (V55!= VV[171]))goto T408;          && (V55!= VV[171]))goto T408;
# Line 1069  T387:; Line 1069  T387:;
1069          V65= vs_base[0];          V65= vs_base[0];
1070          vs_top=sup;          vs_top=sup;
1071          goto T418;          goto T418;
1072  goto T415;          goto T415;
1073  T415:;  T415:;
1074          V63= Cnil;          V63= Cnil;
1075  goto T416;          goto T416;
1076  T416:;  T416:;
1077          V64= Cnil;          V64= Cnil;
1078  goto T417;          goto T417;
1079  T417:;  T417:;
1080          V65= Cnil;          V65= Cnil;
1081  goto T418;          goto T418;
1082  T418:;  T418:;
1083          base[0]= VV[75];          base[0]= VV[75];
1084          base[1]= (V64);          base[1]= (V64);
# Line 1090  T418:; Line 1090  T418:;
1090          goto T419;}          goto T419;}
1091          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1092          princ_char(10,Cnil);          princ_char(10,Cnil);
1093  goto T419;          goto T419;
1094  T419:;  T419:;
1095          base[0]= VV[76];          base[0]= VV[76];
1096          base[1]= (V63);          base[1]= (V63);
# Line 1103  T419:; Line 1103  T419:;
1103          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1104          {object V66 = terpri(Cnil);          {object V66 = terpri(Cnil);
1105          VMR11(V66)}          VMR11(V66)}
1106  goto T427;          goto T427;
1107  T427:;  T427:;
1108          {object V67 = Cnil;          {object V67 = Cnil;
1109          VMR11(V67)}}          VMR11(V67)}}
1110  goto T408;          goto T408;
1111  T408:;  T408:;
1112          if((V55!= VV[172])          if((V55!= VV[172])
1113          && (V55!= VV[173]))goto T433;          && (V55!= VV[173]))goto T433;
# Line 1133  T408:; Line 1133  T408:;
1133          V70= vs_base[0];          V70= vs_base[0];
1134          vs_top=sup;          vs_top=sup;
1135          goto T443;          goto T443;
1136  goto T440;          goto T440;
1137  T440:;  T440:;
1138          V68= Cnil;          V68= Cnil;
1139  goto T441;          goto T441;
1140  T441:;  T441:;
1141          V69= Cnil;          V69= Cnil;
1142  goto T442;          goto T442;
1143  T442:;  T442:;
1144          V70= Cnil;          V70= Cnil;
1145  goto T443;          goto T443;
1146  T443:;  T443:;
1147          base[0]= VV[78];          base[0]= VV[78];
1148          base[1]= (V69);          base[1]= (V69);
# Line 1154  T443:; Line 1154  T443:;
1154          goto T444;}          goto T444;}
1155          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1156          princ_char(10,Cnil);          princ_char(10,Cnil);
1157  goto T444;          goto T444;
1158  T444:;  T444:;
1159          base[0]= VV[79];          base[0]= VV[79];
1160          base[1]= (V68);          base[1]= (V68);
# Line 1167  T444:; Line 1167  T444:;
1167          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1168          {object V71 = terpri(Cnil);          {object V71 = terpri(Cnil);
1169          VMR11(V71)}          VMR11(V71)}
1170  goto T452;          goto T452;
1171  T452:;  T452:;
1172          {object V72 = Cnil;          {object V72 = Cnil;
1173          VMR11(V72)}}          VMR11(V72)}}
1174  goto T433;          goto T433;
1175  T433:;  T433:;
1176          {object V73 = Cnil;          {object V73 = Cnil;
1177          VMR11(V73)}}          VMR11(V73)}}
# Line 1184  static object LI11(V75) Line 1184  static object LI11(V75)
1184    
1185  register object V75;  register object V75;
1186  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1187  goto TTL;          goto TTL;
1188  TTL:;  TTL:;
1189          base[0]= Ct;          base[0]= Ct;
1190          {object V76= car((V75));          {object V76= car((V75));
# Line 1194  TTL:; Line 1194  TTL:;
1194          && (V76!= VV[177]))goto T461;          && (V76!= VV[177]))goto T461;
1195          base[1]= VV[80];          base[1]= VV[80];
1196          goto T460;          goto T460;
1197  goto T461;          goto T461;
1198  T461:;  T461:;
1199          if((V76!= VV[178]))goto T462;          if((V76!= VV[178]))goto T462;
1200          base[1]= VV[81];          base[1]= VV[81];
1201          goto T460;          goto T460;
1202  goto T462;          goto T462;
1203  T462:;  T462:;
1204          base[1]= VV[82];}          base[1]= VV[82];}
1205  goto T460;          goto T460;
1206  T460:;  T460:;
1207          base[2]= (V75);          base[2]= (V75);
1208          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 1214  T460:; Line 1214  T460:;
1214          register object V78;          register object V78;
1215          V77= small_fixnum(0);          V77= small_fixnum(0);
1216          V78= (V75);          V78= (V75);
1217  goto T468;          goto T468;
1218  T468:;  T468:;
1219          if(!(type_of((V78))!=t_cons)){          if(!(type_of((V78))!=t_cons)){
1220          goto T469;}          goto T469;}
# Line 1238  T468:; Line 1238  T468:;
1238          V80= vs_base[0];          V80= vs_base[0];
1239          vs_top=sup;          vs_top=sup;
1240          goto T481;          goto T481;
1241  goto T479;          goto T479;
1242  T479:;  T479:;
1243          V79= Cnil;          V79= Cnil;
1244  goto T480;          goto T480;
1245  T480:;  T480:;
1246          V80= Cnil;          V80= Cnil;
1247  goto T481;          goto T481;
1248  T481:;  T481:;
1249          if(((V79))==Cnil){          if(((V79))==Cnil){
1250          goto T483;}          goto T483;}
# Line 1257  T481:; Line 1257  T481:;
1257          ((V81))->c.c_cdr = (V82);          ((V81))->c.c_cdr = (V82);
1258          {object V84 = (V82);          {object V84 = (V82);
1259          VMR12(V84)}}          VMR12(V84)}}
1260  goto T483;          goto T483;
1261  T483:;  T483:;
1262          {object V85 = Cnil;          {object V85 = Cnil;
1263          VMR12(V85)}}          VMR12(V85)}}
1264  goto T469;          goto T469;
1265  T469:;  T469:;
1266          {register object V86;          {register object V86;
1267          register object V87;          register object V87;
# Line 1283  T469:; Line 1283  T469:;
1283          V87= vs_base[0];          V87= vs_base[0];
1284          vs_top=sup;          vs_top=sup;
1285          goto T499;          goto T499;
1286  goto T497;          goto T497;
1287  T497:;  T497:;
1288          V86= Cnil;          V86= Cnil;
1289  goto T498;          goto T498;
1290  T498:;  T498:;
1291          V87= Cnil;          V87= Cnil;
1292  goto T499;          goto T499;
1293  T499:;  T499:;
1294          if(((V86))==Cnil){          if(((V86))==Cnil){
1295          goto T489;}          goto T489;}
# Line 1302  T499:; Line 1302  T499:;
1302          if(type_of(nthcdr(fixint((V88)),(V89)))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V88)),(V89)));          if(type_of(nthcdr(fixint((V88)),(V89)))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V88)),(V89)));
1303          (nthcdr(fixint((V88)),(V89)))->c.c_car = (V90);          (nthcdr(fixint((V88)),(V89)))->c.c_car = (V90);
1304          (void)(nthcdr(fixint((V88)),(V89)));}}          (void)(nthcdr(fixint((V88)),(V89)));}}
1305  goto T489;          goto T489;
1306  T489:;  T489:;
1307          V77= one_plus((V77));          V77= one_plus((V77));
1308          V78= cdr((V78));          V78= cdr((V78));
1309          goto T468;}          goto T468;}
1310  goto T465;          goto T465;
1311  T465:;  T465:;
1312          {object V91 = Cnil;          {object V91 = Cnil;
1313          VMR12(V91)}          VMR12(V91)}
# Line 1320  static object LI12(V93) Line 1320  static object LI12(V93)
1320    
1321  register object V93;  register object V93;
1322  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1323  goto TTL;          goto TTL;
1324  TTL:;  TTL:;
1325          base[0]= Ct;          base[0]= Ct;
1326          base[2]= (V93);          base[2]= (V93);
# Line 1331  TTL:; Line 1331  TTL:;
1331          goto T514;}          goto T514;}
1332          base[1]= VV[85];          base[1]= VV[85];
1333          goto T512;          goto T512;
1334  goto T514;          goto T514;
1335  T514:;  T514:;
1336          base[1]= VV[86];          base[1]= VV[86];
1337  goto T512;          goto T512;
1338  T512:;  T512:;
1339          base[2]= (V93);          base[2]= (V93);
1340          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 1355  T512:; Line 1355  T512:;
1355          goto T518;}          goto T518;}
1356          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1357          princ_char(10,Cnil);          princ_char(10,Cnil);
1358  goto T518;          goto T518;
1359  T518:;  T518:;
1360          base[0]= (V93);          base[0]= (V93);
1361          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1381  T518:; Line 1381  T518:;
1381          V95= vs_base[0];          V95= vs_base[0];
1382          vs_top=sup;          vs_top=sup;
1383          goto T538;          goto T538;
1384  goto T536;          goto T536;
1385  T536:;  T536:;
1386          V94= Cnil;          V94= Cnil;
1387  goto T537;          goto T537;
1388  T537:;  T537:;
1389          V95= Cnil;          V95= Cnil;
1390  goto T538;          goto T538;
1391  T538:;  T538:;
1392          if(((V94))==Cnil){          if(((V94))==Cnil){
1393          goto T527;}          goto T527;}
# Line 1396  T538:; Line 1396  T538:;
1396          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1397          siLfill_pointer_set();          siLfill_pointer_set();
1398          vs_top=sup;}          vs_top=sup;}
1399  goto T527;          goto T527;
1400  T527:;  T527:;
1401          if((symbol_value(VV[3]))==Cnil){          if((symbol_value(VV[3]))==Cnil){
1402          goto T544;}          goto T544;}
# Line 1409  T527:; Line 1409  T527:;
1409          vs_top=sup;          vs_top=sup;
1410          V96= vs_base[0];          V96= vs_base[0];
1411          V97= small_fixnum(0);          V97= small_fixnum(0);
1412  goto T551;          goto T551;
1413  T551:;  T551:;
1414          if(!(number_compare((V97),(V96))>=0)){          if(!(number_compare((V97),(V96))>=0)){
1415          goto T552;}          goto T552;}
1416          {object V98 = Cnil;          {object V98 = Cnil;
1417          VMR13(V98)}          VMR13(V98)}
1418  goto T552;          goto T552;
1419  T552:;  T552:;
1420          {register object V99;          {register object V99;
1421          register object V100;          register object V100;
# Line 1437  T552:; Line 1437  T552:;
1437          V100= vs_base[0];          V100= vs_base[0];
1438          vs_top=sup;          vs_top=sup;
1439          goto T566;          goto T566;
1440  goto T564;          goto T564;
1441  T564:;  T564:;
1442          V99= Cnil;          V99= Cnil;
1443  goto T565;          goto T565;
1444  T565:;  T565:;
1445          V100= Cnil;          V100= Cnil;
1446  goto T566;          goto T566;
1447  T566:;  T566:;
1448          if(((V99))==Cnil){          if(((V99))==Cnil){
1449          goto T556;}          goto T556;}
1450          (void)(elt_set((V93),fixint((V97)),(V100)));}          (void)(elt_set((V93),fixint((V97)),(V100)));}
1451  goto T556;          goto T556;
1452  T556:;  T556:;
1453          V97= one_plus((V97));          V97= one_plus((V97));
1454          goto T551;}          goto T551;}
1455  goto T544;          goto T544;
1456  T544:;  T544:;
1457          {object V101 = Cnil;          {object V101 = Cnil;
1458          VMR13(V101)}          VMR13(V101)}
# Line 1465  static object LI13(V103) Line 1465  static object LI13(V103)
1465    
1466  register object V103;  register object V103;
1467  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1468  goto TTL;          goto TTL;
1469  TTL:;  TTL:;
1470          base[0]= Ct;          base[0]= Ct;
1471          base[2]= (V103);          base[2]= (V103);
# Line 1476  TTL:; Line 1476  TTL:;
1476          goto T576;}          goto T576;}
1477          base[1]= VV[90];          base[1]= VV[90];
1478          goto T574;          goto T574;
1479  goto T576;          goto T576;
1480  T576:;  T576:;
1481          base[1]= VV[91];          base[1]= VV[91];
1482  goto T574;          goto T574;
1483  T574:;  T574:;
1484          base[2]= (V103);          base[2]= (V103);
1485          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 1500  T574:; Line 1500  T574:;
1500          goto T580;}          goto T580;}
1501          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1502          princ_char(10,Cnil);          princ_char(10,Cnil);
1503  goto T580;          goto T580;
1504  T580:;  T580:;
1505          base[0]= (V103);          base[0]= (V103);
1506          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1526  T580:; Line 1526  T580:;
1526          V105= vs_base[0];          V105= vs_base[0];
1527          vs_top=sup;          vs_top=sup;
1528          goto T600;          goto T600;
1529  goto T598;          goto T598;
1530  T598:;  T598:;
1531          V104= Cnil;          V104= Cnil;
1532  goto T599;          goto T599;
1533  T599:;  T599:;
1534          V105= Cnil;          V105= Cnil;
1535  goto T600;          goto T600;
1536  T600:;  T600:;
1537          if(((V104))==Cnil){          if(((V104))==Cnil){
1538          goto T589;}          goto T589;}
# Line 1541  T600:; Line 1541  T600:;
1541          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1542          siLfill_pointer_set();          siLfill_pointer_set();
1543          vs_top=sup;}          vs_top=sup;}
1544  goto T589;          goto T589;
1545  T589:;  T589:;
1546          if((symbol_value(VV[3]))==Cnil){          if((symbol_value(VV[3]))==Cnil){
1547          goto T606;}          goto T606;}
# Line 1554  T589:; Line 1554  T589:;
1554          vs_top=sup;          vs_top=sup;
1555          V106= vs_base[0];          V106= vs_base[0];
1556          V107= small_fixnum(0);          V107= small_fixnum(0);
1557  goto T613;          goto T613;
1558  T613:;  T613:;
1559          if(!(number_compare((V107),(V106))>=0)){          if(!(number_compare((V107),(V106))>=0)){
1560          goto T614;}          goto T614;}
1561          {object V108 = Cnil;          {object V108 = Cnil;
1562          VMR14(V108)}          VMR14(V108)}
1563  goto T614;          goto T614;
1564  T614:;  T614:;
1565          {register object V109;          {register object V109;
1566          register object V110;          register object V110;
# Line 1582  T614:; Line 1582  T614:;
1582          V110= vs_base[0];          V110= vs_base[0];
1583          vs_top=sup;          vs_top=sup;
1584          goto T628;          goto T628;
1585  goto T626;          goto T626;
1586  T626:;  T626:;
1587          V109= Cnil;          V109= Cnil;
1588  goto T627;          goto T627;
1589  T627:;  T627:;
1590          V110= Cnil;          V110= Cnil;
1591  goto T628;          goto T628;
1592  T628:;  T628:;
1593          if(((V109))==Cnil){          if(((V109))==Cnil){
1594          goto T618;}          goto T618;}
1595          (void)(aset1((V103),fixint((V107)),(V110)));}          (void)(aset1((V103),fixint((V107)),(V110)));}
1596  goto T618;          goto T618;
1597  T618:;  T618:;
1598          V107= one_plus((V107));          V107= one_plus((V107));
1599          goto T613;}          goto T613;}
1600  goto T606;          goto T606;
1601  T606:;  T606:;
1602          {object V111 = Cnil;          {object V111 = Cnil;
1603          VMR14(V111)}          VMR14(V111)}
# Line 1610  static object LI14(V113) Line 1610  static object LI14(V113)
1610    
1611  register object V113;  register object V113;
1612  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1613  goto TTL;          goto TTL;
1614  TTL:;  TTL:;
1615          base[0]= Ct;          base[0]= Ct;
1616          base[2]= (V113);          base[2]= (V113);
# Line 1621  TTL:; Line 1621  TTL:;
1621          goto T638;}          goto T638;}
1622          base[1]= VV[95];          base[1]= VV[95];
1623          goto T636;          goto T636;
1624  goto T638;          goto T638;
1625  T638:;  T638:;
1626          base[1]= VV[96];          base[1]= VV[96];
1627  goto T636;          goto T636;
1628  T636:;  T636:;
1629          base[2]= (V113);          base[2]= (V113);
1630          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 1644  T636:; Line 1644  T636:;
1644          goto T642;}          goto T642;}
1645          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1646          princ_char(10,Cnil);          princ_char(10,Cnil);
1647  goto T642;          goto T642;
1648  T642:;  T642:;
1649          base[0]= VV[98];          base[0]= VV[98];
1650          base[1]= (*(LnkLI180))((V113));          base[1]= (*(LnkLI180))((V113));
# Line 1656  T642:; Line 1656  T642:;
1656          goto T650;}          goto T650;}
1657          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1658          princ_char(10,Cnil);          princ_char(10,Cnil);
1659  goto T650;          goto T650;
1660  T650:;  T650:;
1661          base[0]= VV[99];          base[0]= VV[99];
1662          base[2]= (V113);          base[2]= (V113);
# Line 1673  T650:; Line 1673  T650:;
1673          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1674          {object V114 = terpri(Cnil);          {object V114 = terpri(Cnil);
1675          VMR15(V114)}          VMR15(V114)}
1676  goto T658;          goto T658;
1677  T658:;  T658:;
1678          {object V115 = Cnil;          {object V115 = Cnil;
1679          VMR15(V115)}          VMR15(V115)}
# Line 1686  static object LI15(V117) Line 1686  static object LI15(V117)
1686    
1687  register object V117;  register object V117;
1688  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1689  goto TTL;          goto TTL;
1690  TTL:;  TTL:;
1691          {object V118;          {object V118;
1692          V118= Cnil;          V118= Cnil;
# Line 1709  TTL:; Line 1709  TTL:;
1709          register object V122;          register object V122;
1710          V121= structure_ref((V119),VV[101],7);          V121= structure_ref((V119),VV[101],7);
1711          V122= car((V121));          V122= car((V121));
1712  goto T677;          goto T677;
1713  T677:;  T677:;
1714          if(!(endp_prop((V121)))){          if(!(endp_prop((V121)))){
1715          goto T678;}          goto T678;}
1716          {object V123 = Cnil;          {object V123 = Cnil;
1717          VMR16(V123)}          VMR16(V123)}
1718  goto T678;          goto T678;
1719  T678:;  T678:;
1720          base[4]= Ct;          base[4]= Ct;
1721          base[5]= VV[102];          base[5]= VV[102];
# Line 1726  T678:; Line 1726  T678:;
1726          goto T689;}          goto T689;}
1727          base[7]= Cnil;          base[7]= Cnil;
1728          goto T686;          goto T686;
1729  goto T689;          goto T689;
1730  T689:;  T689:;
1731          base[7]= (V124);}          base[7]= (V124);}
1732  goto T686;          goto T686;
1733  T686:;  T686:;
1734          base[8]= car((V122));          base[8]= car((V122));
1735          base[10]= (V117);          base[10]= (V117);
# Line 1758  static void L16() Line 1758  static void L16()
1758          check_arg(1);          check_arg(1);
1759          V125=(base[0]);          V125=(base[0]);
1760          vs_top=sup;          vs_top=sup;
1761  goto TTL;          goto TTL;
1762  TTL:;  TTL:;
1763          bds_bind(VV[41],symbol_value(VV[41]));          bds_bind(VV[41],symbol_value(VV[41]));
1764          (void)((*(LnkLI161))());          (void)((*(LnkLI161))());
# Line 1772  TTL:; Line 1772  TTL:;
1772          goto T707;          goto T707;
1773          }else V126=V126->c.c_cdr;          }else V126=V126->c.c_cdr;
1774          goto T701;}          goto T701;}
1775  goto T707;          goto T707;
1776  T707:;  T707:;
1777  goto T702;          goto T702;
1778  T702:;  T702:;
1779          (void)(prin1((V125),Cnil));          (void)(prin1((V125),Cnil));
1780          base[2]= Cnil;          base[2]= Cnil;
1781          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1782          bds_unwind1;          bds_unwind1;
1783          return;          return;
1784  goto T701;          goto T701;
1785  T701:;  T701:;
1786          (VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1));          (VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1));
1787          setq(VV[103],make_cons(V125,symbol_value(VV[103])));          setq(VV[103],make_cons(V125,symbol_value(VV[103])));
# Line 1799  T701:; Line 1799  T701:;
1799          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1800          bds_unwind1;          bds_unwind1;
1801          return;          return;
1802  goto T715;          goto T715;
1803  T715:;  T715:;
1804          base[2]= (V125);          base[2]= (V125);
1805          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1813  T715:; Line 1813  T715:;
1813          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1814          bds_unwind1;          bds_unwind1;
1815          return;          return;
1816  goto T718;          goto T718;
1817  T718:;  T718:;
1818          if(!(type_of((V125))==t_character)){          if(!(type_of((V125))==t_character)){
1819          goto T722;}          goto T722;}
# Line 1823  T718:; Line 1823  T718:;
1823          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1824          bds_unwind1;          bds_unwind1;
1825          return;          return;
1826  goto T722;          goto T722;
1827  T722:;  T722:;
1828          if(!(type_of((V125))==t_fixnum||          if(!(type_of((V125))==t_fixnum||
1829  type_of((V125))==t_bignum||  type_of((V125))==t_bignum||
# Line 1838  type_of((V125))==t_complex)){ Line 1838  type_of((V125))==t_complex)){
1838          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1839          bds_unwind1;          bds_unwind1;
1840          return;          return;
1841  goto T725;          goto T725;
1842  T725:;  T725:;
1843          if(!(type_of((V125))==t_cons)){          if(!(type_of((V125))==t_cons)){
1844          goto T728;}          goto T728;}
# Line 1848  T725:; Line 1848  T725:;
1848          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1849          bds_unwind1;          bds_unwind1;
1850          return;          return;
1851  goto T728;          goto T728;
1852  T728:;  T728:;
1853          if(!(type_of((V125))==t_string)){          if(!(type_of((V125))==t_string)){
1854          goto T731;}          goto T731;}
# Line 1858  T728:; Line 1858  T728:;
1858          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1859          bds_unwind1;          bds_unwind1;
1860          return;          return;
1861  goto T731;          goto T731;
1862  T731:;  T731:;
1863          if(!(type_of((V125))==t_vector||          if(!(type_of((V125))==t_vector||
1864  type_of((V125))==t_string||  type_of((V125))==t_string||
# Line 1870  type_of((V125))==t_bitvector)){ Line 1870  type_of((V125))==t_bitvector)){
1870          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1871          bds_unwind1;          bds_unwind1;
1872          return;          return;
1873  goto T734;          goto T734;
1874  T734:;  T734:;
1875          if(!(type_of((V125))==t_array||          if(!(type_of((V125))==t_array||
1876  type_of((V125))==t_vector||  type_of((V125))==t_vector||
# Line 1883  type_of((V125))==t_bitvector)){ Line 1883  type_of((V125))==t_bitvector)){
1883          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1884          bds_unwind1;          bds_unwind1;
1885          return;          return;
1886  goto T737;          goto T737;
1887  T737:;  T737:;
1888          if(!(type_of((V125))==t_structure)){          if(!(type_of((V125))==t_structure)){
1889          goto T740;}          goto T740;}
# Line 1893  T737:; Line 1893  T737:;
1893          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1894          bds_unwind1;          bds_unwind1;
1895          return;          return;
1896  goto T740;          goto T740;
1897  T740:;  T740:;
1898          base[2]= Ct;          base[2]= Ct;
1899          base[3]= VV[104];          base[3]= VV[104];
# Line 1921  static void L17() Line 1921  static void L17()
1921          check_arg(1);          check_arg(1);
1922          V137=(base[0]);          V137=(base[0]);
1923          vs_top=sup;          vs_top=sup;
1924  goto TTL;          goto TTL;
1925  TTL:;  TTL:;
1926          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
1927          bds_bind(VV[41],small_fixnum(0));          bds_bind(VV[41],small_fixnum(0));
# Line 1940  TTL:; Line 1940  TTL:;
1940          (void) (*Lnk160)();          (void) (*Lnk160)();
1941          vs_top=sup;          vs_top=sup;
1942          frs_pop();}          frs_pop();}
1943  goto T748;          goto T748;
1944  T748:;  T748:;
1945          princ_char(10,Cnil);          princ_char(10,Cnil);
1946          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
# Line 1964  static void L18() Line 1964  static void L18()
1964          check_arg(1);          check_arg(1);
1965          V138=(base[0]);          V138=(base[0]);
1966          vs_top=sup;          vs_top=sup;
1967  goto TTL;          goto TTL;
1968  TTL:;  TTL:;
1969          bds_bind(VV[3],Ct);          bds_bind(VV[3],Ct);
1970          bds_bind(VV[41],small_fixnum(0));          bds_bind(VV[41],small_fixnum(0));
# Line 1989  TTL:; Line 1989  TTL:;
1989          (void) (*Lnk160)();          (void) (*Lnk160)();
1990          vs_top=sup;          vs_top=sup;
1991          frs_pop();}          frs_pop();}
1992  goto T755;          goto T755;
1993  T755:;  T755:;
1994          princ_char(10,Cnil);          princ_char(10,Cnil);
1995          vs_base=vs_top=base+8;          vs_base=vs_top=base+8;
# Line 2019  static void L19() Line 2019  static void L19()
2019          V139=(base[1]);          V139=(base[1]);
2020          vs_top=sup;          vs_top=sup;
2021          goto T760;          goto T760;
2022  goto T759;          goto T759;
2023  T759:;  T759:;
2024          V139= Cnil;          V139= Cnil;
2025  goto T760;          goto T760;
2026  T760:;  T760:;
2027          {register object V140;          {register object V140;
2028          base[2]= Cnil;          base[2]= Cnil;
# Line 2037  T760:; Line 2037  T760:;
2037          if(V141==Cnil)goto T770;          if(V141==Cnil)goto T770;
2038          base[3]= V141;          base[3]= V141;
2039          goto T769;          goto T769;
2040  goto T770;          goto T770;
2041  T770:;}  T770:;}
2042          base[3]= VV[106];          base[3]= VV[106];
2043  goto T769;          goto T769;
2044  T769:;  T769:;
2045          base[5]= base[0];          base[5]= base[0];
2046          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 2050  T769:; Line 2050  T769:;
2050          goto T774;}          goto T774;}
2051          base[4]= VV[107];          base[4]= VV[107];
2052          goto T772;          goto T772;
2053  goto T774;          goto T774;
2054  T774:;  T774:;
2055          base[4]= VV[108];          base[4]= VV[108];
2056  goto T772;          goto T772;
2057  T772:;  T772:;
2058          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2059          L20(base);          L20(base);
2060          vs_top=sup;          vs_top=sup;
2061          goto T764;          goto T764;
2062  goto T766;          goto T766;
2063  T766:;  T766:;
2064          base[3]= base[0];          base[3]= base[0];
2065          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2071  T766:; Line 2071  T766:;
2071          if(V142==Cnil)goto T782;          if(V142==Cnil)goto T782;
2072          base[3]= V142;          base[3]= V142;
2073          goto T781;          goto T781;
2074  goto T782;          goto T782;
2075  T782:;}  T782:;}
2076          base[3]= VV[109];          base[3]= VV[109];
2077  goto T781;          goto T781;
2078  T781:;  T781:;
2079          base[4]= VV[110];          base[4]= VV[110];
2080          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2081          L20(base);          L20(base);
2082          vs_top=sup;          vs_top=sup;
2083          goto T764;          goto T764;
2084  goto T778;          goto T778;
2085  T778:;  T778:;
2086          base[3]= base[0];          base[3]= base[0];
2087          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2093  T778:; Line 2093  T778:;
2093          if(V143==Cnil)goto T790;          if(V143==Cnil)goto T790;
2094          base[3]= V143;          base[3]= V143;
2095          goto T789;          goto T789;
2096  goto T790;          goto T790;
2097  T790:;}  T790:;}
2098          base[4]= base[0];          base[4]= base[0];
2099          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 2112  T790:;} Line 2112  T790:;}
2112          vs_top=sup;          vs_top=sup;
2113          base[3]= vs_base[0];          base[3]= vs_base[0];
2114          goto T789;          goto T789;
2115  goto T797;          goto T797;
2116  T797:;  T797:;
2117          if((V144!= VV[175]))goto T801;          if((V144!= VV[175]))goto T801;
2118          base[4]= Cnil;          base[4]= Cnil;
# Line 2123  T797:; Line 2123  T797:;
2123          vs_top=sup;          vs_top=sup;
2124          base[3]= vs_base[0];          base[3]= vs_base[0];
2125          goto T789;          goto T789;
2126  goto T801;          goto T801;
2127  T801:;  T801:;
2128          if((V144!= VV[176]))goto T805;          if((V144!= VV[176]))goto T805;
2129          base[4]= Cnil;          base[4]= Cnil;
# Line 2134  T801:; Line 2134  T801:;
2134          vs_top=sup;          vs_top=sup;
2135          base[3]= vs_base[0];          base[3]= vs_base[0];
2136          goto T789;          goto T789;
2137  goto T805;          goto T805;
2138  T805:;  T805:;
2139          if((V144!= VV[177]))goto T809;          if((V144!= VV[177]))goto T809;
2140          base[4]= Cnil;          base[4]= Cnil;
# Line 2145  T805:; Line 2145  T805:;
2145          vs_top=sup;          vs_top=sup;
2146          base[3]= vs_base[0];          base[3]= vs_base[0];
2147          goto T789;          goto T789;
2148  goto T809;          goto T809;
2149  T809:;  T809:;
2150          base[3]= VV[115];          base[3]= VV[115];
2151          goto T789;}          goto T789;}
2152  goto T793;          goto T793;
2153  T793:;  T793:;
2154          base[3]= VV[116];          base[3]= VV[116];
2155  goto T789;          goto T789;
2156  T789:;  T789:;
2157          base[4]= VV[117];          base[4]= VV[117];
2158          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2159          L20(base);          L20(base);
2160          vs_top=sup;          vs_top=sup;
2161          goto T764;          goto T764;
2162  goto T786;          goto T786;
2163  T786:;  T786:;
2164          V140= (*(LnkLI192))(base[0],VV[105]);          V140= (*(LnkLI192))(base[0],VV[105]);
2165          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2169  T786:; Line 2169  T786:;
2169          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2170          L20(base);          L20(base);
2171          vs_top=sup;          vs_top=sup;
2172  goto T764;          goto T764;
2173  T764:;  T764:;
2174          base[3]= base[0];          base[3]= base[0];
2175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2191  T764:; Line 2191  T764:;
2191          goto T824;}          goto T824;}
2192          if(((*(LnkLI192))(base[0],VV[120]))==Cnil){          if(((*(LnkLI192))(base[0],VV[120]))==Cnil){
2193          goto T819;}          goto T819;}
2194  goto T824;          goto T824;
2195  T824:;{object V147;  T824:;{object V147;
2196          V147= (*(LnkLI192))(base[0],VV[120]);          V147= (*(LnkLI192))(base[0],VV[120]);
2197          if(V147==Cnil)goto T833;          if(V147==Cnil)goto T833;
2198          base[3]= V147;          base[3]= V147;
2199          goto T832;          goto T832;
2200  goto T833;          goto T833;
2201  T833:;}  T833:;}
2202          base[3]= VV[121];          base[3]= VV[121];
2203  goto T832;          goto T832;
2204  T832:;  T832:;
2205          base[4]= VV[122];          base[4]= VV[122];
2206          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2207          L20(base);          L20(base);
2208          vs_top=sup;          vs_top=sup;
2209          goto T819;          goto T819;
2210  goto T821;          goto T821;
2211  T821:;  T821:;
2212          base[3]= base[0];          base[3]= base[0];
2213          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2219  T821:; Line 2219  T821:;
2219          if(V148==Cnil)goto T841;          if(V148==Cnil)goto T841;
2220          base[3]= V148;          base[3]= V148;
2221          goto T840;          goto T840;
2222  goto T841;          goto T841;
2223  T841:;}  T841:;}
2224          base[3]= VV[123];          base[3]= VV[123];
2225  goto T840;          goto T840;
2226  T840:;  T840:;
2227          base[4]= VV[124];          base[4]= VV[124];
2228          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2229          L20(base);          L20(base);
2230          vs_top=sup;          vs_top=sup;
2231          goto T819;          goto T819;
2232  goto T837;          goto T837;
2233  T837:;  T837:;
2234          V140= (*(LnkLI192))(base[0],VV[120]);          V140= (*(LnkLI192))(base[0],VV[120]);
2235          if(((V140))!=Cnil){          if(((V140))!=Cnil){
# Line 2240  T837:; Line 2240  T837:;
2240          vs_top=sup;          vs_top=sup;
2241          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2242          goto T819;}          goto T819;}
2243  goto T844;          goto T844;
2244  T844:;  T844:;
2245          if((V140)!=Cnil){          if((V140)!=Cnil){
2246          base[3]= (V140);          base[3]= (V140);
2247          goto T850;}          goto T850;}
2248          base[3]= VV[125];          base[3]= VV[125];
2249  goto T850;          goto T850;
2250  T850:;  T850:;
2251          base[4]= VV[126];          base[4]= VV[126];
2252          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2253          L20(base);          L20(base);
2254          vs_top=sup;          vs_top=sup;
2255  goto T819;          goto T819;
2256  T819:;  T819:;
2257          V140= (*(LnkLI192))(base[0],VV[127]);          V140= (*(LnkLI192))(base[0],VV[127]);
2258          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2263  T819:; Line 2263  T819:;
2263          L20(base);          L20(base);
2264          vs_top=sup;          vs_top=sup;
2265          goto T852;          goto T852;
2266  goto T854;          goto T854;
2267  T854:;  T854:;
2268          V140= get(base[0],VV[129],Cnil);          V140= get(base[0],VV[129],Cnil);
2269          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2285  T854:; Line 2285  T854:;
2285          L20(base);          L20(base);
2286          vs_top=sup;          vs_top=sup;
2287          bds_unwind1;          bds_unwind1;
2288  goto T852;          goto T852;
2289  T852:;  T852:;
2290          V140= (*(LnkLI192))(base[0],VV[133]);          V140= (*(LnkLI192))(base[0],VV[133]);
2291          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2296  T852:; Line 2296  T852:;
2296          L20(base);          L20(base);
2297          vs_top=sup;          vs_top=sup;
2298          goto T868;          goto T868;
2299  goto T870;          goto T870;
2300  T870:;  T870:;
2301          V140= get(base[0],VV[135],Cnil);          V140= get(base[0],VV[135],Cnil);
2302          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2312  T870:; Line 2312  T870:;
2312          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2313          L20(base);          L20(base);
2314          vs_top=sup;          vs_top=sup;
2315  goto T868;          goto T868;
2316  T868:;  T868:;
2317          V140= (*(LnkLI192))(base[0],VV[35]);          V140= (*(LnkLI192))(base[0],VV[35]);
2318          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2323  T868:; Line 2323  T868:;
2323          L20(base);          L20(base);
2324          vs_top=sup;          vs_top=sup;
2325          goto T763;          goto T763;
2326  goto T884;          goto T884;
2327  T884:;  T884:;
2328          V140= get(base[0],VV[139],Cnil);          V140= get(base[0],VV[139],Cnil);
2329          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2347  T884:; Line 2347  T884:;
2347          vs_top=sup;          vs_top=sup;
2348          bds_unwind1;          bds_unwind1;
2349          goto T763;          goto T763;
2350  goto T890;          goto T890;
2351  T890:;  T890:;
2352          V140= get(base[0],VV[143],Cnil);          V140= get(base[0],VV[143],Cnil);
2353          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2371  T890:; Line 2371  T890:;
2371          vs_top=sup;          vs_top=sup;
2372          bds_unwind1;          bds_unwind1;
2373          goto T763;          goto T763;
2374  goto T901;          goto T901;
2375  T901:;  T901:;
2376          V140= get(base[0],VV[146],Cnil);          V140= get(base[0],VV[146],Cnil);
2377          if(((V140))==Cnil){          if(((V140))==Cnil){
# Line 2389  T901:; Line 2389  T901:;
2389          if((V151!= VV[174]))goto T922;          if((V151!= VV[174]))goto T922;
2390          base[7]= make_cons(VV[148],cdr((V140)));          base[7]= make_cons(VV[148],cdr((V140)));
2391          goto T918;          goto T918;
2392  goto T922;          goto T922;
2393  T922:;  T922:;
2394          if((V151!= VV[175]))goto T923;          if((V151!= VV[175]))goto T923;
2395          base[7]= make_cons(VV[148],cddr((V140)));          base[7]= make_cons(VV[148],cddr((V140)));
2396          goto T918;          goto T918;
2397  goto T923;          goto T923;
2398  T923:;  T923:;
2399          if((V151!= VV[176]))goto T924;          if((V151!= VV[176]))goto T924;
2400          base[7]= make_cons(VV[148],cddddr((V140)));          base[7]= make_cons(VV[148],cddddr((V140)));
2401          goto T918;          goto T918;
2402  goto T924;          goto T924;
2403  T924:;  T924:;
2404          if((V151!= VV[177]))goto T925;          if((V151!= VV[177]))goto T925;
2405          base[7]= make_cons(VV[148],cdr(cddddr((V140))));          base[7]= make_cons(VV[148],cdr(cddddr((V140))));
2406          goto T918;          goto T918;
2407  goto T925;          goto T925;
2408  T925:;  T925:;
2409          base[7]= Cnil;          base[7]= Cnil;
2410          goto T918;}          goto T918;}
2411  goto T920;          goto T920;
2412  T920:;  T920:;
2413          base[7]= Cnil;          base[7]= Cnil;
2414  goto T918;          goto T918;
2415  T918:;  T918:;
2416          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2417          Lformat();          Lformat();
# Line 2422  T918:; Line 2422  T918:;
2422          L20(base);          L20(base);
2423          vs_top=sup;          vs_top=sup;
2424          bds_unwind1;          bds_unwind1;
2425  goto T763;          goto T763;
2426  T763:;  T763:;
2427          base[3]= symbol_name(base[0]);          base[3]= symbol_name(base[0]);
2428          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2432  T763:; Line 2432  T763:;
2432          goto T930;}          goto T930;}
2433          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2434          return;          return;
2435  goto T930;          goto T930;
2436  T930:;  T930:;
2437          if((base[2])==Cnil){          if((base[2])==Cnil){
2438          goto T934;}          goto T934;}
# Line 2442  T930:; Line 2442  T930:;
2442          Lformat();          Lformat();
2443          vs_top=sup;          vs_top=sup;
2444          goto T932;          goto T932;
2445  goto T934;          goto T934;
2446  T934:;  T934:;
2447          base[3]= Ct;          base[3]= Ct;
2448          base[4]= VV[154];          base[4]= VV[154];
# Line 2450  T934:; Line 2450  T934:;
2450          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2451          Lformat();          Lformat();
2452          vs_top=sup;          vs_top=sup;
2453  goto T932;          goto T932;
2454  T932:;  T932:;
2455          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
2456          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 2473  static void L22() Line 2473  static void L22()
2473          V153=(base[1]);          V153=(base[1]);
2474          vs_top=sup;          vs_top=sup;
2475          goto T942;          goto T942;
2476  goto T941;          goto T941;
2477  T941:;  T941:;
2478          V153= VV[155];          V153= VV[155];
2479  goto T942;          goto T942;
2480  T942:;  T942:;
2481          {register object V154;          {register object V154;
2482          V154= Cnil;          V154= Cnil;
# Line 2494  T942:; Line 2494  T942:;
2494          goto T953;}          goto T953;}
2495          V155= V153;          V155= V153;
2496          goto T951;          goto T951;
2497  goto T953;          goto T953;
2498  T953:;  T953:;
2499          base[2]= coerce_to_string(V153);          base[2]= coerce_to_string(V153);
2500          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2501          Lfind_package();          Lfind_package();
2502          vs_top=sup;          vs_top=sup;
2503          V155= vs_base[0];          V155= vs_base[0];
2504  goto T951;          goto T951;
2505  T951:;  T951:;
2506          V156= Cnil;          V156= Cnil;
2507          V157= Cnil;          V157= Cnil;
# Line 2514  T951:; Line 2514  T951:;
2514          V161= vs_base[0];          V161= vs_base[0];
2515          V159= make_cons((V155),V161);          V159= make_cons((V155),V161);
2516          V160= car((V159));          V160= car((V159));
2517  goto T962;          goto T962;
2518  T962:;  T962:;
2519          if(!(endp_prop((V159)))){          if(!(endp_prop((V159)))){
2520          goto T963;}          goto T963;}
2521          V156= Cnil;          V156= Cnil;
2522          goto T947;          goto T947;
2523  goto T963;          goto T963;
2524  T963:;  T963:;
2525          {long V162;          {long V162;
2526          long V163;          long V163;
# Line 2534  T963:; Line 2534  T963:;
2534          V163= fix(vs_base[0]);          V163= fix(vs_base[0]);
2535          vs_top=sup;          vs_top=sup;
2536          goto T974;          goto T974;
2537  goto T972;          goto T972;
2538  T972:;  T972:;
2539          V162= fix(Cnil);          V162= fix(Cnil);
2540  goto T973;          goto T973;
2541  T973:;  T973:;
2542          V163= fix(Cnil);          V163= fix(Cnil);
2543  goto T974;          goto T974;
2544  T974:;  T974:;
2545          if(((V155))==((V160))){          if(((V155))==((V160))){
2546          goto T975;}          goto T975;}
2547          V163= 0;          V163= 0;
2548  goto T975;          goto T975;
2549  T975:;  T975:;
2550          {object V164;          {object V164;
2551          object V165;          object V165;
# Line 2553  T975:; Line 2553  T975:;
2553          V167 = make_fixnum(V162);          V167 = make_fixnum(V162);
2554          V164= number_plus(V166,V167);          V164= number_plus(V166,V167);
2555          V165= small_fixnum(0);          V165= small_fixnum(0);
2556  goto T982;          goto T982;
2557  T982:;  T982:;
2558          if(!(number_compare((V165),(V164))>=0)){          if(!(number_compare((V165),(V164))>=0)){
2559          goto T983;}          goto T983;}
2560          goto T969;          goto T969;
2561  goto T983;          goto T983;
2562  T983:;  T983:;
2563          V168 = make_fixnum(V163);          V168 = make_fixnum(V163);
2564          if(!(number_compare((V165),V168)<0)){          if(!(number_compare((V165),V168)<0)){
# Line 2570  T983:; Line 2570  T983:;
2570          vs_top=sup;          vs_top=sup;
2571          V157= vs_base[0];          V157= vs_base[0];
2572          goto T990;          goto T990;
2573  goto T992;          goto T992;
2574  T992:;  T992:;
2575          base[5]= (V160);          base[5]= (V160);
2576          V169 = make_fixnum(V163);          V169 = make_fixnum(V163);
# Line 2579  T992:; Line 2579  T992:;
2579          siLpackage_external();          siLpackage_external();
2580          vs_top=sup;          vs_top=sup;
2581          V157= vs_base[0];          V157= vs_base[0];
2582  goto T990;          goto T990;
2583  T990:;  T990:;
2584  goto T988;          goto T988;
2585  T988:;  T988:;
2586          if(((V157))!=Cnil){          if(((V157))!=Cnil){
2587          goto T998;}          goto T998;}
2588          goto T989;          goto T989;
2589  goto T998;          goto T998;
2590  T998:;  T998:;
2591          V156= car((V157));          V156= car((V157));
2592          if(((V160))==((V155))){          if(((V160))==((V155))){
# Line 2604  T998:; Line 2604  T998:;
2604          V170= vs_base[0];          V170= vs_base[0];
2605          if(!((VV[156])==(car(V170)))){          if(!((VV[156])==(car(V170)))){
2606          goto T1003;}          goto T1003;}
2607  goto T1004;          goto T1004;
2608  T1004:;  T1004:;
2609          V171= coerce_to_string((V156));          V171= coerce_to_string((V156));
2610          if(((*(LnkLI195))((V152),/* INLINE-ARGS */V171))==Cnil){          if(((*(LnkLI195))((V152),/* INLINE-ARGS */V171))==Cnil){
# Line 2618  T1004:; Line 2618  T1004:;
2618          if(V172==Cnil)goto T1017;          if(V172==Cnil)goto T1017;
2619          V154= V172;          V154= V172;
2620          goto T1016;          goto T1016;
2621  goto T1017;          goto T1017;
2622  T1017:;}  T1017:;}
2623  goto T1016;          goto T1016;
2624  T1016:;  T1016:;
2625  goto T1013;          goto T1013;
2626  T1013:;  T1013:;
2627  goto T1003;          goto T1003;
2628  T1003:;  T1003:;
2629          V157= cdr((V157));          V157= cdr((V157));
2630          goto T988;          goto T988;
2631  goto T989;          goto T989;
2632  T989:;  T989:;
2633          goto T986;          goto T986;
2634  goto T986;          goto T986;
2635  T986:;  T986:;
2636          V165= one_plus((V165));          V165= one_plus((V165));
2637          goto T982;}}          goto T982;}}
2638  goto T969;          goto T969;
2639  T969:;  T969:;
2640          V159= cdr((V159));          V159= cdr((V159));
2641          V160= car((V159));          V160= car((V159));
2642          goto T962;}}          goto T962;}}
2643  goto T949;          goto T949;
2644  T949:;  T949:;
2645          {object V173;          {object V173;
2646          object V174;          object V174;
# Line 2649  T949:; Line 2649  T949:;
2649          vs_top=sup;          vs_top=sup;
2650          V173= vs_base[0];          V173= vs_base[0];
2651          V174= car((V173));          V174= car((V173));
2652  goto T1034;          goto T1034;
2653  T1034:;  T1034:;
2654          if(!(endp_prop((V173)))){          if(!(endp_prop((V173)))){
2655          goto T1035;}          goto T1035;}
2656          goto T947;          goto T947;
2657  goto T1035;          goto T1035;
2658  T1035:;  T1035:;
2659          {object V175;          {object V175;
2660          register object V176;          register object V176;
# Line 2667  T1035:; Line 2667  T1035:;
2667          goto T1042;}          goto T1042;}
2668          V175= V174;          V175= V174;
2669          goto T1040;          goto T1040;
2670  goto T1042;          goto T1042;
2671  T1042:;  T1042:;
2672          base[4]= coerce_to_string(V174);          base[4]= coerce_to_string(V174);
2673          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2674          Lfind_package();          Lfind_package();
2675          vs_top=sup;          vs_top=sup;
2676          V175= vs_base[0];          V175= vs_base[0];
2677  goto T1040;          goto T1040;
2678  T1040:;  T1040:;
2679          V176= Cnil;          V176= Cnil;
2680          V177= Cnil;          V177= Cnil;
# Line 2687  T1040:; Line 2687  T1040:;
2687          V181= vs_base[0];          V181= vs_base[0];
2688          V179= make_cons((V175),V181);          V179= make_cons((V175),V181);
2689          V180= car((V179));          V180= car((V179));
2690  goto T1051;          goto T1051;
2691  T1051:;  T1051:;
2692          if(!(endp_prop((V179)))){          if(!(endp_prop((V179)))){
2693          goto T1052;}          goto T1052;}
2694          V176= Cnil;          V176= Cnil;
2695          goto T1039;          goto T1039;
2696  goto T1052;          goto T1052;
2697  T1052:;  T1052:;
2698          {long V182;          {long V182;
2699          long V183;          long V183;
# Line 2707  T1052:; Line 2707  T1052:;
2707          V183= fix(vs_base[0]);          V183= fix(vs_base[0]);
2708          vs_top=sup;          vs_top=sup;
2709          goto T1063;          goto T1063;
2710  goto T1061;          goto T1061;
2711  T1061:;  T1061:;
2712          V182= fix(Cnil);          V182= fix(Cnil);
2713  goto T1062;          goto T1062;
2714  T1062:;  T1062:;
2715          V183= fix(Cnil);          V183= fix(Cnil);
2716  goto T1063;          goto T1063;
2717  T1063:;  T1063:;
2718          if(((V175))==((V180))){          if(((V175))==((V180))){
2719          goto T1064;}          goto T1064;}
2720          V183= 0;          V183= 0;
2721  goto T1064;          goto T1064;
2722  T1064:;  T1064:;
2723          {object V184;          {object V184;
2724          register object V185;          register object V185;
# Line 2726  T1064:; Line 2726  T1064:;
2726          V187 = make_fixnum(V182);          V187 = make_fixnum(V182);
2727          V184= number_plus(V186,V187);          V184= number_plus(V186,V187);
2728          V185= small_fixnum(0);          V185= small_fixnum(0);
2729  goto T1071;          goto T1071;
2730  T1071:;  T1071:;
2731          if(!(number_compare((V185),(V184))>=0)){          if(!(number_compare((V185),(V184))>=0)){
2732          goto T1072;}          goto T1072;}
2733          goto T1058;          goto T1058;
2734  goto T1072;          goto T1072;
2735  T1072:;  T1072:;
2736          V188 = make_fixnum(V183);          V188 = make_fixnum(V183);
2737          if(!(number_compare((V185),V188)<0)){          if(!(number_compare((V185),V188)<0)){
# Line 2743  T1072:; Line 2743  T1072:;
2743          vs_top=sup;          vs_top=sup;
2744          V177= vs_base[0];          V177= vs_base[0];
2745          goto T1079;          goto T1079;
2746  goto T1081;          goto T1081;
2747  T1081:;  T1081:;
2748          base[7]= (V180);          base[7]= (V180);
2749          V189 = make_fixnum(V183);          V189 = make_fixnum(V183);
# Line 2752  T1081:; Line 2752  T1081:;
2752          siLpackage_external();          siLpackage_external();
2753          vs_top=sup;          vs_top=sup;
2754          V177= vs_base[0];          V177= vs_base[0];
2755  goto T1079;          goto T1079;
2756  T1079:;  T1079:;
2757  goto T1077;          goto T1077;
2758  T1077:;  T1077:;
2759          if(((V177))!=Cnil){          if(((V177))!=Cnil){
2760          goto T1087;}          goto T1087;}
2761          goto T1078;          goto T1078;
2762  goto T1087;          goto T1087;
2763  T1087:;  T1087:;
2764          V176= car((V177));          V176= car((V177));
2765          if(((V180))==((V175))){          if(((V180))==((V175))){
# Line 2777  T1087:; Line 2777  T1087:;
2777          V190= vs_base[0];          V190= vs_base[0];
2778          if(!((VV[156])==(car(V190)))){          if(!((VV[156])==(car(V190)))){
2779          goto T1092;}          goto T1092;}
2780  goto T1093;          goto T1093;
2781  T1093:;  T1093:;
2782          V191= coerce_to_string((V176));          V191= coerce_to_string((V176));
2783          if(((*(LnkLI195))((V152),/* INLINE-ARGS */V191))==Cnil){          if(((*(LnkLI195))((V152),/* INLINE-ARGS */V191))==Cnil){
# Line 2791  T1093:; Line 2791  T1093:;
2791          if(V192==Cnil)goto T1107;          if(V192==Cnil)goto T1107;
2792          V154= V192;          V154= V192;
2793          goto T1106;          goto T1106;
2794  goto T1107;          goto T1107;
2795  T1107:;}  T1107:;}
2796  goto T1106;          goto T1106;
2797  T1106:;  T1106:;
2798  goto T1103;          goto T1103;
2799  T1103:;  T1103:;
2800  goto T1092;          goto T1092;
2801  T1092:;  T1092:;
2802          V177= cdr((V177));          V177= cdr((V177));
2803          goto T1077;          goto T1077;
2804  goto T1078;          goto T1078;
2805  T1078:;  T1078:;
2806          goto T1075;          goto T1075;
2807  goto T1075;          goto T1075;
2808  T1075:;  T1075:;
2809          V185= one_plus((V185));          V185= one_plus((V185));
2810          goto T1071;}}          goto T1071;}}
2811  goto T1058;          goto T1058;
2812  T1058:;  T1058:;
2813          V179= cdr((V179));          V179= cdr((V179));
2814          V180= car((V179));          V180= car((V179));
2815          goto T1051;}}          goto T1051;}}
2816  goto T1039;          goto T1039;
2817  T1039:;  T1039:;
2818          V173= cdr((V173));          V173= cdr((V173));
2819          V174= car((V173));          V174= car((V173));
2820          goto T1034;}          goto T1034;}
2821  goto T947;          goto T947;
2822  T947:;  T947:;
2823          if(((V154))==Cnil){          if(((V154))==Cnil){
2824          goto T1128;}          goto T1128;}
# Line 2828  T947:; Line 2828  T947:;
2828          Lformat();          Lformat();
2829          vs_top=sup;          vs_top=sup;
2830          goto T1126;          goto T1126;
2831  goto T1128;          goto T1128;
2832  T1128:;  T1128:;
2833          base[2]= Ct;          base[2]= Ct;
2834          base[3]= VV[158];          base[3]= VV[158];
# Line 2845  T1128:; Line 2845  T1128:;
2845          goto T1139;}          goto T1139;}
2846          base[7]= V153;          base[7]= V153;
2847          goto T1137;          goto T1137;
2848  goto T1139;          goto T1139;
2849  T1139:;  T1139:;
2850          base[8]= coerce_to_string(V153);          base[8]= coerce_to_string(V153);
2851          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2852          Lfind_package();          Lfind_package();
2853          vs_top=sup;          vs_top=sup;
2854          base[7]= vs_base[0];          base[7]= vs_base[0];
2855  goto T1137;          goto T1137;
2856  T1137:;  T1137:;
2857          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2858          Lpackage_name();          Lpackage_name();
2859          vs_top=sup;          vs_top=sup;
2860          base[6]= vs_base[0];          base[6]= vs_base[0];
2861  goto T1136;          goto T1136;
2862  T1136:;  T1136:;
2863          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2864          Lformat();          Lformat();
2865          vs_top=sup;          vs_top=sup;
2866  goto T1126;          goto T1126;
2867  T1126:;  T1126:;
2868          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
2869          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 2879  register object *base0; Line 2879  register object *base0;
2879          vs_reserve(VM22);          vs_reserve(VM22);
2880          check_arg(0);          check_arg(0);
2881          vs_top=sup;          vs_top=sup;
2882  goto TTL;          goto TTL;
2883  TTL:;  TTL:;
2884          base[0]= base0[0];          base[0]= base0[0];
2885          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2897  TTL:; Line 2897  TTL:;
2897          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2898          Lfind_package();          Lfind_package();
2899          return;          return;
2900  goto T1144;          goto T1144;
2901  T1144:;  T1144:;
2902          base[0]= symbol_value(VV[130]);          base[0]= symbol_value(VV[130]);
2903          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2916  register object *base0; Line 2916  register object *base0;
2916          V196=(base[0]);          V196=(base[0]);
2917          V197=(base[1]);          V197=(base[1]);
2918          vs_top=sup;          vs_top=sup;
2919  goto TTL;          goto TTL;
2920  TTL:;  TTL:;
2921          base0[2]= Ct;          base0[2]= Ct;
2922          base[2]= Ct;          base[2]= Ct;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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