directory - 如何翻译 (make-pathname :directory '(:absolute :home "directoryiwant") into absolute path

Question

我希望能够将任何操作系统上主目录中的某个目录转换为该操作系统上的实际绝对路径，例如(make-pathname :directory '(:absolute :home "directoryiwant") 应该在 unixlike 系统上转换为“/home/weirdusername/directoryiwant”。

选择这样做的功能是什么？作为

(directory-namestring 
      (make-pathname :directory '(:absolute :home "directoryiwant"))
> "~/"

实际上并没有做这笔交易。

Answer 1

如果您需要与主目录相关的内容，Common Lisp 函数 user-homedir-pathname 和 merge-pathnames 可以帮助您:

CL-USER> (merge-pathnames 
          (make-pathname
           :directory '(:relative "directoryyouwant"))
          (user-homedir-pathname))
#P"/home/username/directoryyouwant/"

namestring functions (例如， 名称字符串 ， 目录名称字符串 )按预期在此路径名上工作:

CL-USER> (directory-namestring
          (merge-pathnames 
           (make-pathname
            :directory '(:relative "directoryyouwant"))
           (user-homedir-pathname)))
"/home/username/directoryyouwant/"