/[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.11 by camm, Tue Oct 15 14:51:51 2002 UTC revision 1.12 by camm, Tue Oct 15 18:59:30 2002 UTC
# Line 720  delete_package(object n) { Line 720  delete_package(object n) {
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        }        }
# Line 751  delete_package(object n) { Line 742  delete_package(object n) {
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        

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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