From e1f6378d75cea9eed243a793efa90cec55e401cb Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Sun, 18 Sep 2016 17:51:26 -0400 Subject: [PATCH] Use exec when running simple commands. --- inferior-shell.asd | 6 +++--- run.lisp | 2 ++ 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/inferior-shell.asd b/inferior-shell.asd index cf6229c..30605f6 100644 --- a/inferior-shell.asd +++ b/inferior-shell.asd @@ -2,12 +2,12 @@ #-asdf3 (error "inferior-shell requires ASDF 3.0.3 or later") (defsystem "inferior-shell" - :version "2.0.3.4" + :version "2.0.4" :description "spawn local or remote processes and shell pipes" :author "Francois-Rene Rideau" :license "MIT" :depends-on ((:version "asdf" "3.0.3") ; input and error-output redirection - #+sbcl (:require "sb-posix") + (:feature :sbcl (:require "sb-posix")) "alexandria" "optima" "fare-utils" "fare-quasiquote-extras" "fare-mop") :around-compile "uiop:call-with-safe-io-syntax" ;; ensures that quasiquote syntax doesn't escape @@ -17,7 +17,7 @@ (:file "utilities" :depends-on ("pkgdcl")) (:file "macros" :depends-on ("pkgdcl")) (:file "host" :depends-on ("pkgdcl")) - (:file "run" :depends-on ("process-spec" "macros")) + (:file "run" :depends-on ("process-spec" "macros"))) :in-order-to ((test-op (load-op "inferior-shell/test"))) :perform (test-op (o s) ;; symbol-call will only work if loaded with ASDF3 (symbol-call :inferior-shell-test :test-suite))) diff --git a/run.lisp b/run.lisp index 8a81a4b..d8b1a4f 100644 --- a/run.lisp +++ b/run.lisp @@ -21,6 +21,8 @@ (etypecase command (direct-command-spec (command-arguments spec)) + (command-spec + (strcat "exec " (print-process-spec spec))) (process-spec (print-process-spec spec)) (string -- GitLab