Commit 9e55bcc8 authored by ram's avatar ram
Browse files

Fixed debug-function dumping so that unnamed optional-dispatches get the

component name instead of NIL.
parent f01ee31d
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment