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

Diff of /gcl/lsp/packlib.c

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

revision 1.17 by camm, Wed Feb 26 22:21:36 2003 UTC revision 1.18 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 19  static void L1() Line 19  static void L1()
19          goto T2;}          goto T2;}
20          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
21          return;          return;
22  goto T2;          goto T2;
23  T2:;  T2:;
24          {register object V2;          {register object V2;
25          vs_base=vs_top;          vs_base=vs_top;
# Line 44  TTL:; Line 44  TTL:;
44          if(!(type_of((V7))==t_symbol)){          if(!(type_of((V7))==t_symbol)){
45          goto T5;}          goto T5;}
46          V7= symbol_name((V7));          V7= symbol_name((V7));
47  goto T5;          goto T5;
48  T5:;  T5:;
49          vs_base=vs_top;          vs_base=vs_top;
50          Llist_all_packages();          Llist_all_packages();
# Line 56  T5:; Line 56  T5:;
56          {object V11 = Cnil;          {object V11 = Cnil;
57          VMR2(V11)}}          VMR2(V11)}}
58          base[0]=V8=MMcons(Cnil,Cnil);          base[0]=V8=MMcons(Cnil,Cnil);
59  goto T9;          goto T9;
60  T9:;  T9:;
61          {object V13;          {object V13;
62          object V14;          object V14;
# Line 71  T9:; Line 71  T9:;
71          V14= vs_base[0];          V14= vs_base[0];
72          vs_top=sup;          vs_top=sup;
73          goto T17;          goto T17;
74  goto T15;          goto T15;
75  T15:;  T15:;
76          V13= Cnil;          V13= Cnil;
77  goto T16;          goto T16;
78  T16:;  T16:;
79          V14= Cnil;          V14= Cnil;
80  goto T17;          goto T17;
81  T17:;  T17:;
82          if(((V14))==(VV[6])){          if(((V14))==(VV[6])){
83          goto T18;}          goto T18;}
84          if(!(((V14))==(VV[7]))){          if(!(((V14))==(VV[7]))){
85          goto T19;}          goto T19;}
86  goto T18;          goto T18;
87  T18:;  T18:;
88          (V8->c.c_cdr)= make_cons((V13),Cnil);          (V8->c.c_cdr)= make_cons((V13),Cnil);
89          goto T11;          goto T11;
90  goto T19;          goto T19;
91  T19:;  T19:;
92          (V8->c.c_cdr)= Cnil;}          (V8->c.c_cdr)= Cnil;}
93  goto T11;          goto T11;
94  T11:;  T11:;
95          {object cdr_V8=MMcdr(V8);while(!endp(cdr_V8)) {cdr_V8=MMcdr(cdr_V8);V8=MMcdr(V8);}}          {object cdr_V8=MMcdr(V8);while(!endp(cdr_V8)) {cdr_V8=MMcdr(cdr_V8);V8=MMcdr(V8);}}
96          V9=MMcdr(V9);          V9=MMcdr(V9);
# Line 335  TTL:; Line 335  TTL:;
335          V75= number_minus(V78,V79);          V75= number_minus(V78,V79);
336          V76= make_fixnum((long)length((V73)));          V76= make_fixnum((long)length((V73)));
337          V77= small_fixnum(0);          V77= small_fixnum(0);
338  goto T50;          goto T50;
339  T50:;  T50:;
340          if(!(number_compare((V77),(V75))>0)){          if(!(number_compare((V77),(V75))>0)){
341          goto T51;}          goto T51;}
342          {object V80 = Cnil;          {object V80 = Cnil;
343          VMR6(V80)}          VMR6(V80)}
344  goto T51;          goto T51;
345  T51:;  T51:;
346          base[0]= (V73);          base[0]= (V73);
347          base[1]= (V74);          base[1]= (V74);
# Line 356  T51:; Line 356  T51:;
356          goto T55;}          goto T55;}
357          {object V81 = Ct;          {object V81 = Ct;
358          VMR6(V81)}          VMR6(V81)}
359  goto T55;          goto T55;
360  T55:;  T55:;
361          V77= one_plus((V77));          V77= one_plus((V77));
362          goto T50;}          goto T50;}
# Line 386  TTL:; Line 386  TTL:;
386          goto T73;}          goto T73;}
387          princ_str("  Special form",Cnil);          princ_str("  Special form",Cnil);
388          goto T68;          goto T68;
389  goto T73;          goto T73;
390  T73:;  T73:;
391          base[0]= (V83);          base[0]= (V83);
392          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 396  T73:; Line 396  T73:;
396          goto T77;}          goto T77;}
397          princ_str("  Macro",Cnil);          princ_str("  Macro",Cnil);
398          goto T68;          goto T68;
399  goto T77;          goto T77;
400  T77:;  T77:;
401          princ_str("  Function",Cnil);          princ_str("  Function",Cnil);
402  goto T68;          goto T68;
403  T68:;  T68:;
404          base[0]= (V83);          base[0]= (V83);
405          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 415  T68:; Line 415  T68:;
415          goto T86;}          goto T86;}
416          princ_str("  Constant: ",Cnil);          princ_str("  Constant: ",Cnil);
417          goto T84;          goto T84;
418  goto T86;          goto T86;
419  T86:;  T86:;
420          princ_str("  has value: ",Cnil);          princ_str("  has value: ",Cnil);
421  goto T84;          goto T84;
422  T84:;  T84:;
423          base[0]= (V83);          base[0]= (V83);
424          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 426  T84:; Line 426  T84:;
426          vs_top=sup;          vs_top=sup;
427          V84= vs_base[0];          V84= vs_base[0];
428          (void)(prin1(V84,Cnil));          (void)(prin1(V84,Cnil));
429  goto T80;          goto T80;
430  T80:;  T80:;
431          {object V85 = terpri(Cnil);          {object V85 = terpri(Cnil);
432          VMR7(V85)}          VMR7(V85)}
# Line 450  static object LI8(object V86,object firs Line 450  static object LI8(object V86,object firs
450          else {          else {
451          V88= first;}          V88= first;}
452          --narg; goto T92;          --narg; goto T92;
453  goto T91;          goto T91;
454  T91:;  T91:;
455          V88= Cnil;          V88= Cnil;
456  goto T92;          goto T92;
457  T92:;  T92:;
458          {register object V89;          {register object V89;
459          V89= Cnil;          V89= Cnil;
# Line 472  T92:; Line 472  T92:;
472          goto T106;}          goto T106;}
473          V90= V88;          V90= V88;
474          goto T104;          goto T104;
475  goto T106;          goto T106;
476  T106:;  T106:;
477          base[0]= coerce_to_string(V88);          base[0]= coerce_to_string(V88);
478          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
479          Lfind_package();          Lfind_package();
480          vs_top=sup;          vs_top=sup;
481          V90= vs_base[0];          V90= vs_base[0];
482  goto T104;          goto T104;
483  T104:;  T104:;
484          V91= Cnil;          V91= Cnil;
485          V92= Cnil;          V92= Cnil;
# Line 492  T104:; Line 492  T104:;
492          V96= vs_base[0];          V96= vs_base[0];
493          V94= make_cons((V90),V96);          V94= make_cons((V90),V96);
494          V95= car((V94));          V95= car((V94));
495  goto T115;          goto T115;
496  T115:;  T115:;
497          if(!(endp_prop((V94)))){          if(!(endp_prop((V94)))){
498          goto T116;}          goto T116;}
499          V91= Cnil;          V91= Cnil;
500          goto T103;          goto T103;
501  goto T116;          goto T116;
502  T116:;  T116:;
503          {long V97;          {long V97;
504          long V98;          long V98;
# Line 512  T116:; Line 512  T116:;
512          V98= fix(vs_base[0]);          V98= fix(vs_base[0]);
513          vs_top=sup;          vs_top=sup;
514          goto T127;          goto T127;
515  goto T125;          goto T125;
516  T125:;  T125:;
517          V97= fix(Cnil);          V97= fix(Cnil);
518  goto T126;          goto T126;
519  T126:;  T126:;
520          V98= fix(Cnil);          V98= fix(Cnil);
521  goto T127;          goto T127;
522  T127:;  T127:;
523          if(((V90))==((V95))){          if(((V90))==((V95))){
524          goto T128;}          goto T128;}
525          V98= 0;          V98= 0;
526  goto T128;          goto T128;
527  T128:;  T128:;
528          {object V99;          {object V99;
529          object V100;          object V100;
# Line 531  T128:; Line 531  T128:;
531          V102 = make_fixnum(V97);          V102 = make_fixnum(V97);
532          V99= number_plus(V101,V102);          V99= number_plus(V101,V102);
533          V100= small_fixnum(0);          V100= small_fixnum(0);
534  goto T135;          goto T135;
535  T135:;  T135:;
536          if(!(number_compare((V100),(V99))>=0)){          if(!(number_compare((V100),(V99))>=0)){
537          goto T136;}          goto T136;}
538          goto T122;          goto T122;
539  goto T136;          goto T136;
540  T136:;  T136:;
541          V103 = make_fixnum(V98);          V103 = make_fixnum(V98);
542          if(!(number_compare((V100),V103)<0)){          if(!(number_compare((V100),V103)<0)){
# Line 548  T136:; Line 548  T136:;
548          vs_top=sup;          vs_top=sup;
549          V92= vs_base[0];          V92= vs_base[0];
550          goto T143;          goto T143;
551  goto T145;          goto T145;
552  T145:;  T145:;
553          base[3]= (V95);          base[3]= (V95);
554          V104 = make_fixnum(V98);          V104 = make_fixnum(V98);
# Line 557  T145:; Line 557  T145:;
557          siLpackage_external();          siLpackage_external();
558          vs_top=sup;          vs_top=sup;
559          V92= vs_base[0];          V92= vs_base[0];
560  goto T143;          goto T143;
561  T143:;  T143:;
562  goto T141;          goto T141;
563  T141:;  T141:;
564          if(((V92))!=Cnil){          if(((V92))!=Cnil){
565          goto T151;}          goto T151;}
566          goto T142;          goto T142;
567  goto T151;          goto T151;
568  T151:;  T151:;
569          V91= car((V92));          V91= car((V92));
570          if(((V95))==((V90))){          if(((V95))==((V90))){
# Line 582  T151:; Line 582  T151:;
582          V105= vs_base[0];          V105= vs_base[0];
583          if(!((VV[31])==(car(V105)))){          if(!((VV[31])==(car(V105)))){
584          goto T156;}          goto T156;}
585  goto T157;          goto T157;
586  T157:;  T157:;
587          V106= coerce_to_string((V91));          V106= coerce_to_string((V91));
588          if(((*(LnkLI62))((V87),/* INLINE-ARGS */V106))==Cnil){          if(((*(LnkLI62))((V87),/* INLINE-ARGS */V106))==Cnil){
589          goto T166;}          goto T166;}
590          V89= make_cons((V91),(V89));          V89= make_cons((V91),(V89));
591  goto T166;          goto T166;
592  T166:;  T166:;
593  goto T156;          goto T156;
594  T156:;  T156:;
595          V92= cdr((V92));          V92= cdr((V92));
596          goto T141;          goto T141;
597  goto T142;          goto T142;
598  T142:;  T142:;
599          goto T139;          goto T139;
600  goto T139;          goto T139;
601  T139:;  T139:;
602          V100= one_plus((V100));          V100= one_plus((V100));
603          goto T135;}}          goto T135;}}
604  goto T122;          goto T122;
605  T122:;  T122:;
606          V94= cdr((V94));          V94= cdr((V94));
607          V95= car((V94));          V95= car((V94));
608          goto T115;}}          goto T115;}}
609  goto T103;          goto T103;
610  T103:;  T103:;
611          {object V107;          {object V107;
612          base[0]= (V88);          base[0]= (V88);
# Line 614  T103:; Line 614  T103:;
614          Lpackage_use_list();          Lpackage_use_list();
615          vs_top=sup;          vs_top=sup;
616          V107= vs_base[0];          V107= vs_base[0];
617  goto T183;          goto T183;
618  T183:;  T183:;
619          if(((V107))!=Cnil){          if(((V107))!=Cnil){
620          goto T184;}          goto T184;}
621          goto T99;          goto T99;
622  goto T184;          goto T184;
623  T184:;  T184:;
624          {object V108;          {object V108;
625          object V109;          object V109;
# Line 634  T184:; Line 634  T184:;
634          goto T192;}          goto T192;}
635          V108= (V111);          V108= (V111);
636          goto T189;          goto T189;
637  goto T192;          goto T192;
638  T192:;  T192:;
639          base[0]= coerce_to_string((V111));          base[0]= coerce_to_string((V111));
640          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
641          Lfind_package();          Lfind_package();
642          vs_top=sup;          vs_top=sup;
643          V108= vs_base[0];}          V108= vs_base[0];}
644  goto T189;          goto T189;
645  T189:;  T189:;
646          V109= Cnil;          V109= Cnil;
647          V110= Cnil;          V110= Cnil;
# Line 653  T189:; Line 653  T189:;
653          vs_top=sup;          vs_top=sup;
654          V112= vs_base[0];          V112= vs_base[0];
655          V113= small_fixnum(0);          V113= small_fixnum(0);
656  goto T200;          goto T200;
657  T200:;  T200:;
658          if(!(number_compare((V113),(V112))>=0)){          if(!(number_compare((V113),(V112))>=0)){
659          goto T201;}          goto T201;}
660          V109= Cnil;          V109= Cnil;
661          goto T188;          goto T188;
662  goto T201;          goto T201;
663  T201:;  T201:;
664          base[1]= (V108);          base[1]= (V108);
665          base[2]= (V113);          base[2]= (V113);
# Line 667  T201:; Line 667  T201:;
667          siLpackage_external();          siLpackage_external();
668          vs_top=sup;          vs_top=sup;
669          V110= vs_base[0];          V110= vs_base[0];
670  goto T208;          goto T208;
671  T208:;  T208:;
672          if(((V110))!=Cnil){          if(((V110))!=Cnil){
673          goto T213;}          goto T213;}
674          goto T209;          goto T209;
675  goto T213;          goto T213;
676  T213:;  T213:;
677          V109= car((V110));          V109= car((V110));
678          V114= coerce_to_string((V109));          V114= coerce_to_string((V109));
679          if(((*(LnkLI62))((V87),/* INLINE-ARGS */V114))==Cnil){          if(((*(LnkLI62))((V87),/* INLINE-ARGS */V114))==Cnil){
680          goto T218;}          goto T218;}
681          V89= make_cons((V109),(V89));          V89= make_cons((V109),(V89));
682  goto T218;          goto T218;
683  T218:;  T218:;
684          V110= cdr((V110));          V110= cdr((V110));
685          goto T208;          goto T208;
686  goto T209;          goto T209;
687  T209:;  T209:;
688          goto T206;          goto T206;
689  goto T206;          goto T206;
690  T206:;  T206:;
691          V113= one_plus((V113));          V113= one_plus((V113));
692          goto T200;}}          goto T200;}}
693  goto T188;          goto T188;
694  T188:;  T188:;
695          V107= cdr((V107));          V107= cdr((V107));
696          goto T183;}          goto T183;}
697  goto T101;          goto T101;
698  T101:;  T101:;
699          {object V115;          {object V115;
700          object V116;          object V116;
# Line 703  T101:; Line 703  T101:;
703          vs_top=sup;          vs_top=sup;
704          V115= vs_base[0];          V115= vs_base[0];
705          V116= car((V115));          V116= car((V115));
706  goto T233;          goto T233;
707  T233:;  T233:;
708          if(!(endp_prop((V115)))){          if(!(endp_prop((V115)))){
709          goto T234;}          goto T234;}
710          goto T99;          goto T99;
711  goto T234;          goto T234;
712  T234:;  T234:;
713          {object V117;          {object V117;
714          register object V118;          register object V118;
# Line 721  T234:; Line 721  T234:;
721          goto T241;}          goto T241;}
722          V117= V116;          V117= V116;
723          goto T239;          goto T239;
724  goto T241;          goto T241;
725  T241:;  T241:;
726          base[2]= coerce_to_string(V116);          base[2]= coerce_to_string(V116);
727          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
728          Lfind_package();          Lfind_package();
729          vs_top=sup;          vs_top=sup;
730          V117= vs_base[0];          V117= vs_base[0];
731  goto T239;          goto T239;
732  T239:;  T239:;
733          V118= Cnil;          V118= Cnil;
734          V119= Cnil;          V119= Cnil;
# Line 741  T239:; Line 741  T239:;
741          V123= vs_base[0];          V123= vs_base[0];
742          V121= make_cons((V117),V123);          V121= make_cons((V117),V123);
743          V122= car((V121));          V122= car((V121));
744  goto T250;          goto T250;
745  T250:;  T250:;
746          if(!(endp_prop((V121)))){          if(!(endp_prop((V121)))){
747          goto T251;}          goto T251;}
748          V118= Cnil;          V118= Cnil;
749          goto T238;          goto T238;
750  goto T251;          goto T251;
751  T251:;  T251:;
752          {long V124;          {long V124;
753          long V125;          long V125;
# Line 761  T251:; Line 761  T251:;
761          V125= fix(vs_base[0]);          V125= fix(vs_base[0]);
762          vs_top=sup;          vs_top=sup;
763          goto T262;          goto T262;
764  goto T260;          goto T260;
765  T260:;  T260:;
766          V124= fix(Cnil);          V124= fix(Cnil);
767  goto T261;          goto T261;
768  T261:;  T261:;
769          V125= fix(Cnil);          V125= fix(Cnil);
770  goto T262;          goto T262;
771  T262:;  T262:;
772          if(((V117))==((V122))){          if(((V117))==((V122))){
773          goto T263;}          goto T263;}
774          V125= 0;          V125= 0;
775  goto T263;          goto T263;
776  T263:;  T263:;
777          {object V126;          {object V126;
778          register object V127;          register object V127;
# Line 780  T263:; Line 780  T263:;
780          V129 = make_fixnum(V124);          V129 = make_fixnum(V124);
781          V126= number_plus(V128,V129);          V126= number_plus(V128,V129);
782          V127= small_fixnum(0);          V127= small_fixnum(0);
783  goto T270;          goto T270;
784  T270:;  T270:;
785          if(!(number_compare((V127),(V126))>=0)){          if(!(number_compare((V127),(V126))>=0)){
786          goto T271;}          goto T271;}
787          goto T257;          goto T257;
788  goto T271;          goto T271;
789  T271:;  T271:;
790          V130 = make_fixnum(V125);          V130 = make_fixnum(V125);
791          if(!(number_compare((V127),V130)<0)){          if(!(number_compare((V127),V130)<0)){
# Line 797  T271:; Line 797  T271:;
797          vs_top=sup;          vs_top=sup;
798          V119= vs_base[0];          V119= vs_base[0];
799          goto T278;          goto T278;
800  goto T280;          goto T280;
801  T280:;  T280:;
802          base[5]= (V122);          base[5]= (V122);
803          V131 = make_fixnum(V125);          V131 = make_fixnum(V125);
# Line 806  T280:; Line 806  T280:;
806          siLpackage_external();          siLpackage_external();
807          vs_top=sup;          vs_top=sup;
808          V119= vs_base[0];          V119= vs_base[0];
809  goto T278;          goto T278;
810  T278:;  T278:;
811  goto T276;          goto T276;
812  T276:;  T276:;
813          if(((V119))!=Cnil){          if(((V119))!=Cnil){
814          goto T286;}          goto T286;}
815          goto T277;          goto T277;
816  goto T286;          goto T286;
817  T286:;  T286:;
818          V118= car((V119));          V118= car((V119));
819          if(((V122))==((V117))){          if(((V122))==((V117))){
# Line 831  T286:; Line 831  T286:;
831          V132= vs_base[0];          V132= vs_base[0];
832          if(!((VV[31])==(car(V132)))){          if(!((VV[31])==(car(V132)))){
833          goto T291;}          goto T291;}
834  goto T292;          goto T292;
835  T292:;  T292:;
836          V133= coerce_to_string((V118));          V133= coerce_to_string((V118));
837          if(((*(LnkLI62))((V87),/* INLINE-ARGS */V133))==Cnil){          if(((*(LnkLI62))((V87),/* INLINE-ARGS */V133))==Cnil){
838          goto T302;}          goto T302;}
839          V89= make_cons((V118),(V89));          V89= make_cons((V118),(V89));
840  goto T302;          goto T302;
841  T302:;  T302:;
842  goto T291;          goto T291;
843  T291:;  T291:;
844          V119= cdr((V119));          V119= cdr((V119));
845          goto T276;          goto T276;
846  goto T277;          goto T277;
847  T277:;  T277:;
848          goto T274;          goto T274;
849  goto T274;          goto T274;
850  T274:;  T274:;
851          V127= one_plus((V127));          V127= one_plus((V127));
852          goto T270;}}          goto T270;}}
853  goto T257;          goto T257;
854  T257:;  T257:;
855          V121= cdr((V121));          V121= cdr((V121));
856          V122= car((V121));          V122= car((V121));
857          goto T250;}}          goto T250;}}
858  goto T238;          goto T238;
859  T238:;  T238:;
860          V115= cdr((V115));          V115= cdr((V115));
861          V116= car((V115));          V116= car((V115));
862          goto T233;}          goto T233;}
863  goto T99;          goto T99;
864  T99:;  T99:;
865          V134= symbol_function(VV[19]);          V134= symbol_function(VV[19]);
866          base[0]= (VFUN_NARGS=3,(*(LnkLI63))((V89),VV[43],V134));          base[0]= (VFUN_NARGS=3,(*(LnkLI63))((V89),VV[43],V134));
# Line 892  static void L9() Line 892  static void L9()
892          V137=(base[1]);          V137=(base[1]);
893          vs_top=sup;          vs_top=sup;
894          goto T327;          goto T327;
895  goto T326;          goto T326;
896  T326:;  T326:;
897          V137= Cnil;          V137= Cnil;
898  goto T327;          goto T327;
899  T327:;  T327:;
900          {register object V138;          {register object V138;
901          register object V139;          register object V139;
902          V138= (VFUN_NARGS=2,(*(LnkLI66))((V136),(V137)));          V138= (VFUN_NARGS=2,(*(LnkLI66))((V136),(V137)));
903          V139= car((V138));          V139= car((V138));
904  goto T333;          goto T333;
905  T333:;  T333:;
906          if(!(endp_prop((V138)))){          if(!(endp_prop((V138)))){
907          goto T334;}          goto T334;}
908          goto T329;          goto T329;
909  goto T334;          goto T334;
910  T334:;  T334:;
911          (void)((*(LnkLI67))((V139)));          (void)((*(LnkLI67))((V139)));
912          V138= cdr((V138));          V138= cdr((V138));
913          V139= car((V138));          V139= car((V138));
914          goto T333;}          goto T333;}
915  goto T329;          goto T329;
916  T329:;  T329:;
917          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
918          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 1001  static void L10() Line 1001  static void L10()
1001          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1002          (void) (*Lnk68)();          (void) (*Lnk68)();
1003          vs_top=sup;          vs_top=sup;
1004  goto T355;          goto T355;
1005  T355:;  T355:;
1006          V151= list(2,VV[47],base[3]);          V151= list(2,VV[47],base[3]);
1007          V152= list(2,(V142),list(3,VV[10],Ct,list(4,VV[2],/* INLINE-ARGS */V151,list(2,VV[48],base[3]),base[3])));          V152= list(2,(V142),list(3,VV[10],Ct,list(4,VV[2],/* INLINE-ARGS */V151,list(2,VV[48],base[3]),base[3])));

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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