无法在SBCL sb-ext:run-program中获取输入流

在SBCL中，使用sb-ext:run-program函数无法直接获取输入流。sb-ext:run-program是一个用于在子进程中运行外部程序的函数，它可以指定子进程的标准输入、标准输出和标准错误流。然而，它并没有提供直接获取输入流的功能。

要在SBCL中获取输入流，可以使用其他方法。一种常见的方法是使用Common Lisp的标准输入流 standard-input。standard-input是一个全局变量，它表示当前进程的标准输入流。可以使用read函数从标准输入流中读取数据。

以下是一个示例代码，演示如何在SBCL中获取输入流：

(defun get-input-stream ()
  *standard-input*)

(defun read-input ()
  (let ((input-stream (get-input-stream)))
    (read-line input-stream)))

(defun main ()
  (format t "请输入一行文本：")
  (force-output)
  (let ((input (read-input)))
    (format t "你输入的是：~a~%" input)))

(main)

在上述示例中，get-input-stream函数返回了当前进程的标准输入流。read-input函数使用get-input-stream函数获取输入流，并使用read-line函数从输入流中读取一行文本。main函数则演示了如何使用read-input函数获取用户输入，并将其打印出来。

这是一个简单的示例，你可以根据实际需求进行扩展和修改。希望对你有帮助！