common-lisp - lisp中读取函数的问题

Question

我正在尝试提示用户输入，但是每次我调用此函数时，它都不会打印“：”，而是等到我按下某些东西，然后再打印字符“：”。

我在网上找不到任何东西。

(defun MovimientoAdversario ()
  (let ((aux))
    (format t "~% :")
    (setf aux (read))))

Answer 1

在读取之前尝试刷新输出缓冲区：

(format t "~% :")
(force-output)
(setf aux (read))