使用swank/slime连接远程Lisp时加载本地文件的实现方案问询

核心实现逻辑 #

你设想的swank:with-open-client-file调用形式完全可以实现，核心原理是借助Swank自带的双向RPC能力，由远程Lisp向本地Emacs发起文件读取请求，文件内容通过Swank连接直接传输，全程不会在远程服务器落地临时文件。

依赖准备 #

远程Lisp侧需要提前引入两个通用工具库：

• cl-base64：用于base64编解码，避免二进制内容传输异常
• flexi-streams：用于将内存字节序列包装为标准Lisp流

代码实现 #

1. 首先在本地Emacs配置中加入安全读取逻辑，避免任意文件泄露：

;; 配置允许远程Lisp读取的本地目录白名单
(defvar swank-allowed-file-directories '("~/workspace/lisp-data/" "/tmp/lisp-transfer/")
  "Swank可访问的本地文件目录白名单，仅允许读取该列表内目录下的文件")

(defun swank-safe-read-local-file (path)
  (let ((expanded-path (expand-file-name path)))
    ;; 校验请求路径是否在白名单内
    (if (cl-some (lambda (allowed-dir)
                   (string-prefix-p (expand-file-name allowed-dir) expanded-path))
                 swank-allowed-file-directories)
        ;; 读取文件内容并base64编码后返回
        (with-temp-buffer
          (insert-file-contents expanded-path nil nil nil t)
          (base64-encode-string (buffer-string) t))
        (error "请求路径 %s 不在Swank文件访问白名单内，拒绝读取" expanded-path))))

;; 标注该函数允许Swank远程调用
(put 'swank-safe-read-local-file 'swank-permission t)

2. 远程Lisp侧实现你需要的宏：

(defmacro with-open-client-file ((stream local-path &key (element-type 'base-char)) &body body)
  "读取本地Emacs上LOCAL_PATH路径的文件，包装为STREAM流供BODY执行，执行完成后自动释放资源"
  (let ((content-var (gensym "FILE-CONTENT-")))
    `(let ((,content-var (swank:eval-in-emacs `(swank-safe-read-local-file ,',local-path))))
       (flexi-streams:with-input-from-sequence
           (,stream (cl-base64:base64-string-to-octets ,content-var)
                    :element-type ,element-type)
         ,@body))))

使用示例 #

和你设想的调用方式完全一致：

;; 读取本地/tmp/lisp-transfer/test.bin二进制文件并计算长度
(swank:with-open-client-file (s #p"/tmp/lisp-transfer/test.bin" :element-type '(unsigned-byte 8))
  (file-length s))

安全控制说明 #

该方案完全规避了敏感文件泄露风险：

• 所有读取请求都要经过Emacs侧的白名单校验，远程Lisp无法读取白名单外的任何文件
• 文件内容仅在Swank加密连接中传输，不会落地远程服务器磁盘，也不会产生临时文件残留
• 不需要开放额外的文件传输端口，所有流量都走原有Swank连接

缓冲区内容处理优化 #

如果需要处理的内容存放在Emacs缓冲区中，不需要落地本地文件，可以直接修改Emacs侧的函数，增加缓冲区内容读取接口，直接将缓冲区内容编码后传给远程Lisp，效率更高。

内容的提问来源于stack exchange，提问作者BnMcGn