代码如下：

(defun prompt-read (prompt)
(format *query-io* "~a: " prompt)
(force-output *query-io*)
(read-line *query-io*))

帮我详细的解释一下吧？新人第一贴啊。

此吧真的没有人？实在让我好伤心。不知吧主有何意，创个鬼吧伤我心。心中疑惑谁来解？一腔真情无处寻。无聊水贴勿多发，Lisp吧乃一圣地。

学scheme吧，CL　no future

等等吧，吧里有几个专业的，上线时间不稳定而已

(defun prompt-read (prompt);;定义一个函数,名为p...d,参数为p...t
(format *query-io* "~a: " prompt);;*query-io*是标准输入输出,总的来说就是把prompt输出
(force-output *query-io*);;让缓冲区的内容马上输出
(read-line *query-io*));;读取用户输入

啊，多谢解答啊。我还有一个问题。就是那个foece-output有和没有会有什么区别？