/[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.9 by camm, Wed Oct 9 03:46:34 2002 UTC revision 1.10 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 539  BEGIN: Line 539  BEGIN:
539                  else if (intern_flag == EXTERNAL)                  else if (intern_flag == EXTERNAL)
540                          return;                          return;
541          } else          } else
542                  FEerror("The symbol ~S is not accessible from ~S.", 2,                  FEpackage_error(p,"Symbol not accessible.");
                         s, p);  
543          for (l = p->p.p_usedbylist;          for (l = p->p.p_usedbylist;
544               type_of(l) == t_cons;               type_of(l) == t_cons;
545               l = l->c.c_cdr) {               l = l->c.c_cdr) {
# Line 570  object s, p; Line 569  object s, p;
569          if (p == keyword_package)          if (p == keyword_package)
570                  FEerror("Cannot unexport a symbol from the keyword.", 0);                  FEerror("Cannot unexport a symbol from the keyword.", 0);
571          x = find_symbol(s, p);          x = find_symbol(s, p);
572          if (intern_flag != EXTERNAL || x != s)          if (/* intern_flag != EXTERNAL || */ x != s)
573  FEerror("Cannot unexport the symbol ~S~%\            FEpackage_error(p,"Symbol not in package.");
574  from ~S,~%\  /* "Cannot unexport the symbol ~S~%\ */
575  because the symbol is not an external symbol~%\  /* from ~S,~%\ */
576  of the package.", 2, s, p);  /* because the symbol is not an external symbol~%\ */
577    /* of the package.", 2, s, p); */
578          j = pack_hash(s);          j = pack_hash(s);
579          ep = &P_EXTERNAL(p,j);          ep = &P_EXTERNAL(p,j);
580          delete_eq(s, ep);          delete_eq(s, ep);
# Line 1155  void Line 1155  void
1155  package_already(n)  package_already(n)
1156  object n;  object n;
1157  {  {
1158          FEerror("A package with the name ~A already exists.", 1, n);    FEpackage_error(n,"A package with this name already exists.");
1159  }  }
1160    
1161  void  void

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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