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 |
|
|
803 |
|
|
804 |
} |
} |
805 |
|
|
806 |
void |
LFD(Lpackage_nicknames)() |
|
Lpackage_nicknames() |
|
807 |
{ |
{ |
808 |
check_arg(1); |
check_arg(1); |
809 |
|
|
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 |
|
|
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 |
|
|
840 |
} |
} |
841 |
|
|
842 |
static void |
static void |
843 |
Lpackage_shadowing_symbols() |
FFN(Lpackage_shadowing_symbols)() |
844 |
{ |
{ |
845 |
check_arg(1); |
check_arg(1); |
846 |
|
|
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; |
1091 |
@(return Ct) |
@(return Ct) |
1092 |
@) |
@) |
1093 |
|
|
1094 |
void |
LFD(siLpackage_internal)() |
|
siLpackage_internal() |
|
1095 |
{ |
{ |
1096 |
|
|
1097 |
int j=0; |
int j=0; |
1106 |
vs_popp; |
vs_popp; |
1107 |
} |
} |
1108 |
|
|
1109 |
void |
LFD(siLpackage_external)() |
|
siLpackage_external() |
|
1110 |
{ |
{ |
1111 |
int j=0; |
int j=0; |
1112 |
|
|
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); |
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); |