From 9e55bcc8599194cc3027ddd1219ab76fc15c3be5 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 7 May 1990 10:49:09 +0000 Subject: [PATCH] Fixed debug-function dumping so that unnamed optional-dispatches get the component name instead of NIL. --- compiler/debug-dump.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 08961db2f..e99282bd8 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)) -- GitLab