Skip to content
Snippets Groups Projects
Commit 9e013909 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix missing argument.

Add missing declare ignore.
parent 837abc91
No related branches found
No related tags found
No related merge requests found
...@@ -69,9 +69,10 @@ ...@@ -69,9 +69,10 @@
(defun run (cmd &rest keys (defun run (cmd &rest keys
&key on-error time show host (output t op) (error-output t eop) &allow-other-keys) &key on-error time show host (output t op) (error-output t eop) &allow-other-keys)
"run command CMD" "run command CMD"
(apply 'run/nil `(,@(unless op `(:output ,output)) (declare (ignore on-error time show host))
,@(unless eop `(:error-output ,error-output)) (apply 'run/nil cmd `(,@(unless op `(:output ,output))
,@keys))) ,@(unless eop `(:error-output ,error-output))
,@keys)))
(defun run/s (cmd &rest keys &key on-error time show host) (defun run/s (cmd &rest keys &key on-error time show host)
"run command CMD, return its standard output results as a string." "run command CMD, return its standard output results as a string."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment