diff --git a/compiler/debug.lisp b/compiler/debug.lisp index 3bccf38321b8ee6d5d48efe617c57d7c6faee152..678be12c2c20c967669ca52d9e49502e3c343aa5 100644 --- a/compiler/debug.lisp +++ b/compiler/debug.lisp @@ -981,7 +981,10 @@ (format stream "lambda ~S ~S" (leaf-name leaf) (mapcar #'leaf-name (lambda-vars leaf)))) (optional-dispatch - (format stream "optional-dispatch ~S" (leaf-name leaf))))) + (format stream "optional-dispatch ~S" (leaf-name leaf))) + (functional + (assert (eq (functional-kind leaf) :top-level-xep)) + (format stream "TL-XEP ~S" (entry-info-name (leaf-info leaf)))))) ;;; Block-Or-Lose -- Interface