[Git][cmucl/cmucl][master] 4 commits: Remove :before-execve option - cmucl-cvs - mailman3.common-lisp.net

26 Sep 2016

Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
47b1e69b by Raymond Toy at 2016-09-25T19:10:25-07:00
Remove :before-execve option
The documentation for this keyward option to run-program was
commented, but the actual option was not removed from the list of
options for run-program.
Remove it.
- - - - -
21ae1a78 by Raymond Toy at 2016-09-25T19:26:54-07:00
Merge branch &#39;master&#39; into rtoy-32-no-before-execve-option
- - - - -
2cc0df30 by Raymond Toy at 2016-09-25T19:28:17-07:00
Add test for issue #32.
- - - - -
9fe2a7d9 by Raymond Toy at 2016-09-26T02:29:33+00:00
Merge branch &#39;rtoy-32-no-before-execve-option&#39; into &#39;master&#39;
Fix #32: Remove :before-execve option
The documentation for this keyward option to run-program was
commented, but the actual option was not removed from the list of
options for run-program.
Remove it.
See merge request !14
- - - - -
2 changed files:
- src/docs/cmu-user/extensions.tex
- tests/issues.lisp
Changes:
=====================================
src/docs/cmu-user/extensions.tex
=====================================

--- a/src/docs/cmu-user/extensions.tex
+++ b/src/docs/cmu-user/extensions.tex
@@ -1099,7 +1099,7 @@ It is possible to run programs from Lisp by using the following function.
       \morekeys{\kwd{if-input-does-not-exist}}
       \yetmorekeys{\kwd{output} \kwd{if-output-exists}}
       \yetmorekeys{\kwd{error} \kwd{if-error-exists}}
-      \yetmorekeys{\kwd{status-hook} \kwd{before-execve}}}}
+      \yetmorekeys{\kwd{status-hook}}}}
\code{run-program} runs \var{program} in a child process.
   \var{Program} should be a pathname or string naming the program.
=====================================
tests/issues.lisp
=====================================
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -315,3 +315,9 @@
     (:tag :issues)
   (let* ((test-file #.(merge-pathnames #p"resources/issue-24.lisp" cl:*load-pathname*)))
     (assert-true (compile-file test-file :load t))))
+
+(define-test issue.32
+    (:tag :issues)
+  (assert-error 'kernel:simple-program-error
+		(ext:run-program "cat" nil
+				 :before-execve t)))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/d6ae3337990d21c6e9fb236f1...

    