在SBCL中如何先输出提示

(progn

   (format t "Please enter your name:")

   (read-line))

 

一道简单的程序，在CLISP和SBCL的执行效果竟然不一样，CLISP运行时发现，此程序是先输出Please enter your name:的提示，而在SBCL却不会先提示，后来找了一下SBCL手册的函数发现有一个称作force-output的函数在多个地方用到，于是就将此函数在此处牛刀小试，程序如下所示：

(progn

   (format t "Please enter your name:")

   (force-output)

   (read-line))

运行发现结果跟函数名字的意义是一样的，而Lisp让我喜欢的理由之一也是因为她的命名真正的做到见其名知其义，不像近代的语言做得不够清晰明确。