diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 08961db2fe5702feb4e705608ac9397f45bec8f7..e99282bd8c36060f60acc4f647127213b0d3350e 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -498,7 +498,7 @@ ((let ((ef (functional-entry-function fun))) (and ef (leaf-name ef)))) - (main-p (leaf-name dispatch)) + ((and main-p (leaf-name dispatch))) (t (component-name component))) :kind (if main-p nil (functional-kind fun))