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) { |
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); |
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 |