Question

我正在编写一个需要处理命令输出的常见lisp程序。但是，当我尝试在另一个函数中使用结果时，我只获得一个NIL作为返回值。

这是我用来运行命令的函数：

(defun run-command (command &optional arguments)
       (with-open-stream (pipe 
                 (ext:run-program command :arguments arguments
                                  :output :stream :wait nil)) 
       (loop
                :for line = (read-line pipe nil nil)
                :while line :collect line)))

其中，当它自己运行时给出：

CL-USER> (run-command "ls" '("-l" "/tmp/test"))
         ("-rw-r--r-- 1 petergil petergil 0 2011-06-23 22:02 /tmp/test")

但是，当我通过一个函数运行它时，只返回NIL：

(defun sh-ls (filename)
       (run-command "ls" '( "-l" filename)))
CL-USER> (sh-ls  "/tmp/test")
         NIL

如何在我的功能中使用结果？

Answer 1

试试这个：

(defun sh-ls (filename)
       (run-command "ls" (list "-l" filename)))

'（“ - l”filename）引用列表，并引用符号'filename'，而不是评估文件名。

Answer 2

你也可以在sexpr之前使用反引号`，然后在文件名之前评估它：

(defun sh-ls (filename)
       (run-command "ls" `("-l" ,filename)))

在常见的lisp中使用shell脚本中的stdout

2 个答案: