在 Common Lisp 中获取相对路径

Question

给定目录的任意路径path和其他路径base，如何获取base文件系统中同一对象的新相对路径path？

比如(relpath #p"~/foo" #p"~/bar/")必须给我#p"../foo"。例如，Julia 中就有这样一个函数，也称为relpath. Common Lisp 中有类似的东西吗（无论是标准库还是第三方库）？

Answer 1

最接近您正在寻找的内容称为enough-namestring：

(enough-namestring "~/foo/bar/baz" "~/foo/")
==> "bar/baz"