是否有＆＃39; pathname-directory＆＃39;的倒数？

Question

我想知道是否有以下功能：

(equal path (some-function (pathname-directory path)))

Answer 1

我想如果你只关心目录组件，那么：

(defun some-function (list)
  (make-pathname :directory list))