/[gcl]/gcl/o/package.d
ViewVC logotype

Diff of /gcl/o/package.d

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

revision 1.16.6.2 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.16.6.3 by camm, Thu Nov 6 16:16:52 2003 UTC
# Line 777  delete_package(object n) { Line 777  delete_package(object n) {
777          @(return `in_package(pack_name, nicknames, use,fix(internal),fix(external))`)          @(return `in_package(pack_name, nicknames, use,fix(internal),fix(external))`)
778  @)  @)
779    
780  void  LFD(Lfind_package)()
 Lfind_package()  
781  {  {
782          check_arg(1);          check_arg(1);
783    
784          vs_base[0] = find_package(vs_base[0]);          vs_base[0] = find_package(vs_base[0]);
785  }  }
786    
787  static void  LFD(Ldelete_package)()
 Ldelete_package()  
788  {  {
789          check_arg(1);          check_arg(1);
790    
791          vs_base[0] = delete_package(vs_base[0]);          vs_base[0] = delete_package(vs_base[0]);
792  }  }
793    
794  void  LFD(Lpackage_name)()
 Lpackage_name()  
795  {  {
796    object t;    object t;
797    
# Line 806  Lpackage_name() Line 803  Lpackage_name()
803    
804  }  }
805    
806  void  LFD(Lpackage_nicknames)()
 Lpackage_nicknames()  
807  {  {
808          check_arg(1);          check_arg(1);
809    
# Line 825  Lpackage_nicknames() Line 821  Lpackage_nicknames()
821          @(return `rename_package(pack, new_name, new_nicknames)`)          @(return `rename_package(pack, new_name, new_nicknames)`)
822  @)  @)
823    
824  void  LFD(Lpackage_use_list)()
 Lpackage_use_list()  
825  {  {
826          check_arg(1);          check_arg(1);
827    
# Line 835  Lpackage_use_list() Line 830  Lpackage_use_list()
830          vs_base[0] = vs_base[0]->p.p_uselist;          vs_base[0] = vs_base[0]->p.p_uselist;
831  }  }
832    
833  void  LFD(Lpackage_used_by_list)()
 Lpackage_used_by_list()  
834  {  {
835          check_arg(1);          check_arg(1);
836    
# Line 846  Lpackage_used_by_list() Line 840  Lpackage_used_by_list()
840  }  }
841    
842  static void  static void
843  Lpackage_shadowing_symbols()  FFN(Lpackage_shadowing_symbols)()
844  {  {
845          check_arg(1);          check_arg(1);
846    
# Line 855  Lpackage_shadowing_symbols() Line 849  Lpackage_shadowing_symbols()
849          vs_base[0] = vs_base[0]->p.p_shadowings;          vs_base[0] = vs_base[0]->p.p_shadowings;
850  }  }
851    
852  void  LFD(Llist_all_packages)()
 Llist_all_packages()  
853  {  {
854          struct package *p;          struct package *p;
855          int i;          int i;
# Line 1098  BEGIN: Line 1091  BEGIN:
1091          @(return Ct)          @(return Ct)
1092  @)  @)
1093    
1094  void  LFD(siLpackage_internal)()
 siLpackage_internal()  
1095  {  {
1096    
1097          int j=0;          int j=0;
# Line 1114  siLpackage_internal() Line 1106  siLpackage_internal()
1106          vs_popp;          vs_popp;
1107  }  }
1108    
1109  void  LFD(siLpackage_external)()
 siLpackage_external()  
1110  {  {
1111          int j=0;          int j=0;
1112    
# Line 1144  object n; Line 1135  object n;
1135  }  }
1136    
1137  static void  static void
1138  siLpackage_size()  FFN(siLpackage_size)()
1139  {object p;  {object p;
1140   p=vs_base[0];   p=vs_base[0];
1141   check_type_package(&p);   check_type_package(&p);
# Line 1207  gcl_init_package_function() Line 1198  gcl_init_package_function()
1198          make_function("RENAME-PACKAGE", Lrename_package);          make_function("RENAME-PACKAGE", Lrename_package);
1199          make_function("PACKAGE-USE-LIST", Lpackage_use_list);          make_function("PACKAGE-USE-LIST", Lpackage_use_list);
1200          make_function("PACKAGE-USED-BY-LIST", Lpackage_used_by_list);          make_function("PACKAGE-USED-BY-LIST", Lpackage_used_by_list);
1201          make_function("PACKAGE-SHADOWING-SYMBOLS",          make_function("PACKAGE-SHADOWING-SYMBOLS",Lpackage_shadowing_symbols);
                       Lpackage_shadowing_symbols);  
1202          make_function("LIST-ALL-PACKAGES", Llist_all_packages);          make_function("LIST-ALL-PACKAGES", Llist_all_packages);
1203          make_function("INTERN", Lintern);          make_function("INTERN", Lintern);
1204          make_function("FIND-SYMBOL", Lfind_symbol);          make_function("FIND-SYMBOL", Lfind_symbol);

Legend:
Removed from v.1.16.6.2  
changed lines
  Added in v.1.16.6.3

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