sbcl确定符号链接

Question

如何测试路径名是否是sbcl中的符号链接？

CL-USER> (apropos "syml" )
:CLASSIFY-SYMLINKS (bound)
:RESOLVE-SYMLINKS (bound)
:SYMLINK (bound)
SB-IMPL::CLASSIFY-SYMLINKS
SB-IMPL::RESOLVE-PROBLEMATIC-SYMLINK
SB-IMPL::RESOLVE-SYMLINKS
SB-POSIX:SYMLINK (fbound)
UIOP/FILESYSTEM:*RESOLVE-SYMLINKS* (bound)
UIOP/FILESYSTEM:RESOLVE-SYMLINKS (fbound)
UIOP/FILESYSTEM:RESOLVE-SYMLINKS* (fbound)
UTIL::CLASSIFY-SYMLINKS
UTIL::SYMLINK
; No value

所有这些似乎都没有用。分类-符号链接似乎是一个关键字。

Answer 1

TL;DR

(defun symlinkp (pathname)
  (sb-posix:s-islnk (sb-posix:stat-mode (sb-posix:lstat pathname))))

要回答首先要问的问题，如何确定某物(我假设的文件描述符)是否是posix中的符号链接。第二名准备营救。从手册上

• lstat()与stat()相同，只是如果路径是不对称链接，则链接本身是stat-ed，而不是它引用的文件。
• 定义了以下POSIX宏以使用st_mode字段检查文件类型：
• S_ISLNK(m)符号链接？(未载于POSIX.1-1996年)

Answer 2

奥斯卡特有一个函数file-kind，它可以检测符号链接：

(ql:quickload "osicat")

(equalp :symbolic-link (osicat:file-kind "/some/path"))

更新:如果您使用"/some/path/"，此函数是错误的，不能工作。(注意后面的斜杠。)