3

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

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

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

$ basename /usr/local/share/
share
4

1 回答 1

8

参见 Common Lisp Hyperspec,文件名字典

(first (last (pathname-directory some-pathname)))
于 2012-07-22T14:06:24.283 回答