Common Lisp中REPL与文件加载返回值不同的原因及解决方法

问题原因 #

load函数的核心作用是加载并执行文件中的代码，它的返回值仅用于标识加载操作是否成功：只要文件加载过程没有错误，就返回T；加载失败则返回NIL（或抛出错误）。

而在REPL中直接执行表达式时，返回值是该表达式的求值结果——你代码里的(return-from my-block 10)会直接让block表达式返回10，所以REPL输出这个值。

文件中的代码确实会被正确执行：(print "We see this")会正常输出，return-from也会让block表达式返回10，但这个10是文件内表达式的求值结果，并不会被load函数作为自身返回值返回。

解决方案 #

如果你希望加载文件时得到和REPL执行一致的返回值，可以用以下两种标准兼容的方式实现：

方式一：自定义加载函数返回表达式结果 #

自己实现一个加载函数，读取文件内容并依次求值，最终返回最后一个表达式的结果：

(defun load-with-result (path)
  (with-open-file (stream path :direction :input)
    (let ((last-result nil))
      (loop for form = (read stream nil :eof)
            until (eq form :eof)
            do (setf last-result (eval form)))
      last-result)))

调用时使用(load-with-result "a4b.lisp")，就会返回10，同时输出"We see this"。

方式二：通过*变量获取结果 #

Common Lisp的REPL会把最后一次求值的结果保存在特殊变量*中。执行(load "a4b.lisp")后，直接输入*并回车，就能得到block表达式返回的10。这种方式无需修改加载逻辑，适合快速验证结果。

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