diff options
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index a837571e..ce28e012 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2590,7 +2590,10 @@ (fence (isecp symvec %package-manip%))) (when *eval* (let ((pa *package-alist*)) - (sys:vm-execute-toplevel vm-desc) + (block* err-ret + (unwind-protect + (sys:vm-execute-toplevel vm-desc) + (return* err-ret))) (when (neq pa *package-alist*) (set fence t)))) (when (and *emit* (consp form)) |