X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=2997e90eed98f45356428b22774f5971ecfaaf90;hb=1e1ba5d5b43e20a4c0b157f08d4c85fe880c7e25;hp=15d3008175ac31af3bf0139c276d51d1972154cf;hpb=2980dfadc866eca324dec15b64b5793aee0c07ee;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index 15d3008..2997e90 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -463,8 +463,7 @@
      (let ((leaf (ref-leaf node)))
        (when (functional-p leaf)
          (if (eq (functional-kind leaf) :toplevel-xep)
-             (unless (eq (component-kind (block-component (node-block node)))
-                         :toplevel)
+             (unless (component-toplevelish-p (block-component (node-block node)))
                (barf ":TOPLEVEL-XEP ref in non-top-level component: ~S"
                      node))
              (check-fun-reached leaf node)))))