Using stdout from shell script in common lisp

Question

I am writing a common lisp program that needs to handle the output of a command. However, when I try to use the results in another function, I only get a NIL as return-value.

Here is the function I use to run commands:

(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)))

Which, when run by itself gives:

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

However, when I run it through a function, only NIL is returned:

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

How can I use the results in my functions?

Will Hartung · Accepted Answer · 2011-06-23 21:11:07Z

7

Try this:

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

The '("-l" filename) is quoting the list, AND the symbol 'filename', rather than evaluating filename.

answered Jun 23, 2011 at 21:11

Will Hartung

119k20 gold badges134 silver badges209 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Spec · Accepted Answer · 2011-06-24 12:02:09Z

4

You can also use backquote ` before sexpr and , before filename to evaluate it:

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

answered Jun 24, 2011 at 12:02

Spec

8576 silver badges7 bronze badges

Collectives™ on Stack Overflow

Using stdout from shell script in common lisp

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related