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