From 6880f4546ee011297290cea6b94e94bb630d25f0 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 21 Jan 2013 21:36:24 -0500 Subject: [PATCH] run-program/ is now run-program! --- README | 6 +++--- inferior-shell.asd | 2 +- process-spec.lisp | 2 +- run.lisp | 4 ++-- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/README b/README index a1632f9..aea30dc 100644 --- a/README +++ b/README @@ -35,7 +35,7 @@ Example use of inferior-shell, from the rpm system: ==== Limitations ==== -By default, inferior-shell uses xcvb-driver:run-program/ +By default, inferior-shell uses asdf-driver:run-program as its universal execution backend, and has its limitations, which are as follows. @@ -113,7 +113,7 @@ RUN CMD &KEY ON-ERROR TIME SHOW HOST OUTPUT but strips any line-ending at the end of the results, just like a shell's `cmd` or $(cmd) would do, more options are accepted and you can define your own, as per - xcvb-driver's slurp-input-stream protocol. + asdf-driver's slurp-input-stream protocol. On Windows, RUN will not succeed for pipes, only for simple commands. On Unix, simple commands on localhost are executed directly, but remote commands and pipes are executed by spawning a shell. @@ -133,7 +133,7 @@ RUN/LINES CMD &KEY ON-ERROR TIME SHOW HOST *BACKEND* a variable to choose between backends. Currently, only supported are - :AUTO (the default, using xcvb-driver:run-program/, and + :AUTO (the default, using asdf-driver:run-program, and spawning a shell unless it's a simple process), and :SBCL (only available on #+(and sbcl sb-thread unix), doesn't need a shell but has some limitations such as diff --git a/inferior-shell.asd b/inferior-shell.asd index d9e1f01..ef939af 100644 --- a/inferior-shell.asd +++ b/inferior-shell.asd @@ -3,7 +3,7 @@ (defsystem :inferior-shell :defsystem-depends-on (:asdf :asdf-driver) - :depends-on (:asdf-driver :fare-utils :alexandria :fare-quasiquote-extras :fare-mop + :depends-on (:asdf-driver :fare-utils :alexandria :fare-quasiquote-extras :fare-mop :optima #+sbcl :sb-posix) :description "spawn local or remote processes and shell pipes" :around-compile "asdf-driver:call-with-safe-io-syntax" diff --git a/process-spec.lisp b/process-spec.lisp index cc3604f..3000781 100644 --- a/process-spec.lisp +++ b/process-spec.lisp @@ -1,6 +1,6 @@ #+xcvb (module (:depends-on ("pkgdcl"))) -(in-package :inferior-shell) +(cl:in-package :inferior-shell) (in-readtable :fare-quasiquote) diff --git a/run.lisp b/run.lisp index 1961c81..c7376fd 100644 --- a/run.lisp +++ b/run.lisp @@ -31,9 +31,9 @@ spec)))) (case output ((t) - (run-program/ command :ignore-error-status ignore-error-status)) + (run-program command :ignore-error-status ignore-error-status)) (otherwise - (run-program/ + (run-program command :ignore-error-status ignore-error-status :output output))))) (defun run-process-spec (spec &rest keys &key ignore-error-status output host backend) -- GitLab