From a42403d202981a043e8e0b24f7bb2c45eb60016d Mon Sep 17 00:00:00 2001 From: Richard M Kreuter Date: Sat, 22 Dec 2007 22:07:11 +0000 Subject: [PATCH] 1.0.12.43: Two tiny RUN-PROGRAM-related cleanups * Having removed FIND-EXECUTABLE-IN-SEARCH-PATH, remove the symbol from package-data-list.lisp-expr. * A recently-added test for RUN-PROGRAM used a non-conforming "sleep 2s" command in a shell script. POSIX sleep(1) is not required to accept the s. --- package-data-list.lisp-expr | 1 - tests/run-program.test.sh | 2 +- version.lisp-expr | 2 +- 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index dcb9dfc..dd90ecc 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -727,7 +727,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; return a PROCESS object with operations defined on ;; that object. "RUN-PROGRAM" - "FIND-EXECUTABLE-IN-SEARCH-PATH" "PROCESS-ALIVE-P" "PROCESS-CLOSE" "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE" "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P" diff --git a/tests/run-program.test.sh b/tests/run-program.test.sh index beb6e42..ab14285 100644 --- a/tests/run-program.test.sh +++ b/tests/run-program.test.sh @@ -90,7 +90,7 @@ ${SBCL:-sbcl} <<'EOF' ;; fully buffered.) (let ((str (with-output-to-string (s) (run-program "/bin/sh" - '("-c" "(echo Foo; sleep 2s; echo Bar)>&2") + '("-c" "(echo Foo; sleep 2; echo Bar)>&2") :output s :search t :error :output :wait t)))) (assert (string= str (format nil "Foo~%Bar~%")))) diff --git a/version.lisp-expr b/version.lisp-expr index e5f080e..47f6885 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.12.42" +"1.0.12.43" -- 1.7.10.4