[Git][cmucl/cmucl][master] 4 commits: Remove :before-execve option

Raymond Toy rtoy at common-lisp.net
Mon Sep 26 02:29:34 UTC 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 'master' 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 'rtoy-32-no-before-execve-option' into 'master'

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/d6ae3337990d21c6e9fb236f1b7d5e3c655926c0...9fe2a7d9699b1a60d874868ccc0de6afcc74ee3b
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160926/4ee1c238/attachment.html>


More information about the cmucl-cvs mailing list