uiop:enough-pathname

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

uiop:subpathp の残りがあればそれ、なければパス名自身 -- ベースを踏まえてなおファイルを名指す最短の綴りです。rove はソース位置の表示を これでキーにしています。

uiop:with-enough-pathname / uiop:call-with-enough-pathname は、 *default-pathname-defaults* をベースに束縛したうえでこの値とともに本体を実行します (uiop/pathname)。

バックエンドサポート

4 つのバックエンドすべてで動作します (Lisp ソース、uiop-pathname.lisp)。