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)))
|