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

Use exec when running simple commands.

parent ab38970d
No related branches found
No related tags found
No related merge requests found
...@@ -2,12 +2,12 @@ ...@@ -2,12 +2,12 @@
#-asdf3 (error "inferior-shell requires ASDF 3.0.3 or later") #-asdf3 (error "inferior-shell requires ASDF 3.0.3 or later")
(defsystem "inferior-shell" (defsystem "inferior-shell"
:version "2.0.3.4" :version "2.0.4"
:description "spawn local or remote processes and shell pipes" :description "spawn local or remote processes and shell pipes"
:author "Francois-Rene Rideau" :author "Francois-Rene Rideau"
:license "MIT" :license "MIT"
:depends-on ((:version "asdf" "3.0.3") ; input and error-output redirection :depends-on ((:version "asdf" "3.0.3") ; input and error-output redirection
#+sbcl (:require "sb-posix") (:feature :sbcl (:require "sb-posix"))
"alexandria" "optima" "alexandria" "optima"
"fare-utils" "fare-quasiquote-extras" "fare-mop") "fare-utils" "fare-quasiquote-extras" "fare-mop")
:around-compile "uiop:call-with-safe-io-syntax" ;; ensures that quasiquote syntax doesn't escape :around-compile "uiop:call-with-safe-io-syntax" ;; ensures that quasiquote syntax doesn't escape
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
(:file "utilities" :depends-on ("pkgdcl")) (:file "utilities" :depends-on ("pkgdcl"))
(:file "macros" :depends-on ("pkgdcl")) (:file "macros" :depends-on ("pkgdcl"))
(:file "host" :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"))) :in-order-to ((test-op (load-op "inferior-shell/test")))
:perform (test-op (o s) ;; symbol-call will only work if loaded with ASDF3 :perform (test-op (o s) ;; symbol-call will only work if loaded with ASDF3
(symbol-call :inferior-shell-test :test-suite))) (symbol-call :inferior-shell-test :test-suite)))
......
...@@ -21,6 +21,8 @@ ...@@ -21,6 +21,8 @@
(etypecase command (etypecase command
(direct-command-spec (direct-command-spec
(command-arguments spec)) (command-arguments spec))
(command-spec
(strcat "exec " (print-process-spec spec)))
(process-spec (process-spec
(print-process-spec spec)) (print-process-spec spec))
(string (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