-;;; COMPONENTs want strings for names, LEAF-DEBUG-NAMEs mightn't be
-;;; strings...
-(defun component-name-from-functional-debug-name (functional)
- (declare (type functional functional))
- (let ((leaf-debug-name (leaf-debug-name functional)))
- (the simple-string
- (if (stringp leaf-debug-name)
- leaf-debug-name
- (debug-namify "function ~S" leaf-debug-name)))))
-