diff --git a/run.lisp b/run.lisp index 788d770aab2ed6259cedb03214cb6abae76ab0ee..991184cc0f53e124c451fa67ba3ec7fc1bf296ba 100644 --- a/run.lisp +++ b/run.lisp @@ -69,9 +69,10 @@ (defun run (cmd &rest keys &key on-error time show host (output t op) (error-output t eop) &allow-other-keys) "run command CMD" - (apply 'run/nil `(,@(unless op `(:output ,output)) - ,@(unless eop `(:error-output ,error-output)) - ,@keys))) + (declare (ignore on-error time show host)) + (apply 'run/nil cmd `(,@(unless op `(:output ,output)) + ,@(unless eop `(:error-output ,error-output)) + ,@keys))) (defun run/s (cmd &rest keys &key on-error time show host) "run command CMD, return its standard output results as a string."