/[gcl]/gcl/pcl/pcl_env.c
ViewVC logotype

Diff of /gcl/pcl/pcl_env.c

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

revision 1.3 by camm, Tue Sep 2 20:32:44 2003 UTC revision 1.4 by camm, Tue Sep 23 21:48:34 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "pcl_env.h"  #include "pcl_env.h"
4  void init_pcl_env(){do_init(VV);}  void init_pcl_env(){do_init(VV);}
5  /*      function definition for (DEFGENERIC DESCRIBE-OBJECT)9122        */  /*      function definition for (DEFGENERIC DESCRIBE-OBJECT)9136        */
6    
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
# Line 15  TTL:; Line 15  TTL:;
15          base[0]= VV[0];          base[0]= VV[0];
16          base[1]= VV[1];          base[1]= VV[1];
17          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
18          (void) (*Lnk69)();          (void) (*Lnk71)();
19          return;          return;
20  }  }
21  /*      function definition for PCL-DESCRIBE    */  /*      function definition for PCL-DESCRIBE    */
# Line 64  TTL:; Line 64  TTL:;
64          vs_top=sup;          vs_top=sup;
65          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
66          goto T10;}          goto T10;}
67          base[4]= (*(LnkLI70))((V4),(V5));          base[4]= (*(LnkLI72))((V4),(V5));
68          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
69          return;          return;
70          goto T10;          goto T10;
# Line 109  TTL:; Line 109  TTL:;
109          object V14;          object V14;
110          object V15;          object V15;
111          object V16;          object V16;
112          V12= (*(LnkLI71))((V10));          V12= (*(LnkLI73))((V10));
113          base[7]= (V12);          base[7]= (V12);
114          base[8]= (V10);          base[8]= (V10);
115          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
116          (void) (*Lnk72)(Lclptr72);          (void) (*Lnk74)(Lclptr74);
117          vs_top=sup;          vs_top=sup;
118          V13= vs_base[0];          V13= vs_base[0];
119          base[6]= small_fixnum(0);          base[6]= small_fixnum(0);
# Line 133  T29:; Line 133  T29:;
133  T30:;  T30:;
134          base[9]= (V18);          base[9]= (V18);
135          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
136          (void) (*Lnk73)(Lclptr73);          (void) (*Lnk75)(Lclptr75);
137          vs_top=sup;          vs_top=sup;
138          base[8]= vs_base[0];          base[8]= vs_base[0];
139          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 141  T30:; Line 141  T30:;
141          vs_top=sup;          vs_top=sup;
142          base[8]= (V18);          base[8]= (V18);
143          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
144          (void) (*Lnk74)(Lclptr74);          (void) (*Lnk76)(Lclptr76);
145          vs_top=sup;          vs_top=sup;
146          V20= vs_base[0];          V20= vs_base[0];
147          {object V19= V20;          {object V19= V20;
148          if((V19!= VV[75]))goto T40;          if((V19!= VV[77]))goto T40;
149          V14= make_cons(V18,(V14));          V14= make_cons(V18,(V14));
150          goto T37;          goto T37;
151          goto T40;          goto T40;
152  T40:;  T40:;
153          if((V19!= VV[76]))goto T42;          if((V19!= VV[78]))goto T42;
154          V15= make_cons(V18,(V15));          V15= make_cons(V18,(V15));
155          goto T37;          goto T37;
156          goto T42;          goto T42;
# Line 192  T66:; Line 192  T66:;
192  T67:;  T67:;
193          base[10]= (V26);          base[10]= (V26);
194          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
195          (void) (*Lnk73)(Lclptr73);          (void) (*Lnk75)(Lclptr75);
196          vs_top=sup;          vs_top=sup;
197          base[9]= vs_base[0];          base[9]= vs_base[0];
198          base[11]= (V10);          base[11]= (V10);
199          base[13]= (V26);          base[13]= (V26);
200          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
201          (void) (*Lnk73)(Lclptr73);          (void) (*Lnk75)(Lclptr75);
202          vs_top=sup;          vs_top=sup;
203          base[12]= vs_base[0];          base[12]= vs_base[0];
204          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
205          (void) (*Lnk77)();          (void) (*Lnk79)();
206          vs_top=sup;          vs_top=sup;
207          base[10]= vs_base[0];          base[10]= vs_base[0];
208          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
# Line 233  T92:; Line 233  T92:;
233  T93:;  T93:;
234          base[10]= (V28);          base[10]= (V28);
235          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
236          (void) (*Lnk73)(Lclptr73);          (void) (*Lnk75)(Lclptr75);
237          vs_top=sup;          vs_top=sup;
238          base[9]= vs_base[0];          base[9]= vs_base[0];
239          base[11]= (V10);          base[11]= (V10);
240          base[13]= (V28);          base[13]= (V28);
241          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
242          (void) (*Lnk73)(Lclptr73);          (void) (*Lnk75)(Lclptr75);
243          vs_top=sup;          vs_top=sup;
244          base[12]= vs_base[0];          base[12]= vs_base[0];
245          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
246          (void) (*Lnk77)();          (void) (*Lnk79)();
247          vs_top=sup;          vs_top=sup;
248          base[10]= vs_base[0];          base[10]= vs_base[0];
249          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
# Line 274  T118:; Line 274  T118:;
274  T119:;  T119:;
275          base[10]= (V30);          base[10]= (V30);
276          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
277          (void) (*Lnk73)(Lclptr73);          (void) (*Lnk75)(Lclptr75);
278          vs_top=sup;          vs_top=sup;
279          base[9]= vs_base[0];          base[9]= vs_base[0];
280          base[11]= (V10);          base[11]= (V10);
281          base[13]= (V30);          base[13]= (V30);
282          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
283          (void) (*Lnk73)(Lclptr73);          (void) (*Lnk75)(Lclptr75);
284          vs_top=sup;          vs_top=sup;
285          base[12]= vs_base[0];          base[12]= vs_base[0];
286          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
287          (void) (*Lnk77)();          (void) (*Lnk79)();
288          vs_top=sup;          vs_top=sup;
289          base[10]= vs_base[0];          base[10]= vs_base[0];
290          base[12]= (V30);          base[12]= (V30);
291          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
292          (void) (*Lnk74)(Lclptr74);          (void) (*Lnk76)(Lclptr76);
293          vs_top=sup;          vs_top=sup;
294          base[11]= vs_base[0];          base[11]= vs_base[0];
295          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
# Line 325  static void L7() Line 325  static void L7()
325  TTL:;  TTL:;
326          base[4]= (V33);          base[4]= (V33);
327          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
328          (void) (*Lnk78)(Lclptr78);          (void) (*Lnk80)(Lclptr80);
329          return;          return;
330          }          }
331  }  }
# Line 357  TTL:; Line 357  TTL:;
357          base[5]= VV[12];          base[5]= VV[12];
358          base[7]= (V38);          base[7]= (V38);
359          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
360          (void) (*Lnk79)(Lclptr79);          (void) (*Lnk81)(Lclptr81);
361          vs_top=sup;          vs_top=sup;
362          base[6]= vs_base[0];          base[6]= vs_base[0];
363          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 372  TTL:; Line 372  TTL:;
372          register object V42;          register object V42;
373          base[6]= (V38);          base[6]= (V38);
374          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
375          (void) (*Lnk80)(Lclptr80);          (void) (*Lnk82)(Lclptr82);
376          vs_top=sup;          vs_top=sup;
377          V41= vs_base[0];          V41= vs_base[0];
378          V42= CMPcar((V41));          V42= CMPcar((V41));
# Line 387  T163:; Line 387  T163:;
387          base[7]= VV[14];          base[7]= VV[14];
388          base[9]= (V42);          base[9]= (V42);
389          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
390          (void) (*Lnk81)(Lclptr81);          (void) (*Lnk83)(Lclptr83);
391          vs_top=sup;          vs_top=sup;
392          base[8]= vs_base[0];          base[8]= vs_base[0];
393          base[9]= (*(LnkLI82))((V42));          base[9]= (*(LnkLI84))((V42));
394          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
395          Lformat();          Lformat();
396          vs_top=sup;{object V43;          vs_top=sup;{object V43;
397          base[7]= (V42);          base[7]= (V42);
398          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
399          (void) (*Lnk83)(Lclptr83);          (void) (*Lnk85)(Lclptr85);
400          vs_top=sup;          vs_top=sup;
401          V43= vs_base[0];          V43= vs_base[0];
402          if(V43==Cnil)goto T175;          if(V43==Cnil)goto T175;
# Line 406  T163:; Line 406  T163:;
406  T175:;}  T175:;}
407          base[7]= (V42);          base[7]= (V42);
408          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
409          (void) (*Lnk84)(Lclptr84);          (void) (*Lnk86)(Lclptr86);
410          vs_top=sup;          vs_top=sup;
411          base[6]= vs_base[0];          base[6]= vs_base[0];
412          goto T174;          goto T174;
# Line 427  T157:; Line 427  T157:;
427          base[4]= (V37);          base[4]= (V37);
428          base[5]= VV[16];          base[5]= VV[16];
429          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
430          (void) (*Lnk85)();          (void) (*Lnk87)();
431          vs_top=sup;          vs_top=sup;
432          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
433          goto T193;}          goto T193;}
# Line 462  T207:;{object V47; Line 462  T207:;{object V47;
462          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
463          base[5]= (V38);          base[5]= (V38);
464          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
465          (void) (*Lnk86)();          (void) (*Lnk88)();
466          vs_top=sup;          vs_top=sup;
467          V48= vs_base[0];          V48= vs_base[0];
468          if(!((V47)==(CMPcar(V48)))){          if(!((V47)==(CMPcar(V48)))){
# Line 491  T203:; Line 491  T203:;
491          base[4]= (V49);          base[4]= (V49);
492          base[5]= VV[20];          base[5]= VV[20];
493          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
494          (void) (*Lnk85)();          (void) (*Lnk87)();
495          vs_top=sup;          vs_top=sup;
496          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
497          goto T221;}          goto T221;}
# Line 550  T239:; Line 550  T239:;
550          base[6]= (V49);          base[6]= (V49);
551          base[7]= VV[22];          base[7]= VV[22];
552          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
553          (void) (*Lnk88)();          (void) (*Lnk90)();
554          vs_top=sup;          vs_top=sup;
555          base[4]= vs_base[0];          base[4]= vs_base[0];
556          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 590  TTL:; Line 590  TTL:;
590          base[4]= (V57);          base[4]= (V57);
591          base[5]= VV[24];          base[5]= VV[24];
592          base[6]= (V56);          base[6]= (V56);
593          base[8]= (*(LnkLI71))((V56));          base[8]= (*(LnkLI73))((V56));
594          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
595          L10(base);          L10(base);
596          vs_top=sup;          vs_top=sup;
# Line 601  TTL:; Line 601  TTL:;
601          {register object V59;          {register object V59;
602          base[4]= (V56);          base[4]= (V56);
603          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
604          (void) (*Lnk89)(Lclptr89);          (void) (*Lnk91)(Lclptr91);
605          vs_top=sup;          vs_top=sup;
606          V59= vs_base[0];          V59= vs_base[0];
607          if(((V59))==Cnil){          if(((V59))==Cnil){
608          goto T263;}          goto T263;}
609          V60= (VFUN_NARGS=2,(*(LnkLI90))((V59),Cnil));          V60= (VFUN_NARGS=2,(*(LnkLI92))((V59),Cnil));
610          if(!(((V56))==(/* INLINE-ARGS */V60))){          if(!(((V56))==(/* INLINE-ARGS */V60))){
611          goto T266;}          goto T266;}
612          base[4]= (V57);          base[4]= (V57);
# Line 638  T259:; Line 638  T259:;
638          base[5]= VV[28];          base[5]= VV[28];
639          base[8]= (V56);          base[8]= (V56);
640          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
641          (void) (*Lnk91)(Lclptr91);          (void) (*Lnk93)(Lclptr93);
642          vs_top=sup;          vs_top=sup;
643          V63= vs_base[0];          V63= vs_base[0];
644          {object V61;          {object V61;
# Line 663  T279:; Line 663  T279:;
663  T278:;  T278:;
664          base[9]= (V56);          base[9]= (V56);
665          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
666          (void) (*Lnk92)(Lclptr92);          (void) (*Lnk94)(Lclptr94);
667          vs_top=sup;          vs_top=sup;
668          V66= vs_base[0];          V66= vs_base[0];
669          {object V64;          {object V64;
# Line 688  T285:; Line 688  T285:;
688  T284:;  T284:;
689          base[10]= (V56);          base[10]= (V56);
690          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
691          (void) (*Lnk93)(Lclptr93);          (void) (*Lnk95)(Lclptr95);
692          vs_top=sup;          vs_top=sup;
693          V69= vs_base[0];          V69= vs_base[0];
694          {object V67;          {object V67;
# Line 713  T291:; Line 713  T291:;
713  T290:;  T290:;
714          base[10]= (V56);          base[10]= (V56);
715          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
716          (void) (*Lnk94)(Lclptr94);          (void) (*Lnk96)(Lclptr96);
717          vs_top=sup;          vs_top=sup;
718          V70= vs_base[0];          V70= vs_base[0];
719          base[9]= CMPmake_fixnum((long)length(V70));          base[9]= CMPmake_fixnum((long)length(V70));
# Line 727  T290:; Line 727  T290:;
727          base[4]= (V55);          base[4]= (V55);
728          base[5]= VV[16];          base[5]= VV[16];
729          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
730          (void) (*Lnk85)();          (void) (*Lnk87)();
731          vs_top=sup;          vs_top=sup;
732          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
733          goto T307;}          goto T307;}
# Line 762  T321:;{object V74; Line 762  T321:;{object V74;
762          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
763          base[5]= (V56);          base[5]= (V56);
764          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
765          (void) (*Lnk86)();          (void) (*Lnk88)();
766          vs_top=sup;          vs_top=sup;
767          V75= vs_base[0];          V75= vs_base[0];
768          if(!((V74)==(CMPcar(V75)))){          if(!((V74)==(CMPcar(V75)))){
# Line 791  T317:; Line 791  T317:;
791          base[4]= (V76);          base[4]= (V76);
792          base[5]= VV[20];          base[5]= VV[20];
793          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
794          (void) (*Lnk85)();          (void) (*Lnk87)();
795          vs_top=sup;          vs_top=sup;
796          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
797          goto T335;}          goto T335;}
# Line 850  T353:; Line 850  T353:;
850          base[6]= (V76);          base[6]= (V76);
851          base[7]= VV[30];          base[7]= VV[30];
852          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
853          (void) (*Lnk88)();          (void) (*Lnk90)();
854          vs_top=sup;          vs_top=sup;
855          base[4]= vs_base[0];          base[4]= vs_base[0];
856          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 934  T375:; Line 934  T375:;
934          {object V89;          {object V89;
935          register object V90;          register object V90;
936          register object V91;          register object V91;
937          base[0]= V83;          {object V92;
938            V92= (V83);
939            base[0]= (V92);
940          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
941          Lpackagep();          Lpackagep();
942          vs_top=sup;          vs_top=sup;
943          if((vs_base[0])==Cnil){          if((vs_base[0])!=Cnil){
944          goto T393;}          goto T392;}
945          V89= V83;          base[0]= coerce_to_string((V92));
         goto T391;  
         goto T393;  
 T393:;  
         base[0]= coerce_to_string(V83);  
946          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
947          Lfind_package();          Lfind_package();
948          vs_top=sup;          vs_top=sup;
949          V89= vs_base[0];          V92= vs_base[0];
950          goto T391;          if(((V92))!=Cnil){
951  T391:;          goto T392;}
952            base[0]= VV[33];
953            base[1]= VV[34];
954            base[2]= (V83);
955            vs_top=(vs_base=base+0)+3;
956            (void) (*Lnk97)();
957            vs_top=sup;
958            goto T392;
959    T392:;
960            V89= (V92);}
961          V90= Cnil;          V90= Cnil;
962          V91= Cnil;          V91= Cnil;
963          {object V93;          {long V93;
964          object V94;          long V94;
965          base[1]= (V89);          base[0]= (V89);
966          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
967          (void) (*Lnk95)();          (void) (*Lnk98)();
968          vs_top=sup;          vs_top=sup;
969          V93= vs_base[0];          V93= fix(vs_base[0]);
970          V94= small_fixnum(0);          V94= 0;
971          goto T401;          goto T407;
972  T401:;  T407:;
973          if(!(number_compare((V94),(V93))>=0)){          if(!((V94)>=(V93))){
974          goto T402;}          goto T410;}
975          V90= Cnil;          V90= Cnil;
976          goto T390;          goto T390;
977          goto T402;          goto T410;
978  T402:;  T410:;
979          base[1]= (V89);          base[0]= (V89);
980          base[2]= (V94);          base[1]= CMPmake_fixnum(V94);
981          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
982          siLpackage_external();          siLpackage_external();
983          vs_top=sup;          vs_top=sup;
984          V91= vs_base[0];          V91= vs_base[0];
985          goto T409;          goto T408;
986  T409:;  T408:;
987          if(((V91))!=Cnil){          if(((V91))!=Cnil){
988          goto T414;}          goto T418;}
989          goto T410;          goto T409;
990          goto T414;          goto T418;
991  T414:;  T418:;
992          V90= CMPcar((V91));          V90= CMPcar((V91));
993          V88= number_plus((V88),small_fixnum(1));          V88= number_plus((V88),small_fixnum(1));
994          V91= CMPcdr((V91));          V91= CMPcdr((V91));
995            goto T408;
996          goto T409;          goto T409;
997          goto T410;  T409:;
998  T410:;          V94= (long)(V94)+1;
999          goto T407;          goto T407;}}
         goto T407;  
 T407:;  
         V94= one_plus((V94));  
         goto T401;}}  
1000          goto T390;          goto T390;
1001  T390:;  T390:;
1002          {register object V95;          {register object V95;
1003          object V96;          object V96;
1004          register object V97;          register object V97;
1005          base[0]= V83;          {object V98;
1006            V98= (V83);
1007            base[0]= (V98);
1008          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1009          Lpackagep();          Lpackagep();
1010          vs_top=sup;          vs_top=sup;
1011          if((vs_base[0])==Cnil){          if((vs_base[0])!=Cnil){
1012          goto T429;}          goto T432;}
1013          V95= V83;          base[0]= coerce_to_string((V98));
         goto T427;  
         goto T429;  
 T429:;  
         base[0]= coerce_to_string(V83);  
1014          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1015          Lfind_package();          Lfind_package();
1016          vs_top=sup;          vs_top=sup;
1017          V95= vs_base[0];          V98= vs_base[0];
1018          goto T427;          if(((V98))!=Cnil){
1019  T427:;          goto T432;}
1020            base[0]= VV[33];
1021            base[1]= VV[34];
1022            base[2]= (V83);
1023            vs_top=(vs_base=base+0)+3;
1024            (void) (*Lnk97)();
1025            vs_top=sup;
1026            goto T432;
1027    T432:;
1028            V95= (V98);}
1029          V96= Cnil;          V96= Cnil;
1030          V97= Cnil;          V97= Cnil;
1031          {object V99;          {object V99;
# Line 1026  T427:; Line 1037  T427:;
1037          V101= vs_base[0];          V101= vs_base[0];
1038          V99= make_cons((V95),V101);          V99= make_cons((V95),V101);
1039          V100= CMPcar((V99));          V100= CMPcar((V99));
1040          goto T438;          goto T448;
1041  T438:;  T448:;
1042          if(!(((V99))==Cnil)){          if(!(((V99))==Cnil)){
1043          goto T439;}          goto T449;}
1044          V96= Cnil;          V96= Cnil;
1045          goto T426;          goto T430;
1046          goto T439;          goto T449;
1047  T439:;  T449:;
1048          {long V102;          {long V102;
1049          register long V103;          register long V103;
1050          base[2]= (V100);          base[2]= (V100);
1051          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1052          (void) (*Lnk95)();          (void) (*Lnk98)();
1053          if(vs_base>=vs_top){vs_top=sup;goto T448;}          if(vs_base>=vs_top){vs_top=sup;goto T458;}
1054          V102= fix(vs_base[0]);          V102= fix(vs_base[0]);
1055          vs_base++;          vs_base++;
1056          if(vs_base>=vs_top){vs_top=sup;goto T449;}          if(vs_base>=vs_top){vs_top=sup;goto T459;}
1057          V103= fix(vs_base[0]);          V103= fix(vs_base[0]);
1058          vs_top=sup;          vs_top=sup;
1059          goto T450;          goto T460;
         goto T448;  
 T448:;  
         V102= fix(Cnil);  
         goto T449;  
 T449:;  
         V103= fix(Cnil);  
         goto T450;  
 T450:;  
         if(((V95))==((V100))){  
         goto T451;}  
         V103= 0;  
         goto T451;  
 T451:;  
         {object V104;  
         register object V105;  
         V106 = CMPmake_fixnum(V103);  
         V107 = CMPmake_fixnum(V102);  
         V104= number_plus(V106,V107);  
         V105= small_fixnum(0);  
1060          goto T458;          goto T458;
1061  T458:;  T458:;
1062          if(!(number_compare((V105),(V104))>=0)){          V102= fix(Cnil);
         goto T459;}  
         goto T445;  
1063          goto T459;          goto T459;
1064  T459:;  T459:;
1065          V108 = CMPmake_fixnum(V103);          V103= fix(Cnil);
1066          if(!(number_compare((V105),V108)<0)){          goto T460;
1067          goto T468;}  T460:;
1068          base[3]= (V100);          if(((V95))==((V100))){
1069          base[4]= (V105);          goto T461;}
1070          vs_top=(vs_base=base+3)+2;          V103= 0;
1071            goto T461;
1072    T461:;
1073            {long V104;
1074            register long V105;
1075            V104= (long)(V103)+(V102);
1076            V105= 0;
1077            goto T468;
1078    T468:;
1079            if(!((V105)>=(V104))){
1080            goto T471;}
1081            goto T455;
1082            goto T471;
1083    T471:;
1084            if(!((V105)<(V103))){
1085            goto T476;}
1086            base[2]= (V100);
1087            base[3]= CMPmake_fixnum(V105);
1088            vs_top=(vs_base=base+2)+2;
1089          siLpackage_internal();          siLpackage_internal();
1090          vs_top=sup;          vs_top=sup;
1091          V97= vs_base[0];          V97= vs_base[0];
1092          goto T466;          goto T474;
1093          goto T468;          goto T476;
1094  T468:;  T476:;
1095          base[3]= (V100);          base[2]= (V100);
1096          V109 = CMPmake_fixnum(V103);          V106 = CMPmake_fixnum(V105);
1097          base[4]= number_minus((V105),V109);          V107 = CMPmake_fixnum(V103);
1098          vs_top=(vs_base=base+3)+2;          base[3]= number_minus(V106,V107);
1099            vs_top=(vs_base=base+2)+2;
1100          siLpackage_external();          siLpackage_external();
1101          vs_top=sup;          vs_top=sup;
1102          V97= vs_base[0];          V97= vs_base[0];
         goto T466;  
 T466:;  
         goto T464;  
 T464:;  
         if(((V97))!=Cnil){  
         goto T474;}  
         goto T465;  
1103          goto T474;          goto T474;
1104  T474:;  T474:;
1105            goto T469;
1106    T469:;
1107            if(((V97))!=Cnil){
1108            goto T482;}
1109            goto T470;
1110            goto T482;
1111    T482:;
1112          V96= CMPcar((V97));          V96= CMPcar((V97));
1113          if(((V100))==((V95))){          if(((V100))==((V95))){
1114          goto T480;}          goto T488;}
1115          base[4]= symbol_name((V96));          base[3]= symbol_name((V96));
1116          base[5]= (V95);          base[4]= (V95);
1117          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+3)+2;
1118          Lfind_symbol();          Lfind_symbol();
1119          Llist();          Llist();
1120          vs_top=sup;          vs_top=sup;
1121          base[3]= vs_base[0];          base[2]= vs_base[0];
1122          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+2)+1;
1123          Llast();          Llast();
1124          vs_top=sup;          vs_top=sup;
1125          V110= vs_base[0];          V108= vs_base[0];
1126          if(!((VV[33])==(CMPcar(V110)))){          if(!((VV[35])==(CMPcar(V108)))){
1127          goto T479;}          goto T487;}
1128          goto T480;          goto T488;
1129  T480:;  T488:;
1130          V87= number_plus((V87),small_fixnum(1));          V87= number_plus((V87),small_fixnum(1));
1131          goto T479;          goto T487;
1132  T479:;  T487:;
1133          V97= CMPcdr((V97));          V97= CMPcdr((V97));
1134          goto T464;          goto T469;
1135          goto T465;          goto T470;
1136  T465:;  T470:;
1137          goto T462;          V105= (long)(V105)+1;
1138          goto T462;          goto T468;}}
1139  T462:;          goto T455;
1140          V105= one_plus((V105));  T455:;
         goto T458;}}  
         goto T445;  
 T445:;  
1141          V99= CMPcdr((V99));          V99= CMPcdr((V99));
1142          V100= CMPcar((V99));          V100= CMPcar((V99));
1143          goto T438;}}          goto T448;}}
1144          goto T426;          goto T430;
1145  T426:;  T430:;
1146          V87= number_minus((V87),(V88));          V87= number_minus((V87),(V88));
1147          base[0]= (V84);          base[0]= (V84);
1148          base[1]= VV[34];          base[1]= VV[36];
1149          base[2]= (V87);          base[2]= (V87);
1150          base[3]= (V88);          base[3]= (V88);
1151          base[4]= number_plus((V87),(V88));          base[4]= number_plus((V87),(V88));
1152          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1153          Lformat();          Lformat();
1154          vs_top=sup;}          vs_top=sup;}
1155          {object V111;          {object V109;
1156          base[0]= (V83);          base[0]= (V83);
1157          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1158          Lpackage_use_list();          Lpackage_use_list();
1159          vs_top=sup;          vs_top=sup;
1160          V111= vs_base[0];          V109= vs_base[0];
1161          if(((V111))==Cnil){          if(((V109))==Cnil){
1162          goto T508;}          goto T516;}
1163          base[0]= (V84);          base[0]= (V84);
1164          base[1]= VV[35];          base[1]= VV[37];
1165          {object V112;          {object V110;
1166          object V113= (V111);          object V111= (V109);
1167          if(V113==Cnil){          if(V111==Cnil){
1168          base[2]= Cnil;          base[2]= Cnil;
1169          goto T515;}          goto T523;}
1170          base[3]=V112=MMcons(Cnil,Cnil);          base[3]=V110=MMcons(Cnil,Cnil);
1171          goto T516;          goto T524;
1172  T516:;  T524:;
1173          base[4]= (V113->c.c_car);          base[4]= (V111->c.c_car);
1174          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1175          Lpackage_name();          Lpackage_name();
1176          vs_top=sup;          vs_top=sup;
1177          (V112->c.c_car)= vs_base[0];          (V110->c.c_car)= vs_base[0];
1178          if((V113=MMcdr(V113))==Cnil){          if((V111=MMcdr(V111))==Cnil){
1179          base[2]= base[3];          base[2]= base[3];
1180          goto T515;}          goto T523;}
1181          V112=MMcdr(V112)=MMcons(Cnil,Cnil);          V110=MMcdr(V110)=MMcons(Cnil,Cnil);
1182          goto T516;}          goto T524;}
1183          goto T515;          goto T523;
1184  T515:;  T523:;
1185          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1186          Lformat();          Lformat();
1187          vs_top=sup;}          vs_top=sup;}
1188          goto T508;          goto T516;
1189  T508:;  T516:;
1190          {object V114;          {object V112;
1191          base[0]= (V83);          base[0]= (V83);
1192          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1193          Lpackage_use_list();          Lpackage_use_list();
1194          vs_top=sup;          vs_top=sup;
1195          V114= vs_base[0];          V112= vs_base[0];
1196          if(((V114))==Cnil){          if(((V112))==Cnil){
1197          goto T522;}          goto T530;}
1198          base[0]= (V84);          base[0]= (V84);
1199          base[1]= VV[36];          base[1]= VV[38];
1200          {object V115;          {object V113;
1201          object V116= (V114);          object V114= (V112);
1202          if(V116==Cnil){          if(V114==Cnil){
1203          base[2]= Cnil;          base[2]= Cnil;
1204          goto T526;}          goto T534;}
1205          base[3]=V115=MMcons(Cnil,Cnil);          base[3]=V113=MMcons(Cnil,Cnil);
1206          goto T527;          goto T535;
1207  T527:;  T535:;
1208          base[4]= (V116->c.c_car);          base[4]= (V114->c.c_car);
1209          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1210          Lpackage_name();          Lpackage_name();
1211          vs_top=sup;          vs_top=sup;
1212          (V115->c.c_car)= vs_base[0];          (V113->c.c_car)= vs_base[0];
1213          if((V116=MMcdr(V116))==Cnil){          if((V114=MMcdr(V114))==Cnil){
1214          base[2]= base[3];          base[2]= base[3];
1215          goto T526;}          goto T534;}
1216          V115=MMcdr(V115)=MMcons(Cnil,Cnil);          V113=MMcdr(V113)=MMcons(Cnil,Cnil);
1217          goto T527;}          goto T535;}
1218          goto T526;          goto T534;
1219  T526:;  T534:;
1220          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1221          Lformat();          Lformat();
1222          vs_top=sup;          vs_top=sup;
1223          {object V117 = vs_base[0];          {object V115 = vs_base[0];
1224          VMR8(V117)}          VMR8(V115)}
1225          goto T522;          goto T530;
1226  T522:;  T530:;
1227          {object V118 = Cnil;          {object V116 = Cnil;
1228          VMR8(V118)}}          VMR8(V116)}}
1229          base[0]=base[0];          base[0]=base[0];
1230          return Cnil;          return Cnil;
1231  }  }
1232  /*      function definition for Defclass TRACED-METHOD9243      */  /*      function definition for Defclass TRACED-METHOD9257      */
1233    
1234  static void L12()  static void L12()
1235  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1233  static void L12() Line 1239  static void L12()
1239          vs_top=sup;          vs_top=sup;
1240          goto TTL;          goto TTL;
1241  TTL:;  TTL:;
1242          base[0]= VV[37];          base[0]= VV[39];
1243          base[1]= VV[38];          base[1]= VV[40];
1244          base[2]= VV[39];          base[2]= VV[41];
1245          V119= listA(9,VV[40],VV[41],VV[42],Cnil,VV[43],Cnil,VV[44],VV[45],Cnil);          V117= listA(9,VV[42],VV[43],VV[44],Cnil,VV[45],Cnil,VV[46],VV[47],Cnil);
1246          V120= listA(9,VV[40],VV[46],VV[42],VV[47],VV[43],Cnil,VV[44],VV[48],Cnil);          V118= listA(9,VV[42],VV[48],VV[44],VV[49],VV[45],Cnil,VV[46],VV[50],Cnil);
1247          base[4]= VV[49];          base[4]= VV[51];
1248          base[5]= (VV[96]->s.s_gfdef);          base[5]= (VV[99]->s.s_gfdef);
1249          base[6]= VV[40];          base[6]= VV[42];
1250          base[7]= VV[50];          base[7]= VV[52];
1251          base[8]= VV[42];          base[8]= VV[44];
1252          base[9]= VV[51];          base[9]= VV[53];
1253          base[10]= VV[43];          base[10]= VV[45];
1254          base[11]= VV[52];          base[11]= VV[54];
1255          base[12]= VV[44];          base[12]= VV[46];
1256          base[13]= Cnil;          base[13]= Cnil;
1257          base[14]= VV[53];          base[14]= VV[55];
1258          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1259          LlistA();          LlistA();
1260          vs_top=sup;          vs_top=sup;
1261          V121= vs_base[0];          V119= vs_base[0];
1262          base[3]= list(3,/* INLINE-ARGS */V119,/* INLINE-ARGS */V120,V121);          base[3]= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119);
1263          base[4]= Cnil;          base[4]= Cnil;
1264          base[5]= VV[54];          base[5]= VV[56];
1265          symlispcall(VV[97],base+0,6);          symlispcall(VV[100],base+0,6);
1266          return;          return;
1267  }  }
1268  /*      function definition for (FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))        */  /*      function definition for (FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))        */
# Line 1265  static void L13() Line 1271  static void L13()
1271  {register object *base=vs_base;  {register object *base=vs_base;
1272          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
1273          vs_check;          vs_check;
1274          {object V122;          {object V120;
1275          object V123;          object V121;
1276          register object V124;          register object V122;
1277          check_arg(3);          check_arg(3);
1278          V122=(base[0]);          V120=(base[0]);
1279          V123=(base[1]);          V121=(base[1]);
1280          V124=(base[2]);          V122=(base[2]);
1281          vs_top=sup;          vs_top=sup;
1282          goto TTL;          goto TTL;
1283  TTL:;  TTL:;
1284            {object V124;
1285            object V125;
1286            V124= CMPcar((V120));
1287            V125= CMPcdr((V120));
1288          {object V126;          {object V126;
1289          object V127;          if(type_of(V122)==t_structure){
1290          V126= CMPcar((V122));          goto T566;}
1291          V127= CMPcdr((V122));          goto T564;
1292          {object V128;          goto T566;
1293          if(type_of(V124)==t_structure){  T566:;
1294          goto T558;}          if(!(((V122)->str.str_def)==(VV[57]))){
1295          goto T556;          goto T564;}
1296          goto T558;          V126= STREF(object,(V122),4);
1297  T558:;          goto T562;
1298          if(!(((V124)->str.str_def)==(VV[55]))){          goto T564;
1299          goto T556;}  T564:;{object V128;
1300          V128= STREF(object,(V124),4);          V128= (VV[19]->s.s_dbind);
         goto T554;  
         goto T556;  
 T556:;{object V130;  
         V130= (VV[19]->s.s_dbind);  
1301          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1302          base[4]= (V124);          base[4]= (V122);
1303          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1304          (void) (*Lnk86)();          (void) (*Lnk88)();
1305          vs_top=sup;          vs_top=sup;
1306          V131= vs_base[0];          V129= vs_base[0];
1307          if(!((V130)==(CMPcar(V131)))){          if(!((V128)==(CMPcar(V129)))){
1308          goto T561;}}          goto T569;}}
1309          V128= CMPcar(((V124))->cc.cc_turbo[12]);          V126= CMPcar(((V122))->cc.cc_turbo[12]);
1310          goto T554;          goto T562;
1311          goto T561;          goto T569;
1312  T561:;  T569:;
1313          V128= Cnil;          V126= Cnil;
1314          goto T554;          goto T562;
1315  T554:;  T562:;
1316          {register object V133;          {register object V131;
1317          V133= ((V126))->v.v_self[1];          V131= ((V124))->v.v_self[1];
1318          if(!(type_of(V133)==t_fixnum)){          if(!(type_of(V131)==t_fixnum)){
1319          goto T573;}          goto T581;}
1320          V133= ((V128))->v.v_self[fix((V133))];          V131= ((V126))->v.v_self[fix((V131))];
1321          goto T571;          goto T579;
1322          goto T573;          goto T581;
1323  T573:;  T581:;
1324          V133= VV[56];          V131= VV[58];
1325          goto T571;          goto T579;
1326  T571:;  T579:;
1327          if(!(((V133))==(VV[56]))){          if(!(((V131))==(VV[58]))){
1328          goto T576;}          goto T584;}
1329          base[4]= (V124);          base[4]= (V122);
1330          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1331          (void) (*Lnk64)();          (void) (*Lnk66)();
1332          vs_top=sup;          vs_top=sup;
1333          base[3]= vs_base[0];          base[3]= vs_base[0];
1334          goto T568;          goto T576;
1335            goto T584;
1336    T584:;
1337            base[3]= (V131);}
1338          goto T576;          goto T576;
1339  T576:;  T576:;
         base[3]= (V133);}  
         goto T568;  
 T568:;  
1340          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1341          (void) (*Lnk98)(Lclptr98);          (void) (*Lnk101)(Lclptr101);
1342          return;}}          return;}}
1343          }          }
1344  }  }
# Line 1342  static void L14() Line 1348  static void L14()
1348  {register object *base=vs_base;  {register object *base=vs_base;
1349          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1350          vs_check;          vs_check;
1351          {object V135;          {object V133;
1352          object V136;          object V134;
1353          register object V137;          register object V135;
1354          check_arg(3);          check_arg(3);
1355          V135=(base[0]);          V133=(base[0]);
1356          V136=(base[1]);          V134=(base[1]);
1357          V137=(base[2]);          V135=(base[2]);
1358          vs_top=sup;          vs_top=sup;
1359          goto TTL;          goto TTL;
1360  TTL:;  TTL:;
1361            {object V137;
1362            object V138;
1363            V137= CMPcar((V133));
1364            V138= CMPcdr((V133));
1365          {object V139;          {object V139;
1366          object V140;          if(type_of(V135)==t_structure){
1367          V139= CMPcar((V135));          goto T597;}
1368          V140= CMPcdr((V135));          goto T595;
1369          {object V141;          goto T597;
1370          if(type_of(V137)==t_structure){  T597:;
1371          goto T589;}          if(!(((V135)->str.str_def)==(VV[59]))){
1372          goto T587;          goto T595;}
1373          goto T589;          V139= STREF(object,(V135),4);
1374  T589:;          goto T593;
1375          if(!(((V137)->str.str_def)==(VV[57]))){          goto T595;
1376          goto T587;}  T595:;{object V141;
1377          V141= STREF(object,(V137),4);          V141= (VV[19]->s.s_dbind);
         goto T585;  
         goto T587;  
 T587:;{object V143;  
         V143= (VV[19]->s.s_dbind);  
1378          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1379          base[4]= (V137);          base[4]= (V135);
1380          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1381          (void) (*Lnk86)();          (void) (*Lnk88)();
1382          vs_top=sup;          vs_top=sup;
1383          V144= vs_base[0];          V142= vs_base[0];
1384          if(!((V143)==(CMPcar(V144)))){          if(!((V141)==(CMPcar(V142)))){
1385          goto T592;}}          goto T600;}}
1386          V141= CMPcar(((V137))->cc.cc_turbo[12]);          V139= CMPcar(((V135))->cc.cc_turbo[12]);
1387          goto T585;          goto T593;
1388          goto T592;          goto T600;
1389  T592:;  T600:;
1390          V141= Cnil;          V139= Cnil;
1391          goto T585;          goto T593;
1392  T585:;  T593:;
1393          {register object V146;          {register object V144;
1394          V146= ((V139))->v.v_self[1];          V144= ((V137))->v.v_self[1];
1395          if(!(type_of(V146)==t_fixnum)){          if(!(type_of(V144)==t_fixnum)){
1396          goto T604;}          goto T612;}
1397          V146= ((V141))->v.v_self[fix((V146))];          V144= ((V139))->v.v_self[fix((V144))];
1398          goto T602;          goto T610;
1399          goto T604;          goto T612;
1400  T604:;  T612:;
1401          V146= VV[56];          V144= VV[58];
1402          goto T602;          goto T610;
1403  T602:;  T610:;
1404          if(!(((V146))==(VV[56]))){          if(!(((V144))==(VV[58]))){
1405          goto T607;}          goto T615;}
1406          base[4]= (V137);          base[4]= (V135);
1407          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1408          (void) (*Lnk64)();          (void) (*Lnk66)();
1409          vs_top=sup;          vs_top=sup;
1410          base[3]= vs_base[0];          base[3]= vs_base[0];
1411          goto T599;          goto T607;
1412            goto T615;
1413    T615:;
1414            base[3]= (V144);}
1415          goto T607;          goto T607;
1416  T607:;  T607:;
         base[3]= (V146);}  
         goto T599;  
 T599:;  
1417          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1418          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk102)(Lclptr102);
1419          return;}}          return;}}
1420          }          }
1421  }  }
# Line 1419  static void L15() Line 1425  static void L15()
1425  {register object *base=vs_base;  {register object *base=vs_base;
1426          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
1427          vs_check;          vs_check;
1428          {object V148;          {object V146;
1429          object V149;          object V147;
1430          register object V150;          register object V148;
1431          check_arg(3);          check_arg(3);
1432          V148=(base[0]);          V146=(base[0]);
1433          V149=(base[1]);          V147=(base[1]);
1434          V150=(base[2]);          V148=(base[2]);
1435          vs_top=sup;          vs_top=sup;
1436          goto TTL;          goto TTL;
1437  TTL:;  TTL:;
1438            {object V150;
1439            object V151;
1440            V150= CMPcar((V146));
1441            V151= CMPcdr((V146));
1442          {object V152;          {object V152;
1443          object V153;          if(type_of(V148)==t_structure){
1444          V152= CMPcar((V148));          goto T628;}
1445          V153= CMPcdr((V148));          goto T626;
1446          {object V154;          goto T628;
1447          if(type_of(V150)==t_structure){  T628:;
1448          goto T620;}          if(!(((V148)->str.str_def)==(VV[60]))){
1449          goto T618;          goto T626;}
1450          goto T620;          V152= STREF(object,(V148),4);
1451  T620:;          goto T624;
1452          if(!(((V150)->str.str_def)==(VV[58]))){          goto T626;
1453          goto T618;}  T626:;{object V154;
1454          V154= STREF(object,(V150),4);          V154= (VV[19]->s.s_dbind);
         goto T616;  
         goto T618;  
 T618:;{object V156;  
         V156= (VV[19]->s.s_dbind);  
1455          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1456          base[4]= (V150);          base[4]= (V148);
1457          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1458          (void) (*Lnk86)();          (void) (*Lnk88)();
1459          vs_top=sup;          vs_top=sup;
1460          V157= vs_base[0];          V155= vs_base[0];
1461          if(!((V156)==(CMPcar(V157)))){          if(!((V154)==(CMPcar(V155)))){
1462          goto T623;}}          goto T631;}}
1463          V154= CMPcar(((V150))->cc.cc_turbo[12]);          V152= CMPcar(((V148))->cc.cc_turbo[12]);
1464          goto T616;          goto T624;
1465          goto T623;          goto T631;
1466  T623:;  T631:;
1467          V154= Cnil;          V152= Cnil;
1468          goto T616;          goto T624;
1469  T616:;  T624:;
1470          {register object V159;          {register object V157;
1471          V159= ((V152))->v.v_self[1];          V157= ((V150))->v.v_self[1];
1472          if(!(type_of(V159)==t_fixnum)){          if(!(type_of(V157)==t_fixnum)){
1473          goto T635;}          goto T643;}
1474          V159= ((V154))->v.v_self[fix((V159))];          V157= ((V152))->v.v_self[fix((V157))];
1475          goto T633;          goto T641;
1476          goto T635;          goto T643;
1477  T635:;  T643:;
1478          V159= VV[56];          V157= VV[58];
1479          goto T633;          goto T641;
1480  T633:;  T641:;
1481          if(!(((V159))==(VV[56]))){          if(!(((V157))==(VV[58]))){
1482          goto T638;}          goto T646;}
1483          base[4]= (V150);          base[4]= (V148);
1484          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1485          (void) (*Lnk64)();          (void) (*Lnk66)();
1486          vs_top=sup;          vs_top=sup;
1487          base[3]= vs_base[0];          base[3]= vs_base[0];
1488          goto T630;          goto T638;
1489            goto T646;
1490    T646:;
1491            base[3]= (V157);}
1492          goto T638;          goto T638;
1493  T638:;  T638:;
         base[3]= (V159);}  
         goto T630;  
 T630:;  
1494          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1495          (void) (*Lnk81)(Lclptr81);          (void) (*Lnk83)(Lclptr83);
1496          return;}}          return;}}
1497          }          }
1498  }  }
# Line 1496  static void L16() Line 1502  static void L16()
1502  {register object *base=vs_base;  {register object *base=vs_base;
1503          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
1504          vs_check;          vs_check;
1505          {object V161;          {object V159;
1506          object V162;          object V160;
1507          register object V163;          register object V161;
1508          check_arg(3);          check_arg(3);
1509          V161=(base[0]);          V159=(base[0]);
1510          V162=(base[1]);          V160=(base[1]);
1511          V163=(base[2]);          V161=(base[2]);
1512          vs_top=sup;          vs_top=sup;
1513          goto TTL;          goto TTL;
1514  TTL:;  TTL:;
1515            {object V163;
1516            object V164;
1517            V163= CMPcar((V159));
1518            V164= CMPcdr((V159));
1519          {object V165;          {object V165;
1520          object V166;          if(type_of(V161)==t_structure){
1521          V165= CMPcar((V161));          goto T659;}
1522          V166= CMPcdr((V161));          goto T657;
1523          {object V167;          goto T659;
1524          if(type_of(V163)==t_structure){  T659:;
1525          goto T651;}          if(!(((V161)->str.str_def)==(VV[61]))){
1526          goto T649;          goto T657;}
1527          goto T651;          V165= STREF(object,(V161),4);
1528  T651:;          goto T655;
1529          if(!(((V163)->str.str_def)==(VV[59]))){          goto T657;
1530          goto T649;}  T657:;{object V167;
1531          V167= STREF(object,(V163),4);          V167= (VV[19]->s.s_dbind);
         goto T647;  
         goto T649;  
 T649:;{object V169;  
         V169= (VV[19]->s.s_dbind);  
1532          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1533          base[4]= (V163);          base[4]= (V161);
1534          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1535          (void) (*Lnk86)();          (void) (*Lnk88)();
1536          vs_top=sup;          vs_top=sup;
1537          V170= vs_base[0];          V168= vs_base[0];
1538          if(!((V169)==(CMPcar(V170)))){          if(!((V167)==(CMPcar(V168)))){
1539          goto T654;}}          goto T662;}}
1540          V167= CMPcar(((V163))->cc.cc_turbo[12]);          V165= CMPcar(((V161))->cc.cc_turbo[12]);
1541          goto T647;          goto T655;
1542          goto T654;          goto T662;
1543  T654:;  T662:;
1544          V167= Cnil;          V165= Cnil;
1545          goto T647;          goto T655;
1546  T647:;  T655:;
1547          {register object V172;          {register object V170;
1548          V172= ((V165))->v.v_self[1];          V170= ((V163))->v.v_self[1];
1549          if(!(type_of(V172)==t_fixnum)){          if(!(type_of(V170)==t_fixnum)){
1550          goto T666;}          goto T674;}
1551          V172= ((V167))->v.v_self[fix((V172))];          V170= ((V165))->v.v_self[fix((V170))];
1552          goto T664;          goto T672;
1553          goto T666;          goto T674;
1554  T666:;  T674:;
1555          V172= VV[56];          V170= VV[58];
1556          goto T664;          goto T672;
1557  T664:;  T672:;
1558          if(!(((V172))==(VV[56]))){          if(!(((V170))==(VV[58]))){
1559          goto T669;}          goto T677;}
1560          base[4]= (V163);          base[4]= (V161);
1561          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1562          (void) (*Lnk64)();          (void) (*Lnk66)();
1563          vs_top=sup;          vs_top=sup;
1564          base[3]= vs_base[0];          base[3]= vs_base[0];
1565          goto T661;          goto T669;
1566            goto T677;
1567    T677:;
1568            base[3]= (V170);}
1569          goto T669;          goto T669;
1570  T669:;  T669:;
         base[3]= (V172);}  
         goto T661;  
 T661:;  
1571          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1572          (void) (*Lnk100)(Lclptr100);          (void) (*Lnk103)(Lclptr103);
1573          return;}}          return;}}
1574          }          }
1575  }  }
1576  /*      local entry for function TRACE-METHOD   */  /*      local entry for function TRACE-METHOD   */
1577    
1578  static object LI17(object V174,object first,...)  static object LI17(object V172,object first,...)
1579  {        {      
1580          va_list ap;          va_list ap;
1581          int narg = VFUN_NARGS; VMB14 VMS14 VMV14          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
1582          {object V175;          {object V173;
1583          object V176;          object V174;
1584          va_start(ap,first);          va_start(ap,first);
1585          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1586          V175= V174;          V173= V172;
1587          narg= narg - 1;          narg= narg - 1;
1588          V177 = list_vector_new(narg,first,ap);          V175 = list_vector_new(narg,first,ap);
1589          V176= V177;          V174= V175;
1590          {object V178;          {object V176;
1591          object V179;          object V177;
1592          object V180;          object V178;
1593          base[0]= (V175);          base[0]= (V173);
1594          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1595          (void) (*Lnk101)();          (void) (*Lnk104)();
1596          if(vs_base>=vs_top){vs_top=sup;goto T674;}          if(vs_base>=vs_top){vs_top=sup;goto T682;}
1597          V178= vs_base[0];          V176= vs_base[0];
1598          vs_base++;          vs_base++;
1599          if(vs_base>=vs_top){vs_top=sup;goto T675;}          if(vs_base>=vs_top){vs_top=sup;goto T683;}
1600          V179= vs_base[0];          V177= vs_base[0];
1601          vs_base++;          vs_base++;
1602          if(vs_base>=vs_top){vs_top=sup;goto T676;}          if(vs_base>=vs_top){vs_top=sup;goto T684;}
1603          V180= vs_base[0];          V178= vs_base[0];
1604          vs_top=sup;          vs_top=sup;
1605          goto T677;          goto T685;
1606          goto T674;          goto T682;
1607  T674:;  T682:;
1608            V176= Cnil;
1609            goto T683;
1610    T683:;
1611            V177= Cnil;
1612            goto T684;
1613    T684:;
1614          V178= Cnil;          V178= Cnil;
1615          goto T675;          goto T685;
1616  T675:;  T685:;
1617          V179= Cnil;          {object V179;
1618          goto T676;          object V180;
1619  T676:;          base[2]= (V177);
         V180= Cnil;  
         goto T677;  
 T677:;  
         {object V181;  
         object V182;  
         base[2]= (V179);  
1620          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1621          (void) (*Lnk84)(Lclptr84);          (void) (*Lnk86)(Lclptr86);
1622          vs_top=sup;          vs_top=sup;
1623          V183= vs_base[0];          V181= vs_base[0];
1624          V181= (*(LnkLI102))(V183,(V180),(V176));          V179= (*(LnkLI105))(V181,(V178),(V174));
1625          base[2]= VV[37];          base[2]= VV[39];
1626          base[3]= VV[60];          base[3]= VV[62];
1627          base[4]= (V179);          base[4]= (V177);
1628          base[5]= VV[61];          base[5]= VV[63];
1629          base[6]= (V181);          base[6]= (V179);
1630          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1631          (void) (*Lnk103)(Lclptr103);          (void) (*Lnk106)(Lclptr106);
1632          vs_top=sup;          vs_top=sup;
1633          V182= vs_base[0];          V180= vs_base[0];
1634          base[2]= (V178);          base[2]= (V176);
1635          base[3]= (V179);          base[3]= (V177);
1636          (void)simple_symlispcall(VV[104],base+2,2);          (void)simple_symlispcall(VV[107],base+2,2);
1637          base[2]= (V178);          base[2]= (V176);
1638          base[3]= (V182);          base[3]= (V180);
1639          (void)simple_symlispcall(VV[105],base+2,2);          (void)simple_symlispcall(VV[108],base+2,2);
1640          base[2]= V182;          base[2]= V180;
1641          base[3]= (VV[62]->s.s_dbind);          base[3]= (VV[64]->s.s_dbind);
1642          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1643          Ladjoin();          Ladjoin();
1644          vs_top=sup;          vs_top=sup;
1645          (VV[62]->s.s_dbind)= vs_base[0];          (VV[64]->s.s_dbind)= vs_base[0];
1646          {object V185 = (V182);          {object V183 = (V180);
1647          VMR14(V185)}}}          VMR14(V183)}}}
1648          va_end(ap);          va_end(ap);
1649          base[0]=base[0];          base[0]=base[0];
1650          return Cnil;}          return Cnil;}
# Line 1649  static void L18() Line 1655  static void L18()
1655  {register object *base=vs_base;  {register object *base=vs_base;
1656          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
1657          vs_check;          vs_check;
1658          {object V186;          {object V184;
1659          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
         if(vs_base>=vs_top){vs_top=sup;goto T697;}  
         V186=(base[0]);  
         vs_top=sup;  
         goto T698;  
         goto T697;  
 T697:;  
         V186= Cnil;  
         goto T698;  
 T698:;  
         if(((V186))==Cnil){  
         goto T701;}  
         {object V187;  
         object V188;  
         base[1]= (V186);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk101)();  
1660          if(vs_base>=vs_top){vs_top=sup;goto T705;}          if(vs_base>=vs_top){vs_top=sup;goto T705;}
1661          V187= vs_base[0];          V184=(base[0]);
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T706;}  
         V188= vs_base[0];  
1662          vs_top=sup;          vs_top=sup;
1663          goto T707;          goto T706;
1664          goto T705;          goto T705;
1665  T705:;  T705:;
1666          V187= Cnil;          V184= Cnil;
1667          goto T706;          goto T706;
1668  T706:;  T706:;
1669          V188= Cnil;          if(((V184))==Cnil){
         goto T707;  
 T707:;  
         {register object x= (V188),V189= (VV[62]->s.s_dbind);  
         while(V189!=Cnil)  
         if(x==(V189->c.c_car)){  
         goto T710;  
         }else V189=V189->c.c_cdr;  
1670          goto T709;}          goto T709;}
1671          goto T710;          {object V185;
1672  T710:;          object V186;
1673          base[1]= (V188);          base[1]= (V184);
1674            vs_top=(vs_base=base+1)+1;
1675            (void) (*Lnk104)();
1676            if(vs_base>=vs_top){vs_top=sup;goto T713;}
1677            V185= vs_base[0];
1678            vs_base++;
1679            if(vs_base>=vs_top){vs_top=sup;goto T714;}
1680            V186= vs_base[0];
1681            vs_top=sup;
1682            goto T715;
1683            goto T713;
1684    T713:;
1685            V185= Cnil;
1686            goto T714;
1687    T714:;
1688            V186= Cnil;
1689            goto T715;
1690    T715:;
1691            {register object x= (V186),V187= (VV[64]->s.s_dbind);
1692            while(V187!=Cnil)
1693            if(x==(V187->c.c_car)){
1694            goto T718;
1695            }else V187=V187->c.c_cdr;
1696            goto T717;}
1697            goto T718;
1698    T718:;
1699            base[1]= (V186);
1700          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1701          L19(base);          L19(base);
1702          return;          return;
1703          goto T709;          goto T717;
1704  T709:;  T717:;
1705          base[1]= VV[63];          base[1]= VV[65];
1706          base[2]= (V188);          base[2]= (V186);
1707          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1708          Lerror();          Lerror();
1709          return;}          return;}
1710          goto T701;          goto T709;
1711  T701:;  T709:;
1712          {register object V190;          {register object V188;
1713          register object V191;          register object V189;
1714          V190= (VV[62]->s.s_dbind);          V188= (VV[64]->s.s_dbind);
1715          V191= CMPcar((V190));          V189= CMPcar((V188));
1716          goto T717;          goto T725;
1717  T717:;  T725:;
1718          if(!(((V190))==Cnil)){          if(!(((V188))==Cnil)){
1719          goto T718;}          goto T726;}
1720          base[2]= Cnil;          base[2]= Cnil;
1721          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1722          return;          return;
1723          goto T718;          goto T726;
1724  T718:;  T726:;
1725          base[2]= (V191);          base[2]= (V189);
1726          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1727          L19(base);          L19(base);
1728          vs_top=sup;          vs_top=sup;
1729          V190= CMPcdr((V190));          V188= CMPcdr((V188));
1730          V191= CMPcar((V190));          V189= CMPcar((V188));
1731          goto T717;}          goto T725;}
1732          }          }
1733  }  }
1734  /*      local entry for function TRACE-METHOD-INTERNAL  */  /*      local entry for function TRACE-METHOD-INTERNAL  */
1735    
1736  static object LI20(V195,V196,V197)  static object LI20(V193,V194,V195)
1737    
1738  object V195;register object V196;object V197;  object V193;register object V194;object V195;
1739  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1740          goto TTL;          goto TTL;
1741  TTL:;  TTL:;
1742          base[0]= list(2,VV[65],(V196));          base[0]= list(2,VV[67],(V194));
1743          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1744          Leval();          Leval();
1745          vs_top=sup;          vs_top=sup;
1746          base[0]= (V196);          base[0]= (V194);
1747          base[1]= (V195);          base[1]= (V193);
1748          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1749          siLfset();          siLfset();
1750          vs_top=sup;          vs_top=sup;
1751          base[0]= listA(3,VV[66],(V196),(V197));          base[0]= listA(3,VV[68],(V194),(V195));
1752          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1753          Leval();          Leval();
1754          vs_top=sup;          vs_top=sup;
1755          base[0]= (V196);          base[0]= (V194);
1756          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1757          Lsymbol_function();          Lsymbol_function();
1758          vs_top=sup;          vs_top=sup;
1759          {object V198 = vs_base[0];          {object V196 = vs_base[0];
1760          VMR16(V198)}          VMR16(V196)}
1761          base[0]=base[0];          base[0]=base[0];
1762          return Cnil;          return Cnil;
1763  }  }
# Line 1763  static void L21() Line 1769  static void L21()
1769          vs_check;          vs_check;
1770          check_arg(2);          check_arg(2);
1771          vs_top=sup;          vs_top=sup;
1772          {object V199=base[0]->c.c_cdr;          {object V197=base[0]->c.c_cdr;
1773          base[2]= V199;}          base[2]= V197;}
1774          base[3]= list(2,VV[67],list(2,VV[68],base[2]));          base[3]= list(2,VV[69],list(2,VV[70],base[2]));
1775          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1776          return;          return;
1777  }  }
1778  /*      local entry for function UNDEFMETHOD-1  */  /*      local entry for function UNDEFMETHOD-1  */
1779    
1780  static object LI22(V201)  static object LI22(V199)
1781    
1782  object V201;  object V199;
1783  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1784          goto TTL;          goto TTL;
1785  TTL:;  TTL:;
1786          {object V202;          {object V200;
1787          object V203;          object V201;
1788          base[0]= (V201);          base[0]= (V199);
1789          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1790          (void) (*Lnk101)();          (void) (*Lnk104)();
1791          if(vs_base>=vs_top){vs_top=sup;goto T739;}          if(vs_base>=vs_top){vs_top=sup;goto T747;}
1792          V202= vs_base[0];          V200= vs_base[0];
1793          vs_base++;          vs_base++;
1794          if(vs_base>=vs_top){vs_top=sup;goto T740;}          if(vs_base>=vs_top){vs_top=sup;goto T748;}
1795          V203= vs_base[0];          V201= vs_base[0];
1796          vs_top=sup;          vs_top=sup;
1797          goto T741;          goto T749;
1798          goto T739;          goto T747;
1799  T739:;  T747:;
1800          V202= Cnil;          V200= Cnil;
1801          goto T740;          goto T748;
1802  T740:;  T748:;
1803          V203= Cnil;          V201= Cnil;
1804          goto T741;          goto T749;
1805  T741:;  T749:;
1806          if(((V202))==Cnil){          if(((V200))==Cnil){
1807          goto T743;}          goto T751;}
1808          if(((V203))==Cnil){          if(((V201))==Cnil){
1809          goto T743;}          goto T751;}
1810          base[0]= (V202);          base[0]= (V200);
1811          base[1]= (V203);          base[1]= (V201);
1812          (void)simple_symlispcall(VV[104],base+0,2);          (void)simple_symlispcall(VV[107],base+0,2);
1813          {object V204 = (V203);          {object V202 = (V201);
1814          VMR18(V204)}          VMR18(V202)}
1815          goto T743;          goto T751;
1816  T743:;  T751:;
1817          {object V205 = Cnil;          {object V203 = Cnil;
1818          VMR18(V205)}}          VMR18(V203)}}
1819          base[0]=base[0];          base[0]=base[0];
1820          return Cnil;          return Cnil;
1821  }  }
# Line 1820  register object *base0; Line 1826  register object *base0;
1826  {       register object *base=vs_base;  {       register object *base=vs_base;
1827          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1828          vs_check;          vs_check;
1829          {register object V206;          {register object V204;
1830          check_arg(1);          check_arg(1);
1831          V206=(base[0]);          V204=(base[0]);
1832          vs_top=sup;          vs_top=sup;
1833          goto TTL;          goto TTL;
1834  TTL:;  TTL:;
1835          {object V207;          {object V205;
1836          base[1]= (V206);          base[1]= (V204);
1837          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1838          (void) (*Lnk106)(Lclptr106);          (void) (*Lnk109)(Lclptr109);
1839          vs_top=sup;          vs_top=sup;
1840          V207= vs_base[0];          V205= vs_base[0];
1841          if(((V207))==Cnil){          if(((V205))==Cnil){
1842          goto T753;}          goto T761;}
1843          base[1]= (V207);          base[1]= (V205);
1844          base[2]= (V206);          base[2]= (V204);
1845          (void)simple_symlispcall(VV[104],base+1,2);          (void)simple_symlispcall(VV[107],base+1,2);
1846          base[1]=(VV[105]->s.s_gfdef);          base[1]=(VV[108]->s.s_gfdef);
1847          base[2]= (V207);          base[2]= (V205);
1848          if(!((VV[64])->s.s_gfdef!=OBJNULL)){          if(!((VV[66])->s.s_gfdef!=OBJNULL)){
1849          goto T762;}          goto T770;}
1850          base[4]= (V206);          base[4]= (V204);
1851          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1852          (void) (*Lnk64)();          (void) (*Lnk66)();
1853          vs_top=sup;          vs_top=sup;
1854          base[3]= vs_base[0];          base[3]= vs_base[0];
1855          goto T760;          goto T768;
1856          goto T762;          goto T770;
1857  T762:;  T770:;
1858          base[3]= (*(LnkLI108))(VV[64],VV[41]);          base[3]= (*(LnkLI111))(VV[66],VV[43]);
1859          goto T760;          goto T768;
1860  T760:;  T768:;
1861          (void)simple_lispcall(base+1,2);          (void)simple_lispcall(base+1,2);
1862          base[1]= (V206);          base[1]= (V204);
1863          base[2]= (VV[62]->s.s_dbind);          base[2]= (VV[64]->s.s_dbind);
1864          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1865          (void) (*Lnk109)();          (void) (*Lnk112)();
1866          vs_top=sup;          vs_top=sup;
1867          (VV[62]->s.s_dbind)= vs_base[0];          (VV[64]->s.s_dbind)= vs_base[0];
1868          base[1]= (VV[62]->s.s_dbind);          base[1]= (VV[64]->s.s_dbind);
1869          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1870          return;          return;
1871          goto T753;          goto T761;
1872  T753:;  T761:;
1873          base[1]= Cnil;          base[1]= Cnil;
1874          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1875          return;}          return;}
# Line 1876  register object *base0; Line 1882  register object *base0;
1882  {       register object *base=vs_base;  {       register object *base=vs_base;
1883          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1884          vs_check;          vs_check;
1885          {object V208;          {object V206;
1886          check_arg(1);          check_arg(1);
1887          V208=(base[0]);          V206=(base[0]);
1888          vs_top=sup;          vs_top=sup;
1889          goto TTL;          goto TTL;
1890  TTL:;{object V209;  TTL:;{object V207;
1891          base[1]= (V208);          base[1]= (V206);
1892          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1893          (void) (*Lnk89)(Lclptr89);          (void) (*Lnk91)(Lclptr91);
1894          vs_top=sup;          vs_top=sup;
1895          V209= vs_base[0];          V207= vs_base[0];
1896          if(V209==Cnil)goto T768;          if(V207==Cnil)goto T776;
1897          base[1]= V209;          base[1]= V207;
1898          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1899          return;          return;
1900          goto T768;          goto T776;
1901  T768:;}  T776:;}
1902          base[1]= (V208);          base[1]= (V206);
1903          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1904          return;          return;
1905          }          }
# Line 1905  register object *base0; Line 1911  register object *base0;
1911  {       register object *base=vs_base;  {       register object *base=vs_base;
1912          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1913          vs_check;          vs_check;
1914          {object V210;          {object V208;
1915            object V209;
1916            object V210;
1917          object V211;          object V211;
         object V212;  
         object V213;  
1918          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1919          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1920          V210=(base[0]);          V208=(base[0]);
1921          V211=(base[1]);          V209=(base[1]);
1922          vs_base=vs_base+2;          vs_base=vs_base+2;
1923          if(vs_base>=vs_top){vs_top=sup;goto T771;}          if(vs_base>=vs_top){vs_top=sup;goto T779;}
1924          V212=(base[2]);          V210=(base[2]);
1925          V213= Ct;          V211= Ct;
1926          vs_top=sup;          vs_top=sup;
1927          goto T772;          goto T780;
1928          goto T771;          goto T779;
1929  T771:;  T779:;
1930          V212= Cnil;          V210= Cnil;
1931          V213= Cnil;          V211= Cnil;
1932          goto T772;          goto T780;
1933  T772:;  T780:;
1934          if(((V213))==Cnil){          if(((V211))==Cnil){
1935          goto T775;}          goto T783;}
1936          base[4]= base0[3];          base[4]= base0[3];
1937          base[5]= VV[9];          base[5]= VV[9];
1938          base[6]= (V210);          base[6]= (V208);
1939          base[7]= (V212);          base[7]= (V210);
1940          base[8]= number_plus(base0[6],small_fixnum(7));          base[8]= number_plus(base0[6],small_fixnum(7));
1941          base[9]= (V211);          base[9]= (V209);
1942          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
1943          Lformat();          Lformat();
1944          return;          return;
1945          goto T775;          goto T783;
1946  T775:;  T783:;
1947          base[4]= base0[3];          base[4]= base0[3];
1948          base[5]= VV[10];          base[5]= VV[10];
1949          base[6]= (V210);          base[6]= (V208);
1950          base[7]= base0[6];          base[7]= base0[6];
1951          base[8]= (V211);          base[8]= (V209);
1952          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1953          Lformat();          Lformat();
1954          return;          return;
# Line 1955  register object *base0; Line 1961  register object *base0;
1961  {       register object *base=vs_base;  {       register object *base=vs_base;
1962          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1963          vs_check;          vs_check;
1964          {object V214;          {object V212;
1965          check_arg(1);          check_arg(1);
1966          V214=(base[0]);          V212=(base[0]);
1967          vs_top=sup;          vs_top=sup;
1968          goto TTL;          goto TTL;
1969  TTL:;  TTL:;
1970          {object V215= symbol_name((V214));          {object V213= symbol_name((V212));
1971          V216 = CMPmake_fixnum((long)(/* INLINE-ARGS */V215)->v.v_fillp);          V214 = CMPmake_fixnum((long)(/* INLINE-ARGS */V213)->v.v_fillp);
1972          base0[6]= (number_compare(base0[6],V216)>=0?(base0[6]):V216);}          base0[6]= (number_compare(base0[6],V214)>=0?(base0[6]):V214);}
1973          base[1]= base0[6];          base[1]= base0[6];
1974          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1975          return;          return;
1976          }          }
1977  }  }
1978  static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* REMOVE */  static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* REMOVE */
1979  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,2,first,ap);va_end(ap);return V1;} /* NO-SLOT */  static object  LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,2,first,ap);va_end(ap);return V1;} /* NO-SLOT */
1980  static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* %FBOUNDP */  static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,1,first,ap);va_end(ap);return V1;} /* %FBOUNDP */
1981  static void LnkT106(ptr) object *ptr;{ call_or_link_closure(VV[106],(void **)(void *)&Lnk106,(void **)(void *)&Lclptr106);} /* METHOD-GENERIC-FUNCTION */  static void LnkT109(ptr) object *ptr;{ call_or_link_closure(VV[109],(void **)(void *)&Lnk109,(void **)(void *)&Lclptr109);} /* METHOD-GENERIC-FUNCTION */
1982  static void LnkT103(ptr) object *ptr;{ call_or_link_closure(VV[103],(void **)(void *)&Lnk103,(void **)(void *)&Lclptr103);} /* MAKE-INSTANCE */  static void LnkT106(ptr) object *ptr;{ call_or_link_closure(VV[106],(void **)(void *)&Lnk106,(void **)(void *)&Lclptr106);} /* MAKE-INSTANCE */
1983  static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,3,first,ap);va_end(ap);return V1;} /* TRACE-METHOD-INTERNAL */  static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,3,first,ap);va_end(ap);return V1;} /* TRACE-METHOD-INTERNAL */
1984  static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* PARSE-METHOD-OR-SPEC */  static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* PARSE-METHOD-OR-SPEC */
1985  static void LnkT100(ptr) object *ptr;{ call_or_link_closure(VV[100],(void **)(void *)&Lnk100,(void **)(void *)&Lclptr100);} /* ACCESSOR-METHOD-SLOT-NAME */  static void LnkT103(ptr) object *ptr;{ call_or_link_closure(VV[103],(void **)(void *)&Lnk103,(void **)(void *)&Lclptr103);} /* ACCESSOR-METHOD-SLOT-NAME */
1986  static void LnkT99(ptr) object *ptr;{ call_or_link_closure(VV[99],(void **)(void *)&Lnk99,(void **)(void *)&Lclptr99);} /* METHOD-SPECIALIZERS */  static void LnkT102(ptr) object *ptr;{ call_or_link_closure(VV[102],(void **)(void *)&Lnk102,(void **)(void *)&Lclptr102);} /* METHOD-SPECIALIZERS */
1987  static void LnkT98(ptr) object *ptr;{ call_or_link_closure(VV[98],(void **)(void *)&Lnk98,(void **)(void *)&Lclptr98);} /* METHOD-LAMBDA-LIST */  static void LnkT101(ptr) object *ptr;{ call_or_link_closure(VV[101],(void **)(void *)&Lnk101,(void **)(void *)&Lclptr101);} /* METHOD-LAMBDA-LIST */
1988  static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* LISP METHOD slot READER */  static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* LISP METHOD slot READER */
1989  static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* PACKAGE-SIZE */  static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* PACKAGE-SIZE */
1990  static void LnkT94(ptr) object *ptr;{ call_or_link_closure(VV[94],(void **)(void *)&Lnk94,(void **)(void *)&Lclptr94);} /* SPECIALIZER-DIRECT-METHODS */  static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* SPECIFIC-ERROR */
1991  static void LnkT93(ptr) object *ptr;{ call_or_link_closure(VV[93],(void **)(void *)&Lnk93,(void **)(void *)&Lclptr93);} /* CLASS-PRECEDENCE-LIST */  static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* SPECIALIZER-DIRECT-METHODS */
1992  static void LnkT92(ptr) object *ptr;{ call_or_link_closure(VV[92],(void **)(void *)&Lnk92,(void **)(void *)&Lclptr92);} /* CLASS-DIRECT-SUBCLASSES */  static void LnkT95(ptr) object *ptr;{ call_or_link_closure(VV[95],(void **)(void *)&Lnk95,(void **)(void *)&Lclptr95);} /* CLASS-PRECEDENCE-LIST */
1993  static void LnkT91(ptr) object *ptr;{ call_or_link_closure(VV[91],(void **)(void *)&Lnk91,(void **)(void *)&Lclptr91);} /* CLASS-DIRECT-SUPERCLASSES */  static void LnkT94(ptr) object *ptr;{ call_or_link_closure(VV[94],(void **)(void *)&Lnk94,(void **)(void *)&Lclptr94);} /* CLASS-DIRECT-SUBCLASSES */
1994  static object  LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[90],(void **)(void *)&LnkLI90,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static void LnkT93(ptr) object *ptr;{ call_or_link_closure(VV[93],(void **)(void *)&Lnk93,(void **)(void *)&Lclptr93);} /* CLASS-DIRECT-SUPERCLASSES */
1995  static void LnkT89(ptr) object *ptr;{ call_or_link_closure(VV[89],(void **)(void *)&Lnk89,(void **)(void *)&Lclptr89);} /* CLASS-NAME */  static object  LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[92],(void **)(void *)&LnkLI92,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
1996  static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* TYPECASE-ERROR-STRING */  static void LnkT91(ptr) object *ptr;{ call_or_link_closure(VV[91],(void **)(void *)&Lnk91,(void **)(void *)&Lclptr91);} /* CLASS-NAME */
1997  static object  LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* TYPECASE-ERROR-STRING */
1998  static void LnkT86(){ call_or_link(VV[86],(void **)(void *)&Lnk86);} /* CCLOSURE-ENV-NTHCDR */  static object  LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
1999  static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* STRUCTURE-SUBTYPE-P */  static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* CCLOSURE-ENV-NTHCDR */
2000  static void LnkT84(ptr) object *ptr;{ call_or_link_closure(VV[84],(void **)(void *)&Lnk84,(void **)(void *)&Lclptr84);} /* METHOD-FUNCTION */  static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* STRUCTURE-SUBTYPE-P */
2001  static void LnkT83(ptr) object *ptr;{ call_or_link_closure(VV[83],(void **)(void *)&Lnk83,(void **)(void *)&Lclptr83);} /* METHOD-FAST-FUNCTION */  static void LnkT86(ptr) object *ptr;{ call_or_link_closure(VV[86],(void **)(void *)&Lnk86,(void **)(void *)&Lclptr86);} /* METHOD-FUNCTION */
2002  static object  LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[82],(void **)(void *)&LnkLI82,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */  static void LnkT85(ptr) object *ptr;{ call_or_link_closure(VV[85],(void **)(void *)&Lnk85,(void **)(void *)&Lclptr85);} /* METHOD-FAST-FUNCTION */
2003  static void LnkT81(ptr) object *ptr;{ call_or_link_closure(VV[81],(void **)(void *)&Lnk81,(void **)(void *)&Lclptr81);} /* METHOD-QUALIFIERS */  static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */
2004  static void LnkT80(ptr) object *ptr;{ call_or_link_closure(VV[80],(void **)(void *)&Lnk80,(void **)(void *)&Lclptr80);} /* GENERIC-FUNCTION-METHODS */  static void LnkT83(ptr) object *ptr;{ call_or_link_closure(VV[83],(void **)(void *)&Lnk83,(void **)(void *)&Lclptr83);} /* METHOD-QUALIFIERS */
2005  static void LnkT79(ptr) object *ptr;{ call_or_link_closure(VV[79],(void **)(void *)&Lnk79,(void **)(void *)&Lclptr79);} /* GENERIC-FUNCTION-PRETTY-ARGLIST */  static void LnkT82(ptr) object *ptr;{ call_or_link_closure(VV[82],(void **)(void *)&Lnk82,(void **)(void *)&Lclptr82);} /* GENERIC-FUNCTION-METHODS */
2006  static void LnkT78(ptr) object *ptr;{ call_or_link_closure(VV[78],(void **)(void *)&Lnk78,(void **)(void *)&Lclptr78);} /* CLASS-SLOTS */  static void LnkT81(ptr) object *ptr;{ call_or_link_closure(VV[81],(void **)(void *)&Lnk81,(void **)(void *)&Lclptr81);} /* GENERIC-FUNCTION-PRETTY-ARGLIST */
2007  static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* SLOT-VALUE-OR-DEFAULT */  static void LnkT80(ptr) object *ptr;{ call_or_link_closure(VV[80],(void **)(void *)&Lnk80,(void **)(void *)&Lclptr80);} /* CLASS-SLOTS */
2008  static void LnkT74(ptr) object *ptr;{ call_or_link_closure(VV[74],(void **)(void *)&Lnk74,(void **)(void *)&Lclptr74);} /* SLOT-DEFINITION-ALLOCATION */  static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* SLOT-VALUE-OR-DEFAULT */
2009  static void LnkT73(ptr) object *ptr;{ call_or_link_closure(VV[73],(void **)(void *)&Lnk73,(void **)(void *)&Lclptr73);} /* SLOT-DEFINITION-NAME */  static void LnkT76(ptr) object *ptr;{ call_or_link_closure(VV[76],(void **)(void *)&Lnk76,(void **)(void *)&Lclptr76);} /* SLOT-DEFINITION-ALLOCATION */
2010  static void LnkT72(ptr) object *ptr;{ call_or_link_closure(VV[72],(void **)(void *)&Lnk72,(void **)(void *)&Lclptr72);} /* SLOTS-TO-INSPECT */  static void LnkT75(ptr) object *ptr;{ call_or_link_closure(VV[75],(void **)(void *)&Lnk75,(void **)(void *)&Lclptr75);} /* SLOT-DEFINITION-NAME */
2011  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static void LnkT74(ptr) object *ptr;{ call_or_link_closure(VV[74],(void **)(void *)&Lnk74,(void **)(void *)&Lclptr74);} /* SLOTS-TO-INSPECT */
2012  static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,2,first,ap);va_end(ap);return V1;} /* DESCRIBE-PACKAGE */  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
2013    static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,2,first,ap);va_end(ap);return V1;} /* DESCRIBE-PACKAGE */
2014  static void LnkT0(ptr) object *ptr;{ call_or_link_closure(VV[0],(void **)(void *)&Lnk0,(void **)(void *)&Lclptr0);} /* DESCRIBE-OBJECT */  static void LnkT0(ptr) object *ptr;{ call_or_link_closure(VV[0],(void **)(void *)&Lnk0,(void **)(void *)&Lclptr0);} /* DESCRIBE-OBJECT */
2015  static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* LOAD-DEFGENERIC */  static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* LOAD-DEFGENERIC */
2016    
2017  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2018  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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