diff --git a/src/c/package.d b/src/c/package.d index 7b66a1197..09ca996c1 100644 --- a/src/c/package.d +++ b/src/c/package.d @@ -554,7 +554,7 @@ cl_unexport2(cl_object s, cl_object p) "Ignore lock and proceed", p, 2, s, p); PACKAGE_OP_LOCK(); x = find_symbol_inner(name, p, &intern_flag); - if (intern_flag == 0) { + if (intern_flag == 0 || x != s) { PACKAGE_OP_UNLOCK(); FEpackage_error("Cannot unexport ~S because it does not belong to package ~S.", p, 2, s, p);