summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--stdlib/compiler.tl3
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl
index 63ceb519..585712f9 100644
--- a/stdlib/compiler.tl
+++ b/stdlib/compiler.tl
@@ -2361,7 +2361,8 @@
(not (constantp form)))
(let* ((vm-desc (compile-toplevel form))
(flat-vd (list-from-vm-desc vm-desc))
- (fence (member sym %package-manip%)))
+ (symvec (sys:vm-desc-symvec vm-desc))
+ (fence (isecp symvec %package-manip%)))
(when *eval*
(let ((pa *package-alist*))
(sys:vm-execute-toplevel vm-desc)