718 |
|
|
719 |
FEpackage_error((object)p,"Package used by other packages."); |
FEpackage_error((object)p,"Package used by other packages."); |
720 |
for (t=p->p_usedbylist;!endp(t);t=t->c.c_cdr) |
for (t=p->p_usedbylist;!endp(t);t=t->c.c_cdr) |
721 |
unuse_package(p,t->c.c_car); |
unuse_package((object)p,t->c.c_car); |
722 |
} |
} |
723 |
|
|
724 |
if (p->p_uselist!=Cnil) { |
if (p->p_uselist!=Cnil) { |
725 |
for (t=p->p_uselist;!endp(t);t=t->c.c_cdr) |
for (t=p->p_uselist;!endp(t);t=t->c.c_cdr) |
726 |
unuse_package(t->c.c_car,p); |
unuse_package(t->c.c_car,(object)p); |
727 |
} |
} |
728 |
|
|
729 |
p->p_name=Cnil; |
p->p_name=Cnil; |