uiop:pathname-directory-pathname

(uiop:pathname-directory-pathname pathname)

パス名のディレクトリをパス名として返します -- 名前と型を落とし、最後の / までを 残します。uiop:subpathname がその下へマージする対象です。

バックエンドサポート

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