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