lisp - 奇怪的路径名？

Question

* (make-pathname :name "cgi-bin/")
#P"cgi-bin/"
* (merge-pathnames "nav.py" #P"cgi-bin/")
#P"cgi-bin/nav.py"    ; **it is ok**
* (merge-pathnames "nav.py" (make-pathname :name "cgi-bin/"))
#P"nav.py"            ; why ?

*(defvar bp #P"/media/E/myapp/cgi-bin/")
* bp
#P"/media/E/myapp/cgi-bin/")
* (merge-pathnames "nav.py" bp)
#P"nav.py"            ; why ?
* (merge-pathnames "nav.py" #P"/media/E/myapp/cgi-bin/")
#P"/media/E/myapp/cgi-bin/nav.py"    ; **it is ok**

我正在使用 sbcl-1.0.54。

任何建议表示赞赏！

Answer 1

Apathname是一个结构，它使用组件表示路径名，例如drive、host、directory、name等。有关更多详细信息，请参见此处。

您使用,和其他关键字构造一个pathnameusingmake-pathname函数，该函数返回一个类型为 的对象：:directory:namepathname

CL-USER> (defvar p (make-pathname :directory '(:absolute "home" "test" "docs")))
CL-USER> #P"/home/test/docs/"

此处merge-pathnames记录的函数完成了使用default-pathname指定的路径名​​的缺失部分：

CL-USER> (merge-pathnames p "tada.txt")
CL-USER> #P"/home/test/docs/tada.txt"

编辑：它对您不起作用，因为您正在构建一个路径名，:name并指定文件的名称（不带扩展名或:type）。因此，当您调用merge-pathnames它时，不会在其路径名中找到缺少的组件，因为“cgi-bin/”被指定为:name（文件名），并且您已经在“nav.py”中获得了文件名。