Function Pathname-Sans-Name+Type

Part of:

package asdf
( pathname-sans-name+type < pathname > )

Returns a new pathname with same HOST, DEVICE, DIRECTORY as PATHNAME,
and NIL NAME and TYPE components