简单的 repl 函数被 sbcl 编译为“乱序”

Question

我有这个简单的程序

(defun testing-func ()
(print "@Repl has Started@")
(loop (print (eval (read)))))

(sb-ext:save-lisp-and-die #P"output-test" :toplevel #'testing-func :executable t)

每当我在 REPL 中调用

testing-func

时，它都能正常工作；像这样：

CL-USER> (testing-func)
@Repl has Started@
1 ;;input

1 2 ;; 1 is output, 2 is input

2 3 ;; 2 is output, 3 is input

3 ;; 3 is output

但是用

sbcl --load testing-func.lisp

编译后，我得到的输出与输入“乱序”。

@Repl has Started@
1 ;; input
  ;; output
2 ;; input
1 ;; output
3 ;; input
2 ;; output

我真的不知道为什么或如何会发生这种情况。我还尝试过使用

loop

或

let*

使用递归来摆脱

funcall

并严格排序，但出现了相同的现象，这意味着我对编译有根本性的误解。

Answer 1

与编译无关。

流可以缓冲。在让用户输入之前，您需要确保输出已到达用户手中。

参见 Common Lisp 中的 FORCE-OUTPUT 和 FINISH-OUTPUT 函数。