uiop:enough-pathname

(uiop:enough-pathname maybe-subpath base-pathname)

The uiop:subpathp remainder when there is one, the pathname itself otherwise -- the shortest spelling that still names the file given the base. rove keys its source-location printing on it.

uiop:with-enough-pathname / uiop:call-with-enough-pathname run a body with this value, under *default-pathname-defaults* bound to the base (uiop/pathname).

Backend support

Works on all four backends (Lisp source, uiop-pathname.lisp).