Windows下Common Lisp的make-pathname与pathname-directory丢失驱动器信息问题

结论：这是符合语言规范的预期行为，不是BUG #

1. Common Lisp路径名的抽象结构设计 #

Common Lisp的路径名（Pathname）是一套跨平台抽象结构，拆分为:host、:device、:directory、:name等独立组件。在Windows系统中，驱动器盘符属于:device组件，并不包含在:directory组件里。

拿#P"C:/Users/me/test/"举例，它的组件拆分是：

• :device → "C:"
• :directory → (:ABSOLUTE "Users" "me" "test")

pathname-directory函数本来就只返回:directory组件，自然不会带出盘符信息——这和Linux/macOS这类Unix-like系统不同，后者没有独立的device概念，路径根节点直接通过:directory里的:ABSOLUTE标记体现。

2. 为什么~路径能完整还原？ #

#P"~/test/"的:directory里包含:HOME标记，这是Common Lisp对用户主目录的抽象表示。当你用(make-pathname :directory ...)还原时，系统会自动识别:HOME，并补全对应的host/device信息，所以不会丢失路径有效性。

3. 正确还原带盘符Windows路径的方法 #

要完整保留盘符信息，不能只传递:directory组件，必须同时指定:device：

(let ((p #P"C:/Users/me/test/"))
  (make-pathname :device (pathname-device p)
                 :directory (pathname-directory p)))

这样返回的就是#P"C:/Users/me/test/"，不会丢失盘符或变成无效路径。

4. 关于规范的历史背景 #

ANSI Common Lisp标准制定于1994年，当时Windows已经存在。标准刻意做了跨平台抽象设计，让不同操作系统能把自身文件系统特性映射到统一的路径名组件上，Windows盘符映射到:device正是这种设计的结果，并非规范遗漏。

内容的提问来源于stack exchange，提问作者Gwang-Jin Kim