720 |
struct package *p,*pp; |
struct package *p,*pp; |
721 |
object t; |
object t; |
722 |
|
|
|
/* if (type_of(n)!=t_package && type_of(n)!=t_symbol && type_of(n)!=t_string) */ |
|
|
/* FEwrong_type_argument(TSor_symbol_string_package, n); */ |
|
|
|
|
723 |
for (p = pack_pointer,pp=NULL; p != NULL; pp=p,p = p->p_link) |
for (p = pack_pointer,pp=NULL; p != NULL; pp=p,p = p->p_link) |
724 |
|
|
725 |
if (designate_package(n,p)) { |
if (designate_package(n,p)) { |
726 |
|
|
727 |
if (p->p_usedbylist!=Cnil) { |
if (p->p_usedbylist!=Cnil) { |
728 |
/* VFUN_NARGS=4; */ |
|
729 |
/* fLspecific_correctable_error(sKpackage_error,make_simple_string("Package ~S is used by other packages: ~S"), */ |
/* FEpackage_error((object)p,"Package used by other packages."); */ |
|
/* p,p->p_usedbylist); */ |
|
|
/* FEpackage_error((object)p,"Package used by other packages."); */ |
|
730 |
for (t=p->p_usedbylist;!endp(t);t=t->c.c_cdr) |
for (t=p->p_usedbylist;!endp(t);t=t->c.c_cdr) |
731 |
unuse_package(p,t->c.c_car); |
unuse_package(p,t->c.c_car); |
732 |
} |
} |
733 |
|
|
734 |
if (p->p_uselist!=Cnil) { |
if (p->p_uselist!=Cnil) { |
|
/* VFUN_NARGS=4; */ |
|
|
/* fLspecific_correctable_error(sKpackage_error,make_simple_string("Package ~S is used by other packages: ~S"), */ |
|
|
/* p,p->p_usedbylist); */ |
|
|
/* FEpackage_error((object)p,"Package used by other packages."); */ |
|
735 |
for (t=p->p_uselist;!endp(t);t=t->c.c_cdr) |
for (t=p->p_uselist;!endp(t);t=t->c.c_cdr) |
736 |
unuse_package(t->c.c_car,p); |
unuse_package(t->c.c_car,p); |
737 |
} |
} |
742 |
pp->p_link=p->p_link; |
pp->p_link=p->p_link; |
743 |
else |
else |
744 |
pack_pointer=p->p_link; |
pack_pointer=p->p_link; |
745 |
|
|
746 |
return(Ct); |
return(Ct); |
747 |
|
|
748 |
} |
} |
749 |
|
|
750 |
/* VFUN_NARGS=3; */ |
/* FEpackage_error(n,"No such pachage."); */ |
|
/* fLspecific_correctable_error(sKpackage_error,make_simple_string("~S does not designate a package"),n); */ |
|
|
/* FEpackage_error(n,"No such pachage."); */ |
|
751 |
|
|
752 |
return(Cnil); |
return(Cnil); |
753 |
|
|