diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 957774dd34ae921689ce8a596e1d9d5d1312e117..5ad0073039b288da2b8cc3a05c5b3e1fdae75d54 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -399,7 +399,7 @@ (collect ((vars)) (labels ((frob-leaf (leaf tn gensym-p) (let ((name (leaf-name leaf))) - (when (and name (leaf-refs leaf) + (when (and name (leaf-refs leaf) (tn-offset tn) (or gensym-p (symbol-package name))) (vars (cons leaf tn))))) (frob-lambda (x gensym-p) @@ -449,7 +449,8 @@ (let ((res (gethash var var-locs))) (cond (res) (t - (assert (null (leaf-refs var))) + (assert (or (null (leaf-refs var)) + (not (tn-offset (leaf-info var))))) 'deleted))))