Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
47b1e69b
by Raymond Toy at 2016-09-25T19:10:25-07:00
-
21ae1a78
by Raymond Toy at 2016-09-25T19:26:54-07:00
-
2cc0df30
by Raymond Toy at 2016-09-25T19:28:17-07:00
-
9fe2a7d9
by Raymond Toy at 2016-09-26T02:29:33+00:00
2 changed files:
Changes:
... | ... | @@ -1099,7 +1099,7 @@ It is possible to run programs from Lisp by using the following function. |
1099 | 1099 |
\morekeys{\kwd{if-input-does-not-exist}}
|
1100 | 1100 |
\yetmorekeys{\kwd{output} \kwd{if-output-exists}}
|
1101 | 1101 |
\yetmorekeys{\kwd{error} \kwd{if-error-exists}}
|
1102 |
\yetmorekeys{\kwd{status-hook} \kwd{before-execve}}}}
|
|
1102 |
\yetmorekeys{\kwd{status-hook}}}}
|
|
1103 | 1103 |
|
1104 | 1104 |
\code{run-program} runs \var{program} in a child process.
|
1105 | 1105 |
\var{Program} should be a pathname or string naming the program.
|
... | ... | @@ -315,3 +315,9 @@ |
315 | 315 |
(:tag :issues)
|
316 | 316 |
(let* ((test-file #.(merge-pathnames #p"resources/issue-24.lisp" cl:*load-pathname*)))
|
317 | 317 |
(assert-true (compile-file test-file :load t))))
|
318 |
|
|
319 |
(define-test issue.32
|
|
320 |
(:tag :issues)
|
|
321 |
(assert-error 'kernel:simple-program-error
|
|
322 |
(ext:run-program "cat" nil
|
|
323 |
:before-execve t)))
|