在循环中打印到屏幕答案

【问题标题】：Printing to screen while in loop在循环中打印到屏幕
【发布时间】：2013-12-12 20:39:43
【问题描述】：

我有这个：

(loop for i below x
            do (update-world)
            if (zerop (mod i 1000))
            do (princ #\.))

它正在工作，除了所有princ 调用在最后同时到达。这里的想法是它们是一个进度指示器，每 1000 次迭代在屏幕上打印一个周期。这是来自 Lisp 的土地一书，我想知道是否期望在循环中间打印不是可移植的期望？

【问题讨论】：

【解决方案1】：

在princ 之后添加(finish-output)。

【讨论】：

finish-output 并不是唯一的选择。还有force-output，如slime prints my (format …) calls only when called function ends 中所述（我认为这个问题属于重复问题）。