common-lisp - 如何在粘液中获取 shell 函数的输出？

Question

在 REPL 中，我们可以正常得到它的输出：

(shell "head -3 ~/misc.lisp")
(asdf:make-build 'stumpwm :type :program :monolithic t
             :move-here "."
             :name-suffix ""

然而，我们从(shell "head -3 ~/misc.lisp")粘液中得到零。

真挚地！

Answer 1

我不知道您使用的是哪个 Lisp 实现，但通常您应该需要一个包来运行 shell 命令，例如：

• 琐碎的外壳
• 劣壳
• clesh (建立在 trivial-shell 之上)

Answer 2

使用 #'run-shell-command 代替 shell：

(let ((str (ext:run-shell-command cmd :output :stream)))
    (loop  for line = (read-line str  nil)
        until (null line)
        do (print line)))

现在可以了。