diff options
-rw-r--r-- | stdlib/compiler.tl | 3 |
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) |