Function Component-Parent-Pathname

Part of:

package asdf
( component-parent-pathname < component > )