directory - 在 Common Lisp 中获取路径名的最后一个组件

Question

虽然我可以建立一个路径名，例如

(make-pathname :directory '(:RELATIVE "dir" "subdir" "subsubdir"))

我如何subsubdir从这样的路径名中返回（假设它是一个目录）？我需要从路径名中提取最后一个目录，就像这个 Unix 命令一样：

$ basename /usr/local/share/
share

Answer 1

参见 Common Lisp Hyperspec，文件名字典

(first (last (pathname-directory some-pathname)))