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

Question

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

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

我如何subsubdir从这样的路径名回来(假设它是一个目录)？我需要从路径名中提取最后一个dir,就像这个Unix命令一样:

$ basename /usr/local/share/
share

Answer 1

请参阅Common Lisp Hyperspec,即文件名字典

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